BEHOVM4 ;IHS/MSC/MGH - Storing BMI values ;22-Sep-2014 09:41;DU
Source file <BEHOVM4.m>
| Package | Total | Call Graph | 
|---|---|---|
| IHS Electronic Health Record | 2 | $$VTYPE^BEHOVM ($$BMIPCT,EIE)^BEHOVM2 | 
| VA Fileman | 2 | UPDATE^DIE $$GET1^DIQ | 
| GUI Objects | 1 | $$PTAGE^BGOUTL | 
| Kernel | 1 | $$NOW^XLFDT | 
| Patient Care Component | 1 | $$LASTHT^APCDBMI | 
| Patient Care Component Reports | 1 | $$VD^APCLV | 
| Package | Total | Caller Graph | 
|---|---|---|
| IHS Electronic Health Record | 1 | BEHOVMIN | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| DELBMIS(IEN,DFN) | ;Delete all BMIs done from this date forward to a newer Ht | |
| CHECK(ITEM,START,END) | ; | |
| DELBMI(IEN) | ;Delete and redo BMI on same visit if wt was in error | |
| BMISAVE(RET,DFN,WT,WTDT,VIEN) | ;Store the BMI based on wt | |
| ADDBACK(VMIEN,HT,START,END) | ; | |
| BLDXRF(VTYP,START,END) | ; | |
| STORE(DATA,TYPE,VALUE) | ;Store the results | 
| Name | Field # of Occurrence | 
|---|---|
| $$LASTHT^APCDBMI | BMISAVE+9 | 
| $$VD^APCLV | BMISAVE+8 | 
| $$VTYPE^BEHOVM | BMISAVE+2, BMISAVE+3, DELBMI+3, DELBMIS+3, DELBMIS+4, ADDBACK+3 | 
| $$BMIPCT^BEHOVM2 | BMISAVE+19 | 
| EIE^BEHOVM2 | DELBMI+10, DELBMI+13, CHECK+7 | 
| $$PTAGE^BGOUTL | BMISAVE+4 | 
| UPDATE^DIE | STORE+15 | 
| $$GET1^DIQ | BLDXRF+15, DELBMI+4, DELBMI+5, DELBMI+6, DELBMIS+5, DELBMIS+6, DELBMIS+7, DELBMIS+8, DELBMIS+33 | 
| $$NOW^XLFDT | STORE+8, STORE+11, STORE+13 | 
| FileNo | Call Tags | 
|---|---|
| ^AUPNVSIT - [#9000010] | GET1^DIQ | 
| ^AUPNVMSR - [#9000010.01] | GET1^DIQ | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^AUPNVMSR - [#9000010.01] | BLDXRF+5, BLDXRF+6, BLDXRF+7, DELBMI+8, DELBMI+11, DELBMIS+23, DELBMIS+24, DELBMIS+34, ADDBACK+8, ADDBACK+9 | 
| ^AUPNVMSR("AB" | DELBMI+7 | 
| ^DPT - [#2] | BMISAVE+5 | 
| ^TMP("BEHOVM" | BLDXRF+3!, BLDXRF+17*, DELBMIS+18, DELBMIS+20, DELBMIS+22, DELBMIS+29, DELBMIS+31, CHECK+3, CHECK+5, ADDBACK+5 , ADDBACK+7 | 
| Name | Line Occurrences | 
|---|---|
| ADDBACK | DELBMIS+44 | 
| BLDXRF | DELBMIS+15, DELBMIS+41, DELBMIS+42, ADDBACK+4 | 
| BMISAVE | ADDBACK+10 | 
| CHECK | DELBMIS+41, DELBMIS+42 | 
| STORE | BMISAVE+14, BMISAVE+20 | 
| Name | Field # of Occurrence | 
|---|---|
| ^(12 | BLDXRF+7 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| AGE | BMISAVE+1~, BMISAVE+4*, BMISAVE+6, BMISAVE+17 | 
| BEHDATA | DELBMI+1~, DELBMI+9*, DELBMI+10, DELBMI+12*, DELBMI+13, DELBMIS+1~, CHECK+2~, CHECK+6*, CHECK+7 | 
| BEHRESULT | DELBMI+1~, DELBMI+2* | 
| BIEN | STORE+1~ | 
| BMI | BMISAVE+1~, BMISAVE+12*, BMISAVE+13, BMISAVE+14, BMISAVE+19 | 
| BMIPCT | BMISAVE+1~, BMISAVE+19*, BMISAVE+20 | 
| CTYPE | BLDXRF+1~ | 
| CVISIT | BLDXRF+1~ | 
| DATA | BMISAVE+16*, BMISAVE+20, BMISAVE+21, BMISAVE+22, STORE~, STORE+2*, STORE+16*, STORE+17* | 
| DATE | DELBMI+1~, DELBMIS+1~ | 
| DFN | BMISAVE~, BMISAVE+4, BMISAVE+5, BMISAVE+9, BMISAVE+19, STORE+5, BLDXRF+5, BLDXRF+6, BLDXRF+10, DELBMI+1~ , DELBMI+4*, DELBMIS~, DELBMIS+1~, DELBMIS+5*, ADDBACK+10 | 
| DONE | BMISAVE+1~ | 
| DT | DELBMIS+11, DELBMIS+25 | 
| DUZ | STORE+9, STORE+12, STORE+14, DELBMI+9, DELBMI+12, CHECK+6 | 
| EIE | BMISAVE+1~, BLDXRF+1~, BLDXRF+15*, BLDXRF+16 | 
| END | BLDXRF~, BLDXRF+13, DELBMIS+11*, DELBMIS+12*, DELBMIS+13*, DELBMIS+15, DELBMIS+34*, DELBMIS+35*, DELBMIS+36*, DELBMIS+38* , DELBMIS+39*, DELBMIS+41, DELBMIS+42, DELBMIS+44, CHECK~, ADDBACK~, ADDBACK+4 | 
| ERR | STORE+1~, STORE+16 | 
| EVDT | DELBMI+1~, DELBMI+6*, DELBMI+7, DELBMIS+1~, DELBMIS+8*, DELBMIS+9*, DELBMIS+16, DELBMIS+27, DELBMIS+28 | 
| FDA | STORE+1~, STORE+3*, STORE+4, STORE+5, STORE+6, STORE+7, STORE+8, STORE+9, STORE+10, STORE+11 , STORE+12, STORE+13, STORE+14 | 
| FDA( | STORE+3 | 
| GOODHT | DELBMIS+2~, DELBMIS+33*, DELBMIS+44 | 
| HT | ADDBACK~ | 
| IDT | CHECK+2~, CHECK+3*, CHECK+5, ADDBACK+2~, ADDBACK+5*, ADDBACK+7 | 
| IEN | BMISAVE+1~, DELBMI~, DELBMI+4, DELBMI+5, DELBMI+6, DELBMIS~, DELBMIS+5, DELBMIS+6, DELBMIS+8 | 
| INVDT | DELBMIS+2~, DELBMIS+16*, DELBMIS+18, DELBMIS+20*, DELBMIS+21, DELBMIS+22, DELBMIS+27*, DELBMIS+28*, DELBMIS+29*, DELBMIS+30 , DELBMIS+31 | 
| ITEM | CHECK~, CHECK+3, CHECK+5 | 
| MDATE | BLDXRF+1~, BLDXRF+11*, BLDXRF+12, BLDXRF+13, BLDXRF+17 | 
| MIEN | DELBMI+1~, DELBMI+7*, DELBMI+8, DELBMI+9, DELBMI+11, DELBMI+12, DELBMIS+1~ | 
| NEXTAFT | DELBMIS+2~, DELBMIS+18*, DELBMIS+19, DELBMIS+22*, DELBMIS+23, DELBMIS+24 | 
| NEXTBACK | DELBMIS+2~, DELBMIS+31*, DELBMIS+32, DELBMIS+33, DELBMIS+34, DELBMIS+35 | 
| RESULT | DELBMI+1~, DELBMI+10, DELBMI+13, CHECK+7 | 
| RET | BMISAVE~, BMISAVE+14, BMISAVE+15, BMISAVE+21*, BMISAVE+22*, ADDBACK+2~, ADDBACK+10 | 
| >> RMAX | DELBMIS+14*, DELBMIS+40* | 
| RSHT | BMISAVE+1~, BMISAVE+9*, BMISAVE+10, BMISAVE+12* | 
| RSWT | BMISAVE+1~, BMISAVE+11*, BMISAVE+12* | 
| SEX | BMISAVE+1~, BMISAVE+5*, BMISAVE+18 | 
| START | BLDXRF~, BLDXRF+12, DELBMIS+11*, DELBMIS+12*, DELBMIS+13*, DELBMIS+15, DELBMIS+23*, DELBMIS+24*, DELBMIS+25*, DELBMIS+38* , DELBMIS+39*, DELBMIS+41, DELBMIS+42, DELBMIS+44, CHECK~, ADDBACK~, ADDBACK+4 | 
| TT | BLDXRF+1~ | 
| TYPE | STORE~, STORE+4 | 
| U | BMISAVE+5, BMISAVE+10, BLDXRF+10, DELBMI+8, DELBMI+9, DELBMI+11, DELBMI+12, DELBMIS+23, DELBMIS+24, DELBMIS+34 , CHECK+6, ADDBACK+8, ADDBACK+9 | 
| VALUE | STORE~, STORE+7 | 
| VDT | BMISAVE+1~, BMISAVE+8*, BMISAVE+9, DELBMIS+1~, DELBMIS+7*, DELBMIS+9 | 
| VIEN | BMISAVE~, BMISAVE+8, STORE+6, BLDXRF+1~, BLDXRF+6*, BLDXRF+7, BLDXRF+15, BLDXRF+17, DELBMI+1~, DELBMI+5* , DELBMIS+1~, DELBMIS+6*, DELBMIS+7, DELBMIS+44, CHECK+2~, CHECK+4*, CHECK+5*, CHECK+6, ADDBACK+2~, ADDBACK+6* , ADDBACK+7*, ADDBACK+8, ADDBACK+9 | 
| VMIEN | ADDBACK~ | 
| VST | ADDBACK+2~, ADDBACK+9*, ADDBACK+10 | 
| VTBMI | BMISAVE+3*, BMISAVE+14, DELBMI+1~, DELBMI+3*, DELBMI+8, DELBMIS+1~, DELBMIS+4*, DELBMIS+42 | 
| VTBMIP | BMISAVE+1~, BMISAVE+3*, BMISAVE+20, DELBMI+1~, DELBMI+3*, DELBMI+11, DELBMIS+1~, DELBMIS+4*, DELBMIS+41 | 
| VTHT | BMISAVE+1~, BMISAVE+2*, DELBMIS+1~, DELBMIS+3*, DELBMIS+15, DELBMIS+18, DELBMIS+20, DELBMIS+22, DELBMIS+29, DELBMIS+31 | 
| VTWT | BMISAVE+1~, BMISAVE+2*, DELBMIS+1~, DELBMIS+3*, ADDBACK+2~, ADDBACK+3*, ADDBACK+4, ADDBACK+5, ADDBACK+7 | 
| VTYP | BLDXRF~, BLDXRF+3, BLDXRF+5, BLDXRF+6, BLDXRF+9, BLDXRF+17 | 
| WT | BMISAVE~, BMISAVE+11, ADDBACK+8*, ADDBACK+10 | 
| WTDT | BMISAVE~, BMISAVE+4, BMISAVE+19, STORE+10, ADDBACK+8*, ADDBACK+10 | 
| X | BLDXRF+1~, BLDXRF+2*, BLDXRF+5*, BLDXRF+6, BLDXRF+7, BLDXRF+8, BLDXRF+11, DELBMIS+12*, DELBMIS+38* | 
| XREF | BLDXRF+1~, BLDXRF+4*, BLDXRF+5, BLDXRF+6, BLDXRF+8, BLDXRF+11 | 
| Y | BLDXRF+1~, BLDXRF+7*, BLDXRF+8*, BLDXRF+11 | 
| Z | BLDXRF+1~, BLDXRF+7*, BLDXRF+9, BLDXRF+10 |