Return to DDSCAP.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DDSCAP.m, revision 1.1.1.1

1.1       snw         1: DDSCAP ;SFISC/MKO-INPUT TRANSFORM FOR CAPTIONS ;09:00 AM  21 Sep 1993
                      2:        ;;21.0;VA FileMan;;Dec 28, 1994
                      3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
                      4:        ;
                      5: FUNC(X)        ;
                      6:        Q:$E(X)'="!"
                      7:        N F,Y
                      8:        S F=$E(X,2,999)
                      9:        S:$P(F,"(")?.A1.L.A F=$$UPCASE($P(F,"("))_$S(F["(":"("_$P(F,"(",2,999),1:"")
                     10:        Q:$T(@$P(F,"("))="" X
                     11:        S @("Y=$$"_F)
                     12:        Q Y
                     13:        ;
                     14: L()    ;;Get label of field
                     15:        N F1,F2
                     16:        S X=""
                     17:        S F1=$$GET^DDSVAL(DIE,.DA,4) Q:'F1 X
                     18:        S F2=$$GET^DDSVAL(.404,DA(1),1) Q:'F2 X
                     19:        S X=$P($G(^DD(F2,F1,0)),U)
                     20:        Q X
                     21:        ;
                     22: T()    ;;Get title of field
                     23:        N F1,F2
                     24:        S X=""
                     25:        S F1=$$GET^DDSVAL(DIE,.DA,4) Q:'F1 X
                     26:        S F2=$$GET^DDSVAL(.404,DA(1),1) Q:'F2 X
                     27:        S X=$G(^DD(F2,F1,.1))
                     28:        Q X
                     29:        ;
                     30: U()    ;;Get unique name of field
                     31:        Q $$GET^DDSVAL(DIE,.DA,3.1)
                     32:        ;
                     33: DUP(X1,X)      ;;The DUP function
                     34:        Q:$G(X1)="" ""
                     35:        N %
                     36:        S %=X,X="",$P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%)
                     37:        Q X
                     38:        ;
                     39: UPCASE(X)      ;Convert X to uppercase
                     40:        Q $TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")