XU8P204.m

XU8P204 ;BP-OAK/BDT - MODIFY BULLETIN FOR NEW USER ; [ 01/09/2004   4:23 PM ]

 ;;8.0;KERNEL;**204,1010**;Jul 10, 1995

EN S ^DD(200,.01,1,10,1)="S Y(0)=X,D0=DA K XMB,XMY S XMB(1)=Y(0),XMB=""XMNEWUSER"" D ^XMB:$D(^XMB(3.6,""B"",XMB)) K Y,XMB"

 I $D(^DD(200,.01,1,10,"CREATE CONDITION")) K ^DD(200,.01,1,10,"CREATE CONDITION")

 Q

XU8P204   ;BP-OAK/BDT - MODIFY BULLETIN FOR NEW USER ; [ 01/09/2004   4:23 PM ]

 +1       ;;8.0;KERNEL;**204,1010**;Jul 10, 1995

EN         SET ^DD(200,.01,1,10,1)="S Y(0)=X,D0=DA K XMB,XMY S XMB(1)=Y(0),XMB=""XMNEWUSER"" D ^XMB:$D(^XMB(3.6,""B"",XMB)) K Y,XMB"

 +1        IF $DATA(^DD(200,.01,1,10,"CREATE CONDITION"))

               KILL ^DD(200,.01,1,10,"CREATE CONDITION")

 +2        QUIT