VADPT30 ;ALB/MJK - Current Inpatient Variables; 12 DEC 1988 ; 5/5/05 11:41am
Source file <VADPT30.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 |
|---|---|---|
| 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
|
| Name | Field # of Occurrence |
|---|---|
| $$EXTERNAL^DILFD | VAR+18 |
| FileNo | Call Tags |
|---|---|
| ^DGPM - [#405] | EXTERNAL^DILFD |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(405.4 - [#405.4] | SET+2 |
| ^DGPM - [#405] | VAR+12, VAR+14, VAR+15, GET+4, TS+2, TS1+1, MV+2, MV+3, A+1, A+3 , DIS+1 |
| ^DGPM("APID" | MV+2 |
| ^DGPM("APMV" | GET+4 |
| ^DGPM("ATID1" | A+3 |
| ^DGPM("ATS" | TS+3 |
| ^DIC(42 - [#42] | SET+2 |
| ^DIC(45.7 - [#45.7] | TS1+4 |
| ^DPT - [#2] | A+1 |
| ^VA(200 - [#200] | TS1+2, TS1+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DCD | VAR+13~, VAR+14*, VAR+17 |
| >> DFN | GET+4, TS+3, MV+2, A+1, A+3 |
| >> DGPMDDF | SET+7 |
| U | DIS+1 |
| VAAP | VAR+9*, KVAR!, TS+3, TS1+3* |
| VABO | VAR+23*, KVAR! |
| VACA | GET+1*, GET+4, GETQ!, TS+2, TS+3 |
| VACN | KVAR!, SET+3, SET+7, SET+8 |
| VADX | VAR+9*, KVAR!, SET+8, TS+2* |
| VAFD | VAR+9*, VAR+18*, KVAR! |
| VAID | VAR+9*, VARQ!, GET+4*, GETQ!, TS+3*, MV+2*, A+2~, A+3* |
| VAIFN | GET+4*, GETQ!, SET+2, TS+3*, TSQ!, TS1+1 |
| VAMT | VAR+21, VAR+22, VAR+23, VARQ!, MV+2* |
| VAMV | VAR+9*, KVAR!, SET+2, SET+7, SET+8, MV+1*, MV+2*, MV+3, A+2~, A+3* , DIS+1 |
| VAMV0 | VAR+11, VAR+12, VAR+15, VAR+20, VARQ!, GET+1, GET+4*, SET+2, TS+1~, TS1+1* , TS1+2, TS1+3, TS1+4, MV+1*, MV+3*, A+2~, A+3*, DIS+1 |
| VAPP | VAR+9*, KVAR!, TS+3, TS1+2* |
| VAPRC | VAR+21, VAR+22, VAR+23, KVAR! |
| VAPRT | KVAR!, SET+7, SET+8 |
| VARM | VAR+9*, KVAR!, SET+2* |
| VARSTR | SET+4~, SET+5*, SET+6*, SET+7 |
| VAT | GET+2~, TS+3*, TSQ! |
| VATD | VAR+9, GET+4, KVAR!, TS+3 |
| VATS | VAR+9*, KVAR!, TS+3, TS1+4* |
| VAWD | VAR+9*, KVAR!, SET+2*, SET+3, SET+8 |
| VAWDA | VAR+9*, KVAR!, SET+2* |
| >> Y | VAR+12*, VAR+14, VAR+15*, VAR+16*, VAR+17*, VAR+18, GET+3, GET+4, SET+1*, SET+3* , SET+7*, SET+8*, TS1+2*, TS1+3*, A+1*, A+3, A+4*, DIS+1* |
