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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: RAHLTCPX

Package: Radiology Nuclear Medicine

Routine: RAHLTCPX


Information

RAHLTCPX ;HIRMFO/RTK,RVD,GJC - Rad/Nuc Med HL7 TCP/IP Bridge; Sep 21, 2023@07:58:28

Source Information

Source file <RAHLTCPX.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Radiology Nuclear Medicine 7 ASTATUS^RAHLACK  ENX^RAHLEXF  EN1^RAHLO  ESIG^RAHLO3  $$GETSFLAG^RAHLRU  ($$VFIER,PARSEG,SR)^RAHLRU1  EN2^RAUTL20  
Health Level Seven 1 GENACK^HLMA1  
Kernel 1 $$DT^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: 1

Package Total Caller Graph
Radiology Nuclear Medicine 1 RAHLTCPB  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Main entry point; Build the ^TMP("RARPT-REC" global
INIT ; -- initialize
PROCESS ; -- pull message text
MSH ;
PID ; Pick data off the 'PID' segment.
PV1 ;Ignored at this time.
ORC ; Pick data off the 'ORC' segment
OBR ; Pick data off the 'OBR' segment.
112 ;
OBX ; Pick data off the 'OBX' segments
XIT ;
XIT1
ERR ;
DEESC(RASTR) ;Replace escape sequences with their field separator and escape character
GENACK ; Compile the 'ACK' segment, generate the 'ACK' message.
OBX3 ;set the values for OBX-3.1 & OBX-3.2

External References

Name Field # of Occurrence
GENACK^HLMA1 GENACK+11
ASTATUS^RAHLACK GENACK+13
ENX^RAHLEXF ERR+4
EN1^RAHLO XIT+2, XIT+5
ESIG^RAHLO3 OBR+73
$$GETSFLAG^RAHLRU INIT+7
$$VFIER^RAHLRU1 OBR+50, OBR+71
PARSEG^RAHLRU1 PROCESS+6
SR^RAHLRU1 OBR+52, OBR+61
EN2^RAUTL20 112+4
$$DT^XLFDT INIT+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT("SSN" PID+16
^RADPT("ADC" OBR+21, OBR+22, OBR+32, OBR+33
^RADPT("ADC1" OBR+25, OBR+26, OBR+27, OBR+31
^TMP( OBR+8!*, OBR+38*, OBR+39*, OBR+40*, OBR+47*, OBR+55*, OBR+56*, OBR+64*, OBR+65*, OBR+66*
, OBR+72*, OBR+75, OBR+76*, 112+1!*, OBX+41*, OBX+48*, XIT+3, XIT+4!, XIT1+1!
^TMP("RARPT-REC" INIT+3!, INIT+4*, INIT+5*, INIT+6*, PID+19*, PID+22*, OBR+8, OBX+35*, OBX+40*, OBX+45*
, OBX+47*, XIT+2, XIT+4!*, XIT1!
^TMP("RARPT-REC-" 112+1!
^XUSEC("RA VERIFY" OBR+51

Label References

Name Line Occurrences
$$DEESC OBX+29
112 OBR+48
@( PROCESS+7
ERR XIT+1, XIT+2, XIT+5
GENACK ERR+5
INIT EN1+5
PROCESS EN1+5
XIT EN1+5
XIT1 XIT+1, XIT+2, XIT+5

Naked Globals

Name Field # of Occurrence
^("RAWHOCHANGE" OBR+56*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARR EN1+2~, PROCESS+6!, OBR+10~
ARR(1 PROCESS+6*
CNT 112+3~
>> HL("DTM" INIT+9
>> HL("ECH" INIT+11, INIT+12, INIT+13, INIT+14
>> HL("EID" GENACK+10
>> HL("EIDS" GENACK+10
>> HL("ESIG" INIT+6
>> HL("ETN" INIT+7
>> HL("FS" INIT+10, GENACK+9
>> HL("MID" INIT+2, GENACK+9
>> HL("MTN" INIT+7
>> HL("SAN" INIT+5, INIT+7, GENACK+4, GENACK+5, GENACK+13
>> HL("VER" INIT+7
>> HLA("HLA" GENACK+9*
HLARYTYP GENACK+2~, GENACK+10*, GENACK+11
HLCS EN1+2~, INIT+11*, OBR+15, OBR+70, OBX+15, OBX+18, OBX+21, OBX+24, OBX+25
HLDTM EN1+2~, INIT+9*, ERR+4
>> HLECH INIT+14*, DEESC+19, DEESC+20, DEESC+21, DEESC+22
>> HLEID GENACK+10*, GENACK+11
>> HLEIDS GENACK+10*, GENACK+11
HLFORMAT GENACK+2~, GENACK+10*, GENACK+11
HLFS EN1+2~, INIT+10*, PROCESS+4, PROCESS+5, PROCESS+7, DEESC+18
>> HLMTIENS GENACK+11
>> HLNEXT PROCESS+2
>> HLNODE PROCESS+3*, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7
>> HLNODE( PROCESS+3*!
>> HLNODE(1 PROCESS+3!
>> HLQUIT PROCESS+2
>> HLREP INIT+13*, OBR+60
HLRESLT GENACK+11!
HLSCS EN1+2~, INIT+12*
I OBR+60*, OBR+65, OBR+66, OBR+75*, XIT+5~
>> J PROCESS+3*
MSA1 EN1+2~, GENACK+3*, GENACK+5*, GENACK+9
PAR EN1+2~, PROCESS+6!
PAR(2 ORC+10, ORC+11
PAR(20 PID+22
PAR(26 OBR+45, OBR+46, OBR+47, OBR+50, OBR+71
PAR(3 PID+17
PAR(33 OBR+50
PAR(34 OBR+58, OBR+60
PAR(36 OBR+70
PAR(4 PID+16, OBR+15, OBX+14, OBX+15, OBX+18, OBX+21
PAR(6 OBX+27
RACKYES EN1+4~, INIT+2*, XIT+2*, XIT+5*, ERR+3*, GENACK+1
RACN 112+3~
>> RACNI OBR+22*, OBR+27*, OBR+33*, OBR+37, OBR+40, 112+1, 112+4
RACNPPP EN1+4~, INIT+2*, ORC+11*, OBR+75, 112+1*, OBX+41, OBX+48, XIT+2, XIT+3, XIT+5
, XIT1+1
RACSESC DEESC+13~, DEESC+14*, DEESC+19
>> RADFN PID+16*, PID+17*, PID+18, PID+19, OBR+21, OBR+22, OBR+26, OBR+27, OBR+32, OBR+33
RADLIMLEN OBR+15!*, OBR+16!, OBR+20, OBR+25, OBR+31, OBR+36!, OBR+37!, OBR+41!
>> RADTI OBR+21*, OBR+22, OBR+26*, OBR+27, OBR+32*, OBR+33, OBR+36, OBR+39, 112+1, 112+2
, 112+4
RAERR EN1+3~, INIT+2!, PROCESS+9*, PROCESS+10*, PROCESS+11*, PID+18*, OBR+16*, OBR+36*, OBR+37*, OBR+45*
, OBR+46*, OBR+50*, OBR+51*, OBR+53*, OBR+54*, OBR+71*, OBX+14*, OBX+15*, OBX+20*, OBX+25*
, ERR+2, GENACK+5, GENACK+9
>> RAERRCHK XIT+1, XIT+2, XIT+5, ERR+1*, ERR+3*
RAESESC DEESC+13~, DEESC+14*, DEESC+21
RAESIG EN1+3~
RAEXIT EN1+2~, PROCESS+2, PROCESS+8, PID+18*, OBR+45*, OBR+46*, OBR+50*, OBR+51*, OBR+53*, OBR+54*
, OBR+71*, OBX+14*, OBX+15*, OBX+20*, ERR+3*
RAFSESC DEESC+13~, DEESC+14*, DEESC+18
RAHLTCPB EN1+3~, INIT+2*
RAI EN1+2~, OBR+10~, OBX+18*, OBX+24*, OBX+41*, OBX+48*, XIT+3*, XIT+5, XIT1+1*
RAII OBX+38~, OBX+39*
RAL OBX+38~, OBX+39*
>> RALONGCN OBR+15*, OBR+21, OBR+22, OBR+25, OBR+26, OBR+27, OBR+31, OBR+32, OBR+33, OBR+34*
, OBR+38
RANODE EN1+3~, OBX+27*, OBX+35, OBX+40, OBX+41, OBX+45, OBX+47, OBX+48
RANOSEND EN1+3~, INIT+7*
RAOBX3 OBX+13*, OBX+15, OBX+18, OBX+49!
RAOBX3( OBX+18*
RAOBX3(1 OBX+27, OBX+28, OBX+34, OBX+35, OBX+40, OBX+41, OBX+42, OBX+45, OBX+47, OBX+48
RAOBX3(3 OBX+20
RAPRSET EN1+4~
RAPRSET( 112+1!, 112+2, 112+4*!
RAPRTSET 112+3~
RARCNT EN1+2~
RARCNT( OBX+28*, OBX+35, OBX+40, OBX+41, OBX+42*, OBX+45, OBX+47, OBX+48
RARE33 EN1+4~, OBR+60*, OBR+61, OBR+64, OBR+65, OBR+66
RARR OBR+10~, OBR+60*
RARRR EN1+4~, INIT+2*, ORC+10*, ORC+11*, OBR+8, OBR+9*, OBR+38, OBR+39, OBR+40, OBR+47
, OBR+48, OBR+55, OBR+56, OBR+64, OBR+65, OBR+66, OBR+72, OBR+75, OBR+76, 112+1
, OBX+41*, OBX+48*, XIT+3*, XIT+4, XIT1+1*
RARSDNT OBR+10~, OBR+64*, OBR+72
RARSESC DEESC+13~, DEESC+14*, DEESC+20
RASCESC DEESC+13~, DEESC+14*, DEESC+22
RASEG EN1+3~
RASEG("OBR" PROCESS+10, OBR+7*
RASEG("OBX" PROCESS+11, OBX+14*
RASEG("ORC" ORC+10*
RASEG("PID" PROCESS+9, PID+23*
>> RASSN PID+22*
>> RASSNVAL PID+16*
>> RAST32 OBR+50*
RASTR OBX+21*, OBX+24*, OBX+25, OBX+49!, DEESC~, DEESC+18*, DEESC+19*, DEESC+20*, DEESC+21*, DEESC+22*
, DEESC+24
RASTR(0 OBX+21*, OBX+25
RASTRE EN1+4~, OBR+53, OBR+54, OBR+61, OBR+62, OBR+64, OBR+65, OBR+66
RASUB EN1+3~, INIT+2*, INIT+3, INIT+4, INIT+5, INIT+6, PID+19, PID+22, OBR+38, OBR+39
, OBR+40, OBR+47, OBR+55, OBR+56, OBR+64, OBR+65, OBR+66, OBR+72, OBR+75, OBR+76
, 112+3~, OBX+35, OBX+40, OBX+41, OBX+45, OBX+47, OBX+48, ERR+4, GENACK+13
RAT35 EN1+4~, OBR+71*
>> RATELE GENACK+5
RATRANSC OBR+10~, OBR+70*, OBR+71, OBR+72
RAVERF EN1+3~, OBR+10~, OBR+50*, OBR+51, OBR+52, OBR+55, OBR+56, OBR+72
RAX EN1+2~, OBR+10~, OBX+13~, OBX+24*, OBX+27*, OBX+29*, OBX+35, OBX+37*, OBX+39, OBX+44*
, OBX+45, OBX+47, OBX+48
RAX1 OBR+10~
RAX2 OBR+10~
RAXM OBX+38~, OBX+39*, OBX+40, OBX+41
RAXX EN1+2~, OBR+75!*, OBR+76, 112+4!
RAXXX OBR+76~*
RAY EN1+2~
RAYES DEESC+15~, DEESC+16, DEESC+17*, DEESC+18*, DEESC+19*, DEESC+20*, DEESC+21*, DEESC+22*
RESULT GENACK+2~, GENACK+11, GENACK+12, GENACK+13
U PROCESS+5, PID+16, PID+17, OBR+53, OBX+35, OBX+37, GENACK+13

Marked Items

Name Field # of Occurrence
$T(OBX3+RAI OBX+24
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All