Return to DDBRZIS.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DDBRZIS.m, revision 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))