source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDWLFULZ.m@ 1093

Last change on this file since 1093 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1SDWLFULZ ;;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
7EN ;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
35MESS ;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
Note: See TracBrowser for help on using the repository browser.