VADPT30 ;ALB/MJK - Current Inpatient Variables; 12 DEC 1988 ; 5/5/05 11:41am
Source file <VADPT30.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VAR | ; -- inpatient demographics variables
; input: DFN, VATD = inverse date ; VACN = ; VAPRC = ; VAPRT = |
|
| VARQ | ||
| GET | ; -- get variables and quit when all set(Y=1)
|
|
| GETQ | ||
| KVAR | ||
| SET | ; -- set variables if null
|
|
| TS | ; set VADX, VATS, VAAP, and VAPP via VACA x-refs
|
|
| TSQ | ||
| TS1 | ; set VATS, VAPP, and VAAP
|
|
| MV | ; -- get latest mv for pt before VAID and not ASIH mv
|
|
| MVQ | ||
| A | ;return current admission or last admission for patient
|
|
| AQ | ||
| DIS | ; check for ASIH discharges
|
| FileNo | Call Tags |
|---|---|
| ^DGPM - [#405] | EXTERNAL^DILFD |
