BCHUTIL1.m

BCHUTIL1 ; IHS/CMI/LAB - UTILITIES ; 

 ;;2.0;IHS RPMS CHR SYSTEM;;OCT 23, 2012;Build 27

 ;

 ;more utilities, called package wide

PAUSE ;EP

 Q:$E(IOST)'="C"!(IO'=IO(0))

 W ! S DIR(0)="EO",DIR("A")="Hit return to continue...." D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 Q

 ;

DONE ;ENTRY POINT - END OF REPORT TIME DISPLAY

 I $D(BCHET) S BCHTS=(86400*($P(BCHET,",")-$P(BCHBT,",")))+($P(BCHET,",",2)-$P(BCHBT,",",2)),BCHH=$P(BCHTS/3600,".") S:BCHH="" BCHH=0 D

 .  S BCHTS=BCHTS-(BCHH*3600),BCHM=$P(BCHTS/60,".")

 .  S:BCHM="" BCHM=0 S BCHTS=BCHTS-(BCHM*60),BCHS=BCHTS

 .  W !!,"RUN TIME (H.M.S): ",BCHH,".",BCHM,".",BCHS

 I $E(IOST)="C",IO=IO(0) S DIR(0)="EO",DIR("A")="End of report.  HIT RETURN" D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 W:$D(IOF) @IOF

 K BCHTS,BCHS,BCHH,BCHM,BCHET

 D ^BCHUEKL

 Q

BCHUTIL1  ; IHS/CMI/LAB - UTILITIES ; 

 +1       ;;2.0;IHS RPMS CHR SYSTEM;;OCT 23, 2012;Build 27

 +2       ;

 +3       ;more utilities, called package wide

PAUSE     ;EP

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

               QUIT 

 +2        WRITE !

           SET DIR(0)="EO"

           SET DIR("A")="Hit return to continue...."

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +3        QUIT 

 +4       ;

DONE      ;ENTRY POINT - END OF REPORT TIME DISPLAY

 +1        IF $DATA(BCHET)

               SET BCHTS=(86400*($PIECE(BCHET,",")-$PIECE(BCHBT,",")))+($PIECE(BCHET,",",2)-$PIECE(BCHBT,",",2))

               SET BCHH=$PIECE(BCHTS/3600,".")

               IF BCHH=""

                   SET BCHH=0

               Begin DoDot:1

 +2                SET BCHTS=BCHTS-(BCHH*3600)

                   SET BCHM=$PIECE(BCHTS/60,".")

 +3                IF BCHM=""

                       SET BCHM=0

                   SET BCHTS=BCHTS-(BCHM*60)

                   SET BCHS=BCHTS

 +4                WRITE !!,"RUN TIME (H.M.S): ",BCHH,".",BCHM,".",BCHS

               End DoDot:1

 +5        IF $EXTRACT(IOST)="C"

               IF IO=IO(0)

                   SET DIR(0)="EO"

                   SET DIR("A")="End of report.  HIT RETURN"

                   DO ^DIR

                   KILL DIR

                   IF $DATA(DUOUT)

                       SET DIRUT=1

 +6        IF $DATA(IOF)

               WRITE @IOF

 +7        KILL BCHTS,BCHS,BCHH,BCHM,BCHET

 +8        DO ^BCHUEKL

 +9        QUIT