Return to DDBR1.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DDBR1.m, revision 1.1.1.1

1.1       snw         1: DDBR1  ;SFISC/DCL-VA FILEMAN BROWSER PROTOCOLS;04:22 PM  20 Oct 1994;
                      2:        ;;21.0;VA FileMan;;Dec 28, 1994
                      3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
                      4:        Q
                      5: GOTO   N X
                      6: GTR    S X(1)=$G(X(1)),X(2)="GoTo >" W $$WS(.X) D  G:X=""!(X=U) OUT
                      7:        .D EN^DIR0($P(DDBSY,";",3)-1,$L($G(X(2)))+2,30,1,"",100,1,"","KPW",.X)
                      8:        .K DIR0
                      9:        .Q
                     10:        I $E(X)="?" S X(1)="* Screen (default), line or column number preceeded by 'S', 'L' or 'C' *" G GTR
                     11:        I X S X=X*DDBSRL G LINE
                     12:        S $E(X)=$TR($E(X),"bclst","BCLST")
                     13:        I X["S",$TR($P(X,"S",2)," ") S X=$TR($P(X,"S",2)," ")*DDBSRL G LINE
                     14:        I X["L",$TR($P(X,"L",2)," ") S X=$TR($P(X,"L",2)," ") G LINE
                     15:        I X["C",$TR($P(X,"C",2)," ") S X=$TR($P(X,"C",2)," ") I X>0&(X<256) S DDBSF=X G COLENT^DDBR0
                     16:        I $E(X)="T" G TOP^DDBR0
                     17:        I $E(X)="B" G BOT^DDBR0
                     18:        G OUT
                     19: LINE   S DDBL=$S(X'>DDBSRL:0,X>DDBTL:DDBTL,1:X) D PSR^DDBR0()
                     20:        Q
                     21: NOOF   N N
                     22:        S N=1 I $D(DDBFNO) N D,X G FNO
                     23:        S X(1)="    * [ NO PREVIOUS FIND STRING AVAILABLE ] *"
                     24:        N Q S N=0 G BPR
                     25: FIND   N D,Q,X
                     26:        N N
                     27:        S N=0
                     28: BPR    S X(1)=$G(X(1)),X(2)="Find What:  " W $$WS(.X) D  G:X="" OUT
                     29:        .N Y
                     30:        .D EN^DIR0($P(DDBSY,";",3)-1,$L($G(X(2)))+2,30,1,$P($G(DDBFNO),U,3,255),100,1,"","KPW",.X,.Y)
                     31:        .K DIR0
                     32:        .S:$P($G(Y),U)="U" X=X_"/U"
                     33:        .Q
                     34:        S Q=$TR($E(X,$L(X)-1,$L(X)),"u","U")
                     35:        S D=$S(Q="/U":-1,1:1)
                     36:        S:D=-1 X=$E(X,1,$L(X)-2)
                     37:        Q:X=""
                     38:        I $E(X)="?" S X(1)="    * [ Please enter any characters <cr>, '^' <cr> (exit) ] *" G BPR
                     39: FNO    N I,MATCHI,MATCHX
                     40:        I N S D=$P(DDBFNO,"^",2),X=$P(DDBFNO,"^",3,255)
                     41:        S X(1)="",X(2)="    * [ ...Searching "_$S(D=1:"'DOWN'",1:"'UP'")_" for "_X_"... ] *" W $$WS(.X)
                     42:        D  S:I<0 I=0
                     43:        .I N&(D=1) S I=DDBL Q
                     44:        .I N S I=DDBL-(DDBSRL-1) Q
                     45:        .I D=1 S I=DDBL-DDBSRL Q
                     46:        .S I=DDBL+1
                     47:        .Q
                     48:        D
                     49:        .N XUC
                     50:        .S XUC=$$U(X)
                     51:        .I DDBDM D  Q
                     52:        ..I DDBZN D  Q
                     53:        ...F  S I=$O(^TMP("DDB",$J,I),D) Q:I'>0  I $$U($G(^(I,0)))[XUC S MATCHI=I,MATCHX=^(0) Q
                     54:        ...Q
                     55:        ..F  S I=$O(^TMP("DDB",$J,I),D) Q:I'>0  I $$U(^(I))[XUC S MATCHI=I,MATCHX=^(I) Q
                     56:        ..Q
                     57:        .I DDBZN D  Q
                     58:        ..F  S I=$O(@DDBSA@(I),D) Q:I'>0  I $$U($G(@DDBSA@(I,0)))[XUC S MATCHI=I,MATCHX=@DDBSA@(I,0) Q
                     59:        ..Q
                     60:        .F  S I=$O(@DDBSA@(I),D) Q:I'>0  I $$U(@DDBSA@(I))[XUC S MATCHI=I,MATCHX=@DDBSA@(I) Q
                     61:        .Q
                     62:        I $G(MATCHI) D  S DDBFNO=DDBL_"^"_D_"^"_X Q
                     63:        .S DDBSF=1,DDBST=IOM F  Q:$F(MATCHX,X)'>DDBST  D
                     64:        ..S DDBSF=$O(@DDBC@(DDBSF)) S:DDBSF="" DDBSF=$O(@DDBC@(""))
                     65:        ..S DDBST=DDBSF+(IOM-1)
                     66:        ..Q
                     67:        .I I+(DDBSRL)>DDBTL S I=DDBTL-(DDBSRL-1)
                     68:        .I DDBTL'>DDBSRL S I=1
                     69:        .S DDBL=I-1 D SDLRH(I,X),RCLSI^DDBR0
                     70:        .Q
                     71:        S X(1)="",X(2)="    * [ NO"_$S(N:" OTHER ",1:" ")_"MATCH FOUND ] *" W $C(7),$$WS(.X) H 3
                     72:        D PSRH
                     73:        Q
                     74: OUT    D PSR^DDBR0()
                     75:        Q
                     76: PSRH   S DDBL=$S(DDBL'>DDBSRL:0,1:DDBL-DDBSRL)
                     77:        D SDLRH(DDBL+1,X)
                     78:        Q
                     79: SDL    ;
                     80: SDLRH(L,HLS)   N I,J,SFR,STO
                     81:        S DX=0,SFR=$P(DDBSY,";",2),STO=$P(DDBSY,";",3),J=L
                     82:        S DY=SFR X IOXY
                     83:        I DDBZN F I=SFR:1:STO D
                     84:        .W:I'=SFR !
                     85:        .W $P(DDGLCLR,DDGLDEL)
                     86:        .I J=L,$D(@DDBSA@(L)) W $$HL($E(@DDBSA@(L,0),DDBSF,DDBST),HLS,$P(DDGLVID,DDGLDEL,6),$P(DDGLVID,DDGLDEL,10)) S DDBL=DDBL+1,L=L+1
                     87:        .S J=J+1
                     88:        .Q
                     89:        I 'DDBZN F I=SFR:1:STO D
                     90:        .W:I'=SFR !
                     91:        .W $P(DDGLCLR,DDGLDEL)
                     92:        .I J=L,$D(@DDBSA@(L)) W $$HL($E(@DDBSA@(L),DDBSF,DDBST),HLS,$P(DDGLVID,DDGLDEL,6),$P(DDGLVID,DDGLDEL,10)) S DDBL=DDBL+1,L=L+1
                     93:        .S J=J+1
                     94:        .Q
                     95:        Q
                     96: HL(X,S,ON,RS,F)        S X=$G(X),S=$G(S),F=$G(F)=1
                     97:        G:F CS
                     98:        N C,I,P,T,XU,SU,SL,TL,XL
                     99:        S XU=$$U(X),SU=$$U(S),SL=$L(S),C=$L(XU,SU)-1,T="",XL=0
                    100:        Q:'C X
                    101:        F I=1:1:C S P=$F(XU,SU,XL),T=T_$E(X,XL,P-SL-1)_ON_$E(X,P-SL,P-1)_RS,XL=P
                    102:        S T=T_$E(X,XL,255)
                    103:        Q T
                    104: U(X)   Q $TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
                    105: CS     Q:$L(X,S)'>1 X
                    106:        N C,I,P,T
                    107:        S T="",C=$L(X,S)
                    108:        F I=1:1:C S P=$P(X,S,I),T=T_P_$S(I'=C:ON_S_RS,1:"")
                    109:        Q T
                    110: HELP(DDBHELP)  N I,J
                    111:        I DDBSA="^DI(.84,9201,2)" S DDBL=0 D SDLR^DDBR0(1),RCLSI^DDBR0 Q
                    112:        N DDBHA S DDBHA="^DI(.84,9201,2)"
                    113:        D BROWSE^DDBR(DDBHA,"PNH","VA FileMan Help Document","","",IOTM,IOBM,DDBHELP),PSR^DDBR0(1)
                    114:        Q
                    115: LC(L,C)        Q:$G(L)'>0 ""
                    116:        S C=$G(C,"-")
                    117:        Q $TR($J("",L)," ",C)
                    118: WS(X)  S DX=0,DY=$P(DDBSY,";",3)-3 X IOXY
                    119:        W $P(DDGLGRA,DDGLDEL)
                    120:        W $TR($J("",IOM)," ",$P(DDGLGRA,DDGLDEL,3))
                    121:        W $P(DDGLGRA,DDGLDEL,2)
                    122:        W !,$P(DDGLCLR,DDGLDEL),$G(X(1))
                    123:        W !,$P(DDGLCLR,DDGLDEL),$G(X(2))
                    124:        W !,$P(DDGLCLR,DDGLDEL),$G(X(3))
                    125:        S DY=$P(DDBSY,";",3),DX=$L($G(X(2)))+2 X IOXY
                    126:        Q ""