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