@.sd^/START,
"HDR",@1,
"RESULT.TYPES",@2,
"TRLR",@3,
END;

[1]::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>"^!;

[2]::RESULT.TYPES
""^Q,
"<CodeSet>"^!,
"<CodeSetNumber>264</CodeSetNumber>"^!,
"<Codes>"^!,
""^!,
"<Display>Blood Bank</Display>"^!,
"<Mnemonic>BBK</Mnemonic>"^!,
"<Meaning>BBK</Meaning>"^!,
""^!,
""^!,
"<Display>Microbiology</Display>"^!,
"<Mnemonic>MICRO</Mnemonic>"^!,
"<Meaning>MICRO</Meaning>"^!,
""^!,
""^!,
"<Display>Pathology</Display>"^!,
"<Mnemonic>AP</Mnemonic>"^!,
"<Meaning>AP</Meaning>"^!,
""^!,
""^!,
"<Display>Radiology</Display>"^!,
"<Mnemonic>RAD</Mnemonic>"^!,
"<Meaning>RAD</Meaning>"^!,
""^!,
"</Codes>"^!,
"<Key>"_/START_"</Key>"^!,
"</CodeSet>"^!;

[3]::TRLR
"</CodeSets>"^!,
"</Payload>"^!,
"</ReplyMessage>"^!;
