LRLTR.m

LRLTR ; IHS/DIR/FJE - PRINT BIG LETTERS 10/6/87 11:56 ;

 ;;5.2;LR;**1013**;JUL 15, 2002

 ;

 ;;5.2;LAB SERVICE;;Sep 27, 1994

 I '$D(^TMP("LRLTR",$J,"A")) D ^LRLTR2

B1 S LRLTY=$E(LRLTR,1,6),LRLTX=""

 F LRLT1=1:1:$L(LRLTY) I $A(LRLTY,LRLT1)>32,$D(^TMP("LRLTR",$J,$E(LRLTY,LRLT1))) S LRLTX=LRLTX_$E(LRLTY,LRLT1)

 F LRLT=1:1:5 D B2

 K LRLT1,LRLT2,LRLT3,LRLTX,LRLTY,LRLT,LRJ0,LRJ02 W @IOF Q

B2 W !

 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:"   ")

 Q

LRLTR     ; IHS/DIR/FJE - PRINT BIG LETTERS 10/6/87 11:56 ;

 +1       ;;5.2;LR;**1013**;JUL 15, 2002

 +2       ;

 +3       ;;5.2;LAB SERVICE;;Sep 27, 1994

 +4        IF '$DATA(^TMP("LRLTR",$JOB,"A"))

               DO ^LRLTR2

B1         SET LRLTY=$EXTRACT(LRLTR,1,6)

           SET LRLTX=""

 +1        FOR LRLT1=1:1:$LENGTH(LRLTY)

               IF $ASCII(LRLTY,LRLT1)>32

                   IF $DATA(^TMP("LRLTR",$JOB,$EXTRACT(LRLTY,LRLT1)))

                       SET LRLTX=LRLTX_$EXTRACT(LRLTY,LRLT1)

 +2        FOR LRLT=1:1:5

               DO B2

 +3        KILL LRLT1,LRLT2,LRLT3,LRLTX,LRLTY,LRLT,LRJ0,LRJ02

           WRITE @IOF

           QUIT 

B2         WRITE !

 +1        FOR LRLT1=9:-1:1

               WRITE !

               FOR LRLT3=1:1:$LENGTH(LRLTX)

                   SET X=^TMP("LRLTR",$JOB,$EXTRACT(LRLTX,LRLT3))

                   WRITE "   "

                   FOR LRLT2=1:1:5

                       WRITE $SELECT($EXTRACT(X,(LRLT2-1*9+LRLT1)):"XXX",1:"   ")

 +2        QUIT