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) |
