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 |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: RAHLR

Package: Radiology Nuclear Medicine

Routine: RAHLR


Information

RAHLR ;HISC/CAH/BNT - Generate Common Order (ORM) Message ;11/10/99 10:42

Source Information

Source file <RAHLR.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Radiology Nuclear Medicine 5 $$NAMCODE^RACPTMSC  ALLERGY^RADEM  (,EN)^RAHLR1  GETHLP^RAHLRS1  ($$ESCAPE,OBX11,OBXMOD,OBXPRC,OBXTCM)^RAHLRU  
Health Level Seven 3 ($$HLDATE,$$HLNAME,$$M11)^HLFNC  INIT^HLFNC2  GENERATE^HLMA  
VA FileMan 3 NOW^%DTC  $$GET1^DIQ  ^DIWP  
Kernel 2 ^%ZTLOAD  $$FMTHL7^XLFDT  
Registration 2 DEM^VADPT  $$EN^VAFHLPID  

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

Package Total Caller Graph
Radiology Nuclear Medicine 1 RAHLRPC  

Entry Points

Name Comments DBIA/ICR reference
EN ; Called from the RA REG & RA CANCEL & RA EXAMINED protocols
; Input Variables:
; RADFN=file 2 IEN (DFN)
; RADTI=file 70 Exam subrec IEN (reverse date/time of exam)
; RACNI=file 70 Case subrecord IEN
; RAEID=ien of the event driver protocol (defined in RAHLRPC)
; Output Variables:
; HLA("HLS") array containing HL7 msg
OBXPRC ;Compile 'OBX' Segment for Procedure
OBXMOD ;Compile 'OBX' Segment for two types of Modifiers
OBXHIST ;Compile 'OBX' Segment for Clinical History and Reason for Study (added as prefix).
ALLER ;Compile 'OBX' Segment for Allergies
OBXTCM ;Compile 'OBX' Segment for Tech Comment
EXIT ; set HL7 message type & return to protocol
Q ;Entry Point to Process an ORR Message (Just a Quit Since No Processing is Required)
INIT ; initialize HL7 variables

External References

