©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
BDMDG1B ; IHS/CMI/LAB - get dm audit values ;
Source file <BDMDG1B.m>
| Package | Total | Call Graph |
|---|---|---|
| Diabetes Registry | 8 | $$LASTPRCT^BDMAPIU $$REFUSAL^BDMDG17 $$TOBACCO^BDMDG1T ($$CPT,$$CPTI,$$TRAN,$$TRANI,GETMEDS)^BDMDGDU $$DATE^BDMS9B1 $$TD^BDMS9B3 $$LASTCPTI^BDMSMU2 ($$CODEN,$$ICD)^BDMUTL |
| Patient Care Component Reports | 3 | ($$LASTITEM,ALLV)^APCLAPIU $$START1^APCLDF ($$CLINIC,$$PRIMPROV,$$VD)^APCLV |
| Kernel | 2 | ($$FMADD,$$FMTE)^XLFDT $$UP^XLFSTR |
| VA Fileman | 2 | ^%DT $$GET1^DIQ |
| DRG Grouper | 1 | $$CODEN^ICPTCOD |
| IHS Patient | 1 | $$DOB^AUPNPAT |
| IHS VA Utilities | 1 | $$VAL^XBDIQ1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PREGX(P,BDATE,EDATE,NORXCHR,NORX,RPBD) | ;EP
|
|
| MA | ;now check for abortion or miscarriage
|
|
| TD(P,EDATE) | ;EP
|
|
| PREG(P,BDATE,EDATE,NORXCHR,NORX,CPBD,CPED) | ;EP
|
|
| LASTTDAP(BDMPDFN,BDMED) | ;PEP - date of last TD
; |
|
| TDAP(P,BDMSED,F) | ;EP
|
|
| PEDREF | ; REFUSALS REMOVED 2019 AUDIT
|
|
| CESS | ;EP - find any cessation hf in 12 months before
|
|
| PROBX | ;
|
|
| STATE(P) | ;EP - STATE OF PATIENT1)
|
|
| PROB | ;
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | TD+5 |
| $$LASTITEM^APCLAPIU | LASTTDAP+7 |
| ALLV^APCLAPIU | PREG+14 |
| $$START1^APCLDF | MA+1, PREGX+8, CESS+21, CESS+49 |
| $$CLINIC^APCLV | PREG+28, PREGX+14, CESS+54 |
| $$PRIMPROV^APCLV | PREG+31, PREGX+17 |
| $$VD^APCLV | PREG+27 |
| $$DOB^AUPNPAT | TD+3, LASTTDAP+3, CESS+2 |
| $$LASTPRCT^BDMAPIU | MA+3 |
| $$REFUSAL^BDMDG17 | TDAP+5 |
| $$TOBACCO^BDMDG1T | CESS+2 |
| $$CPT^BDMDGDU | MA+18, MA+21 |
| $$CPTI^BDMDGDU | CESS+59, CESS+61, CESS+63, CESS+65, CESS+66, CESS+67, CESS+71, CESS+73, CESS+75 |
| $$TRAN^BDMDGDU | MA+24, MA+27 |
| $$TRANI^BDMDGDU | CESS+60, CESS+62, CESS+64, CESS+68, CESS+69, CESS+70, CESS+72, CESS+74, CESS+76 |
| GETMEDS^BDMDGDU | CESS+80 |
| $$DATE^BDMS9B1 | TD+5, TDAP+3, TDAP+17, TDAP+18, MA+30, PREGX+8, CESS+77, CESS+93 |
| $$TD^BDMS9B3 | TD+3 |
| $$LASTCPTI^BDMSMU2 | LASTTDAP+8 |
| $$CODEN^BDMUTL | CESS+38 |
| $$ICD^BDMUTL | PREG+36, PREG+41, PREG+46, PROB+9, MA+12, PROBX+9, CESS+42 |
| $$GET1^DIQ | STATE+3, STATE+5, STATE+6 |
| $$CODEN^ICPTCOD | CESS+59, CESS+60, CESS+61, CESS+62, CESS+63, CESS+64, CESS+65, CESS+66, CESS+67, CESS+68 , CESS+69, CESS+70, CESS+71, CESS+72, CESS+73, CESS+74, CESS+75, CESS+76 |
| $$VAL^XBDIQ1 | CESS+11 |
| $$FMADD^XLFDT | TDAP+5, TDAP+15, PREG+36, PREG+41, PREG+46 |
| $$FMTE^XLFDT | MA+1, CESS+21, CESS+49 |
| $$UP^XLFSTR | CESS+85 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^DIC(5 - [#5] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ATXAX - [#9002226] | CESS+10, CESS+89, CESS+92 |
| ^ATXAX("B" | PROB+2, MA+5, MA+17, MA+20, MA+23, MA+26, PROBX+2, CESS+6, CESS+41, CESS+81 , CESS+82 |
| ^AUPNPROB - [#9000011] | PROB+4, PROB+5, PROB+6, PROB+7, PROB+8, PROB+10, MA+7, MA+8, MA+9, MA+10 , MA+11, PROBX+4, PROBX+5, PROBX+6, PROBX+7, PROBX+8, PROBX+10 |
| ^AUPNPROB("AC" | PROB+3, MA+6, PROBX+3 |
| ^AUPNREP - [#9000017] | PREG+7, PREG+8 |
| ^AUPNVCPT - [#9000010.18] | PREG+40 |
| ^AUPNVCPT("AD" | PREG+39 |
| ^AUPNVDEN - [#9000010.05] | CESS+56 |
| ^AUPNVDEN("AD" | CESS+56 |
| ^AUPNVHF("AA" | CESS+8, CESS+13 |
| ^AUPNVMED - [#9000010.14] | CESS+85, CESS+86 |
| ^AUPNVPED - [#9000010.16] | CESS+28 |
| ^AUPNVPOV - [#9000010.07] | PREG+35 |
| ^AUPNVPOV("AD" | PREG+34 |
| ^AUPNVPRC - [#9000010.08] | PREG+45 |
| ^AUPNVPRC("AD" | PREG+44 |
| ^AUPNVSIT - [#9000010] | CESS+51, CESS+52, CESS+53, CESS+55, CESS+56, CESS+84, CESS+90, CESS+92 |
| ^AUTTADA - [#9999999.31] | CESS+56 |
| ^AUTTEDT - [#9999999.09] | CESS+30, CESS+31 |
| ^AUTTHF - [#9999999.64] | CESS+11, CESS+16 |
| ^AUTTIMM("C" | TDAP+5, TDAP+8 |
| ^BDMSNME - [#9003202.6] | CESS+22, CESS+23, CESS+24, CESS+25, CESS+44, CESS+45, CESS+46, CESS+47 |
| ^BDMSNME("B" | CESS+22 |
| ^BICONT - [#9002084.81] | TDAP+11, TDAP+12 |
| ^BIPC - [#9002084.11] | TDAP+9, TDAP+13 |
| ^BIPC("AC" | TDAP+8 |
| ^DPT - [#2] | PREG+1, PREGX+2 |
| ^PSDRUG - [#50] | CESS+88, CESS+91 |
| ^TMP($J | CESS+48!, CESS+50 |
| Name | Line Occurrences |
|---|---|
| $$LASTTDAP | TDAP+2 |
| MA | PREG+7, PREG+49 |
| PROB | PREG+15, PREGX+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | PREG+2~, PREG+35*, PREG+36, PREG+40*, PREG+41, PREG+45*, PREG+46, MA+18*, MA+19, MA+21* , MA+22, MA+24*, MA+25, MA+27*, MA+28, PREGX+1~, CESS+18~, CESS+22*, CESS+26*, CESS+32* , CESS+33*, CESS+34*, CESS+42*, CESS+43*, CESS+44*, CESS+45*, CESS+46*, CESS+47* |
| %DT | TDAP+1~ |
| A | PREG+2~, PREG+6*, PREG+7, PREG+11*, CESS+18~, CESS+49* |
| B | TDAP+1~, PREG+2~, PREG+7, PREG+8*, PREG+9, PREG+10, PREG+16*, PREG+24*, PREG+36*, PREG+41* , PREG+46*, PREG+49, PROB+1, PREGX+1~, PREGX+3*, PREGX+11*, PROBX+1, CESS+18~, CESS+49*, CESS+54* , CESS+55, CESS+56* |
| BDATE | PREG~, PREG+4, PREG+14, PROB+7, MA+3, PREGX~, PREGX+8, PROBX+7, CESS+15, CESS+21 , CESS+49, CESS+59, CESS+60, CESS+61, CESS+62, CESS+63, CESS+64, CESS+65, CESS+66, CESS+67 , CESS+68, CESS+69, CESS+70, CESS+71, CESS+72, CESS+73, CESS+74, CESS+75, CESS+76, CESS+80 |
| BDM | CESS+3~, CESS+5! |
| BDM1 | TD+2~, TD+3*, TD+4, TD+6, TD+7, TD+8 |
| BDMALLED | CESS+18~, CESS+19! |
| BDMALLED( | CESS+27, CESS+28, CESS+32, CESS+33, CESS+34, CESS+42, CESS+43, CESS+44, CESS+45, CESS+46 , CESS+47 |
| BDMALLED(1 | CESS+26 |
| >> BDMBD | LASTTDAP+3*, LASTTDAP+7, LASTTDAP+8 |
| BDMD | PREG+2~, PREG+7*, PREG+13*, PREG+16*, PREG+51*, PROB+12, PROB+13*, MA+1, MA+9, MA+18 , MA+21, MA+24, MA+27, MA+30, PREGX+1~, PREGX+3*, PREGX+19* |
| BDMDX | PREG+2~, PREGX+1~ |
| BDMDX( | PREG+36*, PREG+41*, PREG+46*, PREG+51, PREGX+19* |
| BDMED | LASTTDAP~, LASTTDAP+4*, LASTTDAP+7, LASTTDAP+8 |
| BDMF | LASTTDAP+5~, LASTTDAP+8*, LASTTDAP+9 |
| BDMG | PREG+2~, PREG+19!, MA+1!, MA+3*, MA+4, PREGX+1~, PREGX+6!, PREGX+10 |
| BDMG( | PREGX+11, PREGX+13, PREGX+14, PREGX+17 |
| BDMG(1 | MA+2 |
| BDMLAST | LASTTDAP+5~, LASTTDAP+6*, LASTTDAP+7 |
| BDMLPED | CESS+3~, CESS+4*, CESS+13, CESS+16*, CESS+26*, CESS+32, CESS+33, CESS+34, CESS+42, CESS+43 , CESS+44, CESS+45, CESS+46, CESS+47, CESS+55*, CESS+56*, CESS+59*, CESS+60*, CESS+61*, CESS+62* , CESS+63*, CESS+64*, CESS+65*, CESS+66*, CESS+67*, CESS+68*, CESS+69*, CESS+70*, CESS+71*, CESS+72* , CESS+73*, CESS+74*, CESS+75*, CESS+76*, CESS+77, CESS+90*, CESS+92*, CESS+93 |
| BDMMEDS1 | CESS+18~, CESS+79!, CESS+80 |
| BDMMEDS1( | CESS+83 |
| BDMPDFN | LASTTDAP~, LASTTDAP+2, LASTTDAP+3, LASTTDAP+7, LASTTDAP+8 |
| BDMSED | TDAP~, TDAP+2 |
| BDMV | PREG+2~, PREG+15 |
| BDMV( | PREG+24, PREG+26 |
| BDMVAL | LASTTDAP+5~, LASTTDAP+7*, LASTTDAP+9, LASTTDAP+10 |
| BDMX | LASTTDAP+5~ |
| BDMY | TDAP+1~, LASTTDAP+5~ |
| C | PREG+2~, PREG+28*, PREG+29, PREG+30, PREG+31*, PREG+32, PREG+51*, PREGX+1~, PREGX+14*, PREGX+15 , PREGX+16, PREGX+17*, PREGX+18, STATE+2~, CESS+3~, CESS+91*, CESS+92 |
| CNT | PREG+2~, PREG+16*, PREG+36*, PREG+41*, PREG+46*, PREG+49, PREGX+1~, PREGX+3*, PREGX+19*, PREGX+21 |
| CODE | CESS+37~, CESS+38*, CESS+39, CESS+42 |
| CPBD | PREG~, PREG+4*, PREG+9 |
| CPED | PREG~, PREG+5*, PREG+10 |
| CPTT | PREG+2~, PREG+22*, PREG+41 |
| CTR | PREG+2~, PREG+24*, PREG+26 |
| D | TD+4~*, TD+5, TDAP+13*, TDAP+14, TDAP+15, TDAP+16, PREG+2~, PREG+27*, PREG+36, PREG+41 , PREG+46, PREGX+1~, PREGX+13*, PREGX+19, CESS+3~, CESS+7*, CESS+13*, CESS+14, CESS+15, CESS+16 , CESS+27*, CESS+83* |
| DT | TDAP+5, TDAP+15, LASTTDAP+4 |
| DXT | PREG+2~, PREG+20*, PREG+36 |
| E | TDAP+1~, LASTTDAP+5~, PREG+2~, MA+1*, PREGX+8*, CESS+3~, CESS+18~, CESS+21*, CESS+49*, CESS+83* |
| EDATE | TD~, TD+3, PREG~, PREG+5, PREG+14, PREG+36, PREG+41, PREG+46, PROB+6, MA+1 , MA+3, MA+10, MA+18, MA+21, MA+24, MA+27, PREGX~, PREGX+8, PROBX+6, CESS+2 , CESS+14, CESS+21, CESS+49, CESS+59, CESS+60, CESS+61, CESS+62, CESS+63, CESS+64, CESS+65 , CESS+66, CESS+67, CESS+68, CESS+69, CESS+70, CESS+71, CESS+72, CESS+73, CESS+74, CESS+75 , CESS+76, CESS+80 |
| F | TDAP~, TDAP+3, TDAP+17, TDAP+18 |
| >> FORM | PREG+3*, MA+29 |
| G | TDAP+4*, TDAP+5*, TDAP+6, TDAP+8*, TDAP+16*, TDAP+17, LASTTDAP+5~, PREG+2~, PROB+3*, PROB+10* , PROB+12, PROB+13, MA+6*, MA+13*, MA+15, PREGX+1~, PROBX+3*, PROBX+10*, PROBX+12, CESS+3~ , CESS+9*, CESS+10*, CESS+11*, CESS+12, CESS+18~, CESS+50*, CESS+56, CESS+59*, CESS+60*, CESS+61* , CESS+62*, CESS+63*, CESS+64*, CESS+65*, CESS+66*, CESS+67*, CESS+68*, CESS+69*, CESS+70*, CESS+71* , CESS+72*, CESS+73*, CESS+74*, CESS+75*, CESS+76*, CESS+83* |
| H | PREG+2~, PREG+34*, PREG+36*, PREG+37, PREG+39*, PREG+41*, PREG+42, PREG+44*, PREG+46*, PREG+47 , CESS+3~, CESS+7*, CESS+8*, CESS+10, CESS+11, CESS+13, CESS+16 |
| >> M | CESS+83* |
| >> N | CESS+88*, CESS+89, CESS+90, CESS+92 |
| NORX | PREG~, PREG+18*, PREG+30, PREGX~, PREGX+5*, PREGX+16 |
| NORXCHR | PREG~, PREG+17*, PREG+29, PREG+32, PREGX~, PREGX+4*, PREGX+15, PREGX+18 |
| O | CESS+3~, CESS+7*, CESS+8 |
| P | TD~, TD+3, TDAP~, TDAP+2, TDAP+5, TDAP+8, PREG~, PREG+1, PREG+7, PREG+8 , PREG+14, PROB+3, MA+1, MA+3, MA+6, MA+18, MA+21, MA+24, MA+27, PREGX~ , PREGX+2, PREGX+8, PROBX+3, STATE~, STATE+1, STATE+3, CESS+1, CESS+2, CESS+8, CESS+13 , CESS+21, CESS+49, CESS+59, CESS+60, CESS+61, CESS+62, CESS+63, CESS+64, CESS+65, CESS+66 , CESS+67, CESS+68, CESS+69, CESS+70, CESS+71, CESS+72, CESS+73, CESS+74, CESS+75, CESS+76 , CESS+80 |
| PXT | PREG+2~, PREG+21*, PREG+46 |
| Q | CESS+3~, CESS+18~ |
| R | TDAP+4*, TDAP+5, TDAP+9*, TDAP+10, TDAP+11, TDAP+12, LASTTDAP+5~ |
| RPBD | PREGX~ |
| SN | CESS+3~, CESS+18~, CESS+22*, CESS+44 |
| SN1 | CESS+18~, CESS+23*, CESS+45 |
| SN2 | CESS+18~, CESS+24*, CESS+46 |
| SN3 | CESS+18~, CESS+25*, CESS+47 |
| SNY | CESS+3~, CESS+22*, CESS+23, CESS+24, CESS+25, CESS+44, CESS+45, CESS+46, CESS+47 |
| T | LASTTDAP+5~, PREG+2~, PROB+2*, PROB+9, MA+5*, MA+12, MA+17*, MA+18, MA+20*, MA+21 , MA+23*, MA+24, MA+26*, MA+27, PREGX+1~, PROBX+2*, CESS+3~, CESS+6*, CESS+10, CESS+18~ , CESS+27*, CESS+28*, CESS+29, CESS+30, CESS+31*, CESS+32, CESS+33, CESS+34, CESS+38, CESS+42 , CESS+43, CESS+44, CESS+45, CESS+46, CESS+47, CESS+81*, CESS+89 |
| >> T1 | CESS+82*, CESS+92 |
| TAX | CESS+40~, CESS+41* |
| TDD | TDAP+1~, TDAP+2*, TDAP+3, TDAP+18 |
| U | TDAP+6, TDAP+9, TDAP+12, TDAP+13, TDAP+16, TDAP+17, LASTTDAP+7, LASTTDAP+9, LASTTDAP+10, PREG+1 , PREG+7, PREG+8, PREG+26, PROB+4, PROB+5, PROB+6, PROB+7, PROB+8, PROB+10, MA+7 , MA+8, MA+9, MA+10, MA+11, MA+30, PREGX+2, PREGX+13, PREGX+14, PREGX+17, PROBX+4 , PROBX+5, PROBX+6, PROBX+7, PROBX+8, PROBX+10, CESS+2, CESS+11, CESS+16, CESS+28, CESS+31 , CESS+32, CESS+33, CESS+34, CESS+42, CESS+43, CESS+44, CESS+45, CESS+46, CESS+47, CESS+50 , CESS+52, CESS+53, CESS+55, CESS+56, CESS+59, CESS+60, CESS+61, CESS+62, CESS+63, CESS+64 , CESS+65, CESS+66, CESS+67, CESS+68, CESS+69, CESS+70, CESS+71, CESS+72, CESS+73, CESS+74 , CESS+75, CESS+76, CESS+77, CESS+83, CESS+85, CESS+86, CESS+88, CESS+90, CESS+91, CESS+92 , CESS+93 |
| V | LASTTDAP+5~, CESS+50*, CESS+51, CESS+52, CESS+53, CESS+54, CESS+55, CESS+56, CESS+83*, CESS+84 , CESS+90, CESS+92 |
| VIEN | PREG+2~, PREG+26*, PREG+27, PREG+28, PREG+31, PREG+34, PREG+39, PREG+44 |
| X | TD+4~*, TD+5~*, TD+6, TD+7, TD+8, TDAP+1~, TDAP+8*, TDAP+9, TDAP+13, LASTTDAP+5~ , PREG+2~, PREG+51*, PROB+3*, PROB+4, PROB+5, PROB+6, PROB+7, PROB+8, PROB+10, MA+1* , MA+6*, MA+7, MA+8, MA+9, MA+10, MA+11, PREGX+1~, PREGX+8*, PREGX+11*, PREGX+13 , PREGX+14, PREGX+17, PROBX+3*, PROBX+4, PROBX+5, PROBX+6, PROBX+7, PROBX+8, PROBX+10, STATE+2~ , STATE+3*, STATE+4, STATE+5, STATE+6, CESS+3~, CESS+18~, CESS+21*, CESS+27*, CESS+28, CESS+32 , CESS+33, CESS+34, CESS+42, CESS+43, CESS+44, CESS+45, CESS+46, CESS+47, CESS+50*, CESS+83* |
| Y | TD+5, TDAP+1~, TDAP+8*, LASTTDAP+5~, PREG+2~, PREG+34*, PREG+35, PREG+39*, PREG+40, PREG+44* , PREG+45, PROB+8*, PROB+9, MA+1*, MA+11*, MA+12, PREGX+1~, PREGX+7*, PREGX+8, PROBX+8* , PROBX+9, CESS+18~, CESS+20*, CESS+21, CESS+83*, CESS+85, CESS+86 |
| Z | TDAP+8*, CESS+18~, CESS+56*, CESS+86*, CESS+87, CESS+88, CESS+89, CESS+91 |