| 1 | CWMAIL4 ;INDPLS/PLS- DELPHI VISTA MAIL SERVER, CON'T ;21-Jun-2005 06:34;CLC
|
|---|
| 2 | ;;2.3;CWMAIL;;Jul 19, 2005
|
|---|
| 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),"@"," ")
|
|---|
