|
Last change
on this file since 1361 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
472 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
