iSharkFly-Open
/
VistA-GuiMail
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

version 2.3 of GuiMail

This commit is contained in:
george 2011-04-11 02:44:11 +00:00
parent e1897190e4
commit 1a0b7cec80
17 changed files with 3820 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3742
KIDS/CWMAIL2_3.KID Normal file
View File

File diff suppressed because it is too large Load Diff

4
p/CWMACPPI.m
View File

@ -1,5 +1,5 @@
CWMACPPI ;RVAMC/PLS - Convert Personal Preferences to Parameters Utility;26-Aug-1999 12:44;PS
;;2.1;CWMA GuiMail;;Jan 06, 1999
CWMACPPI ;RVAMC/PLS - Convert Personal Preferences to Parameters Utility;21-Jun-2005 06:34;CLC
;;2.3;CWMAIL;;Jul 19, 2005
;Call EN to convert Personal Preferences from File 890
;to the Kernel Toolkit Parameter File.
EN ;entry point

16
p/CWMAIL.m
View File

@ -1,5 +1,5 @@
CWMAIL ;INDPLS/PLS- DELPHI VISTA MAIL SERVER ;16-Sep-1999 07:47;PS
;;2.1;CWMA GuiMail;;Jan 06, 1999
CWMAIL ;INDPLS/PLS- DELPHI VISTA MAIL SERVER ;22-Jul-2005 06:59;CLC
;;2.3;CWMAIL;;Jul 19, 2005
Q ;ROUTINE CAN'T BE CALLED DIRECTLY
ENTRY(CWDATA,CWINPUT,CWTEXT) ;CALL WITH CWINPUT=CALL;DUZ;MSG;BASKET;NEW BASKET;NEWMAIL, TEXT=TEXT ARRAY
N CWCALL,X,DUZ,CWMHDR,CWMST,U,CWSVER
@ -132,3 +132,15 @@ PURGNAM ;PURGE GLOBAL ARRAY USED FOR DATA RETURN
D %MSGISRC^CWMAILF(.CWDATA,CWINPUT),RETGNAM
Q
;
%OPENATT(CWDATA,CWINPUT,CWTEXT) ;ALLOW OPENING OF ATTACHMENTS
;
D %OPENATT^CWMAILD(.CWDATA,CWINPUT),RETGNAM
Q
%TIMEROF(CWDATA,CWINPUT,CWTEXT) ;TIMER OFF
;
D %TIMEROF^CWMAILD(.CWDATA,CWINPUT),RETGNAM
Q
%TIMERVA(CWDATA,CWINPUT,CWTEXT) ;SET TIME-OUT VALUE
;
D TIMERVAL^CWMAILD(.CWDATA,CWINPUT),RETGNAM
Q

4
p/CWMAIL0.m
View File

@ -1,5 +1,5 @@
CWMAIL0 ;INDPLS/PLS- DELPHI MAIL SERVER, CONT'D ;04-Jun-1999 14:54;PS
;;2.1;CWMA GuiMail;;Jan 06, 1999
CWMAIL0 ;INDPLS/PLS- DELPHI MAIL SERVER, CONT'D ;21-Jun-2005 06:34;CLC
;;2.3;CWMAIL;;Jul 19, 2005
Q ;ROUTINE CAN'T BE CALLED DIRECTLY
;
PROCMS(CWDATA,CWMSGN,CWNMFLG) ;PROCESS MAIL MESSAGE THREAD

4
p/CWMAIL1.m
View File

@ -1,5 +1,5 @@
CWMAIL1 ;INDPLS/PLS- GUI MAIL UTILITIES ;30-Jul-1999 09:30;PS
;;2.1;CWMA GuiMail;;Jan 06, 1999
CWMAIL1 ;INDPLS/PLS- GUI MAIL UTILITIES ;21-Jun-2005 06:34;CLC
;;2.3;CWMAIL;;Jul 19, 2005
;MODIFIED FOR XM*7.1*50
LATER(CWXMZ,CWXMA) ;LATER A MESSAGE
S $ZT="LATERE^CWMAIL1"

4
p/CWMAIL2.m
View File

