BCHEXDSP.m

BCHEXDSP ; IHS/CMI/LAB - DISPLAY CHR EXPORT LOG DATA ; 

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

 ;

 ;Display Export Log entry.

 ;

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

 S DFN=+Y

 W !! S %ZIS="PQ" D ^%ZIS

 I POP G EOJ

 I $D(IO("Q")) G TSKMN

EN U IO ;W @IOF

 S Y=$P(^BCHXLOG(DFN,0),U) X ^DD("DD") S BCHD=Y

DIQ ; CALL TO DIQ

 W !!,"Information for Log Entry ",DFN," Beginning Date: ",BCHD,!

 S DIC="^BCHXLOG(",DA=DFN,DR="0;11",DIQ(0)="C" D EN^DIQ

 I $D(ZTQUEUED) S ZTREQ="@" D ^%ZISC G EOJ

 D ^%ZISC U IO(0)

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

EOJ ;

 D ^%ZISC

 K BCHD,DFN,IO("Q"),X,Y,%,%ZIS

 K DIC,DR,DA,DIQ,DIQ(0),DIC(0)

 Q

TSKMN ;

 K ZTSAVE F %="DFN","BCHD" S ZTSAVE(%)=""

 S ZTRTN="EN^BCHDISP",ZTDTH="",ZTDESC="PCC DATA TX - LOG ENTRY" D ^%ZTLOAD D EOJ Q

BCHEXDSP  ; IHS/CMI/LAB - DISPLAY CHR EXPORT LOG DATA ; 

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

 +2       ;

 +3       ;Display Export Log entry.

 +4       ;

 +5        SET DIC="^BCHXLOG("

           SET DIC(0)="AEMQ"

           DO ^DIC

           KILL DIC

           IF Y=-1

               WRITE !!,"Goodbye"

               GOTO EOJ

 +6        SET DFN=+Y

 +7        WRITE !!

           SET %ZIS="PQ"

           DO ^%ZIS

 +8        IF POP

               GOTO EOJ

 +9        IF $DATA(IO("Q"))

               GOTO TSKMN

EN        ;W @IOF

           USE IO

 +1        SET Y=$PIECE(^BCHXLOG(DFN,0),U)

           XECUTE ^DD("DD")

           SET BCHD=Y

DIQ       ; CALL TO DIQ

 +1        WRITE !!,"Information for Log Entry ",DFN," Beginning Date: ",BCHD,!

 +2        SET DIC="^BCHXLOG("

           SET DA=DFN

           SET DR="0;11"

           SET DIQ(0)="C"

           DO EN^DIQ

 +3        IF $DATA(ZTQUEUED)

               SET ZTREQ="@"

               DO ^%ZISC

               GOTO EOJ

 +4        DO ^%ZISC

           USE IO(0)

 +5        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        DO ^%ZISC

 +2        KILL BCHD,DFN,IO("Q"),X,Y,%,%ZIS

 +3        KILL DIC,DR,DA,DIQ,DIQ(0),DIC(0)

 +4        QUIT 

TSKMN     ;

 +1        KILL ZTSAVE

           FOR %="DFN","BCHD"

               SET ZTSAVE(%)=""

 +2        SET ZTRTN="EN^BCHDISP"

           SET ZTDTH=""

           SET ZTDESC="PCC DATA TX - LOG ENTRY"

           DO ^%ZTLOAD

           DO EOJ

           QUIT