DG53658 ;ALB/PHH - DG*5.3*658 ADDRESS CHANGE DT/TM Cleanup ; 9/19/2005
Source file <DG53658.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PREINST | ; Pre-Install process to delete the old X-Ref trigger in
; PATIENT file #2 for ADDRESS CHANGE SOURCE field #.119 |
|
RESET | ; Reset the data for the cleanup process
|
|
TEST | ; Simulate Live Run
|
|
START | ; Start Processor
|
|
NAMESPC() | ; API returns the name space for this patch
|
|
RUNCHK(NAMESPC) | ; Check to see if clean up is already running
|
|
QTIME(WHEN) | ; Get the run time for queuing
|
|
QUEUE(ZTDTH) | ; Queue the process
|
|
CLEAN | ; Actual cleanup process
|
|
PROC(DFN) | ; Process the DFN
|
|
STOPIT() | ; Checks if user requested task to stop
|
|
ABORTMSG | ; Send the user aborted message:
|
|
DONEMSG | ; Send the user aborted message:
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |