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