Last change
on this file since 824 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
313 bytes
|
Rev | Line | |
---|
[613] | 1 | XU8P204 ;BP-OAK/BDT - MODIFY BULLETIN FOR NEW USER ; [8/7/03 6:39am]
|
---|
| 2 | ;;8.0;KERNEL;**204**;Jul 10, 1995
|
---|
| 3 | 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"
|
---|
| 4 | I $D(^DD(200,.01,1,10,"CREATE CONDITION")) K ^DD(200,.01,1,10,"CREATE CONDITION")
|
---|
| 5 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.