Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: APCDBMI

Package: Patient Care Component

Routine: APCDBMI


Information

APCDBMI ; IHS/CMI/LAB -BMI ;

Source Information

Source file <APCDBMI.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA Fileman 4 EN^DDIOL  UPDATE^DIE  IX^DIK  $$GET1^DIQ  
IHS VA Utilities 2 $$VAL^XBDIQ1  EN^XBNEW  
Patient Care Component Reports 2 ($$LASTITEM,ALLV)^APCLAPIU  ($$VD,$$VDTM)^APCLV  
IHS Electronic Health Record 1 ($$BMIPCT,BMIPCT)^BEHOVM2  
IHS Patient 1 $$AGE^AUPNPAT  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  
Patient Care Component 1 ^APCDALVR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Electronic Health Record 1 BEHOVM4  
Patient Care Component 1 APCDSWM  

Entry Points

Name Comments DBIA/ICR reference
EIE1 ;
LASTHT(P,VD) ;get last allowable ht for patient's age to calculate BMI
EIE(APCDX) ;EP - wt or ht entered in error, bmi eie
BMIP ;
CALCBMIH ;
BMICALC(APCDX) ;EP - called from input templates to calculate and store BMI
HASAVM(V,T) ;
STORE(V,DFN,TYPE,VALUE,APCDX,HD) ;
HASVM(V,T,B) ;
CALCBMI1 ;
CALCBMIW ;
EIEW ;WT ENTERED IN ERROR
EIEH ;
FILEEIE(APCDY) ;

External References

