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 |  All
Print Page as PDF
Routine: BGPMUAP5

Package: IHS GPRA Information System

Routine: BGPMUAP5


Information

BGPMUAP5 ; IHS/MSC/MGH - MU EP measures NQF0059 and NQF0575 ;25-Jul-2011 10:32;DU

Source Information

Source file <BGPMUAP5.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 BGPMUAD5  

Entry Points

Name Comments DBIA/ICR reference
P2 ;Do the Details
AIC2 ;Do the Details
P1 ;Write individual measure
NUM59(TF) ;Get the numbers for this measure
DATA2(NODE) ;GET DATA
SUMMARY2(STRING1,STRING2,STRING3) ;Summary setup
DATA(NODE) ;GET DATA
LOHGBA1C ;EP
NUM575(TF) ;Get the numbers for this measure
DATE(D) ;EP
A1C ;Write individual measure
HIHGBA1C ;EP
SUMMARY1(STRING1,STRING2,STRING3,CT) ;Summmary setup

External References

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, NUM575+10, NUM575+12, NUM575+13, NUM575+14, NUM575+15
HDRBLK^BGPMUPH P1+19, P1+20, P1+22, P1+24, P1+26, P1+28, P1+30, A1C+13, A1C+14, A1C+16
, A1C+18, A1C+20, A1C+22, A1C+24
HEADER^BGPMUPH P1+18, P1+20, P1+22, P1+24, P1+26, P1+28, P1+30, A1C+12, A1C+14, A1C+16
, A1C+18, A1C+20, A1C+22, A1C+24
HEADERL^BGPMUPH P2+3, P2+18, DATA+13, DATA2+13, AIC2+2, AIC2+18
W^BGPMUPP 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, AIC2+3, AIC2+4, AIC2+5, AIC2+6, AIC2+7, AIC2+8
, AIC2+9, AIC2+10, AIC2+11, AIC2+12, AIC2+13, AIC2+14, AIC2+15, AIC2+16
PTLSORT^BGPMUUTL P2+23, P2+30, P2+37, AIC2+23, AIC2+30, AIC2+37
$$GET1^DIQ DATA+3, DATA+10, DATA2+3, DATA2+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Pts 18-75 w/diabetes",?33,$P(STRING1,U,1),?44,$P(STRING2,U,1),?64,$P(STRING3,U,1)
  • Line Location: P1+21
Function Call: WRITE
  • Prompt: !,"# Excluded (Exc)",?33,$P(STRING1,U,4),?44,$P(STRING2,U,4),?64,$P(STRING3,U,4)
  • Line Location: P1+23
Function Call: WRITE
  • Prompt: !,"Pts 18-75 w/diabetes less Exc",?33,$P(STRING1,U,3),?44,$P(STRING2,U,3),?64,$P(STRING3,U,3)
  • Line Location: P1+25
Function Call: WRITE
  • Prompt: !!,"# w/HbA1c > 9.0%",?33,$P(STRING1,U,2),?38,$J($P(STRING1,U,5),5,1),?44,$P(STRING2,U,2),?49,$J($P(STRING2,U,5),5,1),?56,$J($FN(PRD1,",+",1),6),?64,$P(STRING3,U,2),?68,$J($P(STRING3,U,5),5,1),?74,$J($FN(PRN1,",+",1),6)
  • Line Location: P1+27
Function Call: WRITE
  • Prompt: !,"# w/o HbA1c or HbA1c <= 9.0%",?33,$P(STRING1,U,8),?38,$J($P(STRING1,U,9),5,1),?44,$P(STRING2,U,8),?49,$J($P(STRING2,U,9),5,1),?56,$J($FN(PRD4,",+",1),6),?64,$P(STRING3,U,8),?68,$J($P(STRING3,U,9),5,1),?74,$J($FN(PRN4,",+",1),6)
  • Line Location: P1+29
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?23,"HRN",?30,"COMMUNITY",?42,"SEX",?46,"AGE",?50,"DENOMINATOR",?65,"NUMERATOR"
  • Line Location: P2+19
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: P2+20
Function Call: WRITE
  • Prompt: !!,"Total # of patients on list: "_PTCT
  • Line Location: P2+42
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: !,LINE
  • Line Location: DATA2+15
Function Call: WRITE
  • Prompt: !,NAME,?23,HRN,?30,COMM,?43,SEX,?46,AGE,?50,DEN1,?65,NUM1
  • Line Location: DATA2+16
