XPDPINIT.m

XPDPINIT ;SFISC/RSD - Load a Packman Message using KIDS ; 6 Feb 95 14:48 [ 04/02/2003   8:29 AM ]

 ;;8.0;KERNEL;**1005,1007**;APR 1, 2003 

 ;;8.0;KERNEL;**5**;Jul 10, 1995

 I '$D(^XMB(3.9,+$G(XMZ),0)) W !!,"NO message to install!!" Q

 I $T(^XPDIPM)="" W !!,"KIDS doesn't exist!!" Q

 G ^XPDIPM

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 

 +2       ;;8.0;KERNEL;**5**;Jul 10, 1995

 +3        IF '$DATA(^XMB(3.9,+$GET(XMZ),0))

               WRITE !!,"NO message to install!!"

               QUIT 

 +4        IF $TEXT(^XPDIPM)=""

               WRITE !!,"KIDS doesn't exist!!"

               QUIT 

 +5        GOTO ^XPDIPM