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

XMUT1.m

Go to the documentation of this file.
  1. XMUT1 ;(WASH ISC)/CAP-Recover msgs for a user ;04/17/2002 11:49
  1. ;;8.0;MailMan;;Jun 28, 2002
  1. ; Entry points used by MailMan options (not covered by DBIA):
  1. ; A XMUT-REC-FIND
  1. ; G XMUT-REC-DELIVER
  1. Q
  1. A ;
  1. W !!,"WE WILL FIND THE MESSAGES AND STORE THEM IN ^TMP('XMUT1'..."
  1. W !,"LATER WE WILL LOAD THEM INTO PERSON'S MAILBOX.",!!
  1. W !!,"This routine recovers 'ALL' messages that the user has not been"
  1. W !,"terminated from. It will not recover some messages that were"
  1. W !,"sent after reinstatement if the user previously lost Mail-Baskets."
  1. S DIR(0)="Y",DIR("B")="N",DIR("A")="THIS MAY TAKE A LONG TIME.... DO YOU WISH TO CONTINUE" D ^DIR K DIR,DIRUT G EXIT:"yY"'[$E(X)!(X="")
  1. S XMA0=^DD("DD")
  1. B S DIC("A")="Enter the USER for whom you wish to recover messages: "
  1. S DIC="^VA(200,",DIC(0)="AEQZM" D ^DIC
  1. K DIC I "^"[$E(X) G EXIT
  1. I Y<1 W !,"Enter '^' to abort or a Valid User who has a Mailbox." G B
  1. I '$D(^XMB(3.7,+Y,2,1,0)) W $C(7),"You cannot recover messages for this user (no Mailbox)." G B
  1. S XMC0=+Y,XMB0=Y(0) K Y
  1. S DIR(0)="Y",DIR("B")="NO",DIR("A")="DO YOU MEAN '"_$P(XMB0,"^")_"' "
  1. D ^DIR K DIR,DIRUT I "Yy"'[$E(X)!(X="") G B
  1. S (F,A,G)=0,D=XMC0 K XMC0
  1. W !!,"*=100 MESSAGES PROCESSED",!!
  1. L S A=$O(^XMB(3.7,"M",A)) G Q:'A,L:$D(^(A,D)) S G=G+1 W:G#100=0 "*" S E=$O(^XMB(3.9,A,1,"C",D,0)) G L:'E,L:$D(^XMB(3.9,A,1,E,"D"))
  1. S F=F+1,X=^XMB(3.9,A,0),^TMP("XMUT1",D,A)=X W !,$P(X,"^"),!
  1. G L
  1. Q W !!,G," MESSAGES PROCESSED, ",F," MESSAGES FOUND"
  1. K %1,A,D,E,F,G,X,XMA0,XMB0,Y,Z,%,%H,%DT
  1. Q
  1. QQ S (A,G,F)=0,C=1,XMA0=^DD("DD") H 3600 D L G H^XUS
  1. ;
  1. G ;LOAD DOCUMENTS FOUND INTO USER'S 'IN' BOX
  1. S (J,C,F)="" W !!,"CHOOSE FROM:",!
  1. F I=0:0 S I=$O(^TMP("XMUT1",I)) Q:'I I $D(^VA(200,I,0)) W !,$J(I,8)," ",$$NAME^XMXUTIL(I) I 'J S J=I
  1. I 'J W !!!,"NONE RECOVERED FOR ANYBODY !!!" K C,F,I,J,X Q
  1. F W !!,"WHICH ONE: ",J,"// " R X:DTIME I X="" S X=J
  1. G E:"^"[$E(X) I X="?" D H1^XMUT1A G F
  1. I X="??" G G
  1. S D=X I '$D(^TMP("XMUT1",D)) W " << NOT ON LIST !!!",$C(7) G G
  1. W !!,"RECOVERING MESSAGES ('+'=RECOVERED, '.'=MESSAGE PROCESSED)",!!
  1. S D=X,(C,F)=0
  1. P S A=$O(^TMP("XMUT1",D,0)) G QQQ:'A W "." I $X>77 W !
  1. S C=C+1 W "+" G T:$D(^XMB(3.7,"M",A,D)),T:'$D(^XMB(3.9,A))
  1. S F=F+1
  1. L +^XMB(3.7,D)
  1. D PUTMSG^XMXMSGS2(D,1,"IN",A)
  1. L -^XMB(3.7,D)
  1. T K ^TMP("XMUT1",D,A) G P
  1. QQQ W !!,C," POTENTIAL ENTRIES PROCESSED. ",F," MESSAGES RECOVERED.",!!
  1. E K %,%1,A,C,D,F,I,J,Y,Z,%H
  1. Q
  1. EXIT K X1,X2
  1. Q
  1. ;
  1. ;LIST MESSAGES IN MAILBOXES OF DUZ
  1. M G MBOX^XMJBL
  1. Q