BHSDM4 ;IHS/CIA/MGH - Health Summary for Diabetic Supplement ;30-Nov-2015 10:24;DU
Source file <BHSDM4.m>
| Package | Total | Call Graph | 
|---|---|---|
| Patient Care Component | 4 | $$LOINC^APCHS9B2 $$REFDF^APCHS9B3 $$LASTPAP^APCHSMU $$CPT^APCHSMU2 | 
| Health Summary Components | 3 | $$REFDF^BHSDM3 ^BHSMU ($$CPT,$$WH)^BHSMU2 | 
| DRG Grouper | 2 | $$ICDOP^ICDEX $$CPT^ICPTCOD | 
| Kernel | 2 | $$FMTE^XLFDT $$VERSION^XPDUTL | 
| Patient Care Component Reports | 2 | $$START1^APCLDF ($$CLINIC,$$PRIMPOV,$$PRIMPROV)^APCLV | 
| IHS Patient | 1 | ($$AGE,$$DOB,$$SEX)^AUPNPAT | 
| IHS VA Utilities | 1 | $$VAL^XBDIQ1 | 
| Taxonomy | 1 | $$ICD^ATXAPI | 
| Women's Health | 1 | $$WHAPI^BWVPAT1 | 
| Package | Total | Caller Graph | 
|---|---|---|
| Health Summary Components | 3 | BHSDM3 BHSDM5 BHSDM6 | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| PLDMDOO(P,F) | ;EP get first dm dx from case management | |
| EYE(P,BHSSED) | ;EP | |
| BREAST(P,BHSSED) | ;EP | |
| CMSFDX(P,F) | ;EP - return date/dx of dm in register | |
| DNKA(V) | ;EP is this a DNKA visit? | |
| MAMMOG(P) | ;EP | |
| FRSTDMDX(P,F) | ;EP return date of first dm dx | |
| PAP(P,BHSSED) | ;EP | |
| HYSTER(P,EDATE) | ;EP | |
| MAMMOG1(P) | ;for radiology 4.5+ or until qman can handle taxonomies for radiology procedures | |
| RECTAL(P,BHSSED) | ;EP | |
| DFE(P,BHSSED) | ;EP | |
| OLDPAP | ; | |
| REFR(V) | ; | 
| Name | Field # of Occurrence | 
|---|---|
| $$LOINC^APCHS9B2 | OLDPAP+15 | 
| $$REFDF^APCHS9B3 | PAP+4, MAMMOG+60, MAMMOG+63, MAMMOG+66, MAMMOG+69, MAMMOG+72, MAMMOG+75, MAMMOG+78, MAMMOG+81, MAMMOG+84 , MAMMOG+87, MAMMOG+90 | 
| $$LASTPAP^APCHSMU | PAP+3 | 
| $$CPT^APCHSMU2 | MAMMOG+36 | 
| $$START1^APCLDF | FRSTDMDX+5, DFE+1, DFE+6, EYE+1, EYE+16, RECTAL+2, OLDPAP+2, OLDPAP+4, OLDPAP+22, OLDPAP+26 , BREAST+2, MAMMOG+19, MAMMOG+23, MAMMOG+27, MAMMOG+31, MAMMOG1+15 | 
| $$CLINIC^APCLV | DFE+11, EYE+22 | 
| $$PRIMPOV^APCLV | DNKA+2, DNKA+4, REFR+2 | 
| $$PRIMPROV^APCLV | DFE+9, EYE+20 | 
| $$ICD^ATXAPI | PLDMDOO+10 | 
| $$AGE^AUPNPAT | RECTAL+1 | 
| $$DOB^AUPNPAT | OLDPAP+34, HYSTER+17 | 
| $$SEX^AUPNPAT | PAP+1, BREAST+1, MAMMOG+1, MAMMOG1+1 | 
| $$REFDF^BHSDM3 | DFE+13, EYE+24, OLDPAP+38 | 
| ^BHSMU | OLDPAP+30 | 
| $$CPT^BHSMU2 | HYSTER+20 | 
| $$WH^BHSMU2 | OLDPAP+34, HYSTER+17 | 
| $$WHAPI^BWVPAT1 | MAMMOG+43 | 
| $$ICDOP^ICDEX | HYSTER+7 | 
| $$CPT^ICPTCOD | EYE+12 | 
| $$VAL^XBDIQ1 | EYE+27 | 
| $$FMTE^XLFDT | FRSTDMDX+6, CMSFDX+6, PLDMDOO+16, DFE+3, DFE+6, DFE+10, DFE+12, DFE+15, EYE+3, EYE+12 , EYE+16, EYE+21, EYE+23, EYE+26, RECTAL+4, RECTAL+5, BREAST+4, BREAST+5, HYSTER+14, HYSTER+16 , HYSTER+19 | 
| $$VERSION^XPDUTL | MAMMOG+41 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^ACM(41.1 - [#9002241.1] | CMSFDX+4 | 
| ^ACM(44 - [#9002244] | CMSFDX+5, CMSFDX+6 | 
| ^ATXAX("B" | PLDMDOO+6, OLDPAP+7, MAMMOG+35, HYSTER+18 | 
| ^AUPNPROB - [#9000011] | PLDMDOO+9, PLDMDOO+11 | 
| ^AUPNPROB("AC" | PLDMDOO+8 | 
| ^AUPNVCPT("AA" | EYE+8, OLDPAP+30 | 
| ^AUPNVLAB - [#9000010.09] | OLDPAP+12, OLDPAP+13, OLDPAP+16 | 
| ^AUPNVLAB("AE" | OLDPAP+9, OLDPAP+10, OLDPAP+11 | 
| ^AUPNVPRC - [#9000010.08] | HYSTER+7, HYSTER+11 | 
| ^AUPNVPRC("AC" | HYSTER+7 | 
| ^AUPNVRAD - [#9000010.22] | MAMMOG+6, MAMMOG+7 | 
| ^AUPNVRAD("AC" | MAMMOG+5 | 
| ^AUPNVSIT - [#9000010] | OLDPAP+17, MAMMOG+6, HYSTER+7, HYSTER+11 | 
| ^AUTTEXAM("B" | DFE+13, EYE+24 | 
| ^AUTTLOC - [#9999999.06] | MAMMOG+3 | 
| ^AUTTSITE(1 | MAMMOG+3 | 
| ^BWPCD - [#9002086.1] | MAMMOG+52, MAMMOG+53, MAMMOG+54 | 
| ^BWPCD("C" | MAMMOG+51 | 
| ^BWPN("B" | OLDPAP+33, MAMMOG+49, HYSTER+15 | 
| ^BWVPDT("B" | MAMMOG+42 | 
| ^DIC(40.7 - [#40.7] | MAMMOG1+6 | 
| ^DPT - [#2] | MAMMOG+36, HYSTER+20 | 
| ^ICPT("B" | EYE+7, OLDPAP+30 | 
| ^LAB(60 - [#60] | PAP+4, OLDPAP+38 | 
| ^RAMIS(71 - [#71] | MAMMOG+7, MAMMOG+59, MAMMOG+62, MAMMOG+65, MAMMOG+68, MAMMOG+71, MAMMOG+74, MAMMOG+77, MAMMOG+80, MAMMOG+83 , MAMMOG+86, MAMMOG+89, MAMMOG1+7, MAMMOG1+8, MAMMOG1+9, MAMMOG1+10 | 
| Name | Line Occurrences | 
|---|---|
| $$DNKA | DFE+9, DFE+11, EYE+20, EYE+22 | 
| $$MAMMOG1 | MAMMOG+3 | 
| $$REFR | EYE+20, EYE+22 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| % | DFE+1~*, DFE+6*, DFE+8*, EYE+1~*, EYE+16*, EYE+18*, EYE+26*, EYE+27*, EYE+28, RECTAL+2* , OLDPAP+1~, OLDPAP+2*, OLDPAP+4~*, OLDPAP+22*, OLDPAP+26*, OLDPAP+30~*, BREAST+2~*, MAMMOG+4~, MAMMOG+19*, MAMMOG+23* , MAMMOG+27*, MAMMOG+31*, MAMMOG1+15* | 
| APCHY | MAMMOG+59!*, MAMMOG+60, MAMMOG+62*, MAMMOG+63, MAMMOG+65*, MAMMOG+66, MAMMOG+68!*, MAMMOG+69, MAMMOG+71*, MAMMOG+72 , MAMMOG+74*, MAMMOG+75, MAMMOG+77!*, MAMMOG+78, MAMMOG+80*, MAMMOG+81, MAMMOG+83*, MAMMOG+84, MAMMOG+86!*, MAMMOG+87 , MAMMOG+89*, MAMMOG+90 | 
| BHSCPT | EYE+4*, EYE+5~, EYE+10*, EYE+12 | 
| BHSCPT1 | EYE+5~, EYE+10*, EYE+12 | 
| BHSEX | EYE+1~*, EYE+2*, EYE+10*, EYE+27 | 
| BHSLT | OLDPAP+4~, OLDPAP+7*, OLDPAP+8, OLDPAP+15 | 
| BHSMAM | MAMMOG1+5~ | 
| BHSMAM( | MAMMOG1+10*, MAMMOG1+14, MAMMOG1+15, MAMMOG1+17 | 
| BHSNAM | MAMMOG1+13~, MAMMOG1+17* | 
| BHSS | FRSTDMDX+3~ | 
| BHSS(1 | FRSTDMDX+5 | 
| BHSSAV | MAMMOG1+13~, MAMMOG1+14*, MAMMOG1+17*, MAMMOG1+20 | 
| BHSSED | DFE~, DFE+3, DFE+6, EYE~, EYE+3, EYE+12, EYE+16, RECTAL~, RECTAL+4, PAP~ , BREAST~, BREAST+4 | 
| BHSV | DFE+1~, DFE+5!, EYE+15! | 
| BHSV( | DFE+9, DFE+11, EYE+20, EYE+22 | 
| BHSV(9999999 | DFE+8*, EYE+18* | 
| BHSVDT | HYSTER+4~, HYSTER+7* | 
| BHSX | DFE+3*, EYE+3*, RECTAL+4*, BREAST+4*, MAMMOG1+13~, MAMMOG1+14*, MAMMOG1+15, MAMMOG1+17 | 
| BHSY | DFE+1~, DFE+5!, EYE+1~, EYE+4!, EYE+8*, EYE+9*, EYE+10, EYE+15!, RECTAL+2~, RECTAL+3 , OLDPAP+1~, OLDPAP+4~, OLDPAP+22!, OLDPAP+26!, OLDPAP+30!, BREAST+2~, BREAST+3, MAMMOG+4~!, MAMMOG+19!, MAMMOG+23! , MAMMOG+27!, MAMMOG+31!, MAMMOG1+13~ | 
| BHSY( | DFE+8, EYE+18 | 
| BHSY(1 | DFE+2, DFE+3, EYE+2, EYE+3, RECTAL+4, RECTAL+5, OLDPAP+3, OLDPAP+5, OLDPAP+23, OLDPAP+24 , OLDPAP+25, OLDPAP+27, OLDPAP+28, OLDPAP+29, OLDPAP+30*, OLDPAP+31, OLDPAP+32, BREAST+4, BREAST+5, MAMMOG+20 , MAMMOG+21, MAMMOG+22, MAMMOG+24, MAMMOG+25, MAMMOG+26, MAMMOG+28, MAMMOG+29, MAMMOG+30, MAMMOG+32, MAMMOG+33 , MAMMOG+34, MAMMOG1+17 | 
| C | EYE+5~, EYE+7*, EYE+10, HYSTER+3~, HYSTER+7*, HYSTER+9 | 
| CODE | MAMMOG1+5~, MAMMOG1+6*, MAMMOG1+9 | 
| COUNT | MAMMOG1+5~, MAMMOG1+10* | 
| D | CMSFDX+4~*, CMSFDX+5*, CMSFDX+6*, CMSFDX+7, PLDMDOO+8~*, PLDMDOO+14*, PLDMDOO+15, PLDMDOO+16, DNKA+2~*, DNKA+3 , DNKA+5, DNKA+6, DNKA+7, REFR+2~*, REFR+3, DFE+9~*, DFE+11*, EYE+19~, EYE+20*, EYE+22* , OLDPAP+1~, OLDPAP+9*, OLDPAP+10, OLDPAP+11, MAMMOG+54*, MAMMOG+55, MAMMOG+56, HYSTER+11*, HYSTER+14 | 
| D( | PLDMDOO+11* | 
| D(0 | PLDMDOO+14 | 
| D1 | CMSFDX+4~, CMSFDX+6* | 
| DT | DFE+6, EYE+16, OLDPAP+34, MAMMOG+36 | 
| E | FRSTDMDX+3~, FRSTDMDX+5*, DFE+1*, DFE+6*, EYE+1*, EYE+16*, RECTAL+2*, OLDPAP+2*, OLDPAP+4*, OLDPAP+22* , OLDPAP+26*, BREAST+2*, MAMMOG+19*, MAMMOG+23*, MAMMOG+27*, MAMMOG+31*, MAMMOG1+15* | 
| EDATE | HYSTER~, HYSTER+17, HYSTER+20 | 
| F | FRSTDMDX~, FRSTDMDX+1*, FRSTDMDX+6, CMSFDX~, CMSFDX+1*, CMSFDX+6, PLDMDOO~, PLDMDOO+2*, PLDMDOO+16, HYSTER+3~ , HYSTER+7*, HYSTER+11 | 
| G | CMSFDX+4~, CMSFDX+5*, DFE+9~*, DFE+10, DFE+11*, DFE+12, DFE+13*, DFE+14, EYE+19~, EYE+20* , EYE+21, EYE+22*, EYE+23, EYE+24*, EYE+25, PAP+4*, PAP+5, OLDPAP+9*, OLDPAP+10, OLDPAP+11 , OLDPAP+17*, OLDPAP+19, OLDPAP+20, OLDPAP+21, OLDPAP+38*, OLDPAP+39, MAMMOG+4~, MAMMOG+51*, MAMMOG+58*, MAMMOG+59 , MAMMOG+60*, MAMMOG+61, MAMMOG+62*, MAMMOG+63*, MAMMOG+64, MAMMOG+65*, MAMMOG+66*, MAMMOG+67, MAMMOG+68, MAMMOG+69* , MAMMOG+70, MAMMOG+71*, MAMMOG+72*, MAMMOG+73, MAMMOG+74*, MAMMOG+75*, MAMMOG+76, MAMMOG+77, MAMMOG+78*, MAMMOG+79 , MAMMOG+80*, MAMMOG+81*, MAMMOG+82, MAMMOG+83*, MAMMOG+84*, MAMMOG+85, MAMMOG+86, MAMMOG+87*, MAMMOG+88, MAMMOG+89* , MAMMOG+90*, MAMMOG+91, HYSTER+3~, HYSTER+9*, HYSTER+10, HYSTER+14 | 
| I | PLDMDOO+8~, PLDMDOO+9*, PLDMDOO+10, OLDPAP+1~, OLDPAP+11*, OLDPAP+12, OLDPAP+13, OLDPAP+16 | 
| IEN | MAMMOG1+5~, MAMMOG1+7*, MAMMOG1+8, MAMMOG1+9, MAMMOG1+10 | 
| J | OLDPAP+1~, OLDPAP+13*, OLDPAP+14, OLDPAP+15 | 
| LDEE | EYE+1~*, EYE+2*, EYE+10*, EYE+12, EYE+26 | 
| LDFE | DFE+1~*, DFE+2*, DFE+13, DFE+15, EYE+24 | 
| LMAM | MAMMOG+2~*, MAMMOG+3*, MAMMOG+8*, MAMMOG+9*, MAMMOG+10*, MAMMOG+11*, MAMMOG+12*, MAMMOG+13*, MAMMOG+14*, MAMMOG+15* , MAMMOG+16*, MAMMOG+17*, MAMMOG+18*, MAMMOG+21, MAMMOG+22*, MAMMOG+25, MAMMOG+26*, MAMMOG+29, MAMMOG+30*, MAMMOG+33 , MAMMOG+34*, MAMMOG+38, MAMMOG+39*, MAMMOG+45, MAMMOG+46*, MAMMOG+55, MAMMOG+56*, MAMMOG+60, MAMMOG+61, MAMMOG+63 , MAMMOG+64, MAMMOG+66, MAMMOG+67, MAMMOG+69, MAMMOG+70, MAMMOG+72, MAMMOG+73, MAMMOG+75, MAMMOG+76, MAMMOG+78 , MAMMOG+79, MAMMOG+81, MAMMOG+82, MAMMOG+84, MAMMOG+85, MAMMOG+87, MAMMOG+88, MAMMOG+90, MAMMOG+91, MAMMOG+92 | 
| LPAP | PAP+3*, PAP+4, PAP+5, PAP+6, OLDPAP+1~, OLDPAP+2*, OLDPAP+3*, OLDPAP+4~*, OLDPAP+5*, OLDPAP+20 , OLDPAP+21*, OLDPAP+24, OLDPAP+25*, OLDPAP+28, OLDPAP+29*, OLDPAP+31, OLDPAP+32*, OLDPAP+36, OLDPAP+37*, OLDPAP+38 , OLDPAP+39, OLDPAP+40 | 
| N | CMSFDX+4~*, DNKA+2~, DNKA+4*, DNKA+5, DNKA+6, DNKA+7, REFR+2~ | 
| P | FRSTDMDX~, FRSTDMDX+2, FRSTDMDX+5, CMSFDX~, CMSFDX+2, CMSFDX+5, PLDMDOO~, PLDMDOO+1, PLDMDOO+8, DFE~ , DFE+1, DFE+6, DFE+13, EYE~, EYE+1, EYE+8, EYE+16, EYE+24, RECTAL~, RECTAL+1 , RECTAL+2, PAP~, PAP+1, PAP+3, PAP+4, OLDPAP+2, OLDPAP+4, OLDPAP+9, OLDPAP+10, OLDPAP+11 , OLDPAP+22, OLDPAP+26, OLDPAP+30, OLDPAP+34, OLDPAP+38, BREAST~, BREAST+1, BREAST+2, MAMMOG~, MAMMOG+1 , MAMMOG+3, MAMMOG+5, MAMMOG+19, MAMMOG+23, MAMMOG+27, MAMMOG+31, MAMMOG+36, MAMMOG+43, MAMMOG+51, MAMMOG+60 , MAMMOG+63, MAMMOG+66, MAMMOG+69, MAMMOG+72, MAMMOG+75, MAMMOG+78, MAMMOG+81, MAMMOG+84, MAMMOG+87, MAMMOG+90 , MAMMOG1~, MAMMOG1+1, MAMMOG1+15, HYSTER~, HYSTER+2, HYSTER+7, HYSTER+17, HYSTER+20 | 
| PROV | DFE+9~*, DFE+11*, EYE+19~, EYE+20*, EYE+22* | 
| R | CMSFDX+4~*, CMSFDX+5 | 
| S | HYSTER+3~, HYSTER+7*, HYSTER+13*, HYSTER+14 | 
| T | PLDMDOO+3~, PLDMDOO+6*, PLDMDOO+7, PLDMDOO+10, EYE+5~, EYE+7*, EYE+8, EYE+10, OLDPAP+1~, OLDPAP+10* , OLDPAP+11, OLDPAP+30*, OLDPAP+33*, OLDPAP+34, MAMMOG+2~, MAMMOG+35*, MAMMOG+36, MAMMOG+42*, MAMMOG+43, MAMMOG+49* , MAMMOG+50, MAMMOG+53, HYSTER+3~, HYSTER+15*, HYSTER+16, HYSTER+17, HYSTER+18*, HYSTER+19, HYSTER+20 | 
| TAXARR | PLDMDOO+3~, PLDMDOO+5* | 
| U | FRSTDMDX+5, CMSFDX+5, CMSFDX+6, PLDMDOO+9, PLDMDOO+11, DFE+2, DFE+3, DFE+8, EYE+2, EYE+3 , EYE+12, EYE+18, RECTAL+4, RECTAL+5, OLDPAP+3, OLDPAP+5, OLDPAP+13, OLDPAP+16, OLDPAP+17, OLDPAP+24 , OLDPAP+25, OLDPAP+28, OLDPAP+29, OLDPAP+31, OLDPAP+32, BREAST+4, BREAST+5, MAMMOG+3, MAMMOG+6, MAMMOG+7 , MAMMOG+21, MAMMOG+22, MAMMOG+25, MAMMOG+26, MAMMOG+29, MAMMOG+30, MAMMOG+33, MAMMOG+34, MAMMOG+36, MAMMOG+44 , MAMMOG+45, MAMMOG+46, MAMMOG+53, MAMMOG+54, MAMMOG1+10, MAMMOG1+17, HYSTER+7, HYSTER+11, HYSTER+19, HYSTER+20 | 
| V | DNKA~, DNKA+1, DNKA+2, DNKA+4, REFR~, REFR+1, REFR+2, DFE+9~*, DFE+11*, EYE+19~ , EYE+20*, EYE+22*, OLDPAP+1~, OLDPAP+16*, OLDPAP+17, MAMMOG+4~, MAMMOG+5*, MAMMOG+6*, MAMMOG+8, MAMMOG+9 , MAMMOG+10, MAMMOG+11, MAMMOG+12, MAMMOG+13, MAMMOG+14, MAMMOG+15, MAMMOG+16, MAMMOG+17, MAMMOG+18, MAMMOG+43* , MAMMOG+44*, MAMMOG+45, MAMMOG+46, MAMMOG+51*, MAMMOG+52, MAMMOG+53, MAMMOG+54 | 
| X | FRSTDMDX+3~, FRSTDMDX+5*, CMSFDX+4~, CMSFDX+5*, CMSFDX+6, PLDMDOO+8~*, PLDMDOO+9, PLDMDOO+11, OLDPAP+34*, OLDPAP+35 , OLDPAP+36, OLDPAP+37, MAMMOG+4~, MAMMOG+5*, MAMMOG+6, MAMMOG+7, MAMMOG+36*, MAMMOG+37, MAMMOG+38, MAMMOG+39 , MAMMOG+41*, MAMMOG+42, MAMMOG+48*, MAMMOG+49, MAMMOG1+5~, HYSTER+16, HYSTER+17*, HYSTER+19, HYSTER+20* | 
| Y | FRSTDMDX+3~, FRSTDMDX+4*, FRSTDMDX+5*, FRSTDMDX+6, CMSFDX+4~, CMSFDX+5*, MAMMOG+4~, MAMMOG+5*, MAMMOG+7*, MAMMOG+8 , MAMMOG+9, MAMMOG+10, MAMMOG+11, MAMMOG+12, MAMMOG+13, MAMMOG+14, MAMMOG+15, MAMMOG+16, MAMMOG+17, MAMMOG+18 | 
| Name | Field # of Occurrence | 
|---|---|
| $T(PAPCPTS+%^BHSMU | OLDPAP+30 |