Routine: RAUTL16A

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

Entry Points

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

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This report requires a 132 column output device." Line Location: RAUTL16A+3
Function Call: WRITE	Prompt: ! Line Location: RAUTL16A+4
Function Call: WRITE	Prompt: !!,"The imaging type of the visit matches the imaging type" Line Location: ENTSK+25
Function Call: WRITE	Prompt: !,"of the exam status for all current incomplete exams." Line Location: ENTSK+26
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,"SSN" Line Location: HEADER+5
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: RAUTL16A+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RA(72 - [#72]	ENTSK+15, MISSING+5, SORT+6
^RA(79.2 - [#79.2]	SORT+5, SORT+7
^RADPT - [#70]	ENTSK+3, ENTSK+4, ENTSK+6, ENTSK+7, ENTSK+11, ENTSK+12
^TMP("RAUTL16"	ENTSK+1!, ENTSK+24, ENTSK+29, ENTSK+31, ENTSK+33, ENTSK+35, EXIT+4!, SORT+8*, PRINT+1

Label References

Name	Line Occurrences
EXIT	RAUTL16A+4, RAUTL16A+5, ENTSK+24
HEADER	ENTSK+23, PRINT+9
MISSING	ENTSK+9, ENTSK+14
PAUSE	ENTSK+24, ENTSK+39, PRINT+9
PRINT	ENTSK+35
SORT	ENTSK+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	RAUTL16A+4!*, EXIT+2!
DFN	EXIT+2!, SORT+1*
DIR	EXIT+2!, PAUSE+1!
DIR(0	PAUSE+1*
DIROUT	EXIT+2!
DTOUT	EXIT+2!
DUOUT	EXIT+2!
IO	ENTSK+23
IO("Q"	RAUTL16A+5
IOF	HEADER+2
IOP	RAUTL16A+4!
IOSL	PRINT+9
IOST	PAUSE+1, HEADER+2
POP	RAUTL16A+4, EXIT+2!
RA	ENTSK+7, ENTSK+8, ENTSK+12, ENTSK+13, EXIT+2!, SORT+3, PRINT+1, PRINT+2, PRINT+3, PRINT+4 , PRINT+5
RACASENO	ENTSK+13, ENTSK+14, ENTSK+34, ENTSK+35, EXIT+2!, MISSING+3, SORT+8, PRINT+1
RACASENO(0	PRINT+3*, PRINT+7
RAD0	ENTSK+2, ENTSK+3, ENTSK+4, ENTSK+6, ENTSK+7, ENTSK+11, ENTSK+12, EXIT+2!, SORT+8, PRINT+5*
RAD1	ENTSK+5, ENTSK+6, ENTSK+7, ENTSK+11, ENTSK+12, EXIT+2!, SORT+8, PRINT+5*
RAD2	ENTSK+10, ENTSK+11, ENTSK+12, EXIT+2!, SORT+8, PRINT+5*
RADFN	ENTSK+4, ENTSK+28, ENTSK+29*, ENTSK+31, ENTSK+33, ENTSK+35, EXIT+2!, SORT+1, PRINT+1
RADFN(0	SORT+3, SORT+8, PRINT+2, PRINT+6
RAEXAMDT	ENTSK+8, ENTSK+9, ENTSK+32, ENTSK+33, ENTSK+35, EXIT+3!, MISSING+1, SORT+4, SORT+8, PRINT+1
RAEXAMDT(0	SORT+4, SORT+8, PRINT+2, PRINT+7
RAEXAMST	ENTSK+13, ENTSK+14, ENTSK+15, EXIT+3!, MISSING+4, MISSING+5, SORT+6
RAEXAMST(0	SORT+6, SORT+8, PRINT+4, PRINT+8
RAEXIT	ENTSK+21, ENTSK+28, ENTSK+29, ENTSK+31, ENTSK+33, ENTSK+35, ENTSK+39, EXIT+3!, PAUSE+1*, HEADER+1
RAIMAGE	EXIT+3!
RAIMEXAM	ENTSK+15, ENTSK+16, EXIT+3!, MISSING+5, SORT+7
RAIMEXAM(0	SORT+7, SORT+8, PRINT+4, PRINT+8
RAIMTYPE	ENTSK+8, ENTSK+9, ENTSK+16, EXIT+3!, MISSING+2, SORT+5
RAIMTYPE(0	SORT+5, SORT+8, PRINT+3, PRINT+7
RAPAGE	ENTSK+21, EXIT+3!, HEADER+2, HEADER+4
RASSN	ENTSK+30, ENTSK+31, ENTSK+33, ENTSK+35, EXIT+3!, SORT+3*, SORT+8, PRINT+1
RASSN(0	SORT+3, SORT+8, PRINT+2, PRINT+6
RATODAY	ENTSK+21*, EXIT+4!, HEADER+4
RAUNDL	ENTSK+22!*, EXIT+4!, HEADER+8
U	ENTSK+4, ENTSK+8, ENTSK+13, ENTSK+15, MISSING+5, 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	RAUTL16A+6*, EXIT+4!
>> ZTQUEUED	EXIT+1
>> ZTREQ	EXIT+1*
ZTRTN	RAUTL16A+7*, EXIT+4!

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAUTL16A

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: