|
Last change
on this file since 648 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.
