source: WorldVistAEHR/trunk/r/LIBRARY-LBR-LBRS/LBRYET3.m

Last change on this file was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 472 bytes
Line 
1LBRYET3 ;ISC2/DJM-ROUTINES USED IN FILEMAN FOR 680.5 ;[ 09/05/97 5:40 PM ]
2 ;;2.5;Library;**2**;Mar 11, 1996
3IT1 ;INPUT TRANSFORM FOR FILE 680.5, FIELD .01.
4 ;Capitalize the title and removed leading & trailing blanks
5 S X=$$UP^XLFSTR(X)
6E1 I $E(X,1,1)=" " S X=$E(X,2,999)
7 I $E(X,$L(X),$L(X))=" " S X=$E(X,1,$L(X)-1)
8 I $E(X,1,1)=" "!($E(X,$L(X),$L(X))=" ") G E1
9E2 K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>160!($L(X)<1)!'(X'?1P.E) X
10 I $E(X,1,4)="THE " S X=$E(X,5,999)
11 Q
Note: See TracBrowser for help on using the repository browser.