©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
BGP0DPA2 ; IHS/CMI/LAB - COMP NATIONAL GPRA FOR PTS W/APPT 09 Jan 2009 3:36 PM 26 Jun 2009 3:40 PM 03 Jun 2010 8:04 AM ;
Source file <BGP0DPA2.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS GPRA Information System | 12 | ($$DEP,$$DEPEDU,$$DEPSCR)^BGP0D25 I0302ASC^BGP0D41 ($$ALHF,$$ALPED,$$DVDX,$$DVEX,$$DVPED)^BGP0D5 $$ALDX^BGP0D5A ($$BMIOR,$$OB,$$OW)^BGP0D6 ($$BE,$$COLO,$$CRC,$$FOB,$$SIG)^BGP0D61 ($$CPTSM,$$DX,$$TOBACCO)^BGP0D7 $$PED^BGP0D711 ($$FIRSTIHD,$$V2IHD)^BGP0D721 IE2^BGP0D8 $$DATE^BGP0UTL $$LASTDXI^BGP0UTL1 |
| DRG Grouper | 2 | $$ICDDX^ICDCODE $$CPT^ICPTCOD |
| Patient Care Component Reports | 2 | $$START1^APCLDF $$VD^APCLV |
| IHS Patient | 1 | ($$AGE,$$DOB)^AUPNPAT |
| Kernel | 1 | ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT |
| Taxonomy | 1 | $$ICD^ATXCHK |
| VA Fileman | 1 | ^%DT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LIFE | ;
|
|
| BMI | ;
|
|
| BP | ;
|
|
| TOB | ;
|
|
| TF(P,BDATE,EDATE) | ;
|
|
| I021X | ;
|
|
| I019X | ;
|
|
| TITLE(I) | ;
|
|
| BFRX | ;
|
|
| IE2 | ;EP
|
|
| I021 | ;EP
|
|
| I020 | ;EP - Alcohol Screening
|
|
| LDL | ;
|
|
| I031A | ;EP
|
|
| I031AX | ;
|
|
| I0302A | ;EP
|
|
| IAA | ;EP
|
|
| BFR | ;EP
|
|
| DENTSRV(P,BDATE,EDATE) | ;EP
|
|
| I0302AX | ;EP
|
|
| I014 | ;EP
|
|
| I016 | ;EP
|
|
| I017 | ;EP - colorectal cancer
|
|
| GETIFC(P,BDATE,EDATE,BGPRET) | ;EP
|
|
| I020X | ;
|
|
| I019 | ;EP - tobacco cessation
|
|
| IAAX | ;
|
|
| SEAL(P,BDATE,EDATE) | ;
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | IAA+5 |
| $$START1^APCLDF | SEAL+6, DENTSRV+2, DENTSRV+5, DENTSRV+7, DENTSRV+12, TF+6 |
| $$VD^APCLV | DENTSRV+15 |
| $$ICD^ATXCHK | TF+16 |
| $$AGE^AUPNPAT | I031A+11, I031A+12, I031A+13 |
| $$DOB^AUPNPAT | I017+9, I017+13, I017+19, I017+25, I019+5, I019+7, I019+9, I019+17, I020+6, I020+8 , I020+10, IAA+4, IAA+6, IAA+8, I014+3, I014+4, I016+3, I021+6, I021+8, I021+10 , I0302A+5, I031A+8 |
| $$DEP^BGP0D25 | IAA+4 |
| $$DEPEDU^BGP0D25 | IAA+8 |
| $$DEPSCR^BGP0D25 | IAA+6 |
| I0302ASC^BGP0D41 | I0302A+6 |
| $$ALHF^BGP0D5 | I020+6 |
| $$ALPED^BGP0D5 | I020+10 |
| $$DVDX^BGP0D5 | I021+8 |
| $$DVEX^BGP0D5 | I021+6 |
| $$DVPED^BGP0D5 | I021+10 |
| $$ALDX^BGP0D5A | I020+8 |
| $$BMIOR^BGP0D6 | I031A+8 |
| $$OB^BGP0D6 | I031A+12 |
| $$OW^BGP0D6 | I031A+11 |
| $$BE^BGP0D61 | I017+25 |
| $$COLO^BGP0D61 | I017+19 |
| $$CRC^BGP0D61 | I017+5 |
| $$FOB^BGP0D61 | I017+9 |
| $$SIG^BGP0D61 | I017+13 |
| $$CPTSM^BGP0D7 | I019+9 |
| $$DX^BGP0D7 | I019+7 |
| $$TOBACCO^BGP0D7 | I019+5 |
| $$PED^BGP0D711 | I019+17 |
| $$FIRSTIHD^BGP0D721 | I0302A+4 |
| $$V2IHD^BGP0D721 | I0302A+5 |
| IE2^BGP0D8 | IE2+3 |
| $$DATE^BGP0UTL | I017+39, I017+42, I019+18, I019+21, I020+13, I020+16, I020+19, IAA+10, IAA+13, I014+9 , I016+8, I021+13, I021+15, IE2+9, I031A+9, I031A+15, I031A+16, BFR+10 |
| $$LASTDXI^BGP0UTL1 | DENTSRV+10 |
| $$ICDDX^ICDCODE | TF+19 |
| $$CPT^ICPTCOD | SEAL+21 |
| $$FMADD^XLFDT | I017+42, I019+5, I019+7, I019+9, I019+19, I020+12, IAA+11, I021+12, I031A+10, I031A+16 |
| $$FMDIFF^XLFDT | I017+11, I017+17, I017+23, I017+29, I014+6, I014+7, BFR+3, GETIFC+8 |
| $$FMTE^XLFDT | SEAL+6, DENTSRV+2, DENTSRV+5, DENTSRV+7, DENTSRV+12, TF+6 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ATXAX - [#9002226] | TF+10 |
| ^ATXAX("B" | TF+5, TF+16 |
| ^AUPNVCPT - [#9000010.18] | SEAL+19, SEAL+22, TF+14, TF+16 |
| ^AUPNVCPT("AD" | SEAL+18, TF+13 |
| ^AUPNVDEN - [#9000010.05] | SEAL+9, SEAL+12, SEAL+13, TF+9, TF+10 |
| ^AUPNVDEN("AD" | SEAL+8, TF+8 |
| ^AUPNVIF - [#9000010.44] | GETIFC+3, GETIFC+4 |
| ^AUPNVIF("AC" | GETIFC+2 |
| ^AUPNVPOV - [#9000010.07] | TF+19 |
| ^AUPNVPOV("AD" | TF+18 |
| ^AUPNVSIT - [#9000010] | DENTSRV+15, GETIFC+6, GETIFC+7 |
| ^AUTTADA - [#9999999.31] | SEAL+9 |
| ^BGPINDTC - [#90377.02] | TITLE+1 |
| ^DPT - [#2] | BFR+3, GETIFC+8 |
| ^TMP($J | SEAL+3!, SEAL+7, TF+3!, TF+7, I0302A+3! |
| Name | Line Occurrences |
|---|---|
| $$DENTSRV | I014+4 |
| $$SEAL | I014+3 |
| $$TF | I016+3 |
| $$TITLE | I017+34, I019+18, I019+21, I020+13, I020+15, IAA+10, IAA+13, I014+8, I014+9, I016+7 , I016+8, I021+13, I021+15, IE2+8, I0302A+9, I031A+9, I031A+15, BFR+7, BFR+10 |
| BFRX | BFR+7 |
| GETIFC | BFR+6 |
| I019X | I019+18 |
| I020X | I020+13, I020+17 |
| I021X | I021+13, I021+14 |
| I0302AX | I0302A+8 |
| I031AX | I031A+9, I031A+14 |
| IAAX | IAA+10, IAA+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | SEAL+1~, SEAL+6*, DENTSRV+2*, DENTSRV+5*, DENTSRV+7*, DENTSRV+12*, TF+1~, TF+6*, IE2+10!, I0302AX+1! |
| >> %DT | IAA+5* |
| A | SEAL+1~, SEAL+4*, SEAL+6, SEAL+9*, SEAL+10, SEAL+19*, SEAL+20, SEAL+21*, TF+1~, TF+4* , TF+6, TF+9*, TF+10, TF+14*, TF+15, TF+16, TF+19*, TF+20, IE2+10!, I0302AX+1! , I031A+13*, I031A+15 |
| B | IE2+10!, I0302AX+1! |
| BDATE | SEAL~, SEAL+6, DENTSRV~, DENTSRV+2, DENTSRV+5, DENTSRV+7, DENTSRV+10, DENTSRV+12, TF~, TF+6 , IE2+10!, I0302AX+1!, GETIFC~ |
| BGP1320 | I019+2!, I019X+2! |
| >> BGPACTUP | I017+6, I019+4, I020+1, IAA+1, I021+1 |
| BGPADAY | BFR+3*, BFR+4, BFR+5, BFRX+1! |
| >> BGPAGEB | I017+3, I017+4, I020+3, I020+4, IAA+2, I014+1, I014+2, I016+1, I016+2, I021+3 , I021+4, I0302A+2, I031A+3, I031A+4 |
| >> BGPAGEE | I031A+5, I031A+8 |
| >> BGPBD | I017+42, I019+18, I020+13, IAA+10, I021+13, IE2+9, I031A+9 |
| >> BGPBDATE | I019+5, I019+7, I019+9, I016+5, I016+6, BFR+6 |
| BGPBE | I017+2!, I017+25*, I017+28, I017+40, I017+44! |
| BGPBFR | BFR+2!, BFR+6, BFR+7, BFRX+1! |
| BGPBFR( | BFR+9, BFR+10 |
| BGPBMI | I0302AX+1!, I031A+8*, I031A+9, I031A+10, I031A+11, I031A+12, I031A+13, I031A+15, I031A+16, I031AX+1! |
| BGPBMIH | I031AX+1! |
| BGPBP | I0302AX+1! |
| BGPC | SEAL+1~, SEAL+5*, SEAL+24*, SEAL+25*, SEAL+26, DENTSRV+2*, DENTSRV+3*, DENTSRV+6*, DENTSRV+8*, DENTSRV+11* , DENTSRV+15*, DENTSRV+16, TF+2*, TF+7, TF+8, TF+10*, TF+13, TF+16*, TF+18, TF+20* , TF+22 |
| BGPCOLO | I017+2!, I017+19*, I017+22, I017+36, I017+44! |
| BGPD | I020+5*, I020+7*, I020+9*, I020+11*, I020+12, I020+13, I020+16, I020X+1!, IAA+3*, IAA+5* , IAA+7*, IAA+9*, IAA+10, IAA+11, IAA+13, IAAX+1!, I021+5*, I021+7*, I021+9*, I021+11* , I021+12, I021+15, I021X+1! |
| BGPD1 | I019+1*, I019X+1!, IE2+7, IE2+11!, I0302AX+2!, I031A+7*, I031AX+1! |
| BGPD2 | I019+1*, I019+14*, I019+15, I019X+1!, IE2+11!, I0302AX+2! |
| BGPD3 | I019+1*, I019X+1!, IE2+11!, I0302AX+2! |
| BGPD4 | I019+1*, I019X+1!, IE2+11!, I0302AX+2! |
| BGPD5 | I019+1*, I019X+1!, IE2+11!, I0302AX+2! |
| BGPD6 | I019+1*, I019X+1!, IE2+11!, I0302AX+2! |
| BGPD7 | I019+1*, I019X+1!, IE2+11!, I0302AX+2! |
| BGPD8 | I019+1*, I019X+1!, IE2+11!, I0302AX+2! |
| BGPD9 | I019+1*, I019X+1!, IE2+11!, I0302AX+2! |
| BGPDEP | I0302AX+1! |
| >> BGPED | I019+19, I020+14, I020+19, IAA+12, I021+14, I031A+10 |
| >> BGPEDATE | I017+5, I017+9, I017+13, I017+19, I017+25, I019+17, I020+6, I020+8, I020+10, IAA+4 , IAA+6, IAA+8, I021+6, I021+8, I021+10, I0302A+4, I0302A+5, I031A+8, BFR+6 |
| BGPEDUC | IE2+10!, I0302AX+1! |
| BGPF | I017+44! |
| BGPFOB | I017+2!, I017+9*, I017+10, I017+39, I017+44!, I019+17*, I019+18, I019+19, I019+21 |
| BGPG | SEAL+1~, SEAL+2!, DENTSRV+1!, DENTSRV+4!, DENTSRV+7!, DENTSRV+9!, DENTSRV+10*, DENTSRV+11, DENTSRV+12!, DENTSRV+13 , TF+2!, GETIFC+1! |
| BGPG( | DENTSRV+14, DENTSRV+15 |
| BGPG(1 | DENTSRV+3, DENTSRV+6, DENTSRV+8 |
| >> BGPGPRAI | I017+34, I019+18, I019+21, I020+13, I020+15, IAA+10, IAA+13, I014+8, I014+9, I016+7 , I016+8, I021+13, I021+15, IE2+8, I0302A+9, I031A+9, I031A+15, BFR+7, BFR+10 |
| BGPHIV | IE2+10!, I0302AX+1! |
| BGPIN | I017+2!, I017+7*, I017+11*, I017+31, I017+44!, I019+3*, I019X+2! |
| BGPIN1 | I017+2!, I017+7*, I017+17*, I017+31, I017+44!, I019+3*, I019+19*, I019+20, I019X+2!, I031A+7* , I031A+10*, I031A+14, I031A+16 |
| BGPIN2 | I017+2!, I017+7*, I017+23*, I017+31, I017+44! |
| BGPIN3 | I017+2!, I017+7*, I017+29*, I017+31, I017+44! |
| >> BGPISSO | IE2+2* |
| >> BGPISSV | I017+34*, I017+43*, I019+18*, I019+21*, I020+13*, I020+15*, I020+16*, I020+17*, I020+18*, I020+19* , IAA+10*, IAA+13*, I014+8*, I014+9*, I016+7*, I016+8*, I021+13*, I021+15*, IE2+5*, IE2+8* , IE2+9*, I0302A+7*, I0302A+9*, LIFE+2*, I031A+9*, I031A+15*, I031A+16*, BFR+7*, BFR+10* |
| BGPJ | TF+1~ |
| >> BGPLAST | I017+8*, I017+12*, I017+18*, I017+24*, I017+30*, I017+31, I017+42 |
| BGPLDL | I0302AX+1! |
| >> BGPLDS | I014+3*, I014+8, I014+9, I016+3*, I016+5, I016+6, I016+7, I016+8 |
| BGPLIFE | I0302AX+1! |
| BGPN | I019+16*, I019X+2!, I020+5*, I020X+1!, IAA+3*, IAAX+1!, I021+5*, I021X+1! |
| BGPN1 | I017+33*, I017+44!, I019+1*, I019X+1!, I020+5*, I020+6*, I020+7, I020+8*, I020+9, I020+10* , I020+11, I020X+1!, IAA+3*, IAA+4*, IAA+5, IAA+6*, IAA+7, IAA+8*, IAA+9, IAAX+1! , I021+5*, I021+6*, I021+7, I021+8*, I021+9, I021+10*, I021+11, I021X+1!, IE2+10!, IE2+11! , BP+1, I0302AX+2!, I031A+7*, I031A+11* |
| BGPN2 | I019+1*, I019X+1!, IE2+11!, LDL+1, I0302AX+2!, I031A+7*, I031A+12* |
| BGPN3 | I019+1*, I019X+1!, IE2+11!, TOB+1, I0302AX+2! |
| BGPN4 | I019+1*, I019X+1!, IE2+6, IE2+9, IE2+11!, I0302A+11*, BMI+1, I0302AX+2! |
| BGPN5 | I019+1*, I019X+1!, IE2+11!, LIFE+1, I0302AX+2! |
| BGPN6 | I019+1*, I019X+1!, IE2+11!, I0302AX+2! |
| >> BGPN8 | I0302A+11 |
| >> BGPN9 | I0302A+8 |
| BGPNBE | I017+44! |
| BGPNCOLO | I017+44! |
| BGPNFOB | I017+44!, I019+19*, I019+21 |
| BGPNS | I020+5*, I020+12*, I020+14, I020+19, I020X+1!, IAA+3*, IAA+11*, IAA+12, IAA+13, IAAX+1! , I021+5*, I021+12*, I021+13, I021+14, I021+15, I021X+1! |
| BGPNSIG | I017+44! |
| BGPOB | I031A+12*, I031A+14, I031A+15, I031AX+1! |
| BGPOTH | I017+44! |
| BGPOW | I031A+11*, I031A+15, I031AX+1! |
| BGPREF | I017+44!, I020+5*, I020+18, I020X+1!, IAA+3*, IAAX+1!, I021+5*, I021X+1! |
| BGPRET | GETIFC~, GETIFC+1! |
| BGPRET( | GETIFC+8* |
| >> BGPS | I014+5*, I014+7*, I014+9, I016+4*, I016+6*, I016+8 |
| >> BGPSCPT | I019+9*, I019+10, I019+14 |
| BGPSDX | I019+2!, I019+7*, I019+8, I019+10, I019+12, I019+13, I019+14, I019X+2! |
| >> BGPSEX | I020+2, I021+2 |
| BGPSIG | I017+2!, I017+13*, I017+16, I017+37, I017+44! |
| >> BGPSKIP | I017+3*, I017+4*, I017+5*, I017+6*, I017+31*, I019+4*, I019+15*, I019+20*, I020+1*, I020+2* , I020+3*, I020+4*, I020+14*, IAA+1*, IAA+2*, IAA+12*, I014+1*, I014+2*, I014+3*, I014+6* , I016+1*, I016+2*, I016+3*, I016+5*, I021+1*, I021+2*, I021+3*, I021+4*, I021+14*, IE2+4* , IE2+6*, IE2+7*, I0302A+2*, I0302A+4*, I0302A+5*, I0302A+8*, I031A+1*, I031A+3*, I031A+4*, I031A+5* , I031A+14*, BFR+1*, BFR+4*, BFR+5* |
| BGPSTOP | IE2+1!, IE2+4, I0302A+1!, I031A+2!, BFR+2! |
| BGPT | I019+16*, I019X+2! |
| BGPTC | I019+2!, I019X+2! |
| BGPTOB | I019+2!, I019X+2!, I0302AX+1! |
| >> BGPTOBD | I019+6*, I019+8*, I019+10* |
| >> BGPTOBP | I019+5*, I019+6, I019+14 |
| BGPTQ | I019+2!, I019X+2! |
| >> BGPV | I020+5*, I020+7*, I020+9*, I020+11*, I020+16, I020+17, IAA+5*, IAA+7*, IAA+9* |
| >> BGPVA | I021+5*, I021+7*, I021+9*, I021+11* |
| >> BGPVAL | I0302A+10*, BP+1*, LDL+1*, TOB+1*, LIFE+2 |
| >> BGPVAL2 | I0302A+10*, BMI+1*, LIFE+1*, LIFE+2 |
| BGPX | I017+35*, I017+36*, I017+37*, I017+39*, I017+40*, I017+41*, I017+42*, I017+43, SEAL+1~, SEAL+2! |
| BGPX( | SEAL+14*, SEAL+24 |
| BGPX("CPT" | SEAL+23*, SEAL+25 |
| BGPX("NO OS" | SEAL+15* |
| BGPZ | TF+1~, TF+2! |
| BPGNTS | I019X+2! |
| C | IE2+10!, I0302AX+1!, GETIFC+1!, GETIFC+4*, GETIFC+8 |
| D | I017+10*, I017+11, I017+12, I017+16*, I017+17, I017+18, I017+22*, I017+23, I017+24, I017+28* , I017+29, I017+30, I019+19*, I014+4*, I014+6, I014+7, IE2+10!, I0302AX+1! |
| >> DFN | I017+5, I017+9, I017+13, I017+19, I017+25, I019+5, I019+7, I019+9, I019+17, I020+6 , I020+8, I020+10, IAA+4, IAA+6, IAA+8, I014+3, I014+4, I016+3, I021+6, I021+8 , I021+10, I0302A+4, I0302A+5, I031A+8, I031A+11, I031A+12, I031A+13, BFR+3, BFR+6 |
| DT | I017+11, I017+17, I017+23, I017+29, I019+19, I014+3, I014+4, I014+6, I014+7, I016+3 , BFR+3 |
| E | SEAL+6*, DENTSRV+2*, DENTSRV+5*, DENTSRV+7*, DENTSRV+12*, TF+6*, IE2+10!, I0302AX+1! |
| EDATE | SEAL~, SEAL+6, DENTSRV~, DENTSRV+2, DENTSRV+5, DENTSRV+7, DENTSRV+10, DENTSRV+12, TF~, TF+6 , IE2+10!, I0302AX+1!, GETIFC~ |
| F | IE2+10!, I0302AX+1! |
| G | SEAL+1~, SEAL+8*, SEAL+11*, SEAL+17, SEAL+18*, DENTSRV+12*, DENTSRV+13, DENTSRV+14, TF+1~, TF+8* , TF+10*, TF+12, TF+13*, TF+16*, TF+17, TF+18*, TF+20* |
| H | IE2+10!, I0302AX+1! |
| I | TITLE~, TITLE+1 |
| P | SEAL~, SEAL+6, DENTSRV~, DENTSRV+2, DENTSRV+5, DENTSRV+7, DENTSRV+10, DENTSRV+12, TF~, TF+6 , IE2+10!, I0302AX+1!, GETIFC~, GETIFC+2, GETIFC+8 |
| R | TF+1~ |
| S | SEAL+1~, SEAL+13*, SEAL+14, SEAL+15, IE2+10!, I0302AX+1! |
| T | SEAL+1~, SEAL+12*, SEAL+14, SEAL+15, SEAL+22*, SEAL+23, TF+1~, TF+10*, TF+16*, IE2+10! , I0302AX+1! |
| U | I017+10, I017+16, I017+22, I017+28, I017+36, I017+37, I017+39, I017+40, I017+43, I019+6 , I019+8, I019+10, I019+12, I019+13, I019+14, I019+18, I019+19, I019+21, I020+7, I020+9 , I020+11, I020+13, I020+16, I020+17, I020+18, I020+19, IAA+5, IAA+7, IAA+9, IAA+10 , IAA+13, I014+4, I014+8, I014+9, SEAL+7, SEAL+9, SEAL+12, SEAL+13, SEAL+19, SEAL+21 , SEAL+22, DENTSRV+3, DENTSRV+6, DENTSRV+8, DENTSRV+11, DENTSRV+14, DENTSRV+15, I016+7, I016+8, TF+7 , TF+9, TF+10, TF+14, TF+16, TF+19, I021+7, I021+9, I021+11, I021+13, I021+15 , IE2+9, LIFE+2, I031A+9, I031A+10, I031A+11, I031A+12, I031A+13, I031A+15, I031A+16, TITLE+1 , BFR+3, BFR+7, BFR+10, GETIFC+4, GETIFC+7, GETIFC+8 |
| V | SEAL+1~, SEAL+7*, SEAL+8, SEAL+18, DENTSRV+14*, DENTSRV+15, TF+7*, TF+8, TF+13, TF+18 , IE2+10!, I0302AX+1!, GETIFC+4*, GETIFC+5, GETIFC+6, GETIFC+7*, GETIFC+8 |
| X | I019+11*, I019+12*, I019+13*, I019+14, IAA+5~*, SEAL+1~, SEAL+7*, SEAL+24*, DENTSRV+14*, DENTSRV+15 , TF+1~, TF+7*, IE2+10!, I0302A+10*, I0302AX+1!, BFR+9*, GETIFC+1!, GETIFC+2*, GETIFC+3, GETIFC+4 |
| Y | IAA+5, SEAL+1~, SEAL+7*, SEAL+8*, SEAL+9, SEAL+12, SEAL+13, SEAL+18*, SEAL+19, SEAL+22 , TF+1~, TF+7*, TF+8*, TF+9, TF+10, TF+13*, TF+14, TF+16, TF+18*, TF+19 , IE2+10!, I0302AX+1!, BFR+9*, BFR+10 |
| Z | TF+1~, TF+5*, TF+10, IE2+10!, I0302AX+1! |