Return to DINITPST.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINITPST.m, revision 1.1.1.1

1.1       snw         1: DINITPST       ;SFISC/MKO-POST INIT FOR DINIT ;12/21/94  12:47
                      2:        ;;21.0;VA FileMan;;Dec 28, 1994
                      3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
                      4:        ;Deleted unneeded Dialog file entry
                      5:        N %,%Y,C,D,D0,DI,DIV,DQ
                      6:        ;
                      7:        ;Delete templates .001 and .002
                      8:        I $D(^DIE(.001)) D
                      9:        . N DIK,DA
                     10:        . S DIK="^DIE("
                     11:        . F DA=.001,.002 D ^DIK
                     12:        ;
                     13:        ;Recompile all forms
                     14:        W !
                     15:        S DDSQUIET=1 D DELALL^DDSZ K DDSQUIET
                     16:        D ALL^DDSZ
                     17:        W !!
                     18:        Q