DGOIL2 ;ALB/AAS - CALCULATE LOS BY TRANSFER ; 28-SEPT-90
Source file <DGOIL2.m>
| 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 |
