BGP5C1 ; IHS/CMI/LAB - calc CMS indicators 26 Sep 2004 11:28 AM 04 May 2005 2:38 PM ;
Source file <BGP5C1.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS GPRA Information System | 2 | EN^BGP5C11 $$DATE^BGP5UTL |
| Kernel | 2 | ($$FMADD,$$FMTE)^XLFDT $$UP^XLFSTR |
| Patient Care Component Reports | 2 | $$START1^APCLDF $$PRIMPOV^APCLV |
| DRG Grouper | 1 | $$ICDDX^ICDCODE |
| IHS Patient | 1 | ($$AGE,$$DOB,$$HRN)^AUPNPAT |
| IHS VA Utilities | 1 | $$VAL^XBDIQ1 |
| Patient Care Component | 1 | ^APCDCHKJ |
| Taxonomy | 1 | $$ICD^ATXCHK |
| Package | Total | Caller Graph |
|---|---|---|
| IHS GPRA Information System | 2 | BGP5C3 BGP5CL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| WARRX | ;gather up warfarin meds
|
|
| ASAALLEG(P,BGPD,BGPY) | ;does patient have an aspirin allergy
|
|
| ASARX | ;
|
|
| AMI | ;EP
|
|
| EXP(Y,Z,ADM) | ;
|
|
| ASAALG | ;
|
|
| ANTIRX | ;gather up warfarin meds
|
|
| AMIDX(V) | ;
|
|
| TRANS(H) | ;
|
|
| GETMEDS(P,BGPMBD,BGPMED,TAX1,TAX2,TAX3,EXP,ADM,BGPDNAME) | ;EP
|
|
| ASAPOV | ;
|
|
| WARRX1(P,BGPA,BGPD,BGPY) | ;
|
|
| ASACONT | ;
|
|
| ASACONTR(P,BGPA,BGPDDT,BGPV,BGPY) | ;does patient have an aspirin allergy
|
|
| ASARX1(P,BGPA,BGPD,BGPY) | ;
|
|
| DSCH(H) | ;
|
|
| ANTIRX1(P,BGPA,BGPD,BGPY) | ;
|
|
| PROC1 | ;current time period
|
|
| EXPIRED(H,D) | ;
|
|
| TRANSIN(H) | ;
|
|
| AMA(H,D) | ;
|
|
| PROC | ;EP
|
|
| DEATHAMA(H) | ;was discharge death or AMA?
|
| Name | Field # of Occurrence |
|---|---|
| ^APCDCHKJ | PROC+1 |
| $$START1^APCLDF | GETMEDS+4, ASAPOV+1, ASAPOV+7 |
| $$PRIMPOV^APCLV | AMI+5, AMI+25, AMIDX+1 |
| $$ICD^ATXCHK | ASAPOV+18, AMIDX+5 |
| $$AGE^AUPNPAT | AMI+3, AMI+7, AMI+23 |
| $$DOB^AUPNPAT | ASAPOV+1, ASAPOV+7 |
| $$HRN^AUPNPAT | AMI+3, AMI+23 |
| EN^BGP5C11 | ANTIRX+6 |
| $$DATE^BGP5UTL | AMI+4, AMI+24, GETMEDS+19, ASAPOV+4, ASAPOV+5, ASAPOV+10, ASAPOV+18, ASAPOV+24, ASACONTR+28 |
| $$ICDDX^ICDCODE | AMI+35, ASAPOV+5, ASAPOV+15, ASACONTR+14 |
| $$VAL^XBDIQ1 | AMI+8, AMI+14, AMI+26, AMI+27, AMI+36, ASAPOV+3, ASAPOV+9, ASAPOV+16, ASACONTR+16, ASACONTR+28 |
| $$FMADD^XLFDT | PROC+5, EXP+7, ASARX1+4, ASARX1+5, ASARX1+9, WARRX1+4, WARRX1+5, WARRX1+8, ANTIRX1+4, ANTIRX1+5 , ANTIRX1+8, ASAALLEG+5, ASACONTR+4, ASACONTR+5, ASACONTR+20 |
| $$FMTE^XLFDT | GETMEDS+4, ASAPOV+1, ASAPOV+7 |
| $$UP^XLFSTR | AMI+36, ASAPOV+3, ASAPOV+9, ASAPOV+16, ASAPOV+23 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ATXAX - [#9002226] | GETMEDS+13, GETMEDS+15, GETMEDS+16, ASACONTR+22 |
| ^ATXAX("B" | GETMEDS+5, GETMEDS+6, GETMEDS+7, ASAPOV+13, ASACONTR+19, AMIDX+3 |
| ^AUPNPREF - [#9000022] | ASACONTR+27, ASACONTR+28 |
| ^AUPNPREF("AA" | ASACONTR+21, ASACONTR+23, ASACONTR+26 |
| ^AUPNPROB - [#9000011] | ASAPOV+15, ASAPOV+17, ASAPOV+18 |
| ^AUPNPROB("AC" | ASAPOV+14 |
| ^AUPNVINP - [#9000010.02] | PROC+7, DEATHAMA+1, AMA+1, AMA+2, EXPIRED+1, EXPIRED+2, DSCH+1, TRANSIN+1, TRANS+1 |
| ^AUPNVINP("B" | PROC+6, PROC+7 |
| ^AUPNVMED - [#9000010.14] | GETMEDS+9, GETMEDS+11, GETMEDS+19, EXP+3 |
| ^AUPNVPOV - [#9000010.07] | AMI+33, AMI+34, AMI+35, ASAPOV+5, ASACONTR+12 |
| ^AUPNVPOV("AD" | AMI+32, ASACONTR+11 |
| ^AUPNVSIT - [#9000010] | PROC1+1, PROC1+2 |
| ^BGPCMSIF - [#90373.01] | PROC1+12 |
| ^DG(405.1 - [#405.1] | DEATHAMA+3, AMA+4, EXPIRED+4, TRANSIN+3, TRANS+3 |
| ^DPT - [#2] | PROC1+9, AMI+3, AMI+16, AMI+17, AMI+19, AMI+23, AMI+28, AMI+31, AMI+38, ASAALG+1 , ASAALG+4, ASAALG+6, ASACONT+1, ASACONT+4, ASACONT+6, ASARX+1, ASARX+5, WARRX+1, WARRX+5, ANTIRX+1 , ANTIRX+5 |
| ^GMR(120.8 - [#120.8] | ASAPOV+21, ASAPOV+22, ASAPOV+23, ASAPOV+24 |
| ^PSDRUG - [#50] | GETMEDS+12, GETMEDS+14, GETMEDS+17 |
| ^PSRX - [#52] | EXP+5 |
| ^PSRX("APCC" | EXP+4 |
| ^TMP($J | GETMEDS+1!, GETMEDS+8, GETMEDS+19, EXP+7 |
| ^XTMP("BGP5C1" | PROC+4!, AMI+16, AMI+17*, AMI+19*, AMI+28*, AMI+31*, AMI+38*, ASAALG+1*, ASAALG+4*, ASAALG+6* , ASACONT+1*, ASACONT+4*, ASACONT+6*, ASARX+1*, ASARX+5*, WARRX+1*, WARRX+5*, ANTIRX+1*, ANTIRX+5* |
| Name | Line Occurrences |
|---|---|
| $$AMA | AMI+13 |
| $$AMIDX | AMI+2 |
| $$DEATHAMA | AMI+11 |
| $$DSCH | AMI+4, AMI+11, AMI+24, ASAALG+3, ASACONT+3, ASARX+3, WARRX+3, ANTIRX+3 |
| $$EXP | GETMEDS+18 |
| $$EXPIRED | AMI+12 |
| $$TRANS | AMI+10 |
| ANTIRX1 | ANTIRX+3 |
| ASAALLEG | ASAALG+3 |
| ASACONTR | ASACONT+3 |
| ASARX1 | ASARX+3 |
| GETMEDS | ASARX1+6, ASARX1+10, WARRX1+6, WARRX1+9, ANTIRX1+6, ANTIRX1+9, ASACONTR+7, ASACONTR+9 |
| PROC1 | PROC+7 |
| WARRX1 | WARRX+3 |
| Name | Field # of Occurrence |
|---|---|
| ^( | AMI+38*, EXP+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADM | GETMEDS~, GETMEDS+18, EXP~, EXP+6, EXP+7 |
| BD | ASARX1+2~, ASARX1+5*, ASARX1+6, ASARX1+8*, ASARX1+10, WARRX1+2~, WARRX1+5*, WARRX1+6, WARRX1+7*, WARRX1+9 , ANTIRX1+2~, ANTIRX1+5*, ANTIRX1+6, ANTIRX1+7*, ANTIRX1+9, ASAALLEG+2~, ASACONTR+2~, ASACONTR+4*, ASACONTR+7 |
| BGPA | ASARX1~, ASARX1+4, ASARX1+5, ASARX1+8, WARRX1~, WARRX1+4, WARRX1+5, WARRX1+7, ANTIRX1~, ANTIRX1+4 , ANTIRX1+5, ANTIRX1+7, ASACONTR~, ASACONTR+4, ASACONTR+5, ASACONTR+7 |
| BGPASAAL | ASAALG+2!, ASAALG+3, ASAALG+4, ASACONT+2!, ASACONT+3, ASACONT+4, ASARX+2!, ASARX+3, WARRX+2!, WARRX+3 , ANTIRX+2!, ANTIRX+3 |
| BGPASAAL( | ASAALG+5, ASAALG+6, ASACONT+5, ASACONT+6, ASARX+4, ASARX+5, WARRX+4, WARRX+5, ANTIRX+4, ANTIRX+5 |
| >> BGPBD | PROC+5 |
| >> BGPBT | PROC+2* |
| BGPC | GETMEDS+22*, ASARX1+2~, ASARX1+3*, WARRX1+2~, WARRX1+3*, ANTIRX1+2~, ANTIRX1+3*, ASAALLEG+2~, ASAALLEG+4*, ASAPOV+4* , ASAPOV+5*, ASAPOV+10*, ASAPOV+18*, ASAPOV+24*, ASACONTR+2~, ASACONTR+3*, ASACONTR+16*, ASACONTR+28* |
| >> BGPC1 | GETMEDS+3* |
| BGPCOUNT | PROC+4! |
| BGPCOUNT("L1" | AMI+20* |
| BGPCOUNT("L2" | AMI+29* |
| BGPD | ASARX1~, ASARX1+9, WARRX1~, WARRX1+8, ANTIRX1~, ANTIRX1+8, ASAALLEG~, ASAALLEG+5, ASAPOV+1, ASAPOV+7 , ASAPOV+17, ASAPOV+22 |
| BGPDDT | ASACONTR~, ASACONTR+9, ASACONTR+20, ASACONTR+25 |
| BGPDNAME | GETMEDS~, GETMEDS+2*, GETMEDS+17 |
| >> BGPED | PROC+6 |
| >> BGPET | PROC+8* |
| BGPG | ASARX1+2~, ASARX1+11!, ASAALLEG+2~, ASAPOV+1!, ASAPOV+7!, ASACONTR+2~ |
| BGPG( | ASAPOV+2, ASAPOV+4, ASAPOV+5, ASAPOV+8, ASAPOV+10 |
| >> BGPH | PROC+3*, PROC+4, AMI+16, AMI+17, AMI+19, AMI+28, AMI+31, AMI+38, ASAALG+1, ASAALG+4 , ASAALG+6, ASACONT+1, ASACONT+4, ASACONT+6, ASARX+1, ASARX+5, WARRX+1, WARRX+5, ANTIRX+1, ANTIRX+5 |
| >> BGPHOSP | PROC1+6 |
| >> BGPIND | PROC1+10*, PROC1+11, PROC1+12, AMI+16, AMI+17, AMI+19, AMI+20, AMI+28, AMI+29, AMI+31 , AMI+38, ASAALG+1, ASAALG+4, ASAALG+6, ASACONT+1, ASACONT+4, ASACONT+6, ASARX+1, ASARX+5, WARRX+1 , WARRX+5, ANTIRX+1, ANTIRX+5 |
| >> BGPIND( | PROC1+10 |
| >> BGPJ | PROC+3*, PROC+4, AMI+16, AMI+17, AMI+19, AMI+28, AMI+31, AMI+38, ASAALG+1, ASAALG+4 , ASAALG+6, ASACONT+1, ASACONT+4, ASACONT+6, ASARX+1, ASARX+5, WARRX+1, WARRX+5, ANTIRX+1, ANTIRX+5 |
| BGPMBD | GETMEDS~, GETMEDS+4 |
| BGPMED | GETMEDS~, GETMEDS+4 |
| >> BGPORDER | PROC1+11*, AMI+16, AMI+17, AMI+19, AMI+28, AMI+31, AMI+38, ASAALG+1, ASAALG+4, ASAALG+6 , ASACONT+1, ASACONT+4, ASACONT+6, ASARX+1, ASARX+5, WARRX+1, WARRX+5, ANTIRX+1, ANTIRX+5 |
| >> BGPSD | PROC+5*, PROC+6*, PROC+7 |
| >> BGPSKIP | AMI+6*, AMI+7*, AMI+10*, AMI+11*, AMI+12*, AMI+13*, AMI+22 |
| BGPV | ASACONTR~, ASACONTR+11 |
| >> BGPVINP | PROC+7*, AMI+4, AMI+8, AMI+10, AMI+11, AMI+12, AMI+13, AMI+14, AMI+24, AMI+26 , AMI+27, ASAALG+3, ASACONT+3, ASARX+3, WARRX+3, ANTIRX+3 |
| >> BGPVSIT | PROC+7*, PROC1+1, PROC1+2, AMI+2, AMI+5, AMI+16, AMI+17, AMI+19, AMI+25, AMI+28 , AMI+31, AMI+32, AMI+38, ASAALG+1, ASAALG+4, ASAALG+6, ASACONT+1, ASACONT+3, ASACONT+4, ASACONT+6 , ASARX+1, ASARX+5, WARRX+1, WARRX+5, ANTIRX+1, ANTIRX+5 |
| >> BGPVSIT0 | PROC1+2*, PROC1+3, PROC1+4, PROC1+5, PROC1+6, PROC1+7, PROC1+8, AMI+3, AMI+4, AMI+7 , AMI+11, AMI+12, AMI+13, AMI+23, AMI+24, ASACONT+3, ASARX+3, WARRX+3, ANTIRX+3 |
| >> BGPX | AMI+3*, AMI+4*, AMI+5*, AMI+7*, AMI+9*, AMI+10*, AMI+11*, AMI+12*, AMI+13*, AMI+15* , AMI+17, AMI+23*, AMI+24*, AMI+25*, AMI+26*, AMI+27*, AMI+28 |
| BGPY | ASARX1~, ASARX1+3!, WARRX1~, WARRX1+3!, ANTIRX1~, ANTIRX1+3!, ASAALLEG~, ASAALLEG+4!, ASACONTR~, ASACONTR+3! |
| BGPY( | GETMEDS+22*, ASAPOV+4*, ASAPOV+5*, ASAPOV+10*, ASAPOV+18*, ASAPOV+24*, ASACONTR+16*, ASACONTR+28* |
| BGPY("B" | GETMEDS+22* |
| BGPZ | AMI+6!, AMI+18, GETMEDS+3! |
| BGPZ( | AMI+18, GETMEDS+19*, GETMEDS+21, GETMEDS+22 |
| BGPZ(1 | AMI+7* |
| BGPZ(2 | AMI+10* |
| BGPZ(3 | AMI+11* |
| BGPZ(4 | AMI+12* |
| BGPZ(5 | AMI+13* |
| BGPZ1 | AMI+18!*, AMI+19* |
| >> C | AMI+32*, AMI+37*, AMI+38, GETMEDS+12*, GETMEDS+13, GETMEDS+14*, GETMEDS+15, AMIDX+1*, AMIDX+2, AMIDX+5 |
| D | GETMEDS+11*, GETMEDS+12, GETMEDS+14, GETMEDS+16, GETMEDS+17, GETMEDS+22*, ASARX1+2~, ASACONTR+23*, ASACONTR+24, ASACONTR+26 , AMA~, AMA+1, EXPIRED~, EXPIRED+1 |
| >> DFN | PROC1+8*, PROC1+9, AMI+3, AMI+7, AMI+16, AMI+17, AMI+19, AMI+23, AMI+28, AMI+31 , AMI+38, ASAALG+1, ASAALG+3, ASAALG+4, ASAALG+6, ASACONT+1, ASACONT+3, ASACONT+4, ASACONT+6, ASARX+1 , ASARX+3, ASARX+5, WARRX+1, WARRX+3, WARRX+5, ANTIRX+1, ANTIRX+3, ANTIRX+5, ASAPOV+7 |
| DUZ(2 | AMI+3, AMI+23 |
| E | GETMEDS+4*, EXP+5*, EXP+6, ASARX1+2~, WARRX1+2~, ANTIRX1+2~, ASAPOV+1*, ASAPOV+7*, ASACONTR+2~ |
| ED | ASARX1+2~, ASARX1+4*, ASARX1+6, ASARX1+9*, ASARX1+10, WARRX1+2~, WARRX1+4*, WARRX1+6, WARRX1+8*, WARRX1+9 , ANTIRX1+2~, ANTIRX1+4*, ANTIRX1+6, ANTIRX1+8*, ANTIRX1+9, ASAALLEG+2~, ASAALLEG+5*, ASACONTR+2~, ASACONTR+5*, ASACONTR+7 |
| EXP | GETMEDS~, GETMEDS+18 |
| G | GETMEDS+10*, GETMEDS+13*, GETMEDS+15*, GETMEDS+16*, GETMEDS+17*, GETMEDS+19, EXP+1~, EXP+2*, EXP+6*, EXP+7* , EXP+8, ASARX1+2~ |
| H | DEATHAMA~, DEATHAMA+1, AMA~, AMA+1, AMA+2, EXPIRED~, EXPIRED+1, EXPIRED+2, DSCH~, DSCH+1 , TRANSIN~, TRANSIN+1, TRANS~, TRANS+1 |
| >> I | AMI+35*, AMI+38, ASAPOV+15*, ASAPOV+18, ASACONTR+12*, ASACONTR+14*, ASACONTR+15, ASACONTR+16 |
| N | AMI+36*, AMI+38, GETMEDS+21*, GETMEDS+22, EXP+3*, EXP+7, ASAALLEG+2~, ASAPOV+3*, ASAPOV+4, ASAPOV+5 , ASAPOV+9*, ASAPOV+10, ASAPOV+16*, ASAPOV+18, ASAPOV+23*, ASAPOV+24, ASACONTR+2~, ASACONTR+26*, ASACONTR+27, ASACONTR+28 |
| P | GETMEDS~, GETMEDS+4, ASARX1~, ASARX1+6, ASARX1+10, WARRX1~, WARRX1+6, WARRX1+9, ANTIRX1~, ANTIRX1+6 , ANTIRX1+9, ASAALLEG~, ASAPOV+1, ASAPOV+7, ASAPOV+14, ASAPOV+21, ASACONTR~, ASACONTR+7, ASACONTR+9, ASACONTR+21 , ASACONTR+23, ASACONTR+26 |
| >> T | GETMEDS+5*, GETMEDS+16, ASAPOV+13*, ASAPOV+18, ASACONTR+19*, ASACONTR+22, AMIDX+3*, AMIDX+4, AMIDX+5 |
| >> T1 | GETMEDS+6*, GETMEDS+15 |
| >> T2 | GETMEDS+7*, GETMEDS+13 |
| TAX1 | GETMEDS~, GETMEDS+5 |
| TAX2 | GETMEDS~, GETMEDS+6 |
| TAX3 | GETMEDS~, GETMEDS+7 |
| U | PROC+7, PROC1+3, PROC1+4, PROC1+5, PROC1+6, PROC1+7, PROC1+8, PROC1+9, AMI+3, AMI+4 , AMI+5, AMI+7, AMI+9, AMI+11, AMI+12, AMI+13, AMI+15, AMI+16, AMI+17, AMI+19 , AMI+23, AMI+24, AMI+25, AMI+26, AMI+27, AMI+28, AMI+31, AMI+34, AMI+35, AMI+38 , ASAALG+1, ASAALG+4, ASAALG+6, ASACONT+1, ASACONT+3, ASACONT+4, ASACONT+6, ASARX+1, ASARX+3, ASARX+5 , WARRX+1, WARRX+3, WARRX+5, ANTIRX+1, ANTIRX+3, ANTIRX+5, GETMEDS+8, GETMEDS+11, GETMEDS+12, GETMEDS+14 , GETMEDS+17, GETMEDS+19, EXP+3, EXP+5, ASAPOV+2, ASAPOV+4, ASAPOV+5, ASAPOV+8, ASAPOV+10, ASAPOV+15 , ASAPOV+17, ASAPOV+18, ASAPOV+22, ASAPOV+23, ASAPOV+24, ASACONTR+12, ASACONTR+14, ASACONTR+27, ASACONTR+28, DEATHAMA+1 , DEATHAMA+3, AMA+1, AMA+2, AMA+4, EXPIRED+1, EXPIRED+2, EXPIRED+4, DSCH+1, TRANSIN+1, TRANSIN+3 , TRANS+1, TRANS+3 |
| V | AMIDX~, AMIDX+1 |
| X | AMI+18*, AMI+32*, AMI+33, AMI+34, AMI+35, AMI+36, ASAALG+5*, ASAALG+6, ASACONT+5*, ASACONT+6 , ASARX+4*, ASARX+5, WARRX+4*, WARRX+5, ANTIRX+4*, ANTIRX+5, GETMEDS+4*, GETMEDS+8*, GETMEDS+18, GETMEDS+19 , EXP+7, ASARX1+2~, WARRX1+2~, ANTIRX1+2~, ASAALLEG+2~, ASAPOV+1*, ASAPOV+2*, ASAPOV+4, ASAPOV+5, ASAPOV+7* , ASAPOV+8*, ASAPOV+10, ASAPOV+14*, ASAPOV+15, ASAPOV+16, ASAPOV+17, ASAPOV+18, ASAPOV+21*, ASAPOV+22, ASAPOV+23 , ASAPOV+24, ASACONTR+2~, ASACONTR+11*, ASACONTR+12, ASACONTR+16, ASACONTR+21*, ASACONTR+22, ASACONTR+23, ASACONTR+26, ASACONTR+28 , DEATHAMA+1*, DEATHAMA+2, DEATHAMA+3*, DEATHAMA+4, DEATHAMA+5, DEATHAMA+6, DEATHAMA+7, DEATHAMA+8, AMA+2*, AMA+3 , AMA+4*, AMA+5, EXPIRED+2*, EXPIRED+3, EXPIRED+4*, EXPIRED+5, TRANSIN+1*, TRANSIN+2, TRANSIN+3*, TRANSIN+4 , TRANS+1*, TRANS+2, TRANS+3*, TRANS+4 |
| Y | GETMEDS+4*, GETMEDS+8*, GETMEDS+9, GETMEDS+11, GETMEDS+18, GETMEDS+19, EXP~, EXP+3, EXP+4, ASARX1+2~ , WARRX1+2~, ANTIRX1+2~, ASAALLEG+2~, ASAPOV+1*, ASAPOV+2*, ASAPOV+3, ASAPOV+5, ASAPOV+7*, ASAPOV+8*, ASAPOV+9 , ASAPOV+15*, ASAPOV+18, ASACONTR+2~, ASACONTR+24*, ASACONTR+25 |
| Z | AMI+8*, AMI+9, AMI+14*, AMI+15, EXP~, EXP+4*, EXP+5, ASARX1+2~, WARRX1+2~, ANTIRX1+2~ , ASAALLEG+2~, ASAPOV+5*, ASACONTR+2~, ASACONTR+20*, ASACONTR+24 |