BGP0DPEQ.m

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

 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010

 ;

7 ;EP

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

 D H1^BGP0DPH

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

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

 S BGPBLD=$$V^BGP0DPEP(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^BGP0DPEP(BGPCYD,0,8),?35,$$C^BGP0DPEP(BGPPRD,0,8),?58,$$C^BGP0DPEP(BGPBLD,0,8),!

 W !,"Goal Setting"

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

 W !,"# w/goal set"

 D H2^BGP0DPH

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

 W !,"# w/goal not set"

 D H2^BGP0DPH

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

 W !,"# w/goal met"

 D H2^BGP0DPH

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

 W !,"# w/goal not met"

 D H2^BGP0DPH

 Q

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

 +1       ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010

 +2       ;

7         ;EP

 +1        IF $Y>(BGPIOSL-6)

               DO HEADER^BGP0DPEP

               IF BGPQUIT

                   QUIT 

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

 +2        DO H1^BGP0DPH

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

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

 +5        SET BGPBLD=$$V^BGP0DPEP(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^BGP0DPEP(BGPCYD,0,8),?35,$$C^BGP0DPEP(BGPPRD,0,8),?58,$$C^BGP0DPEP(BGPBLD,0,8),!

 +9        WRITE !,"Goal Setting"

 +10       SET N=11

           SET P=20

           DO SETN^BGP0DPEP

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

 +12       DO H2^BGP0DPH

 +13       SET N=11

           SET P=21

           DO SETN^BGP0DPEP

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

 +15       DO H2^BGP0DPH

 +16       SET N=11

           SET P=22

           DO SETN^BGP0DPEP

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

 +18       DO H2^BGP0DPH

 +19       SET N=11

           SET P=23

           DO SETN^BGP0DPEP

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

 +21       DO H2^BGP0DPH

 +22       QUIT