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 |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: RAHLBMS

Package: Radiology Nuclear Medicine

Routine: RAHLBMS


Information

RAHLBMS ;HIRMFO/REL,GJC-Bridge, MedSpeak compatible to HL7 v1.6 ;11/18/97 12:12

Source Information

Source file <RAHLBMS.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Health Level Seven 2 INIT^HLFNC2  GENACK^HLMA1  
Radiology Nuclear Medicine 2 EN1^RAHLO  $$PCEXTR^RAHLO4  
Kernel 1 $$DT^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
P2 ; Set node
PAR ; Build text paragraph
P1
RPT ; Save off Report Text data.
VFIER ; Check if the RAVERF string is a partial match to an entry in file
; 200. If if is, check to see that is a partial match to only ONE
; active provider entry in file 200.
PID ; Pick data off the 'PID' segment.
XIT1
EN1 ; Build the ^TMP("RARPT-REC" global when we receive the
; message from HL7.
XIT ; Clean up environment, quit
OBX ; Pick data off the 'OBX' segments
GENACK ; Compile the 'ACK' segment, generate the 'ACK' message.
OBR ; Pick data off the 'OBR' segment.

External References

Name Field # of Occurrence
INIT^HLFNC2 XIT+1
GENACK^HLMA1 GENACK+3
EN1^RAHLO XIT+3
$$PCEXTR^RAHLO4 OBR+10, OBR+14
$$DT^XLFDT EN1+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("RARPT-HL7" EN1+3!, EN1+7*, EN1+8, OBR+1, OBX+1, XIT1+1!, RPT+3
^TMP("RARPT-REC" EN1+4!, EN1+5*, EN1+6*, PID+4*, PID+7*, PID+12*, OBR+6*, OBR+7*, OBR+8*, OBR+13*
, OBR+27*, XIT+3, XIT1!, P2+2*
^VA(200 - [#200] OBR+18, OBR+22, VFIER+7, VFIER+11, VFIER+12

Label References

Name Line Occurrences
GENACK XIT+2, XIT+3
P1 P1+2
P2 RPT+4, P1+2
PAR RPT+2, RPT+3
RPT OBX+6
VFIER OBR+19
XIT PID+10, OBR+2, OBR+11, OBR+12, OBR+15, OBR+25
XIT1 XIT+2

Naked Globals

Name Field # of Occurrence
^( OBR+1, OBX+1, RPT+3
^("RASTAFF" OBR+27*
^("RATRANSCRIPT" OBR+27*
^("RAWHOCHANGE" OBR+27*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT EN1+8*, OBR+1*, OBR+10, OBR+14, OBX+1*, XIT1+2!, RPT+3
DT VFIER+13
>> HL XIT+1
>> HL("ECH" PID+3, PID+4, OBR+6, OBR+7, OBR+8
>> HL("EID" GENACK+2
>> HL("EIDS" GENACK+2
>> HL("ESIG" PID+12
>> HL("FS" PID+1, PID+2, PID+3, PID+4, PID+6, PID+7, OBR+1, OBR+2, OBR+3, OBR+4
, OBR+5, OBR+10, OBR+14, OBX+1, OBX+2, OBX+3, OBX+4, RPT+2, GENACK+1
>> HL("MID" EN1+2, GENACK+1, GENACK+2
>> HLA("HLA" GENACK+1*
>> HLARYTYP GENACK+2*, GENACK+3
>> HLEID GENACK+2*, GENACK+3
>> HLEIDS GENACK+2*, GENACK+3
>> HLFORMAT GENACK+2*, GENACK+3
>> HLMTIENS GENACK+3
>> HLNEXT EN1+7
>> HLNODE EN1+7
>> HLNODE( EN1+7
>> HLQUIT EN1+7
>> HLRESLTA GENACK+2*
>> HLRESTLA GENACK+3
>> I EN1+7*
>> J EN1+7*, RPT+3*
>> L RPT+4*, P1+1*, P1+2, P2+2
LIN XIT1+2!, RPT+1*, RPT+4, PAR+1*, P1, P1+1, P1+2*, P2+2
>> OBXTYP OBX+4*, OBX+5, RPT+1, P2+1, P2+2
OBXTYPE XIT1+2!
RADATE XIT1+2!
RADTCN OBR+5~*, OBR+6, OBR+7, OBR+8, XIT1+2!
RAERR EN1+2!, PID+10*, OBR+2*, OBR+11*, OBR+12*, OBR+15*, OBR+23*, OBR+25, OBX+1, OBX+3*
, OBX+5*, XIT+2, XIT+3, XIT1+2!, GENACK+1, VFIER+3*, VFIER+19*, VFIER+20*, VFIER+21*
RAESIG XIT1+2!
RAHL70 OBR+10!, OBR+14!
RAHLD OBR+10*, OBR+11, OBR+12, OBR+13, OBR+14*, OBR+15, OBR+16, XIT1+2!
RANODE XIT1+2!, RPT+1*, P2+2
RARCNT XIT1+2!
RARCNT( P2+1*, P2+2
RASUB EN1+2*, EN1+4, EN1+5, EN1+6, PID+4, PID+7, PID+12, OBR+6, OBR+7, OBR+8
, OBR+13, OBR+27, XIT1+3!, P2+2
RAVCNT VFIER+4!, VFIER+6*, VFIER+7, VFIER+11, VFIER+13*, VFIER+14, VFIER+19, VFIER+20, VFIER+22!
RAVERF OBR+16*, OBR+18, OBR+22*, OBR+23, OBR+27, XIT1+3!, VFIER+3, VFIER+5, VFIER+6, VFIER+7
, VFIER+21*
RAVIEN VFIER+4!, VFIER+10*, VFIER+11*, VFIER+12, VFIER+14, VFIER+22!
RAVIEN( VFIER+14*
RAVIEN(1 VFIER+21
RAVLGTH VFIER+4!, VFIER+5*, VFIER+7, VFIER+22!
RAVPS VFIER+4!, VFIER+12*, VFIER+13, VFIER+22!
>> RAVS1 VFIER+6*, VFIER+7*, VFIER+11
SEGMNT EN1+8*, PID+1, PID+2*, PID+3, PID+4, PID+6, PID+7, OBR+1!*, OBR+2, OBR+3*
, OBR+4, OBR+5, OBR+10, OBR+14, OBX+1!*, OBX+2*, OBX+3, OBX+4, XIT1+3!, RPT+2
>> X RPT+2*, RPT+3*, RPT+4, PAR+1
X1 XIT1+2!, RPT+3*
Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All