Routine: DGNTR1

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
Registration	4	$$GETREC^DGNTAPI $$ASKSTAT^DGNTQ ^VADPT ($$NAME,$$SITE)^VASITE
VA Fileman	1	^DIR

Package

Total

Call Graph

Kernel

(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD ($$FMTE,$$NOW)^XLFDT

Registration

$$GETREC^DGNTAPI $$ASKSTAT^DGNTQ ^VADPT ($$NAME,$$SITE)^VASITE

VA Fileman

^DIR

Package	Total	Caller Graph
Registration	1	DGNT PENDING VERIFICATION LIST

Package

Total

Caller Graph

Registration

DGNT PENDING VERIFICATION LIST

Entry Points

Name	Comments	DBIA/ICR reference
BLDTMP(DGIEN,DGSORT,DGST)	;^TMP("DGNT",$J global builder ; Build TMP file based on sort selection
EN	;Entry point
HEAD(DGDT)	;Print/Display page header
QEN	;Start point for TaskMan queuing
START	;
LOOP(DGSORT)	;Locate all entries that are pending verification
PRINT(DGSORT)	;
DEVICE()	;Allow user selection of output device ; Input: none
EXIT	;
MAN	;Start point for manual report allows sort order and device selection

External References

Name	Field # of Occurrence
^%ZIS	DEVICE+10
HOME^%ZIS	DEVICE+19, EXIT+5
^%ZISC	EXIT+5
^%ZTLOAD	DEVICE+17
$$S^%ZTLOAD	HEAD+7
$$GETREC^DGNTAPI	BLDTMP+17
$$ASKSTAT^DGNTQ	MAN+2
^DIR	PRINT+37, HEAD+8
^VADPT	BLDTMP+21
$$NAME^VASITE	PRINT+11
$$SITE^VASITE	PRINT+9
$$FMTE^XLFDT	PRINT+16, PRINT+28
$$NOW^XLFDT	PRINT+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request "_ZTSK_" Queued!",1:"Request Cancelled!"),! Line Location: DEVICE+18
Function Call: WRITE	Prompt: !!!?20,"** No records to report. **" Line Location: PRINT+19
Function Call: WRITE	Prompt: !,$P(DGLINE,U),?30,$P(DGLINE,U,2),?43,$P(DGLINE,U,3),?47,$P(DGLINE,U,4),?51,$P(DGLINE,U,5),?54,$$FMTE^XLFDT($P(DGLINE,U,6)) Line Location: PRINT+28
Function Call: WRITE	Prompt: !!?5,"Total Patients Pending "_$S(DGST=2:"Documentation",1:"Diagnosis")_" Verification: "_+$G(^TMP("DGNT",$J,"TOT"_DGST)) Line Location: PRINT+30
Function Call: WRITE	Prompt: !!?5,"Total Patients Pending Verification: "_$G(^TMP("DGNT",$J,"TOT")) Line Location: PRINT+36
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+10
Function Call: WRITE	Prompt: !,DGDT,?15,"N/T RADIUM TREATMENT PENDING VERIFICATION REPORT",?70,"Page: ",$G(DGPAGE) Line Location: HEAD+12
Function Call: WRITE	Prompt: !,"STATION: "_$G(DGSTN) Line Location: HEAD+13
Function Call: WRITE	Prompt: !!,"Patient Name",?30,"SSN",?42,"NT",?46,"Avi",?50,"Sub",?54,"Date/Time Entered" Line Location: HEAD+14
Function Call: WRITE	Prompt: !,"-----------------------",?30,"-----------",?42,"---",?46,"---",?50,"---",?54,"----------------------" Line Location: HEAD+15
Routine Call	%ZIS Line Location: DEVICE+19 EXIT+5
Routine Call	DIR Line Location: PRINT+37 HEAD+8
Routine Call	%ZIS Line Location: DEVICE+10

Name	Line Occurrences (* Changed, ! Killed)
^DGNT(28.11	LOOP+7
^TMP("DGNT"	LOOP+4!, BLDTMP+28, BLDTMP+29, BLDTMP+30*, PRINT+18, PRINT+22, PRINT+24, PRINT+27, PRINT+30, PRINT+36 , EXIT+2!

Name	Line Occurrences
$$DEVICE	MAN+4
BLDTMP	LOOP+8
EXIT	START+3
HEAD	PRINT+17, PRINT+25, PRINT+31
LOOP	START+1
MAN	EN+1
PRINT	START+2
START	QEN+1, MAN+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEVICE+7~, DEVICE+9*, EXIT+4!
DFN	BLDTMP+8~, BLDTMP+18*, BLDTMP+19
DGAVI	BLDTMP+9~, BLDTMP+25*, BLDTMP+28
DGDATE	BLDTMP+9~, BLDTMP+27*, BLDTMP+28
DGDDT	PRINT+7~, PRINT+16*, PRINT+17, PRINT+25, PRINT+31
DGDT	HEAD~, HEAD+12
DGFIRST	PRINT+4~
DGHNC	BLDTMP+9~
DGIEN	LOOP+2~, LOOP+5, LOOP+7, LOOP+8, BLDTMP~, BLDTMP+12, BLDTMP+17, BLDTMP+28, PRINT+3~, PRINT+23* , PRINT+24*, PRINT+27
DGLINE	PRINT+4~, PRINT+27*, PRINT+28
DGNAME	BLDTMP+9~, BLDTMP+22*, BLDTMP+28
DGNT	BLDTMP+8~
DGNT("AVI"	BLDTMP+25
DGNT("DFN"	BLDTMP+18
DGNT("EDT"	BLDTMP+27
DGNT("NTR"	BLDTMP+24
DGNT("PRIM"	BLDTMP+20
DGNT("SUB"	BLDTMP+26
DGNTR	BLDTMP+9~, BLDTMP+24*, BLDTMP+28
DGPAGE	PRINT+6~, PRINT+14, PRINT+37, HEAD+8, HEAD+11, HEAD+12
DGQUIT	PRINT+6~, PRINT+13, PRINT+22, PRINT+24, PRINT+26, PRINT+29, PRINT+34, PRINT+37, HEAD+7, HEAD+8 , HEAD+9
DGSITE	PRINT+5~, PRINT+9*, PRINT+10
DGSORT	MAN+1~, MAN+2, MAN+3, START+1, START+2, LOOP~, LOOP+8, BLDTMP~, BLDTMP+14, BLDTMP+16 , PRINT~, PRINT+8*, PRINT+15
DGSSN	BLDTMP+9~, BLDTMP+23*, BLDTMP+28
DGST	BLDTMP~, BLDTMP+13, BLDTMP+28, BLDTMP+29, PRINT+2~, PRINT+21*, PRINT+22, PRINT+24, PRINT+27, PRINT+30 , PRINT+31
DGSTAT	LOOP+3~, LOOP+6*, LOOP+7, LOOP+8
DGSTN	PRINT+5~, PRINT+10, PRINT+12, HEAD+13
DGSTNUM	PRINT+5~, PRINT+10*
DGSTTN	PRINT+5~, PRINT+11*, PRINT+12
DGSUB	BLDTMP+9~, BLDTMP+26*, BLDTMP+28
DGX	DEVICE+7~, DEVICE+17, BLDTMP+8~, BLDTMP+16, BLDTMP+28, PRINT+3~, PRINT+15*, PRINT+20, PRINT+22, PRINT+24 , PRINT+27
DIR	PRINT+37!, HEAD+8!
DIR(0	PRINT+37, HEAD+8
DT	PRINT+11
IO	PRINT+1
IO("Q"	DEVICE+12
IOF	HEAD+10
IOP	DEVICE+7~
IOSL	PRINT+25
IOST	PRINT+37, HEAD+8
OK	DEVICE+7~, DEVICE+8, DEVICE+11, DEVICE+12, DEVICE+20*, DEVICE+21
POP	DEVICE+7~, DEVICE+11, EXIT+4!
U	BLDTMP+23, BLDTMP+28, PRINT+10, PRINT+28
VADM	BLDTMP+9~
VADM(1	BLDTMP+22
VADM(2	BLDTMP+23
X	BLDTMP+10~
X1	BLDTMP+10~
X2	BLDTMP+10~
Y	BLDTMP+10~, PRINT+37, HEAD+8
ZTDESC	DEVICE+13~, DEVICE+16*
>> ZTQUEUED	EN+1, PRINT+34, HEAD+7, EXIT+1, EXIT+3
>> ZTREQ	EXIT+1*
ZTRTN	DEVICE+13~, DEVICE+14*
ZTSAVE	DEVICE+13~
ZTSAVE("DGSORT"	DEVICE+15*
ZTSK	DEVICE+13~, DEVICE+17, DEVICE+18
>> ZTSTOP	HEAD+7*

Customize PDF page

Package: Registration

Routine: DGNTR1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: