Return to DINITPST.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    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