SDWLFULU ;;IOFO BAY PINES/TEH - SAVE/RESTORE UTILITY FOR ENROLLE STATUS;06/12/2002 ; 20 Aug 2002 2:10 PM
;;5.3;scheduling;**525**;AUG 13 1993;Build 47
;
;
;
;
;
;
Q
EN D HD
W !!
S DIR(0)="SA^B:BACKUP;R:RESTORE"
S DIR("A")="(B)ackup or (R)estore " D ^DIR
I X["^" Q
I X["b" D BACKUP
I X["B" D BACKUP
I X["R" D RESTORE
I X["r" D RESTORE
I X="" Q
END K DA,DIE,DIR,DR,SDWLE,SDWLX,X,SDWLEE
Q
BACKUP ;
;CHECK FOR RUN STATUS
S Y=1 I $D(^XTMP("SDWLFULSTAT",$J,"1B")) W !,"This option has already been run." D I Y D RESTART G EN0
.S DIR(0)="Y",DIR("A")="Do you want to re-run all options",DIR("B")="N" D ^DIR
.I X["^" S Y=0 Q
.I X["Y"!(X["y") S Y=1 Q
.S Y=0
I 'Y Q
EN0 K ^XTMP("409.3")
S SDWLX=0 F S SDWLX=$O(^SDWL(409.3,SDWLX)) Q:SDWLX<1 D
.S SDWLE=$G(^SDWL(409.3,SDWLX,0)) Q:SDWLE="" D
..S SDWLEE=$P(SDWLE,U,20)
..S ^XTMP("409.3",SDWLX)=SDWLEE
W !!,"Backup Completed in ^XTMP(""409.3"")"
S ^XTMP("SDWLFULSTAT",$J,"1B")=""
Q
RESTORE ;
;CHECK RUN STATUS
I '$D(^XTMP("SDWLFULSTAT",$J,"1B")) W !,"Must run BACK-UP before RESTORE." Q
I '$D(^XTMP("409.3")) W !,"Nothing to Restore." Q
S SDWLX=0,SDWLCNT=0 F S SDWLX=$O(^XTMP("409.3",SDWLX)) Q:SDWLX<1 D
.S SDWLCNT=SDWLCNT+1
.S SDWLE=$G(^XTMP("409.3",SDWLX))
.S DR="27////^S X=SDWLE",DIE="^SDWL(409.3,",DA=SDWLX D ^DIE
W !!,"Restore Completed" D MESS
K SDWLCNT S ^XTMP("SDWLFULSTAT",$J,"1R")=""
Q
MESS ;
N XMSUB,XMY,XMTEXT,XMDUZ,SDWLMSG,SDWLI,SDWLIN,XQSUB,Y
S XMY("BENBOW.PHYLLIS2@DOMAIN.EXT")=""
S XMY("DERDERIAN.JOHN@DOMAIN.EXT")=""
S XMY("HOUTCHENS.THOMAS@DOMAIN.EXT")=""
S XMY("BROWN.BONNIE@DOMAIN.EXT")=""
S XMY("KROCHMAL.CHUCK@DOMAIN.EXT")=""
S XMY("TAPPER.BRIAN@DOMAIN.EXT")=""
S XMY("LANDRIE.LARRY@DOMAIN.EXT")=""
S XMY("TOWSON.LINDA@DOMAIN.EXT")=""
S XMSUB="Patch SD*5.3*525 restored."
S XMTEXT="SDWLMSG(",XMDUZ="POSTMASTER"
S SDWLIN=$$GET1^DIQ(4,DUZ(2)_",",.01,,)
S SDWLMSG(1,0)="A RESTORE has been performed on patch SD*5.3*525 at "_SDWLIN
S Y=DT D DD^%DT
S SDWLMSG(2,0)="At "_Y
S SDWLMSG(3,0)=SDWLCNT_"Records had the EWL Enrollee Status restored to pre-patch values."
S SDWLMSG(4,0)="",SDWLMSG(0)=4
D ^XMD
Q
HD W:$D(IOF) @IOF W !,?80-$L("SD WAIT LIST file save/restore utility")\2,"EWL WAIT LIST save/restore utility"
Q
RESTART ;
S DIR(0)="Y",DIR("A")="Are you absolutely sure you want to restart this process"
D ^DIR I X["^" Q
I X["Y"!(X["y") K ^XTMP("SDWLFULSTAT") Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDWLFULU 2465 printed Sep 23, 2025@20:39:32 Page 2
SDWLFULU ;;IOFO BAY PINES/TEH - SAVE/RESTORE UTILITY FOR ENROLLE STATUS;06/12/2002 ; 20 Aug 2002 2:10 PM
+1 ;;5.3;scheduling;**525**;AUG 13 1993;Build 47
+2 ;
+3 ;
+4 ;
+5 ;
+6 ;
+7 ;
+8 QUIT
EN DO HD
+1 WRITE !!
+2 SET DIR(0)="SA^B:BACKUP;R:RESTORE"
+3 SET DIR("A")="(B)ackup or (R)estore "
DO ^DIR
+4 IF X["^"
QUIT
+5 IF X["b"
DO BACKUP
+6 IF X["B"
DO BACKUP
+7 IF X["R"
DO RESTORE
+8 IF X["r"
DO RESTORE
+9 IF X=""
QUIT
END KILL DA,DIE,DIR,DR,SDWLE,SDWLX,X,SDWLEE
+1 QUIT
BACKUP ;
+1 ;CHECK FOR RUN STATUS
+2 SET Y=1
IF $DATA(^XTMP("SDWLFULSTAT",$JOB,"1B"))
WRITE !,"This option has already been run."
Begin DoDot:1
+3 SET DIR(0)="Y"
SET DIR("A")="Do you want to re-run all options"
SET DIR("B")="N"
DO ^DIR
+4 IF X["^"
SET Y=0
QUIT
+5 IF X["Y"!(X["y")
SET Y=1
QUIT
+6 SET Y=0
End DoDot:1
IF Y
DO RESTART
GOTO EN0
+7 IF 'Y
QUIT
EN0 KILL ^XTMP("409.3")
+1 SET SDWLX=0
FOR
SET SDWLX=$ORDER(^SDWL(409.3,SDWLX))
if SDWLX<1
QUIT
Begin DoDot:1
+2 SET SDWLE=$GET(^SDWL(409.3,SDWLX,0))
if SDWLE=""
QUIT
Begin DoDot:2
+3 SET SDWLEE=$PIECE(SDWLE,U,20)
+4 SET ^XTMP("409.3",SDWLX)=SDWLEE
End DoDot:2
End DoDot:1
+5 WRITE !!,"Backup Completed in ^XTMP(""409.3"")"
+6 SET ^XTMP("SDWLFULSTAT",$JOB,"1B")=""
+7 QUIT
RESTORE ;
+1 ;CHECK RUN STATUS
+2 IF '$DATA(^XTMP("SDWLFULSTAT",$JOB,"1B"))
WRITE !,"Must run BACK-UP before RESTORE."
QUIT
+3 IF '$DATA(^XTMP("409.3"))
WRITE !,"Nothing to Restore."
QUIT
+4 SET SDWLX=0
SET SDWLCNT=0
FOR
SET SDWLX=$ORDER(^XTMP("409.3",SDWLX))
if SDWLX<1
QUIT
Begin DoDot:1
+5 SET SDWLCNT=SDWLCNT+1
+6 SET SDWLE=$GET(^XTMP("409.3",SDWLX))
+7 SET DR="27////^S X=SDWLE"
SET DIE="^SDWL(409.3,"
SET DA=SDWLX
DO ^DIE
End DoDot:1
+8 WRITE !!,"Restore Completed"
DO MESS
+9 KILL SDWLCNT
SET ^XTMP("SDWLFULSTAT",$JOB,"1R")=""
+10 QUIT
MESS ;
+1 NEW XMSUB,XMY,XMTEXT,XMDUZ,SDWLMSG,SDWLI,SDWLIN,XQSUB,Y
+2 SET XMY("BENBOW.PHYLLIS2@DOMAIN.EXT")=""
+3 SET XMY("DERDERIAN.JOHN@DOMAIN.EXT")=""
+4 SET XMY("HOUTCHENS.THOMAS@DOMAIN.EXT")=""
+5 SET XMY("BROWN.BONNIE@DOMAIN.EXT")=""
+6 SET XMY("KROCHMAL.CHUCK@DOMAIN.EXT")=""
+7 SET XMY("TAPPER.BRIAN@DOMAIN.EXT")=""
+8 SET XMY("LANDRIE.LARRY@DOMAIN.EXT")=""
+9 SET XMY("TOWSON.LINDA@DOMAIN.EXT")=""
+10 SET XMSUB="Patch SD*5.3*525 restored."
+11 SET XMTEXT="SDWLMSG("
SET XMDUZ="POSTMASTER"
+12 SET SDWLIN=$$GET1^DIQ(4,DUZ(2)_",",.01,,)
+13 SET SDWLMSG(1,0)="A RESTORE has been performed on patch SD*5.3*525 at "_SDWLIN
+14 SET Y=DT
DO DD^%DT
+15 SET SDWLMSG(2,0)="At "_Y
+16 SET SDWLMSG(3,0)=SDWLCNT_"Records had the EWL Enrollee Status restored to pre-patch values."
+17 SET SDWLMSG(4,0)=""
SET SDWLMSG(0)=4
+18 DO ^XMD
+19 QUIT
HD if $DATA(IOF)
WRITE @IOF
WRITE !,?80-$LENGTH("SD WAIT LIST file save/restore utility")\2,"EWL WAIT LIST save/restore utility"
+1 QUIT
RESTART ;
+1 SET DIR(0)="Y"
SET DIR("A")="Are you absolutely sure you want to restart this process"
+2 DO ^DIR
IF X["^"
QUIT
+3 IF X["Y"!(X["y")
KILL ^XTMP("SDWLFULSTAT")
QUIT
+4 QUIT
