©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
VADPT30 ;ALB/MJK - Current Inpatient Variables; 12 DEC 1988 ; 5/5/05 11:41am
Source file <VADPT30.m>
| 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)
|
|
| TS | ; set VADX, VATS, VAAP, 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 | ;K VAMV,VAWDA,VAWD,VARM,VAPP,VAAP,VATS,VATD,VAPRC,VAPRT,VACN,VADX,VABO,VAFD Q ;IHS/ANMC/LJF 2/22/2001
|
|
| TS1 | ; set VATS, VAPP, and VAAP
|
|
| TSQ |
| FileNo | Call Tags |
|---|---|
| ^DGPM - [#405] | EXTERNAL^DILFD, GET1^DIQ |
| 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, TS1+5, 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 |
| Name | Line Occurrences |
|---|---|
| AQ | A+1, A+3 |
| DIS | A+3 |
| GET | VAR+23 |
| GETQ | GET+3, GET+4 |
| MV | VAR+11 |
| MVQ | MV+2 |
| SET | GET+3, GET+4 |
| TS | GET+3 |
| TS1 | TS+3 |
| TSQ | TS+3 |
| VARQ | VAR+11, VAR+20, VAR+21, VAR+22 |
| Name | Field # of Occurrence |
|---|---|
| ^( | A+1 |
| ^(0 | GET+4, SET+2, TS+2, TS1+1, TS1+2, TS1+3, TS1+4, MV+2, A+3, DIS+1 |
| >> | 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 |
| IHSADM | KVAR+1!, TS1+5* |
| U | TS1+5, DIS+1 |
| VAAP | VAR+9*, KVAR+1!, TS+3, TS1+3* |
| VABO | VAR+23*, KVAR+1! |
| VACA | GET+1*, GET+4, GETQ!, TS+2, TS+3 |
| VACN | KVAR+1!, SET+3, SET+7, SET+8 |
| VADX | VAR+9*, KVAR+1!, SET+8, TS+2* |
| >> VAFD | VAR+9*, VAR+18* |
| 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, TS1+5 |
| VAMT | VAR+21, VAR+22, VAR+23, VARQ!, MV+2* |
| VAMV | VAR+9*, KVAR+1!, 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+1!, TS+3, TS1+2* |
| VAPRC | VAR+21, VAR+22, VAR+23, KVAR+1! |
| VAPRT | KVAR+1!, SET+7, SET+8 |
| VARM | VAR+9*, KVAR+1!, SET+2* |
| VARSTR | SET+4~, SET+5*, SET+6*, SET+7 |
| VAT | GET+2~, TS+3*, TSQ! |
| VATD | VAR+9, GET+4, KVAR+1!, TS+3 |
| VATS | VAR+9*, KVAR+1!, TS+3, TS1+4* |
| VAWD | VAR+9*, KVAR+1!, SET+2*, SET+3, SET+8 |
| VAWDA | VAR+9*, KVAR+1!, 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* |