Routine: RAHLEX1

Package	Total	Call Graph
VA FileMan	5	(NOW,YX)^%DTC EN^DDIOL ^DIK $$GET1^DIQ ^DIR
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$REPEAT^XLFSTR
Radiology Nuclear Medicine	4	(DISDATE,SETTMP)^RAHLEX (FORMAT,HEADER,WAIT)^RAHLEX1 CLOSE^RAUTL STOPCHK^RAUTL9
Health Level Seven	1	($$REPROC,$$SETPURG)^HLUTIL
List Manager	1	CLEAR^VALM1

Package

Total

Call Graph

VA FileMan

(NOW,YX)^%DTC EN^DDIOL ^DIK $$GET1^DIQ ^DIR

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$REPEAT^XLFSTR

Radiology Nuclear Medicine

(DISDATE,SETTMP)^RAHLEX (FORMAT,HEADER,WAIT)^RAHLEX1 CLOSE^RAUTL STOPCHK^RAUTL9

Health Level Seven

($$REPROC,$$SETPURG)^HLUTIL

List Manager

CLEAR^VALM1

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Package	Total	Caller Graph
Radiology Nuclear Medicine	7	RA HL7 EXCEPTIONS DELETE RA HL7 EXCEPTIONS NEXT RA HL7 EXCEPTIONS PREVIOUS RA HL7 EXCEPTIONS PRINT RA HL7 EXCEPTIONS RESEND RAHLEX RAHLEX1
Kernel	1	^ORD(101

Package

Total

Caller Graph

Radiology Nuclear Medicine

RA HL7 EXCEPTIONS DELETE RA HL7 EXCEPTIONS NEXT RA HL7 EXCEPTIONS PREVIOUS RA HL7 EXCEPTIONS PRINT RA HL7 EXCEPTIONS RESEND RAHLEX RAHLEX1

Kernel

^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Print Exception List Protocol - Called from ListMan ONLY
DEVICE	; Select device to print report
PRINT	; Start printing the report to the requested device - using ^TMP ; RAPN = Page Number ; WAIT = "^" if user has requested to quit prematurely
END	;
WAIT	; Prompt user to hit RETURN for next page
HEADER	; Report/Page Header
FORMAT	; Format of Report
NXTAPP(DIR)	; Next or Previous Exception Protocol ; VALMLST = Last ListMan Line Displayed ; VALMBG = First ListMan Line Displayed
NEND
RESEND	; Re-Submit an HL7 Message Protocol
RESEND1
REND
RESH	; Extended help
DELETE	; Function to delete Exception Node
DELETE1
DEND
DELH

Name	Field # of Occurrence
NOW^%DTC	HEADER+6
YX^%DTC	HEADER+6, RESEND1+26, DELETE1+20
^%ZIS	DEVICE+3
HOME^%ZIS	DEVICE+20, END+6
^%ZISC	DEVICE+20
^%ZTLOAD	DEVICE+16
EN^DDIOL	PRINT+26, PRINT+27, HEADER+21, FORMAT+15, RESEND+3, RESEND1+11, RESEND1+15, RESH+1, RESH+2, DELETE+3 , DELETE1+11, DELETE1+15, DELH, DELH+1
^DIK	RESEND1+28, DELETE1+18
$$GET1^DIQ	RESEND1+14, DELETE1+14
^DIR	WAIT+6, RESEND1+5, DELETE1+5
$$REPROC^HLUTIL	RESEND1+18
$$SETPURG^HLUTIL	RESEND1+24
DISDATE^RAHLEX	FORMAT+3
SETTMP^RAHLEX	PRINT+10
FORMAT^RAHLEX1	PRINT+23
HEADER^RAHLEX1	PRINT+15, PRINT+20, PRINT+25
WAIT^RAHLEX1	PRINT+15, PRINT+20, PRINT+25, PRINT+28
CLOSE^RAUTL	END+5
STOPCHK^RAUTL9	PRINT+22
CLEAR^VALM1	EN+2
$$REPEAT^XLFSTR	HEADER+4, HEADER+18

Name

Field # of Occurrence

NOW^%DTC

HEADER+6

YX^%DTC

HEADER+6, RESEND1+26, DELETE1+20

DEVICE+3

DEVICE+20, END+6

DEVICE+20

DEVICE+16

PRINT+26, PRINT+27, HEADER+21, FORMAT+15, RESEND+3, RESEND1+11, RESEND1+15, RESH+1, RESH+2, DELETE+3
, DELETE1+11, DELETE1+15, DELH, DELH+1

^DIK

RESEND1+28, DELETE1+18

$$GET1^DIQ

RESEND1+14, DELETE1+14

^DIR

WAIT+6, RESEND1+5, DELETE1+5

RESEND1+18

RESEND1+24

FORMAT+3

PRINT+10

PRINT+23

PRINT+15, PRINT+20, PRINT+25

WAIT^RAHLEX1

PRINT+15, PRINT+20, PRINT+25, PRINT+28

END+5

PRINT+22

EN+2

HEADER+4, HEADER+18

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"Request Queued, Task #: "_$G(ZTSK) Line Location: DEVICE+17
Function Call: WRITE	Prompt: !?5,"Request Cancelled" Line Location: DEVICE+18
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+3
Function Call: WRITE	Prompt: $C(7) Line Location: RESEND1+25
Routine Call	DIR Line Location: WAIT+6 RESEND1+5 DELETE1+5
Routine Call	%ZIS Line Location: DEVICE+3
Routine Call	%ZIS Line Location: DEVICE+20 END+6

FileNo	Call Tags
^RA(79.3 - [#79.3]	Classic Fileman Calls, GET1^DIQ

FileNo

Call Tags

^RA(79.3 - [#79.3]

Classic Fileman Calls, GET1^DIQ

Name	Line Occurrences
DELETE1	DELETE1+9
END	DEVICE+3, DEVICE+21, PRINT+25
NEND	NXTAPP+6
PRINT	DEVICE+5
RESEND1	RESEND1+9

Name

Line Occurrences

DELETE1

DELETE1+9

END

DEVICE+3, DEVICE+21, PRINT+25

NEND

NXTAPP+6

DEVICE+5

RESEND1

RESEND1+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END+3!
%H	RESEND1+26, REND!, DELETE1+20, DEND!
%X	DEVICE+20!
%XX	DEVICE+20!
%Y	DEVICE+20!
%YY	DEVICE+20!
%ZIS	DEVICE+2*, DEVICE+3!
%ZIS("A"	DEVICE+2*
%ZIS("B"	DEVICE+2*
DA	RESEND1+28, REND!, DELETE1+18, DEND!
DIK	RESEND1+28, REND!, DELETE1+18, DEND!
DIR	WAIT+6!, NXTAPP~, NXTAPP+4*, NXTAPP+6, NEND!, RESEND1!, RESEND1+5!, DELETE1!, DELETE1+5!
DIR("?"	WAIT+5, RESEND1+3, DELETE1+3*
DIR("??"	WAIT+5, RESEND1+4, DELETE1+4*
DIR("A"	RESEND1+2, DELETE1+2
DIR(0	WAIT+4, RESEND1+1, DELETE1+1*
DTOUT	DEVICE+3!, END+4!, RESEND1+5, DELETE1+5
DUOUT	DEVICE+3!, END+4!
HL	REND+2!
>> HL7EX	RESEND+4, RESEND1+1, RESEND1+2, DELETE+4, DELETE1+1, DELETE1+2
HLA	REND+2!
HLARYTYP	REND+2!
HLECH	REND+2!
HLEID	REND+2!
HLEIDS	REND+3!
HLFORMAT	REND+2!
HLFS	REND+2!
HLHDR	REND+2!
HLIEN	RESEND1+14, RESEND1+15, RESEND1+18, RESEND1+23, REND!, DELETE1+14, DEND!
HLMTIENS	RESEND1+23*, REND!
HLQ	REND+2!
HLRESLTA	REND+2!
IO	PRINT+12
IO("Q"	DEVICE+5, DEVICE+20!
IOF	HEADER+3
>> IOINHI	RESEND1+27, DELETE1+21
>> IOINORM	RESEND1+27, DELETE1+21
IOSL	PRINT+20, PRINT+25
IOST	WAIT+2
NOW	END+3!, HEADER+6*, HEADER+16, HEADER+17, HEADER+22!
PAGE	HEADER+8*, HEADER+11, HEADER+12, HEADER+22!
POP	DEVICE+3!
PURGE	RESEND1+24*, RESEND1+25, REND!
RACN	PRINT+18*, PRINT+19, PRINT+21, END+3!, FORMAT+10
RADATE	PRINT+16*, PRINT+17, PRINT+18, PRINT+19, PRINT+21, END+3!
RADPT	PRINT+17*, PRINT+18, PRINT+19, PRINT+21, END+3!, FORMAT+8
RADSP	FORMAT+2!, FORMAT+15, FORMAT+16!
RADSP(1	FORMAT+4, FORMAT+5
RADSP(2	FORMAT+6, FORMAT+7
RADSP(3	FORMAT+8, FORMAT+9
RADSP(4	FORMAT+10, FORMAT+11
RADSP(5	FORMAT+12, FORMAT+13
RADSP(6	FORMAT+14*
RAEXCP	PRINT+21*, END+3!, FORMAT+12
RAHDR	HEADER+2!, HEADER+21, HEADER+22!
RAHDR(1	HEADER+4, HEADER+5
RAHDR(2	HEADER+9, HEADER+10
RAHDR(3	HEADER+11, HEADER+12
RAHDR(4	HEADER+14, HEADER+15
RAHDR(5	HEADER+16, HEADER+17
RAHDR(6	HEADER+18, HEADER+19
RAHDR(7	HEADER+20*
RAHLAPP	PRINT+8*, END+2!
>> RAHLEX	RESEND1+9, RESEND1+27, DELETE1+9, DELETE1+21
>> RAHLSEL	NXTAPP+8, NXTAPP+9, NXTAPP+15, RESEND1+7, RESEND1+13, DELETE1+7, DELETE1+13
RAHLSRT	PRINT+6*, PRINT+10, PRINT+14, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+21, END+2!
RAHLUSR	PRINT+7*, END+2!
RAI	RESEND1+7, REND!, DELETE1+7, DEND!
RALINE	NXTAPP+7, NXTAPP+8, NXTAPP+9, NXTAPP+10, NXTAPP+11, NXTAPP+12, NXTAPP+13, NXTAPP+15, NXTAPP+16, NXTAPP+17 , NEND!, RESEND1+8, RESEND1+9, RESEND1+27, REND!, DELETE1+8*, DELETE1+9, DELETE1+21, DEND!
RAPL	PRINT+9*, END+3!
RAPN	PRINT+9, PRINT+15, PRINT+20, PRINT+25, END+3!, HEADER+3, HEADER+8
RASEND	PRINT+14*, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+21, END+3!, HEADER+13
RAUSER	PRINT+19*, PRINT+21, END+3!, FORMAT+6
RAXIEN	RESEND1+7, RESEND1+8, RESEND1+13, RESEND1+14, RESEND1+28, REND!, DELETE1+7, DELETE1+8, DELETE1+13, DELETE1+14 , DELETE1+18, DEND!
RESEND	RESEND1+18*, RESEND1+19, RESEND1+22, REND!
TITLE	HEADER+7, HEADER+9, HEADER+13, HEADER+14, HEADER+22!
VA	REND+3!
VADM	REND+3!
>> VALMBCK	END+7, NXTAPP+5, NXTAPP+13, NXTAPP+17, RESEND+6, RESEND1+5, REND+4, DELETE+6, DELETE1+5, DEND+1
>> VALMBG	NXTAPP+13, NXTAPP+15, NXTAPP+17
>> VALMLST	NXTAPP+7, NXTAPP+10
VALMSG	RESEND+2!, RESEND+5, RESEND1+21, RESEND1+25, DELETE+2!, DELETE+5
WAIT	PRINT+9, PRINT+14, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+22, PRINT+25 , END+4!, WAIT+2, WAIT+7
X	END+3!
XRADATE	FORMAT+4, FORMAT+16!
Y	END+3!, WAIT+7, HEADER+6, RESEND1+5, RESEND1+7, RESEND1+27, REND!, DELETE1+5, DELETE1+7, DELETE1+21 , DEND!
ZTDESC	DEVICE+8*, END+4!
>> ZTQUEUED	PRINT+4, PRINT+22, END+1, HEADER+3
>> ZTREQ	PRINT+5*
ZTRTN	DEVICE+7*, END+4!
ZTSAVE	END+4!
ZTSAVE("RAHL7EDT"	DEVICE+11*
ZTSAVE("RAHL7SDT"	DEVICE+10*
ZTSAVE("^TMP($J,""RAHLAPP"","	DEVICE+12*
ZTSAVE("^TMP($J,""RAHLUSR"","	DEVICE+13*
ZTSK	DEVICE+17, END+4!
ZTSK("D"	DEVICE+17, DEVICE+18
ZTSTOP	PRINT+22, END+4!

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAHLEX1

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Label References

Local Variables

Legend: