BCHEXPRN.m

BCHEXPRN ; IHS/CMI/LAB - Display TX ERRORS AUGUST 14, 1992 ; 

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

 ;

LOG ;get log entry

 S DIC="^BCHXLOG(",DIC(0)="AEMQ" D ^DIC K DIC I Y=-1 W !!,"Goodbye" G EOJ

 S BCHDFN=+Y S BCHD=BCHDFN

 I '$D(^BCHXLOG(BCHDFN,51)) W !!,"No TX errors generated on that run." G LOG

DIP ;

 S DIC="^BCHXLOG(",FLDS="[BCH EX PRINT ERRORS]",BY="@NUMBER",FR=BCHD,TO=BCHD,L=0 D EN1^DIP

XIT ;

 S DIR(0)="FO^1:1",DIR("A")="Press 'RETURN' to Continue" D ^DIR K DIR S:$D(DUOUT) DIRUT=1

EOJ ;

 K BCHD,BCHDFN,FLDS,BY,FR,TO,DIC,X,Y,L

 Q

BCHEXPRN  ; IHS/CMI/LAB - Display TX ERRORS AUGUST 14, 1992 ; 

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

 +2       ;

LOG       ;get log entry

 +1        SET DIC="^BCHXLOG("

           SET DIC(0)="AEMQ"

           DO ^DIC

           KILL DIC

           IF Y=-1

               WRITE !!,"Goodbye"

               GOTO EOJ

 +2        SET BCHDFN=+Y

           SET BCHD=BCHDFN

 +3        IF '$DATA(^BCHXLOG(BCHDFN,51))

               WRITE !!,"No TX errors generated on that run."

               GOTO LOG

DIP       ;

 +1        SET DIC="^BCHXLOG("

           SET FLDS="[BCH EX PRINT ERRORS]"

           SET BY="@NUMBER"

           SET FR=BCHD

           SET TO=BCHD

           SET L=0

           DO EN1^DIP

XIT       ;

 +1        SET DIR(0)="FO^1:1"

           SET DIR("A")="Press 'RETURN' to Continue"

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

EOJ       ;

 +1        KILL BCHD,BCHDFN,FLDS,BY,FR,TO,DIC,X,Y,L

 +2        QUIT