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;02/11/08 ;10 Apr 2019 3:05 PM

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+68
$$GETSFLAG^RAHLRU INIT+7
$$VFIER^RAHLRU1 OBR+45, OBR+66
PARSEG^RAHLRU1 PROCESS+6
SR^RAHLRU1 OBR+47, OBR+56
EN2^RAUTL20 112+4
$$DT^XLFDT INIT+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT("SSN" PID+16
^RADPT("ADC" OBR+17, OBR+18, OBR+28, OBR+29
^RADPT("ADC1" OBR+21, OBR+22, OBR+23, OBR+27
^TMP( OBR+8!*, OBR+34*, OBR+35*, OBR+36*, OBR+42*, OBR+50*, OBR+51*, OBR+59*, OBR+60*, OBR+61*
, OBR+67*, OBR+70, OBR+71*, 112+1!*, OBX+39*, 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+38*, XIT+2
, XIT+4!*, XIT1!
^TMP("RARPT-REC-" 112+1!
^XUSEC("RA VERIFY" OBR+46

Label References

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

Naked Globals

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

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+14, OBR+65, 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+55
HLRESLT GENACK+11!
HLSCS EN1+2~, INIT+12*
I OBR+55*, OBR+60, OBR+61, OBR+70*, 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+40, OBR+41, OBR+42, OBR+45, OBR+66
PAR(3 PID+17
PAR(33 OBR+45
PAR(34 OBR+53, OBR+55
PAR(36 OBR+65
PAR(4 PID+16, OBR+13, OBR+14, 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+18*, OBR+23*, OBR+29*, OBR+33, OBR+36, OBR+38, 112+1, 112+4
RACNPPP EN1+4~, INIT+2*, ORC+11*, OBR+70, 112+1*, OBX+39, 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+17, OBR+18, OBR+22, OBR+23, OBR+28, OBR+29
>> RADTI OBR+17*, OBR+18, OBR+22*, OBR+23, OBR+28*, OBR+29, OBR+32, OBR+35, OBR+37, 112+1
, 112+2, 112+4
RAERR EN1+3~, INIT+2!, PROCESS+9*, PROCESS+10*, PROCESS+11*, PID+18*, OBR+37*, OBR+38*, OBR+40*, OBR+41*
, OBR+45*, OBR+46*, OBR+48*, OBR+49*, OBR+66*, 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+40*, OBR+41*, OBR+45*, OBR+46*, OBR+48*, OBR+49*
, OBR+66*, 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+39*, XIT+3*, XIT+5, XIT1+1*
>> RALONGCN OBR+14*, OBR+15, OBR+16, OBR+17, OBR+18, OBR+21, OBR+22, OBR+23, OBR+27, OBR+28
, OBR+29, OBR+30*, OBR+34
RANODE EN1+3~, OBX+27*, OBX+35, OBX+38, OBX+39
RANOSEND EN1+3~, INIT+7*
RAOBX3 OBX+13*, OBX+15, OBX+18, OBX+40!
RAOBX3( OBX+18*
RAOBX3(1 OBX+27, OBX+28, OBX+34, OBX+35, OBX+38, OBX+39
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+38, OBX+39
RARE33 EN1+4~, OBR+55*, OBR+56, OBR+59, OBR+60, OBR+61
RARR OBR+10~, OBR+55*
RARRR EN1+4~, INIT+2*, ORC+10*, ORC+11*, OBR+8, OBR+9*, OBR+34, OBR+35, OBR+36, OBR+42
, OBR+43, OBR+50, OBR+51, OBR+59, OBR+60, OBR+61, OBR+67, OBR+70, OBR+71, 112+1
, OBX+39*, XIT+3*, XIT+4, XIT1+1*
RARSDNT OBR+10~, OBR+59*, OBR+67
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+45*
RASTR OBX+21*, OBX+24*, OBX+25, OBX+40!, DEESC~, DEESC+18*, DEESC+19*, DEESC+20*, DEESC+21*, DEESC+22*
, DEESC+24
RASTR(0 OBX+21*, OBX+25
RASTRE EN1+4~, OBR+48, OBR+49, OBR+56, OBR+57, OBR+59, OBR+60, OBR+61
RASUB EN1+3~, INIT+2*, INIT+3, INIT+4, INIT+5, INIT+6, PID+19, PID+22, OBR+34, OBR+35
, OBR+36, OBR+42, OBR+50, OBR+51, OBR+59, OBR+60, OBR+61, OBR+67, OBR+70, OBR+71
, 112+3~, OBX+35, OBX+38, OBX+39, ERR+4, GENACK+13
RAT35 EN1+4~, OBR+66*
>> RATELE GENACK+5
RATRANSC OBR+10~, OBR+65*, OBR+66, OBR+67
RAVERF EN1+3~, OBR+10~, OBR+45*, OBR+46, OBR+47, OBR+50, OBR+51, OBR+67
RAX EN1+2~, OBR+10~, OBX+13~, OBX+24*, OBX+27*, OBX+29*, OBX+35, OBX+36*, OBX+38, OBX+39
RAX1 OBR+10~
RAX2 OBR+10~
RAXX EN1+2~, OBR+70!*, OBR+71, 112+4!
RAXXX OBR+71~*
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+48, OBX+35, 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