SDWLFULZ ;;IOFO BAY PINES/TEH - CLEAN-UP ENROLLE STATUS;06/12/2002 ; 20 Aug 20022:10 PM
;;5.3;scheduling;**525**;AUG 13 1993;Build 47
;
;
;
Q
EN ;SD*5.3*525 POST INIT TO REMOVE PATCH COMPONENTS AND FILES.
;ROUTINE REMOVAL
S DIR(0)="Y",DIR("B")="NO"
W !,"This Utility will 'DELETE' all COMPONENTS of SD WAIT CLEAN-UP ENROLLEE MENU.",!
S DIR("A")="Are you sure that you wish to continue"
D ^DIR I 'Y Q
N SDWLRTN,SDWLI,SDWLR,SDWLRX
S SDWLRTN="SDWLFUL,SDWLFUL1,SDWLFUL2,SDWLFULP,SDWLFULU"
F SDWLI=1:1:5 S SDWLR=$P(SDWLRTN,",",SDWLI) D
.W !,"Removing ROUTINE: ",SDWLR
.S SDWLRX="ZR ZS @SDWLR" X SDWLRX
W !!,"Routine deletion completed."
;REMOVE ^TMP("SDWLFUL") TMP("SDWLFUL1")
W !,"File Deletion"
K ^DISV(DUZ) S ^DISV(DUZ,"^DIC(")=409.39
D ^DIU
W !,"Deleting ^XTMP(""SDWLFUL"")" K ^XTMP("SDWLFUL")
W !,"Deleting ^XTMP(""SDWLFUL1"")" K ^XTMP("SDWLFUL1")
W !,"Deleting ^XTMP(""SDWLFULSTAT"")" K ^XTMP("SDWLFULSTAT")
W !!,"Deleting SD WAIT CLEAN-UP ENROLLEE MENU"
K DA,Y
S DA=$$FIND1^DIC(19,"","MX","SD WAIT CLEAN-UP ENROLLEE MENU","","","ERR")
I 'DA W !!,"Error unable to delete MENU." Q
S DIK="^DIC(19," D ^DIK
W !!,"SD WAIT CLEAN-UP ENROLLEE MENU deleted."
K DIC,DIR,DA,DIK
D MESS W !!,"Deletion completed."
Q
MESS ;SENT MESSAGE TO FORUM
N XMSUB,XMY,XMTEXT,XMDUZ,SDWLMSG,SDWLI,XQSUB,Y
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 XMSUB="Patch components for SD*5.3*525 removed."
S XQSUB="Components for SD*5.3*525 removed."
S XMTEXT="SDWLMSG(",XMDUZ="POSTMASTER"
S SDWLIN=$$GET1^DIQ(4,DUZ(2)_",",.01,,)
S SDWLMSG(1,0)="EWL PATCH COMPONENTS FOR SD*5.3*525 HAVE BEEN REMOVED "_SDWLIN
S Y=DT D DD^%DT
S SDWLMSG(2,0)="At "_Y
S SDWLMSG(3,0)=" EWL Patch components for SD*5.3*525 have been removed."
S SDWLMSG(4,0)="",SDWLMSG(0)=4
D ^XMD K SDWLIN
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDWLFULZ 1985 printed Nov 22, 2024@18:12:35 Page 2
SDWLFULZ ;;IOFO BAY PINES/TEH - CLEAN-UP ENROLLE STATUS;06/12/2002 ; 20 Aug 20022:10 PM
+1 ;;5.3;scheduling;**525**;AUG 13 1993;Build 47
+2 ;
+3 ;
+4 ;
+5 QUIT
EN ;SD*5.3*525 POST INIT TO REMOVE PATCH COMPONENTS AND FILES.
+1 ;ROUTINE REMOVAL
+2 SET DIR(0)="Y"
SET DIR("B")="NO"
+3 WRITE !,"This Utility will 'DELETE' all COMPONENTS of SD WAIT CLEAN-UP ENROLLEE MENU.",!
+4 SET DIR("A")="Are you sure that you wish to continue"
+5 DO ^DIR
IF 'Y
QUIT
+6 NEW SDWLRTN,SDWLI,SDWLR,SDWLRX
+7 SET SDWLRTN="SDWLFUL,SDWLFUL1,SDWLFUL2,SDWLFULP,SDWLFULU"
+8 FOR SDWLI=1:1:5
SET SDWLR=$PIECE(SDWLRTN,",",SDWLI)
Begin DoDot:1
+9 WRITE !,"Removing ROUTINE: ",SDWLR
+10 SET SDWLRX="ZR ZS @SDWLR"
XECUTE SDWLRX
End DoDot:1
+11 WRITE !!,"Routine deletion completed."
+12 ;REMOVE ^TMP("SDWLFUL") TMP("SDWLFUL1")
+13 WRITE !,"File Deletion"
+14 KILL ^DISV(DUZ)
SET ^DISV(DUZ,"^DIC(")=409.39
+15 DO ^DIU
+16 WRITE !,"Deleting ^XTMP(""SDWLFUL"")"
KILL ^XTMP("SDWLFUL")
+17 WRITE !,"Deleting ^XTMP(""SDWLFUL1"")"
KILL ^XTMP("SDWLFUL1")
+18 WRITE !,"Deleting ^XTMP(""SDWLFULSTAT"")"
KILL ^XTMP("SDWLFULSTAT")
+19 WRITE !!,"Deleting SD WAIT CLEAN-UP ENROLLEE MENU"
+20 KILL DA,Y
+21 SET DA=$$FIND1^DIC(19,"","MX","SD WAIT CLEAN-UP ENROLLEE MENU","","","ERR")
+22 IF 'DA
WRITE !!,"Error unable to delete MENU."
QUIT
+23 SET DIK="^DIC(19,"
DO ^DIK
+24 WRITE !!,"SD WAIT CLEAN-UP ENROLLEE MENU deleted."
+25 KILL DIC,DIR,DA,DIK
+26 DO MESS
WRITE !!,"Deletion completed."
+27 QUIT
MESS ;SENT MESSAGE TO FORUM
+1 NEW XMSUB,XMY,XMTEXT,XMDUZ,SDWLMSG,SDWLI,XQSUB,Y
+2 SET XMY("DERDERIAN.JOHN@DOMAIN.EXT")=""
+3 SET XMY("HOUTCHENS.THOMAS@DOMAIN.EXT")=""
+4 SET XMY("BROWN.BONNIE@DOMAIN.EXT")=""
+5 SET XMY("KROCHMAL.CHUCK@DOMAIN.EXT")=""
+6 SET XMY("TAPPER.BRIAN@DOMAIN.EXT")=""
+7 SET XMSUB="Patch components for SD*5.3*525 removed."
+8 SET XQSUB="Components for SD*5.3*525 removed."
+9 SET XMTEXT="SDWLMSG("
SET XMDUZ="POSTMASTER"
+10 SET SDWLIN=$$GET1^DIQ(4,DUZ(2)_",",.01,,)
+11 SET SDWLMSG(1,0)="EWL PATCH COMPONENTS FOR SD*5.3*525 HAVE BEEN REMOVED "_SDWLIN
+12 SET Y=DT
DO DD^%DT
+13 SET SDWLMSG(2,0)="At "_Y
+14 SET SDWLMSG(3,0)=" EWL Patch components for SD*5.3*525 have been removed."
+15 SET SDWLMSG(4,0)=""
SET SDWLMSG(0)=4
+16 DO ^XMD
KILL SDWLIN
+17 QUIT
