BGP2DPEF.m

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

 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66

 ;

 ;

7 ;EP

 S X=""

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

 D H1^BGP2PDL1

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

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

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

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

 I $G(BGPSEAT) S X=$P(^DIBT(BGPSEAT,0),U,1)_" Population w/ Pat Ed" D S^BGP2DPED(X,1,1)

 I '$G(BGPSEAT) S X="# User Pop w/ Pat Ed" D S^BGP2DPED(X,1,1)

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

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

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

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

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

 D H2^BGP2PDL1

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

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

 D H2^BGP2PDL1

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

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

 D H2^BGP2PDL1

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

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

 D H2^BGP2PDL1

 Q

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

 +1       ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66

 +2       ;

 +3       ;

7         ;EP

 +1        SET X=""

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

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

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

 +3        DO H1^BGP2PDL1

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

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

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

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

 +8        IF $GET(BGPSEAT)

               SET X=$PIECE(^DIBT(BGPSEAT,0),U,1)_" Population w/ Pat Ed"

               DO S^BGP2DPED(X,1,1)

 +9        IF '$GET(BGPSEAT)

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

               DO S^BGP2DPED(X,1,1)

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

           DO S^BGP2DPED(Y,,2)

 +11       DO S^BGP2DPED(" ",1,1)

 +12       SET X="Goal Setting"

           DO S^BGP2DPED(X,1,1)

 +13       SET N=11

           SET P=20

           DO SETN^BGP2DPED

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

           DO S^BGP2DPED(X,1,1)

 +15       DO H2^BGP2PDL1

 +16       SET N=11

           SET P=21

           DO SETN^BGP2DPED

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

           DO S^BGP2DPED(X,1,1)

 +18       DO H2^BGP2PDL1

 +19       SET N=11

           SET P=22

           DO SETN^BGP2DPED

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

           DO S^BGP2DPED(X,1,1)

 +21       DO H2^BGP2PDL1

 +22       SET N=11

           SET P=23

           DO SETN^BGP2DPED

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

           DO S^BGP2DPED(X,1,1)

 +24       DO H2^BGP2PDL1

 +25       QUIT