BDMDA12 ; IHS/CMI/LAB - 2013 DIABETES AUDIT ;
Source file <BDMDA12.m>
| Package | Total | Call Graph | 
|---|---|---|
| Diabetes Registry | 3 | ($$LASTCPTT,$$LASTPRCT)^BDMAPIU ($$CVD,$$DEPSCR)^BDMDD12 $$DATE^BDMS9B1 | 
| Patient Care Component Reports | 2 | ($$LASTBHDT,$$LASTBHDX,$$LASTBHED,$$LASTBHME,$$LASTDXT,$$LASTITEM)^APCLAPIU $$START1^APCLDF | 
| DRG Grouper | 1 | ($$CODEN,$$ICDDX)^ICDCODE | 
| IHS Patient | 1 | $$DOB^AUPNPAT | 
| IHS VA Utilities | 1 | $$VAL^XBDIQ1 | 
| Kernel | 1 | ($$FMADD,$$FMTE)^XLFDT | 
| Taxonomy | 1 | $$ICD^ATXCHK | 
| Package | Total | Caller Graph | 
|---|---|---|
| Diabetes Registry | 4 | BDMDA10 BDMDA13 BDMDA16 BDMDA1B | 
| Health Summary Components | 1 | BHSDM1 | 
| iCare | 1 | BQIRGDMS | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| SULF(P,BDATE,EDATE) | ;EP | |
| MET(P,BDATE,EDATE) | ;EP | |
| PLTAX(P,A) | ;EP - is DX on problem list 1 or 0 | |
| DEPDX(P,BDATE,EDATE) | ;EP | |
| LASTDEP(P,BD,ED,F) | ; | |
| INSULIN(P,BDATE,EDATE) | ;EP | |
| LOINC(A,B) | ; | |
| SETN | ; | |
| TBTX(P) | ;EP | |
| CPT(P,BDATE,EDATE,T,F) | ;EP return ien of CPT entry if patient had this CPT | |
| RAD(P,BDATE,EDATE,T,F) | ;EP return if a v rad entry in date range | |
| DPP4(P,BDATE,EDATE) | ;EP  cmi/maw 12/18/2013 DM2013 | |
| CVD(P,EDATE) | ;EP | |
| E | ; | |
| GLP1(P,BDATE,EDATE) | ;EP | |
| COLE(P,BDATE,EDATE) | ;EP | |
| TROG(P,BDATE,EDATE) | ;EP | |
| ACAR(P,BDATE,EDATE) | ;EP | |
| SULFLIKE(P,BDATE,EDATE) | ;EP | |
| VE(Y,F,T) | ;EP | |
| PLCODE(P,A) | ;EP | |
| LASTDEPS(BDMLPDFN,BDMLBD,BDMLED,BDMLFORM) | ;PEP - return last depression screen ; | |
| DEPSCR(P,BDATE,EDATE,F,R) | ;EP | |
| BROM(P,BDATE,EDATE) | ;EP | |
| AMYLIN(P,BDATE,EDATE) | ;EP | 
| Name | Field # of Occurrence | 
|---|---|
| $$LASTBHDT^APCLAPIU | LASTDEPS+27 | 
| $$LASTBHDX^APCLAPIU | LASTDEPS+20, LASTDEPS+29, LASTDEPS+31 | 
| $$LASTBHED^APCLAPIU | LASTDEPS+22 | 
| $$LASTBHME^APCLAPIU | LASTDEPS+33, LASTDEPS+35, LASTDEPS+37 | 
| $$LASTDXT^APCLAPIU | LASTDEPS+25 | 
| $$LASTITEM^APCLAPIU | LASTDEPS+9, LASTDEPS+11, LASTDEPS+13, LASTDEPS+15, LASTDEPS+18 | 
| $$START1^APCLDF | TBTX+4, INSULIN+2, SULF+2, SULFLIKE+2, MET+2, ACAR+2, TROG+2, DPP4+2, AMYLIN+2, GLP1+2 , GLP1+5, BROM+2, COLE+2, DEPDX+31, LASTDEP+3, CVD+16 | 
| $$ICD^ATXCHK | CPT+15, RAD+17, DEPDX+9, DEPDX+24, DEPDX+49, PLCODE+5, PLTAX+5, CVD+11 | 
| $$DOB^AUPNPAT | LASTDEPS+2, CVD+16, CVD+18, CVD+20, CVD+22, CVD+24 | 
| $$LASTCPTT^BDMAPIU | CVD+22, CVD+24 | 
| $$LASTPRCT^BDMAPIU | CVD+18, CVD+20 | 
| $$CVD^BDMDD12 | CVD+3 | 
| $$DEPSCR^BDMDD12 | DEPSCR+4 | 
| $$DATE^BDMS9B1 | DEPSCR+6, DEPSCR+7 | 
| $$CODEN^ICDCODE | DEPDX+22, PLCODE+3 | 
| $$ICDDX^ICDCODE | DEPDX+10, DEPDX+26, DEPDX+48 | 
| $$VAL^XBDIQ1 | LASTDEP+14, VE+1, CVD+12 | 
| $$FMADD^XLFDT | CPT+6, RAD+5 | 
| $$FMTE^XLFDT | CPT+23, RAD+26, CVD+16, CVD+17, CVD+19, CVD+21, CVD+23, CVD+25 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^AMHPPROB - [#9002011.51] | DEPDX+17, DEPDX+25 | 
| ^AMHPPROB("AC" | DEPDX+16 | 
| ^AMHPROB - [#9002012.2] | DEPDX+18, DEPDX+20, DEPDX+42, DEPDX+47 | 
| ^AMHREC - [#9002011] | DEPDX+37, DEPDX+38, DEPDX+39, LASTDEP+8 | 
| ^AMHREC("AE" | DEPDX+36, LASTDEP+7 | 
| ^AMHRPRO - [#9002011.01] | DEPDX+40 | 
| ^AMHRPRO("AD" | DEPDX+40 | 
| ^ATXAX - [#9002226] | TBTX+9, LOINC+3, LOINC+5 | 
| ^ATXAX("B" | TBTX+7, DEPDX+5, DEPDX+15, DEPDX+49, PLTAX+3, CVD+7 | 
| ^AUPNHF("AA" | TBTX+9 | 
| ^AUPNPROB - [#9000011] | DEPDX+7, DEPDX+8, PLCODE+5, PLTAX+5, CVD+9, CVD+10 | 
| ^AUPNPROB("AC" | DEPDX+6, PLCODE+5, PLTAX+5, CVD+8 | 
| ^AUPNVCPT - [#9000010.18] | CPT+15, CPT+22, CPT+23 | 
| ^AUPNVCPT("AD" | CPT+13, CPT+14 | 
| ^AUPNVLAB - [#9000010.09] | SETN+1 | 
| ^AUPNVRAD - [#9000010.22] | RAD+14, RAD+15, RAD+25, RAD+26 | 
| ^AUPNVRAD("AD" | RAD+12, RAD+13 | 
| ^AUPNVSIT - [#9000010] | CPT+12, CPT+22, CPT+23, RAD+11, RAD+25, RAD+26 | 
| ^AUPNVSIT("AA" | CPT+10, CPT+11, RAD+9, RAD+10 | 
| ^AUTTEDT("C" | LASTDEPS+17 | 
| ^AUTTHF - [#9999999.64] | TBTX+9 | 
| ^DPT - [#2] | CVD+2 | 
| ^LAB(95.3 - [#95.3] | LOINC+2, LOINC+4 | 
| ^RAMIS(71 - [#71] | RAD+15, RAD+16 | 
| Name | Line Occurrences | 
|---|---|
| $$LASTDEP | LASTDEPS+7 | 
| $$LASTDEPS | DEPSCR+5 | 
| $$VE | LASTDEP+4 | 
| E | LASTDEPS+8, LASTDEPS+10, LASTDEPS+12, LASTDEPS+14, LASTDEPS+16, LASTDEPS+19, LASTDEPS+21, LASTDEPS+23, LASTDEPS+26, LASTDEPS+28 , LASTDEPS+30, LASTDEPS+32, LASTDEPS+34, LASTDEPS+36, LASTDEPS+38 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| % | LOINC+1~, LOINC+2*, LOINC+3, LOINC+4*, LOINC+5, LASTDEP+1~, LASTDEP+3*, CVD+4~ | 
| A | SETN+1~*, LOINC~, LOINC+2, LOINC+4, PLCODE~, PLCODE+2, PLCODE+3, PLTAX~, PLTAX+2, PLTAX+3 | 
| B | LOINC~, LOINC+3, LOINC+5 | 
| BD | CPT+8~, CPT+9*, CPT+10, RAD+7~, RAD+8*, RAD+9, LASTDEP~, LASTDEP+3, LASTDEP+7 | 
| BDATE | CPT~, CPT+6*, CPT+9, RAD~, RAD+5*, RAD+8, INSULIN~, INSULIN+2, SULF~, SULF+2 , SULFLIKE~, SULFLIKE+2, MET~, MET+2, ACAR~, ACAR+2, TROG~, TROG+2, DPP4~, DPP4+2 , AMYLIN~, AMYLIN+2, GLP1~, GLP1+2, GLP1+5, BROM~, BROM+2, COLE~, COLE+2, DEPDX~ , DEPDX+31, DEPDX+36, DEPSCR~, DEPSCR+4, DEPSCR+5 | 
| BDM | TBTX+2~, TBTX+3!, INSULIN+1~, SULF+1~, SULFLIKE+1~, MET+1~, ACAR+1~, TROG+1~, DPP4+1~, AMYLIN+1~ , GLP1+1~, BROM+1~, COLE+1~, DEPDX+1~, DEPDX+2!, DEPDX+33*, DEPDX+34*, DEPDX+36, DEPDX+40, DEPDX+43* , DEPDX+44*, DEPDX+49*, DEPDX+51, CVD+4~, CVD+15! | 
| BDM( | SETN+1 | 
| BDM(1 | TBTX+6, INSULIN+3, SULF+3, SULFLIKE+3, MET+3, ACAR+3, TROG+3, DPP4+3, AMYLIN+3, GLP1+3 , GLP1+6, BROM+3, COLE+3, DEPDX+34, CVD+17 | 
| BDM(2 | DEPDX+32, CVD+17 | 
| BDMC | DEPSCR+1~, DEPSCR+5*, DEPSCR+6, DEPSCR+7 | 
| BDMD | DEPDX+1~, DEPDX+33*, DEPDX+34*, DEPDX+38 | 
| BDMLBD | LASTDEPS~, LASTDEPS+2*, LASTDEPS+7, LASTDEPS+9, LASTDEPS+11, LASTDEPS+13, LASTDEPS+15, LASTDEPS+18, LASTDEPS+20, LASTDEPS+22 , LASTDEPS+25, LASTDEPS+27, LASTDEPS+29, LASTDEPS+31, LASTDEPS+33, LASTDEPS+35, LASTDEPS+37 | 
| BDMLC | LASTDEP+2~, LASTDEP+6*, LASTDEP+7 | 
| BDMLED | LASTDEPS~, LASTDEPS+3*, LASTDEPS+7, LASTDEPS+9, LASTDEPS+11, LASTDEPS+13, LASTDEPS+15, LASTDEPS+18, LASTDEPS+20, LASTDEPS+22 , LASTDEPS+25, LASTDEPS+27, LASTDEPS+29, LASTDEPS+31, LASTDEPS+33, LASTDEPS+35, LASTDEPS+37 | 
| BDMLFORM | LASTDEPS~, LASTDEPS+4*, LASTDEPS+39 | 
| BDMLG | LASTDEP+2~ | 
| BDMLG(1 | LASTDEP+4 | 
| BDMLLAST | E+1*, LASTDEPS+5~, LASTDEPS+6*, LASTDEPS+9, LASTDEPS+11, LASTDEPS+13, LASTDEPS+15, LASTDEPS+18, LASTDEPS+20, LASTDEPS+22 , LASTDEPS+25, LASTDEPS+27, LASTDEPS+29, LASTDEPS+31, LASTDEPS+33, LASTDEPS+35, LASTDEPS+37, LASTDEPS+39, LASTDEPS+40 | 
| BDMLPDFN | LASTDEPS~, LASTDEPS+2, LASTDEPS+7, LASTDEPS+9, LASTDEPS+11, LASTDEPS+13, LASTDEPS+15, LASTDEPS+18, LASTDEPS+20, LASTDEPS+22 , LASTDEPS+25, LASTDEPS+27, LASTDEPS+29, LASTDEPS+31, LASTDEPS+33, LASTDEPS+35, LASTDEPS+37 | 
| BDMLV | LASTDEP+2~, LASTDEP+6* | 
| BDMLVAL | E+1, LASTDEPS+5~, LASTDEPS+7*, LASTDEPS+9*, LASTDEPS+11*, LASTDEPS+13*, LASTDEPS+15*, LASTDEPS+18*, LASTDEPS+20*, LASTDEPS+22* , LASTDEPS+25*, LASTDEPS+27*, LASTDEPS+29*, LASTDEPS+31*, LASTDEPS+33*, LASTDEPS+35*, LASTDEPS+37* | 
| BDMLX | LASTDEPS+5~, LASTDEPS+17*, LASTDEPS+18, LASTDEP+2~ | 
| BDMLX( | LASTDEP+13, LASTDEP+14*, LASTDEP+15 | 
| BDMLX(0 | LASTDEP+15 | 
| BDMLX(9999999 | LASTDEP+4* | 
| BDMP | DEPDX+1~, DEPDX+40*, DEPDX+41, DEPDX+42, DEPDX+47 | 
| BDMP4 | DEPDX+1~, DEPDX+42*, DEPDX+43, DEPDX+44 | 
| >> BDMV | DEPDX+30*, DEPDX+39 | 
| D | CPT+8~, RAD+7~, DEPDX+1~, DEPDX+36*, LASTDEP+1~, LASTDEP+7*, LASTDEP+12, LASTDEP+13, LASTDEP+14 | 
| DT | LASTDEPS+3 | 
| E | TBTX+2~, TBTX+4*, TBTX+5, INSULIN+1~, INSULIN+2*, SULF+1~, SULF+2*, SULFLIKE+1~, SULFLIKE+2*, MET+1~ , MET+2*, ACAR+1~, ACAR+2*, TROG+1~, TROG+2*, DPP4+1~, DPP4+2*, AMYLIN+1~, AMYLIN+2*, GLP1+1~ , GLP1+2*, GLP1+5*, BROM+1~, BROM+2*, COLE+1~, COLE+2*, DEPDX+31*, DEPDX+36*, LASTDEP+1~, LASTDEP+3* , LASTDEP+7*, CVD+4~, CVD+16* | 
| ED | CPT+8~, CPT+9*, CPT+10*, CPT+11, RAD+7~, RAD+8*, RAD+9*, RAD+10, LASTDEP~, LASTDEP+3 , LASTDEP+7 | 
| EDATE | CPT~, CPT+5, CPT+6, CPT+9, RAD~, RAD+4, RAD+5, RAD+8, INSULIN~, INSULIN+2 , SULF~, SULF+2, SULFLIKE~, SULFLIKE+2, MET~, MET+2, ACAR~, ACAR+2, TROG~, TROG+2 , DPP4~, DPP4+2, AMYLIN~, AMYLIN+2, GLP1~, GLP1+2, GLP1+5, BROM~, BROM+2, COLE~ , COLE+2, DEPDX~, DEPDX+31, DEPDX+36, DEPSCR~, DEPSCR+4, DEPSCR+5, CVD~, CVD+3, CVD+16 , CVD+18, CVD+20, CVD+22, CVD+24 | 
| F | CPT~, CPT+4*, CPT+20, CPT+21, CPT+22, CPT+23, RAD~, RAD+3*, RAD+23, RAD+24 , RAD+25, RAD+26, DEPSCR~, DEPSCR+3*, DEPSCR+4, DEPSCR+6, LASTDEP~, LASTDEP+15, VE~ | 
| G | SETN+1~*, SETN+2, TBTX+9~*, TBTX+10, CPT+8~, CPT+9*, CPT+10, CPT+11, CPT+14, CPT+15* , CPT+19, CPT+20, CPT+21, CPT+22, CPT+23, RAD+7~, RAD+8*, RAD+9, RAD+10, RAD+13 , RAD+18*, RAD+22, RAD+23, RAD+24, RAD+25, RAD+26, DEPDX+1~, DEPDX+3*, DEPDX+6, DEPDX+10* , DEPDX+12, DEPDX+13*, DEPDX+16, DEPDX+19*, DEPDX+26*, DEPDX+28, LASTDEP+1~, LASTDEP+12*, LASTDEP+14, LASTDEP+15* , CVD+4~, CVD+6*, CVD+8, CVD+12*, CVD+14 | 
| I | DEPDX+1~, DEPDX+3*, DEPDX+7*, DEPDX+9, DEPDX+10, DEPDX+13*, DEPDX+17*, DEPDX+18, DEPDX+20*, DEPDX+21 , DEPDX+22*, DEPDX+23, DEPDX+24, DEPDX+26, PLCODE+5~*, PLCODE+6, PLTAX+5~*, PLTAX+6, CVD+9*, CVD+11 | 
| J | DEPDX+1~, DEPDX+18*, DEPDX+19, DEPDX+47*, DEPDX+48*, DEPDX+49 | 
| >> N | SETN+1*, SETN+2* | 
| P | TBTX~, TBTX+1, TBTX+4, TBTX+9, CPT~, CPT+2, CPT+10, CPT+11, RAD~, RAD+1 , RAD+9, RAD+10, INSULIN~, INSULIN+2, SULF~, SULF+2, SULFLIKE~, SULFLIKE+2, MET~, MET+2 , ACAR~, ACAR+2, TROG~, TROG+2, DPP4~, DPP4+2, AMYLIN~, AMYLIN+2, GLP1~, GLP1+2 , GLP1+5, BROM~, BROM+2, COLE~, COLE+2, DEPDX~, DEPDX+6, DEPDX+16, DEPDX+31, DEPDX+36 , DEPSCR~, DEPSCR+2, DEPSCR+4, DEPSCR+5, PLCODE~, PLCODE+1, PLCODE+5, PLTAX~, PLTAX+1, PLTAX+5 , LASTDEP~, LASTDEP+3, LASTDEP+7, CVD~, CVD+1, CVD+2, CVD+3, CVD+8, CVD+16, CVD+18 , CVD+20, CVD+22, CVD+24 | 
| R | DEPSCR~, DEPSCR+4, DEPSCR+6 | 
| T | TBTX+7~*, TBTX+8, TBTX+9, CPT~, CPT+3, CPT+15, RAD~, RAD+2, RAD+17, DEPDX+1~ , DEPDX+5*, DEPDX+9, DEPDX+15*, DEPDX+24, PLCODE+3~*, PLCODE+4, PLCODE+5, PLTAX+3~*, PLTAX+4, PLTAX+5 , VE~, CVD+4~, CVD+7*, CVD+11 | 
| U | SETN+1, TBTX+6, TBTX+9, TBTX+10, CPT+15, CPT+22, CPT+23, RAD+15, RAD+16, RAD+25 , RAD+26, DEPDX+7, DEPDX+8, DEPDX+10, DEPDX+17, DEPDX+18, DEPDX+20, DEPDX+25, DEPDX+26, DEPDX+34 , DEPDX+38, DEPDX+39, DEPDX+40, DEPDX+42, DEPDX+47, DEPDX+48, DEPSCR+6, DEPSCR+7, LOINC+2, LOINC+4 , PLCODE+5, PLTAX+5, E+1, LASTDEPS+9, LASTDEPS+11, LASTDEPS+13, LASTDEPS+15, LASTDEPS+18, LASTDEPS+20, LASTDEPS+22 , LASTDEPS+25, LASTDEPS+27, LASTDEPS+29, LASTDEPS+31, LASTDEPS+33, LASTDEPS+35, LASTDEPS+37, LASTDEPS+39, LASTDEP+4, LASTDEP+8 , LASTDEP+15, VE+1, CVD+9, CVD+10, CVD+17, CVD+19, CVD+21, CVD+23, CVD+25 | 
| V | CPT+8~, CPT+11*, CPT+12, CPT+13, CPT+14, CPT+22*, CPT+23*, RAD+7~, RAD+10*, RAD+11 , RAD+12, RAD+13, RAD+25*, RAD+26*, DEPDX+36*, DEPDX+37, DEPDX+38, DEPDX+39, DEPDX+40, LASTDEP+1~ , LASTDEP+7*, LASTDEP+8, LASTDEP+14 | 
| X | TBTX+2~, TBTX+4*, TBTX+9*, CPT+1~, CPT+8~, CPT+14*, CPT+15, RAD+7~, RAD+13*, RAD+14 , RAD+15, RAD+18, INSULIN+1~, INSULIN+2*, SULF+1~, SULF+2*, SULFLIKE+1~, SULFLIKE+2*, MET+1~, MET+2* , ACAR+1~, ACAR+2*, TROG+1~, TROG+2*, DPP4+1~, DPP4+2*, AMYLIN+1~, AMYLIN+2*, GLP1+1~, GLP1+2* , GLP1+5*, BROM+1~, BROM+2*, COLE+1~, COLE+2*, DEPDX+1~, DEPDX+3*, DEPDX+6*, DEPDX+7, DEPDX+8 , DEPDX+13*, DEPDX+16*, DEPDX+17, DEPDX+25, DEPDX+31*, DEPDX+40*, DEPSCR+1~, PLCODE+5~*, PLTAX+5~*, LASTDEP+1~ , LASTDEP+8*, LASTDEP+9, LASTDEP+10, LASTDEP+11, CVD+4~, CVD+8*, CVD+9, CVD+10, CVD+12, CVD+16* , CVD+18*, CVD+19, CVD+20*, CVD+21, CVD+22*, CVD+23, CVD+24*, CVD+25 | 
| Y | TBTX+7~, CPT+8~, RAD+7~, RAD+15*, RAD+16*, RAD+17, DEPDX+30*, DEPDX+31, PLCODE+5~*, PLTAX+5~* , VE~, VE+1, CVD+4~, CVD+17* | 
| Z | CVD+4~, CVD+17* |