- 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 ---[H[J[2J[HXMJERR 477 printed Feb 18, 2025@23:38:01 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