Return to DDBRZIS.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DDBRZIS.m, revision 1.1.1.1

1.1       snw         1: DDBRZIS        ;SFISC/DCL-BROWSER DEVICE UTILITIES ;OCT 11, 1994@14:25;
                      2:        ;;21.0;VA FileMan;;Dec 28, 1994
                      3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
                      4: OPEN   ;
                      5:        ;DDBRZIS AND DDBDMSG ARE KILLED IN POST
                      6:        S DDBRZIS=1
                      7:        S DDBDMSG=$S($D(DDBDMSG):DDBDMSG,$D(DHD):DHD,1:" ")
                      8:        U IO(0)
                      9:        W !,"...one moment..."
                     10:        S:DDBDMSG="W """" D ^DIDH" DDBDMSG="DATA DICTIONARY"
                     11:        U IO
                     12:        Q
                     13:        ;
                     14: CLOSE  ;
                     15:        S DDBRZIS=$G(DDBRZIS,1)
                     16:        N C,CHAR,DDBROS,EOF,X
                     17:        K ^TMP("DDB",$J)
                     18:        S DDBROS=^%ZOSF("OS"),EOF="EOF-End Of File"
                     19:        S CHAR="" F I=1:1:31 S CHAR=CHAR_$C(I)
                     20:        U IO W !,EOF,!
                     21:        S DDBRZIS("REWIND")=$$REWIND^%ZIS(IO,IOT,IOPAR)
                     22:        I 'DDBRZIS("REWIND") S DDBRZIS=0 U IO(0) W $C(7),!!?5,"<< UNABLE TO REWIND FILE>>",! H 3 Q
                     23:        U IO
                     24:        S C=0
                     25:        F  R X:1 Q:X="EOF-End Of File"  D
                     26:        .S X=$TR(X,CHAR)
                     27:        .S:X']"" X=" "
                     28:        .S C=C+1,^TMP("DDB",$J,C)=$E(X,1,255) Q
                     29:        .Q
                     30:        Q
                     31:        ;
                     32: POST   ;
                     33:        ;DDBRZIS IS KILLED IN DDBR
                     34:        I $G(DDBRZIS) D BROWSE^DDBR("^TMP(""DDB"",$J)","NR",$G(DDBDMSG))
                     35:        K DDBRZIS,DDBDMSG
                     36:        Q
                     37:        ;
                     38: STR(X) ;  Remove windows
                     39:        N I,Y
                     40:        I $L(X,"|")'>2 Q X
                     41:        I X["|WRAP|"!(X["| NO WRAP|")!(X["|NOWRAP|") S Y="" F I=1:1:$L(X,"|") S:(I#2) Y=Y_$P(X,"|",I)
                     42:        Q $S(X'["|":X,1:$G(Y))