©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
BGP1D24 ; IHS/CMI/LAB - STI MEASURE 18 Oct 2009 8:37 AM 03 Jul 2010 7:56 AM ;
Source file <BGP1D24.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS GPRA Information System | 3 | $$CPT^BGP1DU $$DATE^BGP1UTL $$LASTDX^BGP1UTL1 |
| Patient Care Component Reports | 2 | $$START1^APCLDF $$CLINIC^APCLV |
| DRG Grouper | 1 | $$ICDDX^ICDCODE |
| IHS HIV Management System | 1 | EN^BKMSTIDS |
| IHS VA Utilities | 1 | $$VAL^XBDIQ1 |
| Kernel | 1 | ($$FMADD,$$FMTE)^XLFDT |
| Taxonomy | 1 | $$ICD^ATXCHK |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| IPC | ;EP
|
|
| ERINJ(P,BDATE,EDATE,BGPRET) | ;
|
|
| CANCER(P,BDATE,EDATE) | ;EP - return # of different cancer visits
|
|
| PCV(P,BDATE,EDATE) | ;EP
|
|
| ISTI | ;EP
|
|
| IASB | ;EP
|
|
| BNII(P,BD) | ;
|
|
| BNI(P,V,E) | ;
|
|
| BNIMH | ;
|
|
| ERAS(V) | ;was there screening on this visit V and was it positive
|
| Name | Field # of Occurrence |
|---|---|
| $$START1^APCLDF | ERINJ+5, BNII+6, PCV+5 |
| $$CLINIC^APCLV | ERINJ+14 |
| $$ICD^ATXCHK | ERINJ+22, ERINJ+24, ERAS+30, BNI+8, BNIMH+10 |
| $$CPT^BGP1DU | BNII+2 |
| $$DATE^BGP1UTL | ISTI+26, IASB+18, IASB+25, PCV+12 |
| $$LASTDX^BGP1UTL1 | CANCER+3, CANCER+6, CANCER+9, CANCER+12, CANCER+15, CANCER+18, CANCER+21, CANCER+24, CANCER+27, CANCER+30 , CANCER+33, CANCER+36, CANCER+39, CANCER+42, CANCER+45, CANCER+48, CANCER+51 |
| EN^BKMSTIDS | ISTI+4, ISTI+5 |
| $$ICDDX^ICDCODE | ERINJ+22, ERINJ+24, ERAS+37 |
| $$VAL^XBDIQ1 | ERAS+31, BNI+9, BNIMH+11 |
| $$FMADD^XLFDT | BNII+2, BNII+6, BNIMH+1 |
| $$FMTE^XLFDT | ERINJ+5, BNII+6, PCV+5 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AMHREC - [#9002011] | BNIMH+2 |
| ^AMHREC("AE" | BNIMH+1 |
| ^AMHREDU - [#9002011.05] | BNIMH+3 |
| ^AMHREDU("AD" | BNIMH+3 |
| ^AMHRPROC - [#9002011.04] | BNIMH+10 |
| ^AMHRPROC("AD" | BNIMH+9 |
| ^AMHTSET - [#9002012.1] | BNIMH+2 |
| ^ATXAX - [#9002226] | ERINJ+17 |
| ^ATXAX("B" | ERINJ+7, ERINJ+8, ERAS+28, BNI+6, BNII+2, BNIMH+8 |
| ^AUPNVCPT - [#9000010.18] | ERAS+30, BNI+8 |
| ^AUPNVCPT("AD" | ERAS+29, BNI+7 |
| ^AUPNVHF - [#9000010.23] | ERAS+22, ERAS+23 |
| ^AUPNVHF("AD" | ERAS+22 |
| ^AUPNVMSR - [#9000010.01] | ERAS+10, ERAS+11, ERAS+12, ERAS+14, ERAS+15, ERAS+18, ERAS+19 |
| ^AUPNVMSR("AD" | ERAS+9 |
| ^AUPNVPED - [#9000010.16] | BNI+4, BNII+9, BNII+13 |
| ^AUPNVPED("AD" | BNI+4 |
| ^AUPNVPOV - [#9000010.07] | ERINJ+21, ERINJ+23, ERAS+37 |
| ^AUPNVPOV("AD" | ERINJ+20, ERAS+37 |
| ^AUPNVSIT - [#9000010] | ERINJ+10, ERINJ+11, ERINJ+12, ERINJ+13, ERINJ+15, ERINJ+16, ERINJ+17, ERINJ+18, BNI+3, BNII+11 , BNII+12, PCV+12 |
| ^AUPNVXAM - [#9000010.13] | ERAS+3, ERAS+4 |
| ^AUPNVXAM("AD" | ERAS+3 |
| ^AUTTEDT - [#9999999.09] | BNI+4, BNII+15, BNII+16, BNIMH+5, BNIMH+6 |
| ^AUTTEXAM - [#9999999.15] | ERAS+3 |
| ^AUTTHF - [#9999999.64] | ERAS+22, ERAS+23 |
| ^AUTTMSR - [#9999999.07] | ERAS+11, ERAS+14, ERAS+18 |
| ^DPT - [#2] | ERAS+16, ERAS+17, IPC+11, IPC+12, IPC+14, IPC+15, IPC+17, IPC+18 |
| ^TMP($J | ERINJ+2!, ERINJ+6, ERINJ+9 |
| Name | Line Occurrences |
|---|---|
| $$BNI | ERINJ+22, ERINJ+24 |
| $$BNII | BNI+11 |
| $$CANCER | IPC+4 |
| $$ERAS | ERINJ+22, ERINJ+24 |
| $$PCV | IPC+19 |
| BNIMH | BNII+7 |
| ERINJ | IASB+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | BNI+2~, BNI+3*, BNI+4*, BNI+5, BNI+7, BNI+9*, BNI+10, BNII+1~, BNII+8*, BNII+17* , BNII+19, BNIMH+1*, BNIMH+3*, BNIMH+7*, BNIMH+9, BNIMH+11*, BNIMH+13 |
| A | ERINJ+4~, ERINJ+5*, ERINJ+20*, ERINJ+21, ERINJ+23, ERAS+2~, ERAS+24*, ERAS+25 |
| B | ERINJ+4~, ERINJ+5*, ERINJ+21*, ERINJ+22, ERINJ+23*, ERINJ+24 |
| BD | BNII~, BNII+2, BNII+6, BNIMH+1 |
| BDATE | ERINJ~, ERINJ+5, PCV~, PCV+5, CANCER~, CANCER+3, CANCER+6, CANCER+9, CANCER+12, CANCER+15 , CANCER+18, CANCER+21, CANCER+24, CANCER+27, CANCER+30, CANCER+33, CANCER+36, CANCER+39, CANCER+42, CANCER+45 , CANCER+48, CANCER+51 |
| >> BGPACTCL | ISTI+27, IASB+17, IPC+3 |
| >> BGPACTUP | IASB+3 |
| >> BGPAGEB | IASB+4, IASB+5, IASB+10, IASB+11, IPC+10, IPC+13, IPC+16, IPC+21, IPC+22, IPC+23 , IPC+25 |
| >> BGPBDATE | ISTI+5, IASB+7, IPC+4, IPC+19 |
| >> BGPCANCE | IPC+4*, IPC+9, IPC+24, IPC+25 |
| >> BGPD1 | ISTI+1*, ISTI+9*, IASB+1*, IASB+9*, IPC+1*, IPC+10*, IPC+11, IPC+12 |
| >> BGPD2 | ISTI+1*, ISTI+18*, IASB+1*, IASB+10*, IPC+1*, IPC+11* |
| >> BGPD3 | ISTI+1*, ISTI+20*, IASB+1*, IASB+11*, IPC+1*, IPC+12* |
| >> BGPD4 | ISTI+1*, ISTI+22*, IASB+1*, IPC+1*, IPC+13*, IPC+14, IPC+15 |
| >> BGPD5 | ISTI+1*, ISTI+24*, IASB+1*, IPC+1*, IPC+14* |
| >> BGPD6 | IPC+1*, IPC+15* |
| >> BGPD7 | IPC+1*, IPC+16*, IPC+17, IPC+18 |
| >> BGPD8 | IPC+1*, IPC+17* |
| >> BGPD9 | IPC+1*, IPC+18* |
| >> BGPDENV | ISTI+2*, ISTI+15*, ISTI+27 |
| >> BGPDEP | BNII+5* |
| >> BGPEDATE | ISTI+5, IASB+7, IPC+4, IPC+19 |
| BGPERV | IASB+6!, IASB+7 |
| BGPERV( | IASB+12, IASB+13, IASB+14, IASB+15, IASB+16, IASB+18, IASB+21, IASB+22, IASB+23, IASB+24 , IASB+25 |
| BGPERV(0 | IASB+8, IASB+9, IASB+10, IASB+11 |
| BGPG | BNII+1~, BNII+4!, PCV+2~, PCV+3! |
| BGPG( | BNII+8, BNII+9, BNII+13, BNII+17, PCV+9, PCV+10, PCV+12 |
| BGPG(1 | BNII+7, PCV+6 |
| >> BGPMFITI | ERINJ+17 |
| >> BGPN1 | ISTI+1*, ISTI+8*, IASB+1*, IASB+12*, IPC+1*, IPC+20*, IPC+21, IPC+22, IPC+23, IPC+24 , IPC+25 |
| >> BGPN10 | ISTI+1*, ISTI+22* |
| >> BGPN11 | ISTI+1*, ISTI+24* |
| >> BGPN12 | ISTI+1*, ISTI+24* |
| >> BGPN2 | ISTI+1*, ISTI+8*, IASB+1*, IASB+13*, IASB+14, IPC+1*, IPC+21* |
| >> BGPN3 | ISTI+1*, ISTI+10*, IASB+1*, IASB+14*, IASB+15*, IASB+16, IPC+1*, IPC+22* |
| >> BGPN4 | ISTI+1*, ISTI+11*, IASB+1*, IASB+16*, IPC+1*, IPC+23* |
| >> BGPN5 | ISTI+1*, ISTI+18*, IASB+1*, IASB+16*, IPC+1*, IPC+24* |
| >> BGPN6 | ISTI+1*, ISTI+18* |
| >> BGPN7 | ISTI+1*, ISTI+20* |
| >> BGPN8 | ISTI+1*, ISTI+20* |
| >> BGPN9 | ISTI+1*, ISTI+22* |
| BGPNUMV | ISTI+3! |
| BGPNUMV( | ISTI+13*, ISTI+19*, ISTI+21*, ISTI+23*, ISTI+25*, ISTI+26*, ISTI+28 |
| BGPRET | ERINJ~, ERINJ+3! |
| BGPRET( | ERINJ+22*, ERINJ+24* |
| BGPRET(0 | ERINJ+25* |
| >> BGPSTOP | ISTI+4*, ISTI+6*, ISTI+7*, IASB+3*, IASB+4*, IASB+5*, IASB+8* |
| BGPVAL | IPC+19*, IPC+20, IPC+25, IPC+26! |
| >> BGPVALUE | ISTI+2*, ISTI+27*, ISTI+28*, IASB+2*, IASB+17*, IASB+26*, IPC+2*, IPC+25* |
| BGPYAR | ISTI+3!, ISTI+5 |
| BGPYAR( | ISTI+16 |
| BGPZAR | ISTI+3!, ISTI+5, ISTI+6 |
| BGPZAR( | ISTI+12, ISTI+14, ISTI+15, ISTI+18, ISTI+20, ISTI+22, ISTI+24 |
| BGPZAR(0 | ISTI+7, ISTI+8, ISTI+9, ISTI+10, ISTI+11 |
| C | ISTI+14*, ISTI+15*, PCV+7~, PCV+8*, PCV+11*, PCV+13 |
| CNT | ERINJ+4~, ERINJ+9*, ERINJ+22*, ERINJ+24*, ERINJ+25 |
| D | IASB+18*, IASB+21*, IASB+22*, IASB+24*, IASB+25*, IASB+26, ERINJ+4~, ERINJ+18*, ERINJ+22, ERINJ+24 , BNI+2~, BNI+3*, BNI+4, BNI+9, BNI+11, BNII+1~, BNII+8*, BNIMH+1*, BNIMH+7, BNIMH+11 |
| >> DFN | ISTI+5, IASB+7, IPC+4, IPC+11, IPC+12, IPC+14, IPC+15, IPC+17, IPC+18, IPC+19 |
| E | ERINJ+4~, ERINJ+5*, ERINJ+8*, ERINJ+24, BNI~, BNI+1, BNII+1~, BNII+6*, BNII+8*, BNIMH+1* , PCV+2~, PCV+5* |
| EDATE | ERINJ~, ERINJ+5, PCV~, PCV+5, CANCER~, CANCER+3, CANCER+6, CANCER+9, CANCER+12, CANCER+15 , CANCER+18, CANCER+21, CANCER+24, CANCER+27, CANCER+30, CANCER+33, CANCER+36, CANCER+39, CANCER+42, CANCER+45 , CANCER+48, CANCER+51 |
| G | ERINJ+4~, ERINJ+9*, ERINJ+20*, ERINJ+22*, ERINJ+24*, CANCER+1~, CANCER+2*, CANCER+4*, CANCER+5, CANCER+7* , CANCER+8, CANCER+10*, CANCER+11, CANCER+13*, CANCER+14, CANCER+16*, CANCER+17, CANCER+19*, CANCER+20, CANCER+22* , CANCER+23, CANCER+25*, CANCER+26, CANCER+28*, CANCER+29, CANCER+31*, CANCER+32, CANCER+34*, CANCER+35, CANCER+37* , CANCER+38, CANCER+40*, CANCER+41, CANCER+43*, CANCER+44, CANCER+46*, CANCER+47, CANCER+49*, CANCER+50, CANCER+52* , CANCER+53 |
| >> H | ISTI+14*, ISTI+16*, ISTI+26 |
| >> I | ISTI+14*, ISTI+15, ISTI+16 |
| >> J | ISTI+16* |
| P | ERINJ~, ERINJ+5, ERINJ+22, ERINJ+24, ERAS+16, ERAS+17, BNI~, BNI+11, BNII~, BNII+2 , BNII+6, BNIMH+1, PCV~, PCV+5, CANCER~, CANCER+3, CANCER+6, CANCER+9, CANCER+12, CANCER+15 , CANCER+18, CANCER+21, CANCER+24, CANCER+27, CANCER+30, CANCER+33, CANCER+36, CANCER+39, CANCER+42, CANCER+45 , CANCER+48, CANCER+51 |
| R | PCV+7~, PCV+8*, PCV+12*, PCV+13 |
| T | ERINJ+4~, ERINJ+7*, ERINJ+22, ERAS+2~, ERAS+28*, ERAS+30, BNI+6*, BNI+8, BNII+1~, BNII+8* , BNII+13*, BNII+14, BNII+15, BNII+16*, BNII+17, BNIMH+1*, BNIMH+3*, BNIMH+4, BNIMH+5, BNIMH+6* , BNIMH+7, BNIMH+8*, BNIMH+10 |
| U | ISTI+7, ISTI+8, ISTI+9, ISTI+10, ISTI+11, ISTI+15, ISTI+16, ISTI+18, ISTI+19, ISTI+20 , ISTI+21, ISTI+22, ISTI+23, ISTI+24, ISTI+25, IASB+12, IASB+13, IASB+15, IASB+16, IASB+18 , IASB+21, IASB+22, IASB+23, IASB+24, IASB+25, ERINJ+9, ERINJ+11, ERINJ+12, ERINJ+13, ERINJ+15 , ERINJ+16, ERINJ+17, ERINJ+18, ERINJ+21, ERINJ+22, ERINJ+23, ERINJ+24, ERAS+3, ERAS+4, ERAS+5 , ERAS+7, ERAS+9, ERAS+10, ERAS+11, ERAS+12, ERAS+13, ERAS+14, ERAS+15, ERAS+16, ERAS+17 , ERAS+18, ERAS+19, ERAS+20, ERAS+21, ERAS+22, ERAS+23, ERAS+25, ERAS+26, ERAS+29, ERAS+30 , ERAS+32, ERAS+33, ERAS+37, ERAS+38, BNI+1, BNI+3, BNI+4, BNI+8, BNI+9, BNII+3 , BNII+9, BNII+11, BNII+12, BNII+13, BNII+16, BNII+17, BNIMH+2, BNIMH+3, BNIMH+6, BNIMH+7 , BNIMH+10, BNIMH+11, IPC+11, IPC+12, IPC+14, IPC+15, IPC+17, IPC+18, IPC+20, IPC+25 , PCV+9, PCV+10, PCV+12, PCV+13 |
| V | IASB+18*, ERINJ+9*, ERINJ+10, ERINJ+11, ERINJ+12, ERINJ+13, ERINJ+14, ERINJ+15, ERINJ+16, ERINJ+17 , ERINJ+18, ERINJ+20, ERINJ+22, ERINJ+24, ERAS~, ERAS+1, ERAS+3, ERAS+9, ERAS+22, ERAS+29 , ERAS+37, BNI~, BNI+3, BNI+4, BNI+7, BNII+9*, BNII+10, BNII+11, BNII+12, BNIMH+1* , BNIMH+2, BNIMH+3, BNIMH+9 |
| X | ISTI+12*, ISTI+13, ISTI+14, ISTI+15, ISTI+18, ISTI+19, ISTI+20, ISTI+21, ISTI+22, ISTI+23 , ISTI+24, ISTI+25, ISTI+26, ISTI+28*, IASB+12*, IASB+13*, IASB+14*, IASB+15, IASB+16*, IASB+18* , IASB+21, IASB+22, IASB+23, IASB+24, IASB+25, ERINJ+9*, ERAS+2~, ERAS+3*, ERAS+4, ERAS+9* , ERAS+10, ERAS+11, ERAS+12, ERAS+14, ERAS+15, ERAS+18, ERAS+19, ERAS+22*, ERAS+23, ERAS+29* , ERAS+30, ERAS+31, ERAS+37*, BNI+2~, BNI+4*, BNI+7*, BNI+8, BNI+9, BNI+11*, BNI+12 , BNII+1~, BNII+6*, BNII+8*, BNII+9, BNII+13, BNII+17, BNIMH+3*, BNIMH+9*, BNIMH+10, BNIMH+11 , PCV+2~, PCV+5*, PCV+7~, PCV+9*, PCV+10, PCV+12, CANCER+1~, CANCER+3*, CANCER+4, CANCER+6* , CANCER+7, CANCER+9*, CANCER+10, CANCER+12*, CANCER+13, CANCER+15*, CANCER+16, CANCER+18*, CANCER+19, CANCER+21* , CANCER+22, CANCER+24*, CANCER+25, CANCER+27*, CANCER+28, CANCER+30*, CANCER+31, CANCER+33*, CANCER+34, CANCER+36* , CANCER+37, CANCER+39*, CANCER+40, CANCER+42*, CANCER+43, CANCER+45*, CANCER+46, CANCER+48*, CANCER+49, CANCER+51* , CANCER+52 |
| X( | PCV+9, PCV+10* |
| Y | ERAS+2~, ERAS+4*, ERAS+5, ERAS+12*, ERAS+13, ERAS+15*, ERAS+16, ERAS+17, ERAS+19*, ERAS+20 , ERAS+23*, ERAS+24, ERAS+25, ERAS+31*, ERAS+32, ERAS+33, BNII+1~, BNII+2*, BNII+3, BNII+5* , BNII+6, PCV+2~, PCV+4*, PCV+5 |
| Z | ISTI+18*, ISTI+19, ISTI+20*, ISTI+21, ISTI+22*, ISTI+23, ISTI+24*, ISTI+25, ERAS+2~, ERAS+3* , ERAS+5*, ERAS+7, ERAS+9*, ERAS+13*, ERAS+16*, ERAS+17*, ERAS+20*, ERAS+21, ERAS+22, ERAS+25* , ERAS+26, ERAS+29, ERAS+32*, ERAS+33*, ERAS+35, ERAS+37, ERAS+38*, ERAS+40, BNI+4*, BNIMH+2* |
| Name | Field # of Occurrence |
|---|---|
| $T(EN^BKMSTIDS | ISTI+4 |