BGP2DPEQ.m

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

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

 ;

7 ;EP

 I $Y>(BGPIOSL-6) D HEADER^BGP2DPEP Q:BGPQUIT  W !,$P(^BGPPEIW(BGPIC,0),U,2)

 D H1^BGP2DPH

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

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

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

 I '$G(BGPSEAT) W !!,"# User Pop w/ Pat Ed"

 I $G(BGPSEAT) W !!,$P(^DIBT(BGPSEAT,0),U,1)," Population",!," w/ Pat Ed"

 W ?20,$$C^BGP2DPEP(BGPCYD,0,8),?35,$$C^BGP2DPEP(BGPPRD,0,8),?58,$$C^BGP2DPEP(BGPBLD,0,8),!

 W !,"Goal Setting"

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

 W !,"# w/goal set"

 D H2^BGP2DPH

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

 W !,"# w/goal not set"

 D H2^BGP2DPH

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

 W !,"# w/goal met"

 D H2^BGP2DPH

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

 W !,"# w/goal not met"

 D H2^BGP2DPH

 Q

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

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

 +2       ;

7         ;EP

 +1        IF $Y>(BGPIOSL-6)

               DO HEADER^BGP2DPEP

               IF BGPQUIT

                   QUIT 

               WRITE !,$PIECE(^BGPPEIW(BGPIC,0),U,2)

 +2        DO H1^BGP2DPH

 +3        SET BGPCYD=$$V^BGP2DPEP(1,BGPRPT,11,19)

 +4        SET BGPPRD=$$V^BGP2DPEP(2,BGPRPT,11,19)

 +5        SET BGPBLD=$$V^BGP2DPEP(3,BGPRPT,11,19)

 +6        IF '$GET(BGPSEAT)

               WRITE !!,"# User Pop w/ Pat Ed"

 +7        IF $GET(BGPSEAT)

               WRITE !!,$PIECE(^DIBT(BGPSEAT,0),U,1)," Population",!," w/ Pat Ed"

 +8        WRITE ?20,$$C^BGP2DPEP(BGPCYD,0,8),?35,$$C^BGP2DPEP(BGPPRD,0,8),?58,$$C^BGP2DPEP(BGPBLD,0,8),!

 +9        WRITE !,"Goal Setting"

 +10       SET N=11

           SET P=20

           DO SETN^BGP2DPEP

 +11       WRITE !,"# w/goal set"

 +12       DO H2^BGP2DPH

 +13       SET N=11

           SET P=21

           DO SETN^BGP2DPEP

 +14       WRITE !,"# w/goal not set"

 +15       DO H2^BGP2DPH

 +16       SET N=11

           SET P=22

           DO SETN^BGP2DPEP

 +17       WRITE !,"# w/goal met"

 +18       DO H2^BGP2DPH

 +19       SET N=11

           SET P=23

           DO SETN^BGP2DPEP

 +20       WRITE !,"# w/goal not met"

 +21       DO H2^BGP2DPH

 +22       QUIT