Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XMXLIST1

XMXLIST1.m

Go to the documentation of this file.
  1. XMXLIST1 ;ISC-SF/GMB-List message: multiple conditions (cont.) ;08/30/2000 15:29
  1. ;;8.0;MailMan;;Jun 28, 2002
  1. ; Look in all of the user's baskets.
  1. NEWA(XMDUZ,XMTYPE,XMORDER,XMFLDS,XMAMT,XMSTART,XMF,XMTROOT) ; New messages in all baskets
  1. N XMCNT,XMK,XMKN,XMZ
  1. S XMCNT=0
  1. S XMK=+$G(XMSTART("XMK")) I XMK S XMK=XMK-.01
  1. S XMZ=$G(XMSTART("XMZ"))
  1. F S XMK=$O(^XMB(3.7,XMDUZ,XMTYPE,XMK)) Q:'XMK D Q:XMCNT=XMAMT
  1. . S XMKN=$P(^XMB(3.7,XMDUZ,2,XMK,0),U,1)
  1. . F S XMZ=$O(^XMB(3.7,XMDUZ,XMTYPE,XMK,XMZ),XMORDER) Q:'XMZ D Q:XMCNT=XMAMT
  1. . . I '$D(^XMB(3.7,XMDUZ,2,XMK,1,XMZ,0)) D ADDITN^XMUT4A(XMDUZ,XMTYPE,XMK,XMZ)
  1. . . I '$D(^XMB(3.9,XMZ,0)) D ZAPIT^XMXMSGS2(XMDUZ,XMK,XMZ) Q
  1. . . I $D(XMF) Q:'$$GOODMSG^XMJMFB(XMDUZ,XMK,XMZ,.XMF)
  1. . . S XMCNT=XMCNT+1
  1. . . S @(XMTROOT_XMCNT_")")=XMZ
  1. . . Q:'$D(XMFLDS)
  1. . . D FIELDS(XMDUZ,XMK,XMKN,XMZ,.XMFLDS,XMTROOT,XMCNT)
  1. . . I XMFLDS["SEQN" D KSEQN(XMDUZ,XMK,XMZ,.XMFLDS,XMTROOT,XMCNT)
  1. S XMSTART("XMK")=XMK
  1. S XMSTART("XMZ")=XMZ
  1. S @(XMTROOT_"0)")=XMCNT_U_XMAMT
  1. ; Any more?
  1. I 'XMK S @(XMTROOT_"0)")=@(XMTROOT_"0)")_"^0" Q
  1. I '$O(^XMB(3.7,XMDUZ,XMTYPE,XMK)),'$O(^XMB(3.7,XMDUZ,XMTYPE,XMK,XMZ),XMORDER) S @(XMTROOT_"0)")=@(XMTROOT_"0)")_"^0" Q
  1. I '$D(XMF) S @(XMTROOT_"0)")=@(XMTROOT_"0)")_"^1" Q
  1. N XMORE
  1. S XMORE=0,XMK=XMK-.01
  1. F S XMK=$O(^XMB(3.7,XMDUZ,XMTYPE,XMK)) Q:'XMK D Q:XMORE
  1. . F S XMZ=$O(^XMB(3.7,XMDUZ,XMTYPE,XMK,XMZ),XMORDER) Q:'XMZ D Q:XMORE
  1. . . I '$D(^XMB(3.7,XMDUZ,2,XMK,1,XMZ,0)) D ADDITN^XMUT4A(XMDUZ,XMTYPE,XMK,XMZ)
  1. . . I '$D(^XMB(3.9,XMZ,0)) D ZAPIT^XMXMSGS2(XMDUZ,XMK,XMZ) Q
  1. . . I $$GOODMSG^XMJMFB(XMDUZ,XMK,XMZ,.XMF) S XMORE=1
  1. S @(XMTROOT_"0)")=@(XMTROOT_"0)")_U_XMORE
  1. Q
  1. REGAC(XMDUZ,XMORDER,XMFLDS,XMAMT,XMSTART,XMF,XMTROOT) ; Messages (by C-xref) in all baskets
  1. N XMCNT,XMK,XMKN,XMKZ,XMZ
  1. S XMCNT=0
  1. S XMK=+$G(XMSTART("XMK")) I XMK S XMK=XMK-.01
  1. S XMKZ=$G(XMSTART("XMKZ"))
  1. F S XMK=$O(^XMB(3.7,XMDUZ,2,XMK)) Q:'XMK D Q:XMCNT=XMAMT
  1. . S XMKN=$P(^XMB(3.7,XMDUZ,2,XMK,0),U,1)
  1. . F S XMKZ=$O(^XMB(3.7,XMDUZ,2,XMK,1,"C",XMKZ),XMORDER) Q:'XMKZ S XMZ=$O(^(XMKZ,"")) D Q:XMCNT=XMAMT
  1. . . I '$D(^XMB(3.7,XMDUZ,2,XMK,1,XMZ,0)) D ADDITC^XMUT4A(XMDUZ,XMK,XMZ,XMKZ)
  1. . . I '$D(^XMB(3.9,XMZ,0)) D ZAPIT^XMXMSGS2(XMDUZ,XMK,XMZ) Q
  1. . . I $D(XMF) Q:'$$GOODMSG^XMJMFB(XMDUZ,XMK,XMZ,.XMF)
  1. . . S XMCNT=XMCNT+1
  1. . . S @(XMTROOT_XMCNT_")")=XMZ
  1. . . Q:'$D(XMFLDS)
  1. . . D FIELDS(XMDUZ,XMK,XMKN,XMZ,.XMFLDS,XMTROOT,XMCNT)
  1. . . I XMFLDS["SEQN" D SEQN(XMDUZ,XMKZ,.XMFLDS,XMTROOT,XMCNT)
  1. S XMSTART("XMK")=XMK
  1. S XMSTART("XMKZ")=XMKZ
  1. S @(XMTROOT_"0)")=XMCNT_U_XMAMT
  1. ; Any more?
  1. I 'XMK S @(XMTROOT_"0)")=@(XMTROOT_"0)")_"^0" Q
  1. I '$O(^XMB(3.7,XMDUZ,2,XMK)),'$O(^XMB(3.7,XMDUZ,2,XMK,1,"C",XMKZ),XMORDER) S @(XMTROOT_"0)")=@(XMTROOT_"0)")_"^0" Q
  1. I '$D(XMF) S @(XMTROOT_"0)")=@(XMTROOT_"0)")_"^1" Q
  1. N XMORE
  1. S XMORE=0,XMK=XMK-.01
  1. F S XMK=$O(^XMB(3.7,XMDUZ,2,XMK)) Q:'XMK D Q:XMORE
  1. . F S XMKZ=$O(^XMB(3.7,XMDUZ,2,XMK,1,"C",XMKZ),XMORDER) Q:'XMKZ S XMZ=$O(^(XMKZ,"")) D Q:XMORE
  1. . . I '$D(^XMB(3.7,XMDUZ,2,XMK,1,XMZ,0)) D ADDITC^XMUT4A(XMDUZ,XMK,XMZ,XMKZ)
  1. . . I '$D(^XMB(3.9,XMZ,0)) D ZAPIT^XMXMSGS2(XMDUZ,XMK,XMZ) Q
  1. . . I $$GOODMSG^XMJMFB(XMDUZ,XMK,XMZ,.XMF) S XMORE=1
  1. S @(XMTROOT_"0)")=@(XMTROOT_"0)")_U_XMORE
  1. Q
  1. REGAZ(XMDUZ,XMORDER,XMFLDS,XMAMT,XMSTART,XMF,XMTROOT) ; Messages (by IEN) in all baskets
  1. N XMCNT,XMK,XMKN,XMZ
  1. S XMCNT=0
  1. S XMK=+$G(XMSTART("XMK")) I XMK S XMK=XMK-.01
  1. S XMZ=$G(XMSTART("XMZ"))
  1. F S XMK=$O(^XMB(3.7,XMDUZ,2,XMK)) Q:'XMK D Q:XMCNT=XMAMT
  1. . S XMKN=$P(^XMB(3.7,XMDUZ,2,XMK,0),U,1)
  1. . I +XMZ=0 S XMZ=0 I XMORDER=-1 S XMZ=":"
  1. . F S XMZ=$O(^XMB(3.7,XMDUZ,2,XMK,1,XMZ),XMORDER) Q:'XMZ D Q:XMCNT=XMAMT
  1. . . I '$D(^XMB(3.9,XMZ,0)) D ZAPIT^XMXMSGS2(XMDUZ,XMK,XMZ) Q
  1. . . I $D(XMF) Q:'$$GOODMSG^XMJMFB(XMDUZ,XMK,XMZ,.XMF)
  1. . . S XMCNT=XMCNT+1
  1. . . S @(XMTROOT_XMCNT_")")=XMZ
  1. . . Q:'$D(XMFLDS)
  1. . . D FIELDS(XMDUZ,XMK,XMKN,XMZ,.XMFLDS,XMTROOT,XMCNT)
  1. . . I XMFLDS["SEQN" D KSEQN(XMDUZ,XMK,XMZ,.XMFLDS,XMTROOT,XMCNT)
  1. S XMSTART("XMK")=XMK
  1. S XMSTART("XMZ")=XMZ
  1. S @(XMTROOT_"0)")=XMCNT_U_XMAMT
  1. ; Any more?
  1. I 'XMK S @(XMTROOT_"0)")=@(XMTROOT_"0)")_"^0" Q
  1. I '$O(^XMB(3.7,XMDUZ,2,XMK)),'$O(^XMB(3.7,XMDUZ,2,XMK,1,XMZ),XMORDER) S @(XMTROOT_"0)")=@(XMTROOT_"0)")_"^0" Q
  1. I '$D(XMF) S @(XMTROOT_"0)")=@(XMTROOT_"0)")_"^1" Q
  1. N XMORE
  1. S XMORE=0,XMK=XMK-.01
  1. F S XMK=$O(^XMB(3.7,XMDUZ,2,XMK)) Q:'XMK D Q:XMORE
  1. . I +XMZ=0 S XMZ=0 I XMORDER=-1 S XMZ=":"
  1. . F S XMZ=$O(^XMB(3.7,XMDUZ,2,XMK,1,XMZ),XMORDER) Q:'XMZ D Q:XMORE
  1. . . I '$D(^XMB(3.9,XMZ,0)) D ZAPIT^XMXMSGS2(XMDUZ,XMK,XMZ) Q
  1. . . I $$GOODMSG^XMJMFB(XMDUZ,XMK,XMZ,.XMF) S XMORE=1
  1. S @(XMTROOT_"0)")=@(XMTROOT_"0)")_U_XMORE
  1. Q
  1. FIELDS(XMDUZ,XMK,XMKN,XMZ,XMFLDS,XMTROOT,XMCNT) ;
  1. N XMZREC,XMLOOK,XMVAL
  1. I XMFLDS["BSKT" D
  1. . S XMLOOK=$P($P(XMFLDS,"BSKT",2),";",1)
  1. . S @(XMTROOT_XMCNT_",""BSKT"")")=XMK_$S(XMLOOK["I":"",1:U_XMKN)
  1. . I XMLOOK["X" S @(XMTROOT_"""BSKT"",XMKN,XMCNT)")=""
  1. I XMFLDS["FROM" D
  1. . I '$D(XMZREC) S XMZREC=$G(^XMB(3.9,XMZ,0))
  1. . S XMLOOK=$P($P(XMFLDS,"FROM",2),";",1)
  1. . I XMLOOK["I" S @(XMTROOT_XMCNT_",""FROM"")")=$P(XMZREC,U,2) Q:XMLOOK'["X"
  1. . S XMVAL=$$FROM^XMXUTIL2(XMZREC)
  1. . I $E(XMVAL)="<" S XMVAL=$E(XMVAL,2,$L(XMVAL)-1)
  1. . I XMLOOK'["I" S @(XMTROOT_XMCNT_",""FROM"")")=$P(XMZREC,U,2)_U_XMVAL Q:XMLOOK'["X"
  1. . S @(XMTROOT_"""FROM"",XMVAL,XMCNT)")=""
  1. I XMFLDS["DATE" D
  1. . I '$D(XMZREC) S XMZREC=$G(^XMB(3.9,XMZ,0))
  1. . S XMLOOK=$P($P(XMFLDS,"DATE",2),";",1)
  1. . I XMLOOK'["X" D Q
  1. . . I XMLOOK["I" S @(XMTROOT_XMCNT_",""DATE"")")=$P(XMZREC,U,3) Q
  1. . . I XMLOOK["F" D Q
  1. . . . S XMVAL=$P(XMZREC,U,3)
  1. . . . I XMVAL'?7N.E S XMVAL=$$CONVERT^XMXUTIL1(XMVAL,1) I XMVAL=-1 S XMVAL=$P(XMZREC,U,3)
  1. . . . S @(XMTROOT_XMCNT_",""DATE"")")=$P(XMZREC,U,3)_U_XMVAL
  1. . . S @(XMTROOT_XMCNT_",""DATE"")")=$P(XMZREC,U,3)_U_$$DATE^XMXUTIL2(XMZREC)
  1. . S XMVAL=$P(XMZREC,U,3)
  1. . I XMVAL'?7N.E S XMVAL=$$CONVERT^XMXUTIL1(XMVAL,1)
  1. . S @(XMTROOT_"""DATE"",XMVAL,XMCNT)")=""
  1. . I XMLOOK["I" S @(XMTROOT_XMCNT_",""DATE"")")=$P(XMZREC,U,3) Q
  1. . I XMLOOK["F" S @(XMTROOT_XMCNT_",""DATE"")")=$P(XMZREC,U,3)_U_XMVAL Q
  1. . S @(XMTROOT_XMCNT_",""DATE"")")=$P(XMZREC,U,3)_U_$$DATE^XMXUTIL2(XMZREC)
  1. I XMFLDS["SUBJ" D
  1. . I '$D(XMZREC) S XMZREC=$G(^XMB(3.9,XMZ,0))
  1. . S XMLOOK=$P($P(XMFLDS,"SUBJ",2),";",1)
  1. . I XMLOOK'["X" S @(XMTROOT_XMCNT_",""SUBJ"")")=$$SUBJ^XMXUTIL2(XMZREC) Q
  1. . S XMVAL=$$SUBJ^XMXUTIL2(XMZREC)
  1. . S @(XMTROOT_XMCNT_",""SUBJ"")")=XMVAL
  1. . S @(XMTROOT_"""SUBJ"",XMVAL,XMCNT)")=""
  1. I XMFLDS["PRI" D
  1. . I '$D(XMZREC) S XMZREC=$G(^XMB(3.9,XMZ,0))
  1. . S @(XMTROOT_XMCNT_",""PRI"")")=$$PRI^XMXUTIL2(XMZREC)
  1. I XMFLDS["LINE" S @(XMTROOT_XMCNT_",""LINE"")")=$$LINE^XMXUTIL2(XMZ)
  1. I XMFLDS["NEW" S @(XMTROOT_XMCNT_",""NEW"")")=$$NEW^XMXUTIL2(XMDUZ,XMK,XMZ)
  1. I XMFLDS["RESP" S @(XMTROOT_XMCNT_",""RESP"")")=$$RESP^XMXUTIL2(XMZ)
  1. I XMFLDS["READ" S @(XMTROOT_XMCNT_",""READ"")")=$$ZREAD^XMXUTIL2(XMDUZ,XMZ)
  1. Q
  1. KSEQN(XMDUZ,XMK,XMZ,XMFLDS,XMTROOT,XMCNT) ;
  1. S @(XMTROOT_XMCNT_",""SEQN"")")=$$KSEQN^XMXUTIL2(XMDUZ,XMK,XMZ)
  1. Q
  1. SEQN(XMDUZ,XMKZ,XMFLDS,XMTROOT,XMCNT) ;
  1. S @(XMTROOT_XMCNT_",""SEQN"")")=XMKZ
  1. Q