DG714 ;ALB/GAH - Deceased Patient Means Test Cleanup ; 18-SEP-2006 15:41
Source file <DG714.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
START | ;Start process
|
|
QUEUE(ZTDTH) | ||
QTIME() | ; Get the run time for queuing
|
|
TEST(START,END,PROCESS) | ;Entry point for testing
; There is a range given so no need for the old data in ^XTMP |
|
QUE | ||
SETUPX(EXPDAYS) | ;
; requires EXPDAYS - number of days to keep XTMP around |
|
STOP() | ||
ACTIVE(ZTSK) | ||
NAMSPC() | ;
|
|
CLEAN(TESTING) | ; Loop through veterans to compare data
|
|
MAIL(STARTTM,ENDTIME,DELRECS,TOTRECS,COMPLETE) |