PK.NOTESET
@HDR,
@OPEN.OE,
@NOTES,
@TRLR,
END;

HDR
"<?xml version="_D(34)_1.0_D(34)_" ?>"^!,
"<ReplyMessage>"^!,
"<TransactionId>0</TransactionId>"^!,
"<Status>Success</Status>"^!,
"<StatusDescription>Step returned a Success status.</StatusDescription>"^!,
"<Payload>"^!,
"<CodeSets>"^!

OPEN.OE
@misdir,
O(&,@misdict),
@admdir,
O(:,@admdata),
IF{/CONF[.notes.depts] 1,
   @oedir,
   O(\,@oedict)},
IF{/CONF[.notes.nursing.cats] 1,
   @nurdir,
   O(*,@nurdict)},
@pkdir

NOTES
""^Q,
"<CodeSet>"^!,
"<CodeSetNumber>264</CodeSetNumber>"^!,
"<Codes>"^!,
IF{/CONF[.notes.depts] 1,
   DO{+\PDR[ggn]^ggn 1,
      IF{(/CONF[.notes.depts]["all"]!/CONF[.notes.depts][ggn])&&GGN[ggn] 1,
         "<Code>"^!,
         "<Display><![CDATA["_&GGN[ggn]|1_"]]></Display>"^!,
         "<Mnemonic><![CDATA["_"OE."_ggn_"]]></Mnemonic>"^!,
         "<Meaning><![CDATA["_"OE."_ggn_"]]></Meaning>"^!,
         "</Code>"^!}}},
IF{/CONF[.notes.nursing.cats] 1,
   DO{+*NOC[nnc]^nnc 1,
      IF{(/CONF[.notes.nursing.cats]["all"]!/CONF[.notes.nursing.cats][nnc]) 1,
         "<Code>"^!,
         "<Display><![CDATA["_*NOC[nnc]|1_"]]></Display>"^!,
         "<Mnemonic><![CDATA["_"NUR."_nnc_"]]></Mnemonic>"^!,
         "<Meaning><![CDATA["_"NUR."_nnc_"]]></Meaning>"^!,
         "</Code>"^!}}},
"</Codes>"^!,
"<Key>"_/START_"</Key>"^!,
"</CodeSet>"^!

TRLR
"</CodeSets>"^!,
"</Payload>"^!,
"</ReplyMessage>"^!
