Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: AMHEXPRN

AMHEXPRN.m

Go to the documentation of this file.
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