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

XMJMD.m

Go to the documentation of this file.
  1. XMJMD ;ISC-SF/GMB-Later Messages ;12/04/2002 13:46
  1. ;;8.0;MailMan;**10**;Jun 28, 2002
  1. ; Replaces ^XMB1 (ISC-WASH/THM/CAP)
  1. ; Entry points are:
  1. ; EDIT Change/Delete Later'd messages for a particular user
  1. ; REPORT Report on Later'd messages for a particular user
  1. ; LATER Add/Edit Later'd Dates for a particular user/message
  1. ; LTRADD Add Later'd delivery date for a particular user/message
  1. ; DELUSER Delete all Later'd messages for a particular user
  1. ; DELMSG Delete all Later'd dates for a particular message
  1. ;
  1. ; Entry points used by MailMan options (not covered by DBIA):
  1. ; EDIT XMLATER-EDIT
  1. ; REPORT XMLATER-REPORT
  1. REPORT ; Report on later'd messages
  1. N ZTSAVE,ZTDESC,ZTRTN,I
  1. D CHECK^XMVVITAE
  1. S ZTDESC=$$EZBLD^DIALOG(34639) ; MailMan: Report on Later'd Messages
  1. S ZTRTN="RPTLATER^XMJMD"
  1. F I="XMDUZ","XMV(""NAME"")" S ZTSAVE(I)=""
  1. D EN^XUTMDEVQ(ZTRTN,ZTDESC,.ZTSAVE)
  1. Q
  1. RPTLATER ;
  1. ; XMDUZ,XMV("NAME") are provided
  1. N XMZ,XMABORT,XMWHEN,XMIEN,XMREC,XMZREC,XMPAGE,XMLEN,XMK,XMKN
  1. S XMLEN("DATE")=$L($$FMTE^XLFDT($E($$NOW^XLFDT,1,12),"5Z"))
  1. S XMLEN("XMZ")=$L($O(^XMB(3.9,":"),-1))
  1. S:XMLEN("XMZ")<7 XMLEN("XMZ")=7
  1. S XMLEN("BSKT")=10
  1. S XMLEN("SUBJ")=79-XMLEN("DATE")-XMLEN("XMZ")-XMLEN("BSKT")-6
  1. S (XMPAGE,XMABORT)=0
  1. W:$E(IOST,1,2)="C-" @IOF
  1. D RPTHDR(.XMLEN,.XMPAGE)
  1. S XMIEN=""
  1. F S XMIEN=$O(^XMB(3.73,"C",XMDUZ,XMIEN)) Q:XMIEN="" D Q:XMABORT
  1. . S XMREC=$G(^XMB(3.73,XMIEN,0)) I XMREC="" K ^XMB(3.73,"C",XMDUZ,XMIEN) Q
  1. . S XMZ=+$P(XMREC,U,3)
  1. . S XMZREC=$G(^XMB(3.9,XMZ,0)) I XMZREC="" D DELDATE(XMIEN) Q
  1. . S XMWHEN=$P(XMREC,U,1)
  1. . S XMK=$O(^XMB(3.7,"M",XMZ,XMDUZ,""))
  1. . S XMKN=$S('XMK:$$EZBLD^DIALOG(34014),1:$P($G(^XMB(3.7,XMDUZ,2,XMK,0)),U)) ; * N/A *
  1. . I $Y+3>IOSL D Q:XMABORT
  1. . . I $E(IOST,1,2)="C-" D PAGE^XMXUTIL(.XMABORT) Q:XMABORT
  1. . . W @IOF D RPTHDR(.XMLEN,.XMPAGE)
  1. . W !,$$LJ^XLFSTR($$FMTE^XLFDT($E(XMWHEN,1,12),"5Z"),XMLEN("DATE"))," ",$$LJ^XLFSTR($E(XMKN,1,XMLEN("BSKT")),XMLEN("BSKT"))," ",$J(XMZ,XMLEN("XMZ"))," ",$E($$SUBJ^XMXUTIL2(XMZREC),1,XMLEN("SUBJ"))
  1. W:$O(^XMB(3.73,"C",XMDUZ,""))="" !,$$EZBLD^DIALOG(34630) ; No Later'd Messages
  1. I $E(IOST,1,2)="C-",'XMABORT D WAIT^XMXUTIL
  1. I $D(ZTQUEUED) S ZTREQ="@"
  1. Q
  1. RPTHDR(XMLEN,XMPAGE) ;
  1. S XMPAGE=XMPAGE+1
  1. W $$EZBLD^DIALOG(34631,XMV("NAME")),?70,$$EZBLD^DIALOG(34542,XMPAGE) ; Later'd Messages Report for: / Page
  1. W !,$$LJ^XLFSTR($$EZBLD^DIALOG(34632),XMLEN("DATE"))," ",$$LJ^XLFSTR($$EZBLD^DIALOG(34011),XMLEN("BSKT"))," ",$$RJ^XLFSTR($$EZBLD^DIALOG(34633),XMLEN("XMZ"))," ",$$EZBLD^DIALOG(34002) ; Date / Basket / Msg ID / Subject
  1. W !,$$REPEAT^XLFSTR("-",79)
  1. Q
  1. DELUSER(XMDUZ) ; Delete all Later'd messages for a particular user
  1. N XMIEN
  1. S XMIEN=""
  1. F S XMIEN=$O(^XMB(3.73,"C",XMDUZ,XMIEN)) Q:XMIEN="" D DELDATE(XMIEN)
  1. Q
  1. DELDATE(XMIEN) ; Delete a particular Later'd message date
  1. N DIK
  1. S DIK="^XMB(3.73,",DA=XMIEN
  1. D ^DIK
  1. Q
  1. DELMSG(XMZ) ; Delete all Later'd dates for a particular message
  1. N XMDUZ,XMIEN
  1. S (XMDUZ,XMIEN)=""
  1. F S XMDUZ=$O(^XMB(3.73,"AC",XMZ,XMDUZ)) Q:XMDUZ="" D
  1. . F S XMIEN=$O(^XMB(3.73,"AC",XMZ,XMDUZ,XMIEN)) Q:XMIEN="" D DELDATE(XMIEN)
  1. Q
  1. LATER(XMDUZ,XMZ) ; For a particular message,
  1. ; let user edit any existing latered times or add a new one.
  1. N XMABORT,XMWHEN
  1. S XMABORT=0
  1. I $D(^XMB(3.73,"AC",XMZ,XMDUZ)) D
  1. . W @IOF
  1. . D LATER^XMJMQ1(XMDUZ,XMZ,"","","","",.XMABORT)
  1. . S XMABORT=0
  1. . N DIR,XMIEN,XMADD,XMCHG,XMDEL
  1. . S XMIEN=$O(^XMB(3.73,"AC",XMZ,XMDUZ,0))
  1. . I $O(^XMB(3.73,"AC",XMZ,XMDUZ,XMIEN)) S XMIEN=0
  1. . S XMADD=$$EZBLD^DIALOG(34634) ; A:Add another date on which this message should appear new
  1. . S XMCHG=$$EZBLD^DIALOG($S(XMIEN:34635,1:34635.1)) ; C:Change this / a date
  1. . S XMDEL=$$EZBLD^DIALOG($S(XMIEN:34636,1:34636.1)) ; D:Delete this / a date
  1. . S DIR(0)="SO^"_XMADD_";"_XMCHG_";"_XMDEL
  1. . D ^DIR I $D(DIRUT) S XMABORT=1 Q
  1. . I Y=$P(XMADD,":",1) D Q
  1. . . D LTRDATE(.XMWHEN,.XMABORT) Q:XMABORT
  1. . . D LTRADD(XMDUZ,XMZ,XMWHEN)
  1. . I 'XMIEN D WHICH(XMDUZ,XMZ,.XMIEN,.XMABORT) Q:XMABORT
  1. . I Y=$P(XMCHG,":",1) D CHGDATE(XMIEN) Q
  1. . D DELDATE(XMIEN) ; Delete this date
  1. . W $$EZBLD^DIALOG(34637) ; " ... deleted."
  1. E D
  1. . D LTRDATE(.XMWHEN,.XMABORT) Q:XMABORT
  1. . D LTRADD(XMDUZ,XMZ,XMWHEN)
  1. Q
  1. EDIT ; Change/delete later'd messages
  1. I '$D(^XMB(3.73,"C",XMDUZ)) W !!,$C(7),$$EZBLD^DIALOG(34638) Q ; You have no Later'd messages.
  1. D LTREDIT($G(XMDUZ,DUZ))
  1. Q
  1. LTREDIT(XMDUZ,XMZ) ;
  1. N X,Y,XMIEN,XMDEL,DIR,DIE,DR,DA,DIRUT,XMABORT
  1. S XMABORT=0
  1. D WHICH(XMDUZ,.XMZ,.XMIEN,.XMABORT) Q:XMABORT
  1. ; The user has chosen a record to edit (and change the later'd date)
  1. S XMDEL=$$EZBLD^DIALOG(34636) ; D:Delete this date
  1. S DIR(0)="S^"_$$EZBLD^DIALOG(34635)_";"_XMDEL ; C:Change this date
  1. D ^DIR Q:$D(DIRUT)
  1. I Y=$P(XMDEL,":",1) D Q
  1. . D DELDATE(XMIEN) ; Delete this date
  1. . W $$EZBLD^DIALOG(34637) ; " ... deleted."
  1. K DIR,X,Y,DIRUT
  1. D CHGDATE(XMIEN) ; Change this date
  1. Q
  1. WHICH(XMDUZ,XMZ,XMIEN,XMABORT) ;
  1. N DIC,D,X,Y
  1. W !
  1. S DIC="^XMB(3.73,"
  1. S DIC(0)="NEU"
  1. S D="C"
  1. I $D(XMZ) S DIC("S")="I $D(^XMB(3.73,""AC"","_XMZ_","_$G(XMDUZ,DUZ)_",Y))"
  1. E S DIC("S")="I $D(^XMB(3.73,""C"","_$G(XMDUZ,DUZ)_",Y))"
  1. S X=$G(XMDUZ,DUZ)
  1. D IX^DIC I Y=-1 S XMABORT=1 Q
  1. S XMIEN=+Y
  1. Q
  1. CHGDATE(DA) ; Change a date
  1. N DIE,DR,DIDEL
  1. S DIDEL=3.73
  1. S DIE=3.73
  1. S DR=.01
  1. D ^DIE
  1. Q
  1. LTRDATE(Y,XMABORT) ;
  1. N DIR
  1. S DIR(0)="3.73,.01"
  1. S DIR("B")="T+1"
  1. D ^DIR I $D(DIRUT) S XMABORT=1 Q
  1. Q
  1. LTRADD(XMDUZ,XMZ,XMWHEN) ;
  1. N XMFDA
  1. Q:$D(^XMB(3.73,"AB",XMWHEN,XMDUZ,XMZ)) ; Already scheduled?
  1. S XMFDA(3.73,"+1,",.01)=XMWHEN
  1. ;S XMFDA(3.73,"+1,",1)=XMDUZ Not needed, because done by trigger
  1. S XMFDA(3.73,"+1,",2)=XMZ
  1. D UPDATE^DIE("","XMFDA")
  1. Q