DGMTDELS ;ALB/GAH - Delete means test for deceased patient; August 14, 2006 14:35:54
Source file <DGMTDELS.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| START(DFN) | ;Start process
 | 
|
| QUEUE(ZTDTH) | ||
| QTIME() | ; Get the run time for queuing
 | 
|
| NAMSPC() | ;
 | 
|
| CHECK(DFN) | ; Check that the criteria to delete a means test is met
 | 
|
| OK2DEL(DFN,DGMTI) | ;
 ; Returns 1 and the last mean test IEN if the patient has a date of death and ; the means test has a status of REQUIRED.  | 
|
| DELMT(DGMTI) | ;
 ; Delete the means test  |