Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BGP7PDLO

BGP7PDLO.m

Go to the documentation of this file.
  1. BGP7PDLO ; IHS/CMI/LAB - IHS gpra print ;
  1. ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
  1. ;
  1. S(Y,F,P) ;EP set up array
  1. I '$G(F) S F=0
  1. S %=$P(^TMP($J,"BGPDEL",0),U)+F,$P(^TMP($J,"BGPDEL",0),U)=%
  1. I '$D(^TMP($J,"BGPDEL",%)) S ^TMP($J,"BGPDEL",%)=""
  1. S $P(^TMP($J,"BGPDEL",%),U,P)=Y
  1. Q
  1. C(X,X2,X3) ;
  1. D COMMA^%DTC
  1. Q X
  1. OTHSUM ;EP
  1. I BGPRTYPE'=7 Q ;national gpra only
  1. Q:$G(BGPCPPL)
  1. I $G(BGPNPL) Q ;not on lists
  1. S BGPQUIT="",BGPGPG=0
  1. S BGPSUMP=1
  1. D HEADER^BGP7PDL
  1. D:'$G(BGPSUMON) H1
  1. S BGPC=0 F S BGPC=$O(^TMP($J,"SUMMARYDEL OTHER",BGPC)) Q:BGPC'=+BGPC D
  1. .S X=" " D S(X,1,1)
  1. .S BGPC1=$O(^BGPSCAT("D",BGPC,0))
  1. .S X=$P(^BGPSCAT(BGPC1,0),U,1) D S(X,1,1)
  1. .S BGPO="" F S BGPO=$O(^TMP($J,"SUMMARYDEL OTHER",BGPC,BGPO)) Q:BGPO="" D
  1. ..S BGPPC=$O(^TMP($J,"SUMMARYDEL OTHER",BGPC,BGPO,0))
  1. ..S X=""
  1. ..I $P(^BGPINDGC(BGPPC,0),U,4)["014.A"!($P(^BGPINDGC(BGPPC,0),U,4)["023.")!($P(^BGPINDGC(BGPPC,0),U,4)["016")!($P($G(^BGPINDGC(BGPPC,19)),U,13)) D I 1
  1. ...S X=" "_$P(^BGPINDGC(BGPPC,19),U,4)
  1. ...I $P(^BGPINDGC(BGPPC,19),U,7)]"" D S(X,1,1) S X=" "_$P(^BGPINDGC(BGPPC,19),U,7)
  1. ...S $P(X,U,2)=$P(^TMP($J,"SUMMARYDEL OTHER",BGPC,BGPO,BGPPC),U)
  1. ...S $P(X,U,3)=$P(^TMP($J,"SUMMARYDEL OTHER",BGPC,BGPO,BGPPC),U,2)
  1. ...S $P(X,U,4)=$P(^TMP($J,"SUMMARYDEL OTHER",BGPC,BGPO,BGPPC),U,3)
  1. ...S $P(X,U,5)=$P(^BGPINDGC(BGPPC,19),U,2),$P(X,U,6)=$P(^BGPINDGC(BGPPC,19),U,3)
  1. ...D S(X,1,1)
  1. ..E D
  1. ...S X=" "_$P(^BGPINDGC(BGPPC,19),U,4)
  1. ...I $P(^BGPINDGC(BGPPC,19),U,7)]"" D S(X,1,1) S X=" "_$P(^BGPINDGC(BGPPC,19),U,7)
  1. ...S $P(X,U,2)=$P(^TMP($J,"SUMMARYDEL OTHER",BGPC,BGPO,BGPPC),U)_"%"
  1. ...S $P(X,U,3)=$P(^TMP($J,"SUMMARYDEL OTHER",BGPC,BGPO,BGPPC),U,2)_"%"
  1. ...S $P(X,U,4)=$P(^TMP($J,"SUMMARYDEL OTHER",BGPC,BGPO,BGPPC),U,3)_"%"
  1. ...S $P(X,U,5)=$TR($P(^BGPINDGC(BGPPC,19),U,2),"$","^"),$P(X,U,6)=$P(^BGPINDGC(BGPPC,19),U,3)
  1. ...D S(X,1,1)
  1. ...S X="" I $P(^BGPINDGC(BGPPC,19),U,9)]""!($P(^BGPINDGC(BGPPC,19),U,10)]"")!($P(^BGPINDGC(BGPPC,19),U,11)]"") S $P(X,U,5)=$TR($P(^BGPINDGC(BGPPC,19),U,10),"$","^") D
  1. ....S $P(X,U,6)=$P(^BGPINDGC(BGPPC,19),U,11)
  1. ...I X]"" D S(X,1,1)
  1. D SDP
  1. Q
  1. ;
  1. H1 ;
  1. S X=" " D S(X,2,1)
  1. S X="SELECTED OTHER NATIONAL MEASURES CLINICAL PERFORMANCE SUMMARY" D S(X,3,1)
  1. I $G(BGPAREAA) S X="",$P(X,U,2)=" Area",$P(X,U,3)=" Area",$P(X,U,4)=" Area",$P(X,U,5)="Nat'l",$P(X,U,6)="2016" D S(X,1,1)
  1. I '$G(BGPAREAA) S X="",$P(X,U,2)=" Site",$P(X,U,3)=" Site",$P(X,U,4)=" Site",$P(X,U,5)="Nat'l",$P(X,U,6)="2016" D S(X,1,1)
  1. S X="",$P(X,U,2)="Current",$P(X,U,3)="Previous",$P(X,U,4)="Baseline",$P(X,U,5)="2016",$P(X,U,6)="Target" D S(X,1,1)
  1. S X=$TR($J("",80)," ","-") D S(X,1,1)
  1. Q
  1. H2 ;
  1. S X=" " D S(X,2,1)
  1. S X="SELECTED OTHER NATIONAL MEASURES CLINICAL PERFORMANCE DETAIL" D S(X,2,1)
  1. S X="",$P(X,U,2)=" Site",$P(X,U,3)=" Site",$P(X,U,4)=" Site",$P(X,U,5)="Area",$P(X,U,6)="National",$P(X,U,7)="2016" D S(X,1,1)
  1. S X="",$P(X,U,2)="Current",$P(X,U,3)="Previous",$P(X,U,4)="Baseline",$P(X,U,5)="Current",$P(X,U,6)="2016",$P(X,U,7)="Target" D S(X,1,1)
  1. S X=$TR($J("",80)," ","-") D S(X,1,1)
  1. Q
  1. SDPX ;
  1. I BGPRTYPE'=7 Q ;national gpra only
  1. I '$G(BGPAREAA) Q
  1. S BGPQUIT="",BGPGPG=0
  1. S BGPSUMP=1
  1. S X=" " D S(X,2,1)
  1. D HEADER^BGP7PDL
  1. D H2
  1. S BGPC=0 F S BGPC=$O(^TMP($J,"SUMMARYDEL DETAIL PAGE OTHER",BGPC)) Q:BGPC'=+BGPC D
  1. .S X=" " D S(X,1,1)
  1. .S BGPC1=$O(^BGPSCAT("D",BGPC,0))
  1. .S X=$P(^BGPSCAT(BGPC1,0),U,1) D S(X,1,1)
  1. .S BGPO="" F S BGPO=$O(^TMP($J,"SUMMARYDEL DETAIL PAGE OTHER",BGPC,BGPO)) Q:BGPO="" D
  1. ..S BGPPC=$O(^TMP($J,"SUMMARYDEL DETAIL PAGE OTHER",BGPC,BGPO,0))
  1. ..S X=" " D S(X,1,1)
  1. ..S XX=" "_$P(^BGPINDGC(BGPPC,19),U,4)
  1. ..I $P(^BGPINDGC(BGPPC,19),U,7)]"" D S(XX,1,1) S XX=" "_$P(^BGPINDGC(BGPPC,19),U,7)
  1. ..I $P(^BGPINDGC(BGPPC,19),U,12)]"" D S(XX,1,1) S XX=" "_$P(^BGPINDGC(BGPPC,19),U,12)
  1. ..S F=$O(^TMP($J,"SUMMARYDEL DETAIL PAGE OTHER",BGPC,BGPO,BGPPC,0))
  1. ..S F=$P(^TMP($J,"SUMMARYDEL DETAIL PAGE OTHER",BGPC,BGPO,BGPPC,F),U,4)
  1. ..S $P(XX,U,5)=$P(^BGPINDGC(BGPPC,19),U,2),$P(XX,U,6)=$P(^BGPINDGC(BGPPC,19),U,3)
  1. ..S BGPSN=0,BGPCNT=0 F S BGPSN=$O(^TMP($J,"SUMMARYDEL DETAIL PAGE OTHER",BGPC,BGPO,BGPPC,BGPSN)) Q:BGPSN'=+BGPSN S BGPCNT=BGPCNT+1 D
  1. ...S BGPSASU=$P(^BGPGPDCG(BGPSN,0),U,9),X=$O(^AUTTLOC("C",BGPSASU,0)),BGPSNAM=$S(X:$P(^DIC(4,X,0),U),1:"?????"),BGPSNAM=$S($P(^BGPGPDCG(BGPSN,0),U,17):"+"_BGPSNAM,1:BGPSNAM)
  1. ...I $P(^BGPINDGC(BGPPC,0),U,4)["014.A"!($P(^BGPINDGC(BGPPC,0),U,4)["023.")!($P(^BGPINDGC(BGPPC,0),U,4)["016")!($P($G(^BGPINDGC(BGPPC,19)),U,13)) D I 1
  1. ....S X="",$P(X,U,1)=BGPSASU_" "_BGPSNAM
  1. ....S $P(X,U,2)=+$P(^TMP($J,"SUMMARYDEL DETAIL PAGE OTHER",BGPC,BGPO,BGPPC,BGPSN),U)
  1. ....S $P(X,U,3)=+$P(^TMP($J,"SUMMARYDEL DETAIL PAGE OTHER",BGPC,BGPO,BGPPC,BGPSN),U,2)
  1. ....S $P(X,U,4)=+$P(^TMP($J,"SUMMARYDEL DETAIL PAGE OTHER",BGPC,BGPO,BGPPC,BGPSN),U,3)
  1. ...E D
  1. ....S $P(X,U,1)=BGPSASU_" "_BGPSNAM
  1. ....S $P(X,U,2)=$P(^TMP($J,"SUMMARYDEL DETAIL PAGE OTHER",BGPC,BGPO,BGPPC,BGPSN),U)_"%"
  1. ....S $P(X,U,3)=$P(^TMP($J,"SUMMARYDEL DETAIL PAGE OTHER",BGPC,BGPO,BGPPC,BGPSN),U,2)_"%"
  1. ....S $P(X,U,4)=$P(^TMP($J,"SUMMARYDEL DETAIL PAGE OTHER",BGPC,BGPO,BGPPC,BGPSN),U,3)_"%"
  1. ...I BGPCNT=1 D S(XX,1,1) D
  1. ....S Y="" I $P(^BGPINDGC(BGPPC,19),U,9)]""!($P(^BGPINDGC(BGPPC,19),U,10)]"")!($P(^BGPINDGC(BGPPC,19),U,11)]"") S $P(Y,U,6)=$TR($P(^BGPINDGC(BGPPC,19),U,9),"$","^"),$P(Y,U,7)=$TR($P(^BGPINDGC(BGPPC,19),U,10),"$","^") D
  1. .....S $P(Y,U,8)=$P(^BGPINDGC(BGPPC,19),U,11)
  1. ....I Y]"" D S(Y,1,1)
  1. ...D S(X,1,1)
  1. Q
  1. SDP ;
  1. I BGPRTYPE'=7 Q
  1. I '$G(BGPAREAA) Q ;area only
  1. S BGPQUIT="",BGPGPG=0
  1. S BGPSUMP=1
  1. S X=" " D S(X,2,1)
  1. D HEADER^BGP7PDL
  1. D H2
  1. S BGPC=0 F S BGPC=$O(^TMP($J,"SUMMARYDEL DETAIL PAGE OTHER",BGPC)) Q:BGPC'=+BGPC D
  1. .S X=" " D S(X,1,1)
  1. .S BGPC1=$O(^BGPSCAT("D",BGPC,0))
  1. .S X=$P(^BGPSCAT(BGPC1,0),U,1) D S(X,1,1)
  1. .S BGPO="" F S BGPO=$O(^TMP($J,"SUMMARYDEL DETAIL PAGE OTHER",BGPC,BGPO)) Q:BGPO="" D
  1. ..S BGPPC=$O(^TMP($J,"SUMMARYDEL DETAIL PAGE OTHER",BGPC,BGPO,0))
  1. ..S X=" " D S(X,1,1)
  1. ..S XX=" "_$P(^BGPINDGC(BGPPC,19),U,4)
  1. ..I $P(^BGPINDGC(BGPPC,19),U,7)]"" D S(XX,1,1) S XX=" "_$P(^BGPINDGC(BGPPC,19),U,7)
  1. ..I $P(^BGPINDGC(BGPPC,19),U,12)]"" D S(XX,1,1) S XX=" "_$P(^BGPINDGC(BGPPC,19),U,12)
  1. ..S F=$O(^TMP($J,"SUMMARYDEL DETAIL PAGE OTHER",BGPC,BGPO,BGPPC,0))
  1. ..S F=$P(^TMP($J,"SUMMARYDEL DETAIL PAGE OTHER",BGPC,BGPO,BGPPC,F),U,4)
  1. ..S $P(XX,U,5)=F_$S($P(^BGPINDGC(BGPPC,0),U,4)["014.A"!($P(^BGPINDGC(BGPPC,0),U,4)["023.")!($P(^BGPINDGC(BGPPC,0),U,4)="016.A.1")!($P($G(^BGPINDGC(BGPPC,19)),U,13)):"",1:"%")
  1. ..S $P(XX,U,6)=$P(^BGPINDGC(BGPPC,19),U,2),$P(XX,U,7)=$P(^BGPINDGC(BGPPC,19),U,3)
  1. ..S BGPSN=0,BGPCNT=0 F S BGPSN=$O(^TMP($J,"SUMMARYDEL DETAIL PAGE OTHER",BGPC,BGPO,BGPPC,BGPSN)) Q:BGPSN'=+BGPSN S BGPCNT=BGPCNT+1 D
  1. ...S BGPSASU=$P(^BGPGPDCG(BGPSN,0),U,9),X=$O(^AUTTLOC("C",BGPSASU,0)),BGPSNAM=$S(X:$P(^DIC(4,X,0),U),1:"?????"),BGPSNAM=$S($P(^BGPGPDCG(BGPSN,0),U,17):"+"_BGPSNAM,1:BGPSNAM)
  1. ...I $P(^BGPINDGC(BGPPC,0),U,4)["014.A"!($P(^BGPINDGC(BGPPC,0),U,4)["023.")!($P(^BGPINDGC(BGPPC,0),U,4)["016")!($P($G(^BGPINDGC(BGPPC,19)),U,13)) D I 1
  1. ....S X="",$P(X,U,1)=BGPSASU_" "_BGPSNAM
  1. ....S $P(X,U,2)=+$P(^TMP($J,"SUMMARYDEL DETAIL PAGE OTHER",BGPC,BGPO,BGPPC,BGPSN),U)
  1. ....S $P(X,U,3)=+$P(^TMP($J,"SUMMARYDEL DETAIL PAGE OTHER",BGPC,BGPO,BGPPC,BGPSN),U,2)
  1. ....S $P(X,U,4)=+$P(^TMP($J,"SUMMARYDEL DETAIL PAGE OTHER",BGPC,BGPO,BGPPC,BGPSN),U,3)
  1. ....;S $P(X,U,5)=$P(^TMP($J,"SUMMARYDEL DETAIL PAGE OTHER",BGPC,BGPO,BGPPC,BGPSN),U,4)
  1. ...E D
  1. ....S $P(X,U,1)=BGPSASU_" "_BGPSNAM
  1. ....S $P(X,U,2)=$P(^TMP($J,"SUMMARYDEL DETAIL PAGE OTHER",BGPC,BGPO,BGPPC,BGPSN),U)_"%"
  1. ....S $P(X,U,3)=$P(^TMP($J,"SUMMARYDEL DETAIL PAGE OTHER",BGPC,BGPO,BGPPC,BGPSN),U,2)_"%"
  1. ....S $P(X,U,4)=$P(^TMP($J,"SUMMARYDEL DETAIL PAGE OTHER",BGPC,BGPO,BGPPC,BGPSN),U,3)_"%"
  1. ....;S $P(X,U,5)=$P(^TMP($J,"SUMMARYDEL DETAIL PAGE OTHER",BGPC,BGPO,BGPPC,BGPSN),U,4)_"%"
  1. ....;S $P(X,U,5)=$P(^BGPINDGC(BGPPC,19),U,2),$P(X,U,6)=$P(^BGPINDGC(BGPPC,19),U,3)
  1. ...I BGPCNT=1 D S(XX,1,1) D
  1. ....;S Y="" I $P(^BGPINDGC(BGPPC,19),U,9)]""!($P(^BGPINDGC(BGPPC,19),U,10)]"") S $P(Y,U,6)=$TR($P(^BGPINDGC(BGPPC,19),U,9),"$","^"),$P(Y,U,7)=$TR($P(^BGPINDGC(BGPPC,19),U,10),"$","^")
  1. ....S Y="" I $P(^BGPINDGC(BGPPC,19),U,9)]""!($P(^BGPINDGC(BGPPC,19),U,10)]"")!($P(^BGPINDGC(BGPPC,19),U,11)]"") S $P(Y,U,6)=$TR($P(^BGPINDGC(BGPPC,19),U,9),"$","^"),$P(Y,U,7)=$TR($P(^BGPINDGC(BGPPC,19),U,10),"$","^") D
  1. .....S $P(Y,U,8)=$P(^BGPINDGC(BGPPC,19),U,11)
  1. ....I Y]"" D S(Y,1,1)
  1. ...D S(X,1,1)
  1. Q