BGP1DP1J ; IHS/CMI/LAB - print ind 1 12 Nov 2010 7:38 AM ;
;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
;
I1AGEP ;EP
PR ;
I '$G(BGPSUMON),BGPPTYPE="P" D HEADER^BGP1DPH Q:BGPQUIT D W^BGP1DP(^BGPINDB(BGPIC,53,1,0),0,1,BGPPTYPE) D:$D(^BGPINDB(BGPIC,53,2,0)) W^BGP1DP(^BGPINDB(BGPIC,53,2,0),0,1,BGPPTYPE) D AH
D W^BGP1DP("PREVIOUS REPORT PERIOD",0,$S(BGPPTYPE="P":1,1:2),BGPPTYPE)
D W^BGP1DP(BGPHD2,0,1,BGPPTYPE)
S T=23 F X=1:1:$S(BGPPTYPE="P":8,1:13) S V=$P(BGPDAP(X),U) D W^BGP1DP($S(BGPPTYPE="P":$$C(V,0,6),1:$S(V:V,1:0)),0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="P" D W^BGP1DP("# w/HIV screening-No",0,2,BGPPTYPE)
D W^BGP1DP($S(BGPPTYPE="P":" Refusals (GPRA Dev.)",1:"# w/HIV screening-No Refusals (GPRA Dev.)"),0,$S(BGPPTYPE="P":1,1:2),BGPPTYPE,1,1)
S T=23 F X=1:1:$S(BGPPTYPE="P":8,1:13) S V=$P(BGPDAP(X),U,2) D W^BGP1DP($S(BGPPTYPE="P":$$C(V,0,6),1:$S(V:V,1:0)),0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="P" D W^BGP1DP("% w/HIV screening-No",0,1,BGPPTYPE)
D W^BGP1DP($S(BGPPTYPE="P":" Refusals (GPRA Dev.)",1:"% w/HIV screening-No Refusals (GPRA Dev.)"),0,$S(BGPPTYPE="P":1,1:1),BGPPTYPE,1,1)
S T=23 F X=1:1:$S(BGPPTYPE="P":8,1:13) S V=$P(BGPDAP(X),U,3) D W^BGP1DP($S(BGPPTYPE="P":$J(V,6,1),1:$$SB($J(V,6,1))),0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="D" D W^BGP1DP("A. # w/ positive result w/ % of Total Screened",0,2,BGPPTYPE)
I BGPPTYPE="P" D W^BGP1DP("A. # w/ positive result w/",0,2,BGPPTYPE),W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
S T=23 F X=1:1:$S(BGPPTYPE="P":8,1:13) S V=$P(BGPDAP(X),U,4) D W^BGP1DP($S(BGPPTYPE="P":$$C(V,0,6),1:$S(V:V,1:0)),0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="D" D W^BGP1DP("% A. w/ positive result w/ % of Total Screened",0,1,BGPPTYPE)
I BGPPTYPE="P" D W^BGP1DP("% A. w/ positive result w/",0,1,BGPPTYPE),W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
S T=23 F X=1:1:$S(BGPPTYPE="P":8,1:13) S V=$P(BGPDAP(X),U,5) D W^BGP1DP($S(BGPPTYPE="P":$J(V,6,1),1:$$SB($J(V,6,1))),0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="D" D W^BGP1DP("B. # w/ negative result w/ % of Total Screened",0,2,BGPPTYPE)
I BGPPTYPE="P" D W^BGP1DP("B. # w/ negative result w/",0,2,BGPPTYPE),W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
S T=23 F X=1:1:$S(BGPPTYPE="P":8,1:13) S V=$P(BGPDAP(X),U,6) D W^BGP1DP($S(BGPPTYPE="P":$$C(V,0,6),1:$S(V:V,1:0)),0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="D" D W^BGP1DP("% B. w/ negative result w/ % of Total Screened",0,1,BGPPTYPE)
I BGPPTYPE="P" D W^BGP1DP("% B. w/ negative result w/",0,1,BGPPTYPE),W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
S T=23 F X=1:1:$S(BGPPTYPE="P":8,1:13) S V=$P(BGPDAP(X),U,7) D W^BGP1DP($S(BGPPTYPE="P":$J(V,6,1),1:$$SB($J(V,6,1))),0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="D" D W^BGP1DP("C. # w/ No result w/ % of Total Screened",0,2,BGPPTYPE)
I BGPPTYPE="P" D W^BGP1DP("C. # w/ No result w/",0,2,BGPPTYPE),W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
S T=23 F X=1:1:$S(BGPPTYPE="P":8,1:13) S V=$P(BGPDAP(X),U,8) D W^BGP1DP($S(BGPPTYPE="P":$$C(V,0,6),1:$S(V:V,1:0)),0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="D" D W^BGP1DP("% C. # w/ No result w/ % of Total Screened",0,1,BGPPTYPE)
I BGPPTYPE="P" D W^BGP1DP("% C. # w/ No result w/",0,1,BGPPTYPE),W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
S T=23 F X=1:1:$S(BGPPTYPE="P":8,1:13) S V=$P(BGPDAP(X),U,9) D W^BGP1DP($S(BGPPTYPE="P":$J(V,6,1),1:$$SB($J(V,6,1))),0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="P" D W^BGP1DP("# w/HIV screening",0,2,BGPPTYPE)
D W^BGP1DP($S(BGPPTYPE="P":" Refusal",1:"# w/HIV screening Refusal"),0,$S(BGPPTYPE="P":1,1:2),BGPPTYPE,1,1)
S T=23 F X=1:1:$S(BGPPTYPE="P":8,1:13) S V=$P(BGPDAP(X),U,10) D W^BGP1DP($S(BGPPTYPE="P":$$C(V,0,6),1:$S(V:V,1:0)),0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="P" D W^BGP1DP("% w/HIV screening",0,1,BGPPTYPE)
D W^BGP1DP($S(BGPPTYPE="P":" Refusal",1:"% w/HIV screening Refusal"),0,$S(BGPPTYPE="P":1,1:1),BGPPTYPE,1,1)
S T=23 F X=1:1:$S(BGPPTYPE="P":8,1:13) S V=$P(BGPDAP(X),U,11) D W^BGP1DP($S(BGPPTYPE="P":$J(V,6,1),1:$$SB($J(V,6,1))),0,0,BGPPTYPE,X+1,T) S T=T+7
;percentage changes
D W^BGP1DP("CHANGE FROM PREVIOUS YR %",0,2,BGPPTYPE)
I BGPPTYPE="P" D W^BGP1DP("# w/HIV screening-No",0,2,BGPPTYPE)
D W^BGP1DP($S(BGPPTYPE="P":" Refusals (GPRA Dev.)",1:"# w/HIV screening-No Refusals (GPRA Dev.)"),0,$S(BGPPTYPE="P":1,1:2),BGPPTYPE,1,1)
S T=22 F X=1:1:$S(BGPPTYPE="P":8,1:13) S N=$P(BGPDAC(X),U,3),O=$P(BGPDAP(X),U,3) S:N="" N=0 S:O="" O=0 S Y=$S(BGPPTYPE="P":$J($FN((N-O),"+,",1),6),1:$$SB($J((N-O),6,1))) D W^BGP1DP(Y,0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="D" D W^BGP1DP("A. # w/ positive result w/ % of Total Screened",0,1,BGPPTYPE)
I BGPPTYPE="P" D W^BGP1DP("A. # w/ positive result w/",0,1,BGPPTYPE),W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
S T=22 F X=1:1:$S(BGPPTYPE="P":8,1:13) S N=$P(BGPDAC(X),U,5),O=$P(BGPDAP(X),U,5) S:N="" N=0 S:O="" O=0 S Y=$S(BGPPTYPE="P":$J($FN((N-O),"+,",1),6),1:$$SB($J((N-O),6,1))) D W^BGP1DP(Y,0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="D" D W^BGP1DP("B. # w/ negative result w/ % of Total Screened",0,1,BGPPTYPE)
I BGPPTYPE="P" D W^BGP1DP("B. # w/ negative result w/",0,1,BGPPTYPE),W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
S T=22 F X=1:1:$S(BGPPTYPE="P":8,1:13) S N=$P(BGPDAC(X),U,7),O=$P(BGPDAP(X),U,7) S:N="" N=0 S:O="" O=0 S Y=$S(BGPPTYPE="P":$J($FN((N-O),"+,",1),6),1:$$SB($J((N-O),6,1))) D W^BGP1DP(Y,0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="D" D W^BGP1DP("C. # w/ No result w/ % of Total Screened",0,1,BGPPTYPE)
I BGPPTYPE="P" D W^BGP1DP("C. # w/ No result w/",0,1,BGPPTYPE),W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
S T=22 F X=1:1:$S(BGPPTYPE="P":8,1:13) S N=$P(BGPDAC(X),U,9),O=$P(BGPDAP(X),U,9) S:N="" N=0 S:O="" O=0 S Y=$S(BGPPTYPE="P":$J($FN((N-O),"+,",1),6),1:$$SB($J((N-O),6,1))) D W^BGP1DP(Y,0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="P" D W^BGP1DP("% w/HIV screening",0,1,BGPPTYPE)
D W^BGP1DP($S(BGPPTYPE="P":" Refusal",1:"% w/HIV screening Refusal"),0,$S(BGPPTYPE="P":1,1:1),BGPPTYPE,1,1)
S T=22 F X=1:1:$S(BGPPTYPE="P":8,1:13) S N=$P(BGPDAC(X),U,11),O=$P(BGPDAP(X),U,11) S:N="" N=0 S:O="" O=0 S Y=$S(BGPPTYPE="P":$J($FN((N-O),"+,",1),6),1:$$SB($J((N-O),6,1))) D W^BGP1DP(Y,0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="P" S BGP1STP=0 D PR^BGP1DP1I
S BGP1STP=1
BL ;EP
I '$G(BGPSUMON),BGPPTYPE="P" D HEADER^BGP1DPH Q:BGPQUIT D W^BGP1DP(^BGPINDB(BGPIC,53,1,0),0,1,BGPPTYPE) D:$D(^BGPINDB(BGPIC,53,2,0)) W^BGP1DP(^BGPINDB(BGPIC,53,2,0),0,1,BGPPTYPE) D AH
D W^BGP1DP("BASELINE REPORT PERIOD",0,$S(BGPPTYPE="P":1,1:2),BGPPTYPE)
D W^BGP1DP(BGPHD2,0,1,BGPPTYPE)
S T=23 F X=1:1:$S(BGPPTYPE="P":8,1:13) S V=$P(BGPDAB(X),U) D W^BGP1DP($S(BGPPTYPE="P":$$C(V,0,6),1:$S(V:V,1:0)),0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="P" D W^BGP1DP("# w/HIV screening-No",0,2,BGPPTYPE)
D W^BGP1DP($S(BGPPTYPE="P":" Refusals (GPRA Dev.)",1:"# w/HIV screening-No Refusals (GPRA Dev.)"),0,$S(BGPPTYPE="P":1,1:2),BGPPTYPE,1,1)
S T=23 F X=1:1:$S(BGPPTYPE="P":8,1:13) S V=$P(BGPDAB(X),U,2) D W^BGP1DP($S(BGPPTYPE="P":$$C(V,0,6),1:$S(V:V,1:0)),0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="P" D W^BGP1DP("% w/HIV screening-No",0,1,BGPPTYPE)
D W^BGP1DP($S(BGPPTYPE="P":" Refusals (GPRA Dev.)",1:"% w/HIV screening-No Refusals (GPRA Dev.)"),0,$S(BGPPTYPE="P":1,1:1),BGPPTYPE,1,1)
S T=23 F X=1:1:$S(BGPPTYPE="P":8,1:13) S V=$P(BGPDAB(X),U,3) D W^BGP1DP($S(BGPPTYPE="P":$J(V,6,1),1:$$SB($J(V,6,1))),0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="D" D W^BGP1DP("A. # w/ positive result w/ % of Total Screened",0,2,BGPPTYPE)
I BGPPTYPE="P" D W^BGP1DP("A. # w/ positive result w/",0,2,BGPPTYPE),W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
S T=23 F X=1:1:$S(BGPPTYPE="P":8,1:13) S V=$P(BGPDAB(X),U,4) D W^BGP1DP($S(BGPPTYPE="P":$$C(V,0,6),1:$S(V:V,1:0)),0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="D" D W^BGP1DP("% A. w/ positive result w/ % of Total Screened",0,1,BGPPTYPE)
I BGPPTYPE="P" D W^BGP1DP("% A. w/ positive result w/",0,1,BGPPTYPE),W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
S T=23 F X=1:1:$S(BGPPTYPE="P":8,1:13) S V=$P(BGPDAB(X),U,5) D W^BGP1DP($S(BGPPTYPE="P":$J(V,6,1),1:$$SB($J(V,6,1))),0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="D" D W^BGP1DP("B. # w/ negative result w/ % of Total Screened",0,2,BGPPTYPE)
I BGPPTYPE="P" D W^BGP1DP("B. # w/ negative result w/",0,2,BGPPTYPE),W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
S T=23 F X=1:1:$S(BGPPTYPE="P":8,1:13) S V=$P(BGPDAB(X),U,6) D W^BGP1DP($S(BGPPTYPE="P":$$C(V,0,6),1:$S(V:V,1:0)),0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="D" D W^BGP1DP("% B. w/ negative result w/ % of Total Screened",0,1,BGPPTYPE)
I BGPPTYPE="P" D W^BGP1DP("% B. w/ negative result w/",0,1,BGPPTYPE),W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
S T=23 F X=1:1:$S(BGPPTYPE="P":8,1:13) S V=$P(BGPDAB(X),U,7) D W^BGP1DP($S(BGPPTYPE="P":$J(V,6,1),1:$$SB($J(V,6,1))),0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="D" D W^BGP1DP("C. # w/ No result w/ % of Total Screened",0,2,BGPPTYPE)
I BGPPTYPE="P" D W^BGP1DP("C. # w/ No result w/",0,2,BGPPTYPE),W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
S T=23 F X=1:1:$S(BGPPTYPE="P":8,1:13) S V=$P(BGPDAB(X),U,8) D W^BGP1DP($S(BGPPTYPE="P":$$C(V,0,6),1:$S(V:V,1:0)),0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="D" D W^BGP1DP("% C. # w/ No result w/ % of Total Screened",0,1,BGPPTYPE)
I BGPPTYPE="P" D W^BGP1DP("% C. # w/ No result w/",0,1,BGPPTYPE),W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
S T=23 F X=1:1:$S(BGPPTYPE="P":8,1:13) S V=$P(BGPDAB(X),U,9) D W^BGP1DP($S(BGPPTYPE="P":$J(V,6,1),1:$$SB($J(V,6,1))),0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="P" D W^BGP1DP("# w/HIV screening",0,2,BGPPTYPE)
D W^BGP1DP($S(BGPPTYPE="P":" Refusal",1:"# w/HIV screening Refusal"),0,$S(BGPPTYPE="P":1,1:2),BGPPTYPE,1,1)
S T=23 F X=1:1:$S(BGPPTYPE="P":8,1:13) S V=$P(BGPDAB(X),U,10) D W^BGP1DP($S(BGPPTYPE="P":$$C(V,0,6),1:$S(V:V,1:0)),0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="P" D W^BGP1DP("% w/HIV screening",0,1,BGPPTYPE)
D W^BGP1DP($S(BGPPTYPE="P":" Refusal",1:"% w/HIV screening Refusal"),0,$S(BGPPTYPE="P":1,1:1),BGPPTYPE,1,1)
S T=23 F X=1:1:$S(BGPPTYPE="P":8,1:13) S V=$P(BGPDAB(X),U,11) D W^BGP1DP($S(BGPPTYPE="P":$J(V,6,1),1:$$SB($J(V,6,1))),0,0,BGPPTYPE,X+1,T) S T=T+7
;
D W^BGP1DP("CHANGE FROM BASELINE YR %",0,2,BGPPTYPE)
I BGPPTYPE="P" D W^BGP1DP("# w/HIV screening-No",0,2,BGPPTYPE)
D W^BGP1DP($S(BGPPTYPE="P":" Refusals (GPRA Dev.)",1:"# w/HIV screening-No Refusals (GPRA Dev.)"),0,$S(BGPPTYPE="P":1,1:2),BGPPTYPE,1,1)
S T=22 F X=1:1:$S(BGPPTYPE="P":8,1:13) S N=$P(BGPDAC(X),U,3),O=$P(BGPDAB(X),U,3) S:N="" N=0 S:O="" O=0 S Y=$S(BGPPTYPE="P":$J($FN((N-O),"+,",1),6),1:$$SB($J((N-O),6,1))) D W^BGP1DP(Y,0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="D" D W^BGP1DP("A. # w/ positive result w/ % of Total Screened",0,1,BGPPTYPE)
I BGPPTYPE="P" D W^BGP1DP("A. # w/ positive result w/",0,1,BGPPTYPE),W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
S T=22 F X=1:1:$S(BGPPTYPE="P":8,1:13) S N=$P(BGPDAC(X),U,5),O=$P(BGPDAB(X),U,5) S:N="" N=0 S:O="" O=0 S Y=$S(BGPPTYPE="P":$J($FN((N-O),"+,",1),6),1:$$SB($J((N-O),6,1))) D W^BGP1DP(Y,0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="D" D W^BGP1DP("B. # w/ negative result w/ % of Total Screened",0,1,BGPPTYPE)
I BGPPTYPE="P" D W^BGP1DP("B. # w/ negative result w/",0,1,BGPPTYPE),W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
S T=22 F X=1:1:$S(BGPPTYPE="P":8,1:13) S N=$P(BGPDAC(X),U,7),O=$P(BGPDAB(X),U,7) S:N="" N=0 S:O="" O=0 S Y=$S(BGPPTYPE="P":$J($FN((N-O),"+,",1),6),1:$$SB($J((N-O),6,1))) D W^BGP1DP(Y,0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="D" D W^BGP1DP("C. # w/ No result w/ % of Total Screened",0,1,BGPPTYPE)
I BGPPTYPE="P" D W^BGP1DP("C. # w/ No result w/",0,1,BGPPTYPE),W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
S T=22 F X=1:1:$S(BGPPTYPE="P":8,1:13) S N=$P(BGPDAC(X),U,9),O=$P(BGPDAB(X),U,9) S:N="" N=0 S:O="" O=0 S Y=$S(BGPPTYPE="P":$J($FN((N-O),"+,",1),6),1:$$SB($J((N-O),6,1))) D W^BGP1DP(Y,0,0,BGPPTYPE,X+1,T) S T=T+7
I BGPPTYPE="P" D W^BGP1DP("% w/HIV screening",0,1,BGPPTYPE)
D W^BGP1DP($S(BGPPTYPE="P":" Refusal",1:"% w/HIV screening Refusal"),0,$S(BGPPTYPE="P":1,1:1),BGPPTYPE,1,1)
S T=22 F X=1:1:$S(BGPPTYPE="P":8,1:13) S N=$P(BGPDAC(X),U,11),O=$P(BGPDAB(X),U,11) S:N="" N=0 S:O="" O=0 S Y=$S(BGPPTYPE="P":$J($FN((N-O),"+,",1),6),1:$$SB($J((N-O),6,1))) D W^BGP1DP(Y,0,0,BGPPTYPE,X+1,T) S T=T+7
;
I BGPPTYPE="P" S BGP1STP=0 D BL^BGP1DP1I
Q
C(X,X2,X3) ;
D COMMA^%DTC
Q X
AH ;EP
Q:$G(BGPSUMON)
D W^BGP1DP(BGPHD1,1,2,BGPPTYPE)
D W^BGP1DP("Age Specific HIV Screening",0,1,BGPPTYPE)
I BGPPTYPE="P",BGP1STP=0 G G2
D W^BGP1DP("<13",0,1,BGPPTYPE,2,25)
D W^BGP1DP("13-14",0,0,BGPPTYPE,3,30)
D W^BGP1DP("15-19",0,0,BGPPTYPE,4,37)
D W^BGP1DP("20-24",0,0,BGPPTYPE,5,44)
D W^BGP1DP("25-29",0,0,BGPPTYPE,6,51)
D W^BGP1DP("30-34",0,0,BGPPTYPE,7,58)
D W^BGP1DP("35-39",0,0,BGPPTYPE,8,65)
D W^BGP1DP("40-44",0,0,BGPPTYPE,9,72)
I BGPPTYPE="P",BGP1STP=1 Q
G2 ;
D W^BGP1DP("45-49",0,$S(BGPPTYPE="P":1,1:0),BGPPTYPE,10,28)
D W^BGP1DP("50-54",0,0,BGPPTYPE,11,37)
D W^BGP1DP("55-59",0,0,BGPPTYPE,12,46)
D W^BGP1DP("60-64",0,0,BGPPTYPE,13,55)
D W^BGP1DP("65+",0,0,BGPPTYPE,14,65)
Q
SB(X) ;EP - Strip
X ^DD("FUNC",$O(^DD("FUNC","B","STRIPBLANKS",0)),1)
Q X
BGP1DP1J ; IHS/CMI/LAB - print ind 1 12 Nov 2010 7:38 AM ;
+1 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
+2 ;
I1AGEP ;EP
PR ;
+1 IF '$GET(BGPSUMON)
IF BGPPTYPE="P"
DO HEADER^BGP1DPH
IF BGPQUIT
QUIT
DO W^BGP1DP(^BGPINDB(BGPIC,53,1,0),0,1,BGPPTYPE)
IF $DATA(^BGPINDB(BGPIC,53,2,0))
DO W^BGP1DP(^BGPINDB(BGPIC,53,2,0),0,1,BGPPTYPE)
DO AH
+2 DO W^BGP1DP("PREVIOUS REPORT PERIOD",0,$SELECT(BGPPTYPE="P":1,1:2),BGPPTYPE)
+3 DO W^BGP1DP(BGPHD2,0,1,BGPPTYPE)
+4 SET T=23
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET V=$PIECE(BGPDAP(X),U)
DO W^BGP1DP($SELECT(BGPPTYPE="P":$$C(V,0,6),1:$SELECT(V:V,1:0)),0,0,BGPPTYPE,X+1,T)
SET T=T+7
+5 IF BGPPTYPE="P"
DO W^BGP1DP("# w/HIV screening-No",0,2,BGPPTYPE)
+6 DO W^BGP1DP($SELECT(BGPPTYPE="P":" Refusals (GPRA Dev.)",1:"# w/HIV screening-No Refusals (GPRA Dev.)"),0,$SELECT(BGPPTYPE="P":1,1:2),BGPPTYPE,1,1)
+7 SET T=23
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET V=$PIECE(BGPDAP(X),U,2)
DO W^BGP1DP($SELECT(BGPPTYPE="P":$$C(V,0,6),1:$SELECT(V:V,1:0)),0,0,BGPPTYPE,X+1,T)
SET T=T+7
+8 IF BGPPTYPE="P"
DO W^BGP1DP("% w/HIV screening-No",0,1,BGPPTYPE)
+9 DO W^BGP1DP($SELECT(BGPPTYPE="P":" Refusals (GPRA Dev.)",1:"% w/HIV screening-No Refusals (GPRA Dev.)"),0,$SELECT(BGPPTYPE="P":1,1:1),BGPPTYPE,1,1)
+10 SET T=23
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET V=$PIECE(BGPDAP(X),U,3)
DO W^BGP1DP($SELECT(BGPPTYPE="P":$JUSTIFY(V,6,1),1:$$SB($JUSTIFY(V,6,1))),0,0,BGPPTYPE,X+1,T)
SET T=T+7
+11 IF BGPPTYPE="D"
DO W^BGP1DP("A. # w/ positive result w/ % of Total Screened",0,2,BGPPTYPE)
+12 IF BGPPTYPE="P"
DO W^BGP1DP("A. # w/ positive result w/",0,2,BGPPTYPE)
DO W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
+13 SET T=23
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET V=$PIECE(BGPDAP(X),U,4)
DO W^BGP1DP($SELECT(BGPPTYPE="P":$$C(V,0,6),1:$SELECT(V:V,1:0)),0,0,BGPPTYPE,X+1,T)
SET T=T+7
+14 IF BGPPTYPE="D"
DO W^BGP1DP("% A. w/ positive result w/ % of Total Screened",0,1,BGPPTYPE)
+15 IF BGPPTYPE="P"
DO W^BGP1DP("% A. w/ positive result w/",0,1,BGPPTYPE)
DO W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
+16 SET T=23
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET V=$PIECE(BGPDAP(X),U,5)
DO W^BGP1DP($SELECT(BGPPTYPE="P":$JUSTIFY(V,6,1),1:$$SB($JUSTIFY(V,6,1))),0,0,BGPPTYPE,X+1,T)
SET T=T+7
+17 IF BGPPTYPE="D"
DO W^BGP1DP("B. # w/ negative result w/ % of Total Screened",0,2,BGPPTYPE)
+18 IF BGPPTYPE="P"
DO W^BGP1DP("B. # w/ negative result w/",0,2,BGPPTYPE)
DO W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
+19 SET T=23
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET V=$PIECE(BGPDAP(X),U,6)
DO W^BGP1DP($SELECT(BGPPTYPE="P":$$C(V,0,6),1:$SELECT(V:V,1:0)),0,0,BGPPTYPE,X+1,T)
SET T=T+7
+20 IF BGPPTYPE="D"
DO W^BGP1DP("% B. w/ negative result w/ % of Total Screened",0,1,BGPPTYPE)
+21 IF BGPPTYPE="P"
DO W^BGP1DP("% B. w/ negative result w/",0,1,BGPPTYPE)
DO W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
+22 SET T=23
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET V=$PIECE(BGPDAP(X),U,7)
DO W^BGP1DP($SELECT(BGPPTYPE="P":$JUSTIFY(V,6,1),1:$$SB($JUSTIFY(V,6,1))),0,0,BGPPTYPE,X+1,T)
SET T=T+7
+23 IF BGPPTYPE="D"
DO W^BGP1DP("C. # w/ No result w/ % of Total Screened",0,2,BGPPTYPE)
+24 IF BGPPTYPE="P"
DO W^BGP1DP("C. # w/ No result w/",0,2,BGPPTYPE)
DO W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
+25 SET T=23
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET V=$PIECE(BGPDAP(X),U,8)
DO W^BGP1DP($SELECT(BGPPTYPE="P":$$C(V,0,6),1:$SELECT(V:V,1:0)),0,0,BGPPTYPE,X+1,T)
SET T=T+7
+26 IF BGPPTYPE="D"
DO W^BGP1DP("% C. # w/ No result w/ % of Total Screened",0,1,BGPPTYPE)
+27 IF BGPPTYPE="P"
DO W^BGP1DP("% C. # w/ No result w/",0,1,BGPPTYPE)
DO W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
+28 SET T=23
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET V=$PIECE(BGPDAP(X),U,9)
DO W^BGP1DP($SELECT(BGPPTYPE="P":$JUSTIFY(V,6,1),1:$$SB($JUSTIFY(V,6,1))),0,0,BGPPTYPE,X+1,T)
SET T=T+7
+29 IF BGPPTYPE="P"
DO W^BGP1DP("# w/HIV screening",0,2,BGPPTYPE)
+30 DO W^BGP1DP($SELECT(BGPPTYPE="P":" Refusal",1:"# w/HIV screening Refusal"),0,$SELECT(BGPPTYPE="P":1,1:2),BGPPTYPE,1,1)
+31 SET T=23
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET V=$PIECE(BGPDAP(X),U,10)
DO W^BGP1DP($SELECT(BGPPTYPE="P":$$C(V,0,6),1:$SELECT(V:V,1:0)),0,0,BGPPTYPE,X+1,T)
SET T=T+7
+32 IF BGPPTYPE="P"
DO W^BGP1DP("% w/HIV screening",0,1,BGPPTYPE)
+33 DO W^BGP1DP($SELECT(BGPPTYPE="P":" Refusal",1:"% w/HIV screening Refusal"),0,$SELECT(BGPPTYPE="P":1,1:1),BGPPTYPE,1,1)
+34 SET T=23
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET V=$PIECE(BGPDAP(X),U,11)
DO W^BGP1DP($SELECT(BGPPTYPE="P":$JUSTIFY(V,6,1),1:$$SB($JUSTIFY(V,6,1))),0,0,BGPPTYPE,X+1,T)
SET T=T+7
+35 ;percentage changes
+36 DO W^BGP1DP("CHANGE FROM PREVIOUS YR %",0,2,BGPPTYPE)
+37 IF BGPPTYPE="P"
DO W^BGP1DP("# w/HIV screening-No",0,2,BGPPTYPE)
+38 DO W^BGP1DP($SELECT(BGPPTYPE="P":" Refusals (GPRA Dev.)",1:"# w/HIV screening-No Refusals (GPRA Dev.)"),0,$SELECT(BGPPTYPE="P":1,1:2),BGPPTYPE,1,1)
+39 SET T=22
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET N=$PIECE(BGPDAC(X),U,3)
SET O=$PIECE(BGPDAP(X),U,3)
IF N=""
SET N=0
IF O=""
SET O=0
SET Y=$SELECT(BGPPTYPE="P":$JUSTIFY($FNUMBER((N-O),"+,",1),6),1:$$SB($JUSTIFY((N-O),6,1)))
DO W^BGP1DP(Y,0,0,BGPPTYPE,X+1,T)
SET T=T+7
+40 IF BGPPTYPE="D"
DO W^BGP1DP("A. # w/ positive result w/ % of Total Screened",0,1,BGPPTYPE)
+41 IF BGPPTYPE="P"
DO W^BGP1DP("A. # w/ positive result w/",0,1,BGPPTYPE)
DO W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
+42 SET T=22
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET N=$PIECE(BGPDAC(X),U,5)
SET O=$PIECE(BGPDAP(X),U,5)
IF N=""
SET N=0
IF O=""
SET O=0
SET Y=$SELECT(BGPPTYPE="P":$JUSTIFY($FNUMBER((N-O),"+,",1),6),1:$$SB($JUSTIFY((N-O),6,1)))
DO W^BGP1DP(Y,0,0,BGPPTYPE,X+1,T)
SET T=T+7
+43 IF BGPPTYPE="D"
DO W^BGP1DP("B. # w/ negative result w/ % of Total Screened",0,1,BGPPTYPE)
+44 IF BGPPTYPE="P"
DO W^BGP1DP("B. # w/ negative result w/",0,1,BGPPTYPE)
DO W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
+45 SET T=22
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET N=$PIECE(BGPDAC(X),U,7)
SET O=$PIECE(BGPDAP(X),U,7)
IF N=""
SET N=0
IF O=""
SET O=0
SET Y=$SELECT(BGPPTYPE="P":$JUSTIFY($FNUMBER((N-O),"+,",1),6),1:$$SB($JUSTIFY((N-O),6,1)))
DO W^BGP1DP(Y,0,0,BGPPTYPE,X+1,T)
SET T=T+7
+46 IF BGPPTYPE="D"
DO W^BGP1DP("C. # w/ No result w/ % of Total Screened",0,1,BGPPTYPE)
+47 IF BGPPTYPE="P"
DO W^BGP1DP("C. # w/ No result w/",0,1,BGPPTYPE)
DO W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
+48 SET T=22
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET N=$PIECE(BGPDAC(X),U,9)
SET O=$PIECE(BGPDAP(X),U,9)
IF N=""
SET N=0
IF O=""
SET O=0
SET Y=$SELECT(BGPPTYPE="P":$JUSTIFY($FNUMBER((N-O),"+,",1),6),1:$$SB($JUSTIFY((N-O),6,1)))
DO W^BGP1DP(Y,0,0,BGPPTYPE,X+1,T)
SET T=T+7
+49 IF BGPPTYPE="P"
DO W^BGP1DP("% w/HIV screening",0,1,BGPPTYPE)
+50 DO W^BGP1DP($SELECT(BGPPTYPE="P":" Refusal",1:"% w/HIV screening Refusal"),0,$SELECT(BGPPTYPE="P":1,1:1),BGPPTYPE,1,1)
+51 SET T=22
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET N=$PIECE(BGPDAC(X),U,11)
SET O=$PIECE(BGPDAP(X),U,11)
IF N=""
SET N=0
IF O=""
SET O=0
SET Y=$SELECT(BGPPTYPE="P":$JUSTIFY($FNUMBER((N-O),"+,",1),6),1:$$SB($JUSTIFY((N-O),6,1)))
DO W^BGP1DP(Y,0,0,BGPPTYPE,X+1,T)
SET T=T+7
+52 IF BGPPTYPE="P"
SET BGP1STP=0
DO PR^BGP1DP1I
+53 SET BGP1STP=1
BL ;EP
+1 IF '$GET(BGPSUMON)
IF BGPPTYPE="P"
DO HEADER^BGP1DPH
IF BGPQUIT
QUIT
DO W^BGP1DP(^BGPINDB(BGPIC,53,1,0),0,1,BGPPTYPE)
IF $DATA(^BGPINDB(BGPIC,53,2,0))
DO W^BGP1DP(^BGPINDB(BGPIC,53,2,0),0,1,BGPPTYPE)
DO AH
+2 DO W^BGP1DP("BASELINE REPORT PERIOD",0,$SELECT(BGPPTYPE="P":1,1:2),BGPPTYPE)
+3 DO W^BGP1DP(BGPHD2,0,1,BGPPTYPE)
+4 SET T=23
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET V=$PIECE(BGPDAB(X),U)
DO W^BGP1DP($SELECT(BGPPTYPE="P":$$C(V,0,6),1:$SELECT(V:V,1:0)),0,0,BGPPTYPE,X+1,T)
SET T=T+7
+5 IF BGPPTYPE="P"
DO W^BGP1DP("# w/HIV screening-No",0,2,BGPPTYPE)
+6 DO W^BGP1DP($SELECT(BGPPTYPE="P":" Refusals (GPRA Dev.)",1:"# w/HIV screening-No Refusals (GPRA Dev.)"),0,$SELECT(BGPPTYPE="P":1,1:2),BGPPTYPE,1,1)
+7 SET T=23
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET V=$PIECE(BGPDAB(X),U,2)
DO W^BGP1DP($SELECT(BGPPTYPE="P":$$C(V,0,6),1:$SELECT(V:V,1:0)),0,0,BGPPTYPE,X+1,T)
SET T=T+7
+8 IF BGPPTYPE="P"
DO W^BGP1DP("% w/HIV screening-No",0,1,BGPPTYPE)
+9 DO W^BGP1DP($SELECT(BGPPTYPE="P":" Refusals (GPRA Dev.)",1:"% w/HIV screening-No Refusals (GPRA Dev.)"),0,$SELECT(BGPPTYPE="P":1,1:1),BGPPTYPE,1,1)
+10 SET T=23
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET V=$PIECE(BGPDAB(X),U,3)
DO W^BGP1DP($SELECT(BGPPTYPE="P":$JUSTIFY(V,6,1),1:$$SB($JUSTIFY(V,6,1))),0,0,BGPPTYPE,X+1,T)
SET T=T+7
+11 IF BGPPTYPE="D"
DO W^BGP1DP("A. # w/ positive result w/ % of Total Screened",0,2,BGPPTYPE)
+12 IF BGPPTYPE="P"
DO W^BGP1DP("A. # w/ positive result w/",0,2,BGPPTYPE)
DO W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
+13 SET T=23
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET V=$PIECE(BGPDAB(X),U,4)
DO W^BGP1DP($SELECT(BGPPTYPE="P":$$C(V,0,6),1:$SELECT(V:V,1:0)),0,0,BGPPTYPE,X+1,T)
SET T=T+7
+14 IF BGPPTYPE="D"
DO W^BGP1DP("% A. w/ positive result w/ % of Total Screened",0,1,BGPPTYPE)
+15 IF BGPPTYPE="P"
DO W^BGP1DP("% A. w/ positive result w/",0,1,BGPPTYPE)
DO W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
+16 SET T=23
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET V=$PIECE(BGPDAB(X),U,5)
DO W^BGP1DP($SELECT(BGPPTYPE="P":$JUSTIFY(V,6,1),1:$$SB($JUSTIFY(V,6,1))),0,0,BGPPTYPE,X+1,T)
SET T=T+7
+17 IF BGPPTYPE="D"
DO W^BGP1DP("B. # w/ negative result w/ % of Total Screened",0,2,BGPPTYPE)
+18 IF BGPPTYPE="P"
DO W^BGP1DP("B. # w/ negative result w/",0,2,BGPPTYPE)
DO W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
+19 SET T=23
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET V=$PIECE(BGPDAB(X),U,6)
DO W^BGP1DP($SELECT(BGPPTYPE="P":$$C(V,0,6),1:$SELECT(V:V,1:0)),0,0,BGPPTYPE,X+1,T)
SET T=T+7
+20 IF BGPPTYPE="D"
DO W^BGP1DP("% B. w/ negative result w/ % of Total Screened",0,1,BGPPTYPE)
+21 IF BGPPTYPE="P"
DO W^BGP1DP("% B. w/ negative result w/",0,1,BGPPTYPE)
DO W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
+22 SET T=23
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET V=$PIECE(BGPDAB(X),U,7)
DO W^BGP1DP($SELECT(BGPPTYPE="P":$JUSTIFY(V,6,1),1:$$SB($JUSTIFY(V,6,1))),0,0,BGPPTYPE,X+1,T)
SET T=T+7
+23 IF BGPPTYPE="D"
DO W^BGP1DP("C. # w/ No result w/ % of Total Screened",0,2,BGPPTYPE)
+24 IF BGPPTYPE="P"
DO W^BGP1DP("C. # w/ No result w/",0,2,BGPPTYPE)
DO W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
+25 SET T=23
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET V=$PIECE(BGPDAB(X),U,8)
DO W^BGP1DP($SELECT(BGPPTYPE="P":$$C(V,0,6),1:$SELECT(V:V,1:0)),0,0,BGPPTYPE,X+1,T)
SET T=T+7
+26 IF BGPPTYPE="D"
DO W^BGP1DP("% C. # w/ No result w/ % of Total Screened",0,1,BGPPTYPE)
+27 IF BGPPTYPE="P"
DO W^BGP1DP("% C. # w/ No result w/",0,1,BGPPTYPE)
DO W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
+28 SET T=23
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET V=$PIECE(BGPDAB(X),U,9)
DO W^BGP1DP($SELECT(BGPPTYPE="P":$JUSTIFY(V,6,1),1:$$SB($JUSTIFY(V,6,1))),0,0,BGPPTYPE,X+1,T)
SET T=T+7
+29 IF BGPPTYPE="P"
DO W^BGP1DP("# w/HIV screening",0,2,BGPPTYPE)
+30 DO W^BGP1DP($SELECT(BGPPTYPE="P":" Refusal",1:"# w/HIV screening Refusal"),0,$SELECT(BGPPTYPE="P":1,1:2),BGPPTYPE,1,1)
+31 SET T=23
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET V=$PIECE(BGPDAB(X),U,10)
DO W^BGP1DP($SELECT(BGPPTYPE="P":$$C(V,0,6),1:$SELECT(V:V,1:0)),0,0,BGPPTYPE,X+1,T)
SET T=T+7
+32 IF BGPPTYPE="P"
DO W^BGP1DP("% w/HIV screening",0,1,BGPPTYPE)
+33 DO W^BGP1DP($SELECT(BGPPTYPE="P":" Refusal",1:"% w/HIV screening Refusal"),0,$SELECT(BGPPTYPE="P":1,1:1),BGPPTYPE,1,1)
+34 SET T=23
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET V=$PIECE(BGPDAB(X),U,11)
DO W^BGP1DP($SELECT(BGPPTYPE="P":$JUSTIFY(V,6,1),1:$$SB($JUSTIFY(V,6,1))),0,0,BGPPTYPE,X+1,T)
SET T=T+7
+35 ;
+36 DO W^BGP1DP("CHANGE FROM BASELINE YR %",0,2,BGPPTYPE)
+37 IF BGPPTYPE="P"
DO W^BGP1DP("# w/HIV screening-No",0,2,BGPPTYPE)
+38 DO W^BGP1DP($SELECT(BGPPTYPE="P":" Refusals (GPRA Dev.)",1:"# w/HIV screening-No Refusals (GPRA Dev.)"),0,$SELECT(BGPPTYPE="P":1,1:2),BGPPTYPE,1,1)
+39 SET T=22
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET N=$PIECE(BGPDAC(X),U,3)
SET O=$PIECE(BGPDAB(X),U,3)
IF N=""
SET N=0
IF O=""
SET O=0
SET Y=$SELECT(BGPPTYPE="P":$JUSTIFY($FNUMBER((N-O),"+,",1),6),1:$$SB($JUSTIFY((N-O),6,1)))
DO W^BGP1DP(Y,0,0,BGPPTYPE,X+1,T)
SET T=T+7
+40 IF BGPPTYPE="D"
DO W^BGP1DP("A. # w/ positive result w/ % of Total Screened",0,1,BGPPTYPE)
+41 IF BGPPTYPE="P"
DO W^BGP1DP("A. # w/ positive result w/",0,1,BGPPTYPE)
DO W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
+42 SET T=22
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET N=$PIECE(BGPDAC(X),U,5)
SET O=$PIECE(BGPDAB(X),U,5)
IF N=""
SET N=0
IF O=""
SET O=0
SET Y=$SELECT(BGPPTYPE="P":$JUSTIFY($FNUMBER((N-O),"+,",1),6),1:$$SB($JUSTIFY((N-O),6,1)))
DO W^BGP1DP(Y,0,0,BGPPTYPE,X+1,T)
SET T=T+7
+43 IF BGPPTYPE="D"
DO W^BGP1DP("B. # w/ negative result w/ % of Total Screened",0,1,BGPPTYPE)
+44 IF BGPPTYPE="P"
DO W^BGP1DP("B. # w/ negative result w/",0,1,BGPPTYPE)
DO W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
+45 SET T=22
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET N=$PIECE(BGPDAC(X),U,7)
SET O=$PIECE(BGPDAB(X),U,7)
IF N=""
SET N=0
IF O=""
SET O=0
SET Y=$SELECT(BGPPTYPE="P":$JUSTIFY($FNUMBER((N-O),"+,",1),6),1:$$SB($JUSTIFY((N-O),6,1)))
DO W^BGP1DP(Y,0,0,BGPPTYPE,X+1,T)
SET T=T+7
+46 IF BGPPTYPE="D"
DO W^BGP1DP("C. # w/ No result w/ % of Total Screened",0,1,BGPPTYPE)
+47 IF BGPPTYPE="P"
DO W^BGP1DP("C. # w/ No result w/",0,1,BGPPTYPE)
DO W^BGP1DP(" % of Total Screened",0,1,BGPPTYPE)
+48 SET T=22
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET N=$PIECE(BGPDAC(X),U,9)
SET O=$PIECE(BGPDAB(X),U,9)
IF N=""
SET N=0
IF O=""
SET O=0
SET Y=$SELECT(BGPPTYPE="P":$JUSTIFY($FNUMBER((N-O),"+,",1),6),1:$$SB($JUSTIFY((N-O),6,1)))
DO W^BGP1DP(Y,0,0,BGPPTYPE,X+1,T)
SET T=T+7
+49 IF BGPPTYPE="P"
DO W^BGP1DP("% w/HIV screening",0,1,BGPPTYPE)
+50 DO W^BGP1DP($SELECT(BGPPTYPE="P":" Refusal",1:"% w/HIV screening Refusal"),0,$SELECT(BGPPTYPE="P":1,1:1),BGPPTYPE,1,1)
+51 SET T=22
FOR X=1:1:$SELECT(BGPPTYPE="P":8,1:13)
SET N=$PIECE(BGPDAC(X),U,11)
SET O=$PIECE(BGPDAB(X),U,11)
IF N=""
SET N=0
IF O=""
SET O=0
SET Y=$SELECT(BGPPTYPE="P":$JUSTIFY($FNUMBER((N-O),"+,",1),6),1:$$SB($JUSTIFY((N-O),6,1)))
DO W^BGP1DP(Y,0,0,BGPPTYPE,X+1,T)
SET T=T+7
+52 ;
+53 IF BGPPTYPE="P"
SET BGP1STP=0
DO BL^BGP1DP1I
+54 QUIT
C(X,X2,X3) ;
+1 DO COMMA^%DTC
+2 QUIT X
AH ;EP
+1 IF $GET(BGPSUMON)
QUIT
+2 DO W^BGP1DP(BGPHD1,1,2,BGPPTYPE)
+3 DO W^BGP1DP("Age Specific HIV Screening",0,1,BGPPTYPE)
+4 IF BGPPTYPE="P"
IF BGP1STP=0
GOTO G2
+5 DO W^BGP1DP("<13",0,1,BGPPTYPE,2,25)
+6 DO W^BGP1DP("13-14",0,0,BGPPTYPE,3,30)
+7 DO W^BGP1DP("15-19",0,0,BGPPTYPE,4,37)
+8 DO W^BGP1DP("20-24",0,0,BGPPTYPE,5,44)
+9 DO W^BGP1DP("25-29",0,0,BGPPTYPE,6,51)
+10 DO W^BGP1DP("30-34",0,0,BGPPTYPE,7,58)
+11 DO W^BGP1DP("35-39",0,0,BGPPTYPE,8,65)
+12 DO W^BGP1DP("40-44",0,0,BGPPTYPE,9,72)
+13 IF BGPPTYPE="P"
IF BGP1STP=1
QUIT
G2 ;
+1 DO W^BGP1DP("45-49",0,$SELECT(BGPPTYPE="P":1,1:0),BGPPTYPE,10,28)
+2 DO W^BGP1DP("50-54",0,0,BGPPTYPE,11,37)
+3 DO W^BGP1DP("55-59",0,0,BGPPTYPE,12,46)
+4 DO W^BGP1DP("60-64",0,0,BGPPTYPE,13,55)
+5 DO W^BGP1DP("65+",0,0,BGPPTYPE,14,65)
+6 QUIT
SB(X) ;EP - Strip
+1 XECUTE ^DD("FUNC",$ORDER(^DD("FUNC","B","STRIPBLANKS",0)),1)
+2 QUIT X
