XDRERR.m

XDRERR ;IHS/OHPRD/JCM -    [ 08/13/92  09:50 AM ]

 ;;7.3;TOOLKIT;;Apr 25, 1995

START ;

 ;

 K XMB

 S XMB(1)="TEST ROUTINE MISSING"

 D NOW^%DTC S Y=X X ^DD("DD") S XMB(2)=Y

 S XMB="XDR DUP CHECK FAILURE"

 ;S XDRDUZ=DUZ,DUZ=.5 D ^XMB S DUZ=XDRDUZ

 K XMB,XDRDUZ

 Q

EOJ ;

 Q

XDRERR    ;IHS/OHPRD/JCM -    [ 08/13/92  09:50 AM ]

 +1       ;;7.3;TOOLKIT;;Apr 25, 1995

START     ;

 +1       ;

 +2        KILL XMB

 +3        SET XMB(1)="TEST ROUTINE MISSING"

 +4        DO NOW^%DTC

           SET Y=X

           XECUTE ^DD("DD")

           SET XMB(2)=Y

 +5        SET XMB="XDR DUP CHECK FAILURE"

 +6       ;S XDRDUZ=DUZ,DUZ=.5 D ^XMB S DUZ=XDRDUZ

 +7        KILL XMB,XDRDUZ

 +8        QUIT 

EOJ       ;

 +1        QUIT