source: GuiMail/trunk/p/CWMAILB.m@ 1687

CWMAILB ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CON'T ;21-Jun-2005 06:34;CLC
        ;;2.3;CWMAIL;;Jul 19, 2005
        ; modified 10/8/1999 to fix problem with reply text tab conversion
%FORWARD(CWDATA,CWINPUT,CWTEXT) ;
        ;Input:  1st Piece of CWINPUT holds IEN of Message
        ;        CWTEXT holds recipient list
        ;
        N XMZ,XMY,CWLP,CWSDATA,CWSEDATA,CWTMP,CWFILE,CWIEN,CWNAM,XMINSTR,CWMSG
        N XMKZA
        S XMZ=$P(CWINPUT,";")
        S CWDATA(1)="0^^AN ERROR HAS OCCURRED"
        G:'$G(XMZ) FOREND
        S CWSDATA=$G(CWTEXT(-9902),"[START DATA]"),CWSEDATA=$G(CWTEXT(-9903),"[END DATA]")
        S CWLP=-1 D FNDLP(.CWLP,CWSDATA)
        G:$G(CWLP)="" FOREND
        F  S CWLP=$O(CWTEXT(CWLP)) Q:CWLP=""  Q:CWTEXT(CWLP)=CWSEDATA  D
        .S CWTMP=$G(CWTEXT(CWLP)) Q:CWTMP=""
        .S CWFILE=+$P(CWTMP,"^"),CWIEN=+$P(CWTMP,"^",2),CWNAM=$P(CWTMP,"^",3)
        .I CWFILE=200 S XMY(CWIEN)=""
        .E  I CWFILE=3.8 S XMY("G."_CWNAM)=""
        .E  S XMY(CWNAM)=""
        I $D(XMY) D
        . S XMKZA(XMZ)=""
        . D FWDMSG^XMXAPI(XMDUZ,"",.XMKZA,.XMY,.XMINSTR,.CWMSG)
        ;RETURNS <number of messages> forwarded.
        S CWDATA(1)=+CWMSG_U_U_XMZ   ;FORCE TO SUCCESS
FOREND  Q
        ;
%TERMIN(CWDATA,CWINPUT) ;TERMINATE A MESSAGE THREAD
        ;Input:  1st piece = IEN of Message
        ;        2nd piece = IEN of Mail Basket
        ;
        N XMRC,XMZ,XMK,Y,CWMSGNM,CWMSGR
        S CWDATA(1)="0^^AN ERROR HAS OCCURRED"
        S XMZ=$P($G(CWINPUT),";"),XMK=$P($G(CWINPUT),";",2)
        S CWMSGNM(XMZ)=""
        D TERMMSG^XMXAPI(XMDUZ,"",.CWMSGNM,.CWMSGR)
        ;RETURNS <number of messages> terminated.
        S CWDATA(1)=+CWMSGR_U_U   ;return 1 for success or 0
        Q
FNDLP(CWLP,X)   ;FIND A CHARACTER STRING ENTRY
        F  S CWLP=$O(CWTEXT(CWLP)) Q:CWLP=""  Q:CWTEXT(CWLP)=X
        Q
        ;
INCNT(CWCNT)    ;INCREMENT COUNTER
        Q CWCNT+1
        ;
%CREATE(DATA,INPUT,TEXT)        ;CREATE A NEW MESSAGE
        ;BUILD RETURN CODES FOR ERROR MESSAGING
        D %CREATE^CWMAIL2
        Q
        ;
%REPLY(CWDATA,CWINPUT,CWTEXT)   ; This API uses global array for text
        ;INPUT -  Piece  1   : Message Number
        ;         Piece  2-4 : Not Used
        ;         Piece  5   : Network Reply Flag (0 = no; 1 = yes)
        ;
        N CWMSGN,CWRESULT,CWSDATA,CWSEDATA,CWTMP,CWNWCHK,CWDATT
        N CWMSGT,XMZR,CWLP,XMINSTR
        S CWMSGN=$P(CWINPUT,";")
        S CWNWCHK=$P(CWINPUT,";",5)
        S CWDATA(1)="0^UNDEFINED ERROR"
        S CWTEXT=$NA(^TMP($J,"CWMAILLOAD"))
        G:'$G(CWMSGN) REPEND
        S CWSDATA=$G(@CWTEXT@(-9900),"[START DATA]"),CWSEDATA=$G(@CWTEXT@(-9901),"[END DATA]")
        S CWLP=-1 D GFNDLP(.CWLP,CWSDATA)
        G:$G(CWLP)="" REPEND
        F  S CWLP=$O(@CWTEXT@(CWLP)) Q:CWLP=""  Q:@CWTEXT@(CWLP)=CWSEDATA  D
        .S ^TMP($J,"CWMAILOUT",CWLP)=$G(@CWTEXT@(CWLP))
        G:'$D(^TMP($J,"CWMAILOUT")) REPEND
        S CWMSGT=$NA(^TMP($J,"CWMAILOUT"))
        D CNVTAB^CWMAIL2(CWMSGT)  ;convert tabs to spaces
        S XMINSTR("NET REPLY")=$S(+$G(CWNWCHK):1,1:0)
        D REPLYMSG^XMXAPI(XMDUZ,"",CWMSGN,CWMSGT,.XMINSTR,.XMZR)
        I +$G(XMZR)>0 S CWDATA(1)=$S(CWNWCHK:2,1:1)_"^NO ERRORS"_U_CWMSGN   ;SUCCESS
        E  S CWDATA(1)="0^"_$G(CWDATA)_U_CWMSGN   ;RETURN ERROR MESSAGE
