SDWLFULZ.m

SDWLFULZ ;;IOFO BAY PINES/TEH - CLEAN-UP ENROLLE STATUS;06/12/2002 ; 20 Aug 20022:10 PM

 ;;5.3;scheduling;**525,1015**;AUG 13 1993;Build 21

 ;

 ;

 ;

 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@FORUM.VA.GOV")=""

 S XMY("HOUTCHENS.THOMAS@FORUM.VA.GOV")=""

 S XMY("BROWN.BONNIE@FORUM.VA.GOV")=""

 S XMY("KROCHMAL.CHUCK@FORUM.VA.GOV")=""

 S XMY("TAPPER.BRIAN@FORUM.VA.GOV")=""

 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

SDWLFULZ  ;;IOFO BAY PINES/TEH - CLEAN-UP ENROLLE STATUS;06/12/2002 ; 20 Aug 20022:10 PM

 +1       ;;5.3;scheduling;**525,1015**;AUG 13 1993;Build 21

 +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@FORUM.VA.GOV")=""

 +3        SET XMY("HOUTCHENS.THOMAS@FORUM.VA.GOV")=""

 +4        SET XMY("BROWN.BONNIE@FORUM.VA.GOV")=""

 +5        SET XMY("KROCHMAL.CHUCK@FORUM.VA.GOV")=""

 +6        SET XMY("TAPPER.BRIAN@FORUM.VA.GOV")=""

 +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