BGP9DPEF.m

BGP9DPEF ; IHS/CMI/LAB - IHS gpra print ;

 ;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009

 ;

 ;

7 ;EP

 S X=""

 D S^BGP9DPED(" ",1,1) D S^BGP9DPED(" ",1,1) ;S X=$P(^BGPPEIN(BGPIC,0),U,2) D S^BGP9DPED(X,1,1)

 D H1^BGP9PDL1

 D S^BGP9DPED(" ",1,1)

 S BGPCYD=$$V^BGP9DPED(1,BGPRPT,11,19)

 S BGPPRD=$$V^BGP9DPED(2,BGPRPT,11,19)

 S BGPBLD=$$V^BGP9DPED(3,BGPRPT,11,19)

 S X="# User Pop w/ Pat Ed" D S^BGP9DPED(X,1,1)

 S Y=BGPCYD_"^^"_BGPPRD_"^^^"_BGPBLD D S^BGP9DPED(Y,,2)

 D S^BGP9DPED(" ",1,1)

 S X="Goal Setting" D S^BGP9DPED(X,1,1)

 S N=11,P=20 D SETN^BGP9DPED

 S X="# w/goal set" D S^BGP9DPED(X,1,1)

 D H2^BGP9PDL1

 S N=11,P=21 D SETN^BGP9DPED

 S X="# w/goal not set" D S^BGP9DPED(X,1,1)

 D H2^BGP9PDL1

 S N=11,P=22 D SETN^BGP9DPED

 S X="# w/goal met" D S^BGP9DPED(X,1,1)

 D H2^BGP9PDL1

 S N=11,P=23 D SETN^BGP9DPED

 S X="# w/goal not met" D S^BGP9DPED(X,1,1)

 D H2^BGP9PDL1

 Q

BGP9DPEF  ; IHS/CMI/LAB - IHS gpra print ;

 +1       ;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009

 +2       ;

 +3       ;

7         ;EP

 +1        SET X=""

 +2       ;S X=$P(^BGPPEIN(BGPIC,0),U,2) D S^BGP9DPED(X,1,1)

           DO S^BGP9DPED(" ",1,1)

           DO S^BGP9DPED(" ",1,1)

 +3        DO H1^BGP9PDL1

 +4        DO S^BGP9DPED(" ",1,1)

 +5        SET BGPCYD=$$V^BGP9DPED(1,BGPRPT,11,19)

 +6        SET BGPPRD=$$V^BGP9DPED(2,BGPRPT,11,19)

 +7        SET BGPBLD=$$V^BGP9DPED(3,BGPRPT,11,19)

 +8        SET X="# User Pop w/ Pat Ed"

           DO S^BGP9DPED(X,1,1)

 +9        SET Y=BGPCYD_"^^"_BGPPRD_"^^^"_BGPBLD

           DO S^BGP9DPED(Y,,2)

 +10       DO S^BGP9DPED(" ",1,1)

 +11       SET X="Goal Setting"

           DO S^BGP9DPED(X,1,1)

 +12       SET N=11

           SET P=20

           DO SETN^BGP9DPED

 +13       SET X="# w/goal set"

           DO S^BGP9DPED(X,1,1)

 +14       DO H2^BGP9PDL1

 +15       SET N=11

           SET P=21

           DO SETN^BGP9DPED

 +16       SET X="# w/goal not set"

           DO S^BGP9DPED(X,1,1)

 +17       DO H2^BGP9PDL1

 +18       SET N=11

           SET P=22

           DO SETN^BGP9DPED

 +19       SET X="# w/goal met"

           DO S^BGP9DPED(X,1,1)

 +20       DO H2^BGP9PDL1

 +21       SET N=11

           SET P=23

           DO SETN^BGP9DPED

 +22       SET X="# w/goal not met"

           DO S^BGP9DPED(X,1,1)

 +23       DO H2^BGP9PDL1

 +24       QUIT