source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINITPST.m@ 846

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

initial load of WorldVistAEHR

File size: 652 bytes
RevLine 
[613]1DINITPST ;SFISC/MKO-POST INIT FOR DINIT ;9:31 AM 23 Mar 1999
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 N %,%Y,C,D,D0,DI,DIV,DQ
5 ;
6 ;Delete ^DIPT("EX") index (also done in patch DI*21*8 in DIPOST)
7 K ^DIPT("EX")
8 ;
9 ;Delete test Dialog entries 10001,99000,99001,99002
10 N DIALOG
11 F DIALOG=10001,99000,99001,99002 D
12 . N DIK,DA
13 . Q:$D(^DI(.84,DIALOG,0))[0
14 . S DIK="^DI(.84,",DA=DIALOG D ^DIK
15 ;
16 ;Delete templates .001 and .002
17 I $D(^DIE(.001)) D
18 . N DIK,DA
19 . S DIK="^DIE("
20 . F DA=.001,.002 D ^DIK
21 ;
22 ;Recompile all forms
23 W !
24 S DDSQUIET=1 D DELALL^DDSZ K DDSQUIET
25 D ALL^DDSZ
26 W !!
27 Q
Note: See TracBrowser for help on using the repository browser.