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
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
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.