source:
WorldVistAEHR/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XDRERR.m@
780
Last change on this file since 780 was 613, checked in by , 15 years ago | |
---|---|
File size: 270 bytes |
Rev | Line | |
---|---|---|
[613] | 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.