AMHEXPRN.m

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

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

 ;

LOG ;get log entry

 S APCDOVRR=1

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

 S AMHDFN=+Y S AMHD=AMHDFN

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

DIP ;

 S DIC="^AMHXLOG(",FLDS="[AMH ERROR REPORT]",BY="@NUMBER",FR=AMHD,TO=AMHD,L=0 D EN1^DIP

XIT ;

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

EOJ ;

 K APCDOVRR,L

 K AMHD,AMHDFN,FLDS,BY,FR,TO,DIC,X,Y

 Q

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

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

 +2       ;

LOG       ;get log entry

 +1        SET APCDOVRR=1

 +2        SET DIC="^AMHXLOG("

           SET DIC(0)="AEMQ"

           DO ^DIC

           KILL DIC

           IF Y=-1

               WRITE !!,"Goodbye"

               GOTO EOJ

 +3        SET AMHDFN=+Y

           SET AMHD=AMHDFN

 +4        IF '$DATA(^AMHXLOG(AMHDFN,51))

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

               GOTO LOG

DIP       ;

 +1        SET DIC="^AMHXLOG("

           SET FLDS="[AMH ERROR REPORT]"

           SET BY="@NUMBER"

           SET FR=AMHD

           SET TO=AMHD

           SET L=0

           DO EN1^DIP

XIT       ;

 +1        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        KILL APCDOVRR,L

 +2        KILL AMHD,AMHDFN,FLDS,BY,FR,TO,DIC,X,Y

 +3        QUIT