Changeset 1139 for GuiMail/trunk/p/CWMAINI.m

Timestamp:

Apr 10, 2011, 10:44:11 PM (13 years ago)

Author:

George Lilly

Message:

version 2.3 of GuiMail

File:

• GuiMail/trunk/p/CWMAINI.m (modified) (4 diffs)

GuiMail/trunk/p/CWMAINI.m

@@ -1 @@
-CWMAINI ;INDPLS/PLS - KIDS INITS FOR GUIMail INSTALL ;30-Jul-1999 10:42;PS;
-        ;;2.1;CWMA GuiMail;;Jan 06, 1999
+CWMAINI ;INDPLS/PLS - KIDS INITS FOR GUIMail INSTALL ;20-Jul-2005 14:46;CLC;
+        ;;2.3;CWMAIL;;Jul 19, 2005
         ; Environment Check
 EC      D VCHK("RPC BROKER",1.1)  ;RPC Broker
@@ -24 +24 @@
         D ^CWMAPP  ;populate package parameters
         D EN^CWMACPPI  ;convert CWMAIL1 to Generic Parameter Utility
-        D PDEL890  ;prompt for deletion of File 890 CW GUI VISTA MAIL USER
+        D UPCURVER(2.3)     ;make sure current version is updated
+        ;D PDEL890  ;prompt for deletion of File 890 CW GUI VISTA MAIL USER
         D MMSG  ;send mail message indicating package installation
         Q
@@ -33 +34 @@
         S CWSUBJ="GUIMail Installation at "_$G(^XMB("NETNAME"))
         S ^TMP($J,"CWBODY",1)="GUIMail has just been installed at: "_$G(^XMB("NETNAME"))_"."
-        S ^TMP($J,"CWBODY",2)="Version #: 2.1"    ;_$$VERSION^XPDUTL("CWMA")  ;set version number
+        S ^TMP($J,"CWBODY",2)="Version #: 2.3"    ;_$$VERSION^XPDUTL("CWMA")  ;set version number
         S ^TMP($J,"CWBODY",3)="Installer: "_$P($G(^VA(200,+$G(DUZ),0)),U)
         S CWRECP("G.GUIMAIL@INDIANAPOLIS.VA.GOV")=""
@@ -49 +50 @@
         S DIU="^CWMAIL1(",DIU(0)="DST" D EN^DIU2
         Q
+UPCURVER(VER)   ;
+        N IEN,CWFDA
+        S IEN=$$FIND1^DIC(9.4,"","B","CW GUIMail","B","","OUT")
+        I IEN D
+        .Q:$G(^DIC(9.4,IEN,"VERSION"))=VER
+        .S CWFDA(9.4,IEN_",",13)=VER
+        .D FILE^DIE("","CWFDA")
+        Q
 READY(CWPRMPT,CWDEF)    ; Prompts user for input
         ;Input - CWPRMPT - will set DIR("A" to this value