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

PSJENV.m

Go to the documentation of this file.

PSJENV ;BIR/LDT - ENVIRONMENT CHECK FOR PATCH 56 ; 02 Apr 98 / 1:05 PM

 ;;4.5; Inpatient Medications ;**56**;7 Oct 94

START ;

 I $$VERSION^XPDUTL("PHARMACY DATA MANAGEMENT")

 E  D

 .W !,"Pharmacy Data Management V. 1.0 is not installed on the system. This patch"

 .W !,"is only needed after this package is installed.  This patch DOES NOT need to be installed until after Pharmacy Data Management 1.0 is installed."

 .S XPDQUIT=1

PSJENV    ;BIR/LDT - ENVIRONMENT CHECK FOR PATCH 56 ; 02 Apr 98 / 1:05 PM

 +1       ;;4.5; Inpatient Medications ;**56**;7 Oct 94

START     ;

 +1        IF $$VERSION^XPDUTL("PHARMACY DATA MANAGEMENT")

 +2       IF '$TEST

               Begin DoDot:1

 +3                WRITE !,"Pharmacy Data Management V. 1.0 is not installed on the system. This patch"

 +4                WRITE !,"is only needed after this package is installed.  This patch DOES NOT need to be installed until after Pharmacy Data Management 1.0 is installed."

 +5                SET XPDQUIT=1

               End DoDot:1

 +6        QUIT