Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BLRDPT30

Package: IHS Changes To Lab

Routine: BLRDPT30


Information

BLRDPT30 ; IHS/DIR/FJE - Current Inpatient Variables ;

Source Information

Source file <BLRDPT30.m>

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS Changes To Lab 3 BLRDPT2  BLRDPT3  BLRDPT31  

Entry Points

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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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

Local Variables

Legend:

>> 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*
Info |  Source |  Caller Graph |  Entry Points |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All