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 |  All
Print Page as PDF
Routine: RAHLRU

Package: Radiology Nuclear Medicine

Routine: RAHLRU


Information

RAHLRU ;HISC/GJC - utilities for HL7 messaging ;03/16/98 11:03

Source Information

Source file <RAHLRU.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Radiology Nuclear Medicine 6 $$BASICMOD^RACPTMSC  GSTATUS^RAHLACK  GETHLP^RAHLRS1  $$ESCAPE^RAHLRU  $$GETTCOM^RAUTL11  MODS^RAUTL2  
Health Level Seven 3 $$HLDATE^HLFNC  INIT^HLFNC2  GENERATE^HLMA  
Kernel 2 $$NOW^XLFDT  ($$PATCH,$$VERSION)^XPDUTL  
VA FileMan 1 $$GET1^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Radiology Nuclear Medicine 9 RAHLR  RAHLR1  RAHLR1A  RAHLRPT  RAHLRPT1  RAHLRPT2  RAHLRU  RAHLTCPB  
RAHLTCPX  

Entry Points

Name Comments DBIA/ICR reference
OBR21(HLECH,RA7002) ;builds the OBR-21 field; called from RAHLR1A
DOB(X) ;strip off trailing "0"'s from the date of birth
OBXMOD ; Compile 'OBX' segments for both types of modifiers
; Procedure modifiers
ESCAPE(XDTA) ;apply the appropriate escape sequence to a string of data
; Insert a escape sequence place holder, then swap the escape sequence
; place holder with the real escape sequence. This action requires two
; passes because the escape sequence uses the escape ("\") character.
; Input: XDTA=data string to be escaped (if necessary)
; HLFS=field separator (global scope; set in INIT^RAHLR)
; HLECH=encoding characters (global scope; set in INIT^RAHLR)
; Return: XDTA=an escaped data string
BLDHLP ;build the HLP("EXCLUDE SUBSCRIBER",n) array
; is HLP("EXCLUDE SUBSCRIBER",n) defined? If yes get 'n'
OBXTCM ; Compile 'OBX' segment for latest TECH COMMENT
HLPEXSUB(A) ;determine the last subscript (n) of a local array
INIT ; initialize HL7 variables; called from RAHLR & RAHLRPT
CPTMOD(RAIEN,HLECH,DT) ;return OBX-5 as it pertains to CPT Modifiers
EXIT ;kill the variables; exit the process...
OBXPRC ;Compile 'OBX' Segment for Procedure
GETSFLAG(SAN,MTN,ETN,VER) ;Return HL message flag (79.721,1)
GENERATE ;Broadcast the HL7 message (courtesy of the VistA HL7 application)
OBX11 ; set OBX-11, = 12th piece of string where piece 1 is "OBX"

External References

Name Field # of Occurrence
$$GET1^DIQ OBR21+26, OBR21+28
$$HLDATE^HLFNC INIT+2
INIT^HLFNC2 INIT+4
GENERATE^HLMA GENERATE+15
$$BASICMOD^RACPTMSC OBXMOD+8, CPTMOD+5
GSTATUS^RAHLACK GENERATE+16
GETHLP^RAHLRS1 GENERATE+6
$$ESCAPE^RAHLRU CPTMOD+9, OBR21+31
$$GETTCOM^RAUTL11 OBXTCM+6
MODS^RAUTL2 OBXMOD+3
$$NOW^XLFDT INIT+2
$$PATCH^XPDUTL OBXTCM+3
$$VERSION^XPDUTL OBXTCM+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^SC - [#44] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HL(771 - [#771] GETSFLAG+2
^HL(771.2 - [#771.2] GETSFLAG+3
^HL(771.5 - [#771.5] GETSFLAG+5
^HL(779.001 - [#779.001] GETSFLAG+4
^RA(79.1 - [#79.1] OBR21+25
^RA(79.2 - [#79.2] OBR21+20
^RA(79.7 - [#79.7] GETSFLAG+6
^RAMIS(71 - [#71] OBXPRC+2
^RARPT - [#74] OBX11+3, OBX11+9
^UTILITY($J EXIT+6!

Label References

Name Line Occurrences
$$HLPEXSUB BLDHLP+3
BLDHLP GENERATE+10
OBX11 OBXPRC+2, OBXMOD+3, OBXMOD+15, OBXTCM+10

Naked Globals

Name Field # of Occurrence
^(0 OBXPRC+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A HLPEXSUB~
A("EXCLUDE SU BSCRIBER" , HLPEXSUB+3
DT OBXMOD+8, CPTMOD~, CPTMOD+5
EID INIT+2*, INIT+4, INIT+6!
ETN GETSFLAG~, GETSFLAG+1, GETSFLAG+4*, GETSFLAG+6
>> HL INIT+3*, INIT+4
>> HL("ECH" INIT+6, INIT+7, INIT+8, INIT+9
>> HL("FS" INIT+6
>> HL("Q" INIT+5, INIT+6
HL771RF EXIT+1!
HL771SF EXIT+1!
HL7STRG EXIT+1!
HLA EXIT+1!
HLA("HLS" OBX11+7*, OBX11+10*, OBXPRC+1*, OBXPRC+2*, OBXMOD+3*, OBXMOD+9*, OBXMOD+12*, OBXTCM+9*, OBXTCM+11, OBXTCM+12*
, OBXTCM+17, OBXTCM+20*, OBXTCM+21*, OBXTCM+22*
HLARYTYP GENERATE+1~, GENERATE+2*, GENERATE+15, EXIT+1!
HLCS INIT+7*, EXIT+1!
HLDOM EXIT+1!
>> HLDT INIT+2*
>> HLDT1 INIT+2*
HLECH ESCAPE+10, OBXPRC+1, OBXPRC+2, OBXMOD+3, OBXMOD+9, OBXMOD+12, OBXTCM+9, INIT+6*, CPTMOD~, CPTMOD+9
, OBR21~, EXIT+1!
HLEID GENERATE+1~, GENERATE+2*, GENERATE+6, EXIT+1!
HLES EXIT+1!
HLES2 EXIT+1!
HLFORMAT GENERATE+1~, GENERATE+2*, GENERATE+15, EXIT+1!
HLFS OBX11+7, OBX11+10, ESCAPE+10, OBXPRC+1, OBXMOD+3, OBXMOD+9, OBXTCM+9, OBXTCM+12, OBXTCM+20, OBXTCM+21
, OBXTCM+22, INIT+6*, EXIT+2!
HLINSTN EXIT+2!
HLMTIEN GENERATE+1~, GENERATE+2*, GENERATE+15, EXIT+2!
HLN EXIT+2!
HLP BLDHLP+3, GENERATE+1~, GENERATE+6, GENERATE+15, EXIT+2!
HLP( BLDHLP+4*, BLDHLP+7*
HLP("PRIORITY" GENERATE+2*
HLPARAM EXIT+2!
HLPID EXIT+2!
HLQ INIT+6*, EXIT+2!
HLREC EXIT+2!
HLREP INIT+9*, EXIT+2!
HLRESLT GENERATE+15, GENERATE+16!, EXIT+5!
HLRFREQ EXIT+2!
HLSAN EXIT+2!
HLSCS INIT+8*, EXIT+2!
HLSFREQ EXIT+3!
HLTYPE EXIT+3!
HLX EXIT+3!
INT INIT+3*, INIT+4, INIT+6!
MTN GETSFLAG~, GETSFLAG+1, GETSFLAG+3*, GETSFLAG+6
OCXSEG EXIT+3!
OCXTSPI EXIT+3!
RA44Q OBR21+25*, OBR21+26, OBR21+30!
RA44Q(0 OBR21+26*, OBR21+29
RA4Q OBR21+27*, OBR21+28, OBR21+29, OBR21+30!
RA4Q(0 OBR21+28*, OBR21+29
RA7002 OBR21~, OBR21+19, OBR21+24, OBR21+27
RA791Q OBR21+24*, OBR21+25, OBR21+29, OBR21+30!
RA792Q OBR21+19*, OBR21+20, OBR21+30!
RA792Q(0 OBR21+20*, OBR21+22
>> RACN0 OBXPRC+1, OBXPRC+2
>> RACNI OBXTCM+6
>> RADFN OBXTCM+6
>> RADTI OBXTCM+6
>> RAEID INIT+1, INIT+2, GENERATE+2, GENERATE+15, GENERATE+16
RAI OBXMOD+6*, BLDHLP+5~*, BLDHLP+6*, BLDHLP+7
RAIEN CPTMOD~, CPTMOD+5
>> RAN OBX11+7, OBX11+10, OBXPRC+1, OBXPRC+2, OBXMOD+3, OBXMOD+7*, OBXMOD+9, OBXMOD+12, OBXTCM+8*, OBXTCM+9
, OBXTCM+11, OBXTCM+12, OBXTCM+17, OBXTCM+20, OBXTCM+21, OBXTCM+22
RAOBR EXIT+3!
RAORC EXIT+3!
RAPCS OBR21+18*, OBR21+29, OBR21+30!
RAPID EXIT+3!
RAPSS OBR21+18*, OBR21+22, OBR21+29, OBR21+30!
RAPURGE EXIT+3!
RAPV1 EXIT+3!
RAREFDOC EXIT+3!
>> RARPT OBX11+2
RARPTIEN OBX11+1~, OBX11+2*, OBX11+3, OBX11+9
>> RASSS( BLDHLP+4, BLDHLP+6, BLDHLP+7
>> RASSS("EXCLUD E SUBSCRIBER" , GENERATE+10
>> RASSSX( GENERATE+6
RAX OBR21+18~*, OBR21+22*, OBR21+29*, OBR21+31, BLDHLP+2~*, BLDHLP+4, BLDHLP+6, BLDHLP+7
RAY BLDHLP+2~, BLDHLP+3*, BLDHLP+4, BLDHLP+7*
RAZCPT EXIT+3!
RAZDAYCS EXIT+4!
RAZDTE EXIT+4!
RAZMODE EXIT+4!
RAZNME EXIT+4!
RAZORD EXIT+4!
RAZORD1 EXIT+4!
RAZPHONE EXIT+4!
RAZPMOD EXIT+4!
RAZPREG EXIT+4!
RAZPROC EXIT+4!
RAZRPT EXIT+5!
RAZRXAM EXIT+5!
RAZTRANS EXIT+5!
RAZXAM EXIT+5!
SAN GETSFLAG~, GETSFLAG+1, GETSFLAG+2*, GETSFLAG+6
U OBX11+3, CPTMOD+9, GETSFLAG+6, OBR21+19, OBR21+22, OBR21+24, OBR21+25, OBR21+27
UCS ESCAPE+9~, ESCAPE+10*, ESCAPE+12
UEC ESCAPE+9~, ESCAPE+10*, ESCAPE+14, ESCAPE+16, ESCAPE+17, ESCAPE+18, ESCAPE+19, ESCAPE+20
UFS ESCAPE+9~, ESCAPE+10*, ESCAPE+11
URS ESCAPE+9~, ESCAPE+10*, ESCAPE+13
USS ESCAPE+9~, ESCAPE+10*, ESCAPE+15
VER GETSFLAG~, GETSFLAG+1, GETSFLAG+5*, GETSFLAG+6
X OBXPRC+2*, DOB~, DOB+1*, DOB+2*, DOB+3, CPTMOD+5~*, CPTMOD+9
>> X0 OBXMOD+6*, OBXMOD+9
>> X1 OBXMOD+6*, OBXMOD+8
X3 OBXMOD+2~, OBXMOD+8*, OBXMOD+9, OBXMOD+12, OBXTCM+5~, OBXTCM+17*, OBXTCM+18*, OBXTCM+19, OBXTCM+20
X4 OBXTCM+5~, OBXTCM+6*, OBXTCM+7, OBXTCM+11, OBXTCM+12, OBXTCM+17, OBXTCM+19*, OBXTCM+21
XDTA ESCAPE~, ESCAPE+11*, ESCAPE+12*, ESCAPE+13*, ESCAPE+14*, ESCAPE+15*, ESCAPE+16*, ESCAPE+17*, ESCAPE+18*, ESCAPE+19*
, ESCAPE+20*, ESCAPE+21
Y OBX11+1~, OBX11+3*, OBX11+7, OBXMOD+3
Y(1 OBXMOD+4, OBXMOD+6
Y(2 OBXMOD+6
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 |  All