Return to DINIT29P.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DINIT29P	;SFISC/MKO-SCREENMAN POSTINIT ;11:29 AM  7 Sep 1994
    2: 	;;21.0;VA FileMan;;Dec 28, 1994
    3: 	;Per VHA Directive 10-93-142, this routine should not be modified.
    4: 	;Updated Field Type field of fields on old blocks.
    5: 	;Convert 0 or null to 3 (data dictionary field)
    6: 	N B,F
    7: 	S B=0 F  S B=$O(^DIST(.404,B)) Q:B'=+B  D
    8: 	. Q:$P($G(^DIST(.404,B,0)),U)?1"DDGF".E
    9: 	. S F=0 F  S F=$O(^DIST(.404,B,40,F)) Q:F'=+F  D
   10: 	.. Q:$D(^DIST(.404,B,40,F,0))[0
   11: 	.. S:'$P(^DIST(.404,B,40,F,0),U,3) $P(^(0),U,3)=3
   12: 	;
   13: 	;Rename two version 19 options
   14: 	I $P($G(^DIC(19,0)),U)="OPTION" D
   15: 	. D:$D(^DIC(19,"B","DDS CREATE FORM")) RENAME("DDS CREATE FORM","DDS EDIT/CREATE A FORM")
   16: 	. D:$D(^DIC(19,"B","DDS CREATE BLOCK")) RENAME("DDS CREATE BLOCK","DDS RUN A FORM")
   17: 	;
   18: 	G ^DINIT3
   19: 	;
   20: RENAME(DDSOLD,DDSNEW)	;Rename options
   21: 	N DIC,X,Y
   22: 	S DIC="^DIC(19,",DIC(0)="Z",X=DDSOLD
   23: 	D ^DIC Q:Y<0
   24: 	;
   25: 	N DIE,DA,DR
   26: 	S DIE=DIC,DA=+Y,DR=".01///"_DDSNEW
   27: 	D ^DIE
   28: 	Q
   29: 	;
   30: PRE	;ScreenMan pre-init
   31: 	;Delete old forms and blocks used by the Form Editor
   32: 	F I=1:1:6 K ^DIST(.403,".4030"_I)
   33: 	F I=1:1:8 K ^DIST(.403,".4040"_I)
   34: 	F I=11:1:13,21,22,31,41,51,61 K ^DIST(.404,".4030"_I)
   35: 	F I=11,21,31:1:34,41,42,51,52,61:1:63,71,81 K ^DIST(.404,".4040"_I)
   36: 	Q