©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
BGPMUH07 ; IHS/MSC/MGH - MU measure NQF0439-STK-6 ;02-Mar-2011 16:18;DU
Source file <BGPMUH07.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS GPRA Information System | 7 | $$ACTUPAP^BGPMUEHD ($$ELECTIVE,$$HOSPICE,$$LOS,$$TRIAL)^BGPMUH08 $$PLTAX^BGPMUUT1 ($$LASTDX,$$LASTDXI,$$LOINC,$$MEDREF)^BGPMUUT2 $$VSTPOVA^BGPMUUT3 $$FIND^BGPMUUT4 $$DATE^BGPMUUTL |
| IHS Patient | 1 | ($$AGE,$$DOB)^AUPNPAT |
| Kernel | 1 | $$FMADD^XLFDT |
| VA Fileman | 1 | $$GET1^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MOVE(IEN) | ;Check to see if movement is part of exclusions
; Transfer status from Facility Movement Type 405.1 ; 2,3,13,14 |
|
| CHOLEST(DFN,BGPIEN,BGPVST) | ; RETURNS 0^value^dt for normal, 1^value^date if high or a 2 if cholesterol not measured
|
|
| REF(DFN,BGPVST,BGPDIS) | ;Find refuals for this medication
|
|
| PSTAT(IEN) | ;Check to see if patient status code is part of exclusions
; Transfer status from Patient Status Code 99999.04 |
|
| ATHEROT | ;;
|
|
| ALLER(DFN) | ;Find if pt has allergies to statins
|
|
| TOTAL(BGPIEN) | ;add up the totals
|
|
| EXCLUDE(DFN,BGPIEN,BGPVST,BGPBIRTH) | ;See if there are exclusions
|
|
| ENTRY | ;PEP Stroke Measure 6 - High Cholest w/ Statin RxHigh Cholest w/ Statin Rx
|
|
| ATHERO(DFN,BGPVST,BGPIEN,BGPBIRTH) | ;Find evidence of atherosclerosis
|
|
| NUMER(DFN,BGPVST,BGPIEN,BGPDIS) | ;Check to see if pt is in the numerator
|
|
| LIPIDRX(DFN,BGPVST) | ;
|
| Name | Field # of Occurrence |
|---|---|
| $$AGE^AUPNPAT | ENTRY+19 |
| $$DOB^AUPNPAT | ENTRY+10 |
| $$ACTUPAP^BGPMUEHD | ENTRY+12 |
| $$ELECTIVE^BGPMUH08 | EXCLUDE+14 |
| $$HOSPICE^BGPMUH08 | EXCLUDE+8 |
| $$LOS^BGPMUH08 | EXCLUDE+5 |
| $$TRIAL^BGPMUH08 | EXCLUDE+11 |
| $$PLTAX^BGPMUUT1 | ATHERO+10 |
| $$LASTDX^BGPMUUT2 | ATHERO+8 |
| $$LASTDXI^BGPMUUT2 | ATHERO+4, ATHERO+5 |
| $$LOINC^BGPMUUT2 | CHOLEST+8 |
| $$MEDREF^BGPMUUT2 | REF+7 |
| $$VSTPOVA^BGPMUUT3 | ENTRY+22 |
| $$FIND^BGPMUUT4 | LIPIDRX+1, NUMER+5 |
| $$DATE^BGPMUUTL | TOTAL+9 |
| $$GET1^DIQ | ENTRY+18 |
| $$FMADD^XLFDT | CHOLEST+7, REF+5, NUMER+4 |
| FileNo | Call Tags |
|---|---|
| ^AUPNVSIT - [#9000010] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("UPPERCASE" | ALLER+7 |
| ^AUPNVLAB - [#9000010.09] | CHOLEST+11 |
| ^AUPNVSIT - [#9000010] | REF+3 |
| ^DGPM - [#405] | ENTRY+8, ENTRY+9, ENTRY+14, ENTRY+16, TOTAL+9, CHOLEST+6, LIPIDRX+1, EXCLUDE+22, EXCLUDE+23, REF+4 , NUMER+2 |
| ^DGPM("B" | ENTRY+6, ENTRY+7 |
| ^GMR(120.8 - [#120.8] | ALLER+3, ALLER+4, ALLER+5, ALLER+6, ALLER+7, ALLER+10 |
| ^PS(50.605 - [#50.605] | ALLER+11 |
| ^TMP("BGPMU0439" | TOTAL+2, TOTAL+3, TOTAL+4, TOTAL+5, TOTAL+6, TOTAL+10*, TOTAL+12*, TOTAL+13*, TOTAL+16*, TOTAL+17* , TOTAL+19*, TOTAL+20*, TOTAL+21* |
| Name | Line Occurrences |
|---|---|
| $$ALLER | EXCLUDE+30 |
| $$ATHERO | EXCLUDE+17 |
| $$CHOLEST | ENTRY+29 |
| $$EXCLUDE | ENTRY+34 |
| $$LIPIDRX | ENTRY+30 |
| $$MOVE | EXCLUDE+26 |
| $$NUMER | ENTRY+36 |
| $$PSTAT | EXCLUDE+27 |
| $$REF | EXCLUDE+33 |
| TOTAL | ENTRY+38 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | CHOLEST+4~, CHOLEST+5*, CHOLEST+13*, CHOLEST+15*, CHOLEST+16, NUMER+1~, NUMER+3*, NUMER+5*, NUMER+6*, NUMER+7 |
| AA | ALLER+1~, ALLER+2*, ALLER+4*, ALLER+5, ALLER+6, ALLER+7, ALLER+10 |
| ADMDATE | CHOLEST+4~, CHOLEST+6*, CHOLEST+7 |
| BB | ALLER+1~, ALLER+9*, ALLER+10*, ALLER+11 |
| >> BGPACTUP | ENTRY+12*, ENTRY+13 |
| BGPADM | ENTRY+2~, ENTRY+18*, ENTRY+19 |
| BGPADX | ATHERO+1~, ATHERO+8*, ATHERO+9 |
| BGPAGEE | ENTRY+1~, ENTRY+19*, EXCLUDE+3 |
| BGPALL | EXCLUDE+1~, EXCLUDE+30*, EXCLUDE+31 |
| BGPAPROB | ATHERO+1~, ATHERO+10*, ATHERO+11 |
| BGPATH | EXCLUDE+1~, EXCLUDE+17*, EXCLUDE+18 |
| >> BGPBDATE | ENTRY+4, ENTRY+12 |
| >> BGPBEN | ENTRY+12 |
| BGPBIRTH | ENTRY+1~, ENTRY+10*, ENTRY+34, EXCLUDE~, EXCLUDE+17, ATHERO~, ATHERO+4, ATHERO+5, ATHERO+8 |
| BGPCHOL | ENTRY+1~, ENTRY+29*, ENTRY+32, TOTAL+17, TOTAL+20 |
| BGPCLIN | EXCLUDE+1~, EXCLUDE+11*, EXCLUDE+12 |
| BGPCS | ATHERO+1~, ATHERO+3*, ATHERO+4, ATHERO+5 |
| BGPDIS | ENTRY+1~, ENTRY+16*, ENTRY+17, ENTRY+36, EXCLUDE+5, EXCLUDE+22, EXCLUDE+23, EXCLUDE+33, REF~, REF+4 , NUMER~, NUMER+2 |
| BGPECI | EXCLUDE+1~, EXCLUDE+14*, EXCLUDE+15 |
| >> BGPEDATE | ENTRY+5, ENTRY+12, ATHERO+4, ATHERO+5, ATHERO+8 |
| BGPEVT | REF+1~, REF+3*, REF+7 |
| BGPF | ATHERO+1~, ATHERO+2*, ATHERO+3, ATHERO+6*, ATHERO+7 |
| BGPF1 | ATHERO+1~, ATHERO+4*, ATHERO+6, ATHERO+7 |
| BGPF2 | ATHERO+1~, ATHERO+5*, ATHERO+6 |
| BGPHOS | EXCLUDE+1~, EXCLUDE+8*, EXCLUDE+9 |
| BGPI | ATHERO+1~, ATHERO+3* |
| >> BGPICARE("MU.STK.0439.1" | TOTAL+22* |
| BGPIEN | ENTRY+1~, ENTRY+7*, ENTRY+8, ENTRY+9, ENTRY+14, ENTRY+16, ENTRY+29, ENTRY+34, ENTRY+36, ENTRY+38 , TOTAL~, TOTAL+9, CHOLEST~, CHOLEST+6, LIPIDRX+1, EXCLUDE~, EXCLUDE+5, EXCLUDE+14, EXCLUDE+17, ATHERO~ , NUMER~ |
| >> BGPIISO | ENTRY+13 |
| BGPIPROB | ENTRY+1~ |
| BGPISDX | ENTRY+1~, ENTRY+22*, ENTRY+26 |
| BGPLDL | CHOLEST+4~, CHOLEST+8*, CHOLEST+9, CHOLEST+10, CHOLEST+13, CHOLEST+15 |
| BGPLIPID | ENTRY+1~, ENTRY+30*, ENTRY+32, TOTAL+17, TOTAL+20 |
| BGPLOS | EXCLUDE+1~, EXCLUDE+5*, EXCLUDE+6 |
| >> BGPMUTF | TOTAL+2, TOTAL+3, TOTAL+4, TOTAL+5, TOTAL+6, TOTAL+10, TOTAL+12, TOTAL+13, TOTAL+16, TOTAL+17 , TOTAL+19, TOTAL+20, TOTAL+21, TOTAL+22 |
| BGPREF | EXCLUDE+1~, EXCLUDE+33*, EXCLUDE+34 |
| BGPTMP | ATHERO+1~ |
| BGPVST | ENTRY+1~, ENTRY+14*, ENTRY+15, ENTRY+18, ENTRY+22, ENTRY+29, ENTRY+30, ENTRY+34, ENTRY+36, CHOLEST~ , LIPIDRX~, EXCLUDE~, EXCLUDE+8, EXCLUDE+11, EXCLUDE+14, EXCLUDE+17, EXCLUDE+33, REF~, REF+3, ATHERO~ , NUMER~ |
| >> BGPXPXPX | ENTRY+13 |
| DATE | TOTAL+1~, TOTAL+9*, TOTAL+17, TOTAL+20, TOTAL+22 |
| DENCT | TOTAL+1~, TOTAL+3*, TOTAL+10* |
| DFN | ENTRY+1~, ENTRY+9*, ENTRY+10, ENTRY+11, ENTRY+12, ENTRY+19, ENTRY+22, ENTRY+29, ENTRY+30, ENTRY+34 , ENTRY+36, TOTAL+13, TOTAL+17, TOTAL+20, TOTAL+22, CHOLEST~, CHOLEST+8, LIPIDRX~, LIPIDRX+1, EXCLUDE~ , EXCLUDE+8, EXCLUDE+11, EXCLUDE+14, EXCLUDE+17, EXCLUDE+30, EXCLUDE+33, ALLER~, ALLER+3, ALLER+4, REF~ , REF+7, ATHERO~, ATHERO+4, ATHERO+5, ATHERO+8, ATHERO+10, NUMER~, NUMER+5 |
| DISCHKDT | NUMER+1~, NUMER+4*, NUMER+5 |
| DISDT | REF+1~, REF+4*, REF+5 |
| DTYPE1 | EXCLUDE+1~, EXCLUDE+22*, EXCLUDE+26 |
| DTYPE1C | EXCLUDE+1~, EXCLUDE+26* |
| DTYPE2 | EXCLUDE+1~, EXCLUDE+23*, EXCLUDE+27 |
| DTYPE2C | EXCLUDE+1~, EXCLUDE+27* |
| EDATE | NUMER+1~, NUMER+2*, NUMER+4, NUMER+6 |
| END | ENTRY+1~, ENTRY+5*, ENTRY+6 |
| ENDDT | REF+1~, REF+5*, REF+7 |
| EXC | ENTRY+1~, ENTRY+21*, ENTRY+34*, ENTRY+36, TOTAL+11, TOTAL+13, TOTAL+14, TOTAL+22 |
| EXCCT | TOTAL+1~, TOTAL+5*, TOTAL+12* |
| IEN | MOVE~, MOVE+3, MOVE+6, PSTAT~, PSTAT+2, PSTAT+3, PSTAT+6, PSTAT+9 |
| LABVAL | CHOLEST+4~, CHOLEST+11*, CHOLEST+12, CHOLEST+13, CHOLEST+14, CHOLEST+15 |
| LDLEDATE | CHOLEST+4~, CHOLEST+7*, CHOLEST+8 |
| LDLFOUND | CHOLEST+4~ |
| LDLSDATE | CHOLEST+4~, CHOLEST+7*, CHOLEST+8 |
| LIEN | CHOLEST+4~, CHOLEST+10*, CHOLEST+11 |
| MED | REF+1~, REF+2*, REF+7*, REF+8 |
| NOTCT | TOTAL+1~, TOTAL+6*, TOTAL+19* |
| NUM | ENTRY+1~, ENTRY+21*, ENTRY+36*, TOTAL+15, TOTAL+17, TOTAL+18, TOTAL+20, TOTAL+22 |
| NUMCT | TOTAL+1~, TOTAL+4*, TOTAL+16* |
| PTCNT | TOTAL+1~, TOTAL+7*, TOTAL+8*, TOTAL+13, TOTAL+17, TOTAL+20, TOTAL+21 |
| REASON | EXCLUDE+1~, EXCLUDE+2*, EXCLUDE+3*, EXCLUDE+6*, EXCLUDE+9*, EXCLUDE+12*, EXCLUDE+15*, EXCLUDE+18*, EXCLUDE+26*, EXCLUDE+27* , EXCLUDE+31*, EXCLUDE+34*, EXCLUDE+35 |
| START | ENTRY+1~, ENTRY+4*, ENTRY+6*, ENTRY+7 |
| STROKE | ENTRY+1~, ENTRY+21*, ENTRY+26*, ENTRY+27 |
| TAX | REF+1~, REF+6*, REF+7 |
| TEST | ALLER+1~, ALLER+2*, ALLER+3, ALLER+4, ALLER+8*, ALLER+11*, ALLER+12 |
| TOTALS | TOTAL+1~, TOTAL+2*, TOTAL+7 |
| U | ENTRY+8, ENTRY+9, ENTRY+14, ENTRY+16, TOTAL+9, TOTAL+13, TOTAL+17, TOTAL+20, TOTAL+22, CHOLEST+6 , CHOLEST+10, CHOLEST+11, CHOLEST+13, CHOLEST+15, LIPIDRX+1, EXCLUDE+22, EXCLUDE+23, REF+3, REF+4, NUMER+2 , NUMER+6 |
| X | ALLER+1~, ALLER+7*, REF+1~ |
| X1 | REF+1~ |
| X2 | REF+1~ |
| Y | ALLER+1~, ALLER+8, ALLER+11 |
| Name | Field # of Occurrence |
|---|---|
| $T(ATHEROT+BGPI | ATHERO+3 |