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: RAHLR1A

Package: Radiology Nuclear Medicine

Routine: RAHLR1A


Information

RAHLR1A ;HISC/GJC - Generate Common Order (ORM) Message ; Apr 26, 2023@12:37:42

Source Information

Source file <RAHLR1A.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Radiology Nuclear Medicine 5 $$GETSIUID^RAAPI  $$NAMCODE^RACPTMSC  ALLERGY^RADEM  ($$CPTMOD,$$ESCAPE,$$OBR21,OBR16)^RAHLRU  ($$REPEAT,$$RTNSUB,$$SPECSRC,BLSEG)^RAHLRU1  
Imaging 2 NPFON^MAG7UFO  ($$STUDYUID,$$ZDS)^MAGDRAHL  
VA FileMan 2 $$GET1^DIQ  ^DIWP  
Kernel 1 $$FMTHL7^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Radiology Nuclear Medicine 2 RAHLR1  RAHLRPT1  

Entry Points

Name Comments DBIA/ICR reference
EN ;Called from RAHLR1; used to build the OBR, OBX, & ZDS segments
OBRPRC ;OBR segment
OBXPRC ;Compile 'OBX' Segment for Procedure
OBXPMOD ;Compile 'OBX' segment for procedure modifiers
OBXCPTM ;Compile 'OBX' segment for CPT modifiers
OBXHIST ;Compile 'OBX' Segment for Clinical History
OBXALL ;Compile 'OBX' Segment for Allergies
OBXTCOM ;Compile 'OBX' segment for tech comments
EXIT ;clean up symbol table are return to RAHLR1
ZDS(RADTI,RACNI,RAZDAYCS) ;Compile the 'ZDS' segment

External References

