Return to DDIOL.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DDIOL	;SFISC/MKO-THE LOADER ;03:27 PM  5 Oct 1994
    2: 	;;21.0;VA FileMan;;Dec 28, 1994
    3: 	;Per VHA Directive 10-93-142, this routine should not be modified.
    4: 	;
    5: EN(A,G,FMT)	;Write the text contained in local array A or global array G
    6: 	;If one string passed, use format FMT
    7: 	N %,Y,DINAKED
    8: 	S DINAKED=$$LGR^%ZOSV
    9: 	;
   10: 	S:'$D(A) A=""
   11: 	I $G(A)="",$D(A)<9,$G(FMT)="",$G(G)'?1"^"1A.7AN,$G(G)'?1"^"1A.7AN1"(".E1")" Q
   12: 	;
   13: 	G:$D(DDS) SM
   14: 	G:$D(DIQUIET) LD
   15: 	;
   16: 	N F,I,S
   17: 	I $D(A)=1,$G(G)="" D
   18: 	. S F=$S($G(FMT)]"":FMT,1:"!")
   19: 	. W @F,A
   20: 	;
   21: 	E  I $D(A)>9 S I=0 F  S I=$O(A(I)) Q:I'=+$P(I,"E")  D
   22: 	. S F=$G(A(I,"F"),"!") S:F="" F="?0"
   23: 	. W @F,$G(A(I))
   24: 	;
   25: 	E  S I=0 F  S I=$O(@G@(I)) Q:I'=+$P(I,"E")  D
   26: 	. S S=$G(@G@(I,0),$G(@G@(I)))
   27: 	. S F=$G(@G@(I,"F"),"!") S:F="" F="?0"
   28: 	. W @F,S
   29: 	;
   30: 	I DINAKED]"" S DINAKED=$S(DINAKED["""""":$O(@DINAKED),1:$D(@DINAKED))
   31: 	Q
   32: 	;
   33: LD	;Load text into ^TMP
   34: 	N I,N,T
   35: 	S T=$S($G(DDIOLFLG)["H":"DIHELP",1:"DIMSG")
   36: 	S N=$O(^TMP(T,$J," "),-1)
   37: 	;
   38: 	I $D(A)=1,$G(G)="" D
   39: 	. D LD1(A,$S($G(FMT)]"":FMT,1:"!"))
   40: 	;
   41: 	E  I $D(A)>9 S I=0 F  S I=$O(A(I)) Q:I'=+$P(I,"E")  D
   42: 	. D LD1($G(A(I)),$G(A(I,"F"),"!"))
   43: 	;
   44: 	E  S I=0 F  S I=$O(@G@(I)) Q:I'=+$P(I,"E")  D
   45: 	. D LD1($G(@G@(I),$G(@G@(I,0))),$G(@G@(I,"F"),"!"))
   46: 	;
   47: 	K:'N @T S:N @T=N
   48: 	I DINAKED]"" S DINAKED=$S(DINAKED["""""":$O(@DINAKED),1:$D(@DINAKED))
   49: 	Q
   50: 	;
   51: LD1(S,F)	;Load string S, with format F
   52: 	;In: N and T
   53: 	N C,J,L
   54: 	F J=1:1:$L(F,"!")-1 S N=N+1,^TMP(T,$J,N)=""
   55: 	S:'N N=1
   56: 	S:F["?" @("C="_$P(F,"?",2))
   57: 	S L=$G(^TMP(T,$J,N))
   58: 	S ^TMP(T,$J,N)=L_$J("",$G(C)-$L(L))_S
   59: 	Q
   60: 	;
   61: SM	;Print text in ScreenMan's Command Area
   62: 	I $D(DDSID),$D(DTOUT)!$D(DUOUT) G SMQ
   63: 	N DDIOL
   64: 	S DDIOL=1
   65: 	;
   66: 	I $D(A)=1&($G(G)="")!($D(A)>9) D
   67: 	. D MSG^DDSMSG(.A,"",$G(FMT))
   68: 	E  I $D(@G@(+$O(@G@(0)),0))#2 D
   69: 	. D WP^DDSMSG(G)
   70: 	E  D HLP^DDSMSG(G)
   71: 	;
   72: SMQ	I DINAKED]"" S DINAKED=$S(DINAKED["""""":$O(@DINAKED),1:$D(@DINAKED))
   73: 	Q