Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BGPMUGP6

Package: IHS GPRA Information System

Routine: BGPMUGP6


Information

BGPMUGP6 ; IHS/MSC/MMT - Print MU EP measures NQF0004 ;20-Aug-2011 11:27;DU

Source Information

Source file <BGPMUGP6.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
IHS GPRA Information System 4 $$ROUND^BGPMUA01  (HDRBLK,HEADER,HEADERL)^BGPMUPH  W^BGPMUPP  PTLSORT^BGPMUUTL  
IHS Patient 1 ($$AGE,$$HRN)^AUPNPAT  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS GPRA Information System 1 BGPMUGD6  

Entry Points

Name Comments DBIA/ICR reference
P2 ;Do the Details
P1SUBN2(POP) ;display numbers for NUM 2
P1 ;Write individual measure
NUM04(TF,ARRAY) ;Get the numbers for this measure
LISTNUM ;Numerator line text
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
SUMMARY1(STRING1,STRING2,STRING3) ;Summmary setup
P1TEXT ;Text lines for output
DATA(NODE) ;GET DATA
LISTDEN ;Denominator line text
XML04 ;Populate the BGPXML array with data for each population/numerator
; BGPXMLOUT(i)=PQRI number^""^Denominator Count^Numerator Count^Exclusion Count
NUMSUB(POP) ;pull numbers out of temp global

External References

Name Field # of Occurrence
$$AGE^AUPNPAT DATA+5
$$HRN^AUPNPAT DATA+4
$$ROUND^BGPMUA01 NUMSUB+11, NUMSUB+12, NUMSUB+13, NUMSUB+14
HDRBLK^BGPMUPH P1+11, P1SUBDEN+1, P1SUBN1+5, P1SUBN2+5
HEADER^BGPMUPH P1+10, P1SUBDEN+1, P1SUBN1+5, P1SUBN2+5
HEADERL^BGPMUPH P2+2, P2+20, DATA+13
W^BGPMUPP 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
PTLSORT^BGPMUUTL LISTSUB+4, LISTSUB+11
$$GET1^DIQ DATA+3, DATA+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Denominator "_POP_":"
  • Line Location: P1SUBDEN+2
Function Call: WRITE
  • Prompt: !!,$P($T(P1TEXT+POP),";;",2),?33,$P(STRING1(POP),U,1),?44,$P(STRING2(POP),U,1),?64,$P(STRING3(POP),U,1)
  • Line Location: P1SUBDEN+3
Function Call: WRITE
  • Prompt: !,"drug dependence"
  • Line Location: P1SUBDEN+4
Function Call: WRITE
  • Prompt: !!,"Numerator 1"
  • Line Location: P1SUBN1+6
Function Call: WRITE
  • Prompt: !!,"# w/first treatment",?33,$P(STRING1(POP),U,2),?38,$J($P(STRING1(POP),U,5),5,1),?44,$P(STRING2(POP),U,2)
  • Line Location: P1SUBN1+7
Function Call: WRITE
  • Prompt: ?49,$J($P(STRING2(POP),U,5),5,1),?56,$J($FN(PRD1,",+",1),6),?64,$P(STRING3(POP),U,2),?68,$J($P(STRING3(POP),U,5),5,1),?74,$J($FN(PRN1,",+",1),6)
  • Line Location: P1SUBN1+8
Function Call: WRITE
  • Prompt: !,"# w/o first treatment",?33,$P(STRING1(POP),U,6),?38,$J($P(STRING1(POP),U,7),5,1),?44,$P(STRING2(POP),U,6)
  • Line Location: P1SUBN1+9
Function Call: WRITE
  • Prompt: ?49,$J($P(STRING2(POP),U,7),5,1),?56,$J($FN(PRD4,",+",1),6),?64,$P(STRING3(POP),U,6),?68,$J($P(STRING3(POP),U,7),5,1),?74,$J($FN(PRN4,",+",1),6)
  • Line Location: P1SUBN1+10
