|
Last change
on this file since 628 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
313 bytes
|
| Line | |
|---|
| 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.
