Routine: DGPTAPP1

Information

DGPTAPP1 ;MTC/ALB - PTF Purge/Archive - Purge Continued ; 21 DEC 1992

Name	Comments	DBIA/ICR reference
PURGE(TMP)	;-- Purge entry point. This function will loop thru the ; PTF records found in the A/P template pointed to by TMP. ; Starting with the PTF Release file, PTF Close Out file, Census ; Work file and finally the PTF record in file #45.
REL(PTF)	;-- This function will delete the entries in the PTF ; Release File (#45.83) Associated with the record PTF.
RELQ
CLOSE(PTF)	;-- This function will delete the entries in the PTF Close ; Out file (#45.84), associated with the record PTF.
CLOSEQ
CENSUS(PTF)	;-- This function will delete the entries in the PTF Close ; Out file (#45.84), associated with the record PTF.
CENSUSQ
DELPTF(PTF)	;-- This function will delete the entries in the PTF ; file (#45), associated with the record PTF.
DELPTFQ
UPDATE(PTF)	; This function will update the entry in the Patient Movement ; file (#405) cooresponding to the PTF record. The PTF record entry ; in field 16 will be deleted and the PTF PURGED STATUS field 26 ; will be set to 1. This field will be used to prevent re-creation ; of the PTF record from a past admission.
WARNING()	; This function will display a warning to the user before the ; purge of the data will occur. A '1' will be returned if the purge ; should continue. ; OUTPUT : 1 - DO NOT CONTINUE ; 0 - OK

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"This option will permently purge data from the Data Base." Line Location: WARNING+7
Function Call: WRITE	Prompt: !,"Are you sure that you want to continue ?",! Line Location: WARNING+8