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 |