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

Timestamp:

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

Author:

George Lilly

Message:

version 2.3 of GuiMail

File:

• GuiMail/trunk/p/CWMAILA.m (modified) (2 diffs)

GuiMail/trunk/p/CWMAILA.m

@@ -1 @@
-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
@@ -46 +46 @@
         ;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)