XLFLTR.m

XLFLTR ;SLC/RWF- PRINT BIG LETTERS ;7/11/94  11:18 [ 04/02/2003   8:29 AM ]

 ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003

 ;;8.0;KERNEL;;Jul 10, 1995

EN(STR,CNT) ;string to print, repeat count

 I '$D(^XTMP("XLFLTR",1,"A")) D ^XLFLTR1

 N %B,%C,%CNT,%I,%R,%S,%X,%Y

B1 S STR=$E(STR,1,6),CNT=$G(CNT,1),%B=$E("     ",1,IOM\36),%S=$E("XXXXX",1,IOM\36)

 S STR=$$UP^XLFSTR(STR)

 I STR'?1.6UNP S STR=$TR(STR,$C(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31))

 F %CNT=1:1:CNT D

 . W !

 . F %R=9:-1:1 W ! F %I=1:1:$L(STR) S %X=$G(^XTMP("XLFLTR",1,$E(STR,%I))) W "   " F %C=1:1:5 W $S($E(%X,(%C-1*9+%R)):%S,1:%B)

 . Q

 Q

XLFLTR    ;SLC/RWF- PRINT BIG LETTERS ;7/11/94  11:18 [ 04/02/2003   8:29 AM ]

 +1       ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003

 +2       ;;8.0;KERNEL;;Jul 10, 1995

EN(STR,CNT) ;string to print, repeat count

 +1        IF '$DATA(^XTMP("XLFLTR",1,"A"))

               DO ^XLFLTR1

 +2        NEW %B,%C,%CNT,%I,%R,%S,%X,%Y

B1         SET STR=$EXTRACT(STR,1,6)

           SET CNT=$GET(CNT,1)

           SET %B=$EXTRACT("     ",1,IOM\36)

           SET %S=$EXTRACT("XXXXX",1,IOM\36)

 +1        SET STR=$$UP^XLFSTR(STR)

 +2        IF STR'?1.6UNP

               SET STR=$TRANSLATE(STR,$CHAR(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31))

 +3        FOR %CNT=1:1:CNT

               Begin DoDot:1

 +4                WRITE !

 +5                FOR %R=9:-1:1

                       WRITE !

                       FOR %I=1:1:$LENGTH(STR)

                           SET %X=$GET(^XTMP("XLFLTR",1,$EXTRACT(STR,%I)))

                           WRITE "   "

                           FOR %C=1:1:5

                               WRITE $SELECT($EXTRACT(%X,(%C-1*9+%R)):%S,1:%B)

 +6                QUIT 

               End DoDot:1

 +7        QUIT