©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
BGPMUGD6 ; IHS/MSC/MMT - MU EP measures NQF0004 ;20-Aug-2011 11:26;DU
Source file <BGPMUGD6.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS GPRA Information System | 3 | S^BGPMUDEL (,NUM04,SUMMARY1)^BGPMUGP6 PTLSORT^BGPMUUTL |
| IHS Patient | 1 | ($$AGE,$$HRN)^AUPNPAT |
| VA Fileman | 1 | $$GET1^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| P2 | ;Do the Details
|
|
| P1SUBN2(POP) | ;display numbers for NUM 2
|
|
| P1 | ;Write individual measure
|
|
| DATA(NODE) | ;GET DATA
|
|
| LISTSUB(POP,NUM) | ;write out patient list for given population
|
|
| P1SUBN1(POP) | ;display numbers for NUM 1
|
|
| P1SUBDEN(POP) | ;display lines for denominator
|
|
| ALCDRUG | ;EP
|
|
| P1TEXT | ;Text lines for output
|
| Name | Field # of Occurrence |
|---|---|
| $$AGE^AUPNPAT | DATA+5 |
| $$HRN^AUPNPAT | DATA+4 |
| S^BGPMUDEL | P1+9, P1SUBDEN+2, P1SUBDEN+4, P1SUBN1+6, P1SUBN1+8, P1SUBN1+10, P1SUBN2+6, P1SUBN2+9, P1SUBN2+12, P2+2 , 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+20, P2+23, P2+25, LISTSUB+16, DATA+10 |
| ^BGPMUGP6 | P2+19, P2+22 |
| NUM04^BGPMUGP6 | P1+4, P1+5, P1+6 |
| SUMMARY1^BGPMUGP6 | P1+7 |
| PTLSORT^BGPMUUTL | LISTSUB+4, LISTSUB+11 |
| $$GET1^DIQ | DATA+3, DATA+6 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^AUPNCHS - [#9000047] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | DATA+7 |
| ^TMP("BGPMU0004" | ALCDRUG+2! |
| Name | Line Occurrences |
|---|---|
| DATA | LISTSUB+8, LISTSUB+15 |
| LISTSUB | P2+26 |
| P1 | ALCDRUG+1 |
| P1SUBDEN | P1+11 |
| P1SUBN1 | P1+12 |
| P1SUBN2 | P1+13 |
| P2 | P1+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AGE | DATA+1~, DATA+5*, DATA+10 |
| BGPARR | P2+1~, LISTSUB+3!, LISTSUB+4, LISTSUB+10!, LISTSUB+11 |
| BGPARR( | LISTSUB+5, LISTSUB+7, LISTSUB+12, LISTSUB+14 |
| >> BGPED | DATA+5 |
| >> BGPIC | P1+14 |
| >> BGPLIST | LISTSUB+2, LISTSUB+9 |
| >> BGPLIST( | P1+14 |
| BMI | P2+1~ |
| COMM | DATA+1~, DATA+6*, DATA+10 |
| DEN | DATA+1~, DATA+8*, DATA+10 |
| DEN1 | P1+2~ |
| DEN2 | P1+2~ |
| DFN | DATA+1~, DATA+2*, DATA+4, DATA+5, DATA+6, DATA+7 |
| DUZ(2 | DATA+4 |
| FOL | P2+1~ |
| HRN | DATA+1~, DATA+4*, DATA+10 |
| >> I | P2+18*, P2+26 |
| >> J | P2+21*, P2+26 |
| LINE | P2+1~ |
| LIST1 | P1+1~ |
| LIST2 | P1+1~ |
| LIST3 | P1+1~ |
| NAME | P2+1~, DATA+1~, DATA+3*, DATA+10 |
| NODE | P2+1~, LISTSUB+7*, LISTSUB+8, LISTSUB+14*, LISTSUB+15, DATA~, DATA+2, DATA+3, DATA+8, DATA+9 |
| NUM | LISTSUB~, LISTSUB+4, LISTSUB+11, DATA+1~, DATA+9*, DATA+10 |
| NUM1 | P1+2~, DATA+1~ |
| NUM2 | P1+2~, DATA+1~ |
| POP | P1+3~, P1+10*, P1+11, P1+12, P1+13, P1SUBDEN~, P1SUBDEN+1, P1SUBDEN+3, P1SUBN1~, P1SUBN1+1 , P1SUBN1+2, P1SUBN1+3, P1SUBN1+4, P1SUBN1+7, P1SUBN1+9, P1SUBN2~, P1SUBN2+1, P1SUBN2+2, P1SUBN2+3, P1SUBN2+4 , P1SUBN2+7, P1SUBN2+8, P1SUBN2+10, P1SUBN2+11, LISTSUB~, LISTSUB+4, LISTSUB+11 |
| PRD1 | P1+3~, P1SUBN1+1*, P1SUBN1+7, P1SUBN2+1*, P1SUBN2+8 |
| PRD4 | P1+3~, P1SUBN1+2*, P1SUBN1+9, P1SUBN2+2*, P1SUBN2+11 |
| PRN1 | P1+3~, P1SUBN1+3*, P1SUBN1+7, P1SUBN2+3*, P1SUBN2+8 |
| PRN4 | P1+3~, P1SUBN1+4*, P1SUBN1+9, P1SUBN2+4*, P1SUBN2+11 |
| PT | P2+1~, LISTSUB+5*, LISTSUB+7, LISTSUB+12*, LISTSUB+14 |
| PTCT | P2+1~, LISTSUB+1*, LISTSUB+6*, LISTSUB+13*, LISTSUB+16 |
| SEX | DATA+1~, DATA+7*, DATA+10 |
| STRING1 | P1+2~, P1+4, P1+7 |
| STRING1( | P1SUBDEN+3, P1SUBN1+1, P1SUBN1+2, P1SUBN1+3, P1SUBN1+4, P1SUBN1+7, P1SUBN1+9, P1SUBN2+1, P1SUBN2+2, P1SUBN2+3 , P1SUBN2+4, P1SUBN2+7, P1SUBN2+10 |
| STRING2 | P1+2~, P1+5, P1+7 |
| STRING2( | P1SUBDEN+3, P1SUBN1+1, P1SUBN1+2, P1SUBN1+7, P1SUBN1+9, P1SUBN2+1, P1SUBN2+2, P1SUBN2+7, P1SUBN2+10, P1SUBN2+11 |
| STRING3 | P1+2~, P1+6, P1+7 |
| STRING3( | P1SUBDEN+3, P1SUBN1+3, P1SUBN1+4, P1SUBN1+7, P1SUBN1+9, P1SUBN2+3, P1SUBN2+4, P1SUBN2+8, P1SUBN2+11 |
| U | P1+8, P1SUBDEN+3, P1SUBN1+1, P1SUBN1+2, P1SUBN1+3, P1SUBN1+4, P1SUBN1+7, P1SUBN1+9, P1SUBN2+1, P1SUBN2+2 , P1SUBN2+3, P1SUBN2+4, P1SUBN2+7, P1SUBN2+8, P1SUBN2+10, P1SUBN2+11, P2+24, DATA+2, DATA+3, DATA+7 , DATA+8, DATA+9, DATA+10 |
| VST | P2+1~ |
| X | P1+1~, P1+8*, P1+9, P1SUBDEN+1*, P1SUBDEN+2, P1SUBDEN+3*, P1SUBDEN+4, P1SUBN1+5*, P1SUBN1+6, P1SUBN1+7* , P1SUBN1+8, P1SUBN1+9*, P1SUBN1+10, P1SUBN2+5*, P1SUBN2+6, P1SUBN2+7*, P1SUBN2+8*, P1SUBN2+9, P1SUBN2+10*, P1SUBN2+11* , P1SUBN2+12, P2+1~, P2+2*, 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+19*, P2+20 , P2+22*, P2+23, P2+24*, P2+25, LISTSUB+16*, DATA+10* |
| Y | P1+1~ |
| Z | P1+1~ |
| Name | Field # of Occurrence |
|---|---|
| $T(LISTDEN+J^BGPMUGP6 | P2+22 |
| $T(LISTNUM+I^BGPMUGP6 | P2+19 |
| $T(P1TEXT+POP | P1SUBDEN+3 |