Last change
on this file since 1078 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
652 bytes
|
Line | |
---|
1 | DINITPST ;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.