Routine: DG53P600

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
VA Fileman	3	C^%DTC FILE^DIE ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	;
UPDATE(DGENSKIP)	;
ENTER	;
UPDR	;
PRINT	;
CLEANUP	;This entry point will do the update.
DEVICE()	;
REPORT	;This entry point was provided for testing, so that before

External References

Name	Field # of Occurrence
C^%DTC	CLEANUP+8, REPORT+13
^%ZIS	DEVICE+10
HOME^%ZIS	DEVICE+18
^%ZISC	ENTER+3
^%ZTLOAD	DEVICE+16
$$S^%ZTLOAD	HEAD+1
FILE^DIE	UPDR+7
^DIR	PRINT+18, HEAD+2
$$FMTE^XLFDT	PRINT+3
$$NOW^XLFDT	PRINT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This is a one-time update of the Patient File." Line Location: CLEANUP+4
Function Call: WRITE	Prompt: !,"It will correct the TEST PATIENT INDICATOR flag." Line Location: CLEANUP+5
Function Call: WRITE	Prompt: !,"This is a preliminary report by DFN of the Patient file" Line Location: REPORT+9
Function Call: WRITE	Prompt: !,"records which would be affected by the update." Line Location: REPORT+10
Function Call: WRITE	Prompt: !!,"* COUNT OF BAD PATIENT RECORDS"_$S(DGENSKIP:"",1:" UPDATED")_": ",COUNT," *",!! Line Location: PRINT+8
Function Call: WRITE	Prompt: @IOF,!,DGDDT,?15,"DG5.3600 Patient File Update Utility",?70,"Page:",$J(DGPG,5),! Line Location: HEAD+5
Function Call: WRITE	Prompt: X,! Line Location: HEAD+5
Function Call: WRITE	Prompt: ! Line Location: HEAD+6
Function Call: WRITE	Prompt: !,?2,"DFN",?15,"SSN",?26,"Test Patient Indicator",?50,"'ATEST' crossref",! Line Location: HEAD+7
Function Call: WRITE	Prompt: X,! Line Location: HEAD+8
Routine Call	%ZIS Line Location: DEVICE+18
Routine Call	DIE Line Location: UPDR+7
Routine Call	DIR Line Location: PRINT+18 HEAD+2
Routine Call	%ZIS Line Location: DEVICE+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	UPDATE+8, UPDATE+10, UPDATE+12, UPDATE+13, UPDATE+14, UPDATE+18
^DPT("ATEST"	UPDATE+19, UPDR+8!
^XTMP("DG53P600"	CLEANUP+7!, CLEANUP+9, REPORT+12!, REPORT+14, UPDR+4*, PRINT+10, PRINT+12, PRINT+13, PRINT+14

Label References

Name	Line Occurrences
$$DEVICE	CLEANUP+10, REPORT+15
ENTER	CLEANUP+10, REPORT+15
HEAD	PRINT+5, PRINT+11
PRINT	UPDATE+28
UPDATE	ENTER+2
UPDR	UPDATE+23, UPDATE+24, UPDATE+25, UPDATE+26

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEVICE+7~, DEVICE+9*
COUNT	UPDATE+6~, UPDATE+7, UPDR+1, PRINT+6, PRINT+8
DFN	UPDATE+6~, UPDATE+7, UPDATE+8, UPDATE+10, UPDATE+12, UPDATE+13, UPDATE+14, UPDATE+18, UPDATE+19, UPDR+4 , UPDR+6, UPDR+8, PRINT+9, PRINT+10, PRINT+12, PRINT+13, PRINT+14, PRINT+15
DGDDT	PRINT+2~, PRINT+3*, HEAD+5
DGENSKIP	CLEANUP+2~, CLEANUP+3, REPORT+7~, REPORT+8, ENTER+2, ENTER+3, DEVICE+14, UPDATE~, UPDR+5, PRINT+8
DGERR	UPDATE+6~
DGFDA	UPDATE+6~
DGFDA(2	UPDR+6*
DGFLG	UPDATE+6~, UPDATE+18, UPDATE+21, UPDATE+23, UPDATE+25, UPDR+2, UPDR+4, PRINT+13*, PRINT+15
DGPG	PRINT+2~, PRINT+4, PRINT+18, HEAD+2, HEAD+4, HEAD+5
DGQUIT	PRINT+2~, PRINT+4, PRINT+10, PRINT+17, PRINT+18, HEAD+1, HEAD+2, HEAD+3
DGS	UPDATE+6~, UPDATE+16, UPDATE+17, UPDATE+21, UPDATE+23, UPDATE+24, UPDATE+25, UPDATE+26
DGSSN	UPDATE+6~, UPDATE+14, UPDATE+15, UPDATE+16, UPDR+4, PRINT+12, PRINT+15
DGVAL	UPDATE+6~, UPDATE+23, UPDATE+24, UPDATE+25, UPDATE+26, UPDR+6, UPDR+8
DGXREF	UPDATE+6~, UPDATE+19, UPDATE+21, UPDATE+24, UPDATE+26, UPDR+3, UPDR+4, PRINT+14*, PRINT+15
DIR	PRINT+18!, HEAD+2!
DIR(0	PRINT+18, HEAD+2
DT	CLEANUP+8, CLEANUP+9, REPORT+13, REPORT+14
IO	PRINT+1
IO("Q"	DEVICE+12
IOF	HEAD+5
IOP	DEVICE+7~
IOSL	PRINT+11
IOST	PRINT+18, HEAD+2
OK	DEVICE+7~, DEVICE+8, DEVICE+11, DEVICE+12, DEVICE+19*, DEVICE+20
POP	DEVICE+7~, DEVICE+11
U	UPDATE+12, UPDATE+14, UPDATE+18, PRINT+12, PRINT+13, PRINT+14
X	CLEANUP+9, REPORT+14, HEAD+5!, HEAD+8
X1	CLEANUP+6~, CLEANUP+8, REPORT+11~, REPORT+13
X2	CLEANUP+6~, CLEANUP+8, REPORT+11~, REPORT+13
>> Y	PRINT+18, HEAD+2
ZTDESC	DEVICE+13~, DEVICE+14*
>> ZTQUEUED	ENTER+4, PRINT+17, PRINT+19, HEAD+1
ZTREQ	ENTER+4, DEVICE+13~, PRINT+19
ZTRTN	DEVICE+13~, DEVICE+14*
>> ZTSAVE("DGENSKIP"	DEVICE+15*
>> ZTSK	DEVICE+17
ZTSKM	DEVICE+13~
ZTSTOP	DEVICE+13~, HEAD+1*

Customize PDF page

Package: Registration

Routine: DG53P600

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: