Rev | Line | |
---|
[613] | 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.