Return to DINIT29P.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINIT29P.m, revision 1.1.1.1

1.1       snw         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