BGP1DPEQ.m

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

 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33

 ;

7 ;EP

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

 D H1^BGP1DPH

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

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

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

 W !,"Goal Setting"

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

 W !,"# w/goal set"

 D H2^BGP1DPH

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

 W !,"# w/goal not set"

 D H2^BGP1DPH

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

 W !,"# w/goal met"

 D H2^BGP1DPH

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

 W !,"# w/goal not met"

 D H2^BGP1DPH

 Q

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

 +1       ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33

 +2       ;

7         ;EP

 +1        IF $Y>(BGPIOSL-6)

               DO HEADER^BGP1DPEP

               IF BGPQUIT

                   QUIT 

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

 +2        DO H1^BGP1DPH

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

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

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

 +9        WRITE !,"Goal Setting"

 +10       SET N=11

           SET P=20

           DO SETN^BGP1DPEP

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

 +12       DO H2^BGP1DPH

 +13       SET N=11

           SET P=21

           DO SETN^BGP1DPEP

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

 +15       DO H2^BGP1DPH

 +16       SET N=11

           SET P=22

           DO SETN^BGP1DPEP

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

 +18       DO H2^BGP1DPH

 +19       SET N=11

           SET P=23

           DO SETN^BGP1DPEP

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

 +21       DO H2^BGP1DPH

 +22       QUIT