Return to DINIT6.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINIT6.m, revision 1.1

1.1     ! snw         1: DINIT6 ;SFISC/XAK-INITIALIZE VA FILEMAN ;9/1/94  11:17
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4:        I $D(^DD("OS"))[0 D OS^DINIT
        !             5:        W !!,"The following files have been installed:",!
        !             6:        F X=0:0 S X=$O(^DIC(X)) Q:X>1.9999  Q:'X  W $E("   ",1,(3-$L($P(X,"."))))_X,?8,$P($G(^DIC(X,0)),U),! S ^DD(X,0,"VR")=VERSION
        !             7:        S ^DD("VERSION")=VERSION,X=^DD("OS",^DD("OS"),0)
        !             8:        S ^DD("SUB")=$P(X,U,3),^("ROU")=$P(X,U,4)
        !             9:        D 1
        !            10:        D ^DINITPST
        !            11: E      W !,"INITIALIZATION COMPLETED IN "_($P($H,",",2)-DIT)_" SECONDS."
        !            12:        D KL Q
        !            13:        ;
        !            14: 1      N DIT
        !            15:        D KL,PKG,DIINIT
        !            16:        Q
        !            17:        ;
        !            18: KL     K %,%H,%X,%Y,DD,DH,DIC,DIK,DIT,DITZS,D,DA,VERSION,DU,F,I,J,P,X,Y,DIRUT,DTOUT,DUOUT
        !            19:        Q
        !            20: PKG    ;
        !            21:        I $D(^DIC(9.4,0))#2,($P(^DIC(9.4,0),U,1)'="PACKAGE") D  Q
        !            22:        . W !!,"You have a file #9.4 that is not the 'Package' file."
        !            23:        . W !,"Therefore, the Package file will not be initialized on your system."
        !            24:        . W !,"You cannot use VA FileMan's package export utility, DIFROM."
        !            25:        . Q
        !            26:        I $$ROUEXIST^DILIBF("XPDUTL"),$$VERSION^XPDUTL("XU")>7.1 Q
        !            27:        K ^DD(9.4,913.5,2),^DD(9.4,914.5,2),^DD(9.4,916.5,2),^DD(9.44,222.7,2),^DD(9.44,222.9,2),^DD(9.44,1909)
        !            28:        W !!,"Your Package file will now be updated.",!!
        !            29:        D EN^DIPKINIT
        !            30:        Q
        !            31: DIINIT ;
        !            32:        I $P($G(^DIC(19,0)),U,1)="OPTION",$P($G(^DIC(19.1,0)),U,1)="SECURITY KEY" D
        !            33:        . W !!,"Options and security keys will now be added to your system.",!!
        !            34:        . D EN^DIINIT
        !            35:        . Q
        !            36:        ;Put PACKAGE pointer into FM DIALOG entries, re-index file
        !            37:        W !!,"Re-indexing VA FileMan entries in the DIALOG file."
        !            38:        N DIPKG,DIREC S DIPKG=$O(^DIC(9.4,"C","DI",0))
        !            39:        F DIREC=0:0 S DIREC=$O(^DI(.84,DIREC)) Q:'DIREC!(DIREC>10000)  D
        !            40:        . S $P(^DI(.84,DIREC,0),U,4)=DIPKG
        !            41:        . S DIK="^DI(.84,",DA=DIREC D IX1^DIK
        !            42:        . Q
        !            43:        Q