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* |