Name Field # of Occurrence
$$GET1^DIQ OBRPRC+26
^DIWP OBXHIST+18
NPFON^MAG7UFO OBRPRC+31
$$STUDYUID^MAGDRAHL ZDS+22
$$ZDS^MAGDRAHL ZDS+17, ZDS+23
$$GETSIUID^RAAPI ZDS+16
$$NAMCODE^RACPTMSC OBRPRC+7
ALLERGY^RADEM OBXALL+1
$$CPTMOD^RAHLRU OBXCPTM+6
$$ESCAPE^RAHLRU OBRPRC+13, OBRPRC+14, OBRPRC+32, OBRPRC+58, OBXPRC+4, OBXPMOD+6, OBXHIST+4, OBXHIST+24, OBXALL+7, OBXTCOM+6
$$OBR21^RAHLRU OBRPRC+51
OBR16^RAHLRU OBRPRC+26
$$REPEAT^RAHLRU1 OBRPRC+20, OBRPRC+63
$$RTNSUB^RAHLRU1 ZDS+17, ZDS+23
$$SPECSRC^RAHLRU1 OBRPRC+19
BLSEG^RAHLRU1 OBRPRC+74, OBXPRC+6, OBXPMOD+7, OBXCPTM+7, OBXHIST+5, OBXHIST+9, OBXHIST+25, OBXALL+8, OBXTCOM+7
$$FMTHL7^XLFDT OBRPRC+63

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RADPT - [#70] OBXPMOD+4, OBXPMOD+5, OBXCPTM+4, OBXCPTM+5, OBXHIST+11, OBXHIST+17, OBXHIST+18, OBXTCOM+4, OBXTCOM+5
^RAMIS(71 - [#71] OBRPRC+55, OBRPRC+56, OBRPRC+57, OBXPRC+4
^RAMIS(71.2 - [#71.2] OBXPMOD+6
^RAMIS(73.1 - [#73.1] OBRPRC+58
^UTILITY($J OBXHIST+15!, OBXHIST+22, OBXHIST+24, OBXHIST+29!

Label References

Name Line Occurrences
ZDS OBRPRC+76

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+15~
DFN OBXALL+1~*
DIW OBXHIST+29!
DIWF OBXHIST+16*, OBXHIST+29!
DIWI OBXHIST+29!
DIWL OBXHIST+16*, OBXHIST+29!
DIWR OBXHIST+16*, OBXHIST+29!
DIWT OBXHIST+29!
DIWTC OBXHIST+29!
DIWX OBXHIST+29!
DN EN+15~
DT OBRPRC+7, OBXCPTM+6
FT EN+15~, OBXALL+7*, OBXTCOM+5*, OBXTCOM+6
GMRAL OBXALL+5, EXIT+1!
>> HLA("HLS" ZDS+17*, ZDS+23*
>> HLCS OBRPRC+72
>> HLECH OBRPRC+13, OBRPRC+14, OBRPRC+20, OBRPRC+32, OBRPRC+51, OBRPRC+63, OBXPRC+3, OBXPRC+4, OBXPMOD+2, OBXCPTM+2
, OBXCPTM+6, OBXHIST+3, OBXHIST+7, OBXHIST+13, OBXALL+3, OBXTCOM+2, ZDS+13
>> HLECH( ZDS+13*, ZDS+18!, ZDS+24!
I EN+15~, OBRPRC+30~*, OBRPRC+32*, OBXPMOD+3*, OBXPMOD+4*, OBXPMOD+5, OBXCPTM+3*, OBXCPTM+4*, OBXCPTM+5, OBXHIST+21*
, OBXHIST+22*, OBXHIST+24, OBXALL+4*, OBXALL+6*, OBXALL+7, OBXTCOM+3*, OBXTCOM+4*, OBXTCOM+5, ZDS+13~*, ZDS+18*
, ZDS+24*
J EN+15~, OBXPMOD+3*, OBXPMOD+6*, OBXCPTM+3*, OBXCPTM+6*, OBXHIST+21*, OBXHIST+23*, OBXALL+4*, OBXALL+7*, OBXTCOM+3*
, OBXTCOM+5*, OBXTCOM+6
M OBRPRC+30~*, OBRPRC+32*, OBRPRC+33
PI EN+15~
PI( OBXALL+6, OBXALL+7
PTR EN+15~, OBXPMOD+5*, OBXPMOD+6, OBXCPTM+5*, OBXCPTM+6
RACNI OBRPRC+76, OBXPMOD+4, OBXPMOD+5, OBXCPTM+4, OBXCPTM+5, OBXHIST+11, OBXHIST+17, OBXHIST+18, OBXTCOM+4, OBXTCOM+5
, ZDS~, ZDS+16, ZDS+22
>> RADFN OBXPMOD+4, OBXPMOD+5, OBXCPTM+4, OBXCPTM+5, OBXHIST+11, OBXHIST+17, OBXHIST+18, OBXALL+1, OBXTCOM+4, OBXTCOM+5
, ZDS+16
RADIWL OBXHIST+16*, OBXHIST+22, OBXHIST+24, OBXHIST+29!
RADTI OBRPRC+76, OBXPMOD+4, OBXPMOD+5, OBXCPTM+4, OBXCPTM+5, OBXHIST+11, OBXHIST+17, OBXHIST+18, OBXTCOM+4, OBXTCOM+5
, ZDS~, ZDS+16, ZDS+22
RAI OBXHIST+16*, OBXHIST+17*, OBXHIST+18, OBXHIST+29!
RAOBR OBRPRC+74, EXIT+1!
RAOBR(16 OBRPRC+20*
RAOBR(18 OBRPRC+33*
RAOBR(19 OBRPRC+36*
RAOBR(2 OBRPRC+1*
RAOBR(20 OBRPRC+43*
RAOBR(21 OBRPRC+48*
RAOBR(22 OBRPRC+51*
RAOBR(25 OBRPRC+58*
RAOBR(28 OBRPRC+63*
RAOBR(3 OBRPRC+6*
RAOBR(30 OBRPRC+66*
RAOBR(31 OBRPRC+70*
RAOBR(32 OBRPRC+72*
RAOBR(4 OBRPRC+6*
RAOBR(5 OBRPRC+13*, OBRPRC+14*
RAOBR(6 OBRPRC+16*
RAOBX OBXPRC+6!, OBXPMOD+7, OBXPMOD+10!, OBXCPTM+7, OBXCPTM+9!, OBXHIST+5, OBXHIST+9, OBXHIST+25, OBXHIST+29!, OBXALL+8
, OBXALL+10!, OBXTCOM+7, EXIT+1!
RAOBX(12 OBXPRC+5*, OBXPMOD+3*, OBXCPTM+3*, OBXHIST+3*, OBXHIST+7*, OBXHIST+21*, OBXALL+4*, OBXTCOM+3*
RAOBX(2 OBXPRC+2*, OBXPMOD+1*, OBXPMOD+6*, OBXPMOD+9, OBXCPTM+1*, OBXCPTM+6*, OBXCPTM+8, OBXHIST+2*, OBXHIST+6*, OBXHIST+12*
, OBXHIST+23*, OBXHIST+27, OBXALL+2*, OBXALL+7*, OBXALL+9, OBXTCOM+1*, OBXTCOM+6*
RAOBX(3 OBXPRC+3*, OBXPMOD+2*, OBXCPTM+2*, OBXHIST+2*, OBXHIST+6*, OBXHIST+12*, OBXALL+3*, OBXTCOM+2*
RAOBX(4 OBXPRC+3*, OBXPMOD+2*, OBXCPTM+2*, OBXHIST+3*, OBXHIST+7*, OBXHIST+13*, OBXALL+3*, OBXTCOM+2*
RAOBX(6 OBXPRC+4*, OBXPMOD+6*, OBXCPTM+6*, OBXHIST+4*, OBXHIST+8*, OBXHIST+24*, OBXALL+7*, OBXTCOM+6*
>> RAORC(9 OBRPRC+66
>> RASIUID ZDS+16*, ZDS+17, ZDS+21, ZDS+22*, ZDS+23
RAX EN+15~, OBRPRC+30~
RAX( OBRPRC+32
RAXX EN+15~, OBXPRC+2*, OBXPMOD+1, OBXPMOD+6, OBXPMOD+9*, OBXCPTM+1, OBXCPTM+6, OBXCPTM+8*, OBXHIST+2*, OBXHIST+6*
, OBXHIST+12, OBXHIST+23, OBXHIST+27*, OBXALL+2, OBXALL+7, OBXALL+9*, OBXTCOM+1, OBXTCOM+6, EXIT+1!
RAZCPT OBRPRC+7*, EXIT+1!
RAZCPT(0 OBRPRC+7*, OBRPRC+13
RAZCPTM OBXCPTM+9!
RAZDAYCS OBRPRC+6, OBRPRC+36, OBRPRC+43, OBRPRC+48, OBRPRC+76, ZDS~, ZDS+22
RAZDIV EXIT+1!
RAZIEN OBRPRC+55*, OBRPRC+56, OBRPRC+57, EXIT+1!
RAZILOC EXIT+1!
RAZITYPE EXIT+1!
RAZMODAL OBRPRC+57*, OBRPRC+58, EXIT+1!
RAZNME EXIT+2!
>> RAZORD OBRPRC+16, OBRPRC+31, OBRPRC+63, OBRPRC+69
>> RAZORD1 OBRPRC+72, OBXHIST+1, OBXHIST+4
RAZPHONE EXIT+2!
RAZPMOD OBRPRC+19*, OBRPRC+20, EXIT+2!
>> RAZPROC OBRPRC+7, OBRPRC+14
>> RAZRXAM OBRPRC+51
RAZTMODE OBRPRC+69*, OBRPRC+70, EXIT+2!
>> RAZXAM OBRPRC+14, OBRPRC+19, OBRPRC+26, OBRPRC+55, OBRPRC+56, OBRPRC+57, OBXPRC+4
U OBRPRC+7, OBRPRC+13, OBRPRC+14, OBRPRC+16, OBRPRC+19, OBRPRC+26, OBRPRC+31, OBRPRC+55, OBRPRC+56, OBRPRC+57
, OBRPRC+58, OBRPRC+63, OBRPRC+69, OBXPRC+4, OBXPMOD+6
X EN+15~, OBXHIST+18*
Y EN+15~
Z EN+15~
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