1 | CWMAIL4 ;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 | ;
|
---|
5 | GETMSGL(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)=""
|
---|
20 | ELSE 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 | ;
|
---|
26 | FMDTE(CWDT,CWPRM) ;API TO RETURN A FORMATTED DATE
|
---|
27 | ;replaces '@' with " " between date and time
|
---|
28 | Q $TR($$FMTE^XLFDT(CWDT,CWPRM),"@"," ")
|
---|