XMJERR.m

XMJERR ;ISC-SF/GMB-Error handling ;04/17/2002  09:54

 ;;8.0;MailMan;;Jun 28, 2002

ZSHOW ;

 N I,J,XMZ

 F I=1:1:XMERR D

 . W !

 . S XMZ=$G(^TMP("XMERR",$J,I,"XMZ"))

 . I XMZ D NOGOID^XMJMP2(XMZ,$G(^XMB(3.9,XMZ,0)))

 . S J=0

 . F  S J=$O(^TMP("XMERR",$J,I,"TEXT",J)) Q:'J  W !,^(J)

 W !

 K XMERR,^TMP("XMERR",$J)

 Q

SHOW ;

 N I,J

 W $C(7)

 F I=1:1:XMERR D

 . W !

 . S J=0

 . F  S J=$O(^TMP("XMERR",$J,I,"TEXT",J)) Q:'J  W !,^(J)

 K XMERR,^TMP("XMERR",$J)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XMJERR   477     printed  Apr 09, 2024@21:15:46                                                                                                                                                                                                       Page 2

XMJERR    ;ISC-SF/GMB-Error handling ;04/17/2002  09:54

 +1       ;;8.0;MailMan;;Jun 28, 2002

ZSHOW     ;

 +1        NEW I,J,XMZ

 +2        FOR I=1:1:XMERR

               Begin DoDot:1

 +3                WRITE !

 +4                SET XMZ=$GET(^TMP("XMERR",$JOB,I,"XMZ"))

 +5                IF XMZ

                       DO NOGOID^XMJMP2(XMZ,$GET(^XMB(3.9,XMZ,0)))

 +6                SET J=0

 +7                FOR 

                       SET J=$ORDER(^TMP("XMERR",$JOB,I,"TEXT",J))

                       if 'J

                           QUIT 

                       WRITE !,^(J)

               End DoDot:1

 +8        WRITE !

 +9        KILL XMERR,^TMP("XMERR",$JOB)

 +10       QUIT 

SHOW      ;

 +1        NEW I,J

 +2        WRITE $CHAR(7)

 +3        FOR I=1:1:XMERR

               Begin DoDot:1

 +4                WRITE !

 +5                SET J=0

 +6                FOR 

                       SET J=$ORDER(^TMP("XMERR",$JOB,I,"TEXT",J))

                       if 'J

                           QUIT 

                       WRITE !,^(J)

               End DoDot:1

 +7        KILL XMERR,^TMP("XMERR",$JOB)

 +8        QUIT