AMHEYDSP.m

AMHEYDSP ; IHS/CMI/LAB - DISPLAY MHSS EXPORT BATCH DATA AUGUST 14, 1992 ;

 ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010

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

 S AMHIEN=+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(^AMHXLOG(AMHIEN,0),U) X ^DD("DD") S AMHD=Y

DIQ ; CALL TO DIQ

 W !!,"Information for Log Entry ",AMHIEN," Beginning Date: ",AMHD,!

 S DIC="^AMHXLOG(",DA=AMHIEN,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 ENTER to Continue" D ^DIR K DIR S:$D(DUOUT) DIRUT=1

EOJ ;

 D ^%ZISC

 K AMHD,AMHIEN,IO("Q"),X,Y,%,%ZIS

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

 Q

TSKMN ;

 K ZTSAVE F %="AMHIEN","AMHD" S ZTSAVE(%)=""

 S ZTIO=ION,ZTRTN="EN^AMHEYDSP",ZTDTH="",ZTDESC="BH TX - LOG ENTRY" D ^%ZTLOAD D EOJ Q

AMHEYDSP  ; IHS/CMI/LAB - DISPLAY MHSS EXPORT BATCH DATA AUGUST 14, 1992 ;

 +1       ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010

 +2        SET DIC="^AMHXLOG("

           SET DIC(0)="AEMQ"

           DO ^DIC

           KILL DIC

           IF Y=-1

               WRITE !!,"Goodbye"

               GOTO EOJ

 +3        SET AMHIEN=+Y

 +4        WRITE !!

           SET %ZIS="PQ"

           DO ^%ZIS

 +5        IF POP

               GOTO EOJ

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

               GOTO TSKMN

EN        ;W @IOF

           USE IO

 +1        SET Y=$PIECE(^AMHXLOG(AMHIEN,0),U)

           XECUTE ^DD("DD")

           SET AMHD=Y

DIQ       ; CALL TO DIQ

 +1        WRITE !!,"Information for Log Entry ",AMHIEN," Beginning Date: ",AMHD,!

 +2        SET DIC="^AMHXLOG("

           SET DA=AMHIEN

           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 ENTER to Continue"

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

EOJ       ;

 +1        DO ^%ZISC

 +2        KILL AMHD,AMHIEN,IO("Q"),X,Y,%,%ZIS

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

 +4        QUIT 

TSKMN     ;

 +1        KILL ZTSAVE

           FOR %="AMHIEN","AMHD"

               SET ZTSAVE(%)=""

 +2        SET ZTIO=ION

           SET ZTRTN="EN^AMHEYDSP"

           SET ZTDTH=""

           SET ZTDESC="BH TX - LOG ENTRY"

           DO ^%ZTLOAD

           DO EOJ

           QUIT