©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
BDMD013 ; IHS/CMI/LAB - 2010 DIABETES AUDIT ;
Source file <BDMD013.m>
| Package | Total | Call Graph |
|---|---|---|
| Patient Care Component Reports | 4 | $$LASTPNEU^APCLAPI4 ($$LASTCPTT,$$LASTITEM)^APCLAPIU $$START1^APCLDF ($$CLINIC,$$VD)^APCLV |
| Diabetes Registry | 2 | $$LASTHT^BDMD013 $$REFUSAL^BDMD017 |
| DRG Grouper | 1 | $$ICDDX^ICDCODE |
| IHS Patient | 1 | $$DOB^AUPNPAT |
| IHS VA Utilities | 1 | $$VAL^XBDIQ1 |
| Kernel | 1 | ($$FMADD,$$FMTE)^XLFDT |
| Taxonomy | 1 | $$ICD^ATXCHK |
| VA Fileman | 1 | ^%DT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PLDMDOO(P,F) | ;EP
|
|
| BI() | ;
|
|
| PNEU(P,EDATE,R,F) | ;EP
|
|
| E | ;
|
|
| INCHES | ;
|
|
| CMSFDX(P,R,T) | ;EP - return date/dx of dm in register
|
|
| BPS(P,BDATE,EDATE,F) | ;EP ;
|
|
| LASTFLUO | ;
|
|
| LASTFLUN | ;
|
|
| PLDMDXS(P) | ;EP - get all DM dxs from problem list
|
|
| LASTPNO | ;
|
|
| LASTHT(P,EDATE,F) | ;PEP - return last ht and date
|
|
| LASTPNN | ;
|
|
| FLU(P,BDATE,EDATE,R,F) | ;EP
|
|
| LASTFLU(BDMPDFN,BDMBD,BDMED,BDMFORM) | ;PEP - date of last FLU
; Return the last recorded FLU: ; - V Immunization: 15, 16, 88, 111 ; - V CPT [dm audit seasonal flu cpts] ; If APCLFORM is A returns the string: ; date^text of item found^value if appropriate^visit ien^File found in^ien of file found in ; |
|
| DATE(D) | ;EP
|
|
| LASTDMDX(P,D) | ;EP - last pcc dm dx
|
|
| FRSTDMDX(P,F) | ;EP return date of first dm dx
|
|
| LASTWT(P,BDATE,EDATE,F) | ;PEP - return last wt
|
|
| HTNDX(P,EDATE) | ;EP - is HTN on problem list
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | PNEU+18, LASTHT+5 |
| $$LASTPNEU^APCLAPI4 | PNEU+5 |
| $$LASTCPTT^APCLAPIU | LASTFLU+21 |
| $$LASTITEM^APCLAPIU | LASTFLU+13, LASTFLU+15, LASTFLU+17, LASTFLU+19 |
| $$START1^APCLDF | BPS+5, HTNDX+5, HTNDX+8, LASTWT+7, FRSTDMDX+5, LASTDMDX+4, LASTDMDX+6 |
| $$CLINIC^APCLV | BPS+9 |
| $$VD^APCLV | LASTHT+15 |
| $$ICD^ATXCHK | PLDMDOO+7, PLDMDXS+7 |
| $$DOB^AUPNPAT | LASTFLU+8, HTNDX+8, LASTDMDX+4, LASTDMDX+6 |
| $$LASTHT^BDMD013 | INCHES+2 |
| $$REFUSAL^BDMD017 | FLU+9, FLU+12, FLU+15, FLU+18, PNEU+8, PNEU+12, PNEU+15 |
| $$ICDDX^ICDCODE | LASTWT+6, LASTWT+14, PLDMDXS+7 |
| $$VAL^XBDIQ1 | CMSFDX+6 |
| $$FMADD^XLFDT | FLU+4, PNEU+8, PNEU+12, PNEU+15 |
| $$FMTE^XLFDT | FLU+6, FLU+10, FLU+13, FLU+14, FLU+16, FLU+17, FLU+19, FLU+20, FLU+31, PNEU+6 , PNEU+8, PNEU+9, PNEU+10, PNEU+12, PNEU+13, PNEU+14, PNEU+15, PNEU+16, PNEU+17, PNEU+28 , BPS+11, HTNDX+8, HTNDX+9, LASTHT+19, LASTWT+12, LASTWT+21, CMSFDX+5, PLDMDOO+11, FRSTDMDX+6 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ACM(44 - [#9002244] | CMSFDX+4, CMSFDX+5 |
| ^ATXAX("B" | PLDMDOO+3, PLDMDXS+2 |
| ^AUPNPROB - [#9000011] | PLDMDOO+6, PLDMDOO+8, PLDMDXS+5 |
| ^AUPNPROB("AC" | PLDMDOO+5, PLDMDXS+4 |
| ^AUPNVIMM - [#9000010.11] | LASTFLUN+2, LASTFLUN+5, LASTFLUO+2, LASTFLUO+4, LASTPNN+2, LASTPNN+5, LASTPNO+2, LASTPNO+4 |
| ^AUPNVIMM("AC" | LASTFLUN+1, LASTFLUO+1, LASTPNN+1, LASTPNO+1 |
| ^AUPNVMSR - [#9000010.01] | BPS+8, LASTHT+12, LASTHT+13, LASTHT+14, LASTHT+15, LASTWT+10 |
| ^AUPNVMSR("AA" | LASTHT+10, LASTHT+11 |
| ^AUPNVPOV - [#9000010.07] | LASTWT+14 |
| ^AUPNVPOV("AD" | LASTWT+12, LASTWT+13 |
| ^AUPNVSIT - [#9000010] | LASTFLUN+6, LASTFLUO+5, LASTPNN+6, LASTPNO+5 |
| ^AUPNVSIT("AC" | LASTHT+3 |
| ^AUTTIMM - [#9999999.14] | LASTFLUN+3, LASTFLUN+4, LASTFLUO+3, LASTPNN+3, LASTPNN+4, LASTPNO+3 |
| ^AUTTIMM("C" | FLU+9, FLU+12, FLU+15, FLU+18, FLU+21, PNEU+8, PNEU+12, PNEU+15, PNEU+19 |
| ^AUTTIMM(0 | BI+1 |
| ^AUTTMSR("B" | LASTHT+8 |
| ^BICONT - [#9002084.81] | FLU+24, FLU+25, PNEU+22 |
| ^BIPC - [#9002084.11] | FLU+22, FLU+26, FLU+28, FLU+29, PNEU+20, PNEU+24, PNEU+26 |
| ^BIPC("AC" | FLU+21, PNEU+19 |
| ^DPT - [#2] | HTNDX+2, LASTHT+6 |
| Name | Line Occurrences |
|---|---|
| $$BI | FLU+9, PNEU+8, PNEU+11 |
| $$LASTFLU | FLU+5 |
| E | LASTFLU+14, LASTFLU+16, LASTFLU+18, LASTFLU+20, LASTFLU+22 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | FLU+1~, HTNDX+3~, HTNDX+5*, LASTHT+4~, LASTWT+3~ |
| %DT | FLU+1~, PNEU+1~, PNEU+18*, LASTHT+5* |
| B | FLU+1~, PNEU+1~, LASTFLUN+7, LASTFLUO+6, LASTPNN+7, LASTPNO+6 |
| BD | FLU+1~ |
| BDATE | FLU~, FLU+4*, FLU+5, FLU+9, FLU+12, FLU+15, FLU+18, FLU+28, BPS~, BPS+5 , LASTHT+4~, LASTHT+6*, LASTWT~, LASTWT+7 |
| BDM | FLU+1~, PNEU+1~, BPS+2~, BPS+4!, HTNDX+3~, HTNDX+4!, HTNDX+7!, LASTWT+3~, LASTWT+7!, FRSTDMDX+3~ , LASTDMDX+2~, LASTDMDX+6! |
| BDM( | BPS+6, BPS+7, BPS+9, BPS+11, LASTWT+8, LASTWT+9, LASTWT+11, LASTWT+12, LASTWT+21 |
| BDM(1 | HTNDX+6, HTNDX+9, FRSTDMDX+5, LASTDMDX+5, LASTDMDX+7 |
| BDM(2 | HTNDX+9 |
| BDM(3 | HTNDX+9 |
| BDMARRY | LASTHT+4~, LASTWT+3~ |
| BDMARRY(1 | LASTHT+15*, LASTHT+19 |
| BDMBD | LASTFLU~, LASTFLU+8*, LASTFLU+13, LASTFLU+15, LASTFLU+17, LASTFLU+19, LASTFLU+21 |
| >> BDMBP | BPS+6*, BPS+11, BPS+12 |
| BDMD | LASTWT+3~, LASTWT+13*, LASTWT+14 |
| BDMED | LASTFLU~, LASTFLU+9*, LASTFLU+13, LASTFLU+15, LASTFLU+17, LASTFLU+19, LASTFLU+21 |
| BDMF | LASTFLU+11~ |
| BDMFORM | LASTFLU~, LASTFLU+10*, LASTFLU+23 |
| BDML | BPS+2~, BPS+6*, BPS+7, BPS+9, BPS+11 |
| BDMLAST | LASTFLU+11~, LASTFLU+12*, LASTFLU+13, LASTFLU+15, LASTFLU+17, LASTFLU+19, LASTFLU+21, LASTFLU+23, LASTFLU+24, E+1* |
| BDMLL | BPS+2~, BPS+3*, BPS+6, BPS+10*, BPS+11, BPS+12 |
| BDMN | LASTWT+3~, LASTWT+8*, LASTWT+9, LASTWT+11, LASTWT+12, LASTWT+21 |
| >> BDMPD | INCHES+2 |
| BDMPDFN | LASTFLU~, LASTFLU+7, LASTFLU+8, LASTFLU+13, LASTFLU+15, LASTFLU+17, LASTFLU+19, LASTFLU+21 |
| >> BDMRED | INCHES+2 |
| BDMV | BPS+2~, BPS+3*, BPS+11*, BPS+12*, BPS+13 |
| BDMV221 | LASTWT+6~* |
| BDMVAL | LASTFLU+11~, LASTFLU+13*, LASTFLU+15*, LASTFLU+17*, LASTFLU+19*, LASTFLU+21*, E+1 |
| BDMVF | BPS+2~, BPS+7*, BPS+8, LASTWT+3~, LASTWT+9*, LASTWT+10 |
| BDMW | LASTWT+3~, LASTWT+7*, LASTWT+8, LASTWT+12*, LASTWT+13, LASTWT+21*, LASTWT+23 |
| BDMX | LASTFLU+11~, LASTWT+3~, LASTWT+7* |
| BDMY | LASTFLU+11~ |
| BDMZ | LASTWT+3~, LASTWT+11*, LASTWT+12, LASTWT+13 |
| C | FLU+1~, PNEU+1~ |
| D | FLU+1~, FLU+26*, FLU+27, FLU+30, FLU+31, PNEU+1~, PNEU+24*, PNEU+25, PNEU+27, PNEU+28 , LASTFLUN+5*, LASTFLUN+6*, LASTFLUN+7, LASTFLUN+8, LASTFLUN+9, LASTFLUN+10, LASTFLUN+11, LASTFLUN+12, LASTFLUO+4*, LASTFLUO+5* , LASTFLUO+6, LASTFLUO+7, LASTFLUO+8, LASTPNN+5*, LASTPNN+6*, LASTPNN+7, LASTPNN+8, LASTPNN+9, LASTPNN+10, LASTPNN+11 , LASTPNO+4*, LASTPNO+5*, LASTPNO+6, LASTPNO+7, LASTPNO+8, LASTHT+4~, LASTHT+10*, LASTHT+11, CMSFDX+4~*, CMSFDX+5* , CMSFDX+8, CMSFDX+11*, CMSFDX+12, PLDMDOO+5~*, PLDMDOO+11*, PLDMDXS+4~*, PLDMDXS+7*, PLDMDXS+9, LASTDMDX~, LASTDMDX+4 , LASTDMDX+6, DATE~, DATE+1, DATE+2 |
| D( | PLDMDOO+8* |
| D(0 | PLDMDOO+11 |
| D1 | CMSFDX+4~, CMSFDX+5*, CMSFDX+7*, CMSFDX+8, CMSFDX+11*, CMSFDX+12 |
| DT | LASTFLU+9 |
| E | LASTFLU+11~, FLU+1~, PNEU+1~, PNEU+18*, LASTFLUN+8, LASTFLUO+7, LASTPNN+8, LASTPNO+7, BPS+2~, BPS+5* , HTNDX+3~, HTNDX+5*, HTNDX+8*, LASTHT+4~, LASTHT+8*, LASTHT+10, LASTHT+11, LASTWT+3~, LASTWT+7*, FRSTDMDX+3~ , FRSTDMDX+5*, LASTDMDX+2~, LASTDMDX+4*, LASTDMDX+6* |
| EDATE | FLU~, FLU+4, FLU+5, FLU+9, FLU+12, FLU+15, FLU+18, FLU+29, PNEU~, PNEU+5 , PNEU+8, PNEU+12, PNEU+15, PNEU+18, PNEU+26, BPS~, BPS+5, HTNDX~, HTNDX+8, LASTHT~ , LASTHT+5*, LASTWT~, LASTWT+7 |
| F | FLU~, FLU+2*, FLU+6, PNEU~, PNEU+3*, PNEU+6, BPS~, BPS+1*, BPS+11, BPS+12 , LASTHT~, LASTHT+2*, LASTHT+17, LASTWT~, LASTWT+2*, LASTWT+23, PLDMDOO~, PLDMDOO+2*, PLDMDOO+11, FRSTDMDX~ , FRSTDMDX+2*, FRSTDMDX+6, INCHES+1~, INCHES+5*, INCHES+6 |
| FI | INCHES+1~, INCHES+6*, INCHES+7 |
| G | LASTFLU+11~, FLU+1~, FLU+9~*, FLU+10, FLU+11, FLU+12*, FLU+13, FLU+14, FLU+15*, FLU+16 , FLU+17, FLU+18*, FLU+19, FLU+20, FLU+21*, FLU+30*, FLU+31, PNEU+1~, PNEU+8*, PNEU+9 , PNEU+10, PNEU+12*, PNEU+13, PNEU+14, PNEU+15*, PNEU+16, PNEU+17, PNEU+19*, PNEU+27*, PNEU+28 , CMSFDX+4~, CMSFDX+10*, CMSFDX+11 |
| G( | CMSFDX+10, CMSFDX+11 |
| G(0 | CMSFDX+9 |
| G(9999999 | CMSFDX+8* |
| H | LASTHT+4~, LASTHT+9*, LASTHT+10, LASTHT+11, LASTHT+14*, LASTHT+16, LASTHT+17, LASTHT+18*, LASTHT+19, LASTWT+3~ |
| I | PLDMDOO+5~, PLDMDOO+6*, PLDMDOO+7, PLDMDXS+4~, PLDMDXS+5*, PLDMDXS+7 |
| >> ICD | LASTWT+14*, LASTWT+15, LASTWT+16, LASTWT+17, LASTWT+18, LASTWT+19, LASTWT+20 |
| LFLU | FLU+1~, FLU+5*, FLU+6 |
| LPN | PNEU+1~, PNEU+5*, PNEU+6 |
| P | FLU~, FLU+5, FLU+9, FLU+12, FLU+15, FLU+18, FLU+21, PNEU~, PNEU+5, PNEU+8 , PNEU+12, PNEU+15, PNEU+19, LASTFLUN+1, LASTFLUO+1, LASTPNN+1, LASTPNO+1, BPS~, BPS+5, HTNDX~ , HTNDX+1, HTNDX+2, HTNDX+5, HTNDX+8, LASTHT~, LASTHT+1, LASTHT+3, LASTHT+6, LASTHT+10, LASTHT+11 , LASTWT~, LASTWT+1, LASTWT+7, CMSFDX~, CMSFDX+1, CMSFDX+4, PLDMDOO~, PLDMDOO+1, PLDMDOO+5, PLDMDXS~ , PLDMDXS+1, PLDMDXS+4, FRSTDMDX~, FRSTDMDX+1, FRSTDMDX+5, LASTDMDX~, LASTDMDX+1, LASTDMDX+4, LASTDMDX+6 |
| R | LASTFLU+11~, FLU~, FLU+3*, FLU+8, FLU+22*, FLU+23, FLU+24, FLU+25, PNEU~, PNEU+4* , PNEU+7, PNEU+20*, PNEU+21, PNEU+22, CMSFDX~, CMSFDX+2, CMSFDX+4 |
| T | LASTFLU+11~, FLU+1~, PNEU+1~, CMSFDX~, CMSFDX+3, CMSFDX+12, PLDMDOO+3~*, PLDMDOO+4, PLDMDOO+7, PLDMDXS+2~* , PLDMDXS+3, PLDMDXS+7 |
| TFLU | FLU+1~ |
| TFLU(9999999 | LASTFLUN+9*, LASTFLUN+10*, LASTFLUN+11*, LASTFLUN+12*, LASTFLUO+8* |
| TPN | PNEU+1~, PNEU+2! |
| TPN(9999999 | LASTPNN+9*, LASTPNN+10*, LASTPNN+11*, LASTPNO+8* |
| U | LASTFLU+13, LASTFLU+15, LASTFLU+17, LASTFLU+19, LASTFLU+21, LASTFLU+23, E+1, FLU+10, FLU+13, FLU+14 , FLU+16, FLU+17, FLU+19, FLU+20, FLU+22, FLU+25, FLU+26, FLU+28, FLU+29, FLU+30 , FLU+31, PNEU+9, PNEU+10, PNEU+13, PNEU+14, PNEU+16, PNEU+17, PNEU+20, PNEU+24, PNEU+26 , PNEU+27, PNEU+28, LASTFLUN+2, LASTFLUN+4, LASTFLUN+5, LASTFLUN+6, LASTFLUO+2, LASTFLUO+3, LASTFLUO+4, LASTFLUO+5 , LASTPNN+2, LASTPNN+4, LASTPNN+5, LASTPNN+6, LASTPNO+2, LASTPNO+3, LASTPNO+4, LASTPNO+5, BPS+6, BPS+7 , BPS+8, BPS+9, BPS+11, HTNDX+9, LASTHT+6, LASTHT+13, LASTHT+14, LASTHT+15, LASTHT+19, LASTWT+6 , LASTWT+9, LASTWT+10, LASTWT+11, LASTWT+12, LASTWT+14, LASTWT+21, CMSFDX+4, CMSFDX+5, CMSFDX+11, PLDMDOO+6 , PLDMDOO+8, PLDMDXS+5, PLDMDXS+7, FRSTDMDX+5 |
| V | LASTFLU+11~ |
| W | LASTHT+4~, LASTHT+11*, LASTHT+12, LASTHT+13, LASTHT+14, LASTHT+15, LASTWT+3~ |
| X | LASTFLU+11~, FLU+1~, FLU+21*, FLU+22, FLU+26, FLU+28, FLU+29, PNEU+1~, PNEU+18*, PNEU+19* , PNEU+20, PNEU+24, PNEU+26, LASTFLUN+1*, LASTFLUN+2, LASTFLUN+5, LASTFLUO+1*, LASTFLUO+2, LASTFLUO+4, LASTPNN+1* , LASTPNN+2, LASTPNN+5, LASTPNO+1*, LASTPNO+2, LASTPNO+4, BPS+2~, BPS+5*, HTNDX+3~, HTNDX+8*, LASTHT+5* , LASTWT+3~, CMSFDX+4~*, CMSFDX+5, CMSFDX+6, PLDMDOO+5~*, PLDMDOO+6, PLDMDOO+8, PLDMDXS+4~*, PLDMDXS+5, FRSTDMDX+3~ , FRSTDMDX+5*, LASTDMDX+2~, LASTDMDX+4*, LASTDMDX+6*, INCHES+2*, INCHES+3, INCHES+4*, INCHES+5, INCHES+7*, INCHES+8* |
| Y | LASTFLU+11~, FLU+1~, FLU+21*, PNEU+1~, PNEU+18, PNEU+19*, LASTFLUN+2*, LASTFLUN+3, LASTFLUN+4*, LASTFLUN+9 , LASTFLUN+10, LASTFLUN+11, LASTFLUN+12, LASTFLUO+2*, LASTFLUO+3*, LASTFLUO+8, LASTPNN+2*, LASTPNN+3, LASTPNN+4*, LASTPNN+9 , LASTPNN+10, LASTPNN+11, LASTPNO+2*, LASTPNO+3*, LASTPNO+8, HTNDX+9*, LASTHT+5, CMSFDX+4~*, CMSFDX+6*, CMSFDX+8 , CMSFDX+10*, CMSFDX+11*, CMSFDX+12, FRSTDMDX+3~, FRSTDMDX+4*, FRSTDMDX+5*, FRSTDMDX+6, LASTDMDX+2~, LASTDMDX+3*, LASTDMDX+4 , LASTDMDX+6 |
| Z | FLU+1~, FLU+21*, PNEU+1~, PNEU+19*, INCHES+1~, INCHES+2*, INCHES+7 |