source: GuiMail/trunk/p/CWMAIL0.m@ 1520

CWMAIL0 ;INDPLS/PLS- DELPHI MAIL SERVER, CONT'D ;21-Jun-2005 06:34;CLC
        ;;2.3;CWMAIL;;Jul 19, 2005
        Q   ;ROUTINE CAN'T BE CALLED DIRECTLY
        ;
PROCMS(CWDATA,CWMSGN,CWNMFLG)   ;PROCESS MAIL MESSAGE THREAD
        N CWRE,CWCNT,CWRSP,CWNWMSG,CWDATT,CWLCNT,CWLP,CWCONFRM,CW
        N CWIM,CWIU,CWINSTR,CWFLAGS,CWIR
        D INMSG^XMXUTIL2(XMDUZ,$$BSKT^XMXUTIL2(XMDUZ,CWMSGN),CWMSGN,,"F",.CWIM,.CWINSTR,.CWIU)  ;SET-UP MESSAGE INFO
        S CWDATA=$NA(^TMP($J,"CWMAIL"))
        S CWNWMSG=$G(CWIM("FROM"))["@"  ;NETWORK MESSAGE
        S CWCNT=2,CWLCNT=0
        S @CWDATA@(CWCNT)="Mail Message From: "_$G(CWIM("FROM NAME"))_"  "_"Dated: "_$$FMDTE^CWMAIL4(CWIM("DATE FM"),"5MZ")
        S CWCNT=$$INCNT(CWCNT),@CWDATA@(CWCNT)="Subject: "_$G(CWIM("SUBJ"))
        S CWCNT=$$INCNT(CWCNT),@CWDATA@(CWCNT)=""
        ;I 'CWNMFLG!(CWNMFLG&($G(CWIM("RESP"))<1))!(CWNMFLG&(+$G(CWIM("RESP"))=+$G(CWIM("RESPS"))))
        I 'CWNMFLG!(CWNMFLG&(+$G(CWIU("RESP"))<1))!(CWNMFLG&(+$G(CWIU("RESP"))=+$G(CWIM("RESPS")))) D READM(.CWDATA,CWMSGN,.CWCNT)
        S CWCONFRM=""
        D LASTACC(CWMSGN,$$BSKT^XMXUTIL2(XMDUZ,CWMSGN),0,.CWCONFRM)  ;UPDATE LAST ACCESS DATE/TIME
        ;PROCESS RESPONSES
        I $G(CWIM("RESPS"))>0 D
        . S CWLP=$S(+$G(CWIU("RESP"))=+$G(CWIM("RESPS")):1,+$G(CWIU("RESP"))<1:1,CWNMFLG:+$G(CWIU("RESP")),1:1) F CWLP=CWLP:1:CWIM("RESPS") D
        . . D INRESP^XMXUTIL2(CWMSGN,CWLP,"F",.CWIR)  ;gather details on specific response
        . . S CWCNT=$$INCNT(CWCNT),@CWDATA@(CWCNT)=""
        . . S CWCNT=$$INCNT(CWCNT),@CWDATA@(CWCNT)="Response: "_CWLP_") "_$G(CWIR("FROM NAME"))_"  "_$$FMDTE^CWMAIL4($G(CWIR("DATE FM")),"5MZ")
        . . S CWCNT=$$INCNT(CWCNT),@CWDATA@(CWCNT)=""
        . . D READM(.CWDATA,CWIR("XMZ"),.CWCNT)
        . . D LASTACC(CWMSGN,$$BSKT^XMXUTIL2(XMDUZ,CWMSGN),CWLP)  ;UPDATES LAST RESPONSE READ
        D NONEW^XMXUTIL(XMDUZ,$$BSKT^XMXUTIL2(XMDUZ,CWMSGN),CWMSGN,1)  ;UNNEW MESSAGE
        I +CWCONFRM D  ;SEND CONFIRMATION IF NEEDED
        . S CWCNT=$$INCNT(CWCNT),@CWDATA@(CWCNT)=""
        . S CWCNT=$$INCNT(CWCNT),@CWDATA@(CWCNT)=">>Confirmation Message Sent to Sender.<<"
        I $O(@CWDATA@(1)) D
        . S @CWDATA@(1)="1^^DATA HAS BEEN FOUND"
        E  S @CWDATA@(1)="1^^Message text could not be found."
        S $P(@CWDATA@(1),U,2)=CWCNT-2
        Q
        ;
LASTACC(XMZ,CWBIEN,CWLRSP,XMCONFRM)     ;UPDATE LAST RESPONSE READ DATE
        ;INPUT    XMZ = MESSAGE NUMBER
        ;      CWBIEN = BASKET IEN
        ;      CWLRSP = LAST RESPONSE READ
        ;
        N CWIM,CWIU,CWINSTR,CWXINSTR,CWFLAGS
        D INMSG1^XMXUTIL2(XMDUZ,XMZ,,.CWFLAGS,.CWIM,.CWIU)   ;SET-UP FOR CALL
        D INMSG2^XMXUTIL2(XMDUZ,XMZ,,.CWIM,.CWXINSTR,.CWIU)
        S CWINSTR("FLAGS")=$S($G(CWXINSTR("FLAGS"))["R":"R",1:"")
        D LASTACC^XMXUTIL(XMDUZ,CWBIEN,XMZ,CWLRSP,.CWIM,.CWINSTR,.CWIU,.XMCONFRM)
        Q
        ;
READM(CWDATA,CWINPUT,CWCNT)     ;OUTPUT MAIL MESSAGE IN ARRAY
        S $ZT="READMER^CWMAIL"
        N CWRDATA,XMZ,CWMTYPE,CWTFLG,XMER,XMPOS
        S XMZ=+$G(CWINPUT),CWTFLG=0,CWMTYPE=$G(CWINSTR("TYPE"))
        F  S CWRDATA=$$READ^XMGAPI1() Q:XMER<0!(CWTFLG)  S CWCNT=CWCNT+1,@CWDATA@(CWCNT)=CWRDATA I CWMTYPE="K"!(CWMTYPE="X") S:CWRDATA["$END TXT" CWTFLG=1
        ;
READMER Q
        ;
INCNT(CWCNT)    ;INCREMENT COUNTER
        Q CWCNT+1
        ;
ADDMP(CWXMZ,CWVAL)      ;set data into DAT based on subscripted CWVAL
        ;INPUT  -  CWXMZ = message ien
        ;          CWVAL = input array (i.e. CWVAL(1)=first piece...CWVAL(n)=last piece
        ;OUTPUT -  data string holding delimited ('^') data
        S CWXMZ=$G(CWXMZ,0)
        I +$G(CWXMZ) D
        . N X,CWCONFRM,CWTYPE,CWCLOSED,CWINFO,CWCONFID,CWSDRDUZ,CWBRDCAS,CWSDRNAM,CWTRECPT,CWTREPLY
        . N CWIM,CWIU,CWINSTR,CWPMSG,CWLP,CWDAT
        . D INMSG^XMXUTIL2(XMDUZ,$$BSKT^XMXUTIL2(XMDUZ,CWXMZ),CWXMZ,,"F",.CWIM,.CWINSTR,.CWIU)  ;SET-UP MESSAGE INFO
        . S CWVAL(6)=$$UP^XLFSTR($G(CWINSTR("TYPE")))  ;message type(s)
        . S:$G(CWINSTR("FLAGS"))["P" CWVAL(6)="P"_CWVAL(6)   ;add priority flag as a type
        . S CWVAL(7)=$G(CWINSTR("FLAGS"))["R"       ;confirmation flag
        . S CWVAL(8)=$G(CWINSTR("FLAGS"))["X"       ;closed flag
        . S CWVAL(9)=$G(CWINSTR("FLAGS"))["I"       ;informational flag
        . S CWVAL(10)=$G(CWINSTR("FLAGS"))["C"      ;confidential flag
        . S CWVAL(11)=$G(CWIM("FROM DUZ"))          ;sender ien
        . S CWVAL(13)=$G(CWIM("FROM NAME"))         ;sender full name
        . S CWVAL(12)=$$BCAST^XMXSEC(CWXMZ)         ;broadcast flag
        . S CWVAL(14)=$G(CWIM("RECIPS"))            ;total # of recipients
        . S CWVAL(15)=$G(CWIM("RESPS"))             ;total # of replies
        . S CWVAL(16)=$G(CWINSTR("FLAGS"))["P"      ;priority flag
        . S CWVAL(17)=+$G(CWIU("RESP"))              ;# of last response read
        . S CWVAL(20)=+$$ANSWER^XMXSEC(XMDUZ,CWXMZ,$$ZNODE^XMXUTIL2(CWXMZ))  ;can user answer message
        ;set data into node
        S CWLP="" F  S CWLP=$O(CWVAL(CWLP)) Q:CWLP<1  D
        . S $P(CWDAT,U,CWLP)=CWVAL(CWLP)
        Q CWDAT