source: GuiMail/trunk/p/CWMAIL4.m@ 1138

Last change on this file since 1138 was 1138, checked in by George Lilly, 13 years ago

version 2.1 of GuiMail source code

File size: 898 bytes
Line 
1CWMAIL4 ;INDPLS/PLS- DELPHI VISTA MAIL SERVER, CON'T ;05-May-1999 14:03;PS
2 ;;2.1;CWMA GuiMail;;Jan 06, 1999
3 Q ;ROUTINE CAN'T BE CALLED DIRECTLY
4 ;
5GETMSGL(DAT,CWDUZ,CWBSK,CWSRC) ;
6 ;API NOT CURRENTLY USED
7 ;INPUT
8 ; DAT : RETURN ARRAY
9 ;CWDUZ : USER
10 ;CWBSK : BASKET IEN OR NAME
11 ;CWSRC : LOOKUP TYPE 0(IEN); 1("C" X-REF) ; DEFAULT TO ZERO
12 Q:'CWDUZ 0
13 I +CWBSK'=CWBSK D
14 . S CWBSK=+$O(^XMB(3.7,CWDUZ,2,"B",CWBSK,0))
15 S CWSRC=+$G(CWSRC,0)
16 N CWMSG,CWSEQ
17 S (CWSEQ,CWMSG)=0
18 I 'CWSRC D
19 . F S CWMSG=$O(^XMB(3.7,CWDUZ,2,CWBSK,1,CWMSG)) Q:CWMSG<1 S DAT(CWMSG)=""
20ELSE E D
21 . F S CWSEQ=$O(^XMB(3.7,CWDUZ,2,CWBSK,1,"C",CWSEQ)) Q:CWSEQ<1 D
22 . . F S CWMSG=$O(^XMB(3.7,CWDUZ,2,CWBSK,1,"C",CWSEQ,CWMSG)) Q:CWMSG<1 D
23 . . . S DAT(CWMSG)=""
24 Q $O(DAT(0))>0
25 ;
26FMDTE(CWDT,CWPRM) ;API TO RETURN A FORMATTED DATE
27 ;replaces '@' with " " between date and time
28 Q $TR($$FMTE^XLFDT(CWDT,CWPRM),"@"," ")
Note: See TracBrowser for help on using the repository browser.