RAO7PURG ;HISC/GJC-Purge order request ;9/5/97 08:58
Source file <RAO7PURG.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RA(79.2 - [#79.2] | ONLIN+8 |
| ^RAO(75.1 - [#75.1] | EN1+3, EN2+17, ORC+4 |
| Name | Line Occurrences |
|---|---|
| $$ONLIN | EN2+18 |
| @( | EN2+15 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DT | EN2+25, ONLIN+10 |
| RA0 | EN1+2~, EN1+3*, EN1+8, EN1+11 |
| >> RADATA | EN2+14* |
| >> RAERR | EN2+11*, EN2+12, EN2+17, EN2+18*, EN2+20*, EN2+22*, EN2+23*, ORC+1*, ORC+2*, ORC+3* , ORC+4*, PID+1* |
| RAFNTDR | EN2+11~ |
| >> RAHDR | EN2+14*, EN2+15 |
| >> RAHLFS | EN1+11, EN2+13, EN2+14 |
| >> RALINEX | EN2+11*, EN2+12*, EN2+13 |
| RAMSG | EN2~, ERR+2 |
| RAMSG( | EN2+12, EN2+13 |
| RAOIFN | EN1~, EN1+3, EN1+11, EN2+11~, EN2+25* |
| RAONLIN | ONLIN+6~, ONLIN+9*, ONLIN+10 |
| >> RAORC2 | ORC+3, ORC+4 |
| >> RAORC3 | EN2+17, EN2+25, ORC+1, ORC+4 |
| RAORD0 | EN2+11~, EN2+17*, EN2+18, EN2+20, EN2+22, EN2+23, EN2+25, ONLIN~, ONLIN+8, ONLIN+10 |
| >> RAPID3 | PID+1 |
| >> RAPID5 | PID+1 |
| >> RAPURGE | EN2+11* |
| >> RAPUROK | EN2+25*, EN2+26 |
| >> RASEG | EN2+13*, EN2+14 |
| RATAB | EN1+2~, EN1+3*, EN1+6, EN1+8*, EN1+10*, EN1+11 |
| RAVAR | EN1+2~, EN1+4*, EN1+6, EN1+8, EN1+11, ERR+1~, ERR+2 |
| RAVAR("XQY0" | ERR+1* |
| RAVARBLE | EN1+2~, EN1+4*, SHIP+1 |
| RAX | ONLIN+6~, ONLIN+8*, ONLIN+9 |
