Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields
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

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).
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields