Last change
on this file since 1074 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
455 bytes
|
Rev | Line | |
---|
[628] | 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.