Routine: RAUTL16

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD ($$DT,$$FMTE)^XLFDT
Registration	1	(DEM,KVA)^VADPT
VA Fileman	1	^DIR

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC ^%ZTLOAD ($$DT,$$FMTE)^XLFDT

Registration

(DEM,KVA)^VADPT

VA Fileman

^DIR

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RA EXAM/STATUS ITYPE MISMATCH

Package

Total

Caller Graph

Radiology Nuclear Medicine

RA EXAM/STATUS ITYPE MISMATCH

Name	Comments	DBIA/ICR reference
SORT	;
PAUSE	;
MISSING	;
ENTSK	;
HEADER	;
EXIT	;
PRINT	;

Name	Field # of Occurrence
^%ZIS	RAUTL16+4
^%ZISC	EXIT+1
^%ZTLOAD	RAUTL16+7
^DIR	PAUSE+1
DEM^VADPT	SORT+1
KVA^VADPT	EXIT+1, SORT+1
$$DT^XLFDT	ENTSK+22
$$FMTE^XLFDT	ENTSK+22, SORT+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This report requires a 132 column output device." Line Location: RAUTL16+3
Function Call: WRITE	Prompt: ! Line Location: RAUTL16+4
Function Call: WRITE	Prompt: !!,"The imaging type of the visit matches the imaging type" Line Location: ENTSK+26
Function Call: WRITE	Prompt: !,"of the exam status for all current incomplete exams." Line Location: ENTSK+27
Function Call: WRITE	Prompt: !!,RADFN(0),?34,RASSN(0) Line Location: PRINT+6
Function Call: WRITE	Prompt: !?3,RAEXAMDT(0),?25,$J(RACASENO(0),5),?34,RAIMTYPE(0) Line Location: PRINT+7
Function Call: WRITE	Prompt: ?68,RAEXAMST(0),?102,RAIMEXAM(0) Line Location: PRINT+8
Function Call: WRITE	Prompt: !?46,"EXAM STATUS IMAGING TYPE INCONSISTENCIES" Line Location: HEADER+3
Function Call: WRITE	Prompt: ?102,"PAGE: ",RAPAGE,!?102,RATODAY Line Location: HEADER+4
Function Call: WRITE	Prompt: !,"PATIENT",?34,"HRCN" Line Location: HEADER+6
Function Call: WRITE	Prompt: !?3,"EXAM DATE/TIME",?25,"CASE#",?34,"IMAGING TYPE OF VISIT" Line Location: HEADER+7
Function Call: WRITE	Prompt: ?68,"EXAM STATUS",?102,"IMAGING TYPE OF EXAM STATUS",!,RAUNDL Line Location: HEADER+8
Routine Call	DIR Line Location: PAUSE+1
Routine Call	%ZIS Line Location: RAUTL16+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RA(72 - [#72]	ENTSK+15, MISSING+1, SORT+6
^RA(79.2 - [#79.2]	SORT+5, SORT+7
^RADPT - [#70]	ENTSK+6, ENTSK+9, ENTSK+13
^RADPT("AS"	ENTSK+3, ENTSK+5, ENTSK+8, ENTSK+12
^TMP("RAUTL16"	ENTSK+1!, ENTSK+25, ENTSK+30, ENTSK+32, ENTSK+34, ENTSK+36, EXIT+4!, SORT+8*, PRINT+1

Name	Line Occurrences
EXIT	RAUTL16+4, RAUTL16+5, ENTSK+25
HEADER	ENTSK+24, PRINT+9
MISSING	ENTSK+14
PAUSE	ENTSK+25, ENTSK+40, PRINT+9
PRINT	ENTSK+36
SORT	ENTSK+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	RAUTL16+4!*, EXIT+2!
DFN	EXIT+2!, SORT+1*
DIR	EXIT+2!, PAUSE+1!
DIR(0	PAUSE+1*
DIROUT	EXIT+2!
DIRUT	EXIT+4!
DTOUT	EXIT+2!
DUOUT	EXIT+2!
IO	ENTSK+24
IO("Q"	RAUTL16+5
IOF	HEADER+2
IOP	RAUTL16+4!
IOSL	PRINT+9
IOST	PAUSE+1, HEADER+2
POP	RAUTL16+4, EXIT+2!
RA	ENTSK+9, ENTSK+10, ENTSK+13, ENTSK+14, EXIT+2!, SORT+3, PRINT+1, PRINT+2, PRINT+3, PRINT+4 , PRINT+5
RACASENO	ENTSK+14, ENTSK+35, ENTSK+36, EXIT+2!, MISSING+1, SORT+8, PRINT+1
RACASENO(0	PRINT+3*, PRINT+7
RAD0	ENTSK+4, ENTSK+5, ENTSK+6, ENTSK+8, ENTSK+9, ENTSK+12, ENTSK+13, EXIT+2!, SORT+8, PRINT+5*
RAD1	ENTSK+7, ENTSK+8, ENTSK+9, ENTSK+12, ENTSK+13, EXIT+2!, SORT+8, PRINT+5*
RAD2	ENTSK+11, ENTSK+12, ENTSK+13, EXIT+2!, SORT+8, PRINT+5*
RADFN	ENTSK+6, ENTSK+29, ENTSK+30*, ENTSK+32, ENTSK+34, ENTSK+36, EXIT+2!, SORT+1, PRINT+1
RADFN(0	SORT+3, SORT+8, PRINT+2, PRINT+6
RAEXAMDT	ENTSK+10, ENTSK+33, ENTSK+34*, ENTSK+36, EXIT+3!, SORT+4, SORT+8, PRINT+1
RAEXAMDT(0	SORT+4, SORT+8, PRINT+2, PRINT+7
RAEXAMST	ENTSK+14, ENTSK+15, EXIT+3!, MISSING+1, SORT+6
RAEXAMST(0	SORT+6, SORT+8, PRINT+4, PRINT+8
RAEXIT	ENTSK+22, ENTSK+29, ENTSK+30, ENTSK+32, ENTSK+34, ENTSK+36, ENTSK+40, EXIT+3!, PAUSE+1*, HEADER+1
RAIMAGE	ENTSK+2, ENTSK+3, ENTSK+5, ENTSK+8, ENTSK+12, EXIT+3!
RAIMEXAM	ENTSK+15, ENTSK+16, EXIT+3!, MISSING+1, SORT+7
RAIMEXAM(0	SORT+7, SORT+8, PRINT+4, PRINT+8
RAIMTYPE	ENTSK+10*, ENTSK+16, EXIT+3!, SORT+5
RAIMTYPE(0	SORT+5, SORT+8, PRINT+3, PRINT+7
RAPAGE	ENTSK+22, EXIT+3!, HEADER+2, HEADER+4
RASSN	ENTSK+31, ENTSK+32, ENTSK+34, ENTSK+36, EXIT+3!, SORT+3*, SORT+8, PRINT+1
RASSN(0	SORT+3, SORT+8, PRINT+2, PRINT+6
RATODAY	ENTSK+22*, EXIT+4!, HEADER+4
RAUNDL	ENTSK+23!*, EXIT+4!, HEADER+8
U	ENTSK+6, ENTSK+10, ENTSK+14, ENTSK+15, MISSING+1, SORT+3, SORT+5, SORT+6, SORT+7, SORT+8 , PRINT+2, PRINT+3, PRINT+4, PRINT+5
>> VA("PID"	SORT+3
>> VADM(1	SORT+3
X	EXIT+4!
Y	EXIT+4!, PAUSE+1
ZTDESC	RAUTL16+6*, EXIT+4!
>> ZTQUEUED	EXIT+1
>> ZTREQ	EXIT+1*
ZTRTN	RAUTL16+7*, EXIT+4!

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAUTL16

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: