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/XPDPINIT.m@
1073
Last change on this file since 1073 was 613, checked in by , 15 years ago | |
---|---|
File size: 222 bytes |
Line | |
---|---|
1 | XPDPINIT ;SFISC/RSD - Load a Packman Message using KIDS ; 6 Feb 95 14:48 |
2 | ;;8.0;KERNEL;;Jul 10, 1995 |
3 | I '$D(^XMB(3.9,+$G(XMZ),0)) W !!,"NO message to install!!" Q |
4 | I $T(^XPDIPM)="" W !!,"KIDS doesn't exist!!" Q |
5 | G ^XPDIPM |
Note:
See TracBrowser
for help on using the repository browser.