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 ;11/10/99 10:42

Source Information

Source file <RAHLR1A.m>

Call Graph

Call Graph Total: 11

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Radiology Nuclear Medicine 2 RAHLR1  RAHLRPT1  

Entry Points

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

External References

Name Field # of Occurrence
$$GET1^DIQ OBRPRC+23
^DIWP OBXHIST+18
NPFON^MAG7UFO OBRPRC+32
$$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+33, OBRPRC+59, OBXPRC+4, OBXPMOD+6, OBXHIST+4, OBXHIST+24, OBXALL+7, OBXTCOM+6
$$OBR21^RAHLRU OBRPRC+52
$$REPEAT^RAHLRU1 OBRPRC+20, OBRPRC+64
$$RTNSUB^RAHLRU1 ZDS+17, ZDS+23
$$SPECSRC^RAHLRU1 OBRPRC+19
BLSEG^RAHLRU1 OBRPRC+75, OBXPRC+6, OBXPMOD+7, OBXCPTM+7, OBXHIST+5, OBXHIST+9, OBXHIST+25, OBXALL+8, OBXTCOM+7
$$FMTHL7^XLFDT OBRPRC+64
$$HLNAME^XLFNAME OBRPRC+26

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+56, OBRPRC+57, OBRPRC+58, OBXPRC+4
^RAMIS(71.2 - [#71.2] OBXPMOD+6
^RAMIS(73.1 - [#73.1] OBRPRC+59
^UTILITY($J OBXHIST+15!, OBXHIST+22, OBXHIST+24, OBXHIST+29!

Label References

Name Line Occurrences
ZDS OBRPRC+77

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+73
>> HLECH OBRPRC+13, OBRPRC+14, OBRPRC+20, OBRPRC+26, OBRPRC+33, OBRPRC+52, OBRPRC+64, 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+31~*, OBRPRC+33*, 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+31~*, OBRPRC+33*, OBRPRC+34
PI EN+15~
PI( OBXALL+6, OBXALL+7
PTR EN+15~, OBXPMOD+5*, OBXPMOD+6, OBXCPTM+5*, OBXCPTM+6
RACNI OBRPRC+77, 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+77, 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+75, EXIT+1!
RAOBR(16 OBRPRC+20*
RAOBR(17 OBRPRC+26*
RAOBR(18 OBRPRC+34*
RAOBR(19 OBRPRC+37*
RAOBR(2 OBRPRC+1*
RAOBR(20 OBRPRC+44*
RAOBR(21 OBRPRC+49*
RAOBR(22 OBRPRC+52*
RAOBR(25 OBRPRC+59*
RAOBR(28 OBRPRC+64*
RAOBR(3 OBRPRC+6*
RAOBR(30 OBRPRC+67*
RAOBR(31 OBRPRC+71*
RAOBR(32 OBRPRC+73*
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+67
>> RASIUID ZDS+16*, ZDS+17, ZDS+21, ZDS+22*, ZDS+23
RAX EN+15~, OBRPRC+31~
RAX( OBRPRC+33
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+37, OBRPRC+44, OBRPRC+49, OBRPRC+77, ZDS~, ZDS+22
RAZDIV EXIT+1!
RAZIEN OBRPRC+56*, OBRPRC+57, OBRPRC+58, EXIT+1!
RAZILOC EXIT+1!
RAZITYPE EXIT+1!
RAZMODAL OBRPRC+58*, OBRPRC+59, EXIT+1!
RAZNME OBRPRC+24!, OBRPRC+26, EXIT+2!
RAZNME("FIELD" OBRPRC+25*
RAZNME("FILE" OBRPRC+24*
RAZNME("IENS" OBRPRC+24*
>> RAZORD OBRPRC+16, OBRPRC+23, OBRPRC+24, OBRPRC+26, OBRPRC+32, OBRPRC+64, OBRPRC+70
>> RAZORD1 OBRPRC+73, OBXHIST+1, OBXHIST+4
RAZPHONE EXIT+2!
RAZPMOD OBRPRC+19*, OBRPRC+20, EXIT+2!
>> RAZPROC OBRPRC+7, OBRPRC+14
>> RAZRXAM OBRPRC+52
RAZTMODE OBRPRC+70*, OBRPRC+71, EXIT+2!
>> RAZXAM OBRPRC+14, OBRPRC+19, OBRPRC+56, OBRPRC+57, OBRPRC+58, OBXPRC+4
U OBRPRC+7, OBRPRC+13, OBRPRC+14, OBRPRC+16, OBRPRC+19, OBRPRC+23, OBRPRC+24, OBRPRC+26, OBRPRC+32, OBRPRC+56
, OBRPRC+57, OBRPRC+58, OBRPRC+59, OBRPRC+64, OBRPRC+70, 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