Routine: RAHLEX1

Information

RAHLEX1 ;HIRMFO/REL,CRT - RAD/NUC MED HL7 Voice Reporting Exception Protocols ; 02/02/99

Source Information

Source file <RAHLEX1.m>

Call Graph

Call Graph Total: 15

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
Registration	1	CLEAR^VALM1

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Radiology Nuclear Medicine	2	RAHLEX RAHLEX1

Entry Points

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

External References

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

Interaction Calls

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	%ZIS Line Location: DEVICE+20 END+6
Routine Call	DIR Line Location: WAIT+6 RESEND1+5 DELETE1+5
Routine Call	%ZIS Line Location: DEVICE+3

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

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

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Label References

Local Variables

Legend: