Global: ^XMB(3.73

FileMan FileNo	FileMan Filename	Package
3.73	MESSAGES TO BE NEW AT A LATER DATE	MailMan

Directly Accessed By Routines, Total: 8

Package	Total	Routines
MailMan	8	XMA30 XMA32A XMJMD XMJMP1 XMJMQ1 XMTDT XMUTERM2 ^XMB(3.73

Accessed By FileMan Db Calls, Total: 4

Package	Total	Routines
MailMan	4	XMA32A XMJMD XMTDT XMUTERM2

Pointer To FileMan Files, Total: 2

Package	Total	FileMan Files
Kernel	1	NEW PERSON(#200)[1]
MailMan	1	MESSAGE(#3.9)[2]

Fields, Total: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DATE MESSAGE WILL BE NEW	0;1	DATE	**********************REQUIRED FIELD********************** 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(^VA(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.
1	USER	0;2	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) 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.
2	MESSAGE	0;3	POINTER TO MESSAGE FILE (#3.9)	**********************REQUIRED FIELD********************** MESSAGE(#3.9) 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).

.01

DATE MESSAGE WILL BE NEW

0;1

DATE

************************REQUIRED FIELD************************

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(^VA(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.

1

USER

0;2

POINTER TO NEW PERSON FILE (#200)

************************REQUIRED FIELD************************

NEW PERSON(#200)

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.

2

MESSAGE

0;3

POINTER TO MESSAGE FILE (#3.9)

************************REQUIRED FIELD************************

MESSAGE(#3.9)

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).

External References

Name	Field # of Occurrence
^%DT	.01+1
^DIC	2+1
^DICR	.01(XREF 1n1.4)
Y^DIQ	ID2+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	.01(XREF 1n1.4)
^DD(3.73	.01(XREF 1S)
^DD(3.9	ID2+1
^VA(200 - [#200]	.01(XREF 1n1.3)
^XMB(3.73 - [#3.73]	.01(XREF 1S), .01(XREF 1n1.3), .01(XREF 1n1.4), .01(XREF 2S), .01(XREF 2K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 2(XREF 2S) , 2(XREF 2K)
^XMB(3.9 - [#3.9]	ID2+1

Naked Globals

Name	Field # of Occurrence
^(0	ID2+1, .01(XREF 1S), .01(XREF 1n1.3), .01(XREF 1n1.4)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K)
>> %DT	.01+1*
>> %DT(0	.01+1*!
%I	ID2+1*!
>> C	ID2+1*
>> D0	.01(XREF 1S), .01(XREF 1n1.3)
>> DA	.01(XREF 1n1.3), .01(XREF 2S), .01(XREF 2K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K)
DIC	ID2+1, 2+1!*
DIC("S"	1SCR+1, 2+1, 2SCR+1*
>> DIE	2+1
>> DIG	.01(XREF 1n1.4)
>> DIH	.01(XREF 1n1.4)
>> DIU	.01(XREF 1S)
DIV	.01(XREF 1S), .01(XREF 1n1.3), .01(XREF 1n1.4)
DIV(0	.01(XREF 1n1.3), .01(XREF 1n1.4)
DUZ	.01(XREF 1S)
U	ID2+1, .01(XREF 1S), .01(XREF 1n1.3), .01(XREF 1n1.4), .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K)
X	.01+1!, .01(XREF 1S), .01(XREF 1n1.3), .01(XREF 1n1.4), .01(XREF 2S), .01(XREF 2K), 1(XREF 1S), 1(XREF 1K), 2+1!, 2(XREF 1S) , 2(XREF 1K)
XMDUZ	.01(XREF 1S), .01(XREF 2S), .01(XREF 2K)
XMREC	.01(XREF 2S), .01(XREF 2K)
XMZ	.01(XREF 2S), .01(XREF 2K)
Y	ID2+1*, .01+1, .01(XREF 1S), 2+1
Y(0	.01(XREF 1n1.3)
Y(1	.01(XREF 1S), .01(XREF 1n1.3)

Customize PDF page

Package: MailMan

Global: ^XMB(3.73

Information

Description

Directly Accessed By Routines, Total: 8

Accessed By FileMan Db Calls, Total: 4

Pointer To FileMan Files, Total: 2

Fields, Total: 3

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: