Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Source | Entry Points | Interaction Calls | FileMan Files Accessed Via FileMan Db Call

Print Page as PDF

Routine: DG53P593

Package: Registration

Routine: DG53P593

Information

DG53P593 ;BAY/JAT - Patient File Cleanup; 2/22/1999 ; 6/24/04 3:43pm

Source Information

Source file <DG53P593.m>

Entry Points

Name	Comments	DBIA/ICR reference
CLEANUP	;This entry point will do the cleanup.
REPORT	;This entry point was provided for testing, so that before
ENTER	;
DEVICE()	;
DELETE(DGENSKIP)	;
EVAL578	;
DIKDEL	;
DELEXE	; Delete exceptions on file for patient record being removed.
DELE	; delete exception
PRINT	;
HEAD	;

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This is a one-time cleanup of the Patient File." Line Location: CLEANUP+4
Function Call: WRITE	Prompt: !,"Certain records which were created in error will be deleted." 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 deleted by the cleanup." Line Location: REPORT+10
Function Call: WRITE	Prompt: !!,"* COUNT OF BAD PATIENT RECORDS"_$S(DGENSKIP:"",1:" DELETED")_": ",COUNT," *",!! Line Location: PRINT+8
Function Call: WRITE	Prompt: @IOF,!,DGDDT,?15,"DG5.3593 Patient File Cleanup Utility",?70,"Page:",$J(DGPG,5),! Line Location: HEAD+5
Function Call: WRITE	Prompt: X,! Line Location: HEAD+5
Function Call: WRITE	Prompt: !,?2,"DFN",?15,"Reason for Deletion",! Line Location: HEAD+6
Function Call: WRITE	Prompt: X,! Line Location: HEAD+7

FileMan Files Accessed Via FileMan Db Call

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

Info | Source | Entry Points | Interaction Calls | FileMan Files Accessed Via FileMan Db Call