Routine: RAO7PURG

Information

RAO7PURG ;HISC/GJC-Purge order request ;9/5/97 08:58

Source file <RAO7PURG.m>

Package	Total	Call Graph
Radiology Nuclear Medicine	4	($$MSH,$$PID,EN1,ERR,MSG)^RAO7UTL BRKOUT^RAO7UTL1 ($$EN2,$$EN3)^RAO7VLD ($$PUROK,ENPUR)^RAPURGE1
Kernel	1	$$FMADD^XLFDT
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Radiology Nuclear Medicine	2	RAO7RO RAPURGE1

Name	Comments	DBIA/ICR reference
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'
ERR	; error control - file 'soft' errors with 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) ; *******************************************************************
PID	; breakdown the 'PID' segment
ORC	; breakdown the 'ORC' segment
SHIP	; ship message to MSG^RAO7UTL which fires of the HL7 message to CPRS
EN1(RAOIFN)	; 'RAOIFN' is the ien in file 75.1 ; Create and send HL7 Purge order request msg to CPRS

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

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