| 1 | CWMAINI ;INDPLS/PLS - KIDS INITS FOR GUIMail INSTALL ;30-Jul-1999 10:42;PS;
|
|---|
| 2 | ;;2.1;CWMA GuiMail;;Jan 06, 1999
|
|---|
| 3 | ; Environment Check
|
|---|
| 4 | EC D VCHK("RPC BROKER",1.1) ;RPC Broker
|
|---|
| 5 | D PCHK("DI*21.0*34") ;Fileman/Delphi Components
|
|---|
| 6 | D PCHK("XM*7.1*50") ;MailMan Patch
|
|---|
| 7 | D PCHK("XM*7.1*73") ;MailMan Patch to $$CONVERT^XMXUTIL1
|
|---|
| 8 | D PCHK("XU*8.0*71") ;Kernel date formatting patch
|
|---|
| 9 | D PCHK("XT*7.3*26") ;Kernel Tool-Kit Generic Parameters
|
|---|
| 10 | S:$G(XPDENV) XPDDIQ("XPZ1")=0 ;force Disable Options/Protocols prompt to NO
|
|---|
| 11 | Q
|
|---|
| 12 | VCHK(CWP,CWV) ;CHECK VERSION OF PASSED PACKAGE
|
|---|
| 13 | D:$$VERSION^XPDUTL(CWP)<CWV MES("Requires at least version "_CWV_" of the "_CWP_".")
|
|---|
| 14 | Q
|
|---|
| 15 | PCHK(CWPATCH) ;CHECK PATCH INSTALLATION
|
|---|
| 16 | D:'$$PATCH^XPDUTL(CWPATCH) MES("Requires that patch "_CWPATCH_" be installed.")
|
|---|
| 17 | Q
|
|---|
| 18 | MES(X) D BMES^XPDUTL(X)
|
|---|
| 19 | S XPDQUIT=1
|
|---|
| 20 | Q
|
|---|
| 21 | ;Post Installation
|
|---|
| 22 | EN ;entry point for post installation functions
|
|---|
| 23 | ;
|
|---|
| 24 | D ^CWMAPP ;populate package parameters
|
|---|
| 25 | D EN^CWMACPPI ;convert CWMAIL1 to Generic Parameter Utility
|
|---|
| 26 | D PDEL890 ;prompt for deletion of File 890 CW GUI VISTA MAIL USER
|
|---|
| 27 | D MMSG ;send mail message indicating package installation
|
|---|
| 28 | Q
|
|---|
| 29 | MMSG ;send mail message to Indianapolis indicating CW GUIMail installation
|
|---|
| 30 | ;
|
|---|
| 31 | N CWSUBJ,CWRECP,CWBODY
|
|---|
| 32 | S CWBODY=$NA(^TMP($J,"CWBODY"))
|
|---|
| 33 | S CWSUBJ="GUIMail Installation at "_$G(^XMB("NETNAME"))
|
|---|
| 34 | S ^TMP($J,"CWBODY",1)="GUIMail has just been installed at: "_$G(^XMB("NETNAME"))_"."
|
|---|
| 35 | S ^TMP($J,"CWBODY",2)="Version #: 2.1" ;_$$VERSION^XPDUTL("CWMA") ;set version number
|
|---|
| 36 | S ^TMP($J,"CWBODY",3)="Installer: "_$P($G(^VA(200,+$G(DUZ),0)),U)
|
|---|
| 37 | S CWRECP("G.GUIMAIL@INDIANAPOLIS.VA.GOV")=""
|
|---|
| 38 | D SENDMSG^XMXAPI(DUZ,CWSUBJ,CWBODY,.CWRECP)
|
|---|
| 39 | K ^TMP($J,"CWBODY")
|
|---|
| 40 | Q
|
|---|
| 41 | ;
|
|---|
| 42 | PDEL890 ;I $$READY("Do you wish to remove the file at this time","NO") D
|
|---|
| 43 | ;. N DIU
|
|---|
| 44 | ;. S DIU="^CWMAIL1(",DIU(0)="DST" D EN^DIU2
|
|---|
| 45 | ;E D
|
|---|
| 46 | ;. W !,"OK. You may delete later by executing D PDEL890^CWMAINI."
|
|---|
| 47 | D BMES^XPDUTL("Removing CW GUI VISTA MAIL USER (890) File ...")
|
|---|
| 48 | N DIU
|
|---|
| 49 | S DIU="^CWMAIL1(",DIU(0)="DST" D EN^DIU2
|
|---|
| 50 | Q
|
|---|
| 51 | READY(CWPRMPT,CWDEF) ; Prompts user for input
|
|---|
| 52 | ;Input - CWPRMPT - will set DIR("A" to this value
|
|---|
| 53 | ; CWDEF - will set DIR("B" to this value
|
|---|
| 54 | ;Output - returns a 1(yes) or 0(no)
|
|---|
| 55 | N DIR,X,Y
|
|---|
| 56 | W !!," * * * * WARNING * * * *"
|
|---|
| 57 | W !!," You are about to remove file 890. This file held"
|
|---|
| 58 | W !!," personal preferences for GUIMail v2.0. All of the settings"
|
|---|
| 59 | W !!," should have been moved to the Generic Parameter File"
|
|---|
| 60 | W !!," during installation.",!!
|
|---|
| 61 | S DIR("B")=$G(CWDEF,"NO")
|
|---|
| 62 | S DIR(0)="Y"
|
|---|
| 63 | D ^DIR Q:Y 1 ; answered YES
|
|---|
| 64 | Q 0 ; answered NO
|
|---|
