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

XMJERR.m

Go to the documentation of this file.
  1. XMJERR ;ISC-SF/GMB-Error handling ;04/17/2002 09:54
  1. ;;8.0;MailMan;;Jun 28, 2002
  1. ZSHOW ;
  1. N I,J,XMZ
  1. F I=1:1:XMERR D
  1. . W !
  1. . S XMZ=$G(^TMP("XMERR",$J,I,"XMZ"))
  1. . I XMZ D NOGOID^XMJMP2(XMZ,$G(^XMB(3.9,XMZ,0)))
  1. . S J=0
  1. . F S J=$O(^TMP("XMERR",$J,I,"TEXT",J)) Q:'J W !,^(J)
  1. W !
  1. K XMERR,^TMP("XMERR",$J)
  1. Q
  1. SHOW ;
  1. N I,J
  1. W $C(7)
  1. F I=1:1:XMERR D
  1. . W !
  1. . S J=0
  1. . F S J=$O(^TMP("XMERR",$J,I,"TEXT",J)) Q:'J W !,^(J)
  1. K XMERR,^TMP("XMERR",$J)
  1. Q