Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DDSCAP

DDSCAP.m

Go to the documentation of this file.
  1. DDSCAP ;SFISC/MKO-INPUT TRANSFORM FOR CAPTIONS ;10:45 AM 6 Mar 1996
  1. ;;22.0;VA FileMan;;Mar 30, 1999
  1. ;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;
  1. FUNC(X) ;
  1. Q:$E(X)'="!"
  1. N E,F,Y
  1. S F=$E(X,2,999)
  1. S:$P(F,"(")?.A1.L.A F=$$UPCASE($P(F,"("))_$S(F["(":"("_$P(F,"(",2,999),1:"")
  1. Q:$P(F,"(")'?1U.7UN X
  1. Q:$T(@$P(F,"("))="" X
  1. ;
  1. D Q:$G(E) X
  1. . N X S X="S Y=$$"_F
  1. . N F D ^DIM
  1. . S:'$D(X) E=1
  1. ;
  1. S @("Y=$$"_F)
  1. Q Y
  1. ;
  1. L() ;;Get label of field
  1. N F1,F2
  1. S X=""
  1. S F1=$$GET^DDSVAL(DIE,.DA,4) Q:'F1 X
  1. S F2=$$GET^DDSVAL(.404,DA(1),1) Q:'F2 X
  1. S X=$P($G(^DD(F2,F1,0)),U)
  1. Q X
  1. ;
  1. T() ;;Get title of field
  1. N F1,F2
  1. S X=""
  1. S F1=$$GET^DDSVAL(DIE,.DA,4) Q:'F1 X
  1. S F2=$$GET^DDSVAL(.404,DA(1),1) Q:'F2 X
  1. S X=$G(^DD(F2,F1,.1))
  1. Q X
  1. ;
  1. U() ;;Get unique name of field
  1. Q $$GET^DDSVAL(DIE,.DA,3.1)
  1. ;
  1. DUP(X1,X) ;;The DUP function
  1. Q:$G(X1)="" ""
  1. N %
  1. S %=X,X="",$P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%)
  1. Q X
  1. ;
  1. UPCASE(X) ;Convert X to uppercase
  1. Q $TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")