Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XPDPINIT

XPDPINIT.m

Go to the documentation of this file.
  1. XPDPINIT ;SFISC/RSD - Load a Packman Message using KIDS ; 6 Feb 95 14:48 [ 04/02/2003 8:29 AM ]
  1. ;;8.0;KERNEL;**1005,1007**;APR 1, 2003
  1. ;;8.0;KERNEL;**5**;Jul 10, 1995
  1. I '$D(^XMB(3.9,+$G(XMZ),0)) W !!,"NO message to install!!" Q
  1. I $T(^XPDIPM)="" W !!,"KIDS doesn't exist!!" Q
  1. G ^XPDIPM