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: BGPMUAP1

Package: IHS GPRA Information System

Routine: BGPMUAP1


Information

BGPMUAP1 ; IHS/MSC/MGH - MU EP measures NQF0421 and NQF0013 ;22-Mar-2011 10:06;DU

Source Information

Source file <BGPMUAP1.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 BGPMUAD1  

Entry Points

Name Comments DBIA/ICR reference
P2 ;Do the Details
P1 ;Write individual measure
BLOODP ;EP
0013(TF) ;Get the numbers for this measure
BMI ;EP
DATA2(NODE) ;GET DATA
DATA(NODE) ;GET DATA
BP1 ;Write individual measure
BP2 ;Do the Details
DATE(D) ;EP
SUMMARY2(STRING1,STRING2,STRING3) ;Summary setup
SUMMARY1(STRING1,STRING2,STRING3,CT) ;Summmary setup
421(TF) ;Get the numbers for this measure

External References

Name Field # of Occurrence
$$AGE^AUPNPAT DATA+5, DATA2+5
$$HRN^AUPNPAT DATA+4, DATA2+4
$$ROUND^BGPMUA01 421+15, 421+16, 421+17, 421+18, 421+22, 421+23, 421+24, 421+25, 0013+7
HDRBLK^BGPMUPH P1+28, P1+31, P1+33, P1+35, P1+37, P1+39, P1+41, P1+44, P1+46, P1+48
, P1+50, P1+52, P1+54, BP1+11, BP1+13, BP1+15, BP1+17
HEADER^BGPMUPH P1+27, P1+31, P1+33, P1+35, P1+37, P1+39, P1+41, P1+44, P1+46, P1+48
, P1+50, P1+52, P1+54, BP1+10, BP1+13, BP1+15, BP1+17
HEADERL^BGPMUPH P2+3, P2+11, P2+37, DATA+10, DATA2+13, BP2+2, BP2+12
W^BGPMUPP P2+4, P2+5, P2+6, P2+7, P2+8, P2+9, BP2+3, BP2+4, BP2+5, BP2+6
, BP2+7, BP2+8, BP2+9, BP2+10
PTLSORT^BGPMUUTL P2+17, P2+24, P2+31, P2+44, P2+51, P2+58, BP2+17, BP2+24
$$GET1^DIQ DATA+3, DATA+7, DATA2+3, DATA2+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Denominator 1"
  • Line Location: P1+30
Function Call: WRITE
  • Prompt: !,"Pts 65+",?33,$P(STRING1,U,1),?44,($P(STRING2,U,1)+$P(STRING2,U,4)),?64,$P(STRING3,U,1)
  • Line Location: P1+32
Function Call: WRITE
  • Prompt: !,"# Excluded (Exc)",?33,$P(STRING1,U,4),?44,$P(STRING2,U,4),?64,$P(STRING3,U,4)
  • Line Location: P1+34
Function Call: WRITE
  • Prompt: !,"Pts 65+ less Exc",?33,$P(STRING1,U,3),?44,$P(STRING2,U,3),?64,$P(STRING3,U,3)
  • Line Location: P1+36
Function Call: WRITE
  • Prompt: !!,"# w/BMI + plan if req",?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+38
Function Call: WRITE
  • Prompt: !,"# w/o BMI or no plan if req",?33,$P(STRING1,U,15),?38,$J($P(STRING1,U,16),5,1),?44,$P(STRING2,U,15),?49,$J($P(STRING2,U,16),5,1),?56,$J($FN(PRD7,",+",1),6),?64,$P(STRING3,U,15),?68,$J($P(STRING3,U,16),5,1),?74,$J($FN(PRN7,",+",1),6)
  • Line Location: P1+40
Function Call: WRITE
  • Prompt: !!,"Denominator 2"
  • Line Location: P1+43
Function Call: WRITE
  • Prompt: !,"Pts 18-64",?33,$P(STRING1,U,8),?44,$P(STRING2,U,8),?64,$P(STRING3,U,8)
  • Line Location: P1+45
Function Call: WRITE
  • Prompt: !,"# Excluded (Exc)",?33,$P(STRING1,U,11),?44,$P(STRING2,U,11),?64,$P(STRING3,U,11)
  • Line Location: P1+47
