BGPMUD01 ; IHS/MSC/SAT - MU measure NQF0028A ;11-Feb-2011 15:43;DU
Source file <BGPMUD01.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS GPRA Information System | 1 | ($$PRV,$$VSTCPT)^BGPMUUT1 |
| IHS Patient | 1 | $$AGE^AUPNPAT |
| Kernel | 1 | $$FMADD^XLFDT |
| Package | Total | Caller Graph |
|---|---|---|
| IHS GPRA Information System | 1 | BGPMUD02 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TOBU | ;;
|
|
| HFA(BGPTOBU,BGPTOBN) | ;build arrays of health factor pointers
; BGPTOBU(<health factor pointer>) array of health factors indicating tobacco user ; BGPTOBN(<health factor pointer>) array of health factors indicating non-tobacco user |
|
| CPT1 | ;;
|
|
| CPT2 | ;;
|
|
| EM2(DFN,VIEN,BGP2,BGPDT) | ;
|
|
| TOTAL(DFN,BGPNUM,BGPMUTF,BGPDSTR,BGPNSTR) | ;See where this patient ends up
; BGPDSTR = Denominator string: encounter dates in FM format pieced by ";" ; BGPNSTR = Numerator string: <health factor text> ";" <health factor edit date in FM format> |
|
| TEST | ; debug target
|
|
| ENTRY | ;EP
; expects: ; DFN = patient code from VA PATIENT file ; BGPBDATE = begin date of report ; BGPEDATE = end date of report ; BGPPROV = provider code from NEW PERSON file ; BGPMUTF = timeframe variable - "C"=current year; "P"=previous year; "B"=baseline year |
|
| TOBN | ;;
|
|
| EM1(DFN,VIEN,BGP1,BGPDT) | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVHF - [#9000010.23] | ENTRY+50 |
| ^AUPNVHF("AD" | ENTRY+49 |
| ^AUPNVSIT - [#9000010] | ENTRY+25, ENTRY+48 |
| ^AUPNVSIT("AA" | ENTRY+23, ENTRY+24, ENTRY+46, ENTRY+47 |
| ^AUTTHF("B" | HFA+9, HFA+17 |
| ^TMP("BGPMU0028A" | TOTAL+5, TOTAL+6, TOTAL+7, TOTAL+8, TOTAL+13*, TOTAL+14*, TOTAL+17*, TOTAL+18*, TOTAL+21*, TOTAL+22* , TOTAL+23* |
| Name | Line Occurrences |
|---|---|
| EM1 | ENTRY+29 |
| EM2 | ENTRY+28 |
| HFA | ENTRY+44 |
| TOTAL | ENTRY+55 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | ENTRY+58! |
| BGP1 | ENTRY+7~, ENTRY+22*, ENTRY+23, ENTRY+24, ENTRY+29, ENTRY+32, ENTRY+33, ENTRY+37, EM1~, EM1+2 , EM1+4* |
| BGP2 | ENTRY+7~, ENTRY+22*, ENTRY+23, ENTRY+24, ENTRY+28, ENTRY+32, ENTRY+33, ENTRY+37, EM2~, EM2+2 , EM2+4* |
| BGPAGEE | ENTRY+7~, ENTRY+15*, ENTRY+17 |
| >> BGPBDATE | ENTRY+15, ENTRY+19, ENTRY+45 |
| BGPDEN | ENTRY+7~, ENTRY+10*, ENTRY+35*, TOTAL+12, TOTAL+25 |
| BGPDSTR | ENTRY+7~, ENTRY+12*, ENTRY+37*, ENTRY+55, TOTAL~, TOTAL+14, TOTAL+18, TOTAL+22, TOTAL+25 |
| BGPDT | ENTRY+7~, ENTRY+25*, ENTRY+28, ENTRY+29, ENTRY+48*, ENTRY+51, ENTRY+52, TOTAL+4~, EM2~, EM2+4 , EM1~, EM1+4 |
| >> BGPEDATE | ENTRY+19 |
| BGPH | ENTRY+40~, ENTRY+51*, ENTRY+52* |
| BGPHFF | ENTRY+40~, ENTRY+41*, ENTRY+46, ENTRY+47, ENTRY+51*, ENTRY+52*, ENTRY+53 |
| BGPHFI | ENTRY+8~, ENTRY+50*, ENTRY+51, ENTRY+52 |
| BGPI | EM2+1~, EM2+2*, EM1+1~, EM1+2*, HFA+3~, HFA+6*, HFA+14* |
| >> BGPICARE("MU.EP.0028a.1" | TOTAL+25* |
| >> BGPIEN | ENTRY+49*, ENTRY+50 |
| BGPIND | HFA+3~, HFA+9*, HFA+10, HFA+17*, HFA+18 |
| BGPL | ENTRY+58! |
| BGPLHTS | ENTRY+58! |
| BGPLHTS1 | ENTRY+58! |
| BGPLWTS | ENTRY+58! |
| BGPLWTS1 | ENTRY+58! |
| BGPMUTF | ENTRY+55, TOTAL~, TOTAL+5, TOTAL+6, TOTAL+7, TOTAL+8, TOTAL+13, TOTAL+14, TOTAL+17, TOTAL+18 , TOTAL+21, TOTAL+22, TOTAL+23, TOTAL+25 |
| BGPNSTR | ENTRY+7~, ENTRY+13*, ENTRY+51*, ENTRY+52*, ENTRY+55, TOTAL~, TOTAL+18, TOTAL+25 |
| BGPNUM | ENTRY+7~, ENTRY+11*, ENTRY+53*, ENTRY+55, TOTAL~, TOTAL+15, TOTAL+19, TOTAL+25 |
| >> BGPPROV | ENTRY+27 |
| BGPTMP | EM2+1~, EM2+2*, EM2+3, EM1+1~, EM1+2*, EM1+3, HFA+3~, HFA+5*, HFA+6, HFA+7* , HFA+8, HFA+9, HFA+10, HFA+13*, HFA+14, HFA+15*, HFA+16, HFA+17, HFA+18 |
| BGPTOBN | ENTRY+40~, ENTRY+43*, ENTRY+44, HFA~, HFA+12 |
| BGPTOBN( | ENTRY+52, HFA+18* |
| BGPTOBU | ENTRY+40~, ENTRY+42*, ENTRY+44, HFA~, HFA+4 |
| BGPTOBU( | ENTRY+51, HFA+10* |
| DEN1CT | TOTAL+4~, TOTAL+8*, TOTAL+13*, TOTAL+14 |
| DFN | ENTRY+15, ENTRY+23, ENTRY+24, ENTRY+28, ENTRY+29, ENTRY+46, ENTRY+47, ENTRY+55, TOTAL~, TOTAL+14 , TOTAL+18, TOTAL+22, EM2~, EM2+3, EM1~, EM1+3 |
| END | ENTRY+7~, ENTRY+19*, ENTRY+23, ENTRY+46 |
| EXCEPT | ENTRY+58! |
| FIRST | ENTRY+7~, ENTRY+23*, ENTRY+24, ENTRY+46*, ENTRY+47 |
| FOLLOW | ENTRY+58! |
| IEN | ENTRY+7~ |
| INCL1CT | TOTAL+4~, TOTAL+6*, TOTAL+16*, TOTAL+17 |
| NORMAL | ENTRY+58! |
| NOT1CT | TOTAL+4~, TOTAL+7*, TOTAL+20*, TOTAL+21 |
| PT1 | TOTAL+4~, TOTAL+9*, TOTAL+11*, TOTAL+18, TOTAL+22, TOTAL+23 |
| PTCNT | TOTAL+4~, TOTAL+9*, TOTAL+10*, TOTAL+23 |
| START | ENTRY+7~, ENTRY+19*, ENTRY+23, ENTRY+45*, ENTRY+46 |
| TERMINAL | ENTRY+58! |
| TOTALS | TOTAL+4~, TOTAL+5*, TOTAL+9 |
| U | ENTRY+25, ENTRY+48, ENTRY+50, TOTAL+9, TOTAL+14, TOTAL+18, TOTAL+22, TOTAL+23, TOTAL+25 |
| VDATE | ENTRY+7~ |
| VIEN | ENTRY+7~, ENTRY+24*, ENTRY+25, ENTRY+27, ENTRY+28, ENTRY+29, ENTRY+47*, ENTRY+48, ENTRY+49, EM2~ , EM2+3, EM1~, EM1+3 |
| X | ENTRY+58!, EM2+3*, EM2+4, EM1+3*, EM1+4 |
| Y | ENTRY+58! |
| Name | Field # of Occurrence |
|---|---|
| $T(CPT1+BGPI | EM1+2 |
| $T(CPT2+BGPI | EM2+2 |
| $T(TOBN+BGPI | HFA+15 |
| $T(TOBU+BGPI | HFA+7 |