|
Last change
on this file since 1474 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.
