RAO7PURG ;HISC/GJC-Purge order request ;9/5/97 08:58
Source file <RAO7PURG.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN1(RAOIFN) | ; 'RAOIFN' is the ien in file 75.1
; Create and send HL7 Purge order request msg to CPRS |
|
| SHIP | ; ship message to MSG^RAO7UTL which fires of the HL7 message to CPRS
|
|
| EN2(RAMSG) | ; Process purge message from oe/rr (cprs) to Rad/Nuc Med
; Input: RAMSG - HL7 purge request message ; ************************* Variables ********************************* ; RAMSH3=sending facility ; RAORC2=<cprs_order_ien>_"^OR" ; RAORC3=<rad/nuc med_order_ien>_"^RA" ; RAPID3=patient internal identifier (ien) ; RAPID5=patient external identifier (name) ; ********************************************************************* |
|
| ORC | ; breakdown the 'ORC' segment
|
|
| PID | ; breakdown the 'PID' segment
|
|
| ERR | ; error control - file 'soft' errors with CPRS
|
|
| ONLIN(RAORD0) | ; Check to see if order activity occurred within the number
; of days specified for an order, based on its i-type cut-off parms ; Input: RAORD0-zero node for our order (75.1) ; Output: 1-if order activity occurred later than cut-off date ; 0-if no order activity later than cut-off date ; The 18th piece of 0 node for file 75.1 is 'Last Activity Date/Time' |
| FileNo | Call Tags |
|---|---|
| ^OR(100 - [#100] | GET1^DIQ |
