BEHOVM5 ; IHS/MSC/MGH -Storing BMI values ;30-Oct-2014 08:56;du
Source file <BEHOVM5.m>
Package | Total | Call Graph |
---|---|---|
IHS Electronic Health Record | 3 | $$VTYPE^BEHOVM ($$BMIPCT,BMIPCT)^BEHOVM2 ($$LASTHT,CALCBMIH,CALCBMIW,STORE)^BEHOVM5 |
VA Fileman | 3 | 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 |
GUI Objects | 1 | $$CVTDATE^BGOUTL |
IHS Patient | 1 | $$AGE^AUPNPAT |
Kernel | 1 | ($$FMADD,$$NOW)^XLFDT |
Package | Total | Caller Graph |
---|---|---|
IHS Electronic Health Record | 3 | BEHOENPC BEHOVM2 BEHOVM5 |
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) | ;
|
|
HASVM(V,T,B) | ;
|
|
CALCBMI1 | ;
|
|
CALCBMIW | ;
|
|
EIEW | ;WT ENTERED IN ERROR
|
|
EIEH | ;
|
|
STORE(DATA,TYPE,VALUE,VIEN,WTDT) | ;
|
|
FILEEIE(APCDY) | ;
|
Name | Field # of Occurrence |
---|---|
$$LASTITEM^APCLAPIU | LASTHT+9, LASTHT+15, LASTHT+19 |
ALLV^APCLAPIU | CALCBMIH+21, EIEH+12 |
$$VD^APCLV | CALCBMIW+9, CALCBMIH+15, CALCBMIH+16, CALCBMIH+18, CALCBMIH+19, CALCBMIH+20, CALCBMIH+21, CALCBMIH+38, CALCBMIH+50, CALCBMIH+63 , EIEW+20, EIEH+6, EIEH+7, EIEH+9, EIEH+10, EIEH+11, EIEH+12, EIEH+29, EIEH+39, EIEH+49 |
$$VDTM^APCLV | CALCBMIH+26, CALCBMIH+30, EIEH+17, EIEH+21 |
$$AGE^AUPNPAT | CALCBMIW+10, CALCBMIH+16, CALCBMIH+38, LASTHT+5, EIEW+21, EIEH+7, EIEH+29 |
$$VTYPE^BEHOVM | CALCBMI1+3, EIE1+2 |
$$BMIPCT^BEHOVM2 | CALCBMIH+63, BMIP+4, EIEW+34, EIEH+49 |
BMIPCT^BEHOVM2 | CALCBMIH+60, BMIP+1, EIEW+31, EIEH+46 |
$$LASTHT^BEHOVM5 | CALCBMIW+11 |
CALCBMIH^BEHOVM5 | CALCBMI1+6 |
CALCBMIW^BEHOVM5 | CALCBMI1+5 |
STORE^BEHOVM5 | CALCBMIW+19, CALCBMIH+58, CALCBMIH+69, BMIP+9, EIEH+45, EIEH+54 |
$$CVTDATE^BGOUTL | STORE+4, STORE+5 |
UPDATE^DIE | STORE+18, FILEEIE+8 |
IX^DIK | FILEEIE+12 |
$$GET1^DIQ | CALCBMI1+2, CALCBMIW+3, CALCBMIW+5, CALCBMIW+7, CALCBMIH+9, CALCBMIH+11, CALCBMIH+13, CALCBMIH+47, CALCBMIH+49, HASVM+3 , HASVM+4, EIE1+3, EIEW+3, EIEW+9, EIEW+14, EIEW+16, EIEW+18, EIEH+2, EIEH+4, HASAVM+3 |
$$VAL^XBDIQ1 | CALCBMIH+45, CALCBMIH+46, EIEH+36, EIEH+37 |
EN^XBNEW | BMICALC+2, EIE+2 |
$$FMADD^XLFDT | CALCBMIH+18, CALCBMIH+19, LASTHT+8, LASTHT+14, EIEH+9, EIEH+10 |
$$NOW^XLFDT | STORE+11, STORE+14, STORE+16 |
FileNo | Call Tags |
---|---|
^AUPNVSIT - [#9000010] | GET1^DIQ |
^AUPNVMSR - [#9000010.01] | Classic Fileman Calls, GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNVMSR - [#9000010.01] | STORE+4, CALCBMIH+44, HASVM+5, EIEW+8, EIEH+35, FILEEIE+2, FILEEIE+10*, HASAVM+4 |
^AUPNVMSR("AD" | CALCBMIH+43, HASVM+2, EIEW+7, EIEH+34, HASAVM+2 |
^AUPNVSIT - [#9000010] | STORE+5 |
Name | Line Occurrences |
---|---|
$$HASAVM | CALCBMIH+31, CALCBMIH+32, EIEW+5, EIEH+22, EIEH+23, EIEH+31, EIEH+32 |
$$HASVM | CALCBMIW+18, CALCBMIH+40, CALCBMIH+41, CALCBMIH+58, CALCBMIH+66, BMIP+7, EIEW+29, EIEW+36, EIEH+45, EIEH+52 |
$$LASTHT | CALCBMIH+50, EIEW+22, EIEH+39 |
BMIP | CALCBMIW+18, CALCBMIW+21 |
EIEH | EIE1+6 |
EIEW | EIE1+5 |
FILEEIE | CALCBMIH+40, CALCBMIH+41, EIEW+12, EIEW+29, EIEW+36, EIEH+31, EIEH+32 |
>> | 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+4, CALCBMI1+5, CALCBMI1+6, CALCBMIH+32*, CALCBMIH+33*, LASTHT+3~, LASTHT+5*, LASTHT+6, LASTHT+7 , LASTHT+13, EIE1+3*, EIE1+4, EIE1+5, EIE1+6, EIEH+23*, EIEH+24* |
>> AGE | CALCBMIW+10*, CALCBMIH+16*, CALCBMIH+18, CALCBMIH+19, CALCBMIH+20, BMIP+2, BMIP+3, EIEW+21*, EIEW+32, EIEW+33 , EIEH+7*, EIEH+9, EIEH+10, EIEH+11 |
>> APCDA | CALCBMIH+43*, CALCBMIH+44, CALCBMIH+45, CALCBMIH+46, CALCBMIH+47, CALCBMIH+56, CALCBMIH+68, EIEH+34*, EIEH+35, EIEH+36 , EIEH+37 |
>> APCDAGE | CALCBMIH+38*, CALCBMIH+61, CALCBMIH+62, EIEH+29*, EIEH+47, EIEH+48 |
APCDERR | FILEEIE+3~ |
APCDFDA | FILEEIE+3~ |
APCDFDA( | FILEEIE+5*, FILEEIE+6* |
APCDIENS | FILEEIE+3~, FILEEIE+4*, FILEEIE+5, FILEEIE+6 |
>> APCDSTOP | CALCBMIH+23*, EIEH+14* |
APCDVAR | CALCBMIH+17!, EIEH+8! |
APCDVAR( | CALCBMIH+24, CALCBMIH+25, CALCBMIH+26, CALCBMIH+37, EIEH+15, EIEH+16, EIEH+17, EIEH+28 |
APCDVAR("LH" | CALCBMIH+26*, CALCBMIH+27, CALCBMIH+28, CALCBMIH+29, CALCBMIH+30!, CALCBMIH+31!, CALCBMIH+33!, CALCBMIH+35, CALCBMIH+36, 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, STORE+4, CALCBMIH+9, CALCBMIH+11 , CALCBMIH+13, CALCBMIH+56*, CALCBMIH+59*, CALCBMIH+68*, CALCBMIH+70*, EIE~, EIE+1, EIE+3!, EIE1+3, EIEW+3 , EIEW+14, EIEW+16, EIEW+18, EIEH+2, EIEH+4, FILEEIE+10, HASAVM+4 |
APCDY | EIEW+7*, EIEW+8, EIEW+9, EIEW+12, FILEEIE~, FILEEIE+1, FILEEIE+2, FILEEIE+4, FILEEIE+10, FILEEIE+12 |
>> APCDZ | CALCBMIH+40*, CALCBMIH+41*, EIEW+29*, EIEW+36*, EIEH+31*, EIEH+32* |
B | CALCBMIH+32*, CALCBMIH+33*, HASVM~, HASVM+4, EIEH+23*, EIEH+24* |
BIEN | STORE+2~ |
>> BMI | CALCBMIW+1*, CALCBMIW+16*, CALCBMIW+18, CALCBMIW+19, CALCBMIH+6*, CALCBMIH+40, CALCBMIH+41, CALCBMIH+57*, CALCBMIH+58, CALCBMIH+63 , BMIP+4, EIEW+27*, EIEW+29, EIEW+34, EIEH+44*, EIEH+45, EIEH+49 |
>> BMIPCT | CALCBMIH+63*, CALCBMIH+64, CALCBMIH+66, CALCBMIH+69, 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+27*, CALCBMIH+28, CALCBMIH+29, CALCBMIH+30, CALCBMIH+31, CALCBMIH+32, CALCBMIH+35*, CALCBMIH+36, EIEH+18*, EIEH+19 , EIEH+20, EIEH+21, EIEH+22, EIEH+23, EIEH+26*, EIEH+27 |
DA | FILEEIE+3~, FILEEIE+12*! |
DATA | CALCBMIW+19, STORE~, STORE+3*, STORE+19*, STORE+20*, CALCBMIH+58, CALCBMIH+69, BMIP+9, EIEH+45, EIEH+54 |
>> DFN | CALCBMIW+5*, CALCBMIW+6, CALCBMIW+10, CALCBMIW+11, STORE+8, CALCBMIH+11*, CALCBMIH+12, CALCBMIH+16, CALCBMIH+21, CALCBMIH+38 , CALCBMIH+50, CALCBMIH+63, BMIP+4, EIEW+16*, EIEW+17, EIEW+21, EIEW+22, EIEW+34, EIEH+2*, EIEH+3 , EIEH+7, EIEH+12, EIEH+29, EIEH+39, EIEH+49 |
DIK | FILEEIE+3~, FILEEIE+12*! |
DUZ | STORE+12, STORE+15, STORE+17, FILEEIE+6 |
>> E | CALCBMIH+18*, CALCBMIH+19*, CALCBMIH+20*, CALCBMIH+21, EIEH+9*, EIEH+10*, EIEH+11*, EIEH+12 |
ERR | STORE+2~, STORE+19 |
FDA | STORE+2~, STORE+6*, STORE+7, STORE+8, STORE+9, STORE+10, STORE+11, STORE+12, STORE+13, STORE+14 , STORE+15, STORE+16, STORE+17 |
FDA( | STORE+6 |
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+50*, CALCBMIH+51, CALCBMIH+52, CALCBMIH+53*, CALCBMIH+57* , 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, CALCBMIH+15*, CALCBMIH+52*, BMIP+9, EIEW+24*, EIEH+6*, EIEH+41*, EIEH+45, EIEH+54 |
>> HT | CALCBMIH+9*, CALCBMIH+10 |
>> N | CALCBMIH+25*, CALCBMIH+26, CALCBMIH+29*, CALCBMIH+30, CALCBMIH+31, CALCBMIH+32, CALCBMIH+37*, CALCBMIH+38, CALCBMIH+40, CALCBMIH+41 , CALCBMIH+43, CALCBMIH+50, CALCBMIH+63, CALCBMIH+66, 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+49, EIEH+52 |
P | LASTHT~, LASTHT+1, LASTHT+5, LASTHT+9, LASTHT+15, LASTHT+19 |
SAVAPCDX | CALCBMIH+55~, CALCBMIH+56*, CALCBMIH+59, CALCBMIH+68*, CALCBMIH+70 |
T | HASVM~, HASVM+3, EIEW+9*, EIEW+10, HASAVM~, HASAVM+3 |
TAKEN | STORE+2~, STORE+4*, STORE+5*, STORE+13 |
TYPE | STORE~, STORE+7 |
U | CALCBMIW+13, CALCBMIW+14, STORE+4, STORE+5, CALCBMIH+25, CALCBMIH+29, CALCBMIH+37, CALCBMIH+44, CALCBMIH+52, CALCBMIH+53 , 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, CALCBMIH+13*, CALCBMIH+14, CALCBMIH+15, CALCBMIH+16, CALCBMIH+18 , CALCBMIH+19, CALCBMIH+20, CALCBMIH+21, CALCBMIH+30, CALCBMIH+32, CALCBMIH+58, 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 , EIEH+54, HASAVM~, HASAVM+2 |
VALUE | STORE~, STORE+10, 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 |
VIEN | STORE~, STORE+5, STORE+9, CALCBMIH+5~, CALCBMIH+47*, CALCBMIH+48, CALCBMIH+49, CALCBMIH+58, CALCBMIH+69 |
>> VTBMI | CALCBMI1+3*, CALCBMIW+19, CALCBMIH+58, EIE1+2*, EIEH+45 |
>> VTBMIP | CALCBMI1+3*, CALCBMIH+69, BMIP+9, EIE1+2*, EIEH+54 |
>> W | CALCBMIW+3*, CALCBMIW+4, CALCBMIW+16*, CALCBMIH+46*, CALCBMIH+57*, EIEW+14*, EIEW+15, EIEW+27*, EIEH+37*, EIEH+44* |
WTDT | STORE~, CALCBMIH+5~, CALCBMIH+49*, CALCBMIH+58, CALCBMIH+69 |
>> X | CALCBMIH+24*, CALCBMIH+25, CALCBMIH+26, CALCBMIH+28*, CALCBMIH+29, CALCBMIH+30, CALCBMIH+31, CALCBMIH+32, CALCBMIH+36*, CALCBMIH+37 , 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 |
Name | Field # of Occurrence |
---|---|
$T(BMIPCT^BEHOVM2 | CALCBMIH+60, BMIP+1, EIEW+31, EIEH+46 |