Last change
on this file since 1240 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
270 bytes
|
Rev | Line | |
---|
[628] | 1 | XDRERR ;IHS/OHPRD/JCM - [ 08/13/92 09:50 AM ]
|
---|
| 2 | ;;7.3;TOOLKIT;;Apr 25, 1995
|
---|
| 3 | START ;
|
---|
| 4 | ;
|
---|
| 5 | K XMB
|
---|
| 6 | S XMB(1)="TEST ROUTINE MISSING"
|
---|
| 7 | D NOW^%DTC S Y=X X ^DD("DD") S XMB(2)=Y
|
---|
| 8 | S XMB="XDR DUP CHECK FAILURE"
|
---|
| 9 | ;S XDRDUZ=DUZ,DUZ=.5 D ^XMB S DUZ=XDRDUZ
|
---|
| 10 | K XMB,XDRDUZ
|
---|
| 11 | Q
|
---|
| 12 | EOJ ;
|
---|
| 13 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.