PK.NURNDATA
A^prefix,
B^ID,
@OPEN.NUR,
@FORMAT.NOTE,
END;

OPEN.NUR
@misdir,
O(&,@misdict),
@admdir,
O(:,@admdata),
@nurdir,
O(*,@nurdata),
O(\,@nurdict),
@pkdir

FORMAT.NOTE
0^T,
ID#"0-"^aa,
ID#"1-"^note,
^*NOTE[aa]N[note]^MAIN,
"NOTE.DATA",@NOTE.DATA,
IF{[MAIN]|12="Y" "***CONFIDENTIAL***"^/T.REC[T+1^T];
   ""^NCL,
   DO{+([MAIN,"T",NCL],XX)^NCL XX^/T.REC[T+1^T]},
   "CHECK AMENDS",""^NCLA^NCLAT,
   DO{+([MAIN,"TA",NCLA],XX)^NCLA " "^/T.REC[T+1^T],
                                  "AMENDED: "_%Z.date.out(XX|0)_"-"_(XX|1)_"  BY "_(XX|3)^/T.REC[T+1^T],
                                  DO{+([MAIN,"TA",NCLA,"T",NCLAT],XX)^NCLAT XX^/T.REC[T+1^T]}},
   END}

NOTE.DATA
:AA[aa]|3^/T.INFO["MRN"],
:AA[aa]|0^/T.INFO["ACCT"],
\NOC[[MAIN]|3]|1^/T.INFO["TESTNAME"],
IF{-(*NOTE[aa]N[NOTE]TA[""],YY)^AMEND YY|0_YY|1;XX|0_XX|1}^UPD,
UPD^/T.INFO["UPDATENODE"],
[MAIN]|0_[MAIN]|1^/T.INFO["TESTDATE"],
IF{[MAIN]|2^gu &GU[gu]|1^/T.INFO["AUTHOR"]},
"NUR."_[MAIN]|3^/T.INFO["TESTTYPE"],
IF{AMEND "AMENDED";"ENTERED"}^/T.INFO["STATUS"]