@ -1,5 +1,5 @@
CWMAIL2 ;INDPLS/PLS- DELPHI VISTA MAIL SERVER, CONT'D ;20-Sep-1999 08:00;PS
;;2.1;CWMA GuiMail;;Jan 06, 1999
CWMAIL2 ;INDPLS/PLS- DELPHI VISTA MAIL SERVER, CONT'D ;21-Jun-2005 06:34;CLC
;;2.3;CWMAIL;;Jul 19, 2005
;Input - CWINPUT : 1 - Subject
; : 2 - Flags
; : 3 - Attachment Flag

9
p/CWMAIL3.m
View File

@ -1,5 +1,6 @@
CWMAIL3 ;INDPLS/PLS- DELPHI VISTA MAIL SERVER, CON'T ;03-Jun-1999 13:24;PS
;;2.1;CWMA GuiMail;;Jan 06, 1999
CWMAIL3 ;INDPLS/PLS- DELPHI VISTA MAIL SERVER, CON'T ;21-Jun-2005 06:34;CLC
;;2.3;CWMAIL;;Jul 19, 2005
;Modified to fix Cache problem related to double close
Q ;ROUTINE CAN'T BE CALLED DIRECTLY
;
GRPINFO(CWDAT,CWPARAM) ;Mail Group Information
@ -23,7 +24,7 @@ GRPINFO(CWDAT,CWPARAM) ;Mail Group Information
...E S CWDAT(CWNXT)=$$CTRL^XMXUTIL1(CWDAT(CWNXT)),CWFLG=1 ;remove control characters
.S CWDAT(-9900)=$O(CWDAT(9999999),-1)+1
E S CWDAT(-9900)=2
GRPINFOE D CLOSE^%ZISH("CWDATFIL")
GRPINFOE ;D CLOSE^%ZISH("CWDATFIL")
Q $O(CWDAT(1))
USRINFO(CWDAT,CWPARAM) ;Mail User Information
;CWPARAM = Mail User IEN
@ -47,5 +48,5 @@ FLG I $$FTG^%ZISH(CWDEFDIR,CWFILE,$NA(CWDAT(2)),1) D
...E S CWDAT(CWNXT)=$$CTRL^XMXUTIL1(CWDAT(CWNXT)),CWFLG=1 ;remove control characters
.S CWDAT(-9900)=$O(CWDAT(9999999),-1)+1
E S CWDAT(-9900)=2
USRINFOE D CLOSE^%ZISH("CWDATFIL")
USRINFOE ;D CLOSE^%ZISH("CWDATFIL")
Q $O(CWDAT(1))

4
p/CWMAIL4.m
View File

@ -1,5 +1,5 @@
CWMAIL4 ;INDPLS/PLS- DELPHI VISTA MAIL SERVER, CON'T ;05-May-1999 14:03;PS
;;2.1;CWMA GuiMail;;Jan 06, 1999
CWMAIL4 ;INDPLS/PLS- DELPHI VISTA MAIL SERVER, CON'T ;21-Jun-2005 06:34;CLC
;;2.3;CWMAIL;;Jul 19, 2005
Q ;ROUTINE CAN'T BE CALLED DIRECTLY
;
GETMSGL(DAT,CWDUZ,CWBSK,CWSRC) ;

8
p/CWMAILA.m
View File

