Return to DINIT29P.m CVS log

Up to [Coherent Logic Development] / freem_fileman

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