Routine: BLRDPT30

Information

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