Function Call: WRITE
  • Prompt: !,"Pts 18-75 w/diabetes",?33,$P(STRING1,U,1),?44,$P(STRING2,U,1),?64,$P(STRING3,U,1)
  • Line Location: A1C+15
Function Call: WRITE
  • Prompt: !,"# Excluded (Exc)",?33,$P(STRING1,U,4),?44,$P(STRING2,U,4),?64,$P(STRING3,U,4)
  • Line Location: A1C+17
Function Call: WRITE
  • Prompt: !,"Pts 18-75 w/diabetes less Exc ",?33,$P(STRING1,U,3),?44,$P(STRING2,U,3),?64,$P(STRING3,U,3)
  • Line Location: A1C+19
Function Call: WRITE
  • Prompt: !!,"# w/HbA1c < 8.0%",?33,$P(STRING1,U,2),?38,$J($P(STRING1,U,5),5,1),?44,$P(STRING2,U,2),?49,$J($P(STRING2,U,5),5,1),?56,$J($FN(PRD1,",+",1),6),?64,$P(STRING3,U,2),?68,$J($P(STRING3,U,5),5,1),?74,$J($FN(PRN1,",+",1),6)
  • Line Location: A1C+21
Function Call: WRITE
  • Prompt: !,"# w/o HbA1c or HbA1c => 8.0%",?33,$P(STRING1,U,8),?38,$J($P(STRING1,U,9),5,1),?44,$P(STRING2,U,8),?49,$J($P(STRING2,U,9),5,1),?56,$J($FN(PRD3,",+",1),6),?64,$P(STRING3,U,8),?68,$J($P(STRING3,U,9),5,1),?74,$J($FN(PRN3,",+",1),6)
  • Line Location: A1C+23
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?23,"HRN",?30,"COMMUNITY",?42,"SEX",?46,"AGE",?50,"DENOMINATOR",?65,"NUMERATOR"
  • Line Location: AIC2+19
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: AIC2+20
Function Call: WRITE
  • Prompt: !!,"Total # of patients on list: "_PTCT
  • Line Location: AIC2+42

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, DATA2+6
^TMP("BGPMU SUMMARY" SUMMARY1+2!, SUMMARY1+3*, SUMMARY1+8*, SUMMARY2+2!, SUMMARY2+3*, SUMMARY2+7*
^TMP("BGPMU0059" HIHGBA1C+2!, NUM59+2, NUM59+3, NUM59+4, NUM59+5
^TMP("BGPMU0575" LOHGBA1C+2!, NUM575+2, NUM575+3, NUM575+4, NUM575+5

Label References

Name Line Occurrences
$$DATE DATA+9, DATA2+11
$$NUM575 A1C+2, A1C+3, A1C+4
$$NUM59 P1+5, P1+6, P1+7
A1C LOHGBA1C+1
AIC2 A1C+25
DATA P2+27, P2+34, P2+41
DATA2 AIC2+27, AIC2+34, AIC2+41
P1 HIHGBA1C+1
P2 P1+31
SUMMARY1 P1+8
SUMMARY2 A1C+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGE DATA+1~, DATA+5*, DATA+16, DATA2+5*, DATA2+16
ARRAY NUM59+1~, NUM59+16*, NUM59+17, NUM575+1~, NUM575+16*, NUM575+17
BGPARR P2+1~, P2+22!, P2+23, P2+29!, P2+30, P2+36!, P2+37, AIC2+1~, AIC2+22!, AIC2+23
, AIC2+29!, AIC2+30, AIC2+36!, AIC2+37
BGPARR( P2+24, P2+26, P2+31, P2+33, P2+38, P2+40, AIC2+24, AIC2+26, AIC2+31, AIC2+33
, AIC2+38, AIC2+40
>> BGPED DATA+5, DATA2+5
>> BGPIC P1+31, A1C+25, SUMMARY1+2, SUMMARY1+3, SUMMARY1+8, SUMMARY2+2, SUMMARY2+3, SUMMARY2+7
>> BGPIOSL P1+20, P1+22, P1+24, P1+26, P1+28, P1+30, P2+18, DATA+12, DATA2+12, A1C+14
, A1C+16, A1C+18, A1C+20, A1C+22, A1C+24, AIC2+18
>> BGPLIST P2+21, P2+28, P2+35, AIC2+21, AIC2+28, AIC2+35
>> BGPLIST( P1+31, A1C+25
>> BGPPTYPE 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, AIC2+3, AIC2+4, AIC2+5, AIC2+6, AIC2+7, AIC2+8
, AIC2+9, AIC2+10, AIC2+11, AIC2+12, AIC2+13, AIC2+14, AIC2+15, AIC2+16
>> BGPQUIT P1+18, P1+20, P1+22, P1+24, P1+26, P1+28, P1+30, P2+18, DATA+13, DATA2+13
, A1C+12, A1C+14, A1C+16, A1C+18, A1C+20, A1C+22, A1C+24, AIC2+18
BMI P2+1~
BP AIC2+1~
COMM DATA+1~, DATA+10*, DATA+16, DATA2+1~, DATA2+7*, DATA2+16
CT SUMMARY1~
D DATE~, DATE+1, DATE+2
DEN NUM59+1~, NUM59+2*, NUM59+6, NUM59+7, NUM59+8, NUM59+10, NUM59+11, NUM59+13, NUM59+14, NUM59+16
, DATA+1~, DATA+6*, DATA+7, DATA2+1~, DATA2+8*, DATA2+9, A1C+1~, NUM575+1~, NUM575+2*, NUM575+6
, NUM575+7, NUM575+8, NUM575+10, NUM575+11, NUM575+12, NUM575+13, NUM575+14, NUM575+16
DEN1 P1+2~, DATA+1~, DATA+7*, DATA+16, DATA2+1~, DATA2+9*, DATA2+16
DEN2 P1+2~, DATA+1~, DATA+7*, DATA+17, DATA+18, DATA2+1~, DATA2+9*, DATA2+17, DATA2+18
DEN3 DATA+1~, DATA+7*, DATA+19, DATA+20, DATA2+1~, DATA2+9*, DATA2+19, DATA2+20
DESC SUMMARY1+1~, SUMMARY1+4*, SUMMARY1+6, SUMMARY2+1~, SUMMARY2+4*, SUMMARY2+5
DESC2 SUMMARY1+1~
DFN DATA+1~, DATA+2*, DATA+4, DATA+5, DATA+10, DATA+11, 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, NUM575+1~, NUM575+5*, NUM575+6, NUM575+10
, NUM575+14, NUM575+16
EXC1 P1+2~
EXC2 P1+2~
FOL P2+1~
HRN DATA+1~, DATA+4*, DATA+16, DATA2+1~, DATA2+4*, DATA2+16
LINE P2+1~, P2+20*, DATA+1~, DATA+15*, DATA2+1~, DATA2+15*, AIC2+1~, AIC2+20*, SUMMARY1+1~, SUMMARY1+5*
, SUMMARY1+6*, SUMMARY1+7*, SUMMARY1+8, SUMMARY2+5*, SUMMARY2+6*, SUMMARY2+7
LIST1 P1+1~
LIST2 P1+1~
LIST3 P1+1~
NAME P2+1~, DATA+1~, DATA+3*, DATA+16, DATA2+1~, DATA2+3*, DATA2+16, AIC2+1~
NNUM NUM59+1~, NUM59+6*, NUM59+8, NUM59+11, NUM59+12, NUM59+13, NUM59+15, NUM59+16, NUM575+1~, NUM575+6*
, NUM575+8, NUM575+11, NUM575+13, NUM575+15, NUM575+16
NODE P2+1~, P2+26*, P2+27, P2+33*, P2+34, P2+40*, P2+41, DATA~, DATA+2, DATA+3
, DATA+6, DATA+8, DATA2~, DATA2+2, DATA2+3, DATA2+8, DATA2+10, AIC2+1~, AIC2+26*, AIC2+27
, AIC2+33*, AIC2+34, AIC2+40*, AIC2+41
NOT NUM59+1~, NUM59+4*, NUM59+15, NUM59+16, NUM575+1~, NUM575+4*, NUM575+15, NUM575+16
NUM NUM59+1~, NUM59+3*, NUM59+12, NUM59+16, DATA+1~, DATA+8*, DATA+9, DATA2+10*, DATA2+11, A1C+1~
, NUM575+1~, NUM575+3*, NUM575+12, NUM575+16
NUM1 P1+2~, DATA+1~, DATA+9*, DATA+16, DATA2+1~, DATA2+11*, DATA2+16
NUM2 P1+2~, DATA+1~, DATA+9*, DATA+18, DATA2+1~, DATA2+11*, DATA2+18
PC A1C+1~
PC1 P1+2~, NUM59+1~, NUM59+7*, NUM59+9*, NUM59+12*, NUM59+16, NUM575+1~, NUM575+7*, NUM575+9*, NUM575+12*
, NUM575+16
PC11 NUM59+1~, NUM59+7*, NUM59+9*, NUM59+13*, NUM59+16, NUM575+9*
PC13 NUM59+1~, NUM59+7*, NUM59+10*, NUM59+14*, NUM59+16, NUM575+10*
PC14 NUM59+1~, NUM59+7*, NUM59+9*, NUM59+15*, NUM59+16, NUM575+9*
PC2 P1+2~, NUM59+1~, NUM575+1~, NUM575+7*, NUM575+13*, NUM575+16
PC3 NUM575+1~, NUM575+7*, NUM575+14*, NUM575+16
PC4 NUM575+1~, NUM575+7*, NUM575+15*, NUM575+16
PRD A1C+1~
PRD1 P1+3~, P1+10*, P1+27, A1C+1~, A1C+6*, A1C+21
PRD2 P1+3~, P1+11*, A1C+1~, A1C+7*
PRD3 P1+3~, P1+12*, A1C+1~, A1C+8*, A1C+23
PRD4 P1+3~, P1+13*, P1+29
PRN A1C+1~
PRN1 P1+3~, P1+14*, P1+27, A1C+1~, A1C+9*, A1C+21
PRN2 P1+3~, P1+15*, A1C+1~, A1C+10*
PRN3 P1+3~, P1+16*, A1C+1~, A1C+11*, A1C+23
PRN4 P1+3~, P1+17*, P1+29
PT P2+1~, P2+24*, P2+26, P2+31*, P2+33, P2+38*, P2+40, AIC2+1~, AIC2+24*, AIC2+26
, AIC2+31*, AIC2+33, AIC2+38*, AIC2+40
PTCT P2+1~, P2+2*, P2+25*, P2+32*, P2+39*, P2+42, AIC2+1~, AIC2+17*, AIC2+25*, AIC2+32*
, AIC2+39*, AIC2+42
SEX DATA+1~, DATA+11*, DATA+16, DATA2+1~, DATA2+6*, DATA2+16
STRING1 P1+2~, P1+5*, P1+8, P1+10, P1+11, P1+12, P1+13, P1+14, P1+15, P1+16
, P1+17, P1+21, P1+23, P1+25, P1+27, P1+29, A1C+1~, A1C+2*, A1C+5, A1C+6
, A1C+7, A1C+8, A1C+9, A1C+10, A1C+11, A1C+15, A1C+17, A1C+19, A1C+21, A1C+23
, SUMMARY1~, SUMMARY1+6, SUMMARY2~, SUMMARY2+5
STRING2 P1+2~, P1+6*, P1+8, P1+10, P1+11, P1+12, P1+13, P1+21, P1+23, P1+25
, P1+27, P1+29, A1C+1~, A1C+3*, A1C+5, A1C+6, A1C+7, A1C+8, A1C+15, A1C+17
, A1C+19, A1C+21, A1C+23, SUMMARY1~, SUMMARY1+7, SUMMARY2~, SUMMARY2+6
STRING3 P1+2~, P1+7*, P1+8, P1+14, P1+15, P1+16, P1+17, P1+21, P1+23, P1+25
, P1+27, P1+29, A1C+4*, A1C+5, A1C+9, A1C+10, A1C+11, A1C+15, A1C+17, A1C+19
, A1C+21, A1C+23, SUMMARY1~, SUMMARY1+7, SUMMARY2~, SUMMARY2+6
SUMCT P1+2~, P1+4*
TF NUM59~, NUM59+2, NUM59+3, NUM59+4, NUM59+5, NUM575~, NUM575+2, NUM575+3, NUM575+4, NUM575+5
U P1+10, P1+11, P1+12, P1+13, P1+14, P1+15, P1+16, P1+17, P1+21, P1+23
, P1+25, P1+27, P1+29, NUM59+16, DATA+2, DATA+3, DATA+6, DATA+8, DATA+11, DATA2+2
, DATA2+3, DATA2+6, DATA2+8, DATA2+10, A1C+6, A1C+7, A1C+8, A1C+9, A1C+10, A1C+11
, A1C+15, A1C+17, A1C+19, A1C+21, A1C+23, NUM575+16, SUMMARY1+6, SUMMARY1+7, SUMMARY2+5, SUMMARY2+6
VST P2+1~
X P1+1~, P2+1~, 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*, A1C+1~, AIC2+3*, AIC2+4*, AIC2+5*
, AIC2+6*, AIC2+7*, AIC2+8*, AIC2+9*, AIC2+10*, AIC2+11*, AIC2+12*, AIC2+13*, AIC2+14*, AIC2+15*
, AIC2+16*
Y P1+1~, A1C+1~
Z P1+1~, A1C+1~
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 |  All