PK.ORDRSET
@OPEN.OE,
@HDR,
@ORDERS,
@TRLR,
END;

OPEN.OE
@admdir,
O(&,@misdict),
@oedir,
O(*,@oedata),
O(\,@oedict),
@pkdir

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>"^!,
"<CodeSet>"^!,
"<CodeSetNumber>264</CodeSetNumber>"^!,
"<Codes>"^!

TRLR
"</Codes>"^!,
"<Key>"_/START_"</Key>"^!,
"</CodeSet>"^!,
"</CodeSets>"^!,
"</Payload>"^!,
"</ReplyMessage>"^!

ORDERS
""^pc,
DO{+\PC[pc]^pc "got one",
   IF{"Y"'=\PC[pc]|0;
      /CONF[.orders.cats]["all"] @SEND;
      /CONF[.orders.cats][pc] @SEND;
      "notinlist"}}

SEND
"<Code>"^!,
"<Display><![CDATA["_pc_" - "_\PC[pc]|1_"]]></Display>"^!,
"<Mnemonic><![CDATA["_pc_"]]></Mnemonic>"^!,
"<Meaning><![CDATA["_pc_"]]></Meaning>"^!,
"</Code>"^!
