©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
BHSPMH3 ;IHS/MSC/MGH - Health Summary for Patient wellness handout ;30-Nov-2015 10:27;DU
Source file <BHSPMH3.m>
| Package | Total | Call Graph |
|---|---|---|
| Health Summary Components | 2 | MEDBLD^BHSPMH1A $$LAB^BHSPMH2 |
| Kernel | 2 | ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT $$LOW^XLFSTR |
| Patient Care Component Reports | 2 | $$START1^APCLDF $$PRIMPROV^APCLV |
| IHS Patient | 1 | ($$AGE,$$HRN,$$SEX)^AUPNPAT |
| IHS VA Utilities | 1 | $$VAL^XBDIQ1 |
| Immunization Tracking | 1 | IMMFORC^BIRPC |
| Patient Care Component | 1 | (EN,PROBA)^APCHPALG |
| Taxonomy | 1 | $$ICD^ATXCHK |
| VA Fileman | 1 | ^DIWP |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETHWBBP(P) | ;get last height, height date, weight, weight date, BMI and BP for patient P, return in BHSX("HT"),BHSX("HTD"),BHSX("WT"),BHSX("WTD"),BHSX("BMI")
|
|
| ALLERG | ;
|
|
| MEAS | ;
|
|
| IMMUN | ;
|
|
| BMI | ;
|
|
| RXSTAT | ; EP gets status of rx ... TAKEN FROM PSOFUNC ROUTINE
|
|
| CKD | ;Does patient have chronic kidney disease (CKD)?
|
|
| LASTWC | ;
|
|
| S1 | ;
|
|
| LASTWT | ;
|
|
| S(Y,F,C,T) | ;set up array
|
|
| LASTBP | ;
|
|
| MEDS | ;
|
|
| CKDP | ;
|
|
| SETARRAY | ;set up array containing dm care summary
|
|
| DMX | ;
|
|
| DMDX(P) | ;
|
|
| HOLD | ;Now get meds in Pharmacy yet to be completed
|
|
| LASTHT | ;
|
|
| EP(BHSDFN) | ;PEP - PASS DFN get back array of patient care summary
|
|
| DATE(D) | ;EP - convert to slashed date
|
| Name | Field # of Occurrence |
|---|---|
| EN^APCHPALG | ALLERG+7 |
| PROBA^APCHPALG | ALLERG+30 |
| $$START1^APCLDF | LASTHT+4, LASTWT+1, LASTBP+1, LASTWC+1, DMDX+10 |
| $$PRIMPROV^APCLV | SETARRAY+5 |
| $$ICD^ATXCHK | DMDX+6 |
| $$AGE^AUPNPAT | MEAS+28, MEAS+29, MEAS+31, MEAS+32, BMI+1 |
| $$HRN^AUPNPAT | SETARRAY+4 |
| $$SEX^AUPNPAT | SETARRAY+9, CKD+5, CKD+6 |
| MEDBLD^BHSPMH1A | MEDS+15 |
| $$LAB^BHSPMH2 | CKD+4, CKD+8, CKD+11, CKD+14 |
| IMMFORC^BIRPC | IMMUN+4 |
| ^DIWP | MEDS+21 |
| $$VAL^XBDIQ1 | SETARRAY+6, SETARRAY+7, SETARRAY+8 |
| $$FMADD^XLFDT | MEDS+14 |
| $$FMDIFF^XLFDT | MEAS+11, MEAS+28, MEAS+29 |
| $$FMTE^XLFDT | MEAS+10, MEAS+17, MEAS+27 |
| $$LOW^XLFSTR | SETARRAY+9 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TEST" | SETARRAY+2 |
| ^APCCCTRL - [#9001000] | SETARRAY+4, SETARRAY+10 |
| ^ATXAX("B" | DMDX+3 |
| ^ATXLAB("B" | CKD+4, CKD+8, CKD+11, CKD+14 |
| ^AUPNPROB - [#9000011] | DMDX+6 |
| ^AUPNPROB("AC" | DMDX+5 |
| ^AUPNVMED("AA" | MEDS+15 |
| ^AUPNVMSR("AC" | LASTHT+2 |
| ^AUPNVSIT("AC" | SETARRAY+5, LASTHT+1 |
| ^AUTTLOC - [#9999999.06] | SETARRAY+7 |
| ^DIC(4 - [#4] | SETARRAY+4, SETARRAY+10 |
| ^DPT - [#2] | SETARRAY+4, SETARRAY+9 |
| ^PS(52.5 - [#52.5] | RXSTAT+4 |
| ^PS(55 - [#55] | HOLD+4, HOLD+5 |
| ^PSDRUG - [#50] | HOLD+7 |
| ^PSRX - [#52] | RXSTAT+1, HOLD+6, HOLD+7 |
| ^TMP("BHSPHS" | EP+2!, EP+3*, S1+1*, S1+2* |
| ^UTILITY($J | MEDS+21!, MEDS+22, MEDS+23, MEDS+24! |
| Name | Line Occurrences |
|---|---|
| $$DMDX | CKDP+6 |
| CKD | CKDP+2 |
| DMX | DMDX+10 |
| GETHWBBP | MEAS+3 |
| HOLD | MEDS+26 |
| S | SETARRAY+3, SETARRAY+4, SETARRAY+6, SETARRAY+7, SETARRAY+8, SETARRAY+9, SETARRAY+10, SETARRAY+11, IMMUN+2, IMMUN+3 , IMMUN+5, IMMUN+14, IMMUN+15, MEAS+2, MEAS+6, MEAS+8, MEAS+9, MEAS+10, MEAS+11, MEAS+13 , MEAS+14, MEAS+17, MEAS+19, MEAS+21, MEAS+22, MEAS+23, MEAS+26, MEAS+27, MEAS+28, MEAS+29 , MEAS+31, MEAS+32, CKDP+8, CKDP+10, CKDP+11, CKDP+12, CKDP+13, ALLERG+1, ALLERG+2, ALLERG+3 , ALLERG+4, ALLERG+9, ALLERG+14, ALLERG+20, ALLERG+26, ALLERG+31, ALLERG+36, ALLERG+38, MEDS+3, MEDS+4 , MEDS+5, MEDS+6, MEDS+7, MEDS+8, MEDS+9, MEDS+10, MEDS+11, MEDS+16, MEDS+19, MEDS+22 , MEDS+23, MEDS+28, MEDS+29, MEDS+32 |
| S1 | S+5, S+7, S+10 |
| SETARRAY | EP+5 |
| Name | Field # of Occurrence |
|---|---|
| ^("P" | RXSTAT+4 |
| ^(0 | RXSTAT+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | S+3~, S+8*, S+9*, S1+1*, S1+2, LASTHT+4*, LASTWT+1*, LASTBP+1*, LASTWC+1*, BMI+3* , BMI+4*, BMI+5 |
| APCHALG | ALLERG+5~ |
| APCHCKD | CKDP+7, CKD+1~, CKD+2*, CKD+5*, CKD+6*, CKD+8, CKD+9*, CKD+11, CKD+12*, CKD+14 , CKD+15* |
| APCHDBP | MEAS+1~, MEAS+26*, MEAS+27, CKDP+4, CKDP+5, CKDP+6, CKDP+7 |
| APCHENT | ALLERG+5~, ALLERG+9 |
| APCHENT("A" | ALLERG+10, ALLERG+12, ALLERG+14, ALLERG+26 |
| APCHENT("P" | ALLERG+16, ALLERG+18, ALLERG+20 |
| APCHENT("U" | ALLERG+22, ALLERG+24 |
| APCHFEET | MEAS+1~, MEAS+5*, MEAS+6 |
| APCHHBP | MEAS+1~, CKDP+3*, CKDP+5*, CKDP+6*, CKDP+7*, CKDP+8, CKDP+9 |
| APCHHM | MEDS+2~, MEDS+27 |
| APCHHM( | MEDS+31, HOLD+8* |
| APCHHMED | MEDS+2~, MEDS+30*, MEDS+31*, MEDS+32, HOLD+7*, HOLD+8 |
| APCHI | IMMUN+1~, IMMUN+10 |
| APCHI( | IMMUN+8*, IMMUN+11, IMMUN+12, IMMUN+15 |
| APCHICTR | IMMUN+1~, IMMUN+10*, IMMUN+11*, IMMUN+12, IMMUN+13 |
| APCHIMDU | IMMUN+1~, IMMUN+13*, IMMUN+14, IMMUN+15 |
| APCHIMM | IMMUN+1~, IMMUN+4, IMMUN+5, IMMUN+6 |
| APCHIMMN | IMMUN+1~, IMMUN+6*, IMMUN+8 |
| APCHIMMT | IMMUN+1~, IMMUN+6*, IMMUN+7*, IMMUN+8 |
| APCHINCH | MEAS+1~, MEAS+5*, MEAS+6 |
| APCHLACD | CKD+1~, CKD+11* |
| APCHLACV | CKD+1~, CKD+11*, CKD+12 |
| APCHLCRD | CKD+1~, CKD+4* |
| APCHLCRV | CKD+1~, CKD+4*, CKD+5, CKD+6 |
| APCHLEGD | CKD+1~, CKD+14* |
| APCHLEGV | CKD+1~, CKD+14*, CKD+15 |
| APCHLUPD | MEDS+2~, CKD+8* |
| APCHLUPV | CKD+1~, CKD+8*, CKD+9 |
| APCHMFX | MEDS+2~ |
| APCHNMED | HOLD+2~, HOLD+5*, HOLD+6, HOLD+7, HOLD+8 |
| APCHSALD | ALLERG+5~, ALLERG+6*, ALLERG+10*, ALLERG+11, ALLERG+12, ALLERG+14, ALLERG+16*, ALLERG+17, ALLERG+18, ALLERG+20 , ALLERG+22*, ALLERG+23, ALLERG+24, ALLERG+26, ALLERG+29*, ALLERG+32* |
| APCHSALG | ALLERG+5~, ALLERG+6*, ALLERG+13*, ALLERG+19*, ALLERG+25*, ALLERG+38 |
| APCHSALP | ALLERG+5~, ALLERG+6*, ALLERG+12*, ALLERG+14, ALLERG+18*, ALLERG+20, ALLERG+24*, ALLERG+26, ALLERG+29*, ALLERG+33* , ALLERG+34, ALLERG+36 |
| APCHSAPR | ALLERG+5~, ALLERG+29*, ALLERG+35*, ALLERG+38 |
| APCHSBP | MEAS+1~, MEAS+26*, MEAS+27, CKDP+4, CKDP+5, CKDP+6, CKDP+7 |
| APCHSDLM | MEDS+1~, MEDS+14*, MEDS+15 |
| APCHSDT | HOLD+2~, HOLD+3*, HOLD+4*, HOLD+5 |
| APCHSIG | MEDS+1~, MEDS+21* |
| APCHSIVD | MEDS+1~, MEDS+15* |
| APCHSM | MEDS+1~ |
| APCHSM( | MEDS+18, MEDS+21 |
| APCHSMCT | MEDS+1~, MEDS+15*, MEDS+16 |
| APCHSMED | MEDS+1~, MEDS+17*, MEDS+18*, MEDS+19, MEDS+21 |
| APCHSMFX | MEDS+2~ |
| APCHSMX | MEDS+1~, MEDS+15* |
| APCHSP | ALLERG+5~ |
| APCHSPT | ALLERG+5~, ALLERG+31, ALLERG+32 |
| APCHSPT( | ALLERG+32, ALLERG+33, ALLERG+36 |
| APCHSQ | MEDS+1~, MEDS+15* |
| >> APCHSRXP | RXSTAT+1, RXSTAT+2, RXSTAT+3 |
| APCHSSGY | MEDS+1~ |
| BHSDFN | EP~, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+8, SETARRAY+9, IMMUN+4, MEAS+3, MEAS+28 , MEAS+29, MEAS+31, MEAS+32, CKDP+6, MEDS+15, CKD+4, CKD+5, CKD+6, CKD+8, CKD+11 , CKD+14, HOLD+1, HOLD+4, HOLD+5 |
| BHSPROV | EP+4~, SETARRAY+5*, SETARRAY+6 |
| BHSVSIT | EP+4~, SETARRAY+5 |
| BHSX | MEAS+1~, GETHWBBP+1!, DMDX+8~, DMDX+9*, DMDX+10*, DMDX+11*, DMX+1 |
| BHSX("BMI" | MEAS+12, MEAS+13, MEAS+16, MEAS+17, MEAS+19, MEAS+20, GETHWBBP+2*, BMI+5* |
| BHSX("BP" | MEAS+26, MEAS+27, MEAS+31, MEAS+32, CKDP+3, LASTBP+1* |
| BHSX("BPD" | MEAS+27, MEAS+28, MEAS+29, LASTBP+1* |
| BHSX("HT" | MEAS+5, MEAS+6, MEAS+9, GETHWBBP+2*, LASTHT+4*, LASTHT+5*, BMI+2, BMI+4 |
| BHSX("HTD" | GETHWBBP+2*, LASTHT+4*, BMI+1 |
| BHSX("WC" | GETHWBBP+2*, LASTWC+1* |
| BHSX("WCD" | GETHWBBP+2*, LASTWC+1* |
| BHSX("WT" | MEAS+8, MEAS+10, MEAS+11, GETHWBBP+2*, LASTWT+1*, BMI+2, BMI+4 |
| BHSX("WTD" | MEAS+10, MEAS+11, MEAS+12, MEAS+16, MEAS+17, GETHWBBP+2*, LASTWT+1*, BMI+1 |
| BHSX(3 | DMDX+10 |
| BHSY | LASTHT+3~, LASTWT+1!, LASTBP+1!, LASTWC+1! |
| BHSY(1 | LASTHT+4, LASTWT+1, LASTBP+1, LASTWC+1 |
| C | S~, S+7 |
| D | DATE~, DATE+1, DATE+2 |
| >> DIWL | MEDS+21* |
| >> DIWR | MEDS+21* |
| DT | MEAS+11, MEAS+12, MEAS+16, MEAS+28, MEAS+29, MEDS+14, RXSTAT+5, HOLD+3 |
| DUZ(2 | SETARRAY+4, SETARRAY+7, SETARRAY+10 |
| E | MEAS+1~, LASTHT+4*, LASTWT+1*, LASTBP+1*, LASTWC+1*, DMDX+10* |
| F | S~, S+1*, S+5* |
| >> GMTSDTM | SETARRAY+3 |
| H | MEAS+1~, BMI+4* |
| I | IMMUN+15*, MEDS+23*, DMDX+5~*, DMDX+6*, DMDX+7 |
| J | MEDS+2~, RXSTAT+3*, RXSTAT+4 |
| L | S+3~, S+7* |
| P | GETHWBBP~, LASTHT+1, LASTHT+2, LASTHT+4, LASTWT+1, LASTBP+1, LASTWC+1, BMI+1, DMDX~, DMDX+5 , DMDX+10 |
| >> RX0 | RXSTAT+4, RXSTAT+6* |
| >> RX2 | RXSTAT+5 |
| >> ST | RXSTAT+6* |
| >> ST0 | RXSTAT+4*, RXSTAT+5*, RXSTAT+6 |
| T | CKD+4*, CKD+8*, CKD+11*, CKD+14*, S~, S+2*, S+7*, S+8, S+9, DMDX+2~ , DMDX+3*, DMDX+4, DMDX+6 |
| U | SETARRAY+4, SETARRAY+7, SETARRAY+9, SETARRAY+10, IMMUN+6, MEDS+21, HOLD+7, S1+1, LASTHT+4, LASTWT+1 , LASTBP+1, LASTWC+1, DMDX+6 |
| W | MEAS+1~, BMI+4* |
| X | EP+4~, SETARRAY+2*, SETARRAY+3*, SETARRAY+4*, SETARRAY+6*, SETARRAY+7*, SETARRAY+8*, SETARRAY+9*, SETARRAY+10*, SETARRAY+11* , IMMUN+1~, IMMUN+2*, IMMUN+3*, IMMUN+5*, IMMUN+14*, IMMUN+15*, MEAS+1~, MEAS+2*, MEAS+6*, MEAS+8* , MEAS+9*, MEAS+10*, MEAS+11*, MEAS+13*, MEAS+14*, MEAS+17*, MEAS+19*, MEAS+21*, MEAS+22*, MEAS+23* , MEAS+26*, MEAS+27*, MEAS+28*, MEAS+29*, MEAS+31*, MEAS+32*, CKDP+8*, CKDP+10*, CKDP+11*, CKDP+12* , CKDP+13*, ALLERG+1*, ALLERG+2*, ALLERG+3*, ALLERG+4*, ALLERG+9*, ALLERG+14*, ALLERG+20*, ALLERG+26*, ALLERG+31* , ALLERG+36*, ALLERG+38*, MEDS+1~, MEDS+3*, MEDS+4*, MEDS+5*, MEDS+6*, MEDS+7*, MEDS+8*, MEDS+9* , MEDS+10*, MEDS+11*, MEDS+16*, MEDS+19*, MEDS+21*, MEDS+22*, MEDS+23*, MEDS+28*, MEDS+29*, MEDS+32* , S+3~, S+5*, S+6*, S+8*, S+9*, S1+2, LASTHT+4~, LASTWT+1~, LASTBP+1~, LASTWC+1~ , DMDX+5~*, DMDX+6, DMDX+10* |
| Y | EP+4~, SETARRAY+7*, S~, S+6, S+7, S+9, DMDX+5~*, DMDX+6* |