©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
BGPMUAD7 ; IHS/MSC/MGH - Print MI measure NQF0067 and NQF0070 ;13-Jul-2011 12:42;DU
Source file <BGPMUAD7.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS GPRA Information System | 5 | $$ROUND^BGPMUA01 $$DATE^BGPMUAP3 (SUMMARY1,SUMMARY2)^BGPMUAP7 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
|
|
| CADBB | ;EP
|
|
| DATA2(NODE) | ;GET DATA
|
|
| NUM0070(TF) | ;Get the numbers for this measure
|
|
| DATA(NODE) | ;GET DATA
|
|
| CAD1(CNT) | ;EP
|
|
| BETA | ;Write individual measure
|
|
| XML0070 | ;XML output for CAD beta blocker meds
; BGPXML(i)=Population Number^Numerator Number^Denominator Count^exclusion number |
|
| BETA2 | ;Do the Details
|
|
| NUM67(TF) | ;Get the numbers for this measure
|
|
| XML0067 | ;XML output for CAD antiplatelet meds
; BGPXML(i)=Population Number^Numerator Number^Denominator Count^exclusion number |
| Name | Field # of Occurrence |
|---|---|
| $$AGE^AUPNPAT | DATA+5, DATA2+5 |
| $$HRN^AUPNPAT | DATA+4, DATA2+4 |
| $$ROUND^BGPMUA01 | NUM67+10, NUM67+12, NUM67+13, NUM67+14, NUM67+15, NUM0070+10, NUM0070+12, NUM0070+13, NUM0070+14, NUM0070+15 |
| $$DATE^BGPMUAP3 | DATA+10, DATA2+9 |
| SUMMARY1^BGPMUAP7 | P1+7 |
| SUMMARY2^BGPMUAP7 | BETA+5 |
| S^BGPMUDEL | P1+18, P1+20, P1+22, P1+24, P1+26, 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+18, P2+19, P2+41, DATA+11, DATA2+10, BETA+15, BETA+17, BETA+19, BETA+21 , BETA+23, BETA+25, BETA2+2, BETA2+3, BETA2+4, BETA2+5, BETA2+6, BETA2+7, BETA2+8, BETA2+9 , BETA2+10, BETA2+11, BETA2+12, BETA2+13, BETA2+14, BETA2+15, BETA2+16, BETA2+17, BETA2+19, BETA2+41 |
| PTLSORT^BGPMUUTL | P2+22, P2+29, P2+36, BETA2+22, BETA2+29, BETA2+36 |
| $$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("BGPMU0067" | CAD1+2!, NUM67+2, NUM67+3, NUM67+4, NUM67+5, XML0067+8! |
| ^TMP("BGPMU0070" | CADBB+2!, NUM0070+2, NUM0070+3, NUM0070+4, NUM0070+5, XML0070+5! |
| Name | Line Occurrences |
|---|---|
| $$NUM0070 | BETA+2, BETA+3, BETA+4, XML0070+3 |
| $$NUM67 | P1+4, P1+5, P1+6, XML0067+3 |
| BETA | CADBB+1 |
| BETA2 | BETA+26 |
| DATA | P2+33, P2+40 |
| DATA2 | P2+26, BETA2+26, BETA2+33, BETA2+40 |
| P1 | CAD1+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 | NUM67+1~, NUM67+16*, NUM67+17, NUM0070+1~, NUM0070+16*, NUM0070+17 |
| BGPARR | P2+21!, P2+22, P2+28!, P2+29, P2+35!, P2+36, BETA2+21!, BETA2+22, BETA2+28!, BETA2+29 , BETA2+35!, BETA2+36 |
| BGPARR( | P2+23, P2+25, P2+30, P2+32, P2+37, P2+39, BETA2+23, BETA2+25, BETA2+30, BETA2+32 , BETA2+37, BETA2+39 |
| >> BGPED | DATA+5, DATA2+5 |
| >> BGPIC | P1+29, BETA+26 |
| >> BGPLIST | P2+20, P2+27, P2+34, BETA2+20, BETA2+27, BETA2+34 |
| >> BGPLIST( | P1+29, BETA+26 |
| >> BGPXML(1 | XML0067+7*, XML0070+4* |
| BMI | P2+1~ |
| BP | BETA2+1~ |
| CNT | CAD1~ |
| COMM | DATA+1~, DATA+6*, DATA+11, DATA2+1~, DATA2+6*, DATA2+10 |
| DEN | NUM67+1~, NUM67+2*, NUM67+6, NUM67+7, NUM67+8, NUM67+10, NUM67+11, NUM67+13, NUM67+14, NUM67+16 , DATA+1~, DATA+8*, DATA+11, DATA2+1~, DATA2+8*, DATA2+10, BETA+1~, NUM0070+1~, NUM0070+2*, NUM0070+6 , NUM0070+7, NUM0070+8, NUM0070+10, NUM0070+11, NUM0070+13, NUM0070+14, NUM0070+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 | NUM67+1~, NUM67+5*, NUM67+6, NUM67+10, NUM67+14, NUM67+16, NUM0070+1~, NUM0070+5*, NUM0070+6, NUM0070+10 , NUM0070+14, NUM0070+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, BETA2+1~ |
| NNUM | NUM67+1~, NUM67+6*, NUM67+8, NUM67+11, NUM67+12, NUM67+13, NUM67+15, NUM67+16, NUM0070+6*, NUM0070+8 , NUM0070+11, NUM0070+12, NUM0070+13, NUM0070+15, NUM0070+16 |
| NODE | P2+1~, P2+25*, P2+26, P2+32*, P2+33, P2+39*, P2+40, DATA~, DATA+2, DATA+3 , DATA+8, DATA+9, DATA2~, DATA2+2, DATA2+3, DATA2+8, BETA2+1~, BETA2+25*, BETA2+26, BETA2+32* , BETA2+33, BETA2+39*, BETA2+40 |
| NOT | NUM67+1~, NUM67+4*, NUM67+15, NUM67+16, NUM0070+1~, NUM0070+4*, NUM0070+15, NUM0070+16 |
| NUM | NUM67+1~, NUM67+3*, NUM67+12, NUM67+16, DATA+1~, DATA+9*, DATA+10, DATA2+1~, DATA2+8*, DATA2+9 , BETA+1~, NUM0070+1~, NUM0070+3*, NUM0070+12, NUM0070+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 | BETA+1~ |
| PC1 | P1+2~, NUM67+1~, NUM67+7*, NUM67+9*, NUM67+12*, NUM67+16, NUM0070+1~, NUM0070+7*, NUM0070+9*, NUM0070+12* , NUM0070+16 |
| PC11 | NUM67+1~, NUM67+7*, NUM67+9*, NUM67+13*, NUM67+16, NUM0070+7*, NUM0070+9*, NUM0070+13*, NUM0070+16 |
| PC13 | NUM67+1~, NUM67+7*, NUM67+10*, NUM67+14*, NUM67+16, NUM0070+7*, NUM0070+10*, NUM0070+14*, NUM0070+16 |
| PC14 | NUM67+1~, NUM67+7*, NUM67+9*, NUM67+15*, NUM67+16, NUM0070+7*, NUM0070+9*, NUM0070+15*, NUM0070+16 |
| PC2 | P1+2~, NUM67+1~, NUM0070+1~ |
| PC21 | NUM67+1~ |
| PRD | BETA+1~, BETA+6*, BETA+22 |
| PRD1 | P1+3~, P1+9*, P1+25, BETA+1~, BETA+7* |
| PRD2 | P1+3~, P1+10*, BETA+1~, BETA+8* |
| PRD3 | P1+3~, P1+11*, BETA+1~, BETA+9*, BETA+24 |
| PRD4 | P1+3~ |
| PRD5 | P1+3~ |
| PRD6 | P1+3~ |
| PRD7 | P1+3~, P1+12*, P1+27 |
| PRD8 | P1+3~ |
| PRN | BETA+1~, BETA+10*, BETA+22 |
| PRN1 | P1+3~, P1+13*, P1+25, BETA+1~, BETA+11* |
| PRN2 | P1+3~, P1+14*, BETA+12* |
| PRN3 | P1+3~, P1+15*, BETA+1~, BETA+13*, BETA+24 |
| PRN4 | P1+3~ |
| PRN5 | P1+3~ |
| PRN6 | P1+3~ |
| PRN7 | P1+3~, P1+16*, P1+27 |
| PRN8 | P1+3~ |
| PT | P2+1~, P2+23*, P2+25, P2+30*, P2+32, P2+37*, P2+39, BETA2+1~, BETA2+23*, BETA2+25 , BETA2+30*, BETA2+32, BETA2+37*, BETA2+39 |
| PTCT | P2+1~, P2+2*, P2+24*, P2+31*, P2+38*, P2+41, BETA2+1~, BETA2+18*, BETA2+24*, BETA2+31* , BETA2+38*, BETA2+41 |
| SEX | DATA+1~, DATA+7*, DATA+11, DATA2+1~, DATA2+7*, DATA2+10 |
| STRING | XML0067+2~, XML0067+3*, XML0067+4, XML0067+5, XML0067+6, XML0070+2~, XML0070+3*, XML0070+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+21, P1+23, P1+25, P1+27, BETA+1~, BETA+2*, BETA+5, BETA+6 , BETA+7, BETA+8, BETA+9, BETA+10, BETA+11, BETA+12, BETA+13, BETA+16, BETA+18, BETA+20 , BETA+22, BETA+24 |
| STRING2 | P1+2~, P1+5*, P1+7, P1+9, P1+10, P1+11, P1+12, P1+19, P1+21, P1+23 , P1+25, P1+27, BETA+1~, BETA+3*, BETA+5, BETA+6, BETA+7, BETA+8, BETA+9, BETA+16 , BETA+18, BETA+20, BETA+22, BETA+24 |
| STRING3 | P1+2~, P1+6*, P1+7, P1+13, P1+14, P1+15, P1+16, P1+19, P1+21, P1+23 , P1+25, P1+27, BETA+4*, BETA+5, BETA+10, BETA+11, BETA+12, BETA+13, BETA+16, BETA+18 , BETA+20, BETA+22, BETA+24 |
| TF | NUM67~, NUM67+2, NUM67+3, NUM67+4, NUM67+5, NUM0070~, NUM0070+2, NUM0070+3, NUM0070+4, NUM0070+5 |
| TOTD | XML0067+2~, XML0067+4*, XML0067+7 |
| TOTE | XML0067+2~, XML0067+6*, XML0067+7 |
| TOTN | XML0067+2~, XML0067+5*, XML0067+7 |
| U | P1+9, P1+10, P1+11, P1+12, P1+13, P1+14, P1+15, P1+16, P1+17, P1+19 , P1+21, P1+23, P1+25, P1+27, NUM67+16, P2+19, DATA+2, DATA+3, DATA+7, DATA+8 , DATA+9, DATA+11, DATA2+2, DATA2+3, DATA2+7, DATA2+8, DATA2+10, BETA+6, BETA+7, BETA+8 , BETA+9, BETA+10, BETA+11, BETA+12, BETA+13, BETA+14, BETA+16, BETA+18, BETA+20, BETA+22 , BETA+24, NUM0070+16, BETA2+19, XML0067+4, XML0067+5, XML0067+6, XML0067+7, XML0070+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+18* , P2+19*, P2+41*, DATA+11*, DATA2+10*, BETA+1~, BETA+14*, BETA+15, BETA+16*, BETA+17, BETA+18* , BETA+19, BETA+20*, BETA+21, BETA+22*, BETA+23, BETA+24*, BETA+25, BETA2+2*, BETA2+3*, BETA2+4* , BETA2+5*, BETA2+6*, BETA2+7*, BETA2+8*, BETA2+9*, BETA2+10*, BETA2+11*, BETA2+12*, BETA2+13*, BETA2+14* , BETA2+15*, BETA2+16*, BETA2+17*, BETA2+19*, BETA2+41* |
| Y | P1+1~, BETA+1~ |
| Z | P1+1~, BETA+1~ |