Name Field # of Occurrence
^APCDALVR STORE+10
$$LASTITEM^APCLAPIU LASTHT+9, LASTHT+15, LASTHT+19
ALLV^APCLAPIU CALCBMIH+20, EIEH+12
$$VD^APCLV CALCBMIW+9, CALCBMIH+14, CALCBMIH+15, CALCBMIH+17, CALCBMIH+18, CALCBMIH+19, CALCBMIH+20, CALCBMIH+37, CALCBMIH+46, CALCBMIH+56
, EIEW+20, EIEH+6, EIEH+7, EIEH+9, EIEH+10, EIEH+11, EIEH+12, EIEH+29, EIEH+39, EIEH+49
$$VDTM^APCLV CALCBMIH+25, CALCBMIH+29, EIEH+17, EIEH+21
$$AGE^AUPNPAT CALCBMIW+10, CALCBMIH+15, CALCBMIH+37, LASTHT+5, EIEW+21, EIEH+7, EIEH+29
$$BMIPCT^BEHOVM2 CALCBMIH+56, BMIP+4, EIEW+34, EIEH+49
BMIPCT^BEHOVM2 CALCBMIH+53, BMIP+1, EIEW+31, EIEH+46
EN^DDIOL STORE+11
UPDATE^DIE FILEEIE+8
IX^DIK FILEEIE+12
$$GET1^DIQ CALCBMI1+2, CALCBMIW+3, CALCBMIW+5, CALCBMIW+7, STORE+9, CALCBMIH+8, CALCBMIH+10, CALCBMIH+12, HASVM+3, HASVM+4
, EIE1+2, EIEW+3, EIEW+9, EIEW+14, EIEW+16, EIEW+18, EIEH+2, EIEH+4, HASAVM+3
$$VAL^XBDIQ1 CALCBMIH+44, CALCBMIH+45, EIEH+36, EIEH+37
EN^XBNEW BMICALC+2, EIE+2
$$FMADD^XLFDT CALCBMIH+17, CALCBMIH+18, LASTHT+8, LASTHT+14, EIEH+9, EIEH+10
$$FMTE^XLFDT STORE+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNVMSR - [#9000010.01] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVMSR - [#9000010.01] CALCBMIH+43, HASVM+5, EIEW+8, EIEH+35, FILEEIE+2, FILEEIE+10*, HASAVM+4
^AUPNVMSR("AD" CALCBMIH+42, HASVM+2, EIEW+7, EIEH+34, HASAVM+2
^AUTTMSR("B" STORE+5

Label References

Name Line Occurrences
$$HASAVM CALCBMIH+30, CALCBMIH+31, EIEW+5, EIEH+22, EIEH+23, EIEH+31, EIEH+32
$$HASVM CALCBMIW+18, CALCBMIH+39, CALCBMIH+40, CALCBMIH+52, CALCBMIH+59, BMIP+7, EIEW+29, EIEW+36, EIEH+45, EIEH+52
$$LASTHT CALCBMIW+11, CALCBMIH+46, EIEW+22, EIEH+39
BMIP CALCBMIW+18, CALCBMIW+21
CALCBMIH CALCBMI1+5
CALCBMIW CALCBMI1+4
EIEH EIE1+5
EIEW EIE1+4
FILEEIE CALCBMIH+39, CALCBMIH+40, EIEW+12, EIEW+29, EIEW+36, EIEH+31, EIEH+32
STORE CALCBMIW+19, CALCBMIH+52, CALCBMIH+61, BMIP+9, EIEH+45, EIEH+54

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% LASTHT+3~, LASTHT+9*, LASTHT+10, LASTHT+11, LASTHT+15*, LASTHT+16, LASTHT+17, LASTHT+19*, LASTHT+20, LASTHT+21
A CALCBMI1+2*, CALCBMI1+3, CALCBMI1+4, CALCBMI1+5, CALCBMIH+31*, CALCBMIH+32*, LASTHT+3~, LASTHT+5*, LASTHT+6, LASTHT+7
, LASTHT+13, EIE1+2*, EIE1+3, EIE1+4, EIE1+5, EIEH+23*, EIEH+24*
>> AGE CALCBMIW+10*, CALCBMIH+15*, CALCBMIH+17, CALCBMIH+18, CALCBMIH+19, BMIP+2, BMIP+3, EIEW+21*, EIEW+32, EIEW+33
, EIEH+7*, EIEH+9, EIEH+10, EIEH+11
>> APCDA CALCBMIH+42*, CALCBMIH+43, CALCBMIH+44, CALCBMIH+45, EIEH+34*, EIEH+35, EIEH+36, EIEH+37, EIEH+45, EIEH+54
>> APCDAGE CALCBMIH+37*, CALCBMIH+54, CALCBMIH+55, EIEH+29*, EIEH+47, EIEH+48
APCDALVR STORE+2!
APCDALVR("APCDAFLG" STORE+11
APCDALVR("APCDATMP" STORE+4*
APCDALVR("APCDPAT" STORE+6*
APCDALVR("APCDTCDT" STORE+9*
APCDALVR("APCDTEPR" STORE+8*
APCDALVR("APCDTTYP" STORE+5*
APCDALVR("APCDTVAL" STORE+7*
APCDALVR("APCDVSIT" STORE+3*
APCDERR FILEEIE+3~
APCDFDA FILEEIE+3~
APCDFDA( FILEEIE+5*, FILEEIE+6*
APCDIENS FILEEIE+3~, FILEEIE+4*, FILEEIE+5, FILEEIE+6
>> APCDSTOP CALCBMIH+22*, EIEH+14*
APCDVAR CALCBMIH+16!, EIEH+8!
APCDVAR( CALCBMIH+23, CALCBMIH+24, CALCBMIH+25, CALCBMIH+36, EIEH+15, EIEH+16, EIEH+17, EIEH+28
APCDVAR("LH" CALCBMIH+25*, CALCBMIH+26, CALCBMIH+27, CALCBMIH+28, CALCBMIH+29!, CALCBMIH+30!, CALCBMIH+32!, CALCBMIH+34, CALCBMIH+35, EIEH+17*
, EIEH+18, EIEH+19, EIEH+20, EIEH+21!, EIEH+22!, EIEH+24!, EIEH+26, EIEH+27
APCDX BMICALC~, BMICALC+1, BMICALC+3!, CALCBMI1+2, CALCBMIW+3, CALCBMIW+5, CALCBMIW+7, CALCBMIW+19, STORE~, STORE+9
, CALCBMIH+8, CALCBMIH+10, CALCBMIH+12, CALCBMIH+52, CALCBMIH+61, BMIP+9, EIE~, EIE+1, EIE+3!, EIE1+2
, EIEW+3, EIEW+14, EIEW+16, EIEW+18, EIEH+2, EIEH+4, FILEEIE+10
APCDY EIEW+7*, EIEW+8, EIEW+9, EIEW+12, FILEEIE~, FILEEIE+1, FILEEIE+2, FILEEIE+4, FILEEIE+10, FILEEIE+12
>> APCDZ CALCBMIH+39*, CALCBMIH+40*, EIEW+29*, EIEW+36*, EIEH+31*, EIEH+32*
B CALCBMIH+31*, CALCBMIH+32*, HASVM~, HASVM+4, EIEH+23*, EIEH+24*
>> BMI CALCBMIW+1*, CALCBMIW+16*, CALCBMIW+18, CALCBMIW+19, CALCBMIH+5*, CALCBMIH+39, CALCBMIH+40, CALCBMIH+51*, CALCBMIH+52, CALCBMIH+56
, BMIP+4, EIEW+27*, EIEW+29, EIEW+34, EIEH+44*, EIEH+45, EIEH+49
>> BMIPCT CALCBMIH+56*, CALCBMIH+57, CALCBMIH+59, CALCBMIH+61, BMIP+4*, BMIP+5, BMIP+7, BMIP+9, EIEW+34*, EIEW+35
, EIEW+36, EIEH+49*, EIEH+50, EIEH+52, EIEH+54
CD LASTHT+3~, LASTHT+8*, LASTHT+9, LASTHT+14*, LASTHT+15
>> D CALCBMIH+26*, CALCBMIH+27, CALCBMIH+28, CALCBMIH+29, CALCBMIH+30, CALCBMIH+31, CALCBMIH+34*, CALCBMIH+35, EIEH+18*, EIEH+19
, EIEH+20, EIEH+21, EIEH+22, EIEH+23, EIEH+26*, EIEH+27
DA FILEEIE+3~, FILEEIE+12*!
DFN CALCBMIW+5*, CALCBMIW+6, CALCBMIW+10, CALCBMIW+11, CALCBMIW+19, STORE~, STORE+6, CALCBMIH+10*, CALCBMIH+11, CALCBMIH+15
, CALCBMIH+20, CALCBMIH+37, CALCBMIH+46, CALCBMIH+52, CALCBMIH+56, CALCBMIH+61, BMIP+4, BMIP+9, EIEW+16*, EIEW+17
, EIEW+21, EIEW+22, EIEW+34, EIEH+2*, EIEH+3, EIEH+7, EIEH+12, EIEH+29, EIEH+39, EIEH+45
, EIEH+49, EIEH+54
DIK FILEEIE+3~, FILEEIE+12*!
DUZ STORE+8, FILEEIE+6
>> E CALCBMIH+17*, CALCBMIH+18*, CALCBMIH+19*, CALCBMIH+20, EIEH+9*, EIEH+10*, EIEH+11*, EIEH+12
G HASVM+1~, HASVM+2*, HASVM+6*, HASVM+7, HASAVM+1~, HASAVM+2*, HASAVM+5*, HASAVM+6
>> H CALCBMIW+11*, CALCBMIW+12, CALCBMIW+13, CALCBMIW+14*, CALCBMIW+16*, CALCBMIH+46*, CALCBMIH+47, CALCBMIH+48, CALCBMIH+49*, CALCBMIH+51*
, EIEW+22*, EIEW+23, EIEW+24, EIEW+25*, EIEW+27*, EIEH+39*, EIEH+40, EIEH+41, EIEH+42*, EIEH+44*
HD CALCBMIW+13*, CALCBMIW+19, STORE~, STORE+11, CALCBMIH+14*, CALCBMIH+48*, CALCBMIH+52, CALCBMIH+61, BMIP+9, EIEW+24*
, EIEH+6*, EIEH+41*, EIEH+45, EIEH+54
>> HT CALCBMIH+8*, CALCBMIH+9, CALCBMIH+51
>> N CALCBMIH+24*, CALCBMIH+25, CALCBMIH+28*, CALCBMIH+29, CALCBMIH+30, CALCBMIH+31, CALCBMIH+36*, CALCBMIH+37, CALCBMIH+39, CALCBMIH+40
, CALCBMIH+42, CALCBMIH+46, CALCBMIH+52, CALCBMIH+56, CALCBMIH+59, CALCBMIH+61, EIEH+16*, EIEH+17, EIEH+20*, EIEH+21
, EIEH+22, EIEH+23, EIEH+28*, EIEH+29, EIEH+31, EIEH+32, EIEH+34, EIEH+39, EIEH+45, EIEH+49
, EIEH+52, EIEH+54
P LASTHT~, LASTHT+1, LASTHT+5, LASTHT+9, LASTHT+15, LASTHT+19
T HASVM~, HASVM+3, EIEW+9*, EIEW+10, HASAVM~, HASAVM+3
TYPE STORE~, STORE+5, STORE+11
U CALCBMIW+13, CALCBMIW+14, CALCBMIH+24, CALCBMIH+28, CALCBMIH+36, CALCBMIH+43, CALCBMIH+48, CALCBMIH+49, LASTHT+11, LASTHT+17
, LASTHT+21, HASVM+5, EIEW+8, EIEW+24, EIEW+25, EIEH+16, EIEH+20, EIEH+28, EIEH+35, EIEH+41
, EIEH+42, HASAVM+4
V CALCBMIW+7*, CALCBMIW+8, CALCBMIW+9, CALCBMIW+18, CALCBMIW+19, STORE~, STORE+3, CALCBMIH+12*, CALCBMIH+13, CALCBMIH+14
, CALCBMIH+15, CALCBMIH+17, CALCBMIH+18, CALCBMIH+19, CALCBMIH+20, CALCBMIH+29, CALCBMIH+31, CALCBMIH+52, HASVM~, HASVM+2
, BMIP+7, BMIP+9, EIEW+3*, EIEW+4, EIEW+5, EIEW+7, EIEW+18*, EIEW+19, EIEW+20, EIEW+29
, EIEW+36, EIEH+4*, EIEH+5, EIEH+6, EIEH+7, EIEH+9, EIEH+10, EIEH+11, EIEH+12, EIEH+21
, EIEH+23, EIEH+45, HASAVM~, HASAVM+2
VALUE STORE~, STORE+7, STORE+11, LASTHT+3~, LASTHT+4*, LASTHT+6, LASTHT+7, LASTHT+11*, LASTHT+13, LASTHT+17*
, LASTHT+21*, LASTHT+22
VD CALCBMIW+9*, CALCBMIW+10, CALCBMIW+11, LASTHT~, LASTHT+2, LASTHT+5, LASTHT+8, LASTHT+9, LASTHT+14, LASTHT+15
, LASTHT+19, BMIP+4, EIEW+20*, EIEW+21, EIEW+22, EIEW+34
>> W CALCBMIW+3*, CALCBMIW+4, CALCBMIW+16*, CALCBMIH+45*, CALCBMIH+51*, EIEW+14*, EIEW+15, EIEW+27*, EIEH+37*, EIEH+44*
>> X CALCBMIH+23*, CALCBMIH+24, CALCBMIH+25, CALCBMIH+27*, CALCBMIH+28, CALCBMIH+29, CALCBMIH+30, CALCBMIH+31, CALCBMIH+35*, CALCBMIH+36
, EIEH+15*, EIEH+16, EIEH+17, EIEH+19*, EIEH+20, EIEH+21, EIEH+22, EIEH+23, EIEH+27*, EIEH+28
Y HASVM+1~, HASVM+2*, HASVM+3, HASVM+4, HASVM+5, HASVM+6, HASAVM+1~, HASAVM+2*, HASAVM+3, HASAVM+4
, HASAVM+5

Marked Items

Name Field # of Occurrence
$T(BMIPCT^BEHOVM2 CALCBMIH+53, BMIP+1, EIEW+31, EIEH+46
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All