STANDARD DATA DICTIONARY #3.73 -- MESSAGES TO BE NEW AT A LATER DATE FILE 3/24/25 PAGE 1
STORED IN ^XMB(3.73, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 8.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file holds entries that are processed by a special MailMan job that makes messages new for people at scheduled dates and
times.
APPLICATION GROUP(S): XM
IDENTIFIED BY: MESSAGE (#2)[R]
CROSS
REFERENCED BY: MESSAGE(AB), DATE MESSAGE WILL BE NEW(AB1), MESSAGE(AC), USER(C)
3.73,.01 DATE MESSAGE WILL BE NEW 0;1 DATE (Required)
Date Message Will Be New
INPUT TRANSFORM: S %DT(0)="NOW",%DT="ETF" D ^%DT K %DT(0) S X=Y K:Y<1 X
LAST EDITED: NOV 16, 2000
HELP-PROMPT: Enter a date or date @ time on which you wish this message to be new.
DESCRIPTION: This field should be in FileMan format. The file will be X-referenced by it and the background
filer will process it on that date.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: ^^TRIGGER^3.73^1
1)= X ^DD(3.73,.01,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^XMB(3.73,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X
=X S DIU=X K Y S X=DIV S X=$S($D(XMDUZ):XMDUZ,1:DUZ) X ^DD(3.73,.01,1,1,1.4)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^XMB(3.73,D0,0)):^(0),1:"") S X=$S('$D(^V
A(200,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1))=""
1.4)= S DIH=$S($D(^XMB(3.73,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=3.73,DIG=1 D ^DICR:$
O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE CONDITION)= USER=""
CREATE VALUE)= S X=$S($D(XMDUZ):XMDUZ,1:DUZ)
DELETE VALUE)= NO EFFECT
FIELD)= USER
This trigger fills in field 1, USER, with the DUZ of the user whose message is to be latered.
CROSS-REFERENCE: 3.73^AB1^MUMPS
1)= N XMDUZ,XMZ,XMREC S XMREC=$G(^XMB(3.73,DA,0)),XMDUZ=$P(XMREC,U,2),XMZ=$P(XMREC,U,3) I XMZ]"" S
^XMB(3.73,"AB",X,XMDUZ,XMZ,DA)=""
2)= N XMDUZ,XMZ,XMREC S XMREC=$G(^XMB(3.73,DA,0)),XMDUZ=$P(XMREC,U,2),XMZ=$P(XMREC,U,3) I XMZ]"" K
^XMB(3.73,"AB",X,XMDUZ,XMZ,DA)
This xref activates when a user changes the date/time that a message is latered.
3.73,1 USER 0;2 POINTER TO NEW PERSON FILE (#200) (Required)
LAST EDITED: JUN 18, 1991
DESCRIPTION:
This field indicates the user for whom the message will be later'd.
SCREEN: S DIC("S")="I $S($D(XMDUZ):XMDUZ,$D(DUZ):DUZ,1:"""")=Y,$D(^XMB(3.7,Y))"
EXPLANATION: The user must have a mailbox and may only choose himself.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the DATE MESSAGE WILL BE NEW field of the MESSAGES TO BE NEW AT A LATER DATE File
CROSS-REFERENCE: 3.73^C
1)= S ^XMB(3.73,"C",$E(X,1,30),DA)=""
2)= K ^XMB(3.73,"C",$E(X,1,30),DA)
3)= This cross reference is used to drive the Later'd Messages Report. Do not delete.
SEE NO-DELETION MESSAGE.
3.73,2 MESSAGE 0;3 POINTER TO MESSAGE FILE (#3.9) (Required)
INPUT TRANSFORM: S DIC("S")="I $D(^XMB(3.9,X,0)),$P(^(0),U,2)=$S($D(XMDUZ):XMDUZ,1:DUZ)!$D(^XMB(3.9,X,1,""C"",$S($D(
XMDUZ):XMDUZ,1:DUZ)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JAN 18, 1990
DESCRIPTION:
This field indicates which message is to appear NEW at a later date.
SCREEN: S DIC("S")="I $D(^XMB(3.9,X,0)),$P(^(0),U,2)=$S($D(XMDUZ):XMDUZ,1:DUZ)!$D(^XMB(3.9,X,1,""C"",$S($D(
XMDUZ):XMDUZ,1:DUZ)))"
EXPLANATION: The user must be either the sender or the recipient of the message.
CROSS-REFERENCE: 3.73^AB^MUMPS
1)= S %=^XMB(3.73,DA,0),^XMB(3.73,"AB",+%,$P(%,U,2),X,DA)="" K %
2)= S %=^XMB(3.73,DA,0) K ^XMB(3.73,"AB",+%,$P(%,U,2),X,DA),%
This cross reference keeps track of the dates on which messages are scheduled to become new. Each
message may have many such dates.
CROSS-REFERENCE: 3.73^AC^MUMPS
1)= S %=^XMB(3.73,DA,0) S ^XMB(3.73,"AC",$P(%,U,3),$P(%,U,2),DA)="" K %
2)= S %=^XMB(3.73,DA,0) K ^XMB(3.73,"AC",$P(%,U,3),$P(%,U,2),DA),%
This cross reference keeps track of messages which are scheduled to become new for a particular
mail box (user).
FILES POINTED TO FIELDS
MESSAGE (#3.9) MESSAGE (#2)
NEW PERSON (#200) USER (#1)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):