Routine: BGPMUAP3

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

Package	Total	Caller Graph
IHS GPRA Information System	11	BGPMUAD3 BGPMUAD5 BGPMUAD6 BGPMUAD7 BGPMUAD8 BGPMUAP3 BGPMUAP7 BGPMUAP8 BGPMUBD1 BGPMUBD2 BGPMUBP1

Entry Points

Name	Comments	DBIA/ICR reference
P2	;Do the Details
FT1	;Write individual measure
P1	;Write individual measure
EYE	;EP
FT56(TF)	;Get the numbers for this measure
DATA2(NODE)	;GET DATA
DATA(NODE)	;GET DATA
FT2	;Do the Details
DATE(D)	;EP
FOOT	;EP
NUM55(TF)	;Get the numbers for this measure
SUMMARY2(STRING1,STRING2,STRING3)	;Summary setup
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	NUM55+10, NUM55+12, NUM55+13, NUM55+14, NUM55+15, FT56+10, FT56+12, FT56+13, FT56+14, FT56+15
$$DATE^BGPMUAP3	DATA+9, DATA2+11
HDRBLK^BGPMUPH	P1+19, P1+20, P1+22, P1+24, P1+26, P1+28, P1+30, FT1+15, FT1+16, FT1+18 , FT1+20, FT1+22, FT1+24, FT1+26
HEADER^BGPMUPH	P1+18, P1+20, P1+22, P1+24, P1+26, P1+28, P1+30, FT1+14, FT1+16, FT1+18 , FT1+20, FT1+22, FT1+24, FT1+26
HEADERL^BGPMUPH	P2+3, P2+19, DATA+13, DATA2+13, FT2+2, FT2+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, P2+18, FT2+3, FT2+4, FT2+5, FT2+6, FT2+7 , FT2+8, FT2+9, FT2+10, FT2+11, FT2+12, FT2+13, FT2+14, FT2+15, FT2+16
PTLSORT^BGPMUUTL	P2+24, P2+31, P2+38, FT2+23, FT2+30, FT2+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/eye exam",?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 eye exam",?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(PRD7,",+",1),6),?64,$P(STRING3,U,8),?68,$J($P(STRING3,U,9),5,1),?74,$J($FN(PRN7,",+",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+20
Function Call: WRITE	Prompt: !,LINE Line Location: P2+21
Function Call: WRITE	Prompt: !!,"Total # of patients on list: "_PTCT Line Location: P2+43
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: FT1+17
Function Call: WRITE	Prompt: !,"# Excluded (Exc)",?33,$P(STRING1,U,4),?44,$P(STRING2,U,4),?64,$P(STRING3,U,4) Line Location: FT1+19
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: FT1+21
Function Call: WRITE	Prompt: !!,"# w/foot exam",?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(PRD,",+",1),6),?64,$P(STRING3,U,2),?68,$J($P(STRING3,U,5),5,1),?74,$J($FN(PRN,",+",1),6) Line Location: FT1+23
Function Call: WRITE	Prompt: !,"# w/o foot exam",?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: FT1+25
Function Call: WRITE	Prompt: !,"PATIENT NAME",?23,"HRN",?30,"COMMUNITY",?42,"SEX",?46,"AGE",?50,"DENOMINATOR",?70,"NUMERATOR" Line Location: FT2+19
Function Call: WRITE	Prompt: !,LINE Line Location: FT2+20
Function Call: WRITE	Prompt: !!,"Total # of patients on list: "_PTCT Line Location: FT2+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("BGPMU0055"	EYE+2!, NUM55+2, NUM55+3, NUM55+4, NUM55+5
^TMP("BGPMU0056"	FOOT+2!, FT56+2, FT56+3, FT56+4, FT56+5

Label References

Name	Line Occurrences
$$FT56	FT1+2, FT1+3, FT1+4
$$NUM55	P1+5, P1+6, P1+7
DATA	P2+28, P2+35, P2+42
DATA2	FT2+27, FT2+34, FT2+41
FT1	FOOT+1
FT2	FT1+27
P1	EYE+1
P2	P1+31
SUMMARY1	P1+8
SUMMARY2	FT1+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	NUM55+1~, NUM55+16, NUM55+17, FT56+1~, FT56+16, FT56+17
BGPARR	P2+1~, P2+23!, P2+24, P2+30!, P2+31, P2+37!, P2+38, FT2+1~, FT2+22!, FT2+23 , FT2+29!, FT2+30, FT2+36!, FT2+37
BGPARR(	P2+25, P2+27, P2+32, P2+34, P2+39, P2+41, FT2+24, FT2+26, FT2+31, FT2+33 , FT2+38, FT2+40
>> BGPED	DATA+5, DATA2+5
>> BGPIC	P1+31, FT1+27, 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+19, DATA+12, DATA2+12, FT1+16 , FT1+18, FT1+20, FT1+22, FT1+24, FT1+26, FT2+18
>> BGPLIST	P2+22, P2+29, P2+36, FT2+21, FT2+28, FT2+35
>> BGPLIST(	P1+31, FT1+27
>> 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, P2+18, FT2+3, FT2+4, FT2+5, FT2+6, FT2+7 , FT2+8, FT2+9, FT2+10, FT2+11, FT2+12, FT2+13, FT2+14, FT2+15, FT2+16
>> BGPQUIT	P1+18, P1+20, P1+22, P1+24, P1+26, P1+28, P1+30, P2+19, DATA+13, DATA2+13 , FT1+14, FT1+16, FT1+18, FT1+20, FT1+22, FT1+24, FT1+26, FT2+18
BMI	P2+1~
BP	FT2+1~
COMM	DATA+1~, DATA+10, DATA+16, DATA2+1~, DATA2+7, DATA2+16
CT	SUMMARY1~
D	DATE~, DATE+1, DATE+2
DEN	NUM55+1~, NUM55+2, NUM55+6, NUM55+7, NUM55+8, NUM55+10, NUM55+11, NUM55+13, NUM55+14, NUM55+16 , DATA+1~, DATA+6, DATA+7, DATA2+1~, DATA2+8, DATA2+9, FT1+1~, FT56+1~, FT56+2, FT56+6 , FT56+7, FT56+8, FT56+10, FT56+11, FT56+12, FT56+13, FT56+14, FT56+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	NUM55+1~, NUM55+5, NUM55+6, NUM55+10, NUM55+14, NUM55+16, FT56+1~, FT56+5, FT56+6, FT56+10 , FT56+14, FT56+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+21, DATA+1~, DATA+15, DATA2+1~, DATA2+15, FT2+1~, FT2+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, FT2+1~
NNUM	NUM55+1~, NUM55+6, NUM55+8, NUM55+11, NUM55+12, NUM55+13, NUM55+15, NUM55+16, FT56+1~, FT56+6 , FT56+8, FT56+11, FT56+13, FT56+15, FT56+16
NODE	P2+1~, P2+27, P2+28, P2+34, P2+35, P2+41, P2+42, DATA~, DATA+2, DATA+3 , DATA+6, DATA+8, DATA2~, DATA2+2, DATA2+3, DATA2+8, DATA2+10, FT2+1~, FT2+26, FT2+27 , FT2+33, FT2+34, FT2+40, FT2+41
NOT	NUM55+1~, NUM55+4, NUM55+15, NUM55+16, FT56+1~, FT56+4, FT56+15, FT56+16
NUM	NUM55+1~, NUM55+3, NUM55+12, NUM55+16, DATA+1~, DATA+8, DATA+9, DATA2+10, DATA2+11, FT1+1~ , FT56+1~, FT56+3, FT56+12, FT56+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	FT1+1~
PC1	P1+2~, NUM55+1~, NUM55+7, NUM55+9, NUM55+12, NUM55+16, FT56+1~, FT56+7, FT56+9, FT56+12 , FT56+16
PC11	NUM55+1~, NUM55+7, NUM55+9, NUM55+13, NUM55+16, FT56+9
PC13	NUM55+1~, NUM55+7, NUM55+10, NUM55+14, NUM55+16, FT56+10
PC14	NUM55+1~, NUM55+7, NUM55+9, NUM55+15, NUM55+16, FT56+9
PC2	P1+2~, NUM55+1~, FT56+1~, FT56+7, FT56+13, FT56+16
PC3	FT56+1~, FT56+7, FT56+14, FT56+16
PC4	FT56+1~, FT56+7, FT56+15, FT56+16
PRD	FT1+1~, FT1+6*, FT1+23
PRD1	P1+3~, P1+10, P1+27, FT1+1~, FT1+7
PRD2	P1+3~, P1+11, FT1+1~, FT1+8
PRD3	P1+3~, P1+12, FT1+1~, FT1+9, FT1+25
PRD4	P1+3~
PRD5	P1+3~
PRD6	P1+3~
PRD7	P1+3~, P1+13*, P1+29
PRD8	P1+3~
PRN	FT1+1~, FT1+10*, FT1+23
PRN1	P1+3~, P1+14, P1+27, FT1+1~, FT1+11
PRN2	P1+3~, P1+15, FT1+1~, FT1+12
PRN3	P1+3~, P1+16, FT1+1~, FT1+13, FT1+25
PRN4	P1+3~
PRN5	P1+3~
PRN6	P1+3~
PRN7	P1+3~, P1+17*, P1+29
PRN8	P1+3~
PT	P2+1~, P2+25, P2+27, P2+32, P2+34, P2+39, P2+41, FT2+1~, FT2+24, FT2+26 , FT2+31, FT2+33, FT2+38, FT2+40
PTCT	P2+1~, P2+2, P2+26, P2+33, P2+40, P2+43, FT2+1~, FT2+17, FT2+25, FT2+32* , FT2+39*, FT2+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, FT1+1~, FT1+2, FT1+5, FT1+6 , FT1+7, FT1+8, FT1+9, FT1+10, FT1+11, FT1+12, FT1+13, FT1+17, FT1+19, FT1+21 , FT1+23, FT1+25, 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, FT1+1~, FT1+3, FT1+5, FT1+6, FT1+7, FT1+8, FT1+9, FT1+17 , FT1+19, FT1+21, FT1+23, FT1+25, 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, FT1+4, FT1+5, FT1+10, FT1+11, FT1+12, FT1+13, FT1+17, FT1+19 , FT1+21, FT1+23, FT1+25, SUMMARY1~, SUMMARY1+7, SUMMARY2~, SUMMARY2+6
SUMCT	P1+2~, P1+4*
TF	NUM55~, NUM55+2, NUM55+3, NUM55+4, NUM55+5, FT56~, FT56+2, FT56+3, FT56+4, FT56+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, NUM55+16, DATA+2, DATA+3, DATA+6, DATA+8, DATA+11, DATA2+2 , DATA2+3, DATA2+6, DATA2+8, DATA2+10, FT1+6, FT1+7, FT1+8, FT1+9, FT1+10, FT1+11 , FT1+12, FT1+13, FT1+17, FT1+19, FT1+21, FT1+23, FT1+25, FT56+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, P2+18, FT1+1~, FT2+3, FT2+4* , FT2+5, FT2+6, FT2+7, FT2+8, FT2+9, FT2+10, FT2+11, FT2+12, FT2+13, FT2+14 , FT2+15, FT2+16
Y	P1+1~, FT1+1~
Z	P1+1~, FT1+1~

Customize PDF page

Package: IHS GPRA Information System

Routine: BGPMUAP3

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: