source: FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XDRERR.m@ 668

Last change on this file since 668 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version
File size: 270 bytes
Line 
1XDRERR ;IHS/OHPRD/JCM - [ 08/13/92 09:50 AM ]
2 ;;7.3;TOOLKIT;;Apr 25, 1995
3START ;
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
12EOJ ;
13 Q
Note: See TracBrowser for help on using the repository browser.