Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
472 bytes
|
Rev | Line | |
---|
[628] | 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.