| 1 | SDWLFULZ ;;IOFO BAY PINES/TEH - CLEAN-UP ENROLLE STATUS;06/12/2002 ; 20 Aug 20022:10 PM
|
|---|
| 2 | ;;5.3;scheduling;**525**;AUG 13 1993;Build 47
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | ;
|
|---|
| 6 | Q
|
|---|
| 7 | EN ;SD*5.3*525 POST INIT TO REMOVE PATCH COMPONENTS AND FILES.
|
|---|
| 8 | ;ROUTINE REMOVAL
|
|---|
| 9 | S DIR(0)="Y",DIR("B")="NO"
|
|---|
| 10 | W !,"This Utility will 'DELETE' all COMPONENTS of SD WAIT CLEAN-UP ENROLLEE MENU.",!
|
|---|
| 11 | S DIR("A")="Are you sure that you wish to continue"
|
|---|
| 12 | D ^DIR I 'Y Q
|
|---|
| 13 | N SDWLRTN,SDWLI,SDWLR,SDWLRX
|
|---|
| 14 | S SDWLRTN="SDWLFUL,SDWLFUL1,SDWLFUL2,SDWLFULP,SDWLFULU"
|
|---|
| 15 | F SDWLI=1:1:5 S SDWLR=$P(SDWLRTN,",",SDWLI) D
|
|---|
| 16 | .W !,"Removing ROUTINE: ",SDWLR
|
|---|
| 17 | .S SDWLRX="ZR ZS @SDWLR" X SDWLRX
|
|---|
| 18 | W !!,"Routine deletion completed."
|
|---|
| 19 | ;REMOVE ^TMP("SDWLFUL") TMP("SDWLFUL1")
|
|---|
| 20 | W !,"File Deletion"
|
|---|
| 21 | K ^DISV(DUZ) S ^DISV(DUZ,"^DIC(")=409.39
|
|---|
| 22 | D ^DIU
|
|---|
| 23 | W !,"Deleting ^XTMP(""SDWLFUL"")" K ^XTMP("SDWLFUL")
|
|---|
| 24 | W !,"Deleting ^XTMP(""SDWLFUL1"")" K ^XTMP("SDWLFUL1")
|
|---|
| 25 | W !,"Deleting ^XTMP(""SDWLFULSTAT"")" K ^XTMP("SDWLFULSTAT")
|
|---|
| 26 | W !!,"Deleting SD WAIT CLEAN-UP ENROLLEE MENU"
|
|---|
| 27 | K DA,Y
|
|---|
| 28 | S DA=$$FIND1^DIC(19,"","MX","SD WAIT CLEAN-UP ENROLLEE MENU","","","ERR")
|
|---|
| 29 | I 'DA W !!,"Error unable to delete MENU." Q
|
|---|
| 30 | S DIK="^DIC(19," D ^DIK
|
|---|
| 31 | W !!,"SD WAIT CLEAN-UP ENROLLEE MENU deleted."
|
|---|
| 32 | K DIC,DIR,DA,DIK
|
|---|
| 33 | D MESS W !!,"Deletion completed."
|
|---|
| 34 | Q
|
|---|
| 35 | MESS ;SENT MESSAGE TO FORUM
|
|---|
| 36 | N XMSUB,XMY,XMTEXT,XMDUZ,SDWLMSG,SDWLI,XQSUB,Y
|
|---|
| 37 | S XMY("DERDERIAN.JOHN@FORUM.VA.GOV")=""
|
|---|
| 38 | S XMY("HOUTCHENS.THOMAS@FORUM.VA.GOV")=""
|
|---|
| 39 | S XMY("BROWN.BONNIE@FORUM.VA.GOV")=""
|
|---|
| 40 | S XMY("KROCHMAL.CHUCK@FORUM.VA.GOV")=""
|
|---|
| 41 | S XMY("TAPPER.BRIAN@FORUM.VA.GOV")=""
|
|---|
| 42 | S XMSUB="Patch components for SD*5.3*525 removed."
|
|---|
| 43 | S XQSUB="Components for SD*5.3*525 removed."
|
|---|
| 44 | S XMTEXT="SDWLMSG(",XMDUZ="POSTMASTER"
|
|---|
| 45 | S SDWLIN=$$GET1^DIQ(4,DUZ(2)_",",.01,,)
|
|---|
| 46 | S SDWLMSG(1,0)="EWL PATCH COMPONENTS FOR SD*5.3*525 HAVE BEEN REMOVED "_SDWLIN
|
|---|
| 47 | S Y=DT D DD^%DT
|
|---|
| 48 | S SDWLMSG(2,0)="At "_Y
|
|---|
| 49 | S SDWLMSG(3,0)=" EWL Patch components for SD*5.3*525 have been removed."
|
|---|
| 50 | S SDWLMSG(4,0)="",SDWLMSG(0)=4
|
|---|
| 51 | D ^XMD K SDWLIN
|
|---|
| 52 | Q
|
|---|
