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

Package: Radiology Nuclear Medicine

Routine: RAHLRPT


Information

RAHLRPT ;HISC/CAH AISC/SAW-Compiles HL7 'ORU' Message Type ;06 Mar 2018 3:29 PM

Source Information

Source file <RAHLRPT.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Radiology Nuclear Medicine 4 (,EN)^RAHLRPT1  (INIT,PID,RESEND,SETUP)^RAHLRPTT  GETHLP^RAHLRS1  (INIT,OBX11,OBXMOD,OBXPRC,OBXTCM)^RAHLRU  
Health Level Seven 2 ($$HLDATE,$$HLNAME)^HLFNC  GENERATE^HLMA  
Kernel 2 $$FMTHL7^XLFDT  ($$PATCH,$$VERSION)^XPDUTL  
VA FileMan 2 $$GET1^DIQ  ^DIWP  
Registration 1 DEM^VADPT  

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 RA RPT and RA RPT 2.3 protocol entry action
; Input variables:
; RADFN=file 2 IEN (DFN)
; RADTI=file 70 Exam subrecord IEN (reverse date/time)
; RACNI=file 70 Case subrecord IEN
; RARPT=file 74 Report IEN
; RASSS=List of Subscribers passed into GENERATE^HLMA will be set into HLP array.
; Output variables:
; HLA("HLS", array containing HL7 msg
; RATELREL = 1 Indicates that the text: 'Released for local dictation by National Teleradiology'
; has been included in Impression or Report section
; RATELX = Text used as indication of Release for local dictation... if not set use defauld above...
; RATELE = 1 If RANOSEND is Teleradiology type vendor
NEW ; new variables
EXIT ; set HL7 message type & return to RA RPT protocol
OBR ;Compile 'OBR' Segment
OBXDIA ;Compile 'OBX' Segment for Diagnostic Code
OBXDIA2
OBXIMP ;Compile 'OBX' segment for Impression
OBXMOD ;Compile 'OBX' Segment for Modifiers
OBXPRC ;Compile 'OBX' Segment for Procedure
OBXTCM ;Compile 'OBX' Segment for Tech Comments
OBXRPT ;Compile 'OBX' Segment for Radiology Report Text
RATELREL ;Release the study for local reading

External References

Name Field # of Occurrence
$$GET1^DIQ OBR+7, OBR+28, OBR+33, OBR+37, OBR+44, OBR+49
^DIWP OBXIMP+3, OBXRPT+3
$$HLDATE^HLFNC OBR+6, OBR+21
$$HLNAME^HLFNC OBR+8, OBR+29, OBR+34, OBR+38, OBR+45, OBR+50
GENERATE^HLMA EXIT+8
^RAHLRPT1 NEW+9
EN^RAHLRPT1 NEW+9
INIT^RAHLRPTT EN+21
PID^RAHLRPTT NEW+18
RESEND^RAHLRPTT EXIT+2
SETUP^RAHLRPTT NEW+18
GETHLP^RAHLRS1 EXIT+7
INIT^RAHLRU NEW+4
OBX11^RAHLRU OBXDIA+9, OBXDIA2+10, OBXIMP+1, OBXIMP+4, OBXRPT+1, OBXRPT+4
OBXMOD^RAHLRU OBXMOD+1
OBXPRC^RAHLRU OBXPRC+1
OBXTCM^RAHLRU OBXTCM+1
DEM^VADPT NEW+12
$$FMTHL7^XLFDT OBR+19
$$PATCH^XPDUTL OBXDIA+3, OBXDIA2+4
$$VERSION^XPDUTL OBXDIA+3, OBXDIA2+4

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] OBR+13
^DIC(42 - [#42] OBR+9
^RA(78.3 - [#78.3] OBXDIA+1, OBXDIA2+1
^RA(79.1 - [#79.1] OBR+12
^RADPT - [#70] EN+26, EN+27, OBR+11, OBR+41, OBR+42, OBR+43, OBXDIA+10, OBXDIA2
^RARPT - [#74] OBR+48, OBR+49, OBR+51, OBXIMP+1, OBXIMP+3, OBXRPT+1, OBXRPT+3
^SC - [#44] OBR+9, OBR+13
^UTILITY($J OBXIMP+2!, OBXIMP+4, OBXRPT+2!, OBXRPT+4

Label References

Name Line Occurrences
EXIT NEW+13
NEW EN+29
OBR NEW+18
OBXDIA NEW+18
OBXDIA2 OBXDIA2+11
OBXIMP NEW+18
OBXMOD NEW+18
OBXPRC NEW+18
OBXRPT NEW+18
OBXTCM NEW+18
RATELREL OBXIMP+3, OBXRPT+3

Naked Globals

Name Field # of Occurrence
^( OBXDIA2+1, OBXIMP+3, OBXIMP+4, OBXRPT+3, OBXRPT+4
^(0 OBR+9, OBXIMP+3, OBXIMP+4, OBXRPT+3, OBXRPT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN NEW+2~, NEW+12*
DIWF NEW+2~, OBXIMP+2*, OBXRPT+2*
DIWL NEW+2~, OBXIMP+2*, OBXIMP+4, OBXRPT+2*, OBXRPT+4
DIWR NEW+2~, OBXIMP+2*, OBXRPT+2*
EID NEW+3~
HL NEW+3~, NEW+5
HL("" NEW+6
HL("MTN" EXIT+3*
HL("VER" NEW+9
HLA NEW+3~
HLA("HLS" OBR+57*, OBR+58*, OBXDIA+4*, OBXDIA+8*, OBXDIA2+5*, OBXDIA2+9*, OBXIMP+1*, OBXIMP+4*, OBXRPT+1*, OBXRPT+4*
HLARYTYP EXIT+4~, EXIT+5*, EXIT+8
>> HLDT1 OBR+21
HLECH NEW+3~, OBR+1, OBR+5, OBR+6, OBR+8, OBR+13, OBR+30, OBR+35, OBR+39, OBR+46
, OBR+51, OBXDIA+4, OBXDIA+8, OBXDIA2+5, OBXDIA2+9, OBXIMP+1, OBXIMP+4, OBXRPT+1, OBXRPT+4
HLEID EXIT+4~, EXIT+5*, EXIT+7, EXIT+8
HLFORMAT EXIT+4~, EXIT+5*, EXIT+8
HLFS NEW+3~, OBR+6, OBR+9, OBR+13, OBR+14, OBR+19, OBR+25, OBR+27, OBR+30, OBR+32
, OBR+35, OBR+39, OBR+41, OBR+46, OBR+48, OBR+51, OBR+54, OBR+57, OBXDIA+4, OBXDIA+8
, OBXDIA2+5, OBXDIA2+9, OBXIMP+1, OBXIMP+4, OBXRPT+1, OBXRPT+4
HLMTIEN EXIT+4~, EXIT+5*, EXIT+8
HLP EXIT+4~, EXIT+6*, EXIT+7, EXIT+8
HLP("ERRTEXT" NEW+13*
HLP("PRIORITY" EXIT+5*
HLQ NEW+3~, OBR+6
>> HLRESLT EXIT+8
INT NEW+3~
OBR36 NEW+3~, OBR+18*, OBR+19
RA20 OBR+11~, OBR+12*, OBR+13
RACN0 EN+20~, EN+22, OBR+7, OBR+8, OBR+9, OBR+32, OBR+33, OBR+35, OBR+36, OBR+37
, OBR+39, OBXDIA+1, OBXDIA+4
RACN00 OBR+11~*, OBR+12, OBR+13
RACNI EN+25~, EN+28*, NEW+9, EXIT+2, OBR+6, OBR+41, OBR+42, OBR+43, OBXDIA+10, OBXDIA2
RACPT NEW+2~
RACPTNDE NEW+2~, OBR+1
>> RADFN EN+26, EN+27, NEW+9, NEW+12, EXIT+2, OBR+11, OBR+41, OBR+42, OBR+43, OBXDIA+10
, OBXDIA2
RADTE0 NEW+2~, OBR+6
RADTECN NEW+2~, OBR+6
>> RADTI EN+26, EN+27, NEW+9, EXIT+2, OBR+6, OBR+11, OBR+18, OBR+41, OBR+42, OBR+43
, OBXDIA+10, OBXDIA2
RADTV NEW+2~, OBR+21*!, OBR+25
>> RAEID NEW+9, EXIT+5
RAI NEW+2~, OBXDIA+1*, OBXDIA+4, OBXDIA+8, OBXIMP+3*, OBXIMP+4*, OBXRPT+3*, OBXRPT+4*
RAII EN+25~*, EN+26*, EN+27, EN+28
RAN NEW+2~, NEW+3~, NEW+14*, OBR+56*, OBR+57, OBR+58, OBXDIA+2*, OBXDIA+4, OBXDIA+8, OBXDIA2+3*
, OBXDIA2+5, OBXDIA2+9, OBXIMP+1*, OBXIMP+4*, OBXMOD+1*, OBXPRC+1*, OBXRPT+1*, OBXRPT+4*
RAOBR4 NEW+2~, OBR+1*, OBR+5*, OBR+6
RAPART OBR+54~*, OBR+55!, OBR+57!
RAPART(1 OBR+54*, OBR+57
RAPART(2 OBR+54*, OBR+57
RAPRCNDE NEW+2~, OBR+1
RAPROC NEW+2~, OBR+1
RAPROCIT NEW+2~
RAPRV NEW+2~, OBR+7*, OBR+8
>> RARPT OBR+48, OBR+49, OBR+51, OBXIMP+1, OBXIMP+3, OBXRPT+1, OBXRPT+3
RARPT0 NEW+2~, OBR+6, OBR+21, OBR+25, OBR+27, OBR+28, OBR+30
RASET EN+20~, EN+24*
>> RASSS EXIT+6
>> RASSSX( EXIT+7
RATELE EN+20~, RATELREL+1
RATELREL EN+20~, EXIT+2, RATELREL+1*
RATELX EN+20~, RATELREL+1
RAVADM NEW+3!, EXIT+9!
RAVADM(3 NEW+15*
U EN+22, EN+27, OBR+1, OBR+12, OBR+13, OBXDIA2+1
VADM NEW+3~
VADM(1 NEW+13
VADM(3 NEW+15
VAERR NEW+3~
X NEW+3~, OBXDIA2+1*, OBXDIA2+2, OBXDIA2+5, OBXDIA2+9, OBXIMP+3*, OBXRPT+3*, RATELREL+1
X0 NEW+3~
X1 NEW+3~, OBR+6*, OBR+8*, OBR+9*, OBR+13*, OBR+14*, OBR+19*, OBR+25*, OBR+27*, OBR+30*
, OBR+32*, OBR+35*, OBR+39*, OBR+41*, OBR+46*, OBR+48*, OBR+51*, OBR+54, OBR+58
X2 NEW+3~, OBR+28*, OBR+29, OBR+33*, OBR+34, OBR+37*, OBR+38, OBR+42*, OBR+43*, OBR+44
, OBR+46, OBR+49*, OBR+50, OBXDIA+11*, OBXDIA2*, OBXDIA2+1
XX2 NEW+3~, OBR+44*, OBR+45
Y NEW+3~, OBR+6*, OBR+8*, OBR+29*, OBR+30, OBR+34*, OBR+35, OBR+38*, OBR+39, OBR+45*
, OBR+46, OBR+50*, OBR+51, OBXDIA2+1*, OBXDIA2+5
>> ZTQUEUED NEW+1
>> ZTREQ NEW+1*

Marked Items

Name Field # of Occurrence
$T(^RAHLRPT1 NEW+9
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