Routine: DG53P600

Information

DG53P600 ;BAY/JAT - Patient File Updat; 6/7/04 7:13pm ; 7/16/04 3:22pm

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 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