| 1 | RTL ;MJK/TROY ISC;Label Function Menu; ; 5/14/87 8:46 AM ;
|
|---|
| 2 | ;;v 2.0;Record Tracking;;10/22/91
|
|---|
| 3 | D DT^DICRW S X=$T(+1),DIK="^DOPT("""_$P(X,";",1)_""","
|
|---|
| 4 | G:$D(^DOPT($P(X,";"),4)) A S ^DOPT($P(X,";"),0)=$P(X,";",3)_"^1N^" F I=1:1 S Y=$T(@I) Q:Y="" S ^DOPT($P(X,";"),I,0)=$P(Y,";",3,99)
|
|---|
| 5 | D IXALL^DIK
|
|---|
| 6 | A D OVERALL^RTPSET Q:$D(XQUIT)
|
|---|
| 7 | W !! S DIC="^DOPT("""_$P($T(+1),";")_""",",DIC(0)="IQEAM" D ^DIC Q:Y<0 D @+Y G A
|
|---|
| 8 | ;
|
|---|
| 9 | 1 ;;Label Formatter
|
|---|
| 10 | S IOP="" D ^%ZIS K IOP W:'$D(RTFMT) !!?5,">>> Label Formatter <<<" S DIC("DR")="3////"_+RTAPL,DIC("S")="I $P(^(0),U,3)=+RTAPL",DIC="^DIC(194.4,",DIC(0)="IAEMQL" W ! D ^DIC K DIC G Q1:Y<0
|
|---|
| 11 | S (RTFMT,DA)=+Y,DIE="^DIC(194.4,",DR="[RT LABEL EDIT]" D ^DIE I '$D(^DIC(194.4,RTFMT,0)) G Q1
|
|---|
| 12 | F I=0:0 S I=$O(^DIC(194.5,I)) Q:I'>0 I $D(^(I,0)) S @$P(^(0),"^",5)=$P(^(0),"^",4)
|
|---|
| 13 | W !!,"<<<<<<----------------------------Column No.------------------------------>>>>>>"
|
|---|
| 14 | W !!,"0--------1---------2---------3---------4---------5---------6---------7---------8"
|
|---|
| 15 | W !,"1 0 0 0 0 0 0 0 0",! S RTEST="",RTNUM=1,IOF="!" D PRT^RTL1 W !! G 1
|
|---|
| 16 | Q1 F I=0:0 S I=$O(^DIC(194.5,I)) Q:I'>0 I $D(^(I,0)) K @$P(^(0),"^",5)
|
|---|
| 17 | K RTEST,RTNUM,I,DUOUT
|
|---|
| 18 | K %,%Y1,A,DO,D1,DA,DI,DIC,DIE,DQ,DR,J,K,POP,RTBC,RTFL,RTITLE,Y Q
|
|---|
| 19 | 2 ;;Test Label Format
|
|---|
| 20 | G TEST^RTL2
|
|---|
