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