source:
WorldVistAEHR/tag/Release_6_08/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 |
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.