source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XU8P204.m@ 808

Last change on this file since 808 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 313 bytes
RevLine 
[613]1XU8P204 ;BP-OAK/BDT - MODIFY BULLETIN FOR NEW USER ; [8/7/03 6:39am]
2 ;;8.0;KERNEL;**204**;Jul 10, 1995
3EN 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.