©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
BGP8D71 ; IHS/CMI/LAB - measure C ;
Source file <BGP8D71.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS GPRA Information System | 7 | ($$BMI,$$OB,$$OW)^BGP8D6 $$LASTHF^BGP8D7 ($$MEDNUTRD,$$OTHREL,$$PED,$$SPECEX,$$SPECNUTR)^BGP8D711 ($$CPT,$$CPTI,$$IPLSNOID,$$PLTAXID)^BGP8DU $$DATE^BGP8UTL $$LASTDX^BGP8UTL1 $$ICD^BGP8UTL2 |
| Patient Care Component Reports | 2 | $$START1^APCLDF $$PRIMPOV^APCLV |
| DRG Grouper | 1 | $$CODEN^ICPTCOD |
| IHS Patient | 1 | $$DOB^AUPNPAT |
| IHS VA Utilities | 1 | $$VAL^XBDIQ1 |
| Kernel | 1 | ($$FMADD,$$FMTE)^XLFDT |
| Package | Total | Caller Graph |
|---|---|---|
| IHS GPRA Information System | 1 | BGP8DPA2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETALLHF | ;EP
|
|
| 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) | ;EP
|
| Name | Field # of Occurrence |
|---|---|
| $$START1^APCLDF | TOMPED+4 |
| $$PRIMPOV^APCLV | DNKA+2, DNKA+4 |
| $$DOB^AUPNPAT | NEWSTUFF+31 |
| $$BMI^BGP8D6 | IC1+6 |
| $$OB^BGP8D6 | IC1+8 |
| $$OW^BGP8D6 | IC1+7 |
| $$LASTHF^BGP8D7 | QUIT+10, QUIT+12, QUIT+14, GETLAST+2, GETLAST+4, GETLAST+6 |
| $$MEDNUTRD^BGP8D711 | IC1+20 |
| $$OTHREL^BGP8D711 | IC1+23 |
| $$PED^BGP8D711 | SET+13 |
| $$SPECEX^BGP8D711 | IC1+22 |
| $$SPECNUTR^BGP8D711 | IC1+21 |
| $$CPT^BGP8DU | NEWSTUFF+26, NEWSTUFF+50 |
| $$CPTI^BGP8DU | NEWSTUFF+14, NEWSTUFF+16, NEWSTUFF+38, NEWSTUFF+40 |
| $$IPLSNOID^BGP8DU | QUIT+6, NEWSTUFF+24, NEWSTUFF+48 |
| $$PLTAXID^BGP8DU | QUIT+4, NEWSTUFF+22, NEWSTUFF+46 |
| $$DATE^BGP8UTL | IC1+24, IC1+25, IC1+26, IC1+27, QUIT+3, QUIT+5, QUIT+7, SET+24, SET+26 |
| $$LASTDX^BGP8UTL1 | QUIT+2, NEWSTUFF+20, NEWSTUFF+44, POT+2 |
| $$ICD^BGP8UTL2 | POT+13 |
| $$CODEN^ICPTCOD | NEWSTUFF+14, NEWSTUFF+16, NEWSTUFF+38, NEWSTUFF+40 |
| $$VAL^XBDIQ1 | POT+14 |
| $$FMADD^XLFDT | NEWSTUFF+14, NEWSTUFF+16, NEWSTUFF+31, NEWSTUFF+38, NEWSTUFF+40, POT+2, POT+10, SET+16 |
| $$FMTE^XLFDT | TOMPED+4 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ATXAX("B" | NEWSTUFF+26, NEWSTUFF+50, POT+12 |
| ^AUPNPREF - [#9000022] | TOMREF+5 |
| ^AUPNPREF("AA" | TOMREF+2, TOMREF+3, TOMREF+4 |
| ^AUPNPROB - [#9000011] | POT+5, POT+6, POT+10, POT+11 |
| ^AUPNPROB("AC" | POT+4 |
| ^AUPNVHF("AA" | GETHF1+8, GETHF1+9, GETHF1+16 |
| ^AUPNVPED - [#9000010.16] | TOMPED+7 |
| ^AUTTEDT - [#9999999.09] | TOMPED+9, TOMPED+10, TOMREF+9 |
| ^AUTTHF - [#9999999.64] | GETHF1+13, GETHF1+14, GETHF1+15, GETHF1+16 |
| ^AUTTHF("AC" | GETHF1+7 |
| ^AUTTHF("B" | GETALLHF+2, GETALLHF+6, GETALLHF+10, GETALLHF+14 |
| ^TMP($J | IC1+34! |
| ^XTMP("BGPSNOMEDSUBSET" | POT+15 |
| Name | Line Occurrences |
|---|---|
| $$GETLAST | NEWSTUFF+31 |
| $$QUIT | SET+18 |
| GETALLHF | NEWSTUFF+8 |
| GETHF1 | GETALLHF+3, GETALLHF+7, GETALLHF+11, GETALLHF+15 |
| KVARS | SET+1 |
| NEWSTUFF | I91+5 |
| POT | NEWSTUFF+33, NEWSTUFF+43 |
| SET | NEWSTUFF+9, NEWSTUFF+19, NEWSTUFF+54, 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+4, QUIT+6, QUIT+10, QUIT+12, QUIT+14 , 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 , SET+7, SET+8, SET+9 |
| >> 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+20, GETHF1+22*, GETHF1+26* |
| BGPALLH(0 | GETALLHF+19 |
| >> BGPBDATE | NEWSTUFF+8, NEWSTUFF+20, NEWSTUFF+26, NEWSTUFF+31, POT+2, POT+10, SET+13, SET+17 |
| >> BGPBDX | GETHF1+5, NEWSTUFF+8*, NEWSTUFF+31*, NEWSTUFF+44, NEWSTUFF+50 |
| 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* |
| >> BGPD11 | I91+1*, SET+7* |
| >> BGPD12 | I91+1*, SET+8* |
| >> BGPD13 | I91+1*, SET+9* |
| >> 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, SET+7, SET+8, SET+9 |
| >> BGPD7 | IC1+1*, IC1+16*, IC1+18, I91+1*, SET+3*, SET+4, SET+5, SET+6, SET+24 |
| >> 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+8, NEWSTUFF+14, NEWSTUFF+16, NEWSTUFF+20, NEWSTUFF+22 , NEWSTUFF+24, NEWSTUFF+26, NEWSTUFF+38, NEWSTUFF+40, NEWSTUFF+46, NEWSTUFF+48, SET+13, SET+18 |
| >> BGPEDX | GETHF1+4, NEWSTUFF+8*, NEWSTUFF+31*, NEWSTUFF+44, NEWSTUFF+50 |
| BGPGD | NEWSTUFF+7~, POT+8*, POT+9, POT+10* |
| >> 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+22* |
| >> 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+14*, SET+22 |
| >> BGPN7 | I91+1*, SET+14* |
| >> BGPN8 | I91+1*, SET+19*, SET+21, SET+22, SET+27 |
| >> BGPN9 | I91+1*, SET+21* |
| 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+18*, SET+19, SET+27, KVARS+2! |
| BGPREM | I91+3*, POT+4*, POT+13*, POT+15*, POT+20, KVARS+3! |
| 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+13*, SET+14, SET+26, KVARS+3! |
| BGPTOB | I91+2!, KVARS+3! |
| BGPTOBD | I91+2!, I91+3*, NEWSTUFF+10*, NEWSTUFF+11*, NEWSTUFF+15*, NEWSTUFF+17*, NEWSTUFF+21*, NEWSTUFF+23*, NEWSTUFF+25*, NEWSTUFF+27* , NEWSTUFF+34*, NEWSTUFF+35*, NEWSTUFF+39*, NEWSTUFF+41*, NEWSTUFF+45*, NEWSTUFF+47*, NEWSTUFF+49*, NEWSTUFF+51*, POT+1, POT+10 , SET+16, SET+24, KVARS+3! |
| BGPTOBS | GETALLHF+5, GETALLHF+9, GETALLHF+13, GETALLHF+17, GETALLHF+20*, GETALLHF+21*, GETHF1+1*, GETHF1+3!, GETHF1+19*, GETHF1+20* , GETHF1+21, GETHF1+22*, GETHF1+23, GETHF1+25!, GETHF1+26*, I91+2!, NEWSTUFF+6!, NEWSTUFF+9, NEWSTUFF+10, NEWSTUFF+11 , NEWSTUFF+12, NEWSTUFF+13, NEWSTUFF+19, NEWSTUFF+30*, NEWSTUFF+31*, NEWSTUFF+33, NEWSTUFF+34, NEWSTUFF+35, NEWSTUFF+36, NEWSTUFF+37 , NEWSTUFF+43, KVARS+3! |
| BGPTOBS( | GETHF1+12, GETHF1+13, GETHF1+14, GETHF1+15, GETHF1+16*, GETHF1+21, GETHF1+22, GETHF1+24 |
| BGPTOBS(0 | GETHF1+20 |
| >> BGPTOBX | I91+3*, NEWSTUFF+10*, NEWSTUFF+11*, NEWSTUFF+15*, NEWSTUFF+17*, NEWSTUFF+21*, NEWSTUFF+23*, NEWSTUFF+25*, NEWSTUFF+27*, NEWSTUFF+34* , NEWSTUFF+35*, NEWSTUFF+39*, NEWSTUFF+41*, NEWSTUFF+45*, NEWSTUFF+47*, NEWSTUFF+49*, NEWSTUFF+51* |
| BGPTOM | I91+2!, KVARS+3! |
| BGPTQ | I91+2!, KVARS+2! |
| BGPTU | I91+3*, NEWSTUFF+9, NEWSTUFF+10*, NEWSTUFF+11*, NEWSTUFF+12, NEWSTUFF+15*, NEWSTUFF+17*, NEWSTUFF+21*, NEWSTUFF+23*, NEWSTUFF+25* , NEWSTUFF+27*, NEWSTUFF+34*, NEWSTUFF+35*, NEWSTUFF+36, NEWSTUFF+39*, NEWSTUFF+41*, NEWSTUFF+45*, NEWSTUFF+47*, NEWSTUFF+49*, NEWSTUFF+51* , NEWSTUFF+54, POT+3*, POT+20*, SET+1, KVARS+3! |
| BGPTUC | I91+3*, NEWSTUFF+10*, NEWSTUFF+34*, KVARS+3! |
| BGPTUHF | I91+3*, KVARS+3! |
| BGPTUQ | I91+3*, NEWSTUFF+10*, NEWSTUFF+34*, SET+21, KVARS+3! |
| >> BGPVALUE | IC1+19*, IC1+24*, IC1+25*, IC1+26*, IC1+27*, IC1+31, IC1+32*, SET+24*, SET+26*, SET+27* |
| C | IC1+33!, GETALLHF+2*, GETALLHF+6*, GETALLHF+10*, GETALLHF+14*, GETHF1+1, GETHF1+7, GETLAST+1~, GETLAST+4*, GETLAST+5 , GETLAST+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+19*, GETALLHF+20, GETHF1+6*, GETHF1+9*, GETHF1+10, GETHF1+11, GETHF1+12, GETHF1+13, GETHF1+14, GETHF1+15 , GETHF1+16, GETHF1+20*, GETHF1+24*, GETHF1+26, POT+10*, KVARS+2! |
| >> DFN | IC1+6, IC1+7, IC1+8, IC1+20, IC1+21, IC1+22, IC1+23, GETHF1+8, GETHF1+9, GETHF1+16 , QUIT+4, QUIT+6, NEWSTUFF+14, NEWSTUFF+16, NEWSTUFF+20, NEWSTUFF+22, NEWSTUFF+24, NEWSTUFF+26, NEWSTUFF+31, NEWSTUFF+38 , NEWSTUFF+40, NEWSTUFF+44, NEWSTUFF+46, NEWSTUFF+48, NEWSTUFF+50, POT+2, POT+4, SET+13, SET+18 |
| E | IC1+33!, TOMPED+4*, GETLAST+1~, GETLAST+6*, GETLAST+7, KVARS+2! |
| ED | GETHF1+2~, GETHF1+4*, GETHF1+10, QUIT~, QUIT+2, QUIT+4, QUIT+6, QUIT+10, QUIT+12, QUIT+14 , 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+10*, QUIT+11, QUIT+12*, QUIT+13 , QUIT+14*, QUIT+15, POT+4* |
| H | IC1+33!, GETHF1+6*, GETHF1+7*, GETHF1+8, GETHF1+9, GETHF1+13, GETHF1+14, GETHF1+15, GETHF1+16, GETHF1+20* , GETHF1+26, KVARS+2! |
| >> I | TOMREF+4*, TOMREF+5 |
| >> J | POT+9*, POT+10 |
| 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+10, QUIT+12 , QUIT+14, GETLAST~, GETLAST+2, GETLAST+4, GETLAST+6, KVARS+2! |
| S | IC1+33!, GETLAST+1~, GETLAST+2*, GETLAST+3, POT+14*, POT+15, KVARS+2! |
| T | IC1+33!, TOMPED+6*, TOMPED+7*, TOMPED+8, TOMPED+9, TOMPED+10*, TOMPED+11, TOMPED+12, QUIT+1~, GETLAST+1~ , GETLAST+8*, GETLAST+9, GETLAST+10, POT+12*, POT+13, 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, GETALLHF+17, GETHF1+12, GETHF1+13, GETHF1+14, GETHF1+15, GETHF1+16, GETHF1+22 , GETHF1+24, QUIT+3, QUIT+5, QUIT+7, QUIT+11, QUIT+13, QUIT+15, GETLAST+3, GETLAST+5, GETLAST+7 , NEWSTUFF+10, NEWSTUFF+11, NEWSTUFF+12, NEWSTUFF+13, NEWSTUFF+15, NEWSTUFF+17, NEWSTUFF+21, NEWSTUFF+23, NEWSTUFF+25, NEWSTUFF+27 , NEWSTUFF+34, NEWSTUFF+35, NEWSTUFF+36, NEWSTUFF+37, NEWSTUFF+39, NEWSTUFF+41, NEWSTUFF+45, NEWSTUFF+47, NEWSTUFF+49, NEWSTUFF+51 , POT+5, POT+6, POT+10, POT+11, SET+14, SET+26, SET+27 |
| 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~ , NEWSTUFF+13*, NEWSTUFF+14, NEWSTUFF+16, NEWSTUFF+37*, NEWSTUFF+38, NEWSTUFF+40, POT+1*, POT+2, POT+4*, POT+5 , POT+6, POT+10, POT+11, POT+14, KVARS+2! |
| Y | IC1+33!, TOMPED+3*, TOMPED+4, TOMREF+9*, TOMREF+10, TOMREF+11, GETHF1+21*, GETHF1+22, QUIT+1~, QUIT+2* , QUIT+3, QUIT+4*, QUIT+5, QUIT+6*, QUIT+7, NEWSTUFF+14*, NEWSTUFF+15, NEWSTUFF+16*, NEWSTUFF+17, NEWSTUFF+19 , NEWSTUFF+20*, NEWSTUFF+21, NEWSTUFF+22*, NEWSTUFF+23, NEWSTUFF+24*, NEWSTUFF+25, NEWSTUFF+26*, NEWSTUFF+27, NEWSTUFF+38*, NEWSTUFF+39 , NEWSTUFF+40*, NEWSTUFF+41, NEWSTUFF+43, NEWSTUFF+44*, NEWSTUFF+45, NEWSTUFF+46*, NEWSTUFF+47, NEWSTUFF+48*, NEWSTUFF+49, NEWSTUFF+50* , NEWSTUFF+51, POT+2*, POT+3, POT+11*, POT+13, SET+16*, SET+17*, SET+18, KVARS+2! |
| Z | IC1+33!, TOMREF+5*, TOMREF+6, TOMREF+7, TOMREF+8, TOMREF+11, KVARS+2! |