| 1 | VALMXQ09 ; alb/mjk - XQORM1 for export with LM v1 ; 3/30/93
|
|---|
| 2 | ;;1;List Manager;;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | XQORM1 ; SLC/KCM - Display selections & prompt ;12/14/92 12:05
|
|---|
| 6 | ;;6.7;Sidewinder;;Jan 08, 1993
|
|---|
| 7 | DISP ;From: XQORM
|
|---|
| 8 | N L,M,N,T
|
|---|
| 9 | I $E(X)="?" W ! S (DX,DY)=0 X ^%ZOSF("XY")
|
|---|
| 10 | S T=1 S:$D(^XUTL("XQORM",XQORM,"COL")) T=^("COL") S:'T T=1 S T=IOM\T
|
|---|
| 11 | S M=5 I $D(XQORM("M")),+XQORM("M"),XQORM("M")'>T S M=XQORM("M")
|
|---|
| 12 | N X S L=0 F I=0:0 S I=$O(^XUTL("XQORM",XQORM,I)) Q:I'>0 I $D(^(I,0)) S X=^(0),J=($P(I,".",2)-1)*T D:$P(I,".")>L RD Q:N D
|
|---|
| 13 | . D:$D(XQORM("S")) SCRN
|
|---|
| 14 | . W ?(J),$P(X,"^",4),?(J+M)
|
|---|
| 15 | . I '$D(XQORM("W")) W $P(X,"^",3)
|
|---|
| 16 | . E X XQORM("W")
|
|---|
| 17 | . S L=$P(I,".")
|
|---|
| 18 | Q
|
|---|
| 19 | SCRN Q:$D(XQORM("S"))[0 Q:'$L(XQORM("S")) Q:'+X D SCRN1
|
|---|
| 20 | Q:$T S $P(X,"^",3)="("_$P(X,"^",3)_")"
|
|---|
| 21 | Q
|
|---|
| 22 | SCRN1 N DA S DA=+X,DA(1)=+XQORM N I,J,L,M,T,X,Y X XQORM("S") Q
|
|---|
| 23 | PRMT ;From: XQORM
|
|---|
| 24 | S ORUPRMT=$S($D(XQORM("A"))[0:"Select Item(s): ",1:XQORM("A"))
|
|---|
| 25 | F ORU=0:0 D PRMT1 I Y D:(X'=" ")&(X?.ANP) EAT S:X="^^" DIROUT=1 D:X'?.ANP CC^XQORM4 D:$L(X)>80 LL^XQORM4 Q:($E(X)'="?")&(X?.ANP)&($L(X)'>80) D:$E(X)="?" HELP^XQORM4 I $D(DIROUT) S X="^^" Q
|
|---|
| 26 | K ORUPRMT Q
|
|---|
| 27 | PRMT1 S Y=0 W:XQORM(0)'["\" ! W ORUPRMT,$S($D(XQORM("B"))'[0:XQORM("B")_"// ",1:"")
|
|---|
| 28 | R X:$S($D(DTIME):DTIME,1:300) S:'$T DTOUT=1,X="^" S:'$L(X)&($D(XQORM("B"))'[0) X=XQORM("B")
|
|---|
| 29 | I $D(XQORM("NO^")),X["^"!(X=""),X'?1"^^"1E.E D NU^XQORM4 Q
|
|---|
| 30 | S Y=1 Q
|
|---|
| 31 | UP ;F %=1:1:$L(X) I $E(X,%)?1L S X=$E(X,1,%-1)_$C($A(X,%)-32)_$E(X,%+1,999)
|
|---|
| 32 | S X=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
|
|---|
| 33 | Q
|
|---|
| 34 | EAT F I=0:0 Q:$E(X)]" " Q:'$L(X) S X=$E(X,2,999)
|
|---|
| 35 | F I=0:0 Q:$E(X,$L(X))]" " Q:'$L(X) S X=$E(X,1,$L(X)-1)
|
|---|
| 36 | Q
|
|---|
| 37 | RD S N=0 W ! Q:$Y<(IOSL-2) W !,"Press RETURN to continue or '^' to exit: "
|
|---|
| 38 | N X R X:$S($D(DTIME):DTIME,1:300) S:'$T X="^" S:$E(X)="^" N=1
|
|---|
| 39 | S (DX,DY)=0 X ^%ZOSF("XY") W !!
|
|---|
| 40 | Q
|
|---|
| 41 | INHI() ; Switch to highlighted video (IOINHI must be defined by caller)
|
|---|
| 42 | S DX=$X#81,DY=$Y#25 W IOINHI X ^%ZOSF("XY")
|
|---|
| 43 | Q ""
|
|---|
| 44 | INLO() ; Switch to lowlighted video (IOINLOW must be defined by caller)
|
|---|
| 45 | S DX=$X#81,DY=$Y#25 W IOINLOW X ^%ZOSF("XY")
|
|---|
| 46 | Q ""
|
|---|
