Routine: BGPMUDP1

Package	Total	Call Graph
IHS GPRA Information System	4	$$ROUND^BGPMUA01 (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	BGPMUDD1

Entry Points

Name	Comments	DBIA/ICR reference
P2	;Do the Details
P1A	;Write individual measure
P1	;Write individual measure
P2A	;Do the Details
TOB2	;Tobacco print
G28A(BGPMUTF)	;Get the numbers for this measure
SUM28B	;Populate "BGPMU SUMMARY" for Tobacco Cessation
SUM28A	;Populate "BGPMU SUMMARY" for Tobacco Assessment
DATA(NODE)	;GET DATA
LARGE(N1,N2)	;large function returns the largest of the 2 values
G28B(BGPMUTF)	;Get the numbers for this measure
TESTB	; debug target
TOB	;EP
DATA3(NODE)	;GET DATA
XML28A	;Populate the BGPXML array with data for each population/numerator ; BGPXMLOUT(i)=Population Number^Numerator Number^Denominator Count^Numerator Count^Exclusion Count
XML28B	;Populate the BGPXML array with data for each population/numerator ; BGPXMLOUT(i)=Population Number^Numerator Number^Denominator Count^Numerator Count^Exclusion Count

External References

Name	Field # of Occurrence
$$AGE^AUPNPAT	DATA+5, DATA3+5
$$HRN^AUPNPAT	DATA+4, DATA3+4
$$SEX^AUPNPAT	DATA+6, DATA3+6
$$ROUND^BGPMUA01	G28B+8, G28B+9, G28A+7, G28A+8, SUM28A+10, SUM28A+13, SUM28A+16, SUM28B+10, SUM28B+13, SUM28B+16
HDRBLK^BGPMUPH	P1+13, P1A+13
HEADER^BGPMUPH	P1+12, P1+15, P1+17, DATA+11, P1A+12, P1A+15, P1A+17
HEADERL^BGPMUPH	P2+3, P2A+2, DATA3+11
W^BGPMUPP	P2+4, P2+5, P2+6, P2+7, P2+8, P2+9, P2+10, P2+11
PTLSORT^BGPMUUTL	P2+17, P2+24, P2A+17, P2A+24
$$GET1^DIQ	DATA+3, DATA+7, DATA3+3, DATA3+7
$$FMTE^XLFDT	DATA+16, DATA+17, DATA+20, DATA+22, DATA3+14, DATA3+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Pts 18+/Tobacco user/24mos",?33,$P(STRING1,U,1),?44,$P(STRING2,U,1),?64,$P(STRING3,U,1) Line Location: P1+14
Function Call: WRITE	Prompt: !!,"# w/cess counsel/agent/24 mos",?33,$P(STRING1,U,2),?38,$J($P(STRING1,U,7),5,1),?44,$P(STRING2,U,2),?49,$J($P(STRING2,U,7),5,1),?56,$J($FN(PRD1,",+",1),6),?64,$P(STRING3,U,2),?68,$J($P(STRING3,U,7),5,1),?74,$J($FN(PRB1,",+",1),6) Line Location: P1+16
Function Call: WRITE	Prompt: !,"# w/o cess counsel/agent/24 mos",?33,$P(STRING1,U,3),?38,$J($P(STRING1,U,8),5,1),?44,$P(STRING2,U,3),?49,$J($P(STRING2,U,8),5,1),?56,$J($FN(PRD2,",+",1),6),?64,$P(STRING3,U,3),?68,$J($P(STRING3,U,8),5,1),?74,$J($FN(PRB2,",+",1),6) Line Location: P1+18
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?23,"HRN",?30,"COMMUNITY",?42,"SEX",?46,"AGE",?50,"DENOMINATOR",?63,"NUMERATOR" Line Location: P2+12
Function Call: WRITE	Prompt: !,LINE Line Location: P2+13
Function Call: WRITE	Prompt: !!,"Total # of patients on list: "_PTCT Line Location: P2+29
Function Call: WRITE	Prompt: !,LINE Line Location: DATA+13
Function Call: WRITE	Prompt: !,NAME,?23,HRN,?30,COMM,?42,SEX,?46,AGE Line Location: DATA+15
Function Call: WRITE	Prompt: !,?50,$S(BGPTMP="EN":"EN:"_$P($$FMTE^XLFDT($P($P(DEN,":",1),";",2),2),"@",1),1:"HF:"_$P($$FMTE^XLFDT($P(DEN,":",2),2),"@",1)) Line Location: DATA+20
Function Call: WRITE	Prompt: !,?50,"HF:"_$P($$FMTE^XLFDT($P(DEN,":",2),2),"@",1) Line Location: DATA+22
Function Call: WRITE	Prompt: !,"Pts 18+",?33,$P(STRING1,U,1),?44,$P(STRING2,U,1),?64,$P(STRING3,U,1) Line Location: P1A+14
Function Call: WRITE	Prompt: !!,"# w/tob screen-24 mos",?33,$P(STRING1,U,2),?38,$J($P(STRING1,U,7),5,1),?44,$P(STRING2,U,2),?49,$J($P(STRING2,U,7),5,1),?56,$J($FN(PRD1,",+",1),6),?64,$P(STRING3,U,2),?68,$J($P(STRING3,U,7),5,1),?74,$J($FN(PRB1,",+",1),6) Line Location: P1A+16
Function Call: WRITE	Prompt: !,"# w/o tob screen-24 mos",?33,$P(STRING1,U,3),?38,$J($P(STRING1,U,8),5,1),?44,$P(STRING2,U,3),?49,$J($P(STRING2,U,8),5,1),?56,$J($FN(PRD2,",+",1),6),?64,$P(STRING3,U,3),?68,$J($P(STRING3,U,8),5,1),?74,$J($FN(PRB2,",+",1),6) Line Location: P1A+18
Function Call: WRITE	Prompt: !,"Patients 18+ with at least 1 or 2 encounters with the EP during the reporting " Line Location: P2A+3
Function Call: WRITE	Prompt: !,"period, with documented tobacco screening within 24 months, if any." Line Location: P2A+4
Function Call: WRITE	Prompt: ! Line Location: P2A+5
Function Call: WRITE	Prompt: !,"Patients who do not meet the numerator criteria are listed first (NM:), followed" Line Location: P2A+6
Function Call: WRITE	Prompt: !,"by patients who do meet the numerator criteria (M:)." Line Location: P2A+7
Function Call: WRITE	Prompt: ! Line Location: P2A+8
Function Call: WRITE	Prompt: !,"The following are the abbreviations used in the denominator column:" Line Location: P2A+9
Function Call: WRITE	Prompt: !,"EN=Encounter" Line Location: P2A+10
Function Call: WRITE	Prompt: ! Line Location: P2A+11
Function Call: WRITE	Prompt: !,"PATIENT NAME",?23,"HRN",?30,"COMMUNITY",?42,"SEX",?46,"AGE",?50,"DENOMINATOR",?63,"NUMERATOR" Line Location: P2A+12
Function Call: WRITE	Prompt: !,LINE Line Location: P2A+13
Function Call: WRITE	Prompt: !!,"Total # of patients on list: "_PTCT Line Location: P2A+29
Function Call: WRITE	Prompt: !,LINE Line Location: DATA3+13
Function Call: WRITE	Prompt: !,NAME,?23,HRN,?30,COMM,?42,SEX,?46,AGE,?50,$S($P(DEN,";",1)'="":"EN:"_$P($$FMTE^XLFDT($P(DEN,";",1),2),"@",1)_$S($L(DEN,";")>1:";",1:""),1:""),?63,$S(NUM'="":"M:"_$E($P(NUM,";",1),1,15),1:"NM:") Line Location: DATA3+14
Function Call: WRITE	Prompt: !,?50,$S($P(DEN,";",2)'="":"EN:"_$P($$FMTE^XLFDT($P(DEN,";",2),2),"@",1),1:""),?65,$S($P(NUM,";",2)'="":$P($$FMTE^XLFDT($P(NUM,";",2),2),"@",1),1:"") Line Location: DATA3+15

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)
^TMP("BGPMU SUMMARY"	SUM28A+4!, SUM28A+5, SUM28A+23, SUM28B+4!, SUM28B+5, SUM28B+23
^TMP("BGPMU0028A"	TOB2+2!, G28A+2, G28A+3, G28A+4, XML28A+2, XML28A+3!, SUM28A+8, SUM28A+9, SUM28A+11, SUM28A+12 , SUM28A+14, SUM28A+15
^TMP("BGPMU0028B"	TOB+2!, G28B+3, G28B+4, G28B+5, XML28B+2, XML28B+3!, SUM28B+8, SUM28B+9, SUM28B+11, SUM28B+12 , SUM28B+14, SUM28B+15

Label References

Name	Line Occurrences
$$G28A	P1A+5, P1A+6, P1A+7
$$G28B	P1+5, P1+6, P1+7
DATA	P2+21, P2+28
DATA3	P2A+21, P2A+28
P1	TOB+1
P1A	TOB2+1
P2	P1+19
P2A	P1A+19
SUM28A	P1A+20
SUM28B	P1+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AGE	DATA+1~, DATA+5, DATA+15, DATA3+1~, DATA3+5, DATA3+14
ARRAY	G28B+1~, G28B+10, G28B+11, G28A+1~, G28A+9, G28A+10
>> BDEN1CT	SUM28A+14, SUM28A+16, SUM28A+22, SUM28B+14, SUM28B+16, SUM28B+22
BGPARR	P2+1~, P2+16!, P2+17, P2+23!, P2+24, P2A+1~, P2A+16!, P2A+17, P2A+23!, P2A+24
BGPARR(	P2+18, P2+20, P2+25, P2+27, P2A+18, P2A+20, P2A+25, P2A+27
BGPDNCNT	SUM28A+2~, SUM28A+3, SUM28A+17, SUM28A+23, SUM28B+2~, SUM28B+3, SUM28B+17, SUM28B+23
>> BGPED	DATA+5, DATA3+5
>> BGPIC	P1+19, P1A+19, SUM28A+4, SUM28A+5, SUM28A+23, SUM28B+4, SUM28B+5, SUM28B+23
>> BGPIOSL	P1+15, P1+17, DATA+10, P1A+15, P1A+17, DATA3+10
>> BGPLIST	P2+15, P2+22, P2A+15, P2A+22
>> BGPLIST(	P1+19, P1A+19
BGPMUTF	G28B~, G28B+3, G28B+4, G28B+5, G28A~, G28A+2, G28A+3, G28A+4
BGPPTYPE	P1+2~, P1+4, P2+4, P2+5, P2+6, P2+7, P2+8, P2+9, P2+10, P2+11 , P1A+1~, P1A+4
>> BGPQUIT	P1+12, P1+15, P1+17, P2+3, DATA+11, P1A+12, P1A+15, P1A+17, P2A+2, DATA3+11
BGPSSTR	SUM28A+2~, SUM28A+18, SUM28A+20, SUM28A+22, SUM28A+23, SUM28B+2~, SUM28B+18, SUM28B+20, SUM28B+22, SUM28B+23
>> BGPTMP	DATA+19*, DATA+20, DATA+22
>> BGPXML(1	XML28A+2, XML28B+2
BMI	P2+1~, P2A+1~
>> BMP	SUM28A+16, SUM28A+22, SUM28B+16, SUM28B+22
>> BNUM1CT	SUM28A+15, SUM28A+16, SUM28A+22, SUM28B+15, SUM28B+16, SUM28B+22
>> CDEN1CT	SUM28A+8, SUM28A+10, SUM28A+18, SUM28B+8, SUM28B+10, SUM28B+18
>> CMP	SUM28A+10, SUM28A+18, SUM28B+10, SUM28B+18
>> CNUM1CT	SUM28A+9, SUM28A+10, SUM28A+18, SUM28B+9, SUM28B+10, SUM28B+18
COMM	DATA+1~, DATA+7, DATA+15, DATA3+1~, DATA3+7, DATA3+14
DEN	DATA+1~, DATA+8, DATA+16, DATA+19, DATA+20, DATA+22, DATA3+1~, DATA3+8, DATA3+14, DATA3+15
DEN1	P1+2~, G28B+3, G28B+6, G28B+7, G28B+8, G28B+9, G28B+10, P1A+2~, G28A+1~, G28A+2 , G28A+5, G28A+6, G28A+7, G28A+8, G28A+9
DFN	DATA+1~, DATA+2, DATA+4, DATA+5, DATA+6, DATA+7, DATA3+1~, DATA3+2, DATA3+4, DATA3+5 , DATA3+6, DATA3+7
DUZ(2	DATA+4, DATA3+4
FOL	P2+1~, P2A+1~
HRN	DATA+1~, DATA+4, DATA+15, DATA3+1~, DATA3+4, DATA3+14
J	P1+1~, P1+3, G28B+2, G28B+3, G28B+4, G28B+5, P2+1~, P2+2*, SUM28A+2~, SUM28B+2~
LINE	P2+13, DATA+13, P1A+3~, P2A+1~, P2A+13, DATA3+13
LIST1	P1+1~, P1A+1~
LIST2	P1+1~, P1A+1~
LIST3	P1+1~, P1A+1~
N	G28B+1~, SUM28A+2~, SUM28A+6, SUM28A+8, SUM28A+9, SUM28A+11, SUM28A+12, SUM28A+14, SUM28A+15, SUM28A+18 , SUM28B+2~, SUM28B+6, SUM28B+8, SUM28B+9, SUM28B+11, SUM28B+12, SUM28B+14, SUM28B+15, SUM28B+18
N1	LARGE~, LARGE+1, LARGE+2, LARGE+3
N2	LARGE~, LARGE+1, LARGE+2
NAME	P2+1~, DATA+1~, DATA+3, DATA+15, P2A+1~, DATA3+1~, DATA3+3, DATA3+14
NODE	P2+1~, P2+20, P2+21, P2+27, P2+28, DATA~, DATA+2, DATA+3, DATA+8, DATA+9 , P2A+1~, P2A+20, P2A+21, P2A+27, P2A+28, DATA3~, DATA3+2, DATA3+3, DATA3+8, DATA3+9
NONUM	G28B+5, G28B+9, G28B+10, P1A+2~, G28A+1~, G28A+4, G28A+8, G28A+9
NUM	DATA+1~, DATA+9, DATA+17, DATA3+1~, DATA3+9, DATA3+14, DATA3+15
NUM1	P1+2~, G28B+4, G28B+8, G28B+10, P1A+2~, G28A+1~, G28A+3, G28A+7, G28A+9
PC1	P1+2~, G28B+6, G28B+8, G28B+10, P1A+2~, G28A+1~, G28A+5, G28A+7, G28A+9
>> PC2	G28B+6, G28B+9, G28B+10, G28A+5, G28A+8, G28A+9
>> PDEN1CT	SUM28A+11, SUM28A+13, SUM28A+20, SUM28B+11, SUM28B+13, SUM28B+20
>> PMP	SUM28A+13, SUM28A+20, SUM28B+13, SUM28B+20
>> PNUM1CT	SUM28A+12, SUM28A+13, SUM28A+20, SUM28B+12, SUM28B+13, SUM28B+20
PRB1	P1+2~, P1+10, P1+16, P1A+2~, P1A+10, P1A+16
PRB2	P1+2~, P1+11, P1+18, P1A+2~, P1A+11, P1A+18
PRD1	P1+2~, P1+8, P1+16, P1A+2~, P1A+8, P1A+16
PRD2	P1+2~, P1+9, P1+18, P1A+2~, P1A+9, P1A+18
PT	P2+1~, P2+18, P2+20, P2+25, P2+27, P2A+1~, P2A+18, P2A+20, P2A+25, P2A+27
PTCT	P2+14, P2+19, P2+26, P2+29, P2A+1~, P2A+14, P2A+19, P2A+26, P2A+29
SEX	DATA+1~, DATA+6, DATA+15, DATA3+1~, DATA3+6, DATA3+14
STRING1	P1+2~, P1+5, P1+8, P1+9, P1+10, P1+11, P1+14, P1+16, P1+18, P1A+2~ , P1A+5, P1A+8, P1A+9, P1A+10, P1A+11, P1A+14, P1A+16, P1A+18
STRING2	P1+2~, P1+6, P1+8, P1+9, P1+14, P1+16, P1+18, P1A+2~, P1A+6, P1A+8 , P1A+9, P1A+14, P1A+16, P1A+18
STRING3	P1+2~, P1+7, P1+10, P1+11, P1+14, P1+16, P1+18, P1A+2~, P1A+7, P1A+10 , P1A+11, P1A+14, P1A+16, P1A+18
U	P1+8, P1+9, P1+10, P1+11, P1+14, P1+16, P1+18, G28B+10, DATA+2, DATA+3 , DATA+8, DATA+9, P1A+8, P1A+9, P1A+10, P1A+11, P1A+14, P1A+16, P1A+18, G28A+9 , DATA3+2, DATA3+3, DATA3+8, DATA3+9, XML28A+2, XML28B+2, SUM28A+5, SUM28A+18, SUM28A+20, SUM28A+22 , SUM28B+5, SUM28B+18, SUM28B+20, SUM28B+22
VST	P2+1~, P2A+1~
X	P1+1~, P2+1~, P2+4, P2+5, P2+6, P2+7, P2+8, P2+9, P2+10, P2+11 , P1A+1~, P2A+1~
Y	P1+1~, P1A+1~
Z	P1+1~, P1A+1~

Customize PDF page

Package: IHS GPRA Information System

Routine: BGPMUDP1

Information

Source Information

Call Graph

Call Graph Total: 7

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: