©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
BGP0D71 ; IHS/CMI/LAB - measure C ;
Source file <BGP0D71.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS GPRA Information System | 6 | ($$BMI,$$OB,$$OW)^BGP0D6 ($$CPTSM,$$DX,$$LASTHF,$$TOBACCO)^BGP0D7 ($$MEDNUTRD,$$OTHREL,$$PED,$$SPECEX,$$SPECNUTR)^BGP0D711 ($$CPT,$$CPTI)^BGP0DU $$DATE^BGP0UTL ($$LASTDX,$$LASTDXI)^BGP0UTL1 |
| DRG Grouper | 2 | $$ICDDX^ICDCODE $$CODEN^ICPTCOD |
| Patient Care Component Reports | 2 | $$START1^APCLDF $$PRIMPOV^APCLV |
| IHS Patient | 1 | $$DOB^AUPNPAT |
| Kernel | 1 | ($$FMADD,$$FMTE)^XLFDT |
| Taxonomy | 1 | $$ICD^ATXCHK |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NXT | ;
|
|
| GETALLHF | ;
|
|
| I19 | ;EP
|
|
| DNKA(V) | ;EP - is this a DNKA visit?
|
|
| KVARS | ;
|
|
| TOMREF | ;
|
|
| SET | ;
|
|
| I91 | ;EP
|
|
| NEWSTUFF | ;new stuff
|
|
| QUIT(P,BD,ED) | ;
|
|
| IC1 | ;EP
|
|
| TOMPED(P,BDATE,EDATE) | ;EP
|
| Name | Field # of Occurrence |
|---|---|
| $$START1^APCLDF | TOMPED+4 |
| $$PRIMPOV^APCLV | DNKA+2, DNKA+4 |
| $$ICD^ATXCHK | NEWSTUFF+39 |
| $$DOB^AUPNPAT | I19+7, I19+8, I19+10, NEWSTUFF+18 |
| $$BMI^BGP0D6 | IC1+6 |
| $$OB^BGP0D6 | IC1+8 |
| $$OW^BGP0D6 | IC1+7 |
| $$CPTSM^BGP0D7 | I19+10 |
| $$DX^BGP0D7 | I19+8, I19+44 |
| $$LASTHF^BGP0D7 | QUIT+15 |
| $$TOBACCO^BGP0D7 | I19+7, I19+42 |
| $$MEDNUTRD^BGP0D711 | IC1+19 |
| $$OTHREL^BGP0D711 | IC1+22 |
| $$PED^BGP0D711 | I19+33, SET+9 |
| $$SPECEX^BGP0D711 | IC1+21 |
| $$SPECNUTR^BGP0D711 | IC1+20 |
| $$CPT^BGP0DU | NEWSTUFF+23 |
| $$CPTI^BGP0DU | NEWSTUFF+13, NEWSTUFF+15, NEWSTUFF+44, NEWSTUFF+46 |
| $$DATE^BGP0UTL | IC1+23, IC1+24, IC1+25, IC1+26, NXT+3, NXT+4, NXT+5, QUIT+3, QUIT+5, QUIT+13 , SET+18, SET+20 |
| $$LASTDX^BGP0UTL1 | NEWSTUFF+21 |
| $$LASTDXI^BGP0UTL1 | QUIT+2, QUIT+4, NEWSTUFF+28, NEWSTUFF+30 |
| $$ICDDX^ICDCODE | QUIT+11 |
| $$CODEN^ICPTCOD | NEWSTUFF+13, NEWSTUFF+15, NEWSTUFF+44, NEWSTUFF+46 |
| $$FMADD^XLFDT | I19+7, I19+8, I19+10, GETALLHF+4, NEWSTUFF+7, NEWSTUFF+13, NEWSTUFF+15, NEWSTUFF+21, NEWSTUFF+23, NEWSTUFF+28 , NEWSTUFF+30, NEWSTUFF+32, NEWSTUFF+44, NEWSTUFF+46, SET+9, SET+12 |
| $$FMTE^XLFDT | TOMPED+4 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ATXAX("B" | NEWSTUFF+23, NEWSTUFF+33 |
| ^AUPNPREF - [#9000022] | TOMREF+5 |
| ^AUPNPREF("AA" | TOMREF+2, TOMREF+3, TOMREF+4 |
| ^AUPNPROB - [#9000011] | QUIT+7, QUIT+8, QUIT+9, QUIT+10, QUIT+13, NEWSTUFF+35, NEWSTUFF+36, NEWSTUFF+37, NEWSTUFF+38 |
| ^AUPNPROB("AC" | QUIT+6, NEWSTUFF+34 |
| ^AUPNVHF("AA" | GETALLHF+7, GETALLHF+8, GETALLHF+13 |
| ^AUPNVPED - [#9000010.16] | TOMPED+7 |
| ^AUTTEDT - [#9999999.09] | TOMPED+9, TOMPED+10, TOMREF+9 |
| ^AUTTHF - [#9999999.64] | GETALLHF+12, GETALLHF+13 |
| ^AUTTHF("AC" | GETALLHF+6 |
| ^AUTTHF("B" | GETALLHF+1 |
| ^ICD9 - [#80] | QUIT+13 |
| ^TMP($J | IC1+31! |
| Name | Line Occurrences |
|---|---|
| $$QUIT | SET+12 |
| $$TOMPED | I19+49 |
| GETALLHF | NEWSTUFF+7, NEWSTUFF+18 |
| KVARS | SET+1 |
| NEWSTUFF | I19+6, I91+5 |
| SET | NEWSTUFF+8, NEWSTUFF+20, NEWSTUFF+26, NEWSTUFF+45 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | IC1+30!, I19+20*, I19+21*, I19+22*, I19+24, NXT+6!, TOMPED+5*, TOMPED+12*, KVARS+1! |
| A | IC1+30!, NXT+6!, KVARS+1! |
| B | IC1+30!, NXT+6!, KVARS+1! |
| BD | GETALLHF+3~, QUIT~, QUIT+2, QUIT+4, QUIT+9, QUIT+15 |
| BDATE | IC1+30!, NXT+6!, TOMPED~, TOMPED+4, TOMREF+7, KVARS+1! |
| BGP1320 | I19+2!, NXT+6!, I91+2!, KVARS+2! |
| >> BGP365 | IC1+19, IC1+20, IC1+21, IC1+22, I19+33, I19+42, I19+44, I19+49 |
| >> BGPACTCL | IC1+10, IC1+12, I19+5, I19+28, SET+3 |
| >> BGPACTUP | IC1+5, I19+4, I91+4 |
| >> BGPAGEB | IC1+10, IC1+12, IC1+13, IC1+14, IC1+15, IC1+16, IC1+17, I19+29, I19+30, I19+31 , SET+4, SET+5, SET+6 |
| >> BGPAGEE | IC1+6, IC1+7, IC1+8 |
| BGPALLED | IC1+4!, IC1+30!, NXT+6!, TOMPED+1!, KVARS+1! |
| BGPALLED( | TOMPED+6, TOMPED+7, TOMPED+12 |
| BGPALLED(1 | TOMPED+5 |
| >> BGPBDATE | I19+7, I19+8, I19+10, GETALLHF+4, NEWSTUFF+7, NEWSTUFF+13, NEWSTUFF+15, NEWSTUFF+21, NEWSTUFF+23, NEWSTUFF+28 , NEWSTUFF+30, NEWSTUFF+32, NEWSTUFF+44, NEWSTUFF+46, SET+9 |
| >> BGPBDX | GETALLHF+10, NEWSTUFF+7*, NEWSTUFF+18*, NEWSTUFF+32*, NEWSTUFF+37 |
| BGPBMI | IC1+3*, IC1+6*, IC1+7, IC1+8, IC1+30! |
| >> BGPD1 | IC1+1*, IC1+10*, IC1+18, IC1+27, I19+1*, I19+28*, I19+29, I19+30, I19+31, I19+32 , NXT+1, I91+1* |
| >> BGPD10 | I19+1*, I91+1*, SET+6* |
| >> BGPD2 | IC1+1*, IC1+11*, IC1+18, IC1+27, I19+1*, I19+24*, I19+25*, I19+27, I19+28, NXT+1 , I91+1* |
| >> BGPD3 | IC1+1*, IC1+12*, IC1+13, IC1+14, IC1+15, IC1+16, IC1+17, IC1+18, IC1+27, I19+1* , I19+29*, I91+1* |
| >> BGPD4 | IC1+1*, IC1+13*, IC1+18, I19+1*, I19+30*, I91+1* |
| >> BGPD5 | IC1+1*, IC1+14*, IC1+18, I19+1*, I19+31*, I91+1* |
| >> BGPD6 | IC1+1*, IC1+15*, IC1+18, I19+1*, I91+1*, SET+2*, SET+3 |
| >> BGPD7 | IC1+1*, IC1+16*, IC1+18, I19+1*, I91+1*, SET+3*, SET+4, SET+5, SET+6, SET+18 |
| >> BGPD8 | IC1+1*, IC1+17*, IC1+18, I19+1*, I91+1*, SET+4* |
| >> BGPD9 | IC1+1*, I19+1*, I91+1*, SET+5* |
| >> BGPDMD2 | IC1+11 |
| >> BGPEDATE | IC1+6, IC1+19, IC1+20, IC1+21, IC1+22, I19+33, I19+42, I19+44, I19+49, SET+9 , SET+12 |
| >> BGPEDX | NEWSTUFF+32*, NEWSTUFF+36 |
| >> BGPLPED | TOMPED+2*, TOMPED+5*, TOMPED+12, TOMPED+13 |
| BGPMN | IC1+4!, IC1+19*, IC1+23, IC1+30! |
| >> BGPN1 | IC1+1*, IC1+19*, I19+1*, I19+39*, I19+40, I19+47, I91+1* |
| >> BGPN10 | I19+1*, I91+1*, SET+16* |
| >> BGPN11 | I19+1*, I19+40*, I19+48, I91+1* |
| >> BGPN2 | IC1+1*, IC1+20*, I19+1*, I19+39*, I19+40, I91+1* |
| >> BGPN3 | IC1+1*, IC1+21*, I19+1*, I19+45*, I19+47, I19+48, NXT+4, I91+1* |
| >> BGPN4 | IC1+1*, IC1+22*, I19+1*, I19+49*, NXT+5, I91+1* |
| >> BGPN5 | IC1+1*, I19+1*, I19+47*, I91+1* |
| >> BGPN6 | IC1+1*, I19+1*, I19+48*, I91+1*, SET+10*, SET+16 |
| >> BGPN7 | I19+1*, I91+1*, SET+10* |
| >> BGPN8 | I19+1*, I91+1*, SET+13*, SET+14*, SET+15, SET+16, SET+21, SET+22 |
| >> BGPN9 | I19+1*, I91+1*, SET+15* |
| BGPOB | IC1+3*, IC1+8*, IC1+9, IC1+12, IC1+30! |
| >> BGPOTH | IC1+22*, IC1+26 |
| BGPOW | IC1+3*, IC1+7*, IC1+9, IC1+30! |
| BGPOWOB | IC1+9*, IC1+10, IC1+30! |
| BGPQ | I19+2!, I19+3*, NXT+6!, I91+2!, I91+3*, SET+12*, SET+13, SET+21, SET+22, KVARS+1! |
| BGPREM | I19+3*, I91+3*, NEWSTUFF+26, NEWSTUFF+29*, NEWSTUFF+31*, NEWSTUFF+34, NEWSTUFF+40*, KVARS+2! |
| >> BGPRTYPE | I19+5, I19+6, I19+32, I19+41, I19+49, NXT+1, NXT+2, NXT+4, NXT+5, SET+18 |
| >> BGPSCPT | I19+10*, I19+24, I19+25 |
| BGPSDX | I19+2!, I19+8*, I19+21, I19+22, I19+24, NXT+6!, I91+2!, KVARS+2! |
| >> BGPSDXQ | I19+44*, I19+45, NXT+4 |
| BGPSN | IC1+4!, IC1+20*, IC1+24, IC1+30! |
| BGPSPEX | IC1+4!, IC1+21*, IC1+25, IC1+30! |
| >> BGPSTOP | IC1+5*, I19+4*, I19+5*, I19+27*, I19+32*, I91+4*, SET+1* |
| BGPTC | I19+2!, I19+3*, I19+33*, I19+39, NXT+3, NXT+6!, I91+2!, I91+3*, KVARS+1! |
| BGPTC1 | I19+2!, I19+3*, NXT+6!, I91+2!, I91+3*, SET+9*, SET+10, SET+20, KVARS+2! |
| BGPTOB | I19+2!, I19+42*, I19+43*, I19+45, NXT+4, NXT+6!, I91+2!, KVARS+2! |
| BGPTOBD | I19+2!, I19+3*, NXT+6!, I91+2!, I91+3*, NEWSTUFF+9*, NEWSTUFF+10*, NEWSTUFF+14*, NEWSTUFF+16*, NEWSTUFF+22* , NEWSTUFF+24*, NEWSTUFF+26*, NEWSTUFF+45*, NEWSTUFF+47*, SET+12, SET+18, KVARS+2! |
| >> BGPTOBP | I19+7*, I19+23, I19+24 |
| BGPTOBS | I19+2!, NXT+6!, GETALLHF+16*, GETALLHF+18!, GETALLHF+19*, I91+2!, NEWSTUFF+6!, NEWSTUFF+8, NEWSTUFF+9, NEWSTUFF+10 , NEWSTUFF+11, NEWSTUFF+12, NEWSTUFF+20, NEWSTUFF+26, NEWSTUFF+27, NEWSTUFF+43, KVARS+2! |
| BGPTOBS( | GETALLHF+11, GETALLHF+12, GETALLHF+13*, GETALLHF+17 |
| BGPTOBS(0 | GETALLHF+16 |
| >> BGPTOBX | I19+3*, I91+3*, NEWSTUFF+9*, NEWSTUFF+10*, NEWSTUFF+14*, NEWSTUFF+16*, NEWSTUFF+22*, NEWSTUFF+24*, NEWSTUFF+26*, NEWSTUFF+45* , NEWSTUFF+47* |
| BGPTOM | I19+2!, I19+49*, NXT+5, NXT+6!, I91+2!, KVARS+2! |
| BGPTQ | I19+2!, I19+45*, NXT+6!, I91+2!, KVARS+1! |
| BGPTU | I19+3*, NXT+6!, I91+3*, NEWSTUFF+9*, NEWSTUFF+10*, NEWSTUFF+11, NEWSTUFF+14*, NEWSTUFF+16*, NEWSTUFF+22*, NEWSTUFF+24* , NEWSTUFF+26*, NEWSTUFF+45*, NEWSTUFF+47*, SET+1, KVARS+2! |
| BGPTUC | I19+3*, NXT+6!, I91+3*, NEWSTUFF+9*, NEWSTUFF+26*, SET+9, KVARS+2! |
| BGPTUHF | I19+3*, NXT+6!, I91+3*, KVARS+2! |
| BGPTUQ | I19+3*, NXT+6!, I91+3*, NEWSTUFF+9*, NEWSTUFF+26*, SET+14, SET+15, KVARS+2! |
| >> BGPVALUE | IC1+23*, IC1+24*, IC1+25*, IC1+26*, IC1+28, IC1+29*, NXT+1*, NXT+3*, NXT+4*, NXT+5* , SET+18*, SET+20*, SET+21*, SET+22* |
| C | IC1+30!, NXT+6!, GETALLHF+1*, GETALLHF+2, GETALLHF+6, KVARS+1! |
| D | IC1+30!, NXT+6!, DNKA+1~, DNKA+2*, DNKA+3, DNKA+5, DNKA+6, DNKA+7, TOMPED+6*, TOMREF+3* , TOMREF+4, GETALLHF+5*, GETALLHF+8*, GETALLHF+9, GETALLHF+10, GETALLHF+11, GETALLHF+12, GETALLHF+13, GETALLHF+16*, GETALLHF+17* , GETALLHF+19, KVARS+1! |
| >> DFN | IC1+6, IC1+7, IC1+8, IC1+19, IC1+20, IC1+21, IC1+22, I19+7, I19+8, I19+10 , I19+33, I19+42, I19+44, I19+49, GETALLHF+7, GETALLHF+8, GETALLHF+13, NEWSTUFF+13, NEWSTUFF+15, NEWSTUFF+18 , NEWSTUFF+21, NEWSTUFF+23, NEWSTUFF+28, NEWSTUFF+30, NEWSTUFF+34, NEWSTUFF+44, NEWSTUFF+46, SET+9, SET+12 |
| E | IC1+30!, NXT+6!, TOMPED+4*, KVARS+1! |
| ED | GETALLHF+3~, GETALLHF+4*, GETALLHF+9, QUIT~, QUIT+2, QUIT+4, QUIT+8, QUIT+15 |
| EDATE | IC1+30!, NXT+6!, TOMPED~, TOMPED+4, TOMREF+8, KVARS+1! |
| F | IC1+30!, I19+23*, I19+24, NXT+6!, KVARS+1! |
| G | TOMREF+2*, TOMREF+3, TOMREF+4, TOMREF+11*, TOMREF+12, QUIT+1~, QUIT+6*, QUIT+13*, QUIT+14, QUIT+15* , QUIT+16, NEWSTUFF+34* |
| H | IC1+30!, NXT+6!, GETALLHF+5*, GETALLHF+6*, GETALLHF+7, GETALLHF+8, GETALLHF+12, GETALLHF+13, KVARS+1! |
| >> I | TOMREF+4*, TOMREF+5 |
| N | DNKA+1~, DNKA+4*, DNKA+5, DNKA+6, DNKA+7 |
| O | GETALLHF+5! |
| P | IC1+30!, NXT+6!, TOMPED~, TOMPED+4, TOMREF+2, TOMREF+3, TOMREF+4, QUIT~, QUIT+2, QUIT+4 , QUIT+6, QUIT+15, KVARS+1! |
| S | IC1+30!, NXT+6!, KVARS+1! |
| T | IC1+30!, NXT+6!, TOMPED+6*, TOMPED+7*, TOMPED+8, TOMPED+9, TOMPED+10*, TOMPED+11, TOMPED+12, QUIT+1~ , QUIT+11*, QUIT+12, NEWSTUFF+33*, NEWSTUFF+39, KVARS+1! |
| U | IC1+23, IC1+24, IC1+25, IC1+26, I19+21, I19+22, I19+23, I19+24, I19+25, I19+39 , I19+45, NXT+3, NXT+4, NXT+5, TOMPED+7, TOMPED+10, TOMPED+12, TOMREF+5, TOMREF+9, TOMREF+11 , GETALLHF+11, GETALLHF+12, GETALLHF+13, GETALLHF+17, QUIT+3, QUIT+5, QUIT+7, QUIT+8, QUIT+9, QUIT+10 , QUIT+11, QUIT+13, QUIT+16, NEWSTUFF+9, NEWSTUFF+10, NEWSTUFF+11, NEWSTUFF+12, NEWSTUFF+14, NEWSTUFF+16, NEWSTUFF+22 , NEWSTUFF+24, NEWSTUFF+26, NEWSTUFF+27, NEWSTUFF+35, NEWSTUFF+36, NEWSTUFF+37, NEWSTUFF+38, NEWSTUFF+43, NEWSTUFF+45, NEWSTUFF+47 , SET+10, SET+20, SET+21 |
| V | IC1+27*, IC1+28*, IC1+29, IC1+30!, NXT+6!, DNKA~, DNKA+2, DNKA+4, KVARS+1! |
| X | IC1+30!, NXT+6!, TOMPED+4*, TOMPED+6*, TOMPED+7, TOMPED+12, TOMREF+2*, TOMREF+3, TOMREF+4, TOMREF+9 , QUIT+1~, QUIT+6*, QUIT+7, QUIT+8, QUIT+9, QUIT+10, QUIT+13, NEWSTUFF+12*, NEWSTUFF+13, NEWSTUFF+15 , NEWSTUFF+27*, NEWSTUFF+28, NEWSTUFF+30, NEWSTUFF+34*, NEWSTUFF+35, NEWSTUFF+36, NEWSTUFF+37, NEWSTUFF+38, NEWSTUFF+43*, NEWSTUFF+44 , NEWSTUFF+46, KVARS+1! |
| Y | IC1+30!, NXT+6!, TOMPED+3*, TOMPED+4, TOMREF+9*, TOMREF+10, TOMREF+11, QUIT+1~, QUIT+2*, QUIT+3 , QUIT+4*, QUIT+5, QUIT+10*, QUIT+11, QUIT+13, NEWSTUFF+13*, NEWSTUFF+14, NEWSTUFF+15*, NEWSTUFF+16, NEWSTUFF+21* , NEWSTUFF+22, NEWSTUFF+23*, NEWSTUFF+24, NEWSTUFF+28*, NEWSTUFF+29, NEWSTUFF+30*, NEWSTUFF+31, NEWSTUFF+38*, NEWSTUFF+39, NEWSTUFF+44* , NEWSTUFF+45, NEWSTUFF+46*, NEWSTUFF+47, KVARS+1! |
| Z | IC1+30!, NXT+6!, TOMREF+5*, TOMREF+6, TOMREF+7, TOMREF+8, TOMREF+11, KVARS+1! |