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* |