Return to DINITPST.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINITPST.m, revision 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