Routine: DG53P641

Information

DG53P641 ;BAY/JAT - Patient File Updat; 6/7/04 7:13pm ; 1/4/05 5:06pm

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

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

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 set the 'ATEST' cross-reference as needed." 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.3641 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",! Line Location: HEAD+7
Function Call: WRITE	Prompt: X,! Line Location: HEAD+8
Routine Call	DIR Line Location: PRINT+16 HEAD+2
Routine Call	%ZIS Line Location: DEVICE+10
Routine Call	%ZIS Line Location: DEVICE+18

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

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

Name	Field # of Occurrence
%ZIS	DEVICE+7~, DEVICE+9*
COUNT	UPDATE+6~, UPDATE+7, UPDR+1, PRINT+6, PRINT+8
DA	UPDR+4~, UPDR+5*
DFN	UPDATE+6~, UPDATE+7, UPDATE+8, UPDATE+10, UPDATE+12, UPDATE+13, UPDATE+14, UPDATE+17, UPDR+2, UPDR+5 , PRINT+9, PRINT+10, PRINT+12, PRINT+13
DGDDT	PRINT+2~, PRINT+3*, HEAD+5
DGENSKIP	CLEANUP+2~, CLEANUP+3, REPORT+7~, REPORT+8, ENTER+2, ENTER+3, DEVICE+14, UPDATE~, UPDR+3, PRINT+8
DGERR	UPDATE+6~
DGFDA	UPDATE+6~
DGFLG	UPDATE+6~
DGPG	PRINT+2~, PRINT+4, PRINT+16, HEAD+2, HEAD+4, HEAD+5
DGQUIT	PRINT+2~, PRINT+4, PRINT+10, PRINT+15, PRINT+16, HEAD+1, HEAD+2, HEAD+3
DGS	UPDATE+6~
DGSSN	UPDATE+6~, UPDATE+14, UPDATE+15, UPDATE+16, UPDR+2, PRINT+12, PRINT+13
DGVAL	UPDATE+6~
DGXREF	UPDATE+6~
DIK	UPDR+4~, UPDR+5*
DIK(1	UPDR+5*
DIR	PRINT+16!, HEAD+2!
DIR(0	PRINT+16, 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+16, 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, PRINT+12
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+16, HEAD+2
ZTDESC	DEVICE+13~, DEVICE+14*
>> ZTQUEUED	ENTER+4, PRINT+15, PRINT+17, HEAD+1
ZTREQ	ENTER+4, DEVICE+13~, PRINT+17
ZTRTN	DEVICE+13~, DEVICE+14*
>> ZTSAVE("DGENSKIP"	DEVICE+15*
>> ZTSK	DEVICE+17
ZTSKM	DEVICE+13~
ZTSTOP	DEVICE+13~, HEAD+1*