Name Field # of Occurrence
NOW^%DTC INIT+1
^%ZTLOAD RAHLR+21
$$GET1^DIQ EN+61
^DIWP OBXHIST+4
$$HLDATE^HLFNC EN+33, EN+58, INIT+1
$$HLNAME^HLFNC EN+33, EN+62
$$M11^HLFNC EN+33
INIT^HLFNC2 INIT+5
GENERATE^HLMA EXIT+7
$$NAMCODE^RACPTMSC EN+24
ALLERGY^RADEM ALLER+1
^RAHLR1 EN+17
EN^RAHLR1 EN+17
GETHLP^RAHLRS1 EXIT+5, EXIT+6
$$ESCAPE^RAHLRU EN+81, OBXHIST+2
OBX11^RAHLRU OBXHIST+2, OBXHIST+3, OBXHIST+5, ALLER+2
OBXMOD^RAHLRU OBXMOD+1
OBXPRC^RAHLRU OBXPRC+1
OBXTCM^RAHLRU OBXTCM+1
DEM^VADPT EN+28
$$EN^VAFHLPID EN+35
$$FMTHL7^XLFDT EN+84

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] EN+67
^DIC(42 - [#42] EN+78
^RA(72 - [#72] EN+23
^RA(79.1 - [#79.1] EN+66
^RA(79.2 - [#79.2] EN+22, EN+72
^RADPT - [#70] EN+19, EN+64, OBXHIST+3, OBXHIST+4
^RAMIS(71 - [#71] EN+22, EN+24, EN+39
^RAO(75.1 - [#75.1] EN+39, EN+81, EN+86, OBXHIST+1, OBXHIST+2
^SC - [#44] EN+67, EN+78
^UTILITY($J OBXHIST+4!, OBXHIST+5, EXIT+1!

Label References

Name Line Occurrences
EXIT EN+28
INIT EN+12

Naked Globals

Name Field # of Occurrence
^( OBXHIST+4, OBXHIST+5
^(0 EN+19, EN+78, OBXHIST+4, OBXHIST+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % INIT+1
DFN EN+10~, EN+28*, EN+35, ALLER+1*
DIWF EN+10~, OBXHIST+4*
DIWL EN+10~, OBXHIST+4*, OBXHIST+5
DIWR EN+10~, OBXHIST+4*
DT EN+24
EID EN+9~, EXIT+4, INIT+3*, INIT+5
GMRAL EN+10~, ALLER+1
HL EN+9~, EN+14, INIT+4*, INIT+5
HL("" EN+15
HL("ECH" INIT+8, INIT+10, INIT+11, INIT+12
HL("FS" INIT+9
HL("MTN" EXIT+2*
HL("Q" INIT+6, INIT+7
HL("VER" EN+17, EN+32, EN+35
HLA EN+9~
HLA("HLS" EN+33*, EN+34*, EN+35*, EN+45*, EN+58*, EN+60*, EN+62*, EN+67*, EN+68*, EN+73*
, EN+74*, EN+78*, EN+81*, EN+84*, EN+86*, EN+88, EN+90*, OBXHIST+2*, OBXHIST+3*, OBXHIST+5*
, ALLER+2*
HLARYTYP EXIT+3~, EXIT+4*, EXIT+7
HLCS EN+9~, INIT+10*
>> HLDAP RAHLR+19
>> HLDT INIT+1*
>> HLDT1 EN+45, EN+78, INIT+1*
HLECH EN+9~, EN+48, EN+51, EN+58, EN+62, EN+67, EN+73, EN+81, EN+86, OBXHIST+2
, OBXHIST+3, OBXHIST+5, ALLER+2, INIT+8*
HLEID EXIT+3~, EXIT+4*, EXIT+5, EXIT+6, EXIT+7
HLFORMAT EXIT+3~, EXIT+4*, EXIT+7
HLFS EN+9~, EN+33, EN+34, EN+45, EN+58, EN+60, EN+67, EN+68, EN+73, EN+74
, EN+78, EN+81, EN+84, EN+86, EN+88, EN+90, OBXHIST+2, OBXHIST+3, OBXHIST+5, ALLER+2
, INIT+9*
HLMTIEN EXIT+3~, EXIT+4*, EXIT+7
>> HLNDAP RAHLR+19
HLP EXIT+3~, EXIT+5, EXIT+6, EXIT+7
HLP("ERRTEXT" EN+28*
HLP("PRIORITY" EXIT+4*
HLQ EN+9~, EN+60, INIT+7*
HLREP EN+9~, INIT+12*
>> HLRESLT EXIT+7
HLSCS EN+9~, INIT+11*
INT EN+9~, INIT+4*, INIT+5
OBR36 EN+10~, EN+23*, EN+84
PI EN+10~
PI( ALLER+1
RA1 EN+88~*, EN+90!
RA20 EN+64~, EN+66*, EN+67, EN+72*, EN+73
RACANC EN+10~, EN+23*, EN+45, EN+86
RACN0 EN+10~, EN+19*, EN+21, EN+23, EN+39, EN+42, EN+61, EN+62, EN+78, EN+81
, EN+86, OBXHIST+1, OBXHIST+2
RACN00 EN+64~*, EN+66, EN+67, EN+72
>> RACNI EN+17, EN+19, EN+58, OBXHIST+3, OBXHIST+4
RACPT EN+10~, EN+24*
RACPTNDE EN+10~, EN+24*, EN+48, EN+51
>> RADFN EN+17, EN+19, EN+28, EN+33, EN+64, OBXHIST+3, OBXHIST+4, ALLER+1
RADTE EN+10~, EN+23*, EN+58
>> RADTI EN+17, EN+19, EN+23, EN+44, EN+58, EN+64, OBXHIST+3, OBXHIST+4
>> RAEID EN+17, INIT+3
>> RAEXEDT RAHLR+20
>> RAEXMDUN RAHLR+19, EN+45
RAI EN+10~, OBXHIST+4*, OBXHIST+5*, ALLER+1*
RAN EN+10~, OBXPRC+1*, OBXMOD+1*, OBXHIST+2*, OBXHIST+3*, OBXHIST+5*, ALLER+2*
RAOBR4 EN+10~, EN+48*, EN+51*, EN+58
RAORC4 EN+42*, EN+43*, EN+44*, EN+45, EN+46!
RAPART EN+88~*, EN+89!, EN+90!
RAPART(1 EN+88*, EN+90
RAPART(2 EN+88*, EN+90
RAPRCNDE EN+10~, EN+24*, EN+48
RAPROC EN+10~, EN+21*, EN+22, EN+24, EN+48
RAPROCIT EN+10~, EN+22*, EN+23
RAPRV EN+10~, EN+61*, EN+62
>> RASSSX( EXIT+5
>> RASSSX1( EXIT+6
RAVADM EN+28!, EN+36!
RAVADM(3 EN+29*, EN+33
RAX0 EN+10~
U EN+21, EN+22, EN+24, EN+39, EN+42, EN+48, EN+51, EN+66, EN+67, EN+72
, EN+73, EN+81, OBXHIST+2
VA EN+10~, EN+28!
VA("PID" EN+33
VADM EN+10~, EN+28!
VADM(1 EN+28, EN+33
VADM(2 EN+34, EN+43
VADM(3 EN+29
VADM(5 EN+33
VAERR EN+10~, EN+28!
X EN+10~, EN+86*, OBXHIST+4*, ALLER+1*, ALLER+2
X0 EN+10~, EN+38*, EN+39*, EN+45, ALLER+1*
X1 EN+10~
Y EN+10~
ZTDESC RAHLR+21*, RAHLR+22!
ZTDTH RAHLR+21*, RAHLR+22!
ZTIO RAHLR+21*, RAHLR+22!
ZTRTN RAHLR+21*, RAHLR+22!
ZTSAVE RAHLR+22!
ZTSAVE("HLDAP" RAHLR+19*
ZTSAVE("HLNDAP" RAHLR+19*
ZTSAVE("RACNI" RAHLR+21*
ZTSAVE("RADFN" RAHLR+21*
ZTSAVE("RADTI" RAHLR+21*
ZTSAVE("RAEXEDT" RAHLR+20*
ZTSAVE("RAEXMDUN" RAHLR+19*

Marked Items

Name Field # of Occurrence
$T(^RAHLR1 EN+17
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All