@ -1,5 +1,5 @@
CWMAILA ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ;02-Jul-1999 14:45;PS
;;2.1;CWMA GuiMail;;Jan 06, 1999
CWMAILA ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ;21-Jun-2005 06:34;CLC
;;2.3;CWMAIL;;Jul 19, 2005
;MODIFIED FOR XM*7.1*50
Q ;ROUTINE CAN'T BE CALLED DIRECTLY
%READ(CWDATA,CWINPUT) ;
@ -45,11 +45,11 @@ CWMAILA ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ;02-Jul-1999 14:45;PS
S CWMAIB=CWVAL
;CALL API TO RETRIEVE MESSAGES
I CWVAL=+CWVAL D
. D LISTMSGS^XMXAPIB(XMDUZ,+CWMAIB,"BSKT;SUBJ;DATE;SEQN;NEW") ; data put in ^TMP("XMLIST",$J
. D LISTMSGS^XMXAPIB(XMDUZ,+CWMAIB,"BSKT;SUBJ;DATE;SEQN;NEW","",3500) ; data put in ^TMP("XMLIST",$J
. Q:'+$P($G(^TMP("XMLIST",$J,0)),U,1) ;NO DATA FOUND
. D BLDLST^CWMAILF(.CWDATA,$NA(^TMP("XMLIST",$J)),.CWDCNT)
E D ;PROCESS NEW MESSAGE REQUEST
. D LISTMSGS^XMXAPIB(XMDUZ,"*","BSKT;SUBJ;DATE;NEW","N") ;SEQN;NEW","N")
. D LISTMSGS^XMXAPIB(XMDUZ,"*","BSKT;SUBJ;DATE;NEW","N",3500) ;SEQN;NEW","N")
. Q:'+$P($G(^TMP("XMLIST",$J,0)),U,1) ;NO DATA FOUND
. D BLDLST^CWMAILF(.CWDATA,$NA(^TMP("XMLIST",$J)),.CWDCNT)
I $O(CWDATA(1)) S CWDATA(1)="1^^DATA HAS BEEN FOUND"

6
p/CWMAILB.m
View File

@ -1,5 +1,6 @@
CWMAILB ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CON'T ;03-Jun-1999 13:29;PS
;;2.1;CWMA GuiMail;;Jan 06, 1999
CWMAILB ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CON'T ;21-Jun-2005 06:34;CLC
;;2.3;CWMAIL;;Jul 19, 2005
; modified 10/8/1999 to fix problem with reply text tab conversion
%FORWARD(CWDATA,CWINPUT,CWTEXT) ;
;Input: 1st Piece of CWINPUT holds IEN of Message
; CWTEXT holds recipient list
@ -68,6 +69,7 @@ INCNT(CWCNT) ;INCREMENT COUNTER
.S ^TMP($J,"CWMAILOUT",CWLP)=$G(@CWTEXT@(CWLP))
G:'$D(^TMP($J,"CWMAILOUT")) REPEND
S CWMSGT=$NA(^TMP($J,"CWMAILOUT"))
D CNVTAB^CWMAIL2(CWMSGT) ;convert tabs to spaces
S XMINSTR("NET REPLY")=$S(+$G(CWNWCHK):1,1:0)
D REPLYMSG^XMXAPI(XMDUZ,"",CWMSGN,CWMSGT,.XMINSTR,.XMZR)
I +$G(XMZR)>0 S CWDATA(1)=$S(CWNWCHK:2,1:1)_"^NO ERRORS"_U_CWMSGN ;SUCCESS

4
p/CWMAILC.m
View File

@ -1,5 +1,5 @@
CWMAILC ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ;03-Jun-1999 13:29;PS
;;2.1;CWMA GuiMail;;Jan 06, 1999
CWMAILC ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ;21-Jun-2005 06:34;CLC
;;2.3;CWMAIL;;Jul 19, 2005
;MODIFIED FOR XM*7.1*50
Q ;ROUTINE CAN'T BE CALLED DIRECTLY
;

20
p/CWMAILD.m
View File

@ -1,5 +1,5 @@
CWMAILD ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ;16-Jul-1999 11:13;PS
;;2.1;CWMA GuiMail;;Jan 06, 1999
CWMAILD ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ;22-Jul-2005 07:10;CLC
;;2.3;CWMAIL;;Jul 19, 2005
Q ;ROUTINE CAN'T BE CALLED DIRECTLY
;
%BMSGD(CWDATA,CWINPUT,CWTEXT) ;BUILD MESSAGE DATA INTO GLOBAL
@ -34,6 +34,7 @@ PERPREFE Q
. S $P(CWDATA(1),U,4)=XMV("NEW MSGS") ;SET # OF NEW MSGS
. S $P(CWDATA(1),U,5)=$G(XMV("WARNING",1))="Priority Mail" ;SET PRIORITY MAIL FLAG
. S $P(CWDATA(1),U,6)=$P($G(XMV("NETNAME")),"@",2) ;get domain name for mail server
. S $P(CWDATA(1),U,7)=$S($P($G(^VA(200,DUZ,200)),U,10)>0:$P($G(^VA(200,DUZ,200)),U,10),1:300) ;Timed read used for GuiMail timeout. -clc
;$G(^XMB("NETNAME")) ;get domain name for mail server
E S CWDATA(1)="0^USER NOT FOUND"
USRLOGE Q
@ -107,3 +108,18 @@ SETPARM(CWDUZ,CWPARM,CWVALUE) ;Set value into parameter instance
%GETSVER(CWDATA,CWPARAM) ;GET SERVER VERSION
S CWDATA(1)="1^1^"_+$$VERSION^XPDUTL("CWMA")
Q
%OPENATT(CWDATA,CWPARAM) ;OPEN ATTACHMENTS
N X
S X=$$GET^XPAR("ALL","CWMA ALLOW ATTACHMENTS OPEN")
S CWDATA(1)="1^1^"_$S(X=0:X,1:1)
Q
%TIMEROF(CWDATA,CWPARAM) ;DISABLE TIMER
N X
S X=$$GET^XPAR("ALL","CWMA DISABLE GUIMAIL TIMEOUT")
S CWDATA(1)="1^1^"_$S(X=0:X,1:1)
Q
TIMERVAL(CWDATA,CWPARAM) ;TIMEOUT VALUE
N X
S X=$$GET^XPAR("ALL","CWMA GUIMAIL TIMEOUT VALUE")
S CWDATA(1)="1^1^"_$S(X>0:X,1:0)
Q

4
p/CWMAILE.m
View File

@ -1,5 +1,5 @@
CWMAILE ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ;07-Sep-1999 14:08;PS
;;2.1;CWMA GuiMail;;Jan 06, 1999
CWMAILE ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ;21-Jun-2005 06:34;CLC
;;2.3;CWMAIL;;Jul 19, 2005
Q ;ROUTINE CAN'T BE CALLED DIRECTLY
;
GETPKPM(CWDAT) ;get package parameters and return in CWDAT

4
p/CWMAILF.m
View File

@ -1,5 +1,5 @@
CWMAILF ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ;02-Jul-1999 15:53;PS
;;2.1;CWMA GuiMail;;Jan 06, 1999
CWMAILF ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ;21-Jun-2005 06:34;CLC
;;2.3;CWMAIL;;Jul 19, 2005
;MODIFIED FOR XM*7.1*50
Q ;ROUTINE CAN'T BE CALLED DIRECTLY
BLDLST(CWDATA,CWDATSRC,CWDCNT) ; build list of messages - called by CWMAILA

17
p/CWMAINI.m
View File

@ -1,5 +1,5 @@
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
D PCHK("DI*21.0*34") ;Fileman/Delphi Components
@ -23,7 +23,8 @@ EN ;entry point for post installation functions
;
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
MMSG ;send mail message to Indianapolis indicating CW GUIMail installation
@ -32,7 +33,7 @@ MMSG ;send mail message to Indianapolis indicating CW GUIMail installation
S CWBODY=$NA(^TMP($J,"CWBODY"))
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")=""
D SENDMSG^XMXAPI(DUZ,CWSUBJ,CWBODY,.CWRECP)
@ -48,6 +49,14 @@ PDEL890 ;I $$READY("Do you wish to remove the file at this time","NO") D
N DIU
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
; CWDEF - will set DIR("B" to this value

4
p/CWMAPP.m
View File

@ -1,5 +1,5 @@
CWMAPP ; Export Package Level Parameters ; Sep 07, 1999@14:11:55
;;2.1;CWMA GuiMail;;Jan 06, 1999
CWMAPP ; Export Package Level Parameters ;21-Jun-2005 06:34;CLC
;;2.3;CWMAIL;;Jul 19, 2005
;;
MAIN ; main (initial) parameter transport routine
K ^TMP($J,"XPARRSTR")

4
p/CWMAPP01.m
View File

@ -1,5 +1,5 @@
CWMAPP01 ; ; Sep 07, 1999@14:11:55
;;2.1;CWMA GuiMail;;Jan 06, 1999
CWMAPP01 ; ;21-Jun-2005 06:34;CLC
;;2.3;CWMAIL;;Jul 19, 2005
;;
LOAD ; load data into ^TMP (expects ROOT to be defined)
S I=1 F S REF=$T(DATA+I) Q:REF="" S VAL=$T(DATA+I+1) D