Function Call: WRITE
  • Prompt: !,"Pts 18-64 less Exc",?33,$P(STRING1,U,10),?44,$P(STRING2,U,10),?64,$P(STRING3,U,10)
  • Line Location: P1+49
Function Call: WRITE
  • Prompt: !!,"# w/BMI + plan if req",?33,$P(STRING1,U,9),?38,$J($P(STRING1,U,12),5,1),?44,$P(STRING2,U,9),?49,$J($P(STRING2,U,12),5,1),?56,$J($FN(PRD4,",+",1),6),?64,$P(STRING3,U,9),?68,$J($P(STRING3,U,12),5,1),?74,$J($FN(PRN4,",+",1),6)
  • Line Location: P1+51
Function Call: WRITE
  • Prompt: !,"# w/o BMI or no plan if req",?33,$P(STRING1,U,17),?38,$J($P(STRING1,U,18),5,1),?44,$P(STRING2,U,17),?49,$J($P(STRING2,U,18),5,1),?56,$J($FN(PRD8,",+",1),6),?64,$P(STRING3,U,17),?68,$J($P(STRING3,U,18),5,1),?74,$J($FN(PRN8,",+",1),6)
  • Line Location: P1+53
Function Call: WRITE
  • Prompt: !!
  • Line Location: P2+10
Function Call: WRITE
  • Prompt: "Patients 65+"
  • Line Location: P2+12
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?23,"HRN",?30,"COMMUNITY",?42,"SEX",?46,"AGE",?50,"DENOMINATOR",?63,"NUMERATOR"
  • Line Location: P2+13
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: P2+14
Function Call: WRITE
  • Prompt: !!,"Total # of patients on list: "_PTCT
  • Line Location: P2+36
Function Call: WRITE
  • Prompt: !!,"Patients 18-64"
  • Line Location: P2+39
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?23,"HRN",?30,"COMMUNITY",?42,"SEX",?46,"AGE",?50,"DENOMINATOR",?63,"NUMERATOR"
  • Line Location: P2+40
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: P2+41
Function Call: WRITE
  • Prompt: !!,"Total # of patients on list: "_PTCT
  • Line Location: P2+63
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: DATA+12
Function Call: WRITE
  • Prompt: !,NAME,?23,HRN,?30,COMM,?43,SEX,?46,AGE,?50,DEN,?63,NUM1
  • Line Location: DATA+15
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: DATA2+15
Function Call: WRITE
  • Prompt: !,NAME,?20,HRN,?26,COMM,?38,SEX,?42,AGE,?46,DEN1
  • Line Location: DATA2+16
Function Call: WRITE
  • Prompt: !,?46,DEN2,?59,NUM1
  • Line Location: DATA2+17
Function Call: WRITE
  • Prompt: !,?46,DEN2
  • Line Location: DATA2+18
Function Call: WRITE
  • Prompt: !,?46,DEN3,?59,NUM2
  • Line Location: DATA2+19
Function Call: WRITE
  • Prompt: !,?46,DEN3
  • Line Location: DATA2+20
Function Call: WRITE
  • Prompt: !,"Pts 18+ w/HTN",?33,$P(STRING1,U,1),?44,$P(STRING2,U,1),?64,$P(STRING3,U,1)
  • Line Location: BP1+12
Function Call: WRITE
  • Prompt: !!,"# w/=>2 BP recorded",?33,$P(STRING1,U,2),?38,$J($P(STRING1,U,4),5,1),?44,$P(STRING2,U,2),?49,$J($P(STRING2,U,4),5,1),?56,$J($FN(PRD,",+",1),6),?64,$P(STRING3,U,2),?68,$J($P(STRING3,U,4),5,1),?74,$J($FN(PRN,",+",1),6)
  • Line Location: BP1+14
