Routine: RAHLRU1

Package	Total	Call Graph
Kernel	2	$$DT^XLFDT $$LOW^XLFSTR
VA Fileman	2	FIND^DIC ($$GET1,GETS)^DIQ
Health Level Seven	1	($$HLDATE,$$M11)^HLFNC
Radiology Nuclear Medicine	1	$$NAMCODE^RACPTMSC
Uncategorized	1	($$PID,$$PV1)^MAGDHLS

Package

Total

Call Graph

Kernel

$$DT^XLFDT $$LOW^XLFSTR

VA Fileman

FIND^DIC ($$GET1,GETS)^DIQ

Health Level Seven

($$HLDATE,$$M11)^HLFNC

Radiology Nuclear Medicine

$$NAMCODE^RACPTMSC

Uncategorized

($$PID,$$PV1)^MAGDHLS

Package	Total	Caller Graph
Radiology Nuclear Medicine	39	RAAPI RABTCH RABTCH1 RACNLU RACTRG2 RADEM1 RADLQ1 RADLQ2 RADLQ3 RADLY RADLY1 RAEDPT RAESO RAFLH RAFLH2 RAHLR1 RAHLR1A RAHLRPT1 RAHLRPT2 RAHLTCPX RANMUSE2 RANMUSE3 RAORD61 RAPM RAPM2 RAPMW2 RAPRINT1 RAPROD RAPROS RAPTLU RAREG RARTE RARTE6 RARTR3 RARTUVR3 RASTEXT RAUTL15 RAUTL20 RAUTL3

Package

Total

Caller Graph

Radiology Nuclear Medicine

RAAPI  RABTCH  RABTCH1  RACNLU  RACTRG2  RADEM1  RADLQ1  RADLQ2
RADLQ3  RADLY  RADLY1  RAEDPT  RAESO  RAFLH  RAFLH2  RAHLR1
RAHLR1A  RAHLRPT1  RAHLRPT2  RAHLTCPX  RANMUSE2  RANMUSE3  RAORD61  RAPM
RAPM2  RAPMW2  RAPRINT1  RAPROD  RAPROS  RAPTLU  RAREG  RARTE
RARTE6  RARTR3  RARTUVR3  RASTEXT  RAUTL15  RAUTL20  RAUTL3

Entry Points

Name	Comments	DBIA/ICR reference
DATEPRT(RADTE)	; Return the printable format of the internal date value
VFIER(X1,X2,X3)	; validation of OBR-32 , OBR-33 or OBR-35 ; X1 = value to be Validated/Returned (IEN) ; Note: X1 is passed in as: ID Number (IEN)^Family Name^Given Name ; (in this example "^" is the subcomponent separator) ; X2 = Status ('C'orrected, 'F'inal, or 'R'esults filed, not verified) ; X3 = text 'OBR-32' or 'OBR-33' or 'OBR-33x' or 'OBR 35' ; Return value: 1 = Validation OK ; 0^Error message to be returned to sender
INDT(X1)	;check if MD has inactivation date.
PARPROC(DATA,LAST)	;PROCES DATA
RTNSUB(A)	;return the current first level subscript for the A array ; default is : HLA array ; If array (HLA) is undefined, or only HLA("HLS") defined, return 0
SR(X1)	;'S'taff or 'R'esident and inactive DATE
SPECSRC(RAOIFN)	;Specimen Source OBR-15
SSANVAL(RADFN,RADTI,RACNI)	; Return the value of the Site Specific Acc Number
BLSEG2(YY,JJ,K)	;Split any subsequent times
REPEAT(X,N)	;return a string of HL7 encoding characters; ideal when a field
MAG(XX,RAD)	;Build the HL7 segment from the array passed back from the
PID(RADFN)	;compile the PID segment
PARSEG(ARR,PAR)	;Parse segment from ARR array to PAR array
GETPP(D)	;GET REPEATED FIELDS
BLSEG1	;Split for first time
PV1(RADFN)	;compile the PV1 segment determine if the patient is
BLSEG(SEG,X,ADR)	;
SETUP	; Setup basic examination information
USESSAN()	; Return the value of the parameter used as the switch ; to turn on use of the Site Specific Accession Numbers

Name	Field # of Occurrence
FIND^DIC	VFIER+11
$$GET1^DIQ	INDT+2
GETS^DIQ	SR+6
$$HLDATE^HLFNC	SETUP+6
$$M11^HLFNC	SETUP+6
$$PID^MAGDHLS	PID+7
$$PV1^MAGDHLS	PV1+9
$$NAMCODE^RACPTMSC	SETUP+5
$$DT^XLFDT	INDT+2
$$LOW^XLFSTR	SPECSRC+7

