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

ES1P46E.m

Go to the documentation of this file.
  1. ES1P46E ;PHOENIX/KLD - Patch ES*1*46 Environment check; 5/13/09 3:22 PM
  1. ;;1.0;POLICE & SECURITY;**46**;May 8.2009;Build 12
  1. ST N DIC,X,Y S DIC="^DIC(9.4,",DIC(0)="M",X="POLICE & SECURITY" D ^DIC
  1. I Y<1 D AB(1) Q
  1. ;Now check if 3 options exist
  1. S DIC="^DIC(19,",X="ESP ACTIVITY ADD/EDIT" D ^DIC I Y<1 D AB(2) Q
  1. S X="ESP ADD JOURNAL ENTRY" D ^DIC I Y<1 D AB(2) Q
  1. S X="ESP CAR POOL AVAILABILITY" D ^DIC I Y<1 D AB(2) Q
  1. ;Now check if 2 routines exist
  1. S X="ESPVAL" X ^%ZOSF("TEST") I '$T D AB(3) Q
  1. S X="ESPVEH" X ^%ZOSF("TEST") I '$T D AB(3) Q
  1. Q
  1. ;
  1. AB(X) W !!,"Aborting install - Police ",$P("package^options^routines",U,X)," not present!"
  1. S XPDQUIT=1 Q