DGMTDELS ;ALB/GAH - Delete means test for deceased patient; August 14, 2006 14:35:54
Source file <DGMTDELS.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGMT(408.31 - [#408.31] | DELMT+4 |
| ^DPT - [#2] | OK2DEL+12 |
| Name | Line Occurrences |
|---|---|
| $$NAMSPC | QUEUE+2 |
| $$OK2DEL | CHECK+2 |
| $$QTIME | START+3 |
| DELMT | CHECK+2 |
| QUEUE | START+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | QTIME+1~, QTIME+3 |
| %H | QTIME+1~ |
| %I | QTIME+1~ |
| DFN | START~, QUEUE+3, CHECK~, CHECK+2, OK2DEL~, OK2DEL+5, OK2DEL+12, DELMT+2~, DELMT+6* |
| DGMT | OK2DEL+3~, OK2DEL+5*, OK2DEL+6, OK2DEL+7, OK2DEL+8 |
| DGMT0 | DELMT+2~, DELMT+4*, DELMT+5, DELMT+6, DELMT+7, DELMT+8 |
| DGMTD | DELMT+2~, DELMT+7* |
| DGMTI | CHECK+1~, CHECK+2, OK2DEL~, OK2DEL+8*, DELMT~, DELMT+4 |
| DGMTYPT | DELMT+2~, DELMT+8* |
| DQ | DELMT+2~ |
| NAMSPC | START+1~, QUEUE+1~, QUEUE+2*, QUEUE+4 |
| STATUS | OK2DEL+3~, OK2DEL+7*, OK2DEL+10 |
| TASK | START+1~ |
| U | START+1~, START+2*, OK2DEL+3~, OK2DEL+4*, OK2DEL+7, OK2DEL+8, OK2DEL+12, DELMT+2~, DELMT+3*, DELMT+6 , DELMT+7, DELMT+8 |
| X | QTIME+1~ |
| ZTDESC | QUEUE+1~, QUEUE+4* |
| ZTDTH | QUEUE~ |
| ZTIO | QUEUE+1~, QUEUE+5* |
| ZTRTN | QUEUE+1~, QUEUE+3* |
| ZTSK | QUEUE+1~ |
| Name | Field # of Occurrence |
|---|---|
| $T( | NAMSPC+1 |
