©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
BGPMUAD5 ; IHS/MSC/MGH - Print MI measure NQF0059 and NQF0575 ;07-Jul-2011 14:18;DU
Source file <BGPMUAD5.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS GPRA Information System | 5 | $$ROUND^BGPMUA01 $$DATE^BGPMUAP3 (SUMMARY1,SUMMARY2)^BGPMUAP5 S^BGPMUDEL PTLSORT^BGPMUUTL |
| IHS Patient | 1 | ($$AGE,$$HRN)^AUPNPAT |
| VA Fileman | 1 | $$GET1^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| P2 | ;Do the Details
|
|
| P1 | ;Write individual measure
|
|
| HIHGBA1C(CNT) | ;EP
|
|
| NUM0575(TF) | ;Get the numbers for this measure
|
|
| NUM59(TF) | ;Get the numbers for this measure
|
|
| A1C2 | ;Do the Details
|
|
| DATA2(NODE) | ;GET DATA
|
|
| DATA(NODE) | ;GET DATA
|
|
| XML0059 | ;XML output for diabetes HGBa1c>9.0
; BGPXML(i)=Population Number^Numerator Number^Denominator Count^exclusion number |
|
| LOHGBA1C | ;EP
|
|
| XML0575 | ;XML output for diabetes HGBA1C<8.0
; BGPXML(i)=Population Number^Numerator Number^Denominator Count^exclusion number |
|
| A1C | ;Write individual measure
|
| Name | Field # of Occurrence |
|---|---|
| $$AGE^AUPNPAT | DATA+5, DATA2+5 |
| $$HRN^AUPNPAT | DATA+4, DATA2+4 |
| $$ROUND^BGPMUA01 | NUM59+10, NUM59+12, NUM59+13, NUM59+14, NUM59+15, NUM0575+10, NUM0575+12, NUM0575+13, NUM0575+14, NUM0575+15 |
| $$DATE^BGPMUAP3 | DATA+10, DATA2+9 |
| SUMMARY1^BGPMUAP5 | P1+7 |
| SUMMARY2^BGPMUAP5 | A1C+5 |
| S^BGPMUDEL | P1+18, P1+19, P1+21, P1+23, P1+25, P1+27, P1+28, P2+3, P2+4, P2+5 , P2+6, P2+7, P2+8, P2+9, P2+10, P2+11, P2+12, P2+13, P2+14, P2+15 , P2+16, P2+17, P2+39, DATA+11, DATA2+10, A1C+13, A1C+15, A1C+17, A1C+19, A1C+21 , A1C+23, A1C+24, A1C2+2, A1C2+3, A1C2+4, A1C2+5, A1C2+6, A1C2+7, A1C2+8, A1C2+9 , A1C2+10, A1C2+11, A1C2+12, A1C2+13, A1C2+14, A1C2+15, A1C2+16, A1C2+18, A1C2+40 |
| PTLSORT^BGPMUUTL | P2+20, P2+27, P2+34, A1C2+21, A1C2+28, A1C2+35 |
| $$GET1^DIQ | DATA+3, DATA+6, DATA2+3, DATA2+6 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^AUPNPAT - [#9000001] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | DATA+7, DATA2+7 |
| ^TMP("BGPMU0059" | HIHGBA1C+2!, NUM59+2, NUM59+3, NUM59+4, NUM59+5, XML0059+8! |
| ^TMP("BGPMU0575" | LOHGBA1C+2!, NUM0575+2, NUM0575+3, NUM0575+4, NUM0575+5, XML0575+5! |
| Name | Line Occurrences |
|---|---|
| $$NUM0575 | A1C+2, A1C+3, A1C+4, XML0575+3 |
| $$NUM59 | P1+4, P1+5, P1+6, XML0059+3 |
| A1C | LOHGBA1C+1 |
| A1C2 | A1C+25 |
| DATA | P2+31, P2+38 |
| DATA2 | P2+24, A1C2+25, A1C2+32, A1C2+39 |
| P1 | HIHGBA1C+1 |
| P2 | P1+29 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AGE | DATA+1~, DATA+5*, DATA+11, DATA2+1~, DATA2+5*, DATA2+10 |
| ARRAY | NUM59+1~, NUM59+16*, NUM59+17, NUM0575+1~, NUM0575+16*, NUM0575+17 |
| BGPARR | P2+19!, P2+20, P2+26!, P2+27, P2+33!, P2+34, A1C2+20!, A1C2+21, A1C2+27!, A1C2+28 , A1C2+34!, A1C2+35 |
| BGPARR( | P2+21, P2+23, P2+28, P2+30, P2+35, P2+37, A1C2+22, A1C2+24, A1C2+29, A1C2+31 , A1C2+36, A1C2+38 |
| >> BGPED | DATA+5, DATA2+5 |
| >> BGPIC | P1+29, A1C+25 |
| >> BGPLIST | P2+18, P2+25, P2+32, A1C2+19, A1C2+26, A1C2+33 |
| >> BGPLIST( | P1+29, A1C+25 |
| >> BGPXML(1 | XML0059+7*, XML0575+4* |
| BMI | P2+1~ |
| BP | A1C2+1~ |
| CNT | HIHGBA1C~ |
| COMM | DATA+1~, DATA+6*, DATA+11, DATA2+1~, DATA2+6*, DATA2+10 |
| DEN | NUM59+1~, NUM59+2*, NUM59+6, NUM59+7, NUM59+8, NUM59+10, NUM59+11, NUM59+13, NUM59+14, NUM59+16 , DATA+1~, DATA+8*, DATA+11, DATA2+1~, DATA2+8*, DATA2+10, A1C+1~, NUM0575+1~, NUM0575+2*, NUM0575+6 , NUM0575+7, NUM0575+8, NUM0575+10, NUM0575+11, NUM0575+13, NUM0575+14, NUM0575+16 |
| DEN1 | P1+2~ |
| DEN2 | P1+2~ |
| DFN | DATA+1~, DATA+2*, DATA+4, DATA+5, DATA+6, DATA+7, DATA2+1~, DATA2+2*, DATA2+4, DATA2+5 , DATA2+6, DATA2+7 |
| DUZ(2 | DATA+4, DATA2+4 |
| EXC | NUM59+1~, NUM59+5*, NUM59+6, NUM59+10, NUM59+14, NUM59+16, NUM0575+1~, NUM0575+5*, NUM0575+6, NUM0575+10 , NUM0575+14, NUM0575+16 |
| EXC1 | P1+2~ |
| EXC2 | P1+2~ |
| FOL | P2+1~ |
| HRN | DATA+1~, DATA+4*, DATA+11, DATA2+1~, DATA2+4*, DATA2+10 |
| LIST1 | P1+1~ |
| LIST2 | P1+1~ |
| LIST3 | P1+1~ |
| NAME | P2+1~, DATA+1~, DATA+3*, DATA+11, DATA2+1~, DATA2+3*, DATA2+10, A1C2+1~ |
| NNUM | NUM59+1~, NUM59+6*, NUM59+8, NUM59+11, NUM59+12, NUM59+13, NUM59+15, NUM59+16, NUM0575+6*, NUM0575+8 , NUM0575+11, NUM0575+12, NUM0575+13, NUM0575+15, NUM0575+16 |
| NODE | P2+1~, P2+23*, P2+24, P2+30*, P2+31, P2+37*, P2+38, DATA~, DATA+2, DATA+3 , DATA+8, DATA+9, DATA2~, DATA2+2, DATA2+3, DATA2+8, A1C2+1~, A1C2+24*, A1C2+25, A1C2+31* , A1C2+32, A1C2+38*, A1C2+39 |
| NOT | NUM59+1~, NUM59+4*, NUM59+15, NUM59+16, NUM0575+1~, NUM0575+4*, NUM0575+15, NUM0575+16 |
| NUM | NUM59+1~, NUM59+3*, NUM59+12, NUM59+16, DATA+1~, DATA+9*, DATA+10, DATA2+1~, DATA2+8*, DATA2+9 , A1C+1~, NUM0575+1~, NUM0575+3*, NUM0575+12, NUM0575+16 |
| NUM1 | P1+2~, DATA+1~, DATA+10*, DATA+11, DATA2+1~, DATA2+9*, DATA2+10 |
| NUM2 | P1+2~, DATA+1~, DATA+10*, DATA+11, DATA2+1~, DATA2+9*, DATA2+10 |
| PC | A1C+1~ |
| PC1 | P1+2~, NUM59+1~, NUM59+7*, NUM59+9*, NUM59+12*, NUM59+16, NUM0575+1~, NUM0575+7*, NUM0575+9*, NUM0575+12* , NUM0575+16 |
| PC11 | NUM59+1~, NUM59+7*, NUM59+9*, NUM59+13*, NUM59+16, NUM0575+7*, NUM0575+9*, NUM0575+13*, NUM0575+16 |
| PC13 | NUM59+1~, NUM59+7*, NUM59+10*, NUM59+14*, NUM59+16, NUM0575+7*, NUM0575+10*, NUM0575+14*, NUM0575+16 |
| PC14 | NUM59+1~, NUM59+7*, NUM59+9*, NUM59+15*, NUM59+16, NUM0575+7*, NUM0575+9*, NUM0575+15*, NUM0575+16 |
| PC2 | P1+2~, NUM59+1~, NUM0575+1~ |
| PC21 | NUM59+1~ |
| PRD | A1C+1~ |
| PRD1 | P1+3~, P1+9*, P1+24, A1C+1~, A1C+6*, A1C+20 |
| PRD2 | P1+3~, P1+10*, A1C+1~, A1C+7* |
| PRD3 | P1+3~, P1+11*, A1C+1~, A1C+8*, A1C+22 |
| PRD4 | P1+3~ |
| PRD5 | P1+3~ |
| PRD6 | P1+3~ |
| PRD7 | P1+3~, P1+12*, P1+26 |
| PRD8 | P1+3~ |
| PRN | A1C+1~ |
| PRN1 | P1+3~, P1+13*, P1+24, A1C+1~, A1C+9*, A1C+20 |
| PRN2 | P1+3~, P1+14*, A1C+10* |
| PRN3 | P1+3~, P1+15*, A1C+1~, A1C+11*, A1C+22 |
| PRN4 | P1+3~ |
| PRN5 | P1+3~ |
| PRN6 | P1+3~ |
| PRN7 | P1+3~, P1+16*, P1+26 |
| PRN8 | P1+3~ |
| PT | P2+1~, P2+21*, P2+23, P2+28*, P2+30, P2+35*, P2+37, A1C2+1~, A1C2+22*, A1C2+24 , A1C2+29*, A1C2+31, A1C2+36*, A1C2+38 |
| PTCT | P2+1~, P2+2*, P2+22*, P2+29*, P2+36*, P2+39, A1C2+1~, A1C2+17*, A1C2+23*, A1C2+30* , A1C2+37*, A1C2+40 |
| SEX | DATA+1~, DATA+7*, DATA+11, DATA2+1~, DATA2+7*, DATA2+10 |
| STRING | XML0059+2~, XML0059+3*, XML0059+4, XML0059+5, XML0059+6, XML0575+2~, XML0575+3*, XML0575+4 |
| STRING1 | P1+2~, P1+4*, P1+7, P1+9, P1+10, P1+11, P1+12, P1+13, P1+14, P1+15 , P1+16, P1+19, P1+20, P1+22, P1+24, P1+26, A1C+1~, A1C+2*, A1C+5, A1C+6 , A1C+7, A1C+8, A1C+9, A1C+10, A1C+11, A1C+14, A1C+16, A1C+18, A1C+20, A1C+22 |
| STRING2 | P1+2~, P1+5*, P1+7, P1+9, P1+10, P1+11, P1+12, P1+19, P1+20, P1+22 , P1+24, P1+26, A1C+1~, A1C+3*, A1C+5, A1C+6, A1C+7, A1C+8, A1C+14, A1C+16 , A1C+18, A1C+20, A1C+22 |
| STRING3 | P1+2~, P1+6*, P1+7, P1+13, P1+14, P1+15, P1+16, P1+19, P1+20, P1+22 , P1+24, P1+26, A1C+4*, A1C+5, A1C+9, A1C+10, A1C+11, A1C+14, A1C+16, A1C+18 , A1C+20, A1C+22 |
| TF | NUM59~, NUM59+2, NUM59+3, NUM59+4, NUM59+5, NUM0575~, NUM0575+2, NUM0575+3, NUM0575+4, NUM0575+5 |
| TOTD | XML0059+2~, XML0059+4*, XML0059+7 |
| TOTE | XML0059+2~, XML0059+6*, XML0059+7 |
| TOTN | XML0059+2~, XML0059+5*, XML0059+7 |
| U | P1+9, P1+10, P1+11, P1+12, P1+13, P1+14, P1+15, P1+16, P1+17, P1+19 , P1+20, P1+22, P1+24, P1+26, NUM59+16, P2+17, DATA+2, DATA+3, DATA+7, DATA+8 , DATA+9, DATA+11, DATA2+2, DATA2+3, DATA2+7, DATA2+8, DATA2+10, A1C+6, A1C+7, A1C+8 , A1C+9, A1C+10, A1C+11, A1C+12, A1C+14, A1C+16, A1C+18, A1C+20, A1C+22, NUM0575+16 , A1C2+18, XML0059+4, XML0059+5, XML0059+6, XML0059+7, XML0575+4 |
| VST | P2+1~ |
| X | P1+1~, P1+17*, P1+18, P1+19*, P1+20*, P1+21, P1+22*, P1+23, P1+24*, P1+25 , P1+26*, P1+27, P1+28*, P2+1~, P2+3*, P2+4*, P2+5*, P2+6*, P2+7*, P2+8* , P2+9*, P2+10*, P2+11*, P2+12*, P2+13*, P2+14*, P2+15*, P2+16*, P2+17*, P2+39* , DATA+11*, DATA2+10*, A1C+1~, A1C+12*, A1C+13, A1C+14*, A1C+15, A1C+16*, A1C+17, A1C+18* , A1C+19, A1C+20*, A1C+21, A1C+22*, A1C+23, A1C+24*, A1C2+2*, A1C2+3*, A1C2+4*, A1C2+5* , A1C2+6*, A1C2+7*, A1C2+8*, A1C2+9*, A1C2+10*, A1C2+11*, A1C2+12*, A1C2+13*, A1C2+14*, A1C2+15* , A1C2+16*, A1C2+18*, A1C2+40* |
| Y | P1+1~, A1C+1~ |
| Z | P1+1~, A1C+1~ |