source: FOIAVistA/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@ 1800

Last change on this file since 1800 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 222 bytes
Line 
1XPDPINIT ;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.