Return to DIL0.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Annotation of freem_fileman/USER/DIL0.m, revision 1.1

1.1     ! snw         1: DIL0   ;SFISC/GFT-TURN PRINT FLDS INTO CODE ;4/14/92  10:40 AM
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4:        D XDUY S %=$P(X,U,2) G WP:%["W",M:%["m",STATS^DIL1:$D(DCL(DP_U_+W)),N:W[";N"
        !             5:        I W[";W" S Z=$D(DNP),DNP=1 D ^DILL K:'Z DNP S D1=$S(%["C":Y,1:$P(" S Y=",U,Y'?1" ".E)_Y_" S X=Y") D W S Y=Y_D1_" D ^DIWP" Q
        !             6:        D ^DILL
        !             7: DN     ;
        !             8:        I W[";X" S DE=$S(W[";C"!(W[";S"):DE,$A(Y)-32:" W ?0",1:"") I $L(DE)+$L(Y)>250 S %=Y,Y=DE,DE=% D PX^DIL S Y=DE Q
        !             9:        I W[";X" S Y=DE_Y Q
        !            10:        D H:DHD I DG+DLN>IOM,DG K ^UTILITY("DIL",$J,DG) S DG='%*DM*2+2,DE=$P(W,";C",2),DG=$S(DE>0:DE-1,DE<0:IOM+DE,DG+DLN'>IOM!(W[";W"):DG,DLN>IOM:0,1:IOM-DLN),DE=" D T Q:'DN  W ?"_DG D W^DIL,H:DHD
        !            11:        S DG=2+DLN+DG Q:$D(DNP)  I $L(DE)+$L(Y)>250 S %=Y,Y=DE,DE=% D PX^DIL S Y=DE Q
        !            12:        S Y=DE_Y Q
        !            13:        ;
        !            14: H      S V=$P(X,U,1),Z=99,I=$P(W,";""",2) I I]"" S V=$P(I,"""",1)
        !            15: HEAD   Q:V=""  S I=$P(V," ",1) I $L(I)>DLN S DLN=$L(I)
        !            16: XD     S V=$P(V," ",2,99),D=$P(V," ",1) I D]"",$L(I)+$L(D)<DLN S I=I_" "_D G XD
        !            17:        S ^UTILITY("DIL",$J,DG,Z)=$J(I,DRJ*DLN),V(Z)="",Z=Z-1 G HEAD
        !            18:        ;
        !            19: XDUY   ;
        !            20:        I '$D(^DD(DP,+W,0)) S X="",DU=0,Y=0 Q
        !            21:        S X=^(0),DU=$P(X,U,4),Y=$P(DU,";",2),DU=$P(DU,";",1) I W[";T",$D(^(.1)) S X=^(.1)_U_$P(X,U,2,99)
        !            22:        S:+DU'=DU DU=""""_DU_""""
        !            23:        I Y S Y="$P(X,U,"_Y_")" Q
        !            24:        I Y="" S Y="D"_DM Q
        !            25:        S Y=$E(Y,2,9) S:$P(Y,",",2)=+Y Y=+Y S Y="$E(X,"_Y_")" Q
        !            26:        ;
        !            27: WR     ;
        !            28:        K DLN D W^DILL
        !            29: W      S DRJ=0,DIWL=DIWL+1 I '$D(DLN) S %=IOM-DG,DLN=$S(%>20:%,1:IOM)-2
        !            30:        D DN S %=$P(DE,"W ?",2)+1,Y=DLN+%-1,DIO=2,%=" S DIWL="_%_",DIWR="_$S(IOM<Y:IOM,1:Y),Y=$P(DE," W ?",1)_% Q
        !            31:        ;
        !            32: WP     S DN=%["L"_U D WR S DIO=3,Y=%_" D ^DIWP",X=F(DM-1) I DHT<0 G WP^DIPZ1
        !            33:        I $D(^UTILITY($J,99,X)) S I=^(X) D WPX S ^UTILITY($J,99,X)=I Q
        !            34:        ;S I=DX(X) D WPX S DX(X)=I Q
        !            35: WPX    ;
        !            36:        S:DN I=^DD("FUNC",38,1)_" "_I
        !            37:        I DE[" D T,N" S %=$F(I," D N:$X>") S:% I=$E(I,1,%-9)_$E(I,$F(I,"T",%),999) S I=$E(DE,2,999)_" "_I
        !            38:        Q
        !            39:        ;
        !            40: M      S D1=" S DICMX=""D "_$E("L",%'["w")_"^DIWP"" "_$P(X,U,5,99) D WR S Y=Y_D1 Q
        !            41:        ;
        !            42: N      ;
        !            43:        S DCL=DCL+1,D=",C="_DCL_" D D",DITTO(DCL)="",I=""
        !            44:        I %["C" S X=X_" S Y=X"_D_" S X=Y",DXS="Y" G Z
        !            45:        S Y=" S Y="_Y_D,DXS="Y"
        !            46: Z      D V^DILL G DN
        !            47:        ;
        !            48: DIWR   ;
        !            49:        G DIWR^DIPZ1:DHT I $D(DIWR(DM)),DX=DIWR(DM) S ^UTILITY($J,99,DX)="D A^DIWW" G K
        !            50:        I $D(DIWR(DM)) S (DX,M)=DX+1,^UTILITY($J,99,DX)="D ^DIWW" D:DM DX^DIL G K
        !            51:        D FI S ^(I)="D ^DIWW "_^UTILITY($J,99,I)
        !            52: K      K DIWR(DM) Q
        !            53: FI     F I=DM-1:-1:0 I $D(DIWR(I)) K DIWR(I) Q
        !            54:        I I S I=F(I)
        !            55:        E  F I=1:1 Q:'$D(^UTILITY($J,99,I+1))
        !            56:        ;I $D(^UTILITY($J,99,I)) S ^(I)=^(I)_^(I)
        !            57:        Q