Function Call: WRITE
  • Prompt: !,"# w/o=> 2 BP recorded",?33,$P(STRING1,U,3),?38,$J($P(STRING1,U,5),5,1),?44,$P(STRING2,U,3),?49,$J($P(STRING2,U,5),5,1),?56,$J($FN(PRD1,",+",1),6),?64,$P(STRING3,U,3),?68,$J($P(STRING3,U,5),5,1),?74,$J($FN(PRN1,",+",1),6)
  • Line Location: BP1+16
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?20,"HRN",?26,"COMMUNITY",?37,"SEX",?42,"AGE",?46,"DENOMINATOR",?59,"NUMERATOR"
  • Line Location: BP2+13
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: BP2+14
Function Call: WRITE
  • Prompt: !!,"Total # of patients on list: "_PTCT
  • Line Location: BP2+29

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+8, DATA2+6
^TMP("BGPMU SUMMARY" SUMMARY1+2!, SUMMARY1+3*, SUMMARY1+9*, SUMMARY1+13*, SUMMARY2+2!, SUMMARY2+3*, SUMMARY2+7*
^TMP("BGPMU0013" BLOODP+3!, 0013+2, 0013+3, 0013+4
^TMP("BGPMU0421" BMI+4!, 421+2, 421+3, 421+4, 421+5, 421+6, 421+7, 421+8, 421+9

Label References

Name Line Occurrences
$$0013 BP1+2, BP1+3, BP1+4
$$421 P1+5, P1+6, P1+7
BP1 BLOODP+1
BP2 BP1+18
DATA P2+21, P2+28, P2+35, P2+48, P2+55, P2+62
DATA2 BP2+21, BP2+28
P1 BMI+1
P2 P1+55
SUMMARY1 P1+8
SUMMARY2 BP1+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGE DATA+1~, DATA+5*, DATA+15, DATA2+5*, DATA2+16
ARRAY 421+1~, 421+26*, 421+27*, 421+28, 0013+1~, 0013+9*, 0013+10
BGPARR P2+1~, P2+16!, P2+17, P2+23!, P2+24, P2+30!, P2+31, P2+43!, P2+44, P2+50!
, P2+51, P2+57!, P2+58, BP2+1~, BP2+16!, BP2+17, BP2+23!, BP2+24
BGPARR( P2+18, P2+20, P2+25, P2+27, P2+32, P2+34, P2+45, P2+47, P2+52, P2+54
, P2+59, P2+61, BP2+18, BP2+20, BP2+25, BP2+27
>> BGPED DATA+5, DATA2+5
>> BGPIC P1+55, BP1+18, SUMMARY1+2, SUMMARY1+3, SUMMARY1+9, SUMMARY1+13, SUMMARY2+2, SUMMARY2+3, SUMMARY2+7
>> BGPIOSL P1+31, P1+33, P1+35, P1+37, P1+39, P1+41, P1+44, P1+46, P1+48, P1+50
, P1+52, P1+54, P2+11, P2+37, DATA+9, DATA2+12, BP1+13, BP1+15, BP1+17, BP2+12
>> BGPLIST P2+15, P2+22, P2+29, P2+42, P2+49, P2+56, BP2+15, BP2+22
>> BGPLIST( P1+55, BP1+18
>> BGPPTYPE P2+4, P2+5, P2+6, P2+7, P2+8, P2+9, BP2+3, BP2+4, BP2+5, BP2+6
, BP2+7, BP2+8, BP2+9, BP2+10
>> BGPQUIT P1+27, P1+31, P1+33, P1+35, P1+37, P1+39, P1+41, P1+44, P1+46, P1+48
, P1+50, P1+52, P1+54, P2+11, P2+37, DATA+10, DATA2+13, BP1+10, BP1+13, BP1+15
, BP1+17, BP2+12
BMI P2+1~
BP BP2+1~
COMM DATA+1~, DATA+7*, DATA+15, DATA2+1~, DATA2+7*, DATA2+16
CT SUMMARY1~
D DATE~, DATE+1, DATE+2
DEN DATA+1~, DATA+6*, DATA+15, DATA2+1~, DATA2+8*, DATA2+9, BP1+1~, 0013+1~, 0013+2*, 0013+5
, 0013+6, 0013+7, 0013+9
DEN1 P1+2~, 421+1~, 421+2*, 421+10, 421+12, 421+14, 421+16, 421+17, 421+26, DATA+1~
, DATA2+1~, DATA2+9*, DATA2+16
DEN2 P1+2~, 421+1~, 421+6*, 421+11, 421+19, 421+21, 421+23, 421+24, 421+26, DATA+1~
, DATA2+1~, DATA2+9*, DATA2+17, DATA2+18
DEN3 DATA2+1~, DATA2+9*, DATA2+19, DATA2+20
DESC SUMMARY1+1~, SUMMARY1+4*, SUMMARY1+7, SUMMARY2+1~, SUMMARY2+4*, SUMMARY2+5
DESC2 SUMMARY1+1~, SUMMARY1+5*, SUMMARY1+11
DFN DATA+1~, DATA+2*, DATA+4, DATA+5, DATA+7, DATA+8, DATA2+2*, DATA2+4, DATA2+5, DATA2+6
, DATA2+7
DUZ(2 DATA+4, DATA2+4
EXC1 P1+2~, 421+1~, 421+5*, 421+10, 421+17, 421+26
EXC2 P1+2~, 421+1~, 421+9*, 421+11, 421+24, 421+26
FOL P2+1~
HRN DATA+1~, DATA+4*, DATA+15, DATA2+1~, DATA2+4*, DATA2+16
LINE P2+1~, P2+14*, P2+41*, DATA+1~, DATA+12*, DATA2+1~, DATA2+15*, BP2+1~, BP2+14*, SUMMARY1+1~
, SUMMARY1+6*, SUMMARY1+7*, SUMMARY1+8*, SUMMARY1+9, SUMMARY1+10*, SUMMARY1+11*, SUMMARY1+12*, SUMMARY1+13, SUMMARY2+5*, SUMMARY2+6*
, SUMMARY2+7
LIST1 P1+1~
LIST2 P1+1~
LIST3 P1+1~
NAME P2+1~, DATA+1~, DATA+3*, DATA+15, DATA2+1~, DATA2+3*, DATA2+16, BP2+1~
NNUM1 421+1~, 421+10*, 421+13, 421+15, 421+16, 421+18, 421+26
NNUM2 421+1~, 421+11*, 421+20, 421+22, 421+23, 421+25, 421+26
NODE P2+1~, P2+20*, P2+21, P2+27*, P2+28, P2+34*, P2+35, P2+47*, P2+48, P2+54*
, P2+55, P2+61*, P2+62, DATA~, DATA+2, DATA+3, DATA+6, DATA2~, DATA2+2, DATA2+3
, DATA2+8, DATA2+10, BP2+1~, BP2+20*, BP2+21, BP2+27*, BP2+28
NOT 0013+1~, 0013+4*, 0013+9
NOT1 421+1~, 421+4*, 421+18, 421+27
NOT2 421+1~, 421+8*, 421+25, 421+27
NUM DATA+1~, DATA+6*, DATA+14, DATA2+10*, DATA2+11, BP1+1~, 0013+1~, 0013+3*, 0013+7, 0013+9
NUM1 P1+2~, 421+1~, 421+3*, 421+15, 421+26, DATA+1~, DATA+14*, DATA+15, DATA2+1~, DATA2+11*
, DATA2+17, DATA2+18
NUM2 P1+2~, 421+1~, 421+7*, 421+22, 421+26, DATA+1~, DATA+13*, DATA+14*, DATA+16, DATA+17
, DATA2+1~, DATA2+11*, DATA2+19, DATA2+20
PC BP1+1~
PC1 P1+2~, 421+1~, 421+12*, 421+13*, 421+15*, 421+26, 0013+1~, 0013+5*, 0013+7*, 0013+8
, 0013+9
PC11 421+1~, 421+12*, 421+16*, 421+26
PC13 421+1~, 421+12*, 421+17*, 421+26
PC14 421+1~, 421+12*, 421+13*, 421+18*, 421+27
PC2 P1+2~, 421+1~, 421+19*, 421+20*, 421+22*, 421+26, 0013+1~, 0013+5*, 0013+8*, 0013+9
PC21 421+1~, 421+19*, 421+23*, 421+26
PC23 421+1~, 421+19*, 421+24*, 421+26
PC24 421+1~, 421+19*, 421+20*, 421+25*, 421+27
PRD BP1+1~, BP1+6*, BP1+14
PRD1 P1+3~, P1+10*, P1+38, BP1+1~, BP1+7*, BP1+16
PRD2 P1+3~, P1+11*
PRD3 P1+3~, P1+12*
PRD4 P1+3~, P1+19*, P1+51
PRD5 P1+3~, P1+20*
PRD6 P1+3~, P1+21*
PRD7 P1+3~, P1+13*, P1+40
PRD8 P1+3~, P1+22*, P1+53
PRN BP1+1~, BP1+8*, BP1+14
PRN1 P1+3~, P1+14*, P1+38, BP1+1~, BP1+9*, BP1+16
PRN2 P1+3~, P1+15*
PRN3 P1+3~, P1+16*
PRN4 P1+3~, P1+23*, P1+51
PRN5 P1+3~, P1+24*
PRN6 P1+3~, P1+25*
PRN7 P1+3~, P1+17*, P1+40
PRN8 P1+3~, P1+26*, P1+53
PT P2+1~, P2+18*, P2+20, P2+25*, P2+27, P2+32*, P2+34, P2+45*, P2+47, P2+52*
, P2+54, P2+59*, P2+61, BP2+1~, BP2+18*, BP2+20, BP2+25*, BP2+27
PTCT P2+1~, P2+2*, P2+19*, P2+26*, P2+33*, P2+36, P2+38*, P2+46*, P2+53*, P2+60*
, P2+63, BP2+1~, BP2+11*, BP2+19*, BP2+26*, BP2+29
SEX DATA+1~, DATA+8*, DATA+15, 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+19, P1+20, P1+21, P1+22, P1+23, P1+24, P1+25, P1+26, P1+32
, P1+34, P1+36, P1+38, P1+40, P1+45, P1+47, P1+49, P1+51, P1+53, BP1+1~
, BP1+2*, BP1+5, BP1+6, BP1+7, BP1+8, BP1+9, BP1+12, BP1+14, BP1+16, SUMMARY1~
, SUMMARY1+7, SUMMARY1+11, SUMMARY2~, SUMMARY2+5
STRING2 P1+2~, P1+6*, P1+8, P1+10, P1+11, P1+12, P1+13, P1+19, P1+20, P1+21
, P1+22, P1+32, P1+34, P1+36, P1+38, P1+40, P1+45, P1+47, P1+49, P1+51
, P1+53, BP1+1~, BP1+3*, BP1+5, BP1+6, BP1+7, BP1+12, BP1+14, BP1+16, SUMMARY1~
, SUMMARY1+8, SUMMARY1+12, SUMMARY2~, SUMMARY2+6
STRING3 P1+2~, P1+7*, P1+8, P1+14, P1+15, P1+16, P1+17, P1+23, P1+24, P1+25
, P1+26, P1+32, P1+34, P1+36, P1+38, P1+40, P1+45, P1+47, P1+49, P1+51
, P1+53, BP1+4*, BP1+5, BP1+8, BP1+9, BP1+12, BP1+14, BP1+16, SUMMARY1~, SUMMARY1+8
, SUMMARY1+12, SUMMARY2~, SUMMARY2+6
SUMCT P1+2~, P1+4*
TF 421~, 421+2, 421+3, 421+4, 421+5, 421+6, 421+7, 421+8, 421+9, 0013~
, 0013+2, 0013+3, 0013+4
U P1+10, P1+11, P1+12, P1+13, P1+14, P1+15, P1+16, P1+17, P1+19, P1+20
, P1+21, P1+22, P1+23, P1+24, P1+25, P1+26, P1+32, P1+34, P1+36, P1+38
, P1+40, P1+45, P1+47, P1+49, P1+51, P1+53, 421+26, 421+27, DATA+2, DATA+3
, DATA+6, DATA+8, DATA2+2, DATA2+3, DATA2+6, DATA2+8, DATA2+10, BP1+6, BP1+7, BP1+8
, BP1+9, BP1+12, BP1+14, BP1+16, 0013+9, SUMMARY1+7, SUMMARY1+8, SUMMARY1+11, SUMMARY1+12, SUMMARY2+5
, SUMMARY2+6
VST P2+1~
X P1+1~, P2+1~, P2+4*, P2+5*, P2+6*, P2+7*, P2+8*, P2+9*, BP1+1~, BP2+3*
, BP2+4*, BP2+5*, BP2+6*, BP2+7*, BP2+8*, BP2+9*, BP2+10*
Y P1+1~, BP1+1~
Z P1+1~, BP1+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