Routine: BGPMUHP4

Package	Total	Call Graph
IHS GPRA Information System	5	$$ROUND^BGPMUA01 (SUM439,SUM440)^BGPMUHD3 (HDRBLK,HEADER,HEADERL)^BGPMUPH W^BGPMUPP PTLSORT^BGPMUUTL
IHS Patient	1	($$AGE,$$HRN,$$SEX)^AUPNPAT
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS GPRA Information System	1	BGPMUHD3

Name	Comments	DBIA/ICR reference
P6	;Write individual measure
DEXC440(NODE)	;GET DATA
DEXC439(NODE)	;GET DATA
439(BGPMUTF)	;Get the numbers for this measure
P8	;Write individual measure
D440(NODE)	;get data
XML439	;Populate the BGPXML array with data for each population/numerator ; BGPXMLOUT(i)=Population Number^Numerator Number^Denominator Count^Numerator Count^Exclusion Count
440(BGPMUTF)	;Get the numbers for this measure
P6D	;Do the Details
STK6	;EP output routine for 0439 STK-6
STK8	;EP
P8D	;Do the Details
XML440	;Populate the BGPXML array with data for each population/numerator ; BGPXMLOUT(i)=Population Number^Numerator Number^Denominator Count^Numerator Count^Exclusion Count
D439(NODE)	;get data

