©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DGOIL2 ;ALB/AAS - CALCULATE LOS BY TRANSFER ; 28-SEPT-90
Source file <DGOIL2.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 1 | ^DGOIL3 |
| VA Fileman | 1 | (,NOW)^%DTC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADM | ||
| END | ||
| EN1Q | ||
| ASIH | ||
| MAX | ||
| NORET | ; -- If discharge while absent find absence up to discharge
|
|
| ABS | ; - if patient was on absence, find return.
; - DGS = mvt type at start of absence ; - DGE = mvt type at end of absence |
|
| TRFTOT | ; los for transfer, set x(t)
|
|
| EN1 | ; - entry to find los for one transfer
; - input DGPMIFN1 = transfer ; - output in X(t) if '$d(DGT) t=1 |
|
| EN | ||
| TOT | ; -- total los from transfer x(t) into x3
|
|
| TF | ||
| TRANS |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPM - [#405] | EN+2, EN+3, ASIH, ADM+3, EN1+4, EN1+5, EN1+6, TRANS+2, TRANS+7, ABS+4 , TF, MAX |
| ^DGPM("APCA" | ADM, TRANS+7, TF |
| ^DIC(4 - [#4] | ABS+4 |
| ^DIC(42 - [#42] | TRANS+3 |
| Name | Line Occurrences |
|---|---|
| ABS | TRANS+7 |
| EN1Q | EN1+4, EN1+5 |
| END | EN+2, ADM+4 |
| MAX | ASIH+1, EN1+7 |
| NORET | TF+2 |
| TF | TF+17 |
| TOT | TRFTOT+3 |
| TRANS | ADM |
| TRFTOT | TRANS+9 |
| Name | Field # of Occurrence |
|---|---|
| ^( | TRANS+7, TF |
| ^(0 | EN+2, ASIH, EN1+4, TRANS+3, TRANS+7, ABS+4, TF, 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 |