Return to DIEQ.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIEQ.m, revision 1.1

1.1     ! snw         1: DIEQ   ;SFISC/XAK,YJK-HELP DURING INPUT ;12/21/94  13:41
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4: BN     S D=$P(DQ(DQ),U,4) S:DP+1 D=DIFLD
        !             5:        S DZ=X D EN1 G B^DIED
        !             6: QQ     ;
        !             7:        I DV,DV["*",$D(^DD(+DV,.01,0)) S DQ(DQ)=$P(DQ(DQ),U,1,4)_U_$P(^(0),U,5,99)
        !             8: EN1    S DDH=0 G M:DV I DP<0 D HP G P
        !             9:        I X="?"!(X["BAD") F DG=3,12 I $D(^DD(DP,D,DG)) S X=^(DG),A1="T" D N
        !            10:        D H G:'$D(DZ) Q
        !            11:        ;
        !            12: P      I DV["P" K DO S DIC=U_DU,D="B",DIC(0)="M"_$E("L",DV'["'") G AST:DV["*" D DQ^DICQ D %
        !            13: VP     I DV["V" S DU=DP S:DV DU=+DO(2),D=.01 D V G Q
        !            14: D      I DV["D" S %(0)=0,%DT=$P($P($P(DQ(DQ),U,5,9),"%DT=""",2),"""",1) D HELP^%DTC
        !            15: S      I DV["S" X:$D(^DD(DP,D,12.1))#2 ^(12.1) S A1="T",DST=$$EZBLD^DIALOG(8068)_" " D DS,S1
        !            16: Q      K DST,A1 S:$D(DIE) DIC=DIE S D=0 I $D(DDH)>10 D LIST^DDSU
        !            17:        Q
        !            18:        ;
        !            19:        ;
        !            20: S1     F DG=1:1 S Y=$P($P(DQ(DQ),U,3),";",DG) Q:Y=""  S D=$P(Y,":",2),Y=$P(Y,":",1) X:$D(DIC("S")) DIC("S") I  S A2="",$P(A2," ",15-($L(Y)+7))=" ",DST="  "_Y_A2_" "_D D DS
        !            21:        K A1,A2 Q
        !            22:        ;
        !            23: N      F  Q:X=""  F %=$L(X," "):-1:1 I $L($P(X," ",1,%))<75 S DST=$P(X," ",1,%) D DS D:X'="" N1 Q
        !            24:        S X=DZ
        !            25:        Q
        !            26:        ;
        !            27: N1     S X=$P(X," ",%+1,$L(X," ")) Q
        !            28:        ;
        !            29: DS     S:'$D(A1) A1="T" S DDH=$G(DDH)+1,DDH(DDH,A1)=$S(A1="X":"",1:"     ")_DST K A1,DST Q
        !            30:        ;
        !            31: HP     I $D(DQ(DQ,3)) S A1="T",DST=DQ(DQ,3) D DS
        !            32:        I $D(DQ(DQ,4)) S A1="X",DST=DQ(DQ,4) D DS
        !            33:        Q
        !            34:        ;
        !            35: %      S %=$G(DIC("V")) K DIC S:%]"" DIC("V")=% Q
        !            36:        ;
        !            37: AST    S:$D(X)[0 X="?" X $P(DQ(DQ),U,5,99) K DIC G Q
        !            38:        D ^DIC K DIC,DICS,DICW G Q
        !            39:        ;
        !            40: M      K DO S DZ=X,DIC=DIE_DA_","_$S(+$P(DC,U,3)=$P(DC,U,3):$P(DC,U,3),1:$C(34)_$P(DC,U,3)_$C(34))_",",D="B",DIC(0)="LM",DZ(1)=0
        !            41:        I '$D(@(DIC_"0)")) S DO=U_$P(DC,U,2) D DO2^DIC1
        !            42:        D DQ^DICQ D % G Q:'$D(DZ)!(DV["S") S X=DZ G P
        !            43:        ;
        !            44: H      I $D(^DD(DP,D,4)) S A1="X",DST=^(4) D DS,LIST^DDSU Q:'$D(DZ)
        !            45:        I $D(X),X'["BAD",X?1"??".E D
        !            46:        . N DIDG,DG
        !            47:        . S DIDG=$P($G(^DD(DP,D,21,0)),U,3)
        !            48:        . K DDSQ
        !            49:        . F DG=1:1 Q:'$D(^DD(DP,D,21,DG,0))  Q:+DIDG&(DG>DIDG)  D:$G(DDH)'<15 LIST^DDSU Q:$D(DDSQ)  S DST=^DD(DP,D,21,DG,0) D DS
        !            50:        . I $D(DDSQ) K DDSQ,DDH
        !            51:        Q
        !            52:        ;
        !            53: BK     S DDH=$G(DDH)+1,DDH(DDH,"T")=" " Q
        !            54:        ;
        !            55: V      S DDH=+$G(DDH),A1="T",DST=$$EZBLD^DIALOG(8071) D DS
        !            56:        F Y=0:0 S Y=$O(^DD(DU,D,"V",Y)) Q:Y'>0  I $D(^(Y,0)) S Y(0)=^(0) X:$D(DIC("V")) DIC("V") I  I $D(^DIC(+Y(0),0)) S Y(1)=$P(Y(0),U,4),Y(2)=$P(Y(0),U,2),DST=$$EZBLD^DIALOG(8072,.Y) K Y(1),Y(2) D DS
        !            57:        D BK S DST=$$EZBLD^DIALOG(8073) D DS S DU="" D BK I DZ'?1"??".E K X,DZ Q
        !            58:        D T^DIEQ1 K X,DZ Q
        !            59:        ;
        !            60:        ;#8071  Enter one of the following
        !            61:        ;#8072  |Prefix|.EntryName to select a |filename|
        !            62:        ;#8073  To see the entries in any particular file type <Prefix.?>