Return to DDSMSG.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DDSMSG.m, revision 1.1.1.1

1.1       snw         1: DDSMSG ;SFISC/MKO-PRINT MESSAGES ;02:44 PM  9 Nov 1994
                      2:        ;;21.0;VA FileMan;;Dec 28, 1994
                      3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
                      4:        ;
                      5: ERR    ;Print "DIERR" messages in help box
                      6:        N DDSE,DDSL,DDSLMT,DDSN
                      7:        K DDH,DDQ
                      8:        S DDSLMT=$G(DDC,15),DDSE=0
                      9:        ;
                     10:        W $C(7)
                     11:        S DDSN=0
                     12:        F  S DDSN=$O(^TMP("DIERR",$J,DDSN)) Q:'DDSN!DDSE  D
                     13:        . S DDSL=0
                     14:        . F  S DDSL=$O(^TMP("DIERR",$J,DDSN,"TEXT",DDSL)) Q:'DDSL!DDSE  D
                     15:        .. D LD($G(^TMP("DIERR",$J,DDSN,"TEXT",DDSL)),"!")
                     16:        .. I DDH'<DDSLMT D SC^DDSU S:$D(DTOUT)!($D(DUOUT)) DDSE=1
                     17:        ;
                     18:        I $G(DDH) S:DDH(1,"T")?1.C DDH(1,"T")="" D SC^DDSU
                     19:        S DDSKM=1
                     20:        K DIERR,^TMP("DIERR",$J)
                     21:        Q
                     22:        ;
                     23: HLP(DDSG)      ;Print messages from @DDSG in help area
                     24:        N DDSE,DDSL,DDSLMT,DDST
                     25:        S:$G(DDSG)="" DDSG=$NA(@DDSREFT@("HLP"))
                     26:        ;
                     27:        K DDH
                     28:        I $D(DDSID),DY-1>DDSHBX!$X D SETDDH
                     29:        S DDSLMT=$G(DDC,15),(DDSE,DDSL)=0
                     30:        ;
                     31:        F  S DDSL=$O(@DDSG@(DDSL)) Q:'DDSL!DDSE  D
                     32:        . S DDST=$G(@DDSG@(DDSL))
                     33:        . I DDST="$$EOP" S DDH=$G(DDH)+1,DDH(DDH,"E")=""
                     34:        . E  D LD(DDST,$G(@DDSG@(DDSL,"F"),"!"))
                     35:        . I DDH'<DDSLMT D SC^DDSU S:$D(DTOUT)!($D(DUOUT)) DDSE=1
                     36:        ;
                     37:        I $G(DDH) S:DDH(1,"T")?1.C DDH(1,"T")="" D SC^DDSU
                     38:        K:DDSG=$NA(@DDSREFT@("HLP")) @DDSG
                     39:        S:'$D(DDSID) DDSKM=1
                     40:        Q
                     41:        ;
                     42: WP(DDSR)       ;Print the contents of a wp field @DDSR in help area
                     43:        N DDSE,DDSL,DDSLMT
                     44:        ;
                     45:        K DDH
                     46:        I $D(DDSID),DY-1>DDSHBX!$X D SETDDH
                     47:        S DDSLMT=$G(DDC,15),(DDSE,DDSL)=0
                     48:        ;
                     49:        F  S DDSL=$O(@DDSR@(DDSL)) Q:'DDSL!DDSE  D
                     50:        . D LD($G(@DDSR@(DDSL,0)),$G(@DDSR@(DDSL,"F"),"!"))
                     51:        . I DDH'<DDSLMT D SC^DDSU S:$D(DTOUT)!($D(DUOUT)) DDSE=1
                     52:        ;
                     53:        I $G(DDH) S:DDH(1,"T")?1.C DDH(1,"T")="" D SC^DDSU
                     54:        S:'$D(DDSID) DDSKM=1
                     55:        Q
                     56:        ;
                     57: MSG(DDSMSG,DDSFLG,DDSFMT)      ;Print local var or array DDSMSG in help area
                     58:        ;DDSFLG [ 1 : Write bell
                     59:        ;DDSFMT : Format if one line is sent
                     60:        N DDSL
                     61:        K DDH
                     62:        I $D(DDSID),DY-1>DDSHBX!$X D SETDDH
                     63:        ;
                     64:        I $D(DDSMSG)=1 D
                     65:        . D LD(DDSMSG,$S($G(DDSFMT)]"":DDSFMT,1:"!"))
                     66:        ;
                     67:        E  S DDSL=0 F  S DDSL=$O(DDSMSG(DDSL)) Q:'DDSL  D
                     68:        . D LD($G(DDSMSG(DDSL)),$G(DDSMSG(DDSL,"F"),"!"))
                     69:        Q:'$G(DDH)
                     70:        ;
                     71:        I $G(DDH) D
                     72:        . S:DDH(1,"T")?1.C DDH(1,"T")=""
                     73:        . S:$G(DDSFLG)[1 DDH(1,"T")=$C(7)_DDH(1,"T")
                     74:        . D SC^DDSU
                     75:        S:'$D(DDSID) DDSKM=1
                     76:        Q
                     77:        ;
                     78: SETDDH ;Setup DDH and DDQ for identifiers and executable help
                     79:        ;that called EN^DDIOL
                     80:        S DDH=1
                     81:        S DDH(1,"T")=$TR($J("",$X)," ",$C(0))
                     82:        S DDQ=$S(DY>(IOSL-1):IOSL-1,1:DY)-1_U_$X
                     83:        Q
                     84:        ;
                     85: LD(S,F)        ;Load string S with format F into DDH array
                     86:        N A,C,J,L
                     87:        S DDH=+$G(DDH)
                     88:        F J=1:1:$L(F,"!")-1 S DDH=DDH+1,DDH(DDH,"T")=""
                     89:        S:'DDH DDH=1
                     90:        S:F["?" @("C="_$P(F,"?",2))
                     91:        S L=$G(DDH(DDH,"T"))
                     92:        S S=L_$J("",$G(C)-$L(L))_S
                     93:        ;
                     94:        D WRAP(S,.A,IOM-1)
                     95:        S DDH=DDH-1
                     96:        F A=1:1:A S DDH=$G(DDH)+1,DDH(DDH,"T")=A(A)
                     97:        Q
                     98:        ;
                     99: WRAP(L,A,M)    ;Wrap line at word boundaries
                    100:        ; L    = Line of text
                    101:        ; M    = Margin width
                    102:        ;Return:
                    103:        ; A    = Number of lines
                    104:        ; A(n) = Array of text
                    105:        ;
                    106:        S:'$G(M) M=$S($G(IOM):IOM-5,1:75)
                    107:        N I,N
                    108:        S N=0
                    109:        F I=$L(L," "):-1:1 D  Q:L=""
                    110:        . I I=1 S N=N+1,A(N)=$E(L,1,M),L=$E(L,M+1,999) Q
                    111:        . I $L($P(L," ",1,I))'>M D
                    112:        .. S N=N+1,A(N)=$P(L," ",1,I),L=$P(L," ",I+1,999)
                    113:        S A=N
                    114:        Q