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 Dec 13, 2024@02:11:51 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
