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 |