Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^XMB(3.73

Package: MailMan

Global: ^XMB(3.73


Information

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

Description

Directly Accessed By Routines, Total: 8

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

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
.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)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All