Function Call: WRITE
  • Prompt: !!,"Numerator 2"
  • Line Location: P1SUBN2+6
Function Call: WRITE
  • Prompt: !!,"# w/2 treatments within",?33,$P(STRING1(POP),U,8),?38,$J($P(STRING1(POP),U,9),5,1),?44,$P(STRING2(POP),U,8)
  • Line Location: P1SUBN2+7
Function Call: WRITE
  • Prompt: ?49,$J($P(STRING2(POP),U,9),5,1),?56,$J($FN(PRD1,",+",1),6),?64,$P(STRING3(POP),U,8),?68,$J($P(STRING3(POP),U,9),5,1),?74,$J($FN(PRN1,",+",1),6)
  • Line Location: P1SUBN2+8
Function Call: WRITE
  • Prompt: !,"30 days"
  • Line Location: P1SUBN2+9
Function Call: WRITE
  • Prompt: !,"# w/o 2 treatments within",?33,$P(STRING1(POP),U,10),?38,$J($P(STRING1(POP),U,11),5,1),?44,$P(STRING2(POP),U,10)
  • Line Location: P1SUBN2+10
Function Call: WRITE
  • Prompt: ?49,$J($P(STRING2(POP),U,11),5,1),?56,$J($FN(PRD4,",+",1),6),?64,$P(STRING3(POP),U,10),?68,$J($P(STRING3(POP),U,11),5,1),?74,$J($FN(PRN4,",+",1),6)
  • Line Location: P1SUBN2+11
Function Call: WRITE
  • Prompt: !,"30 days or no first treatment"
  • Line Location: P1SUBN2+12
Function Call: WRITE
  • Prompt: !!,"Total # of patients on list: "_PTCT
  • Line Location: LISTSUB+16
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: DATA+15
Function Call: WRITE
  • Prompt: !,NAME,?23,HRN,?30,COMM,?43,SEX,?46,AGE,?50,DEN1,?65,NUM1
  • Line Location: DATA+16
Function Call: WRITE
  • Prompt: !,?50,$P(DEN,";",I),?67,$P(NUM,";",I)
  • Line Location: DATA+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^AUPNPAT - [#9000001] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DATA+11
^TMP("BGPMU SUMMARY" SUMMARY1+2!, SUMMARY1+3*, SUMMARY1+7*, SUMMARY1+12*, SUMMARY1+17*, SUMMARY1+22*, SUMMARY1+27*, SUMMARY1+32*
^TMP("BGPMU0004" ALCDRUG+2!, NUMSUB+1, NUMSUB+2, NUMSUB+3, NUMSUB+4, NUMSUB+5, XML04+2, XML04+3, XML04+4!

Label References

Name Line Occurrences
$$NUMSUB NUM04+2
DATA LISTSUB+8, LISTSUB+15
LISTSUB P2+26
NUM04 P1+6, P1+7, P1+8
P1 ALCDRUG+1
P1SUBDEN P1+13
P1SUBN1 P1+14
P1SUBN2 P1+15
P2 P1+16
SUMMARY1 P1+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGE DATA+1~, DATA+5*, DATA+16
ARRAY NUM04~
ARRAY( NUM04+2*
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+16, SUMMARY1+2, SUMMARY1+3, SUMMARY1+7, SUMMARY1+12, SUMMARY1+17, SUMMARY1+22, SUMMARY1+27, SUMMARY1+32
>> BGPIOSL P1SUBDEN+1, P1SUBN1+5, P1SUBN2+5, P2+20, DATA+12
>> BGPLIST LISTSUB+2, LISTSUB+9
>> BGPLIST( P1+16
>> BGPPTYPE 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
>> BGPQUIT P1+10, P1SUBDEN+1, P1SUBN1+5, P1SUBN2+5, P2+20, DATA+13
>> BGPXML(1 XML04+2*
>> BGPXML(2 XML04+3*
BMI P2+1~
COMM DATA+1~, DATA+10*, DATA+16
DEN DATA+1~, DATA+6*, DATA+7, DATA+17, DATA+19
DEN1 P1+2~, DATA+1~, DATA+7*, DATA+16
DEN2 P1+2~
DENLEN DATA+1~, DATA+17*, DATA+18
DENTOT NUM04+1~, NUMSUB+1*, NUMSUB+6, NUMSUB+7, NUMSUB+8, NUMSUB+10, NUMSUB+16
DESC SUMMARY1+1~, SUMMARY1+4*, SUMMARY1+5, SUMMARY1+9*, SUMMARY1+10, SUMMARY1+14*, SUMMARY1+15, SUMMARY1+19*, SUMMARY1+20, SUMMARY1+24*
, SUMMARY1+25, SUMMARY1+29*, SUMMARY1+30
DFN DATA+1~, DATA+2*, DATA+4, DATA+5, DATA+10, DATA+11
DUZ(2 DATA+4
FINALDEN NUM04+1~, NUMSUB+6*, NUMSUB+8, NUMSUB+10, NUMSUB+11, NUMSUB+12, NUMSUB+13, NUMSUB+14, NUMSUB+16
FOL P2+1~
HRN DATA+1~, DATA+4*, DATA+16
I NUM04+1~, NUM04+2*, P2+1~, P2+19*, P2+26, DATA+1~, DATA+19*
J P2+1~, P2+22*, P2+26
LINE P2+1~, P2+18*, P2+25, DATA+1~, DATA+15*, SUMMARY1+1~, SUMMARY1+5*, SUMMARY1+6*, SUMMARY1+7, SUMMARY1+10*
, SUMMARY1+11*, SUMMARY1+12, SUMMARY1+15*, SUMMARY1+16*, SUMMARY1+17, SUMMARY1+20*, SUMMARY1+21*, SUMMARY1+22, SUMMARY1+25*, SUMMARY1+26*
, SUMMARY1+27, SUMMARY1+30*, SUMMARY1+31*, SUMMARY1+32
LIST1 P1+1~
LIST2 P1+1~
LIST3 P1+1~
MAXLEN DATA+1~, DATA+18*, DATA+19
NAME P2+1~, DATA+1~, DATA+3*, DATA+16
NODE P2+1~, LISTSUB+7*, LISTSUB+8, LISTSUB+14*, LISTSUB+15, DATA~, DATA+2, DATA+3, DATA+6, DATA+8
NOT1 NUM04+1~, NUMSUB+3*, NUMSUB+12, NUMSUB+16
NOT1PCT NUM04+1~, NUMSUB+7*, NUMSUB+9*, NUMSUB+12*, NUMSUB+16
NOT2 NUM04+1~, NUMSUB+5*, NUMSUB+14, NUMSUB+16
NOT2PCT NUM04+1~, NUMSUB+7*, NUMSUB+9*, NUMSUB+14*, NUMSUB+16
NUM LISTSUB~, LISTSUB+4, LISTSUB+11, DATA+1~, DATA+8*, DATA+9, DATA+17, DATA+19
NUM1 P1+2~, NUM04+1~, NUMSUB+2*, NUMSUB+11, NUMSUB+16, DATA+1~, DATA+9*, DATA+16
NUM1PCT NUM04+1~, NUMSUB+7*, NUMSUB+9*, NUMSUB+11*, NUMSUB+16
NUM2 P1+2~, NUM04+1~, NUMSUB+4*, NUMSUB+13, NUMSUB+16
NUM2PCT NUM04+1~, NUMSUB+7*, NUMSUB+9*, NUMSUB+13*, NUMSUB+16
NUMLEN DATA+1~, DATA+17*, DATA+18
NUMPCT P1+2~
PC2 P1+2~
POP P1+3~, P1+12*, P1+13, P1+14, P1+15, P1SUBDEN~, P1SUBDEN+2, P1SUBDEN+3, P1SUBN1~, P1SUBN1+1
, P1SUBN1+2, P1SUBN1+3, P1SUBN1+4, P1SUBN1+7, P1SUBN1+8, P1SUBN1+9, P1SUBN1+10, P1SUBN2~, P1SUBN2+1, P1SUBN2+2
, P1SUBN2+3, P1SUBN2+4, P1SUBN2+7, P1SUBN2+8, P1SUBN2+10, P1SUBN2+11, NUMSUB~, NUMSUB+1, NUMSUB+2, NUMSUB+3
, NUMSUB+4, NUMSUB+5, LISTSUB~, LISTSUB+4, LISTSUB+11
PRD1 P1+3~, P1SUBN1+1*, P1SUBN1+8, P1SUBN2+1*, P1SUBN2+8
PRD4 P1+3~, P1SUBN1+2*, P1SUBN1+10, P1SUBN2+2*, P1SUBN2+11
PRN1 P1+3~, P1SUBN1+3*, P1SUBN1+8, P1SUBN2+3*, P1SUBN2+8
PRN4 P1+3~, P1SUBN1+4*, P1SUBN1+10, 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+11*, DATA+16
STRING NUM04+1~, NUMSUB+16*, NUMSUB+17
STRING1 P1+2~, P1+4!, P1+6, P1+9, SUMMARY1~
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
STRING1(1 SUMMARY1+5, SUMMARY1+10
STRING1(2 SUMMARY1+15, SUMMARY1+20
STRING1(3 SUMMARY1+25, SUMMARY1+30
STRING2 P1+2~, P1+4!, P1+7, P1+9, SUMMARY1~
STRING2( P1SUBDEN+3, P1SUBN1+1, P1SUBN1+2, P1SUBN1+7, P1SUBN1+8, P1SUBN1+9, P1SUBN1+10, P1SUBN2+1, P1SUBN2+2, P1SUBN2+7
, P1SUBN2+8, P1SUBN2+10, P1SUBN2+11
STRING2(1 SUMMARY1+6, SUMMARY1+11
STRING2(2 SUMMARY1+16, SUMMARY1+21
STRING2(3 SUMMARY1+26, SUMMARY1+31
STRING3 P1+2~, P1+4!, P1+8, P1+9, SUMMARY1~
STRING3( P1SUBDEN+3, P1SUBN1+3, P1SUBN1+4, P1SUBN1+8, P1SUBN1+10, P1SUBN2+3, P1SUBN2+4, P1SUBN2+8, P1SUBN2+11
STRING3(1 SUMMARY1+6, SUMMARY1+11
STRING3(2 SUMMARY1+16, SUMMARY1+21
STRING3(3 SUMMARY1+26, SUMMARY1+31
SUMCT P1+2~, P1+5*
TF NUM04~, NUMSUB+1, NUMSUB+2, NUMSUB+3, NUMSUB+4, NUMSUB+5
U P1SUBDEN+3, P1SUBN1+1, P1SUBN1+2, P1SUBN1+3, P1SUBN1+4, P1SUBN1+7, P1SUBN1+8, P1SUBN1+9, P1SUBN1+10, P1SUBN2+1
, P1SUBN2+2, P1SUBN2+3, P1SUBN2+4, P1SUBN2+7, P1SUBN2+8, P1SUBN2+10, P1SUBN2+11, NUMSUB+16, DATA+2, DATA+3
, DATA+6, DATA+8, DATA+11, SUMMARY1+5, SUMMARY1+6, SUMMARY1+10, SUMMARY1+11, SUMMARY1+15, SUMMARY1+16, SUMMARY1+20
, SUMMARY1+21, SUMMARY1+25, SUMMARY1+26, SUMMARY1+30, SUMMARY1+31, XML04+2, XML04+3
VST P2+1~
X P1+1~, 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*
Y P1+1~
Z P1+1~

Marked Items

Name Field # of Occurrence
$T(LISTDEN+J P2+23
$T(LISTNUM+I P2+21
$T(P1TEXT+POP P1SUBDEN+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All