REPEND  K ^TMP($J,"CWMAILLOAD"),^TMP($J,"CWMAILOUT")
        Q
GFNDLP(CWLP,X)  ;FIND A CHARACTER STRING ENTRY IN GLOBAL
        F  S CWLP=$O(@CWTEXT@(CWLP)) Q:CWLP=""  Q:@CWTEXT@(CWLP)=X
        Q
        ;
%ANSWER(CWDATA,CWINPUT,CWTEXT)  ; This API uses global array for text to answer a message
        ;INPUT -  CWINPUT : Piece  1   : Message Number
        ;                   Piece  2   : Not Used
        ;                   Piece  3   : Message Attributes
        ;                   Pieces 4-5 : Not Used
        ;         CWTEXT :  Holds list of additional recipients
        ;
        N CWSDATA,CWSEDATA,CWLP,CWTXTARY,DA,DIE,DR,Y,XMTEXT
        N CWMSGABS,CWTMP,CWFILE,CWIEN,CWNAM
        N XMBODY,CWMSGN,XMY,XMZ,XMINSTR
        S CWMSGN=$P(CWINPUT,";")  ;MESSAGE NUMBER
        I $G(CWMSGN)<1 S CWDATA(1)="0^98- No message number given" G ANSEND
        S CWDATA(1)="0^99- UNDEFINED ERROR"
        ;TEXT ARRAY CONTAINS RECIPIENT LIST AND MESSAGE TEXT LOADED FROM BMSGD call
        ;BUILD XMY ARRAY
        S CWTEXT=$NA(^TMP($J,"CWMAILLOAD"))
        S CWSDATA=$G(@CWTEXT@(-9902),"[START XMY]"),CWSEDATA=$G(@CWTEXT@(-9903),"[END XMY]")
        S CWLP=-1 D GFNDLP^CWMAILB(.CWLP,CWSDATA)
        ;RETRIEVE RECIPIENTS
        I $G(CWLP)'="" D
        . F  S CWLP=$O(@CWTEXT@(CWLP)) Q:CWLP=""  Q:@CWTEXT@(CWLP)=CWSEDATA  D
        . . S CWTMP=$G(@CWTEXT@(CWLP)) Q:CWTMP=""
        . . S CWFILE=+$P(CWTMP,"^"),CWIEN=+$P(CWTMP,"^",2),CWNAM=$P(CWTMP,"^",3)
        . . I CWFILE=200 S XMY(CWIEN)=""
        . . E  I CWFILE=3.8 S XMY("G."_CWNAM)=""
        . . E  S XMY(CWNAM)=""  ;treat address as internet address
        ;BUILD MESSAGE @TEXT@ ARRAY
        S CWSDATA=$G(@CWTEXT@(-9900),"[START DATA]"),CWSEDATA=$G(@CWTEXT@(-9901),"[END DATA]")
        S CWLP=-1 D GFNDLP^CWMAILB(.CWLP,CWSDATA)
        I $G(CWLP)="" S CWDATA(1)="0^3- NO MESSAGE TEXT" G ANSEND
        F  S CWLP=$O(@CWTEXT@(CWLP)) Q:CWLP=""  Q:@CWTEXT@(CWLP)=CWSEDATA  D
        .S ^TMP($J,"CWMAILOUT",CWLP)=$G(@CWTEXT@(CWLP))
        ;I '$D(^TMP($J,"CWMAILOUT")) S CWDATA(1)="0^3- NO MESSAGE TEXT" G ANSEND   ;NO MESSAGE @CWTEXT@
        ;I '$L($P($G(CWINPUT),";")) S CWDATA(1)="0^4- MESSAGE SUBJECT NOT GIVEN" G ANSEND
        ;E  S XMSUBJ=$P($G(CWINPUT),";")
        ;PROCESS MESSAGE
        S XMBODY=$NA(^TMP($J,"CWMAILOUT"))
        S XMINSTR("FLAGS")=$P(CWINPUT,";",3)  ;GET MESSAGE ATTRIBUTES
        D ANSRMSG^XMXAPI(XMDUZ,"",CWMSGN,"",XMBODY,.XMY,.XMINSTR,.XMZ)
        I $G(XMZ)<1 S CWDATA(1)="0^5- MESSAGE ANSWER FAILED" G ANSEND
        I +$G(XMZ)>0 S CWDATA(1)="1^^"_$G(XMZ)
ANSEND  K ^TMP($J,"CWMAILOUT"),^TMP($J,"CWMAILLOAD")
        Q