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@
1042
| Last change on this file since 1042 was 613, checked in by , 15 years ago | |
|---|---|
| File size: 222 bytes | |
| Rev | Line | |
|---|---|---|
| [613] | 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.
