©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
BGPMUC01 ; IHS/MSC/MGH - MI measure NQF0041 ;02-Mar-2011 11:25;DU
Source file <BGPMUC01.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS GPRA Information System | 3 | ($$PRV,$$VSTCPT)^BGPMUUT1 ($$LASTDX,$$NMIREF,$$REFUSAL,GETIMMS)^BGPMUUT2 $$DATE^BGPMUUTL |
| IHS Patient | 1 | $$DOB^AUPNPAT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FLU(DFN) | ;Find if pt has a visit during the flu season (Sept-Feb)
|
|
| TEST | ; debug target
|
|
| TOTAL(DFN) | ;See where this patient ends up
|
|
| FLUCONT(P,C,BD,ED) | ;EP
|
|
| 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 |
|
| FLUDATES | ; Calculate dates of the most recent flu season
|
| Name | Field # of Occurrence |
|---|---|
| $$DOB^AUPNPAT | ENTRY+72, ENTRY+76, ENTRY+78, ENTRY+80, ENTRY+82, ENTRY+84, ENTRY+86, ENTRY+88, ENTRY+90, ENTRY+93 , ENTRY+95, ENTRY+97, ENTRY+99, ENTRY+101, ENTRY+103, ENTRY+105, ENTRY+107 |
| $$PRV^BGPMUUT1 | ENTRY+23 |
| $$VSTCPT^BGPMUUT1 | ENTRY+25, ENTRY+26, ENTRY+27, ENTRY+28, ENTRY+29, ENTRY+30, ENTRY+31 |
| $$LASTDX^BGPMUUT2 | FLUCONT+3 |
| $$NMIREF^BGPMUUT2 | ENTRY+76, ENTRY+78, ENTRY+80, ENTRY+82, ENTRY+84, ENTRY+86, ENTRY+88, ENTRY+90 |
| $$REFUSAL^BGPMUUT2 | ENTRY+93, ENTRY+95, ENTRY+97, ENTRY+99, ENTRY+101, ENTRY+103, ENTRY+105, ENTRY+107 |
| GETIMMS^BGPMUUT2 | ENTRY+59 |
| $$DATE^BGPMUUTL | ENTRY+40, ENTRY+48, ENTRY+49, ENTRY+68, FLU+7 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVSIT - [#9000010] | ENTRY+34, ENTRY+42, ENTRY+65 |
| ^AUPNVSIT("AA" | ENTRY+20, ENTRY+21 |
| ^AUTTIMM - [#9999999.14] | ENTRY+68 |
| ^AUTTIMM("C" | ENTRY+76, ENTRY+78, ENTRY+80, ENTRY+82, ENTRY+84, ENTRY+86, ENTRY+88, ENTRY+90, ENTRY+93, ENTRY+95 , ENTRY+97, ENTRY+99, ENTRY+101, ENTRY+103, ENTRY+105, ENTRY+107, FLUCONT+5 |
| ^BICONT - [#9002084.81] | FLUCONT+8, FLUCONT+13 |
| ^BIPC - [#9002084.11] | FLUCONT+6, FLUCONT+9, FLUCONT+11, FLUCONT+12 |
| ^BIPC("AC" | FLUCONT+5 |
| ^TMP("BGPMU0041" | TOTAL+2, TOTAL+3, TOTAL+4, TOTAL+5, TOTAL+9*, TOTAL+10*, TOTAL+12*, TOTAL+14*, TOTAL+15*, TOTAL+16* , TOTAL+17* |
| Name | Line Occurrences |
|---|---|
| $$FLU | ENTRY+52 |
| $$FLUCONT | ENTRY+72 |
| FLUDATES | ENTRY+13 |
| TOTAL | ENTRY+109 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACNT | ENTRY+8~, ENTRY+9*, ENTRY+39*, ENTRY+50, ENTRY+111! |
| AENC | ENTRY+8~, ENTRY+25*, ENTRY+33, ENTRY+111! |
| BCNT | ENTRY+8~, ENTRY+9*, ENTRY+47*, ENTRY+50, ENTRY+111! |
| BD | FLUCONT~, FLUCONT+3, FLUCONT+11 |
| BENC | ENTRY+8~, ENTRY+26*, ENTRY+41, ENTRY+111! |
| BGP1 | ENTRY+7~, ENTRY+18*, ENTRY+110! |
| BGP2 | ENTRY+7~, ENTRY+18*, ENTRY+110! |
| >> BGPAGEB | ENTRY+12 |
| >> BGPBDATE | ENTRY+38, ENTRY+46 |
| BGPDEN | ENTRY+7~, ENTRY+10*, ENTRY+54*, ENTRY+110!, TOTAL+12, TOTAL+19 |
| BGPDT | ENTRY+7~, ENTRY+110! |
| >> BGPEDATE | ENTRY+15, ENTRY+38, ENTRY+46, ENTRY+59, ENTRY+72, ENTRY+76, ENTRY+78, ENTRY+80, ENTRY+82, ENTRY+84 , ENTRY+86, ENTRY+88, ENTRY+90, ENTRY+93, ENTRY+95, ENTRY+97, ENTRY+99, ENTRY+101, ENTRY+103, ENTRY+105 , ENTRY+107, FLUDATES+1 |
| >> BGPFLU | ENTRY+52*, ENTRY+53 |
| >> BGPICARE("MU.EP.0041.1" | TOTAL+19* |
| >> BGPMUTF | TOTAL+2, TOTAL+3, TOTAL+4, TOTAL+5, TOTAL+9, TOTAL+10, TOTAL+12, TOTAL+14, TOTAL+15, TOTAL+16 , TOTAL+17, TOTAL+19 |
| BGPNUM | ENTRY+7~, ENTRY+10*, ENTRY+67*, ENTRY+70, ENTRY+110!, TOTAL+13, TOTAL+19 |
| >> BGPPROV | ENTRY+23 |
| BGPX | ENTRY+7~, ENTRY+59!, ENTRY+60, ENTRY+110! |
| BGPX( | ENTRY+62, ENTRY+63 |
| BGPZ | ENTRY+7~, ENTRY+72*, ENTRY+110! |
| C | ENTRY+57*, ENTRY+59, FLUCONT~, FLUCONT+5 |
| CENC | ENTRY+8~, ENTRY+27*, ENTRY+41 |
| >> CPTS | ENTRY+58*, ENTRY+59 |
| D | FLUCONT+1~, FLUCONT+9*, FLUCONT+10, FLUCONT+13, FLUCONT+15! |
| DENC | ENTRY+8~, ENTRY+28*, ENTRY+41 |
| DENCT | TOTAL+1~, TOTAL+4*, TOTAL+12*, TOTAL+20! |
| DFN | ENTRY+20, ENTRY+21, ENTRY+25, ENTRY+26, ENTRY+27, ENTRY+28, ENTRY+29, ENTRY+30, ENTRY+31, ENTRY+52 , ENTRY+59, ENTRY+72, ENTRY+76, ENTRY+78, ENTRY+80, ENTRY+82, ENTRY+84, ENTRY+86, ENTRY+88, ENTRY+90 , ENTRY+93, ENTRY+95, ENTRY+97, ENTRY+99, ENTRY+101, ENTRY+103, ENTRY+105, ENTRY+107, ENTRY+109, FLU~ , TOTAL~, TOTAL+10, TOTAL+15, TOTAL+16 |
| ED | FLUCONT~, FLUCONT+3, FLUCONT+12 |
| EENC | ENTRY+8~, ENTRY+29*, ENTRY+41 |
| END | ENTRY+7~, ENTRY+15*, ENTRY+20, ENTRY+110! |
| EXCCT | TOTAL+1~, TOTAL+3*, TOTAL+9*, TOTAL+20! |
| EXCL | ENTRY+7~, ENTRY+10*, ENTRY+73*, ENTRY+76, ENTRY+77*, ENTRY+78, ENTRY+79*, ENTRY+80, ENTRY+81*, ENTRY+82 , ENTRY+83*, ENTRY+84, ENTRY+85*, ENTRY+86, ENTRY+87*, ENTRY+88, ENTRY+89*, ENTRY+90, ENTRY+91*, ENTRY+93 , ENTRY+94*, ENTRY+95, ENTRY+96*, ENTRY+97, ENTRY+98*, ENTRY+99, ENTRY+100*, ENTRY+101, ENTRY+102*, ENTRY+103 , ENTRY+104*, ENTRY+105, ENTRY+106*, ENTRY+107, ENTRY+108*, ENTRY+110!, TOTAL+8, TOTAL+19 |
| FBDATE | ENTRY+8~, ENTRY+15, ENTRY+66, FLU+5, FLUDATES+2* |
| FDATE | FLU+1~, FLU+4*, FLU+5, FLU+7 |
| FEDATE | ENTRY+8~, ENTRY+66, FLU+5, FLUDATES+1*, FLUDATES+2 |
| FENC | ENTRY+8~, ENTRY+30*, ENTRY+41 |
| FIRST | ENTRY+7~, ENTRY+20*, ENTRY+21, ENTRY+110! |
| FLUCNT | FLU+1~, FLU+2*, FLU+3, FLU+6*, FLU+10 |
| G | ENTRY+8~, ENTRY+75*, ENTRY+76*, ENTRY+77, ENTRY+78*, ENTRY+79, ENTRY+80*, ENTRY+81, ENTRY+82*, ENTRY+83 , ENTRY+84*, ENTRY+85, ENTRY+86*, ENTRY+87, ENTRY+88*, ENTRY+89, ENTRY+90*, ENTRY+91, ENTRY+93*, ENTRY+94 , ENTRY+95*, ENTRY+96, ENTRY+97*, ENTRY+98, ENTRY+99*, ENTRY+100, ENTRY+101*, ENTRY+102, ENTRY+103*, ENTRY+104 , ENTRY+105*, ENTRY+106, ENTRY+107*, ENTRY+108, FLUCONT+1~, FLUCONT+3*, FLUCONT+4, FLUCONT+5*, FLUCONT+13*, FLUCONT+16 |
| GENC | ENTRY+8~, ENTRY+31*, ENTRY+41 |
| GS | ENTRY+111! |
| IEN | ENTRY+7~, ENTRY+21*, ENTRY+23, ENTRY+25, ENTRY+26, ENTRY+27, ENTRY+28, ENTRY+29, ENTRY+30, ENTRY+31 , ENTRY+34, ENTRY+36, ENTRY+42, ENTRY+44, ENTRY+110! |
| IMMC | ENTRY+8~, ENTRY+61*, ENTRY+62*, ENTRY+63 |
| >> IMMD | ENTRY+63*, ENTRY+64, ENTRY+68 |
| >> IMMDATE | ENTRY+65*, ENTRY+66, ENTRY+68 |
| >> IMMV | ENTRY+64*, ENTRY+65 |
| NUM | FLU+1~, FLU+3*, FLU+4 |
| NUMCT | TOTAL+1~, TOTAL+5*, TOTAL+14*, TOTAL+20! |
| P | FLUCONT~, FLUCONT+3, FLUCONT+5 |
| PTCNT | TOTAL+1~, TOTAL+6*, TOTAL+7*, TOTAL+10, TOTAL+15, TOTAL+16, TOTAL+17, TOTAL+20! |
| R | FLUCONT+1~, FLUCONT+6*, FLUCONT+7, FLUCONT+8, FLUCONT+13, FLUCONT+15! |
| START | ENTRY+7~, ENTRY+15*, ENTRY+20, ENTRY+110! |
| STRING | ENTRY+8~, ENTRY+19*, ENTRY+40*, ENTRY+48*, ENTRY+49*, FLU+7*, TOTAL+10, TOTAL+15, TOTAL+16, TOTAL+19 |
| STRING2 | ENTRY+8~, ENTRY+19*, ENTRY+68*, TOTAL+15, TOTAL+16, TOTAL+19 |
| TOTALS | TOTAL+1~, TOTAL+2*, TOTAL+6, TOTAL+20! |
| U | ENTRY+34, ENTRY+36, ENTRY+42, ENTRY+44, ENTRY+64, ENTRY+65, ENTRY+68, ENTRY+77, ENTRY+79, ENTRY+81 , ENTRY+83, ENTRY+85, ENTRY+87, ENTRY+89, ENTRY+91, ENTRY+94, ENTRY+96, ENTRY+98, ENTRY+100, ENTRY+102 , ENTRY+104, ENTRY+106, ENTRY+108, FLUCONT+4, FLUCONT+6, FLUCONT+9, FLUCONT+11, FLUCONT+12, FLUCONT+13, FLU+4 , TOTAL+10, TOTAL+15, TOTAL+16, TOTAL+19 |
| VCNT | ENTRY+8~, ENTRY+9*, ENTRY+35*, ENTRY+36, ENTRY+43*, ENTRY+44 |
| VDATE | ENTRY+7~, ENTRY+34*, ENTRY+36, ENTRY+38, ENTRY+40, ENTRY+42*, ENTRY+44, ENTRY+46, ENTRY+48, ENTRY+49 , ENTRY+110! |
| VIEN | ENTRY+7~, ENTRY+110! |
| VIEN( | ENTRY+36*, ENTRY+44*, FLU+3, FLU+4 |
| X | ENTRY+72*, ENTRY+73, FLUCONT+1~, FLUCONT+5*, FLUCONT+6, FLUCONT+9, FLUCONT+11, FLUCONT+12, FLUCONT+15! |
| Y | FLUCONT+1~, FLUCONT+5*, FLUCONT+15! |