FileNo	Call Tags
^VA(200 - [#200]	FIND^DIC, GET1^DIQ, GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^RA(79 - [#79]	USESSAN+2, USESSAN+3
^RA(79.2 - [#79.2]	SETUP+3
^RADPT - [#70]	SETUP+1, SSANVAL+1
^RAMIS(71 - [#71]	SETUP+3, SETUP+4
^RAMIS(71.2 - [#71.2]	SPECSRC+7
^RAO(75.1 - [#75.1]	SPECSRC+4, SPECSRC+5
^RARPT - [#74]	SETUP+2
^RARRAY(200	SR+11

Name	Line Occurrences
$$RTNSUB	BLSEG+12
BLSEG	PID+9, PV1+40
BLSEG1	BLSEG+27, BLSEG+38
BLSEG2	BLSEG+23, BLSEG+34
GETPP	PARPROC+7, PARPROC+8, PARPROC+10
MAG	PID+8, PV1+10
PARPROC	PARSEG+3, PARSEG+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	RTNSUB~, RTNSUB+3, RTNSUB+4, RTNSUB+5
A1	BLSEG+6~, BLSEG+9, BLSEG+13, BLSEG+25, BLSEG+26, BLSEG+37*, BLSEG1+1, BLSEG1+2, BLSEG1+3, BLSEG1+5
A2	BLSEG+6~, BLSEG+10, BLSEG+21, BLSEG+22, BLSEG+33*, BLSEG1+3, BLSEG1+4, BLSEG1+6, BLSEG2+1, BLSEG2+2 , BLSEG2+3, BLSEG2+4, BLSEG2+7
ADR	BLSEG~, BLSEG+7, BLSEG+8, BLSEG+9, BLSEG+10, BLSEG+12
ARR	PARSEG~
ARR(1	PARSEG+3, PARSEG+4
C	VFIER+8~
D	PARSEG+2~, PARPROC+3, PARPROC+5*, PARPROC+7, PARPROC+8, PARPROC+10, GETPP~, GETPP+1, GETPP+2, GETPP+3 , GETPP+4
D1	PARSEG+2~, GETPP+2!, GETPP+4*
DATA	BLSEG+6~, PARSEG+3*, PARPROC~, PARPROC+2, PARPROC+3, PARPROC+5
DIERR	VFIER+8~, SR+5~
DT	SR+11, SETUP+5
FLDN	PARSEG+2~, PARPROC+2*, PARPROC+3, PARPROC+4, PARPROC+6, PARPROC+7, PARPROC+8, PARPROC+9, PARPROC+11
FLDN1	PARSEG+2~, GETPP+3*
>> HLCS	MAG+12
>> HLECH	PV1+36, BLSEG+12, PARSEG+2
>> HLFS	BLSEG+13, BLSEG+21, BLSEG+22, BLSEG+25, BLSEG+26, BLSEG+33, BLSEG+37, BLSEG1+3, BLSEG1+4, BLSEG1+5 , BLSEG2+4, PARSEG+1, PARPROC+2, PARPROC+5
>> HLQ	SETUP+6
>> HLREP	MAG+11
>> HLSCS	MAG+13
I	MAG+2~, MAG+10, MAG+11, MAG+12, MAG+13, MAG+14, BLSEG+6~, BLSEG+13, BLSEG+14, BLSEG+15 , BLSEG+19, BLSEG+21, BLSEG+22, BLSEG+25, BLSEG+26, BLSEG+33, BLSEG+37, PARSEG+2~, PARSEG+4
I1	MAG+2~, MAG+10, MAG+11, MAG+12, MAG+13
I2	MAG+2~, MAG+11, MAG+12, MAG+13
I3	MAG+2~, MAG+12, MAG+13
II	MAG+2~, MAG+10!, PARSEG+2~, PARPROC+4, PARPROC+5, PARPROC+6, PARPROC+7, PARPROC+8, PARPROC+9, GETPP+2 , GETPP+4
II(	MAG+11, MAG+12, MAG+13
J	BLSEG+6~, BLSEG+19, BLSEG+21, BLSEG+25, BLSEG2+6, PARSEG+2, PARPROC+11*, GETPP+2, GETPP+4
JJ	BLSEG+6~, BLSEG+12, BLSEG+21, BLSEG+23, BLSEG+31, BLSEG1+6, BLSEG2~, BLSEG2+6, PARSEG+2~, GETPP+3* , GETPP+4
K	BLSEG2~, BLSEG2+6
LAST	PARPROC~, PARPROC+6, PARPROC+8, PARPROC+9
N	REPEAT~, REPEAT+5
PAR	PARSEG~
PAR(	GETPP+2, GETPP+4
RA0X	PID+7!, PID+8, PID+9!, PV1+9!, PV1+10, PV1+40!
>> RACN0	SETUP+1*, SETUP+2, SETUP+3
RACNI	SETUP+1, SSANVAL~, SSANVAL+1
>> RACPT	SETUP+4*, SETUP+5
>> RACPTNDE	SETUP+5*
RAD	MAG~
RAD(	MAG+11*, MAG+14!
RADFN	PID~, PID+7, PV1~, PV1+9, SETUP+1, SETUP+6, SSANVAL~, SSANVAL+1
RADIVIEN	USESSAN+2~*, USESSAN+3
RADTE	DATEPRT~, DATEPRT+1
>> RADTE0	SETUP+2, SETUP+6
>> RADTECN	SETUP+2*
RADTI	SETUP+1, SETUP+2, SSANVAL~, SSANVAL+1
>> RAERR	INDT+2*
RAERROR	VFIER+8~, SR+5~
RAERROR("DIERR"	VFIER+13, SR+8
RAINDT	INDT+1~, INDT+2*
RALBL	VFIER+8~, VFIER+9*, VFIER+13, VFIER+15
RAOIFN	SPECSRC~, SPECSRC+4, SPECSRC+5
>> RAPID	PID+8, PID+9
>> RAPRCNDE	SETUP+4*
>> RAPROC	SETUP+3*, SETUP+4
>> RAPROCIT	SETUP+3*
>> RAPV1	PV1+10, PV1+40
>> RAPV1(16	PV1+34, PV1+35, PV1+36, PV1+38*
>> RAPV1(20	PV1+11!
>> RAPV1(3	PV1+11
>> RARPT	SETUP+2
>> RARPT0	SETUP+2*
RARRAY	VFIER+8~, SR+5~
RARRAY(	SR+14
RARRAY("DILIST"	VFIER+15
>> RASET	SETUP+1
RASPSRC	SPECSRC+3~, SPECSRC+8, SPECSRC+10, SPECSRC+12
RASPSRC(0	SPECSRC+7*, SPECSRC+8
RASS	SPECSRC+3, SPECSRC+4, SPECSRC+5, SPECSRC+11!
>> RASTRE	SR+4, SR+8, SR+13, SR+14
>> RAZDTE	PV1+9
>> RAZMODE	PV1+33*, PV1+34
>> RAZORD	PV1+32, PV1+33
RAZPMOD	SPECSRC+5*, SPECSRC+7, SPECSRC+11!
>> RAZPREG	PV1+32*, PV1+35, PV1+38
>> RAZXAM	PV1+32
REMAIN	BLSEG+6~, BLSEG1+2, BLSEG1+6, BLSEG2+2, BLSEG2+6, BLSEG2+7
S	REPEAT+5~*, REPEAT+6
SEG	BLSEG~, BLSEG+13, BLSEG1+3, BLSEG1+5
SS	BLSEG+6~, BLSEG+12, BLSEG+21, BLSEG+25, BLSEG2+6, PARSEG+2~, GETPP+2, GETPP+3, GETPP+4
U	PV1+32, PV1+33, VFIER+15, SR+13, SR+14, SPECSRC+7, SETUP+3, SETUP+4
X	PID+7, PV1+9, REPEAT~, REPEAT+5, BLSEG~, SR+5~, SR+13, SR+14
X(	BLSEG+14, BLSEG+15, BLSEG+19, BLSEG+21, BLSEG+25, BLSEG+33, BLSEG+37
X1	VFIER~, VFIER+11, INDT~, INDT+2, SR~, SR+4, SR+5*, SR+6, SR+11
X2	VFIER~
X3	VFIER~, VFIER+9
XOLD	BLSEG+6~, BLSEG+21, BLSEG+22, BLSEG+25, BLSEG+26
XX	MAG~
XX(1	MAG+10, MAG+11, MAG+12, MAG+13
Y	BLSEG+6~, BLSEG+12, SR+5~, SR+11, SETUP+6*
YY	BLSEG+6~, BLSEG+12, BLSEG+20, BLSEG+23, BLSEG+32, BLSEG+34, BLSEG1+3, BLSEG1+6, BLSEG2~, BLSEG2+5
YYSUB	BLSEG+6~, BLSEG+21, BLSEG+22, BLSEG+33, BLSEG1+4, BLSEG2+4

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAHLRU1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 39

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: