Line | |
---|
1 | LBRYET3 ;ISC2/DJM-ROUTINES USED IN FILEMAN FOR 680.5 ;[ 09/05/97 5:40 PM ]
|
---|
2 | ;;2.5;Library;**2**;Mar 11, 1996
|
---|
3 | IT1 ;INPUT TRANSFORM FOR FILE 680.5, FIELD .01.
|
---|
4 | ;Capitalize the title and removed leading & trailing blanks
|
---|
5 | S X=$$UP^XLFSTR(X)
|
---|
6 | E1 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
|
---|
9 | E2 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.