- 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
