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

XMJMQ.m

Go to the documentation of this file.
  1. XMJMQ ;ISC-SF/GMB-Q,QD,QN Query recipients ;12/04/2002 11:21
  1. ;;8.0;MailMan;**10**;Jun 28, 2002
  1. ; Replaces ^XMA5,^XMA5A (ISC-WASH/THM/CAP)
  1. Q(XMDUZ,XMK,XMKN,XMZ) ; Query
  1. N XMRESPM,XMABORT
  1. D QINIT^XMJMQ1(XMDUZ,XMK,XMKN,XMZ,.XMRESPM,.XMABORT)
  1. D SUMMARY^XMJMQ1(XMZ,0,"","","",.XMABORT)
  1. Q
  1. QD(XMDUZ,XMK,XMKN,XMZ) ; Query Detail
  1. N XMRESPM,XMABORT
  1. D QINIT^XMJMQ1(XMDUZ,XMK,XMKN,XMZ,.XMRESPM,.XMABORT)
  1. D DETAIL(XMZ,0,"","","",.XMABORT)
  1. Q
  1. QN(XMDUZ,XMK,XMKN,XMZ) ; Query Network
  1. N XMRESPM,XMABORT
  1. D QINIT^XMJMQ1(XMDUZ,XMK,XMKN,XMZ,.XMRESPM,.XMABORT)
  1. D NETWORK^XMJMQ1(XMZ,.XMABORT) Q:XMABORT
  1. D DETAIL(XMZ,0,"","","",.XMABORT)
  1. Q
  1. QX(XMDUZ,XMK,XMKN,XMZ,XMWHAT) ; Query Special
  1. ; XMWHAT = "QC" - show local users who are current
  1. ; "QNC" - show local users who are not current
  1. ; "QT" - show local users who have terminated
  1. N XMRESPM,XMABORT,XMTO,XMIEN,XMTYPE,XMRESPS,XMCNT,XMTOTAL,XMPHDR
  1. D QINIT^XMJMQ1(XMDUZ,XMK,XMKN,XMZ,.XMRESPM,.XMABORT)
  1. I $Y+3>IOSL D PAGE(.XMABORT) Q:XMABORT
  1. S XMRESPS=+$P($G(^XMB(3.9,XMZ,3,0)),U,4)
  1. W !
  1. S (XMPHDR,XMCNT,XMTOTAL,XMTO)=0
  1. F S XMTO=$O(^XMB(3.9,XMZ,1,"C",XMTO)) Q:+XMTO'=XMTO D Q:XMABORT
  1. . S XMTOTAL=XMTOTAL+1
  1. . S XMIEN=$O(^XMB(3.9,XMZ,1,"C",XMTO,""))
  1. . I XMWHAT="QC",$P(^XMB(3.9,XMZ,1,XMIEN,0),U,2)'=XMRESPS Q ; not current
  1. . I XMWHAT="QNC",$P(^XMB(3.9,XMZ,1,XMIEN,0),U,2)=XMRESPS Q ; current
  1. . I XMWHAT="QT",'$G(^XMB(3.9,XMZ,1,XMIEN,"D")) Q ; not terminated
  1. . S XMCNT=XMCNT+1
  1. . D WNAME(XMZ,$$NAME^XMXUTIL(XMTO),XMIEN,XMRESPM,.XMTYPE,.XMABORT)
  1. Q:XMABORT
  1. I $Y+3+(XMCNT>0)>IOSL D PAGE(.XMABORT) Q:XMABORT
  1. N XMTEXT,XMPARM
  1. I XMCNT W !
  1. S XMPARM(1)=XMCNT,XMPARM(2)=XMTOTAL
  1. D BLD^DIALOG($S(XMWHAT="QC":37431.9,XMWHAT="QNC":37432.9,1:37433.9),.XMPARM,"","XMTEXT","F")
  1. D MSG^DIALOG("WM","",IOM,"","XMTEXT")
  1. ; Local recipients who are (not) current: |1| of |2|
  1. ; Local recipients who have terminated: |1| of |2|
  1. Q
  1. QNAME(XMDUZ,XMK,XMKN,XMZ) ; Query someone's name
  1. N XMRESPM,XMABORT,DIR,Y,DIRUT,XMNAME
  1. F D Q:$D(DIRUT)
  1. . S DIR(0)="FO^1:30^K:"", ""[$E(X) X"
  1. . S DIR("A")=$$EZBLD^DIALOG(34555) ; Enter the person's name or partial name
  1. . D BLD^DIALOG(34556,"","","DIR(""?"")")
  1. . ;Name must be from 1 to 30 characters,
  1. . ;and must not contain ^, or begin with comma or space.
  1. . D ^DIR Q:$D(DIRUT)
  1. . S XMNAME=Y
  1. . D QINIT^XMJMQ1(XMDUZ,XMK,XMKN,XMZ,.XMRESPM,.XMABORT)
  1. . D SEARCH^XMJMQ1(XMZ,XMNAME,XMRESPM)
  1. Q
  1. QNAMEX(XMDUZ,XMK,XMKN,XMZ,XMNAME) ; Query someone's name (name is supplied)
  1. N XMRESPM,XMABORT
  1. I ($L(XMNAME)<1)!($L(XMNAME)>30)!(XMNAME[U)!(", "[$E(XMNAME,1)) D Q
  1. . N XMTEXT
  1. . W $C(7)
  1. . D BLD^DIALOG(34556,"","","XMTEXT","F")
  1. . D MSG^DIALOG("WH","","","","XMTEXT")
  1. . ;Name must be from 1 to 30 characters,
  1. . ;and must not contain ^, or begin with comma or space.
  1. D QINIT^XMJMQ1(XMDUZ,XMK,XMKN,XMZ,.XMRESPM,.XMABORT)
  1. D SEARCH^XMJMQ1(XMZ,XMNAME,XMRESPM)
  1. Q
  1. DETAIL(XMZ,XMPHDR,XMSUBJ,XMZSTR,XMPAGE,XMABORT) ;
  1. ; XMRESPM Last part msg: of Number of responses in msg
  1. N XMTO,XMRESPM,XMNAME,XMIEN,XMTYPE
  1. I $Y+3>IOSL D PAGE(.XMABORT) Q:XMABORT
  1. W !
  1. S XMRESPM=+$P($G(^XMB(3.9,XMZ,3,0)),U,4)
  1. S XMRESPM=$$EZBLD^DIALOG($S(XMRESPM=1:34557.1,1:34557),XMRESPM) ; XMRESPM_ response / responses
  1. S XMTO="*" ; Show broadcast first.
  1. F S XMTO=$O(^XMB(3.9,XMZ,1,"C",XMTO)) Q:$E(XMTO,1,1)'="*" D Q:XMABORT
  1. . S XMIEN=$O(^XMB(3.9,XMZ,1,"C",XMTO,""))
  1. . S XMNAME=$P(^XMB(3.9,XMZ,1,XMIEN,0),U,1)
  1. . D WNAME(XMZ,XMNAME,XMIEN,XMRESPM,.XMTYPE,.XMABORT)
  1. Q:XMABORT
  1. S XMTO=""
  1. F S XMTO=$O(^XMB(3.9,XMZ,1,"C",XMTO)) Q:XMTO="" D Q:XMABORT
  1. . S XMIEN=$O(^XMB(3.9,XMZ,1,"C",XMTO,""))
  1. . I XMTO=+XMTO D
  1. . . S XMNAME=$$NAME^XMXUTIL(XMTO)
  1. . E D Q:$E(XMTO,1,1)="*"
  1. . . I $L(XMTO)>29 S XMNAME=$P(^XMB(3.9,XMZ,1,XMIEN,0),U,1) Q
  1. . . S XMNAME=XMTO
  1. . D WNAME(XMZ,XMNAME,XMIEN,XMRESPM,.XMTYPE,.XMABORT)
  1. Q
  1. WNAME(XMZ,XMNAME,XMIEN,XMRESPM,XMTYPE,XMABORT) ;
  1. N XMREC
  1. S XMREC=^XMB(3.9,XMZ,1,XMIEN,0)
  1. I $Y+3>IOSL D PAGE(.XMABORT) Q:XMABORT
  1. W !
  1. I $D(^XMB(3.9,XMZ,1,XMIEN,"T")) D ; CC: Info: Thru:
  1. . S XMTYPE=$P(^XMB(3.9,XMZ,1,XMIEN,"T"),U,1)
  1. . Q:XMTYPE=""
  1. . S:'$D(XMTYPE(XMTYPE)) XMTYPE(XMTYPE)=$$EXTERNAL^DILFD(3.91,6.5,"",XMTYPE)
  1. . W XMTYPE(XMTYPE),": "
  1. W XMNAME
  1. W:$X<18 ?18
  1. I +$P(XMREC,U,1)=$P(XMREC,U,1) D Q ; local user
  1. . I $P(XMREC,U,3)="" D
  1. . . W $$EZBLD^DIALOG(34574) ; " Not read."
  1. . E D Q:XMABORT
  1. . . D W3(34575,$$MMDT^XMXUTIL1($P(XMREC,U,3)),.XMABORT) Q:XMABORT ; Last read:
  1. . . I $P(XMREC,U,2) D Q:XMABORT
  1. . . . N XMPARM
  1. . . . S XMPARM(1)=$P(XMREC,U,2),XMPARM(2)=XMRESPM
  1. . . . D W3(34576,.XMPARM,.XMABORT) ; (x of y responses)
  1. . . I $P(XMREC,U,10)'="" D W3(34577,$$MMDT^XMXUTIL1($P(XMREC,U,10)),.XMABORT) Q:XMABORT ; [First read: x]
  1. . . I $D(^XMB(3.9,XMZ,1,XMIEN,"C")) D W3(34578,$$MMDT^XMXUTIL1(^("C")),.XMABORT) Q:XMABORT ; Copied:
  1. . . I $D(^XMB(3.9,XMZ,1,XMIEN,"S")) D W3(34580,^("S"),.XMABORT) Q:XMABORT ; Surrogate:
  1. . . I $D(^XMB(3.9,XMZ,1,XMIEN,"D")),^("D") D W3(34581,$$MMDT^XMXUTIL1(^("D")),.XMABORT) Q:XMABORT ; Terminated:
  1. . I $D(^XMB(3.9,XMZ,1,XMIEN,"F")) D FWD(XMZ,XMIEN,.XMABORT) Q:XMABORT
  1. I $E(XMNAME,1,2)="F.",$P(XMREC,U,12)'=""!$P(XMREC,U,11) D Q
  1. . I $P(XMREC,U,5)'="" D W3(34582,$$MMDT^XMXUTIL1($P(XMREC,U,5)),.XMABORT) Q:XMABORT ; Sent to fax:
  1. . I $P(XMREC,U,6)'="" D W3(34583,$P(XMREC,U,6),.XMABORT) Q:XMABORT ; Status:
  1. . I $P(XMREC,U,12)'="" D W3(34584,$P(XMREC,U,12),.XMABORT) Q:XMABORT ; Fax ID:
  1. . I $D(^XMB(3.9,XMZ,1,XMIEN,"F")) D FWD(XMZ,XMIEN,.XMABORT) Q:XMABORT
  1. I XMNAME["@" D Q
  1. . I $P(XMREC,U,5)'="" D W3(34585,$$MMDT^XMXUTIL1($P(XMREC,U,5)),.XMABORT) Q:XMABORT ; Sent:
  1. . I $P(XMREC,U,8)'="" D W3($S($P(XMREC,U,8)=1:34586,1:34587),$P(XMREC,U,8),.XMABORT) Q:XMABORT ; Time: x seconds
  1. . I $P(XMREC,U,7)'="",$D(^DIC(4.2,$P(XMREC,U,7),0)) D W3(34588,$P(^(0),U),.XMABORT) Q:XMABORT ; Path:
  1. . I $P(XMREC,U,4)'="" D W3(34590,$P(XMREC,U,4),.XMABORT) Q:XMABORT ; Message ID:
  1. . I $P(XMREC,U,6)'="" D W3(34583,$P(XMREC,U,6),.XMABORT) Q:XMABORT ; Status:
  1. . I $D(^XMB(3.9,XMZ,1,XMIEN,"F")) D FWD(XMZ,XMIEN,.XMABORT) Q:XMABORT
  1. I $E(XMNAME,1,3)="* (" D Q ; Broadcast
  1. . I $D(^XMB(3.9,XMZ,1,XMIEN,"F")) D FWD(XMZ,XMIEN,.XMABORT)
  1. I ".D.H.S."[("."_$E(XMNAME,1,2)) D Q
  1. . I $P(XMREC,U,3)'="" D W3(34591,$$MMDT^XMXUTIL1($P(XMREC,U,3)),.XMABORT) Q:XMABORT ; Date:
  1. . I $P(XMREC,U,6)'="" D W3(34583,$P(XMREC,U,6),.XMABORT) Q:XMABORT ; Status:
  1. . I $D(^XMB(3.9,XMZ,1,XMIEN,"F")) D FWD(XMZ,XMIEN,.XMABORT) Q:XMABORT
  1. Q
  1. FWD(XMZ,XMIEN,XMABORT) ;
  1. N XMFWDREC,XMFWDBY,XMFWDTYP
  1. S XMFWDREC=^XMB(3.9,XMZ,1,XMIEN,"F")
  1. S XMFWDBY=$P(XMFWDREC,U)
  1. I $E(XMFWDBY,1)=" " D W3(34592,XMFWDBY,.XMABORT) Q ; Forwarded on:
  1. I $E(XMFWDBY,1)?1N!($E(XMFWDBY,1)=".") D W3(34593,$$NAME^XMXUTIL(+XMFWDBY)_" "_$P(XMFWDBY," ",2,99),.XMABORT) Q ; Forwarded by:
  1. S XMFWDTYP=$P(XMFWDREC,U,3)
  1. D W3($S(XMFWDTYP="A":34593.1,XMFWDTYP="F":34593.2,1:34593),XMFWDBY,.XMABORT) ; Auto-Forwarded / Filter-Forwarded / Forwarded by:
  1. Q:$P(XMFWDREC,U,4)=""
  1. N XMPARM
  1. S XMPARM(1)=$$NAME^XMXUTIL($P(XMFWDREC,U,2))
  1. S XMPARM(2)=$P(XMFWDREC,U,4)
  1. S XMFWDTYP=$P(XMFWDREC,U,5)
  1. ; Filter-Forwarded / Forwarded to |1| by: |2|
  1. D W3($S(XMFWDTYP="F":34594.1,1:34594),.XMPARM,.XMABORT)
  1. Q
  1. W3(XMPIECE,XMPARM,XMABORT) ;
  1. S XMPIECE=$$EZBLD^DIALOG(XMPIECE,.XMPARM)
  1. I 1+$L(XMPIECE)+$X>IOM D Q:XMABORT
  1. . I $Y+3+($L(XMPIECE)-1\60)>IOSL D PAGE(.XMABORT) Q:XMABORT
  1. . W !,?18
  1. . Q:$L(XMPIECE)<61
  1. . F D Q:$L(XMPIECE)<61
  1. . . W " ",$E(XMPIECE,1,60),!,?18
  1. . . S XMPIECE=$E(XMPIECE,61,999)
  1. W " ",XMPIECE
  1. Q
  1. ;PAGE(XMPHDR,XMSUBJ,XMZSTR,XMPAGE,XMABORT);
  1. PAGE(XMABORT) ;
  1. I $E($G(IOST),1,2)="C-" D PAGE^XMXUTIL(.XMABORT) Q:XMABORT
  1. W @IOF
  1. Q:'XMPHDR
  1. D PAGE2HDR^XMJMP1(XMSUBJ,XMZSTR,.XMPAGE)
  1. Q