DG53695 ;ALB/PHH - DG*5.3*695 Patient Cleanup ; 2/24/2006
Source file <DG53695.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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,MODE) | ; Process the DFN
; Check for orphan .3 and .11 nodes without the 0 node |
|
| 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 |
