Changeset 1139
- Timestamp:
- Apr 10, 2011, 10:44:11 PM (13 years ago)
- Location:
- GuiMail/trunk
- Files:
-
- 1 added
- 16 edited
-
KIDS/CWMAIL2_3.KID (added)
-
p/CWMACPPI.m (modified) (1 diff)
-
p/CWMAIL.m (modified) (2 diffs)
-
p/CWMAIL0.m (modified) (1 diff)
-
p/CWMAIL1.m (modified) (1 diff)
-
p/CWMAIL2.m (modified) (1 diff)
-
p/CWMAIL3.m (modified) (3 diffs)
-
p/CWMAIL4.m (modified) (1 diff)
-
p/CWMAILA.m (modified) (2 diffs)
-
p/CWMAILB.m (modified) (2 diffs)
-
p/CWMAILC.m (modified) (1 diff)
-
p/CWMAILD.m (modified) (3 diffs)
-
p/CWMAILE.m (modified) (1 diff)
-
p/CWMAILF.m (modified) (1 diff)
-
p/CWMAINI.m (modified) (4 diffs)
-
p/CWMAPP.m (modified) (1 diff)
-
p/CWMAPP01.m (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
GuiMail/trunk/p/CWMACPPI.m
r1138 r1139 1 CWMACPPI ;RVAMC/PLS - Convert Personal Preferences to Parameters Utility;2 6-Aug-1999 12:44;PS2 ;;2. 1;CWMA GuiMail;;Jan 06, 19991 CWMACPPI ;RVAMC/PLS - Convert Personal Preferences to Parameters Utility;21-Jun-2005 06:34;CLC 2 ;;2.3;CWMAIL;;Jul 19, 2005 3 3 ;Call EN to convert Personal Preferences from File 890 4 4 ;to the Kernel Toolkit Parameter File. -
GuiMail/trunk/p/CWMAIL.m
r1138 r1139 1 CWMAIL ;INDPLS/PLS- DELPHI VISTA MAIL SERVER ; 16-Sep-1999 07:47;PS2 ;;2. 1;CWMA GuiMail;;Jan 06, 19991 CWMAIL ;INDPLS/PLS- DELPHI VISTA MAIL SERVER ;22-Jul-2005 06:59;CLC 2 ;;2.3;CWMAIL;;Jul 19, 2005 3 3 Q ;ROUTINE CAN'T BE CALLED DIRECTLY 4 4 ENTRY(CWDATA,CWINPUT,CWTEXT) ;CALL WITH CWINPUT=CALL;DUZ;MSG;BASKET;NEW BASKET;NEWMAIL, TEXT=TEXT ARRAY … … 133 133 Q 134 134 ; 135 %OPENATT(CWDATA,CWINPUT,CWTEXT) ;ALLOW OPENING OF ATTACHMENTS 136 ; 137 D %OPENATT^CWMAILD(.CWDATA,CWINPUT),RETGNAM 138 Q 139 %TIMEROF(CWDATA,CWINPUT,CWTEXT) ;TIMER OFF 140 ; 141 D %TIMEROF^CWMAILD(.CWDATA,CWINPUT),RETGNAM 142 Q 143 %TIMERVA(CWDATA,CWINPUT,CWTEXT) ;SET TIME-OUT VALUE 144 ; 145 D TIMERVAL^CWMAILD(.CWDATA,CWINPUT),RETGNAM 146 Q -
GuiMail/trunk/p/CWMAIL0.m
r1138 r1139 1 CWMAIL0 ;INDPLS/PLS- DELPHI MAIL SERVER, CONT'D ; 04-Jun-1999 14:54;PS2 ;;2. 1;CWMA GuiMail;;Jan 06, 19991 CWMAIL0 ;INDPLS/PLS- DELPHI MAIL SERVER, CONT'D ;21-Jun-2005 06:34;CLC 2 ;;2.3;CWMAIL;;Jul 19, 2005 3 3 Q ;ROUTINE CAN'T BE CALLED DIRECTLY 4 4 ; -
GuiMail/trunk/p/CWMAIL1.m
r1138 r1139 1 CWMAIL1 ;INDPLS/PLS- GUI MAIL UTILITIES ; 30-Jul-1999 09:30;PS2 ;;2. 1;CWMA GuiMail;;Jan 06, 19991 CWMAIL1 ;INDPLS/PLS- GUI MAIL UTILITIES ;21-Jun-2005 06:34;CLC 2 ;;2.3;CWMAIL;;Jul 19, 2005 3 3 ;MODIFIED FOR XM*7.1*50 4 4 LATER(CWXMZ,CWXMA) ;LATER A MESSAGE -
GuiMail/trunk/p/CWMAIL2.m
r1138 r1139 1 CWMAIL2 ;INDPLS/PLS- DELPHI VISTA MAIL SERVER, CONT'D ;2 0-Sep-1999 08:00;PS2 ;;2. 1;CWMA GuiMail;;Jan 06, 19991 CWMAIL2 ;INDPLS/PLS- DELPHI VISTA MAIL SERVER, CONT'D ;21-Jun-2005 06:34;CLC 2 ;;2.3;CWMAIL;;Jul 19, 2005 3 3 ;Input - CWINPUT : 1 - Subject 4 4 ; : 2 - Flags -
GuiMail/trunk/p/CWMAIL3.m
r1138 r1139 1 CWMAIL3 ;INDPLS/PLS- DELPHI VISTA MAIL SERVER, CON'T ;03-Jun-1999 13:24;PS 2 ;;2.1;CWMA GuiMail;;Jan 06, 1999 1 CWMAIL3 ;INDPLS/PLS- DELPHI VISTA MAIL SERVER, CON'T ;21-Jun-2005 06:34;CLC 2 ;;2.3;CWMAIL;;Jul 19, 2005 3 ;Modified to fix Cache problem related to double close 3 4 Q ;ROUTINE CAN'T BE CALLED DIRECTLY 4 5 ; … … 24 25 .S CWDAT(-9900)=$O(CWDAT(9999999),-1)+1 25 26 E S CWDAT(-9900)=2 26 GRPINFOE D CLOSE^%ZISH("CWDATFIL")27 GRPINFOE ;D CLOSE^%ZISH("CWDATFIL") 27 28 Q $O(CWDAT(1)) 28 29 USRINFO(CWDAT,CWPARAM) ;Mail User Information … … 48 49 .S CWDAT(-9900)=$O(CWDAT(9999999),-1)+1 49 50 E S CWDAT(-9900)=2 50 USRINFOE D CLOSE^%ZISH("CWDATFIL")51 USRINFOE ;D CLOSE^%ZISH("CWDATFIL") 51 52 Q $O(CWDAT(1)) -
GuiMail/trunk/p/CWMAIL4.m
r1138 r1139 1 CWMAIL4 ;INDPLS/PLS- DELPHI VISTA MAIL SERVER, CON'T ; 05-May-1999 14:03;PS2 ;;2. 1;CWMA GuiMail;;Jan 06, 19991 CWMAIL4 ;INDPLS/PLS- DELPHI VISTA MAIL SERVER, CON'T ;21-Jun-2005 06:34;CLC 2 ;;2.3;CWMAIL;;Jul 19, 2005 3 3 Q ;ROUTINE CAN'T BE CALLED DIRECTLY 4 4 ; -
GuiMail/trunk/p/CWMAILA.m
r1138 r1139 1 CWMAILA ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ; 02-Jul-1999 14:45;PS2 ;;2. 1;CWMA GuiMail;;Jan 06, 19991 CWMAILA ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ;21-Jun-2005 06:34;CLC 2 ;;2.3;CWMAIL;;Jul 19, 2005 3 3 ;MODIFIED FOR XM*7.1*50 4 4 Q ;ROUTINE CAN'T BE CALLED DIRECTLY … … 46 46 ;CALL API TO RETRIEVE MESSAGES 47 47 I CWVAL=+CWVAL D 48 . D LISTMSGS^XMXAPIB(XMDUZ,+CWMAIB,"BSKT;SUBJ;DATE;SEQN;NEW" ) ; data put in ^TMP("XMLIST",$J48 . D LISTMSGS^XMXAPIB(XMDUZ,+CWMAIB,"BSKT;SUBJ;DATE;SEQN;NEW","",3500) ; data put in ^TMP("XMLIST",$J 49 49 . Q:'+$P($G(^TMP("XMLIST",$J,0)),U,1) ;NO DATA FOUND 50 50 . D BLDLST^CWMAILF(.CWDATA,$NA(^TMP("XMLIST",$J)),.CWDCNT) 51 51 E D ;PROCESS NEW MESSAGE REQUEST 52 . D LISTMSGS^XMXAPIB(XMDUZ,"*","BSKT;SUBJ;DATE;NEW","N" ) ;SEQN;NEW","N")52 . D LISTMSGS^XMXAPIB(XMDUZ,"*","BSKT;SUBJ;DATE;NEW","N",3500) ;SEQN;NEW","N") 53 53 . Q:'+$P($G(^TMP("XMLIST",$J,0)),U,1) ;NO DATA FOUND 54 54 . D BLDLST^CWMAILF(.CWDATA,$NA(^TMP("XMLIST",$J)),.CWDCNT) -
GuiMail/trunk/p/CWMAILB.m
r1138 r1139 1 CWMAILB ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CON'T ;03-Jun-1999 13:29;PS 2 ;;2.1;CWMA GuiMail;;Jan 06, 1999 1 CWMAILB ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CON'T ;21-Jun-2005 06:34;CLC 2 ;;2.3;CWMAIL;;Jul 19, 2005 3 ; modified 10/8/1999 to fix problem with reply text tab conversion 3 4 %FORWARD(CWDATA,CWINPUT,CWTEXT) ; 4 5 ;Input: 1st Piece of CWINPUT holds IEN of Message … … 69 70 G:'$D(^TMP($J,"CWMAILOUT")) REPEND 70 71 S CWMSGT=$NA(^TMP($J,"CWMAILOUT")) 72 D CNVTAB^CWMAIL2(CWMSGT) ;convert tabs to spaces 71 73 S XMINSTR("NET REPLY")=$S(+$G(CWNWCHK):1,1:0) 72 74 D REPLYMSG^XMXAPI(XMDUZ,"",CWMSGN,CWMSGT,.XMINSTR,.XMZR) -
GuiMail/trunk/p/CWMAILC.m
r1138 r1139 1 CWMAILC ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ; 03-Jun-1999 13:29;PS2 ;;2. 1;CWMA GuiMail;;Jan 06, 19991 CWMAILC ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ;21-Jun-2005 06:34;CLC 2 ;;2.3;CWMAIL;;Jul 19, 2005 3 3 ;MODIFIED FOR XM*7.1*50 4 4 Q ;ROUTINE CAN'T BE CALLED DIRECTLY -
GuiMail/trunk/p/CWMAILD.m
r1138 r1139 1 CWMAILD ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ; 16-Jul-1999 11:13;PS2 ;;2. 1;CWMA GuiMail;;Jan 06, 19991 CWMAILD ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ;22-Jul-2005 07:10;CLC 2 ;;2.3;CWMAIL;;Jul 19, 2005 3 3 Q ;ROUTINE CAN'T BE CALLED DIRECTLY 4 4 ; … … 35 35 . S $P(CWDATA(1),U,5)=$G(XMV("WARNING",1))="Priority Mail" ;SET PRIORITY MAIL FLAG 36 36 . S $P(CWDATA(1),U,6)=$P($G(XMV("NETNAME")),"@",2) ;get domain name for mail server 37 . 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 37 38 ;$G(^XMB("NETNAME")) ;get domain name for mail server 38 39 E S CWDATA(1)="0^USER NOT FOUND" … … 108 109 S CWDATA(1)="1^1^"_+$$VERSION^XPDUTL("CWMA") 109 110 Q 111 %OPENATT(CWDATA,CWPARAM) ;OPEN ATTACHMENTS 112 N X 113 S X=$$GET^XPAR("ALL","CWMA ALLOW ATTACHMENTS OPEN") 114 S CWDATA(1)="1^1^"_$S(X=0:X,1:1) 115 Q 116 %TIMEROF(CWDATA,CWPARAM) ;DISABLE TIMER 117 N X 118 S X=$$GET^XPAR("ALL","CWMA DISABLE GUIMAIL TIMEOUT") 119 S CWDATA(1)="1^1^"_$S(X=0:X,1:1) 120 Q 121 TIMERVAL(CWDATA,CWPARAM) ;TIMEOUT VALUE 122 N X 123 S X=$$GET^XPAR("ALL","CWMA GUIMAIL TIMEOUT VALUE") 124 S CWDATA(1)="1^1^"_$S(X>0:X,1:0) 125 Q -
GuiMail/trunk/p/CWMAILE.m
r1138 r1139 1 CWMAILE ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ; 07-Sep-1999 14:08;PS2 ;;2. 1;CWMA GuiMail;;Jan 06, 19991 CWMAILE ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ;21-Jun-2005 06:34;CLC 2 ;;2.3;CWMAIL;;Jul 19, 2005 3 3 Q ;ROUTINE CAN'T BE CALLED DIRECTLY 4 4 ; -
GuiMail/trunk/p/CWMAILF.m
r1138 r1139 1 CWMAILF ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ; 02-Jul-1999 15:53;PS2 ;;2. 1;CWMA GuiMail;;Jan 06, 19991 CWMAILF ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ;21-Jun-2005 06:34;CLC 2 ;;2.3;CWMAIL;;Jul 19, 2005 3 3 ;MODIFIED FOR XM*7.1*50 4 4 Q ;ROUTINE CAN'T BE CALLED DIRECTLY -
GuiMail/trunk/p/CWMAINI.m
r1138 r1139 1 CWMAINI ;INDPLS/PLS - KIDS INITS FOR GUIMail INSTALL ; 30-Jul-1999 10:42;PS;2 ;;2. 1;CWMA GuiMail;;Jan 06, 19991 CWMAINI ;INDPLS/PLS - KIDS INITS FOR GUIMail INSTALL ;20-Jul-2005 14:46;CLC; 2 ;;2.3;CWMAIL;;Jul 19, 2005 3 3 ; Environment Check 4 4 EC D VCHK("RPC BROKER",1.1) ;RPC Broker … … 24 24 D ^CWMAPP ;populate package parameters 25 25 D EN^CWMACPPI ;convert CWMAIL1 to Generic Parameter Utility 26 D PDEL890 ;prompt for deletion of File 890 CW GUI VISTA MAIL USER 26 D UPCURVER(2.3) ;make sure current version is updated 27 ;D PDEL890 ;prompt for deletion of File 890 CW GUI VISTA MAIL USER 27 28 D MMSG ;send mail message indicating package installation 28 29 Q … … 33 34 S CWSUBJ="GUIMail Installation at "_$G(^XMB("NETNAME")) 34 35 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 number36 S ^TMP($J,"CWBODY",2)="Version #: 2.3" ;_$$VERSION^XPDUTL("CWMA") ;set version number 36 37 S ^TMP($J,"CWBODY",3)="Installer: "_$P($G(^VA(200,+$G(DUZ),0)),U) 37 38 S CWRECP("G.GUIMAIL@INDIANAPOLIS.VA.GOV")="" … … 49 50 S DIU="^CWMAIL1(",DIU(0)="DST" D EN^DIU2 50 51 Q 52 UPCURVER(VER) ; 53 N IEN,CWFDA 54 S IEN=$$FIND1^DIC(9.4,"","B","CW GUIMail","B","","OUT") 55 I IEN D 56 .Q:$G(^DIC(9.4,IEN,"VERSION"))=VER 57 .S CWFDA(9.4,IEN_",",13)=VER 58 .D FILE^DIE("","CWFDA") 59 Q 51 60 READY(CWPRMPT,CWDEF) ; Prompts user for input 52 61 ;Input - CWPRMPT - will set DIR("A" to this value -
GuiMail/trunk/p/CWMAPP.m
r1138 r1139 1 CWMAPP ; Export Package Level Parameters ; Sep 07, 1999@14:11:552 ;;2. 1;CWMA GuiMail;;Jan 06, 19991 CWMAPP ; Export Package Level Parameters ;21-Jun-2005 06:34;CLC 2 ;;2.3;CWMAIL;;Jul 19, 2005 3 3 ;; 4 4 MAIN ; main (initial) parameter transport routine -
GuiMail/trunk/p/CWMAPP01.m
r1138 r1139 1 CWMAPP01 ; ; Sep 07, 1999@14:11:552 ;;2. 1;CWMA GuiMail;;Jan 06, 19991 CWMAPP01 ; ;21-Jun-2005 06:34;CLC 2 ;;2.3;CWMAIL;;Jul 19, 2005 3 3 ;; 4 4 LOAD ; load data into ^TMP (expects ROOT to be defined)
Note:
See TracChangeset
for help on using the changeset viewer.
