Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: RAO7PURG

Package: Radiology Nuclear Medicine

Routine: RAO7PURG


Information

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

Source Information

Source file <RAO7PURG.m>

Call Graph

Call Graph Total: 6

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  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Radiology Nuclear Medicine 2 RAO7RO  RAPURGE1  

Entry Points

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

External References

Name Field # of Occurrence
$$GET1^DIQ EN2+23
$$MSH^RAO7UTL EN1+6
$$PID^RAO7UTL EN1+8
EN1^RAO7UTL EN1+3
ERR^RAO7UTL ERR+2
MSG^RAO7UTL SHIP+1
BRKOUT^RAO7UTL1 EN2+9
$$EN2^RAO7VLD PID+1
$$EN3^RAO7VLD ORC+1
$$PUROK^RAPURGE1 EN2+25
ENPUR^RAPURGE1 EN2+26
$$FMADD^XLFDT ONLIN+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OR(100 - [#100] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(79.2 - [#79.2] ONLIN+8
^RAO(75.1 - [#75.1] EN1+3, EN2+17, ORC+4

Label References

Name Line Occurrences
$$ONLIN EN2+18
@( EN2+15

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All