Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: XU8P204

XU8P204.m

Go to the documentation of this file.

XU8P204 ;BP-OAK/BDT - MODIFY BULLETIN FOR NEW USER ; [8/7/03 6:39am]

 ;;8.0;KERNEL;**204**;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")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P204   318     printed  Oct 16, 2024@18:07:51                                                                                                                                                                                                      Page 2

XU8P204   ;BP-OAK/BDT - MODIFY BULLETIN FOR NEW USER ; [8/7/03 6:39am]

 +1       ;;8.0;KERNEL;**204**;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