PK.RSLTKEY
@HDR,
IF{/CONF[.results.source]="lab" "do lab modules",
  %PK.LABBKEY("B"),
  %PK.LABMKEY("M"),
  %PK.LABPKEY("P"),
  %PK.RADKEY("R")},
IF{/CONF[.results.depts] %PK.DEPTKEY("D",.results.depts)},
@TRLR,
END;

HDR
"<?xml version="_D(34)_1.0_D(34)_" ?>"^!,
"<ReplyMessage>"^!,
"<TransactionId>"_1234_"</TransactionId>"^!,
"<Status>Success</Status>"^!,
"<Payload>"^!

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