Return to DINIT3.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINIT3.m, revision 1.1

1.1     ! snw         1: DINIT3 ;SFISC/GFT-INITIALIZE VA FILEMAN ;09:39 AM  16 Nov 1994
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4:        S ^DIC(.2,0)="DESTINATION^.21^",^(0,"GL")="^DIC(.2,"  S ^DIC(.5,0)="FUNCTION^.5I",^(0,"GL")="^DD(""FUNC"",",(^("LAYGO"),^("WR"))="@",^("DD")=U
        !             5:        S ^DIC(.2,"%D",0)="^^2^2^2940908^"
        !             6:        S ^DIC(.2,"%D",1,0)="This file stores destinations of data (e.g., a specific form or"
        !             7:        S ^DIC(.2,"%D",2,0)="system).  A field can be associated with a destination of its data."
        !             8:        S $P(^DIC(1.1,0),U,1,2)="AUDIT^1.1",^(0,"GL")="^DIA(" D A1
        !             9:        S ^DIC(1.1,"%D",0)="^^1^1^2940908^"
        !            10:        S ^DIC(1.1,"%D",1,0)="This file stores an audit trail of changes made to data fields."
        !            11:        S $P(^DIAR(1.11,0),U,1,2)="ARCHIVAL ACTIVITY^1.11I",$P(^DIC(1.11,0),U,1,2)="ARCHIVAL ACTIVITY^1.11I",^(0,"GL")="^DIAR(1.11," D A1
        !            12:        S $P(^DIAR(1.12,0),U,1,2)="FILEGRAM HISTORY^1.12DI",$P(^DIC(1.12,0),U,1,2)="FILEGRAM HISTORY^1.12DI",^(0,"GL")="^DIAR(1.12," D A1
        !            13:        S $P(^DIAR(1.13,0),U,1,2)="FILEGRAM ERROR LOG^1.13",$P(^DIC(1.13,0),U,1,2)="FILEGRAM ERROR LOG^1.13",^(0,"GL")="^DIAR(1.13," D A1
        !            14:        S $P(^DDA(0),U,1,2)="DD AUDIT^.6I",^DIC(.6,0,"GL")="^DDA(" D A1
        !            15:        S $P(^DIST(.403,0),U,1,2)="FORM^.403I",^DIC(.403,0)="FORM^.403",^(0,"GL")="^DIST(.403," D A1
        !            16:        S $P(^DIST(.404,0),U,1,2)="BLOCK^.404",^DIC(.404,0)="BLOCK^.404",^(0,"GL")="^DIST(.404," D A1
        !            17:        S $P(^DIST(1.2,0),U,1,2)="ALTERNATE EDITOR^1.2",^DIC(1.2,0)="ALTERNATE EDITOR^1.2",^(0,"GL")="^DIST(1.2," D A1
        !            18:        S $P(^DI(.81,0),U,1,2)="DATA TYPE^.81",^DIC(.81,0)="DATA TYPE^.81",^(0,"GL")="^DI(.81," D A1
        !            19:        S $P(^DIST(.44,0),U,1,2)="FOREIGN FORMAT^.44I",^DIC(.44,0)="FOREIGN FORMAT^.44",^(0,"GL")="^DIST(.44," D A1
        !            20:        S $P(^DI(.83,0),U,1,2)="COMPILED ROUTINE^.83",$P(^DIC(.83,0),U,1,2)="COMPILED ROUTINE^.83",^(0,"GL")="^DI(.83," D A1
        !            21:        S D=0 F I="^DIPT(","^DIBT(","^DIE(" S X=$P("PRINT^SORT^INPUT",U,D+1)_" TEMPLATE",Y=D/1000+.4,^DD(Y,0,"NM",X)="",^DD(Y,.01,1,1,0)=Y_"^B",@("$P("_I_"0),U,1,2)=X_U_Y_""I"""),^DIC(Y,0)=X_"^"_Y,^(0,"GL")=I,D=D+1,^("WR")=U,^("DD")=U,^DIC("B",X,Y)=""
        !            22:        ;
        !            23:        F I=.2,.4,.5,.6,.7,.601,.602,.401,.4001,.4011,.4012,.402,.4021,.41,.411,.21,1,1.005,1.01,1.1,1.11,1.113,1.1132,1.12,1.13,1.1321,.403,.4031,.403115,.40315,.4032,.404,.40415,.4044,1.2,1.207,.44,.441,.4411,.447,.448,.42,.81 D XX
        !            24:        F I=.4014,.40141,.401418,.401419,.83,.404421 D XX
        !            25:        F DIK="^DIC(.2,","^DIPT(","^DIST(1.2,","^DIST(.44,","^DI(.81,","^DIST(.403,","^DIST(.404,","^DI(.85," D X
        !            26:        I '$D(^DD("VERSION"))#2 F DIK="^DIC(","^DIBT(","^DIE(" D X
        !            27:        S ^DD("FUNC",0)="COMPUTED-FIELD FUNCTION^.5^"
        !            28:        I $D(^DD("FUNC",7,1)),$D(^DD("VERSION")),^("VERSION")>15.4
        !            29:        E  S ^DD("FUNC",7,1)="C X S X="""""
        !            30:        G ^DINIT4
        !            31:        ;
        !            32: XX     S DA(1)=I,DIK="^DD("_I_","
        !            33: X      W ".." G IXALL^DIK
        !            34:        ;
        !            35: A      S (^("RD"),^("LAYGO"),^("WR"),^("DD"))=U Q
        !            36: A1     S (^("DEL"),^("LAYGO"),^("WR"),^("DD"))=U Q
        !            37:        ;