Name	Field # of Occurrence
$$AGE^AUPNPAT	D439+5, DEXC439+5
$$HRN^AUPNPAT	D439+4, DEXC439+4
$$SEX^AUPNPAT	D439+6, DEXC439+6
$$ROUND^BGPMUA01	P6+11, 439+10, 439+11, 439+12, P8+11, 440+10, 440+11, 440+12
SUM439^BGPMUHD3	P6+37
SUM440^BGPMUHD3	P8+32
HDRBLK^BGPMUPH	P6+15, P8+15
HEADER^BGPMUPH	P6+13, P6+21, P6+23, P6+30, P6+33, DEXC439+11, P8+13, P8+19, P8+21, P8+25 , P8+28
HEADERL^BGPMUPH	P6D+2, P6D+12, D439+11, P8D+2, P8D+13
W^BGPMUPP	P6D+3, P6D+4, P6D+5, P6D+6, P6D+7, P6D+8, P6D+9, P6D+10, P6D+11, P6D+36 , P8D+4, P8D+5, P8D+6, P8D+7, P8D+8, P8D+9, P8D+10, P8D+11, P8D+37
PTLSORT^BGPMUUTL	P6D+18, P6D+24, P6D+31, P8D+19, P8D+25, P8D+32
$$GET1^DIQ	D439+3, D439+7, DEXC439+3, DEXC439+7
$$FMTE^XLFDT	D439+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: P6+14
Function Call: WRITE	Prompt: !,"# Discharges for Pts",?33,$P(STRING1,U,1),?44,$P(STRING2,U,1),?65,$P(STRING3,U,1) Line Location: P6+16
Function Call: WRITE	Prompt: !,"w/Isc Stk w/LDL >=100, or" Line Location: P6+17
Function Call: WRITE	Prompt: !,"LDL not measured, or who" Line Location: P6+18
Function Call: WRITE	Prompt: !,"were on lipid-lowering" Line Location: P6+19
Function Call: WRITE	Prompt: !,"Med prior to arrival" Line Location: P6+20
Function Call: WRITE	Prompt: !,"# Excluded (Exc)",?33,$P(STRING1,U,4),?44,$P(STRING2,U,4),?65,$P(STRING3,U,4) Line Location: P6+22
Function Call: WRITE	Prompt: !,"# Discharges for Pts",?33,$P(STRING1,U,1)-$P(STRING1,U,4),?44,$P(STRING2,U,1)-$P(STRING2,U,4),?65,$P(STRING3,U,1)-$P(STRING3,U,4) Line Location: P6+24
Function Call: WRITE	Prompt: !,"w/Isc Stk w/LDL >=100, or" Line Location: P6+25
Function Call: WRITE	Prompt: !,"LDL not measured, or who" Line Location: P6+26
Function Call: WRITE	Prompt: !,"were on lipid-lowering" Line Location: P6+27
Function Call: WRITE	Prompt: !,"Med prior to arrival Less Exc" Line Location: P6+28
Function Call: WRITE	Prompt: ! Line Location: P6+29
Function Call: WRITE	Prompt: !,"# w/statin medicine",?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(PRD2,",+",1),6),?65,$P(STRING3,U,2),?68,$J($P(STRING3,U,5),5,1),?74,$J($FN(PRD3,",+",1),6) Line Location: P6+31
Function Call: WRITE	Prompt: !,"at discharge" Line Location: P6+32
Function Call: WRITE	Prompt: !,"# w/o statin medicine",?33,$P(STRING1,U,3),?38,$J($P(STRING1,U,6),5,1),?44,$P(STRING2,U,3),?49,$J($P(STRING2,U,6),5,1),?56,$J($FN(PRD4,",+",1),6),?65,$P(STRING3,U,3),?68,$J($P(STRING3,U,6),5,1),?74,$J($FN(PRD5,",+",1),6) Line Location: P6+34
Function Call: WRITE	Prompt: !,"at discharge" Line Location: P6+35
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?25,"HRN",?33,"COMMUNITY",?44,"SEX",?48,"AGE",?53,"DENOMINATOR",?69,"NUMERATOR" Line Location: P6D+13
Function Call: WRITE	Prompt: !,LINE Line Location: P6D+14
Function Call: WRITE	Prompt: !,LINE Line Location: D439+13
Function Call: WRITE	Prompt: !,LINE Line Location: DEXC439+13
Function Call: WRITE	Prompt: !,NAME,?25,HRN,?33,COMM,?44,SEX,?48,AGE,?53,"Excluded" Line Location: DEXC439+14
Function Call: WRITE	Prompt: ! Line Location: P8+14
Function Call: WRITE	Prompt: !,"# Discharges for Pts",?33,$P(STRING1,U,1),?44,$P(STRING2,U,1),?65,$P(STRING3,U,1) Line Location: P8+16
Function Call: WRITE	Prompt: !,"w/Isc/Hemm stroke &" Line Location: P8+17
Function Call: WRITE	Prompt: !,"discharged home" Line Location: P8+18
Function Call: WRITE	Prompt: !,"# Excluded (Exc)",?33,$P(STRING1,U,4),?44,$P(STRING2,U,4),?65,$P(STRING3,U,4) Line Location: P8+20
Function Call: WRITE	Prompt: !,"# Discharges for Pts",?33,$P(STRING1,U,1)-$P(STRING1,U,4),?44,$P(STRING2,U,1)-$P(STRING2,U,4),?65,$P(STRING3,U,1)-$P(STRING3,U,4) Line Location: P8+22
Function Call: WRITE	Prompt: !,"w/Isc/Hemm stroke &" Line Location: P8+23
Function Call: WRITE	Prompt: !,"discharged home Less Exc" Line Location: P8+24
Function Call: WRITE	Prompt: !!,"# w/educational",?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(PRD2,",+",1),6),?65,$P(STRING3,U,2),?68,$J($P(STRING3,U,5),5,1),?74,$J($FN(PRD3,",+",1),6) Line Location: P8+26
Function Call: WRITE	Prompt: !,"material at disch" Line Location: P8+27
Function Call: WRITE	Prompt: !,"# w/o educational",?33,$P(STRING1,U,3),?38,$J($P(STRING1,U,6),5,1),?44,$P(STRING2,U,3),?49,$J($P(STRING2,U,6),5,1),?56,$J($FN(PRD4,",+",1),6),?65,$P(STRING3,U,3),?68,$J($P(STRING3,U,6),5,1),?74,$J($FN(PRD5,",+",1),6) Line Location: P8+29
Function Call: WRITE	Prompt: !,"material at disch" Line Location: P8+30
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?25,"HRN",?33,"COMMUNITY",?44,"SEX",?48,"AGE",?53,"DENOMINATOR",?69,"NUMERATOR" Line Location: P8D+14
Function Call: WRITE	Prompt: !,LINE Line Location: P8D+15

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

