source: WorldVistAEHR/trunk/r/MAILMAN-XM/XMJERR.m@ 1261

Last change on this file since 1261 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 455 bytes
Line 
1XMJERR ;ISC-SF/GMB-Error handling ;04/17/2002 09:54
2 ;;8.0;MailMan;;Jun 28, 2002
3ZSHOW ;
4 N I,J,XMZ
5 F I=1:1:XMERR D
6 . W !
7 . S XMZ=$G(^TMP("XMERR",$J,I,"XMZ"))
8 . I XMZ D NOGOID^XMJMP2(XMZ,$G(^XMB(3.9,XMZ,0)))
9 . S J=0
10 . F S J=$O(^TMP("XMERR",$J,I,"TEXT",J)) Q:'J W !,^(J)
11 W !
12 K XMERR,^TMP("XMERR",$J)
13 Q
14SHOW ;
15 N I,J
16 W $C(7)
17 F I=1:1:XMERR D
18 . W !
19 . S J=0
20 . F S J=$O(^TMP("XMERR",$J,I,"TEXT",J)) Q:'J W !,^(J)
21 K XMERR,^TMP("XMERR",$J)
22 Q
Note: See TracBrowser for help on using the repository browser.