BDMDD12 ; IHS/CMI/LAB - 2016 DIABETES AUDIT ;
Source file <BDMDD12.m>
| Package | Total | Call Graph | 
|---|---|---|
| Diabetes Registry | 3 | ($$LASTCPTT,$$LASTPRCT)^BDMAPIU $$DATE^BDMS9B1 ($$CODEN,$$ICD,$$ICDDX,$$SNOMED)^BDMUTL | 
| Patient Care Component Reports | 2 | ($$LASTBHDT,$$LASTBHDX,$$LASTBHED,$$LASTBHME,$$LASTDXT,$$LASTITEM)^APCLAPIU $$START1^APCLDF | 
| IHS Patient | 1 | $$DOB^AUPNPAT | 
| IHS VA Utilities | 1 | $$VAL^XBDIQ1 | 
| Kernel | 1 | ($$FMADD,$$FMTE)^XLFDT | 
| 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 | |
| SGLT2(P,BDATE,EDATE) | ;EP | |
| LASTDEP(P,BD,ED,F) | ; | |
| INSULIN(P,BDATE,EDATE) | ;EP | |
| LASTDEPS(BDMLPDFN,BDMLBD,BDMLED,BDMLFORM) | ;PEP - return last depression screen ; | |
| 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/2014 DM2014 | |
| 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 | |
| LOINC(A,B) | ; | |
| 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, SGLT2+2, DPP4+2, AMYLIN+2 , GLP1+2, GLP1+5, BROM+2, COLE+2, DEPDX+34, LASTDEP+3, CVD+15, CVD+18, CVD+21 | 
| $$DOB^AUPNPAT | LASTDEPS+2, CVD+15, CVD+18, CVD+21, CVD+23, CVD+25, CVD+27, CVD+29 | 
| $$LASTCPTT^BDMAPIU | CVD+27, CVD+29 | 
| $$LASTPRCT^BDMAPIU | CVD+23, CVD+25 | 
| $$DATE^BDMS9B1 | CPT+23, RAD+27, DEPSCR+5, DEPSCR+6, CVD+16, CVD+19, CVD+22, CVD+24, CVD+26, CVD+28 , CVD+30 | 
| $$CODEN^BDMUTL | DEPDX+23, PLCODE+5 | 
| $$ICD^BDMUTL | CPT+15, RAD+17, DEPDX+10, DEPDX+25, DEPDX+50, PLCODE+7, PLTAX+5, CVD+10 | 
| $$ICDDX^BDMUTL | DEPDX+10, DEPDX+29, DEPDX+49 | 
| $$SNOMED^BDMUTL | DEPDX+11 | 
| $$VAL^XBDIQ1 | LASTDEP+14, VE+1, CVD+11 | 
| $$FMADD^XLFDT | CPT+6, RAD+5 | 
| $$FMTE^XLFDT | CVD+15, CVD+18, CVD+21 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^AMHPPROB - [#9002011.51] | DEPDX+18, DEPDX+27, DEPDX+28 | 
| ^AMHPPROB("AC" | DEPDX+17 | 
| ^AMHPROB - [#9002012.2] | DEPDX+19, DEPDX+21, DEPDX+45, DEPDX+48 | 
| ^AMHREC - [#9002011] | DEPDX+40, DEPDX+41, DEPDX+42, LASTDEP+8 | 
| ^AMHREC("AE" | DEPDX+39, LASTDEP+7 | 
| ^AMHRPRO - [#9002011.01] | DEPDX+43 | 
| ^AMHRPRO("AD" | DEPDX+43 | 
| ^ATXAX - [#9002226] | TBTX+9, CPT+15, RAD+17, DEPDX+10, DEPDX+25, LOINC+3, LOINC+5, PLCODE+7, PLTAX+5, CVD+10 | 
| ^ATXAX("B" | TBTX+7, DEPDX+5, DEPDX+16, PLTAX+3, CVD+6 | 
| ^AUPNHF("AA" | TBTX+9 | 
| ^AUPNPROB - [#9000011] | DEPDX+7, DEPDX+8, DEPDX+9, DEPDX+11, PLCODE+7, PLTAX+5, CVD+8, CVD+9 | 
| ^AUPNPROB("AC" | DEPDX+6, PLCODE+7, PLTAX+5, CVD+7 | 
| ^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+26, RAD+27 | 
| ^AUPNVRAD("AD" | RAD+12, RAD+13 | 
| ^AUPNVSIT - [#9000010] | CPT+12, CPT+22, CPT+23, RAD+11, RAD+26, RAD+27 | 
| ^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+4 | 
| $$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+3~ | 
| A | SETN+1~*, LOINC~, LOINC+2, LOINC+4, PLCODE~, PLCODE+2, PLCODE+5, 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, SGLT2~, SGLT2+2 , DPP4~, DPP4+2, AMYLIN~, AMYLIN+2, GLP1~, GLP1+2, GLP1+5, BROM~, BROM+2, COLE~ , COLE+2, DEPDX~, DEPDX+34, DEPDX+39, DEPSCR~, DEPSCR+4 | 
| BDM | TBTX+2~, TBTX+3!, INSULIN+1~, SULF+1~, SULFLIKE+1~, MET+1~, ACAR+1~, TROG+1~, SGLT2+1~, DPP4+1~ , AMYLIN+1~, GLP1+1~, BROM+1~, COLE+1~, DEPDX+1~, DEPDX+2!, DEPDX+36*, DEPDX+37*, DEPDX+39, DEPDX+43 , DEPDX+46*, DEPDX+47*, DEPDX+50*, DEPDX+52, CVD+3~, CVD+14!, CVD+17!, CVD+20! | 
| BDM( | SETN+1 | 
| BDM(1 | TBTX+6, INSULIN+3, SULF+3, SULFLIKE+3, MET+3, ACAR+3, TROG+3, SGLT2+3, DPP4+3, AMYLIN+3 , GLP1+3, GLP1+6, BROM+3, COLE+3, DEPDX+37, CVD+16, CVD+19, CVD+22 | 
| BDM(2 | DEPDX+35, CVD+22 | 
| BDMC | DEPSCR+1~, DEPSCR+4*, DEPSCR+5, DEPSCR+6 | 
| BDMD | DEPDX+1~, DEPDX+36*, DEPDX+37*, DEPDX+41 | 
| 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+43*, DEPDX+44, DEPDX+45, DEPDX+48 | 
| BDMP4 | DEPDX+1~, DEPDX+45*, DEPDX+46, DEPDX+47 | 
| >> BDMV | DEPDX+33*, DEPDX+42 | 
| D | CPT+8~, RAD+7~, DEPDX+1~, DEPDX+39*, 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*, SGLT2+1~, SGLT2+2*, DPP4+1~, DPP4+2*, AMYLIN+1~ , AMYLIN+2*, GLP1+1~, GLP1+2*, GLP1+5*, BROM+1~, BROM+2*, COLE+1~, COLE+2*, DEPDX+34*, DEPDX+39* , LASTDEP+1~, LASTDEP+3*, LASTDEP+7*, CVD+3~, CVD+15*, CVD+18*, CVD+21* | 
| 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 , SGLT2~, SGLT2+2, DPP4~, DPP4+2, AMYLIN~, AMYLIN+2, GLP1~, GLP1+2, GLP1+5, BROM~ , BROM+2, COLE~, COLE+2, DEPDX~, DEPDX+34, DEPDX+39, DEPSCR~, DEPSCR+4, CVD~, CVD+15 , CVD+18, CVD+21, CVD+23, CVD+25, CVD+27, CVD+29 | 
| F | CPT~, CPT+4*, CPT+20, CPT+21, CPT+22, CPT+23, RAD~, RAD+3*, RAD+24, RAD+25 , RAD+26, RAD+27, DEPSCR~, DEPSCR+3*, DEPSCR+5, 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+19*, RAD+23, RAD+24, RAD+25, RAD+26, RAD+27, DEPDX+1~, DEPDX+3*, DEPDX+6, DEPDX+10* , DEPDX+11*, DEPDX+13, DEPDX+14*, DEPDX+17, DEPDX+20*, DEPDX+29*, DEPDX+31, LASTDEP+1~, LASTDEP+12*, LASTDEP+14 , LASTDEP+15*, CVD+3~, CVD+5*, CVD+7, CVD+11*, CVD+13 | 
| I | DEPDX+1~, DEPDX+3*, DEPDX+7*, DEPDX+10, DEPDX+14*, DEPDX+18*, DEPDX+19, DEPDX+21*, DEPDX+22, DEPDX+23* , DEPDX+24, DEPDX+25, DEPDX+29, PLCODE+7~*, PLCODE+9, PLTAX+5~*, PLTAX+7, CVD+8*, CVD+10 | 
| J | DEPDX+1~, DEPDX+19*, DEPDX+20, DEPDX+48*, DEPDX+49*, DEPDX+50 | 
| >> 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, SGLT2~, SGLT2+2, DPP4~, DPP4+2, AMYLIN~, AMYLIN+2 , GLP1~, GLP1+2, GLP1+5, BROM~, BROM+2, COLE~, COLE+2, DEPDX~, DEPDX+6, DEPDX+17 , DEPDX+34, DEPDX+39, DEPSCR~, DEPSCR+2, DEPSCR+4, PLCODE~, PLCODE+1, PLCODE+7, PLTAX~, PLTAX+1 , PLTAX+5, LASTDEP~, LASTDEP+3, LASTDEP+7, CVD~, CVD+1, CVD+2, CVD+7, CVD+15, CVD+18 , CVD+21, CVD+23, CVD+25, CVD+27, CVD+29 | 
| R | DEPSCR~, DEPSCR+5 | 
| T | TBTX+7~*, TBTX+8, TBTX+9, CPT~, CPT+3, CPT+15, RAD~, RAD+2, RAD+17, DEPDX+1~ , DEPDX+5*, DEPDX+10, DEPDX+16*, DEPDX+25, PLCODE+3~, PLCODE+5*, PLCODE+6, PLCODE+7, PLTAX+3~*, PLTAX+4 , PLTAX+5, VE~, CVD+3~, CVD+6*, CVD+10 | 
| U | SETN+1, TBTX+6, TBTX+9, TBTX+10, CPT+15, CPT+22, CPT+23, RAD+15, RAD+16, RAD+17 , RAD+26, RAD+27, DEPDX+7, DEPDX+8, DEPDX+9, DEPDX+10, DEPDX+11, DEPDX+18, DEPDX+19, DEPDX+21 , DEPDX+25, DEPDX+27, DEPDX+28, DEPDX+29, DEPDX+37, DEPDX+41, DEPDX+42, DEPDX+43, DEPDX+45, DEPDX+48 , DEPDX+49, DEPSCR+5, DEPSCR+6, LOINC+2, LOINC+4, PLCODE+7, 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+8, CVD+9, CVD+10 , CVD+16, CVD+19, CVD+22, CVD+24, CVD+26, CVD+28, CVD+30 | 
| 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+26*, RAD+27*, DEPDX+39*, DEPDX+40, DEPDX+41, DEPDX+42, DEPDX+43, 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+19, INSULIN+1~, INSULIN+2*, SULF+1~, SULF+2*, SULFLIKE+1~, SULFLIKE+2*, MET+1~, MET+2* , ACAR+1~, ACAR+2*, TROG+1~, TROG+2*, SGLT2+1~, SGLT2+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+9, DEPDX+11, DEPDX+14*, DEPDX+17*, DEPDX+18, DEPDX+27, DEPDX+28, DEPDX+34* , DEPDX+43*, DEPSCR+1~, PLCODE+7~*, PLTAX+5~*, LASTDEP+1~, LASTDEP+8*, LASTDEP+9, LASTDEP+10, LASTDEP+11, CVD+3~ , CVD+7*, CVD+8, CVD+9, CVD+11, CVD+15*, CVD+18*, CVD+21*, CVD+23*, CVD+24, CVD+25* , CVD+26, CVD+27*, CVD+28, CVD+29*, CVD+30 | 
| Y | TBTX+7~, CPT+8~, RAD+7~, RAD+15*, RAD+16*, RAD+17, DEPDX+33*, DEPDX+34, PLCODE+7~*, PLTAX+5~* , VE~, VE+1, CVD+3~, CVD+16*, CVD+19*, CVD+22* | 
| Z | CVD+3~, CVD+22* |