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.

XPDPINIT ;SFISC/RSD - Load a Packman Message using KIDS ; 6 Feb 95 14:48

 ;;8.0;KERNEL;;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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXPDPINIT   227     printed  Dec 13, 2024@02:04:25                                                                                                                                                                                                     Page 2

XPDPINIT  ;SFISC/RSD - Load a Packman Message using KIDS ; 6 Feb 95 14:48

 +1       ;;8.0;KERNEL;;Jul 10, 1995

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

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

               QUIT

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

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

               QUIT

 +4        GOTO ^XPDIPM