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