- BGPDP22B ; IHS/CMI/LAB - print ind 22 ;
- ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
- ;
- ;
- MAGE ;EP
- ;Q:'$D(BGPIND(22))
- D HEADER^BGPDPH
- W !,"Indicator 22: Public Health Nursing",!
- W "Denomimator is ALL MALE active users."
- W !,"Increase the total number of Public Health Nursing services (both primary",!,"and secondary treatment and preventive services) provided to individuals",!,"in all settings and the total number of home visits.",!
- W !,"Public Health Nursing",!
- D H1^BGPDPH
- S BGPCYD=$P($$V(BGPRPT,10,1),"!",1),BGPCYN=$P($$V(BGPRPT,18,1),"!",1),BGPCYP=$S(BGPCYD:((BGPCYN/BGPCYD)*100),1:"")
- S BGPPRD=$P($$V(BGPRPT,40,1),"!",1),BGPPRN=$P($$V(BGPRPT,48,1),"!",1),BGPPRP=$S(BGPPRD:((BGPPRN/BGPPRD)*100),1:"")
- S BGP98D=$P($$V(BGPRPT,80,1),"!",1),BGP98N=$P($$V(BGPRPT,88,1),"!",1),BGP98P=$S(BGP98D:((BGP98N/BGP98D)*100),1:"")
- W !,"# active users",?22,$$C(BGP98D,0,8),?37,$$C(BGPPRD,0,8),?52,$$C(BGPCYD,0,8)
- I $Y>(IOSL-5) D HEADER^BGPDPH Q:BGPQUIT
- W !!,"# of Males served by PHNs",!?2,"in any setting"
- D H2^BGPDPH
- S BGPCYD=$P($$V(BGPRPT,10,1),"!",1),BGPCYN=$P($$V(BGPRPT,18,3),"!",1),BGPCYP=$S(BGPCYD:((BGPCYN/BGPCYD)*100),1:"")
- S BGPPRD=$P($$V(BGPRPT,40,1),"!",1),BGPPRN=$P($$V(BGPRPT,48,3),"!",1),BGPPRP=$S(BGPPRD:((BGPPRN/BGPPRD)*100),1:"")
- S BGP98D=$P($$V(BGPRPT,80,1),"!",1),BGP98N=$P($$V(BGPRPT,88,3),"!",1),BGP98P=$S(BGP98D:((BGP98N/BGP98D)*100),1:"")
- I $Y>(IOSL-5) D HEADER^BGPDPH Q:BGPQUIT
- W !!,"# of Males served by PHNs",!?2,"in a home setting"
- D H2^BGPDPH
- I $Y>(IOSL-5) D HEADER^BGPDPH Q:BGPQUIT
- W !!,"# of PHN Visits by Males -",!?2," any Setting",?21,$$C($P($$V(BGPRPT,88,2),"!",1),0,9),?37,$$C($P($$V(BGPRPT,48,2),"!",1),0,9)
- W ?52,$$C($P($$V(BGPRPT,18,2),"!",1),0,9)
- S X=$P($$V(BGPRPT,88,2),"!",1),Y=$P($$V(BGPRPT,18,2),"!",1),%=$S(X:((Y-X)/X)*100,1:"") W ?67,$J(%,5,1)
- S X=$P($$V(BGPRPT,48,2),"!",1),Y=$P($$V(BGPRPT,18,2),"!",1),%=$S(X:((Y-X)/X)*100,1:"") W ?74,$J(%,5,1)
- I $Y>(IOSL-5) D HEADER^BGPDPH Q:BGPQUIT
- W !!,"# of PHN Visits by Males -",!?2," in a Home Setting",?21,$$C($P($$V(BGPRPT,88,4),"!",1),0,9),?37,$$C($P($$V(BGPRPT,48,4),"!",1),0,9)
- W ?52,$$C($P($$V(BGPRPT,18,4),"!",1),0,9)
- S X=$P($$V(BGPRPT,88,4),"!",1),Y=$P($$V(BGPRPT,18,4),"!",1),%=$S(X:((Y-X)/X)*100,1:"") W ?67,$J(%,5,1)
- S X=$P($$V(BGPRPT,48,4),"!",1),Y=$P($$V(BGPRPT,18,4),"!",1),%=$S(X:((Y-X)/X)*100,1:"") W ?74,$J(%,5,1)
- I $Y>(IOSL-5) D HEADER^BGPDPH Q:BGPQUIT
- W !!,"# of PHN Visits by Males -",!?2," any Setting",!?2,"Neonate 0-28 days",?21,$$C($P($$V(BGPRPT,88,5),"!",1),0,9),?37,$$C($P($$V(BGPRPT,48,5),"!",1),0,9)
- W ?52,$$C($P($$V(BGPRPT,18,5),"!",1),0,9)
- S X=$P($$V(BGPRPT,88,5),"!",1),Y=$P($$V(BGPRPT,18,5),"!",1),%=$S(X:((Y-X)/X)*100,1:"") W ?67,$J(%,5,1)
- S X=$P($$V(BGPRPT,48,5),"!",1),Y=$P($$V(BGPRPT,18,5),"!",1),%=$S(X:((Y-X)/X)*100,1:"") W ?74,$J(%,5,1)
- I $Y>(IOSL-5) D HEADER^BGPDPH Q:BGPQUIT
- W !!,"# of PHN Visits by Males -",!?2," any Setting",!?2,"Infants 28d - 12m",?21,$$C($P($$V(BGPRPT,88,6),"!",1),0,9),?37,$$C($P($$V(BGPRPT,48,6),"!",1),0,9)
- W ?52,$$C($P($$V(BGPRPT,18,6),"!",1),0,9)
- S X=$P($$V(BGPRPT,88,6),"!",1),Y=$P($$V(BGPRPT,18,6),"!",1),%=$S(X:((Y-X)/X)*100,1:"") W ?67,$J(%,5,1)
- S X=$P($$V(BGPRPT,48,6),"!",1),Y=$P($$V(BGPRPT,18,6),"!",1),%=$S(X:((Y-X)/X)*100,1:"") W ?74,$J(%,5,1)
- I $Y>(IOSL-5) D HEADER^BGPDPH Q:BGPQUIT
- W !!,"# of PHN Visits by Males -",!?2," any Setting",!?2,"Pats 1-64 yrs",?21,$$C($P($$V(BGPRPT,88,7),"!",1),0,9),?37,$$C($P($$V(BGPRPT,48,7),"!",1),0,9)
- W ?52,$$C($P($$V(BGPRPT,18,7),"!",1),0,9)
- S X=$P($$V(BGPRPT,88,7),"!",1),Y=$P($$V(BGPRPT,18,7),"!",1),%=$S(X:((Y-X)/X)*100,1:"") W ?67,$J(%,5,1)
- S X=$P($$V(BGPRPT,48,7),"!",1),Y=$P($$V(BGPRPT,18,7),"!",1),%=$S(X:((Y-X)/X)*100,1:"") W ?74,$J(%,5,1)
- I $Y>(IOSL-5) D HEADER^BGPDPH Q:BGPQUIT
- W !!,"# of PHN Visits by Males -",!?2," any Setting",!?2,"Elders >65 yrs old",?21,$$C($P($$V(BGPRPT,88,8),"!",1),0,9),?37,$$C($P($$V(BGPRPT,48,8),"!",1),0,9)
- W ?52,$$C($P($$V(BGPRPT,18,8),"!",1),0,9)
- S X=$P($$V(BGPRPT,88,8),"!",1),Y=$P($$V(BGPRPT,18,8),"!",1),%=$S(X:((Y-X)/X)*100,1:"") W ?67,$J(%,5,1)
- S X=$P($$V(BGPRPT,48,8),"!",1),Y=$P($$V(BGPRPT,18,8),"!",1),%=$S(X:((Y-X)/X)*100,1:"") W ?74,$J(%,5,1)
- HAGE ;
- I $Y>(IOSL-5) D HEADER^BGPDPH Q:BGPQUIT
- W !!,"# of PHN Visits by Males -",!?2," in Home Setting",!?2,"Neonate 0-28 days",?21,$$C($P($$V(BGPRPT,88,9),"!",1),0,9),?37,$$C($P($$V(BGPRPT,48,9),"!",1),0,9)
- W ?52,$$C($P($$V(BGPRPT,18,9),"!",1),0,9)
- S X=$P($$V(BGPRPT,88,9),"!",1),Y=$P($$V(BGPRPT,18,9),"!",1),%=$S(X:((Y-X)/X)*100,1:"") W ?67,$J(%,5,1)
- S X=$P($$V(BGPRPT,48,9),"!",1),Y=$P($$V(BGPRPT,18,9),"!",1),%=$S(X:((Y-X)/X)*100,1:"") W ?74,$J(%,5,1)
- I $Y>(IOSL-5) D HEADER^BGPDPH Q:BGPQUIT
- W !!,"# of PHN Visits by Males -",!?2," in Home Setting",!?2,"Infants 28d - 12m",?21,$$C($P($$V(BGPRPT,88,10),"!",1),0,9),?37,$$C($P($$V(BGPRPT,48,10),"!",1),0,9)
- W ?52,$$C($P($$V(BGPRPT,18,10),"!",1),0,9)
- S X=$P($$V(BGPRPT,88,10),"!",1),Y=$P($$V(BGPRPT,18,10),"!",1),%=$S(X:((Y-X)/X)*100,1:"") W ?67,$J(%,5,1)
- S X=$P($$V(BGPRPT,48,10),"!",1),Y=$P($$V(BGPRPT,18,10),"!",1),%=$S(X:((Y-X)/X)*100,1:"") W ?74,$J(%,5,1)
- I $Y>(IOSL-5) D HEADER^BGPDPH Q:BGPQUIT
- W !!,"# of PHN Visits by Males -",!?2," in Home Setting",!?2,"Pats 1-64 yrs",?21,$$C($P($$V(BGPRPT,88,11),"!",1),0,9),?37,$$C($P($$V(BGPRPT,48,11),"!",1),0,9)
- W ?52,$$C($P($$V(BGPRPT,18,11),"!",1),0,9)
- S X=$P($$V(BGPRPT,88,11),"!",1),Y=$P($$V(BGPRPT,18,11),"!",1),%=$S(X:((Y-X)/X)*100,1:"") W ?67,$J(%,5,1)
- S X=$P($$V(BGPRPT,48,11),"!",1),Y=$P($$V(BGPRPT,18,11),"!",1),%=$S(X:((Y-X)/X)*100,1:"") W ?74,$J(%,5,1)
- I $Y>(IOSL-5) D HEADER^BGPDPH Q:BGPQUIT
- W !!,"# of PHN Visits by Males -",!?2," in Home Setting",!?2,"Elders >65 yrs old",?21,$$C($P($$V(BGPRPT,88,12),"!",1),0,9),?37,$$C($P($$V(BGPRPT,48,12),"!",1),0,9)
- W ?52,$$C($P($$V(BGPRPT,18,12),"!",1),0,9)
- S X=$P($$V(BGPRPT,88,12),"!",1),%=$S(X:((Y-X)/X)*100,1:"") W ?67,$J(%,5,1)
- S X=$P($$V(BGPRPT,48,12),"!",1),%=$S(X:((Y-X)/X)*100,1:"") W ?74,$J(%,5,1)
- Q
- CALC(N,O) ;ENTRY POINT
- NEW Z
- I O=0!(N=0)!(O="")!(N="") Q "**"
- NEW X,X2,X3
- S X=N,X2=1,X3=0 D COMMA^%DTC S N=X
- S X=O,X2=1,X3=0 D COMMA^%DTC S O=X
- I +O=0 Q "**"
- S Z=(((N-O)/O)*100),Z=$FN(Z,"+,",1)
- Q Z
- H ;
- W !?1,"DX",?8,"ICD NARRATIVE",?42,"PERIOD",?52," %"
- W !?1,"--",?8,"---------------------------------",?42,"--------",?52,"-----"
- Q
- V(R,N,P) ;
- NEW Y
- I $G(BGPAREAA),'$G(BGPSUMR) G VA
- Q $P($G(^BGPD(R,N)),U,P)
- VA ;
- NEW X,C,V,MT,FT,M,F,B S X=0,C="" F S X=$O(BGPSUL(X)) Q:X'=+X D
- .S V=$P($G(^BGPD(X,N)),U,P)
- .I C="" S C=V Q
- .S MT=$P(C,"!"),FT=$P(C,"!",2),M=$P(V,"!"),F=$P(V,"!",2)
- .F B=1:1:6 S $P(MT,"~",B)=$P(MT,"~",B)+$P(M,"~",B)
- .F B=1:1:6 S $P(FT,"~",B)=$P(FT,"~",B)+$P(F,"~",B)
- .S C=MT_"!"_FT
- .Q
- Q C
- C(X,X2,X3) ;
- D COMMA^%DTC
- Q X
- BGPDP22B ; IHS/CMI/LAB - print ind 22 ;
- +1 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
- +2 ;
- +3 ;
- MAGE ;EP
- +1 ;Q:'$D(BGPIND(22))
- +2 DO HEADER^BGPDPH
- +3 WRITE !,"Indicator 22: Public Health Nursing",!
- +4 WRITE "Denomimator is ALL MALE active users."
- +5 WRITE !,"Increase the total number of Public Health Nursing services (both primary",!,"and secondary treatment and preventive services) provided to individuals",!,"in all settings and the total number of home visits.",!
- +6 WRITE !,"Public Health Nursing",!
- +7 DO H1^BGPDPH
- +8 SET BGPCYD=$PIECE($$V(BGPRPT,10,1),"!",1)
- SET BGPCYN=$PIECE($$V(BGPRPT,18,1),"!",1)
- SET BGPCYP=$SELECT(BGPCYD:((BGPCYN/BGPCYD)*100),1:"")
- +9 SET BGPPRD=$PIECE($$V(BGPRPT,40,1),"!",1)
- SET BGPPRN=$PIECE($$V(BGPRPT,48,1),"!",1)
- SET BGPPRP=$SELECT(BGPPRD:((BGPPRN/BGPPRD)*100),1:"")
- +10 SET BGP98D=$PIECE($$V(BGPRPT,80,1),"!",1)
- SET BGP98N=$PIECE($$V(BGPRPT,88,1),"!",1)
- SET BGP98P=$SELECT(BGP98D:((BGP98N/BGP98D)*100),1:"")
- +11 WRITE !,"# active users",?22,$$C(BGP98D,0,8),?37,$$C(BGPPRD,0,8),?52,$$C(BGPCYD,0,8)
- +12 IF $Y>(IOSL-5)
- DO HEADER^BGPDPH
- IF BGPQUIT
- QUIT
- +13 WRITE !!,"# of Males served by PHNs",!?2,"in any setting"
- +14 DO H2^BGPDPH
- +15 SET BGPCYD=$PIECE($$V(BGPRPT,10,1),"!",1)
- SET BGPCYN=$PIECE($$V(BGPRPT,18,3),"!",1)
- SET BGPCYP=$SELECT(BGPCYD:((BGPCYN/BGPCYD)*100),1:"")
- +16 SET BGPPRD=$PIECE($$V(BGPRPT,40,1),"!",1)
- SET BGPPRN=$PIECE($$V(BGPRPT,48,3),"!",1)
- SET BGPPRP=$SELECT(BGPPRD:((BGPPRN/BGPPRD)*100),1:"")
- +17 SET BGP98D=$PIECE($$V(BGPRPT,80,1),"!",1)
- SET BGP98N=$PIECE($$V(BGPRPT,88,3),"!",1)
- SET BGP98P=$SELECT(BGP98D:((BGP98N/BGP98D)*100),1:"")
- +18 IF $Y>(IOSL-5)
- DO HEADER^BGPDPH
- IF BGPQUIT
- QUIT
- +19 WRITE !!,"# of Males served by PHNs",!?2,"in a home setting"
- +20 DO H2^BGPDPH
- +21 IF $Y>(IOSL-5)
- DO HEADER^BGPDPH
- IF BGPQUIT
- QUIT
- +22 WRITE !!,"# of PHN Visits by Males -",!?2," any Setting",?21,$$C($PIECE($$V(BGPRPT,88,2),"!",1),0,9),?37,$$C($PIECE($$V(BGPRPT,48,2),"!",1),0,9)
- +23 WRITE ?52,$$C($PIECE($$V(BGPRPT,18,2),"!",1),0,9)
- +24 SET X=$PIECE($$V(BGPRPT,88,2),"!",1)
- SET Y=$PIECE($$V(BGPRPT,18,2),"!",1)
- SET %=$SELECT(X:((Y-X)/X)*100,1:"")
- WRITE ?67,$JUSTIFY(%,5,1)
- +25 SET X=$PIECE($$V(BGPRPT,48,2),"!",1)
- SET Y=$PIECE($$V(BGPRPT,18,2),"!",1)
- SET %=$SELECT(X:((Y-X)/X)*100,1:"")
- WRITE ?74,$JUSTIFY(%,5,1)
- +26 IF $Y>(IOSL-5)
- DO HEADER^BGPDPH
- IF BGPQUIT
- QUIT
- +27 WRITE !!,"# of PHN Visits by Males -",!?2," in a Home Setting",?21,$$C($PIECE($$V(BGPRPT,88,4),"!",1),0,9),?37,$$C($PIECE($$V(BGPRPT,48,4),"!",1),0,9)
- +28 WRITE ?52,$$C($PIECE($$V(BGPRPT,18,4),"!",1),0,9)
- +29 SET X=$PIECE($$V(BGPRPT,88,4),"!",1)
- SET Y=$PIECE($$V(BGPRPT,18,4),"!",1)
- SET %=$SELECT(X:((Y-X)/X)*100,1:"")
- WRITE ?67,$JUSTIFY(%,5,1)
- +30 SET X=$PIECE($$V(BGPRPT,48,4),"!",1)
- SET Y=$PIECE($$V(BGPRPT,18,4),"!",1)
- SET %=$SELECT(X:((Y-X)/X)*100,1:"")
- WRITE ?74,$JUSTIFY(%,5,1)
- +31 IF $Y>(IOSL-5)
- DO HEADER^BGPDPH
- IF BGPQUIT
- QUIT
- +32 WRITE !!,"# of PHN Visits by Males -",!?2," any Setting",!?2,"Neonate 0-28 days",?21,$$C($PIECE($$V(BGPRPT,88,5),"!",1),0,9),?37,$$C($PIECE($$V(BGPRPT,48,5),"!",1),0,9)
- +33 WRITE ?52,$$C($PIECE($$V(BGPRPT,18,5),"!",1),0,9)
- +34 SET X=$PIECE($$V(BGPRPT,88,5),"!",1)
- SET Y=$PIECE($$V(BGPRPT,18,5),"!",1)
- SET %=$SELECT(X:((Y-X)/X)*100,1:"")
- WRITE ?67,$JUSTIFY(%,5,1)
- +35 SET X=$PIECE($$V(BGPRPT,48,5),"!",1)
- SET Y=$PIECE($$V(BGPRPT,18,5),"!",1)
- SET %=$SELECT(X:((Y-X)/X)*100,1:"")
- WRITE ?74,$JUSTIFY(%,5,1)
- +36 IF $Y>(IOSL-5)
- DO HEADER^BGPDPH
- IF BGPQUIT
- QUIT
- +37 WRITE !!,"# of PHN Visits by Males -",!?2," any Setting",!?2,"Infants 28d - 12m",?21,$$C($PIECE($$V(BGPRPT,88,6),"!",1),0,9),?37,$$C($PIECE($$V(BGPRPT,48,6),"!",1),0,9)
- +38 WRITE ?52,$$C($PIECE($$V(BGPRPT,18,6),"!",1),0,9)
- +39 SET X=$PIECE($$V(BGPRPT,88,6),"!",1)
- SET Y=$PIECE($$V(BGPRPT,18,6),"!",1)
- SET %=$SELECT(X:((Y-X)/X)*100,1:"")
- WRITE ?67,$JUSTIFY(%,5,1)
- +40 SET X=$PIECE($$V(BGPRPT,48,6),"!",1)
- SET Y=$PIECE($$V(BGPRPT,18,6),"!",1)
- SET %=$SELECT(X:((Y-X)/X)*100,1:"")
- WRITE ?74,$JUSTIFY(%,5,1)
- +41 IF $Y>(IOSL-5)
- DO HEADER^BGPDPH
- IF BGPQUIT
- QUIT
- +42 WRITE !!,"# of PHN Visits by Males -",!?2," any Setting",!?2,"Pats 1-64 yrs",?21,$$C($PIECE($$V(BGPRPT,88,7),"!",1),0,9),?37,$$C($PIECE($$V(BGPRPT,48,7),"!",1),0,9)
- +43 WRITE ?52,$$C($PIECE($$V(BGPRPT,18,7),"!",1),0,9)
- +44 SET X=$PIECE($$V(BGPRPT,88,7),"!",1)
- SET Y=$PIECE($$V(BGPRPT,18,7),"!",1)
- SET %=$SELECT(X:((Y-X)/X)*100,1:"")
- WRITE ?67,$JUSTIFY(%,5,1)
- +45 SET X=$PIECE($$V(BGPRPT,48,7),"!",1)
- SET Y=$PIECE($$V(BGPRPT,18,7),"!",1)
- SET %=$SELECT(X:((Y-X)/X)*100,1:"")
- WRITE ?74,$JUSTIFY(%,5,1)
- +46 IF $Y>(IOSL-5)
- DO HEADER^BGPDPH
- IF BGPQUIT
- QUIT
- +47 WRITE !!,"# of PHN Visits by Males -",!?2," any Setting",!?2,"Elders >65 yrs old",?21,$$C($PIECE($$V(BGPRPT,88,8),"!",1),0,9),?37,$$C($PIECE($$V(BGPRPT,48,8),"!",1),0,9)
- +48 WRITE ?52,$$C($PIECE($$V(BGPRPT,18,8),"!",1),0,9)
- +49 SET X=$PIECE($$V(BGPRPT,88,8),"!",1)
- SET Y=$PIECE($$V(BGPRPT,18,8),"!",1)
- SET %=$SELECT(X:((Y-X)/X)*100,1:"")
- WRITE ?67,$JUSTIFY(%,5,1)
- +50 SET X=$PIECE($$V(BGPRPT,48,8),"!",1)
- SET Y=$PIECE($$V(BGPRPT,18,8),"!",1)
- SET %=$SELECT(X:((Y-X)/X)*100,1:"")
- WRITE ?74,$JUSTIFY(%,5,1)
- HAGE ;
- +1 IF $Y>(IOSL-5)
- DO HEADER^BGPDPH
- IF BGPQUIT
- QUIT
- +2 WRITE !!,"# of PHN Visits by Males -",!?2," in Home Setting",!?2,"Neonate 0-28 days",?21,$$C($PIECE($$V(BGPRPT,88,9),"!",1),0,9),?37,$$C($PIECE($$V(BGPRPT,48,9),"!",1),0,9)
- +3 WRITE ?52,$$C($PIECE($$V(BGPRPT,18,9),"!",1),0,9)
- +4 SET X=$PIECE($$V(BGPRPT,88,9),"!",1)
- SET Y=$PIECE($$V(BGPRPT,18,9),"!",1)
- SET %=$SELECT(X:((Y-X)/X)*100,1:"")
- WRITE ?67,$JUSTIFY(%,5,1)
- +5 SET X=$PIECE($$V(BGPRPT,48,9),"!",1)
- SET Y=$PIECE($$V(BGPRPT,18,9),"!",1)
- SET %=$SELECT(X:((Y-X)/X)*100,1:"")
- WRITE ?74,$JUSTIFY(%,5,1)
- +6 IF $Y>(IOSL-5)
- DO HEADER^BGPDPH
- IF BGPQUIT
- QUIT
- +7 WRITE !!,"# of PHN Visits by Males -",!?2," in Home Setting",!?2,"Infants 28d - 12m",?21,$$C($PIECE($$V(BGPRPT,88,10),"!",1),0,9),?37,$$C($PIECE($$V(BGPRPT,48,10),"!",1),0,9)
- +8 WRITE ?52,$$C($PIECE($$V(BGPRPT,18,10),"!",1),0,9)
- +9 SET X=$PIECE($$V(BGPRPT,88,10),"!",1)
- SET Y=$PIECE($$V(BGPRPT,18,10),"!",1)
- SET %=$SELECT(X:((Y-X)/X)*100,1:"")
- WRITE ?67,$JUSTIFY(%,5,1)
- +10 SET X=$PIECE($$V(BGPRPT,48,10),"!",1)
- SET Y=$PIECE($$V(BGPRPT,18,10),"!",1)
- SET %=$SELECT(X:((Y-X)/X)*100,1:"")
- WRITE ?74,$JUSTIFY(%,5,1)
- +11 IF $Y>(IOSL-5)
- DO HEADER^BGPDPH
- IF BGPQUIT
- QUIT
- +12 WRITE !!,"# of PHN Visits by Males -",!?2," in Home Setting",!?2,"Pats 1-64 yrs",?21,$$C($PIECE($$V(BGPRPT,88,11),"!",1),0,9),?37,$$C($PIECE($$V(BGPRPT,48,11),"!",1),0,9)
- +13 WRITE ?52,$$C($PIECE($$V(BGPRPT,18,11),"!",1),0,9)
- +14 SET X=$PIECE($$V(BGPRPT,88,11),"!",1)
- SET Y=$PIECE($$V(BGPRPT,18,11),"!",1)
- SET %=$SELECT(X:((Y-X)/X)*100,1:"")
- WRITE ?67,$JUSTIFY(%,5,1)
- +15 SET X=$PIECE($$V(BGPRPT,48,11),"!",1)
- SET Y=$PIECE($$V(BGPRPT,18,11),"!",1)
- SET %=$SELECT(X:((Y-X)/X)*100,1:"")
- WRITE ?74,$JUSTIFY(%,5,1)
- +16 IF $Y>(IOSL-5)
- DO HEADER^BGPDPH
- IF BGPQUIT
- QUIT
- +17 WRITE !!,"# of PHN Visits by Males -",!?2," in Home Setting",!?2,"Elders >65 yrs old",?21,$$C($PIECE($$V(BGPRPT,88,12),"!",1),0,9),?37,$$C($PIECE($$V(BGPRPT,48,12),"!",1),0,9)
- +18 WRITE ?52,$$C($PIECE($$V(BGPRPT,18,12),"!",1),0,9)
- +19 SET X=$PIECE($$V(BGPRPT,88,12),"!",1)
- SET %=$SELECT(X:((Y-X)/X)*100,1:"")
- WRITE ?67,$JUSTIFY(%,5,1)
- +20 SET X=$PIECE($$V(BGPRPT,48,12),"!",1)
- SET %=$SELECT(X:((Y-X)/X)*100,1:"")
- WRITE ?74,$JUSTIFY(%,5,1)
- +21 QUIT
- CALC(N,O) ;ENTRY POINT
- +1 NEW Z
- +2 IF O=0!(N=0)!(O="")!(N="")
- QUIT "**"
- +3 NEW X,X2,X3
- +4 SET X=N
- SET X2=1
- SET X3=0
- DO COMMA^%DTC
- SET N=X
- +5 SET X=O
- SET X2=1
- SET X3=0
- DO COMMA^%DTC
- SET O=X
- +6 IF +O=0
- QUIT "**"
- +7 SET Z=(((N-O)/O)*100)
- SET Z=$FNUMBER(Z,"+,",1)
- +8 QUIT Z
- H ;
- +1 WRITE !?1,"DX",?8,"ICD NARRATIVE",?42,"PERIOD",?52," %"
- +2 WRITE !?1,"--",?8,"---------------------------------",?42,"--------",?52,"-----"
- +3 QUIT
- V(R,N,P) ;
- +1 NEW Y
- +2 IF $GET(BGPAREAA)
- IF '$GET(BGPSUMR)
- GOTO VA
- +3 QUIT $PIECE($GET(^BGPD(R,N)),U,P)
- VA ;
- +1 NEW X,C,V,MT,FT,M,F,B
- SET X=0
- SET C=""
- FOR
- SET X=$ORDER(BGPSUL(X))
- IF X'=+X
- QUIT
- Begin DoDot:1
- +2 SET V=$PIECE($GET(^BGPD(X,N)),U,P)
- +3 IF C=""
- SET C=V
- QUIT
- +4 SET MT=$PIECE(C,"!")
- SET FT=$PIECE(C,"!",2)
- SET M=$PIECE(V,"!")
- SET F=$PIECE(V,"!",2)
- +5 FOR B=1:1:6
- SET $PIECE(MT,"~",B)=$PIECE(MT,"~",B)+$PIECE(M,"~",B)
- +6 FOR B=1:1:6
- SET $PIECE(FT,"~",B)=$PIECE(FT,"~",B)+$PIECE(F,"~",B)
- +7 SET C=MT_"!"_FT
- +8 QUIT
- End DoDot:1
- +9 QUIT C
- C(X,X2,X3) ;
- +1 DO COMMA^%DTC
- +2 QUIT X