Return to DINITPST.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

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