DGOIL2 ;ALB/AAS - CALCULATE LOS BY TRANSFER ; 28-SEPT-90
Source file <DGOIL2.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 |
|---|---|---|
| EN | ||
| ASIH | ||
| ADM | ||
| EN1 | ; - entry to find los for one transfer
; - input DGPMIFN1 = transfer ; - output in X(t) if '$d(DGT) t=1 |
|
| TRANS | ||
| EN1Q | ||
| ABS | ; - if patient was on absence, find return.
; - DGS = mvt type at start of absence ; - DGE = mvt type at end of absence |
|
| TF | ||
| TOT | ; -- total los from transfer x(t) into x3
|
|
| TRFTOT | ; los for transfer, set x(t)
|
|
| NORET | ; -- If discharge while absent find absence up to discharge
|
|
| END | ||
| MAX |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | MAX |
| A | EN+3*, EN+4*, ADM, TRANS+7*, TRANS+8*, ABS+7, TF+2*, TF+6*, TF+9*, TF+12* , TRFTOT+1, END!, MAX |
| A1 | ADM*, TRANS+8*, ABS+7, TF+6, TF+9, TF+12, TRFTOT+1, TRFTOT+2, END! |
| >> ADM | ASIH* |
| B | EN+3*, EN+4, ASIH, EN1+6*, END!, MAX |
| B( | TRANS+2*, TRANS+3 |
| D | TRANS+7, TRANS+8, TF+2, END!, MAX* |
| >> DFN | EN+3*, ADM, TRANS+7, TF |
| >> DGASIH | ASIH*, ADM+2 |
| DGDONE | TRANS+6*, TRANS+8, NORET+1*, END! |
| DGE | TF*, TF+6, TF+9, TF+12, TF+14, TF+17, TF+19, END! |
| DGET | TF*, TF+17, END! |
| DGMAX | END!, MAX* |
| DGOF | ABS+4*, ABS+7, TRFTOT+2! |
| DGOFF | ABS+7*, TRFTOT+2! |
| DGOUT | EN1+4*, EN1+5*, TRANS*, TRANS+7, ABS+5*, ABS+7*, TF+2*, TF+14*, TF+19*, TRFTOT+2* , END! |
| DGPMIFN | EN+2, EN+3, ADM, ADM+3, EN1+5*, EN1+6, TRANS+7, TF, END! |
| DGPMIFN(1 | ADM+1, TRFTOT+2 |
| DGPMIFN1 | ADM*, EN1+4, EN1+5, TRANS+2, END! |
| DGS | TRANS+7*, TRANS+10, ABS+4, ABS+5, ABS+7, TF+17*, NORET+2, NORET+3, NORET+4, NORET+5 , END! |
| DGT | ASIH+3*, ADM*, EN1+7*, TRANS+1, TRANS+2, TRANS+3, TOT+1, TOT+2, TRFTOT+2, END! |
| DGWRD | TRANS+3*, TRANS+4*, EN1Q!, TRFTOT+2, END! |
| >> DIS | ASIH* |
| DT | ASIH |
| I | EN~, ASIH+3*, ADM, TRANS+7*, TRANS+8, TF*, END! |
| JJ | TOT+1*, TOT+2*, END! |
| LOA | EN*, TRANS*, TF+12*, TRFTOT+2, NORET+3*, END! |
| LOAS | EN*, TRANS*, ABS+7*, TF+14*, TRFTOT+2, NORET+5*, END! |
| LOP | EN*, TRANS*, TF+9*, TRFTOT+2, NORET+2*, END! |
| LOUA | EN*, TRANS*, TF+6*, TRFTOT+2, NORET+4*, END! |
| T | EN~, END! |
| >> X | EN+1*, ABS+7, TF+6, TF+9, TF+12, TF+14, TRFTOT+2, NORET+2, NORET+3, NORET+4 , NORET+5, MAX |
| >> X( | TRANS+1*, TOT+1, TOT+2, TRFTOT+2* |
| X1 | ABS+7*, TF*, TF+2*, TRFTOT+1*, END!, MAX* |
| X2 | TRANS+7*, ABS+7*, TF+17*, TRFTOT+1*, END!, MAX* |
| >> X3 | EN+1*, ADM+2*, ADM+3*, TOT+1*, TOT+2* |
| >> Z | TRANS+7*, ABS+4 |
