- AMHEXDSP ; 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 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(^AMHXLOG(DFN,0),U) X ^DD("DD") S AMHD=Y
- DIQ ; CALL TO DIQ
- W !!,"Information for Log Entry ",DFN," Beginning Date: ",AMHD,!
- S DIC="^AMHXLOG(",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 ENTER to Continue" D ^DIR K DIR S:$D(DUOUT) DIRUT=1
- EOJ ;
- D ^%ZISC
- K AMHD,DFN,IO("Q"),X,Y,%,%ZIS
- K DIC,DR,DA,DIQ,DIQ(0),DIC(0)
- Q
- TSKMN ;
- K ZTSAVE F %="DFN","AMHD" S ZTSAVE(%)=""
- S ZTIO=ION,ZTRTN="EN^AMHDISP",ZTDTH="",ZTDESC="PCC DATA TX - LOG ENTRY" D ^%ZTLOAD D EOJ Q
- AMHEXDSP ; 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 DFN=+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(DFN,0),U)
- XECUTE ^DD("DD")
- SET AMHD=Y
- DIQ ; CALL TO DIQ
- +1 WRITE !!,"Information for Log Entry ",DFN," Beginning Date: ",AMHD,!
- +2 SET DIC="^AMHXLOG("
- 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 ENTER to Continue"
- DO ^DIR
- KILL DIR
- IF $DATA(DUOUT)
- SET DIRUT=1
- EOJ ;
- +1 DO ^%ZISC
- +2 KILL AMHD,DFN,IO("Q"),X,Y,%,%ZIS
- +3 KILL DIC,DR,DA,DIQ,DIQ(0),DIC(0)
- +4 QUIT
- TSKMN ;
- +1 KILL ZTSAVE
- FOR %="DFN","AMHD"
- SET ZTSAVE(%)=""
- +2 SET ZTIO=ION
- SET ZTRTN="EN^AMHDISP"
- SET ZTDTH=""
- SET ZTDESC="PCC DATA TX - LOG ENTRY"
- DO ^%ZTLOAD
- DO EOJ
- QUIT
