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 |