BGP9DPEQ.m

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

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

 ;

7 ;EP

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

 D H1^BGP9DPH

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

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

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

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

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

 W !,"Goal Setting"

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

 W !,"# w/goal set"

 D H2^BGP9DPH

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

 W !,"# w/goal not set"

 D H2^BGP9DPH

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

 W !,"# w/goal met"

 D H2^BGP9DPH

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

 W !,"# w/goal not met"

 D H2^BGP9DPH

 Q

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

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

 +2       ;

7         ;EP

 +1        IF $Y>(BGPIOSL-6)

               DO HEADER^BGP9DPEP

               IF BGPQUIT

                   QUIT 

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

 +2        DO H1^BGP9DPH

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

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

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

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

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

 +8        WRITE !,"Goal Setting"

 +9        SET N=11

           SET P=20

           DO SETN^BGP9DPEP

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

 +11       DO H2^BGP9DPH

 +12       SET N=11

           SET P=21

           DO SETN^BGP9DPEP

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

 +14       DO H2^BGP9DPH

 +15       SET N=11

           SET P=22

           DO SETN^BGP9DPEP

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

 +17       DO H2^BGP9DPH

 +18       SET N=11

           SET P=23

           DO SETN^BGP9DPEP

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

 +20       DO H2^BGP9DPH

 +21       QUIT