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

Package: Radiology Nuclear Medicine

Routine: RAHLTCPB


Information

RAHLTCPB ; HIRMFO/REL,GJC,BNT,PAV - Rad/Nuc Med HL7 TCP/IP Bridge;05/21/99 ;17 Apr 2019 3:25 PM

Source Information

Source file <RAHLTCPB.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Radiology Nuclear Medicine 8 EN1^RAHLEXF  EN1^RAHLO  (ESIG,VFIER)^RAHLO3  $$PCEXTR^RAHLO4  TELE^RAHLRPTT  $$GETSFLAG^RAHLRU  (,EN1)^RAHLTCPX  EN2^RAUTL20  
Health Level Seven 2 INIT^HLFNC2  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: 8

Package Total Caller Graph
Radiology Nuclear Medicine 7 RA PSCRIBE TCP REPORT  RA SCIMAGE TCP REPORT  RA TALKLINK TCP REPORT  RA VOICE TCP REPORT  RAHLO1  RAHLROUT  RARPTUT  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Build the ^TMP("RARPT-REC" global when we receive the
; 07/05/2006 Remedy Call 124379 message from HL7. If RAHLTCPB is defined, do not broadcast ORM messages. As of the writing
; of patch 71, RAHLTCPB is referenced in RAHLTCPB, UPSTAT^RAUTL0, & UP2^RAUTL1 Generic provider: RADIOLOGY,OUTSIDE SERVICE
PID ; Pick data off the 'PID' segment.
ORC ; Pick data off the 'ORC' segment.
111
OBR ; Pick data off the 'OBR' segment.
112
OBX ; Pick data off the 'OBX' segments
XIT ; RACKYES Indicates that Ack will be sent on the last OBR segment or at Error condition.
XIT1
RPT ; Save off Report Text data.
PAR ; Build text paragraph
P1
P2 ; Set node
; If Addendum and Report text is a space don't process
GENACK ; Compile the 'ACK' segment, generate the 'ACK' message.
FORMAT ; Format report text for Escape Character delimited codes.

External References

Name Field # of Occurrence
INIT^HLFNC2 GENACK+7
GENACK^HLMA1 GENACK+11
EN1^RAHLEXF XIT+2, XIT+4, XIT+7
EN1^RAHLO XIT+4, XIT+7
ESIG^RAHLO3 OBR+43
VFIER^RAHLO3 OBR+27
$$PCEXTR^RAHLO4 OBR+15, OBR+22, OBR+32, OBR+35
TELE^RAHLRPTT EN1+4
$$GETSFLAG^RAHLRU EN1+19
^RAHLTCPX EN1+6
EN1^RAHLTCPX EN1+6
EN2^RAUTL20 112+3
$$DT^XLFDT EN1+14

Used in HL7 Interface

HL7 Protocol Name Call Tags
RA VOICE TCP REPORT
RA PSCRIBE TCP REPORT
RA TALKLINK TCP REPORT
RA SCIMAGE TCP REPORT

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP( OBR+1!*, OBR+8*, OBR+9*, OBR+11*, OBR+21*, OBR+38*, OBR+39*, OBR+40*, OBR+41*, OBR+46
OBR+47*, 112!*, XIT+5, XIT+6!, XIT1+1!, P2+10*
^TMP("RARPT-HL7" EN1+12!, EN1+17*, EN1+18, 111OBR+3, OBX+1, XIT1+2!, RPT+9, RPT+16
^TMP("RARPT-REC" EN1+13!, EN1+14*, EN1+20*, PID+4*, PID+7*, PID+11, PID+15*, OBR+1, XIT+3, XIT+6!*
, XIT1!, RPT+2, P2+6*, P2+9*
^TMP("RARPT-REC-" 112!
^VA(200 - [#200] OBR+26, OBR+29, OBR+34, OBR+37

Label References

Name Line Occurrences
111 111+1
112 OBR+22
FORMAT RPT+13, FORMAT+6
GENACK XIT+2, XIT+4, XIT+7
OBX 112
ORC 112OBX+1
P1 P1+2
P2 RPT+8, RPT+10, RPT+11, RPT+17, P1+2
PAR RPT+15, RPT+16
RPT OBX+12
XIT PID+10, PID+13, OBR+4, OBR+13, OBR+14, OBR+16, OBR+18, OBR+23, OBR+42
XIT1 XIT+2, XIT+3

Naked Globals

Name Field # of Occurrence
^( 111OBR+3, OBX+1, RPT+9, RPT+16
^("RAWHOCHANGE" OBR+41*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT EN1+18*, ORC+2, 111+1*, 111+3*, OBR+3*, OBR+15, OBR+22, OBR+32, OBR+35, 112+2~
OBX+1*, XIT1+3!, RPT+9, RPT+16
CNT1 ORC+2~*, 111*, 111+1, 111+3
>> HL GENACK+7
>> HL("ECH" PID+3, PID+4, OBR+8, OBR+9, OBR+10, OBR+11, OBR+34, OBR+37, OBX+5, RPT+7
FORMAT+2, FORMAT+3, FORMAT+4, FORMAT+5
>> HL("EID" GENACK+10
>> HL("EIDS" GENACK+10
>> HL("ESIG" PID+15
>> HL("ETN" EN1+19
>> HL("FS" PID+1, PID+2, PID+3, PID+4, PID+6, PID+7, 111+1, 111+2, 111+3, OBR+3
OBR+4, OBR+5, OBR+6, OBR+7, OBR+15, OBR+22, OBR+32, OBR+35, OBX+1, OBX+2
OBX+3, OBX+4, OBX+5, OBX+8, OBX+9, RPT+7, RPT+12, P2+2, GENACK+8
>> HL("MID" EN1+7, GENACK+8
>> HL("MTN" EN1+19
>> HL("SAN" EN1+19, EN1+20, GENACK+3, GENACK+4, GENACK+7
>> HL("VER" EN1+6, EN1+19
>> HLA("HLA" GENACK+8*
>> HLARYTYP GENACK+10*, GENACK+11
>> HLEID GENACK+10*, GENACK+11
>> HLEIDS GENACK+10*, GENACK+11
>> HLFORMAT GENACK+10*, GENACK+11
>> HLMTIENS GENACK+11
>> HLNEXT EN1+15
>> HLNODE EN1+16*, EN1+17
>> HLNODE( EN1+16*!, EN1+17
>> HLNODE(1 EN1+16!
>> HLQUIT EN1+15
HLRESLT GENACK+11!
>> I EN1+15*, EN1+17, OBR+46*, P2+10*
II EN1+10~, XIT+5*, XIT+7~, XIT1+1*
>> J EN1+16*, EN1+17*, RPT+9*, RPT+16*
L EN1+10~, RPT+8*, RPT+17*, P1+1*, P1+2, P2+2, P2+9, P2+10
LIN XIT1+3!, RPT+3*, RPT+8*, RPT+9*, RPT+10*, RPT+11*, RPT+17, PAR+1*, P1P1+1
P1+2*, P2+2, P2+6, P2+7*, P2+9, P2+10
MSA1 XIT1+4!, GENACK+2*, GENACK+4*, GENACK+8
OBX2CE OBX+6*, OBX+10*, XIT1+4!, RPT+4
OBXTYP OBX+5*, OBX+7*, OBX+8, OBX+9*, OBX+10*, OBX+11, XIT1+3!, RPT+3, P2+3, P2+6
P2+9, P2+10
Q FORMAT+1~, FORMAT+2*, FORMAT+3*, FORMAT+4*, FORMAT+5*
RACKYES XIT+1~, XIT+2*, XIT+3*, XIT+4*, XIT+7*, GENACK+1
RACN EN1+10~*, 111+4*, OBR+46, 112*, 112+2~, XIT+3, XIT+4~, XIT+5, XIT+7~, XIT1+1
P2+10
RACNI OBR+5!, OBR+9*, OBR+14, 112112+3
RADATE XIT1+3!
>> RADFN PID+4*
RADTCN OBR+7~*, OBR+8, OBR+9, OBR+10*, OBR+11, XIT1+3!
RADTI OBR+5!, OBR+8*, OBR+13, 112112+1, 112+3
RADX XIT1+4!, RPT+10*, RPT+11
RADX1 XIT1+4!, RPT+7*, RPT+8
RADX2 XIT1+4!, RPT+10*
RADX3 XIT1+4!, RPT+11*
RAERR EN1+7!, PID+10*, PID+12*, OBR+4*, OBR+13*, OBR+14*, OBR+16*, OBR+19*, OBR+23*, OBR+30*
OBR+42, OBX+1, OBX+4*, OBX+11*, XIT+2, XIT+3, XIT+4, XIT+5, XIT+7, XIT1+3!
GENACK+4, GENACK+8
RAESIG XIT1+3!
RAHL70 OBR+15!, OBR+22!, OBR+32!, OBR+35!
RAHLD EN1+10~, OBR+15*, OBR+16, OBR+18, OBR+19, OBR+21, OBR+22*, OBR+23, OBR+24, OBR+30
OBR+32*, OBR+33, OBR+34, OBR+35*, OBR+36, OBR+37, XIT1+3!
RAHLTCPB EN1+7*, XIT1+3!
RANODE XIT1+3!, RPT+3*, P2+2, P2+5, P2+6, P2+9, P2+10
RANOSEND EN1+19*, XIT1+4!
RAPRSET EN1+10~*
RAPRSET( 112!, 112+1, 112+3*!
RAPRTSET 112+2~
RARCNT XIT1+3!
RARCNT( P2+3*, P2+6, P2+9, P2+10
RARRR EN1+10~, ORC+2*, 111+4*, OBR+1, OBR+2*, OBR+8, OBR+9, OBR+11, OBR+21, OBR+22
OBR+38, OBR+39, OBR+40, OBR+41, OBR+46, OBR+47, 112XIT+5*, XIT+6, XIT1+1*
P2+10*
RARSDNT EN1+10~, OBR+32*, OBR+34*, OBR+39, OBR+40
RASUB EN1+7*, EN1+13, EN1+14, EN1+20, PID+4, PID+7, PID+11, PID+15, OBR+8, OBR+9
OBR+11, OBR+21, OBR+38, OBR+39, OBR+40, OBR+41, OBR+46, OBR+47, 112+2~, XIT1+4!
RPT+2, P2+6, P2+9, P2+10
RATELE EN1+3~, RPT+14, GENACK+4
RATELEDF EN1+3~
RATELEDR EN1+3~
RATELEKN EN1+3~, RPT+14
RATELENM EN1+3~, RPT+14*
RATELEPI EN1+3~, RPT+14*
RATRSCRP EN1+10~, OBR+35*, OBR+37*, OBR+39
RAVERF OBR+24*, OBR+26, OBR+29*, OBR+30, OBR+38, OBR+39, OBR+41, XIT1+4!
RAXADEDN RPT+1~, RPT+2*, P2+2
SEGMNT EN1+18*, PID+1, PID+2*, PID+3, PID+4, PID+6, PID+7, 111!*, 111+1, 111+2
111+3, OBR+3!*, OBR+4, OBR+5*, OBR+6, OBR+7, OBR+15, OBR+22, OBR+32, OBR+35
OBX+1!*, OBX+2*, OBX+3, OBX+4, OBX+5, OBX+8, OBX+9, XIT1+4!, RPT+7, RPT+12
P2+2
T FORMAT+1~, FORMAT+2*, FORMAT+3*, FORMAT+4*, FORMAT+5*
>> X RPT+7*, RPT+8, RPT+9, RPT+12*, RPT+13, RPT+14*, RPT+16*, RPT+17, PAR+1, FORMAT+1
FORMAT+2*, FORMAT+3*, FORMAT+4*, FORMAT+5*, FORMAT+6
X1 XIT1+3!, RPT+9*, RPT+16*
XX EN1+10~, OBR+46!*, OBR+47, 112+3!
XXX OBR+47~*
>> Y FORMAT+1*, FORMAT+2*, FORMAT+3*, FORMAT+4*, FORMAT+5*

Marked Items

Name Field # of Occurrence
$T(^RAHLTCPX EN1+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in HL7 Interface |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All