BLRDPT30 ; IHS/DIR/FJE - Current Inpatient Variables ;
Source file <BLRDPT30.m>
| Package | Total | Caller Graph | 
|---|---|---|
| IHS Changes To Lab | 3 | BLRDPT2 BLRDPT3 BLRDPT31 | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| A | ;return current admission or last admission for patient | |
| MVQ | ||
| SET | ; -- set variables if null | |
| VARQ | ||
| GET | ; -- get variables and quit when all set(Y=1) | |
| PROV | ; -- get provider info | |
| TS | ; set VADX, VATS and VAPP via VACA x-refs | |
| AQ | ||
| MV | ; -- get latest mv for pt before VAID and not ASIH mv | |
| DIS | ; check for ASIH discharges | |
| VAR | ; -- inpatient demographics variables ; input: DFN, VATD = inverse date ; VACN = ; VAPRC = ; VAPRT = | |
| GETQ | ||
| KVAR | ||
| TS1 | ; set VATS and VAPP | |
| TSQ | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^DG(405.4 - [#405.4] | SET+2 | 
| ^DGPM - [#405] | GET+3, TS+2, TS1+1, MV+2, MV+3, A+1, A+3, DIS+1 | 
| ^DGPM("APID" | MV+2 | 
| ^DGPM("APMV" | GET+3 | 
| ^DGPM("ATID1" | A+3 | 
| ^DGPM("ATS" | TS+3 | 
| ^DIC(16 - [#16] | PROV+2 | 
| ^DIC(42 - [#42] | SET+2 | 
| ^DIC(45.7 - [#45.7] | TS1+4 | 
| ^DPT - [#2] | A+1 | 
| ^VA(200 - [#200] | TS1+3, PROV+2 | 
| Name | Line Occurrences | 
|---|---|
| AQ | A+1, A+3 | 
| DIS | A+3 | 
| GET | VAR+14 | 
| GETQ | GET+2, GET+3 | 
| MV | VAR+9 | 
| MVQ | MV+2 | 
| SET | GET+2, GET+3 | 
| TS | GET+2 | 
| TS1 | TS+3 | 
| TSQ | TS+3 | 
| VARQ | VAR+9, VAR+11, VAR+12, VAR+13 | 
| Name | Field # of Occurrence | 
|---|---|
| ^( | A+1 | 
| ^("A3" | PROV+2 | 
| ^(0 | GET+3, SET+2, TS+2, TS1+1, TS1+4, MV+2, A+3, DIS+1, PROV+2 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> DFN | GET+3, TS+3, MV+2, A+1, A+3 | 
| >> DGPMDDF | SET+4 | 
| U | TS1+3, DIS+1 | 
| VABO | VAR+14*, KVAR! | 
| VACA | GET+1*, GET+3, GETQ!, TS+2, TS+3 | 
| VACN | KVAR!, SET+3, SET+4, SET+5 | 
| VADX | VAR+7*, KVAR!, SET+5, TS+2* | 
| VAID | VAR+7*, VARQ!, GET+3*, GETQ!, TS+3*, MV+2*, A+2~, A+3* | 
| VAIFN | GET+3*, GETQ!, SET+2, TS+3*, TSQ!, TS1+1 | 
| VAMT | VAR+12, VAR+13, VAR+14, VARQ!, MV+2* | 
| VAMV | VAR+7*, KVAR!, SET+2, SET+4, SET+5, MV+1*, MV+2*, MV+3, A+2~, A+3* , DIS+1 | 
| VAMV0 | VAR+9, VAR+11, VARQ!, GET+1, GET+3*, SET+2, TS+1~, TS1+1*, TS1+3, TS1+4 , MV+1*, MV+3*, A+2~, A+3*, DIS+1 | 
| VAPP | VAR+7*, KVAR!, TS+3, TS1+3* | 
| VAPRC | VAR+12, VAR+13, VAR+14, KVAR! | 
| VAPRT | KVAR!, SET+4, SET+5 | 
| VARM | VAR+7*, KVAR!, SET+2* | 
| VAT | TS+3*, TSQ! | 
| VATD | VAR+7, GET+3, KVAR!, TS+3 | 
| VATS | VAR+7*, KVAR!, TS+3, TS1+4* | 
| VAWD | VAR+7*, KVAR!, SET+2*, SET+3, SET+5 | 
| VAWDA | VAR+7*, KVAR!, SET+2* | 
| X | PROV+1*, PROV+2*, PROV+4! | 
| >> Y | GET+2, GET+3, SET+1*, SET+3*, SET+4*, SET+5*, TS1+3*, A+1*, A+3, A+4* , DIS+1*, PROV+1*, PROV+2* |