BGPDH.m

BGPDH ; IHS/CMI/LAB - cover page for gpra ;

 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007

 ;

 ;

 W:$D(IOF) @IOF

 W !!,$$CTR("Cover Page",80)

 W !!,$$CTR("IHS GPRA Performance Indicator Report",80)

 W !,$$CTR("Date Report Run: "_$$FMTE^XLFDT(DT),80)

 W !,$$CTR("Site where Run: "_$P(^DIC(4,DUZ(2),0),U),80)

 W !,$$CTR("Report Generated by: "_$$USR,80)

 S X="Reporting Period: "_$$FMTE^XLFDT(BGPBD)_" to "_$$FMTE^XLFDT(BGPED) W !,$$CTR(X,80)

 S X="Previous Year Period:  "_$$FMTE^XLFDT(BGPPBD)_" to "_$$FMTE^XLFDT(BGPPED) W !,$$CTR(X,80)

 S X="Baseline Period:  "_$$FMTE^XLFDT(BGPBBD)_" to "_$$FMTE^XLFDT(BGPBED) W !,$$CTR(X,80)

 D ENDTIME

 I $G(BGPFTA) W !!,"A file will be created called BG",$P(^AUTTLOC(DUZ(2),0),U,10)_"."_BGPRPT,".",!,"It will reside in the public/export directory.",!,"This file should be sent to your Area Office.",!

 W !!?10,"The following communities are included in this report:",!

 NEW BGPX

 S BGPX="" F  S BGPX=$O(BGPTAX(BGPX)) Q:BGPX=""  D

 .I $Y>(IOSL-4) D EOP W:$D(IOF) @IOF

 .W !?15,BGPX

 .Q

 K BGPX,BGPQUIT

 Q

ENDTIME ;

 I $D(BGPET) S BGPTS=(86400*($P(BGPET,",")-$P(BGPBT,",")))+($P(BGPET,",",2)-$P(BGPBT,",",2)),BGPHR=$P(BGPTS/3600,".") S:BGPHR="" BGPHR=0 D

 .S BGPTS=BGPTS-(BGPHR*3600),BGPM=$P(BGPTS/60,".") S:BGPM="" BGPM=0 S BGPTS=BGPTS-(BGPM*60),BGPS=BGPTS W !!,"RUN TIME (H.M.S): ",BGPHR,".",BGPM,".",BGPS

 Q

CTR(X,Y) ;EP - Center X in a field Y wide.

 Q $J("",$S($D(Y):Y,1:IOM)-$L(X)\2)_X

 ;----------

EOP ;EP - End of page.

 Q:$E(IOST)'="C"

 Q:$D(ZTQUEUED)!'(IOT="TRM")!$D(IO("S"))

 NEW DIR

 K DIRUT,DFOUT,DLOUT,DTOUT,DUOUT

 S DIR(0)="E" D ^DIR

 Q

 ;----------

USR() ;EP - Return name of current user from ^VA(200.

 Q $S($G(DUZ):$S($D(^VA(200,DUZ,0)):$P(^(0),U),1:"UNKNOWN"),1:"DUZ UNDEFINED OR 0")

 ;----------

 ;;

BGPDH     ; IHS/CMI/LAB - cover page for gpra ;

 +1       ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007

 +2       ;

 +3       ;

 +4        IF $DATA(IOF)

               WRITE @IOF

 +5        WRITE !!,$$CTR("Cover Page",80)

 +6        WRITE !!,$$CTR("IHS GPRA Performance Indicator Report",80)

 +7        WRITE !,$$CTR("Date Report Run: "_$$FMTE^XLFDT(DT),80)

 +8        WRITE !,$$CTR("Site where Run: "_$PIECE(^DIC(4,DUZ(2),0),U),80)

 +9        WRITE !,$$CTR("Report Generated by: "_$$USR,80)

 +10       SET X="Reporting Period: "_$$FMTE^XLFDT(BGPBD)_" to "_$$FMTE^XLFDT(BGPED)

           WRITE !,$$CTR(X,80)

 +11       SET X="Previous Year Period:  "_$$FMTE^XLFDT(BGPPBD)_" to "_$$FMTE^XLFDT(BGPPED)

           WRITE !,$$CTR(X,80)

 +12       SET X="Baseline Period:  "_$$FMTE^XLFDT(BGPBBD)_" to "_$$FMTE^XLFDT(BGPBED)

           WRITE !,$$CTR(X,80)

 +13       DO ENDTIME

 +14       IF $GET(BGPFTA)

               WRITE !!,"A file will be created called BG",$PIECE(^AUTTLOC(DUZ(2),0),U,10)_"."_BGPRPT,".",!,"It will reside in the public/export directory.",!,"This file should be sent to your Area Office.",!

 +15       WRITE !!?10,"The following communities are included in this report:",!

 +16       NEW BGPX

 +17       SET BGPX=""

           FOR 

               SET BGPX=$ORDER(BGPTAX(BGPX))

               IF BGPX=""

                   QUIT 

               Begin DoDot:1

 +18               IF $Y>(IOSL-4)

                       DO EOP

                       IF $DATA(IOF)

                           WRITE @IOF

 +19               WRITE !?15,BGPX

 +20               QUIT 

               End DoDot:1

 +21       KILL BGPX,BGPQUIT

 +22       QUIT 

ENDTIME   ;

 +1        IF $DATA(BGPET)

               SET BGPTS=(86400*($PIECE(BGPET,",")-$PIECE(BGPBT,",")))+($PIECE(BGPET,",",2)-$PIECE(BGPBT,",",2))

               SET BGPHR=$PIECE(BGPTS/3600,".")

               IF BGPHR=""

                   SET BGPHR=0

               Begin DoDot:1

 +2                SET BGPTS=BGPTS-(BGPHR*3600)

                   SET BGPM=$PIECE(BGPTS/60,".")

                   IF BGPM=""

                       SET BGPM=0

                   SET BGPTS=BGPTS-(BGPM*60)

                   SET BGPS=BGPTS

                   WRITE !!,"RUN TIME (H.M.S): ",BGPHR,".",BGPM,".",BGPS

               End DoDot:1

 +3        QUIT 

CTR(X,Y)  ;EP - Center X in a field Y wide.

 +1        QUIT $JUSTIFY("",$SELECT($DATA(Y):Y,1:IOM)-$LENGTH(X)\2)_X

 +2       ;----------

EOP       ;EP - End of page.

 +1        IF $EXTRACT(IOST)'="C"

               QUIT 

 +2        IF $DATA(ZTQUEUED)!'(IOT="TRM")!$DATA(IO("S"))

               QUIT 

 +3        NEW DIR

 +4        KILL DIRUT,DFOUT,DLOUT,DTOUT,DUOUT

 +5        SET DIR(0)="E"

           DO ^DIR

 +6        QUIT 

 +7       ;----------

USR()     ;EP - Return name of current user from ^VA(200.

 +1        QUIT $SELECT($GET(DUZ):$SELECT($DATA(^VA(200,DUZ,0)):$PIECE(^(0),U),1:"UNKNOWN"),1:"DUZ UNDEFINED OR 0")

 +2       ;----------

 +3       ;;