|
Last change
on this file since 810 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
503 bytes
|
| Line | |
|---|
| 1 | LRLTR ;SLC/RWF - PRINT BIG LETTERS ; 10/6/87 11:56 ;
|
|---|
| 2 | ;;5.2;LAB SERVICE;;Sep 27, 1994
|
|---|
| 3 | I '$D(^TMP("LRLTR",$J,"A")) D ^LRLTR2
|
|---|
| 4 | B1 S LRLTY=$E(LRLTR,1,6),LRLTX=""
|
|---|
| 5 | F LRLT1=1:1:$L(LRLTY) I $A(LRLTY,LRLT1)>32,$D(^TMP("LRLTR",$J,$E(LRLTY,LRLT1))) S LRLTX=LRLTX_$E(LRLTY,LRLT1)
|
|---|
| 6 | F LRLT=1:1:5 D B2
|
|---|
| 7 | K LRLT1,LRLT2,LRLT3,LRLTX,LRLTY,LRLT,LRJ0,LRJ02 W @IOF Q
|
|---|
| 8 | B2 W !
|
|---|
| 9 | F LRLT1=9:-1:1 W ! F LRLT3=1:1:$L(LRLTX) S X=^TMP("LRLTR",$J,$E(LRLTX,LRLT3)) W " " F LRLT2=1:1:5 W $S($E(X,(LRLT2-1*9+LRLT1)):"XXX",1:" ")
|
|---|
| 10 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
