Return to DDBRZIS.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    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))