Name	Line Occurrences (* Changed, ! Killed)
^TMP("BGPMU0439"	STK6+2!, 439+2, 439+3, 439+4, 439+5, P6D+16, P6D+23, P6D+30, XML439+2, XML439+3!
^TMP("BGPMU0440"	STK8+2!, 440+2, 440+3, 440+4, 440+5, P8D+17, P8D+24, P8D+31, XML440+2, XML440+3!

Name	Line Occurrences
$$439	P6+3, P6+4, P6+5
$$440	P8+3, P8+4, P8+5
D439	P6D+22, P6D+28, D440+1
D440	P8D+23, P8D+29
DEXC439	P6D+35, DEXC440+1
DEXC440	P8D+36
P6	STK6+1
P6D	P6+36
P8	STK8+1
P8D	P8+31

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AGE	D439+1~, D439+5, D439+14, DEXC439+1~, DEXC439+5, DEXC439+14
ARRAY	439+1~, 439+13, 439+14, 440+1~, 440+13, 440+14
BGPARR	P6D+17!, P6D+18, P6D+24, P6D+31, P8D+18!, P8D+19, P8D+25, P8D+32
BGPARR(	P6D+19, P6D+21, P6D+25, P6D+27, P6D+32, P6D+34, P8D+20, P8D+22, P8D+26, P8D+28 , P8D+33, P8D+35
>> BGPED	D439+5, DEXC439+5
BGPI	D439+1~, DEXC439+1~
>> BGPIC	P6+36, P8+31
>> BGPIOSL	P6+21, P6+23, P6+30, P6+33, P6D+12, D439+10, DEXC439+10, P8+19, P8+21, P8+25 , P8+28, P8D+13
>> BGPLIST	P6D+16, P6D+23, P6D+30, P8D+17, P8D+24, P8D+31
>> BGPLIST(	P6+36, P8+31
BGPMUTF	439~, 439+2, 439+3, 439+4, 439+5, 440~, 440+2, 440+3, 440+4, 440+5
>> BGPPTYPE	P6D+3, P6D+4, P6D+5, P6D+6, P6D+7, P6D+8, P6D+9, P6D+10, P6D+11, P6D+36 , P8D+4, P8D+5, P8D+6, P8D+7, P8D+8, P8D+9, P8D+10, P8D+11, P8D+37
>> BGPQUIT	P6+13, P6+21, P6+23, P6+30, P6+33, P6D+2, P6D+12, D439+11, DEXC439+11, P8+13 , P8+19, P8+21, P8+25, P8+28, P8D+2, P8D+13
>> BGPXML(1	XML439+2, XML440+2
BMI	P6D+1~, P8D+1~
>> COMM	D439+7, D439+14, DEXC439+7, DEXC439+14
DATA	D439+1~, DEXC439+1~
DEN	D439+1~, D439+8, D439+14, DEXC439+1~, DEXC439+8
DEN1	P6+2~, 439+2, 439+6, 439+7, 439+8, 439+10, 439+11, 439+12, 439+13, P8+2~ , 440+2, 440+6, 440+7, 440+8, 440+10, 440+11, 440+12, 440+13
DFN	D439+1~, D439+2, D439+4, D439+5, D439+6, D439+7, DEXC439+1~, DEXC439+2, DEXC439+4, DEXC439+5 , DEXC439+6, DEXC439+7
DUZ(2	D439+4, DEXC439+4
EXC1	P6+2~, 439+5, 439+8, 439+10, 439+11, 439+12, 439+13, P8+2~, 440+5, 440+8 , 440+10, 440+11, 440+12, 440+13
FOL	P6D+1~, P8D+1~
HRN	D439+1~, D439+4, D439+14, DEXC439+1~, DEXC439+4, DEXC439+14
>> LINE	P6D+14, D439+13, DEXC439+13, P8D+15
LIST1	P6+1~, P8+1~
LIST2	P6+1~, P8+1~
LIST3	P6+1~, P8+1~
NAME	P6D+1~, D439+1~, D439+3, D439+14, DEXC439+1~, DEXC439+3, DEXC439+14, P8D+1~
NODE	P6D+1~, P6D+21, P6D+22, P6D+27, P6D+28, P6D+34, P6D+35, D440~, D440+1, D439~ , D439+2, D439+3, D439+8, D439+9, D439+14, DEXC440~, DEXC440+1, DEXC439~, DEXC439+2, DEXC439+3 , DEXC439+8, DEXC439+9, P8D+1~, P8D+22, P8D+23, P8D+28, P8D+29, P8D+35, P8D+36
NONOM	P8+2~
NONUM	P6+2~, 439+4, 439+11, 439+13, 440+4, 440+11, 440+13
NUM	D439+1~, D439+9, D439+14, DEXC439+1~, DEXC439+9
NUM1	P6+2~, 439+3, 439+10, 439+13, P8+2~, 440+3, 440+10, 440+13
PC1	P6+2~, 439+6, 439+8, 439+10, 439+13, P8+2~, 440+6, 440+8, 440+10, 440+13
PC11	P6+2~, 439+6, 439+8, 439+11, 439+13, P8+2~, 440+6, 440+8, 440+11, 440+13
PC13	P6+2~, 439+6, 439+12, 439+13, P8+2~, 440+6, 440+8, 440+12*, 440+13
PRB1	P8+2~
PRB2	P8+2~
PRD1	P6+2~, P6+6, P8+2~, P8+6
PRD2	P6+2~, P6+7, P6+31, P8+2~, P8+7, P8+26
PRD3	P6+2~, P6+8, P6+31, P8+8, P8+26
PRD4	P6+2~, P6+9, P6+34, P8+9, P8+29
PRD5	P6+2~, P6+10, P6+34, P8+10, P8+29
>> PRD6	P6+11, P6+12, P8+11, P8+12
PT	P6D+1~, P6D+19, P6D+21, P6D+25, P6D+27, P6D+32, P6D+34, P8D+1~, P8D+20, P8D+22 , P8D+26, P8D+28, P8D+33, P8D+35
PTCT	P6D+15, P6D+20, P6D+26, P6D+33, P6D+36, P8D+1~, P8D+16, P8D+21, P8D+27, P8D+34 , P8D+37
>> SEX	D439+6, D439+14, DEXC439+6, DEXC439+14
STRING1	P6+2~, P6+3, P6+6, P6+7, P6+8, P6+9, P6+10, P6+11, P6+16, P6+22 , P6+24, P6+31, P6+34, P8+2~, P8+3, P8+6, P8+7, P8+8, P8+9, P8+10 , P8+11, P8+16, P8+20, P8+22, P8+26, P8+29
STRING2	P6+2~, P6+4, P6+6, P6+7, P6+9, P6+16, P6+22, P6+24, P6+31, P6+34 , P8+2~, P8+4, P8+6, P8+7, P8+9, P8+16, P8+20, P8+22, P8+26, P8+29
STRING3	P6+2~, P6+5, P6+8, P6+10, P6+11, P6+16, P6+22, P6+24, P6+31, P6+34 , P8+2~, P8+5, P8+8, P8+10, P8+11, P8+16, P8+20, P8+22, P8+26, P8+29
U	P6+6, P6+7, P6+8, P6+9, P6+10, P6+11, P6+16, P6+22, P6+24, P6+31 , P6+34, 439+13, D439+2, D439+3, D439+8, D439+9, DEXC439+2, DEXC439+3, DEXC439+8, DEXC439+9 , P8+6, P8+7, P8+8, P8+9, P8+10, P8+11, P8+16, P8+20, P8+22, P8+26 , P8+29, 440+13, XML439+2, XML440+2
VST	P6D+1~, P8D+1~
X	P6+1~, P6D+1~, P6D+3, P6D+4, P6D+5, P6D+6, P6D+7, P6D+8, P6D+9, P6D+10 , P6D+11, P6D+36, P8+1~, P8D+1~, P8D+4, P8D+5, P8D+6, P8D+7, P8D+8, P8D+9 , P8D+10, P8D+11, P8D+37*
Y	P6+1~, P8+1~
Z	P6+1~, P8+1~

Customize PDF page

Package: IHS GPRA Information System

Routine: BGPMUHP4

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: