©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
BDMDE13 ; IHS/CMI/LAB - 2017 DIABETES AUDIT ;
Source file <BDMDE13.m>
| Package | Total | Call Graph |
|---|---|---|
| Diabetes Registry | 7 | $$PLTAX^BDMDE12 $$LASTHT^BDMDE13 $$REFUSAL^BDMDE17 $$CPTREFT^BDMDEDU $$DATE^BDMS9B1 ($$LASTPNEU,$$PNEUCONT)^BDMS9B4 ($$ANCONT,$$ICD,$$ICDDX,$$IMMREF,$$SNOMED,GETIMMS)^BDMUTL |
| Patient Care Component Reports | 3 | ($$LASTCPTT,$$LASTDXT,$$LASTITEM)^APCLAPIU $$START1^APCLDF ($$CLINIC,$$VD,$$VDTM)^APCLV |
| Kernel | 2 | ($$FMADD,$$FMDIFF)^XLFDT $$STRIP^XLFSTR |
| DRG Grouper | 1 | $$CPT^ICPTCOD |
| IHS Patient | 1 | $$DOB^AUPNPAT |
| IHS VA Utilities | 1 | ($$VAL,$$VALI)^XBDIQ1 |
| 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
|
|
| HEP(P,EDATE,S,F) | ;EP
|
|
| BPS(P,BDATE,EDATE,F) | ;EP ;
|
|
| LASTWT(P,BDATE,EDATE,F) | ;PEP - return last wt
|
|
| PLDMDXS(P) | ;EP - get all DM dxs from problem list
|
|
| HEPCONT(P,C,BD,ED) | ;EP
|
|
| LASTHT(P,EDATE,F) | ;PEP - return last ht and date
|
|
| FLU(P,BDATE,EDATE,R,F) | ;EP
|
|
| LASTFLU(BDMPDFN,BDMBD,BDMED,BDMFORM) | ;PEP - date of last FLU
; Return the last recorded FLU: |
|
| I | ||
| DATE(D) | ;EP
|
|
| LASTDMDX(P,D) | ;EP - last pcc dm dx
|
|
| FRSTDMDX(P,F) | ;EP return date of first dm dx
|
|
| HTNDX(P,EDATE) | ;EP - is HTN on problem list
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | LASTHT+5 |
| $$LASTCPTT^APCLAPIU | LASTFLU+14 |
| $$LASTDXT^APCLAPIU | LASTFLU+16 |
| $$LASTITEM^APCLAPIU | LASTFLU+12 |
| $$START1^APCLDF | BPS+5, HTNDX+17, LASTWT+4, FRSTDMDX+5, LASTDMDX+4, LASTDMDX+6, I+8 |
| $$CLINIC^APCLV | BPS+9 |
| $$VD^APCLV | LASTHT+14 |
| $$VDTM^APCLV | BPS+11 |
| $$DOB^AUPNPAT | LASTFLU+4, PNEU+9, PNEU+21, HTNDX+17, LASTDMDX+4, LASTDMDX+6, HEP+10, I+6, I+8, I+17 , I+20 |
| $$PLTAX^BDMDE12 | I+10 |
| $$LASTHT^BDMDE13 | INCHES+2 |
| $$REFUSAL^BDMDE17 | FLU+15, PNEU+9 |
| $$CPTREFT^BDMDEDU | I+17 |
| $$DATE^BDMS9B1 | FLU+6, FLU+17, FLU+29, PNEU+6, PNEU+20, BPS+18, HTNDX+17, HTNDX+18, LASTHT+18, LASTWT+9 , LASTWT+18, CMSFDX+5, PLDMDOO+16, FRSTDMDX+6, I+18 |
| $$LASTPNEU^BDMS9B4 | PNEU+5 |
| $$PNEUCONT^BDMS9B4 | PNEU+21 |
| $$ANCONT^BDMUTL | I+22 |
| $$ICD^BDMUTL | HTNDX+11, LASTWT+17, PLDMDOO+8, PLDMDXS+7, HEP+16, HEP+18 |
| $$ICDDX^BDMUTL | LASTWT+12, LASTWT+13, PLDMDXS+7 |
| $$IMMREF^BDMUTL | I+20 |
| $$SNOMED^BDMUTL | HTNDX+12, HTNDX+13, PLDMDOO+11, PLDMDOO+13, PLDMDXS+8, PLDMDXS+9 |
| GETIMMS^BDMUTL | HEP+6 |
| $$CPT^ICPTCOD | HEP+16, HEP+18 |
| $$VAL^XBDIQ1 | CMSFDX+6 |
| $$VALI^XBDIQ1 | BPS+10 |
| $$FMADD^XLFDT | FLU+4, I+12 |
| $$FMDIFF^XLFDT | HEP+22 |
| $$STRIP^XLFSTR | INCHES+9 |
| Name | Line Occurrences |
|---|---|
| Function Call: READ |
|
| Function Call: READ |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ACM(44 - [#9002244] | CMSFDX+4, CMSFDX+5 |
| ^ATXAX - [#9002226] | LASTFLU+10, FLU+11, FLU+13, HTNDX+11, LASTWT+17, PLDMDOO+8, PLDMDXS+7, HEP+16, HEP+18 |
| ^ATXAX("B" | LASTFLU+9, FLU+10, FLU+12, HTNDX+4, LASTWT+16, PLDMDOO+3, PLDMDXS+2, HEP+11, I+17 |
| ^AUPNPREF - [#9000022] | I+15 |
| ^AUPNPREF("AA" | I+15 |
| ^AUPNPROB - [#9000011] | HTNDX+6, HTNDX+7, HTNDX+8, HTNDX+9, HTNDX+10, HTNDX+12, HTNDX+13, PLDMDOO+6, PLDMDOO+7, PLDMDOO+9 , PLDMDOO+11, PLDMDOO+12, PLDMDOO+13, PLDMDOO+14, PLDMDXS+5, PLDMDXS+6, PLDMDXS+8, PLDMDXS+9 |
| ^AUPNPROB("AC" | HTNDX+5, PLDMDOO+5, PLDMDXS+4 |
| ^AUPNVCPT - [#9000010.18] | HEP+16 |
| ^AUPNVCPT("AD" | HEP+15 |
| ^AUPNVMSR - [#9000010.01] | BPS+8, LASTHT+11, LASTHT+12, LASTHT+13, LASTHT+14, LASTWT+7 |
| ^AUPNVMSR("AA" | LASTHT+9, LASTHT+10 |
| ^AUPNVPOV - [#9000010.07] | LASTWT+12, LASTWT+13 |
| ^AUPNVPOV("AD" | LASTWT+9, LASTWT+10 |
| ^AUPNVSIT - [#9000010] | HEP+14 |
| ^AUPNVSIT("AA" | HEP+12, HEP+13 |
| ^AUPNVSIT("AC" | LASTHT+3 |
| ^AUPNVTC - [#9000010.33] | HEP+18 |
| ^AUPNVTC("AD" | HEP+17 |
| ^AUTTIMM("C" | FLU+15, FLU+19, PNEU+9, PNEU+12, I+14, HEPCONT+2 |
| ^AUTTIMM(0 | BI+1 |
| ^AUTTMSR("B" | LASTHT+7 |
| ^BICONT - [#9002084.81] | FLU+22, FLU+23, PNEU+15, PNEU+16, HEPCONT+5, HEPCONT+8 |
| ^BIPC - [#9002084.11] | FLU+20, FLU+24, FLU+26, FLU+27, PNEU+13, PNEU+17, HEPCONT+3, HEPCONT+6, HEPCONT+7 |
| ^BIPC("AC" | FLU+19, PNEU+12, HEPCONT+2 |
| ^DPT - [#2] | HTNDX+2, LASTHT+6 |
| Name | Line Occurrences |
|---|---|
| $$HEPCONT | I+6 |
| $$LASTFLU | FLU+5 |
| E | LASTFLU+13, LASTFLU+15, LASTFLU+17 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | FLU+1~, HTNDX+3~, LASTHT+4~, LASTWT+3~, I+1, I+2*, I+3*, I+8* |
| %DT | FLU+1~, PNEU+1~, LASTHT+5* |
| A | FLU+1~, FLU+14*, FLU+15 |
| B | FLU+1~, PNEU+1~, I+12*, I+15 |
| BD | FLU+1~, HEP+10*, HEP+12, HEPCONT~ |
| BDATE | FLU~, FLU+4*, FLU+5, FLU+15, FLU+26, BPS~, BPS+5, LASTHT+4~, LASTHT+6*, LASTWT~ , LASTWT+4 |
| BDM | FLU+1~, PNEU+1~, BPS+2~, BPS+4!, HTNDX+3~, HTNDX+16!, LASTWT+3~, LASTWT+4!, FRSTDMDX+3~, LASTDMDX+2~ , LASTDMDX+6! |
| BDM( | BPS+6, BPS+7, BPS+9, BPS+11, BPS+12, LASTWT+5, LASTWT+6, LASTWT+8, LASTWT+9, LASTWT+18 |
| BDM(1 | HTNDX+18, FRSTDMDX+5, LASTDMDX+5, LASTDMDX+7 |
| BDM(2 | HTNDX+18 |
| BDM(3 | HTNDX+18 |
| BDM10743 | HEP+1~, HEP+12*, HEP+16*, HEP+18*, I |
| BDMARRY | LASTHT+4~, LASTWT+3~ |
| BDMARRY(1 | LASTHT+14*, LASTHT+18 |
| BDMBD | LASTFLU~, LASTFLU+4*, LASTFLU+12, LASTFLU+14, LASTFLU+16 |
| BDMBDT | BPS+2~, BPS+4! |
| BDMBDT( | BPS+12*, BPS+13, BPS+14, BPS+15, BPS+17, BPS+18 |
| >> BDMBP | BPS+17*, BPS+18, BPS+19 |
| BDMC | HEP+1~ |
| BDMD | LASTWT+3~, LASTWT+10*, LASTWT+12, LASTWT+13 |
| BDMED | LASTFLU~, LASTFLU+5*, LASTFLU+12, LASTFLU+14, LASTFLU+16 |
| BDMF | LASTFLU+7~ |
| BDMFORM | LASTFLU~, LASTFLU+6*, LASTFLU+18 |
| BDMG | HEP+1~, I+8! |
| BDMG(1 | I+9 |
| BDMHEP | HEP+1~, HEP+25*, HEP+26, I |
| BDMHEP( | HEP+8*, HEP+20, HEP+22!, HEP+25, I+3 |
| BDMHEP(9999999 | HEP+16*, HEP+18* |
| BDMIMM | HEP+1~, I+6*, I+13*, I+14, I+20* |
| BDML | BPS+2~, BPS+6*, BPS+7, BPS+9, BPS+11, BPS+12 |
| BDMLAST | LASTFLU+7~, LASTFLU+8*, LASTFLU+12, LASTFLU+14, LASTFLU+16, LASTFLU+18, LASTFLU+19, E+1* |
| BDMLL | BPS+2~, BPS+3*, BPS+13, BPS+14, BPS+15, BPS+16*, BPS+18, BPS+19 |
| BDMN | LASTWT+3~, LASTWT+5*, LASTWT+6, LASTWT+8, LASTWT+9, LASTWT+18 |
| >> BDMNMI | I+12*, I+15*, I+16, I+18* |
| >> BDMPD | INCHES+2 |
| BDMPDFN | LASTFLU~, LASTFLU+3, LASTFLU+4, LASTFLU+12, LASTFLU+14, LASTFLU+16 |
| >> BDMRED | INCHES+2 |
| BDMV | BPS+2~, BPS+3*, BPS+18*, BPS+19*, BPS+20 |
| BDMVAL | LASTFLU+7~, LASTFLU+12*, LASTFLU+14*, LASTFLU+16*, E+1 |
| BDMVF | BPS+2~, BPS+7*, BPS+8, BPS+10, BPS+12, LASTWT+3~, LASTWT+6*, LASTWT+7 |
| BDMW | LASTWT+3~, LASTWT+4*, LASTWT+5, LASTWT+9*, LASTWT+18*, LASTWT+20 |
| BDMX | LASTFLU+7~, LASTWT+3~, LASTWT+4*, HEP+1~, HEP+6 |
| BDMX( | HEP+8 |
| BDMY | LASTFLU+7~ |
| BDMZ | LASTWT+3~, LASTWT+8*, LASTWT+9, LASTWT+10, HEP+1~, I+22* |
| C | FLU+1~, PNEU+1~, HEP+1~, HEP+5*, HEP+6, HEP+20*, HEP+21, HEPCONT~, HEPCONT+2 |
| D | LASTFLU+7~, FLU+1~, FLU+24*, FLU+25, FLU+28, FLU+29, PNEU+1~, PNEU+17*, PNEU+18, PNEU+19 , BPS+2~, BPS+10*, BPS+11*, BPS+12, BPS+13*, BPS+14, BPS+15, BPS+17, BPS+18, LASTHT+4~ , LASTHT+9*, LASTHT+10, CMSFDX+4~*, CMSFDX+5*, CMSFDX+8, CMSFDX+11*, CMSFDX+12, PLDMDOO+5~*, PLDMDOO+16*, PLDMDXS+4~* , PLDMDXS+7*, PLDMDXS+8*, PLDMDXS+9*, PLDMDXS+11, LASTDMDX~, LASTDMDX+4, LASTDMDX+6, DATE~, DATE+1, DATE+2 , I+15*, HEPCONT+1~, HEPCONT+6* |
| D( | PLDMDOO+9*, PLDMDOO+12*, PLDMDOO+14* |
| D(0 | PLDMDOO+16 |
| D1 | CMSFDX+4~, CMSFDX+5*, CMSFDX+7*, CMSFDX+8, CMSFDX+11*, CMSFDX+12 |
| DT | LASTFLU+5, PNEU+9, PNEU+21 |
| E | LASTFLU+7~, FLU+1~, PNEU+1~, BPS+2~, BPS+5*, BPS+14*, BPS+15, BPS+17, BPS+18, HTNDX+3~ , HTNDX+17*, LASTHT+4~, LASTHT+7*, LASTHT+9, LASTHT+10, LASTWT+3~, LASTWT+4*, FRSTDMDX+3~, FRSTDMDX+5*, LASTDMDX+2~ , LASTDMDX+4*, LASTDMDX+6*, I+8*, I+12*, I+15 |
| ED | HEP+1~, HEP+10*, HEP+12*, HEP+13, HEP+16, HEP+18, HEPCONT~, HEPCONT+7 |
| EDATE | FLU~, FLU+4, FLU+5, FLU+15, FLU+27, PNEU~, PNEU+5, BPS~, BPS+5, HTNDX~ , HTNDX+7, HTNDX+17, LASTHT~, LASTHT+5*, LASTWT~, LASTWT+4, HEP~, HEP+6, HEP+10, I+6 , I+8, I+12, I+17, I+20, I+22 |
| F | FLU~, FLU+2*, FLU+6, PNEU~, PNEU+3*, PNEU+6, BPS~, BPS+1*, BPS+18, BPS+19 , LASTHT~, LASTHT+2*, LASTHT+16, LASTWT~, LASTWT+2*, LASTWT+20, PLDMDOO~, PLDMDOO+2*, PLDMDOO+16, FRSTDMDX~ , FRSTDMDX+2*, FRSTDMDX+6, INCHES+1~, INCHES+5*, INCHES+6, HEP~, HEP+3* |
| FI | INCHES+1~, INCHES+6*, INCHES+7 |
| G | LASTFLU+7~, FLU+1~, FLU+15*, FLU+16, FLU+17, FLU+19*, FLU+28*, FLU+29, PNEU+1~, PNEU+8* , PNEU+9*, PNEU+10, PNEU+12*, PNEU+19*, PNEU+20, PNEU+21*, PNEU+22, HTNDX+3~, HTNDX+5*, HTNDX+11* , HTNDX+12*, HTNDX+13*, HTNDX+15, LASTWT+10*, LASTWT+17*, LASTWT+18, CMSFDX+4~, CMSFDX+10*, CMSFDX+11, HEP+1~ , HEP+10*, HEPCONT+1~, HEPCONT+2*, HEPCONT+8*, HEPCONT+9 |
| G( | CMSFDX+10, CMSFDX+11 |
| G(0 | CMSFDX+9 |
| G(9999999 | CMSFDX+8* |
| H | LASTHT+4~, LASTHT+8*, LASTHT+9, LASTHT+10, LASTHT+13*, LASTHT+15, LASTHT+16, LASTHT+17*, LASTHT+18, LASTWT+3~ |
| I | BPS+2~, BPS+15*, BPS+17, BPS+18, PLDMDOO+5~, PLDMDOO+7*, PLDMDOO+8, PLDMDXS+4~, PLDMDXS+6*, PLDMDXS+7 , HEP+1~, I+14*, I+15 |
| >> ICD | LASTWT+13* |
| ICDI | LASTWT+11~, LASTWT+12*, LASTWT+17 |
| J | FLU+1~, FLU+14*, FLU+16*, FLU+17*, FLU+18 |
| LFLU | FLU+1~, FLU+5*, FLU+6 |
| LPN | PNEU+1~, PNEU+5*, PNEU+6 |
| P | FLU~, FLU+5, FLU+15, FLU+19, PNEU~, PNEU+5, PNEU+9, PNEU+12, PNEU+21, BPS~ , BPS+5, HTNDX~, HTNDX+1, HTNDX+2, HTNDX+5, HTNDX+17, LASTHT~, LASTHT+1, LASTHT+3, LASTHT+6 , LASTHT+9, LASTHT+10, LASTWT~, LASTWT+1, LASTWT+4, 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, HEP~, HEP+6, HEP+10, HEP+12, HEP+13, I+6, I+8, I+10, I+15 , I+17, I+20, I+22, HEPCONT~, HEPCONT+2 |
| R | LASTFLU+7~, LASTFLU+11*, LASTFLU+12, FLU~, FLU+3*, FLU+8, FLU+20*, FLU+21, FLU+22, FLU+23 , PNEU~, PNEU+4*, PNEU+7, PNEU+8*, PNEU+9, PNEU+13*, PNEU+14, PNEU+15, PNEU+16, CMSFDX~ , CMSFDX+2, CMSFDX+4, HEP+1~, I+6*, I+7, I+12*, I+15*, I+16, I+17*, I+18 , I+20*, I+21, HEPCONT+1~, HEPCONT+3*, HEPCONT+4, HEPCONT+5, HEPCONT+8 |
| S | LASTFLU+7~, LASTFLU+8*, FLU+1~, FLU+9!, HEP~, HEP+4*, I+1 |
| S( | LASTFLU+10*, LASTFLU+11, FLU+11*, FLU+13*, FLU+14, FLU+19 |
| T | LASTFLU+7~, LASTFLU+9*, LASTFLU+10, FLU+1~, FLU+10*, FLU+11, FLU+12*, FLU+13, PNEU+1~, HTNDX+3~ , HTNDX+4*, HTNDX+11, CMSFDX~, CMSFDX+3, CMSFDX+12, PLDMDOO+3~*, PLDMDOO+4, PLDMDOO+8, PLDMDXS+2~*, PLDMDXS+3 , PLDMDXS+7, HEP+1~, HEP+11*, HEP+16, HEP+18 |
| TAX | LASTWT+15~, LASTWT+16*, LASTWT+17 |
| TFLU | FLU+1~ |
| TPN | PNEU+1~, PNEU+2! |
| U | LASTFLU+12, LASTFLU+14, LASTFLU+16, LASTFLU+18, E+1, FLU+16, FLU+17, FLU+20, FLU+23, FLU+24 , FLU+26, FLU+27, FLU+28, FLU+29, PNEU+10, PNEU+13, PNEU+16, PNEU+17, PNEU+19, PNEU+20 , BPS+7, BPS+8, BPS+9, BPS+11, BPS+17, BPS+18, HTNDX+7, HTNDX+8, HTNDX+9, HTNDX+10 , HTNDX+11, HTNDX+12, HTNDX+13, HTNDX+18, LASTHT+6, LASTHT+12, LASTHT+13, LASTHT+14, LASTHT+18, LASTWT+6 , LASTWT+7, LASTWT+8, LASTWT+9, LASTWT+12, LASTWT+13, LASTWT+17, LASTWT+18, CMSFDX+4, CMSFDX+5, CMSFDX+11 , PLDMDOO+6, PLDMDOO+7, PLDMDOO+8, PLDMDOO+9, PLDMDOO+11, PLDMDOO+12, PLDMDOO+13, PLDMDOO+14, PLDMDXS+5, PLDMDXS+6 , PLDMDXS+7, PLDMDXS+8, PLDMDXS+9, FRSTDMDX+5, HEP+16, HEP+18, I+15, I+18, HEPCONT+3, HEPCONT+6 , HEPCONT+7, HEPCONT+8 |
| V | LASTFLU+7~, HEP+1~, HEP+13*, HEP+14, HEP+15, HEP+17 |
| W | LASTHT+4~, LASTHT+10*, LASTHT+11, LASTHT+12, LASTHT+13, LASTHT+14, LASTWT+3~ |
| X | LASTFLU+7~, LASTFLU+10*, FLU+1~, FLU+11*, FLU+13*, FLU+19*, FLU+20, FLU+24, FLU+26, FLU+27 , PNEU+1~, PNEU+12*, PNEU+13, PNEU+17, BPS+2~, BPS+5*, HTNDX+3~, HTNDX+5*, HTNDX+6, HTNDX+7 , HTNDX+8, HTNDX+9, HTNDX+10, HTNDX+12, HTNDX+13, HTNDX+17*, LASTHT+5*, LASTWT+3~, CMSFDX+4~*, CMSFDX+5 , CMSFDX+6, PLDMDOO+5~*, PLDMDOO+6, PLDMDOO+7, PLDMDOO+9, PLDMDOO+11, PLDMDOO+12, PLDMDOO+13, PLDMDOO+14, PLDMDXS+4~* , PLDMDXS+5, PLDMDXS+6, PLDMDXS+8, PLDMDXS+9, FRSTDMDX+3~, FRSTDMDX+5*, LASTDMDX+2~, LASTDMDX+4*, LASTDMDX+6*, INCHES+2* , INCHES+3, INCHES+4*, INCHES+5, INCHES+7*, INCHES+8*, INCHES+9*, HEP+1~, HEP+8*, HEP+15*, HEP+16 , HEP+17*, HEP+18, HEP+20*, HEP+21, HEP+22, HEP+23, HEP+25*, I+3*, I+15*, I+22* , I+23, HEPCONT+1~, HEPCONT+2*, HEPCONT+3, HEPCONT+6, HEPCONT+7 |
| Y | LASTFLU+7~, FLU+1~, FLU+19*, PNEU+1~, PNEU+12*, HTNDX+3~, HTNDX+8*, HTNDX+11, HTNDX+18*, 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, HEP+1~, HEP+16*, HEP+18*, HEP+20*, HEP+21*, HEP+22 , HEP+23*, I+15*, HEPCONT+1~, HEPCONT+2* |
| Z | LASTFLU+7~, FLU+1~, FLU+19*, PNEU+1~, PNEU+12*, PNEU+21*, INCHES+1~, INCHES+2*, INCHES+7, HEP+1~ , HEP+16*, HEP+18* |