Last change
on this file since 700 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
455 bytes
|
Line | |
---|
1 | XMJERR ;ISC-SF/GMB-Error handling ;04/17/2002 09:54
|
---|
2 | ;;8.0;MailMan;;Jun 28, 2002
|
---|
3 | ZSHOW ;
|
---|
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
|
---|
14 | SHOW ;
|
---|
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.