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

BGMRCP1.m

Go to the documentation of this file.
  1. BGMRCP1 ; IHS/CIA/MGH - PRE-INSTALL ROUTINE FOR GMRC PATCH 1001 ;19-Dec-2005 11:30;MGH
  1.  ;;3.0;CONSULT/REQUEST TRACKING;**1001**;NOV 04, 2004
  1.  ;
  1. ENV ;EP; envorinment check
  1.  S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
  1.  ;
  1.  ;Check for released version added IHS/ITSC/LJF 12/10/2004
  1.  NEW IEN,PKG S PKG="CONSULT/REQUEST TRACKING 3.0",IEN=$O(^XPD(9.6,"B",PKG,0))
  1.  I 'IEN W !,"You must first install "_PKG_"." S XPDQUIT=2 Q
  1.  ;
  1.  S PATCH="GMRC*3.0*34"
  1.  I '$$PATCH(PATCH) D  Q
  1.  .W !,"You must first install "_PATCH_"." S XPDQUIT=2
  1.  Q
  1. PATCH(X) ;return 1 if patch X was installed, X=aaaa*nn.nn*nnnn
  1.  ;copy of code from XPDUTL but modified to handle 4 digit IHS patch numb
  1.  Q:X'?1.4UN1"*"1.2N1"."1.2N.1(1"V",1"T").2N1"*"1.4N 0
  1.  NEW NUM,I,J
  1.  S I=$O(^DIC(9.4,"C",$P(X,"*"),0)) Q:'I 0
  1.  S J=$O(^DIC(9.4,I,22,"B",$P(X,"*",2),0)),X=$P(X,"*",3) Q:'J 0
  1.  ;check if patch is just a number
  1.  Q:$O(^DIC(9.4,I,22,J,"PAH","B",X,0)) 1
  1.  S NUM=$O(^DIC(9.4,I,22,J,"PAH","B",X_" SEQ"))
  1.  Q (X=+NUM)
  1.  ;
  1. PRE ;EP; beginning of pre install code
  1.  Q
  1.  ;
  1. POST ;EP; beginnig of post install code
  1.  Q
  1.  ;