| 1 | VALM00 ;MJK/ALB - List Manager (cont.);10:04 AM 7 Dec 1992
|
|---|
| 2 | ;;1;List Manager;;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | KEYS(PRTCL,KILL) ; -- set up default objects
|
|---|
| 5 | N X,I,Y,NUM,CNT
|
|---|
| 6 | K:$G(KILL) VALMKEY
|
|---|
| 7 | I VALM("DEFS") D
|
|---|
| 8 | .S VALMKEY(10001)=+$O(^ORD(101,"B","VALM NEXT SCREEN",0))_"^NEXT^10001"
|
|---|
| 9 | .S VALMKEY(10002)=+$O(^ORD(101,"B","VALM PREVIOUS SCREEN",0))_"^PREV^10002"
|
|---|
| 10 | .S VALMKEY(10003)=+$O(^ORD(101,"B","VALM QUIT",0))_"^QUIT^10003"
|
|---|
| 11 | S VALMKEY=$G(VALMKEY)+0
|
|---|
| 12 | G:PRTCL="" KEYSQ
|
|---|
| 13 | S X=+$O(^ORD(101,"B",PRTCL,0)),(VALMKEY,I)=0,NUM=9999
|
|---|
| 14 | F S I=$O(^ORD(101,X,10,I)) Q:'I S Y=$G(^(I,0)) I $P(Y,U,2)]"" D
|
|---|
| 15 | .S:'$P(Y,U,3) $P(Y,U,3)=NUM,NUM=NUM-1
|
|---|
| 16 | .S VALMKEY(+$P(Y,U,3))=$P(Y,U,1,3),VALMKEY=VALMKEY+1
|
|---|
| 17 | S VALMKEY=VALMKEY_U_PRTCL
|
|---|
| 18 | KEYSQ Q
|
|---|
| 19 | ;
|
|---|
| 20 | ATR ; -- set default video ctrls
|
|---|
| 21 | N FLD,COL,WIDTH,ON,OFF
|
|---|
| 22 | S FLD=""
|
|---|
| 23 | F S FLD=$O(VALMDDF(FLD)) Q:FLD="" D
|
|---|
| 24 | .S (ON,OFF)="",X=VALMDDF(FLD),COL=+$P(X,U,2),WIDTH=+$P(X,U,3)
|
|---|
| 25 | .D ATRFLD(.FLD,.ON,.OFF)
|
|---|
| 26 | .D:ON]"" CNTRL^VALM10(0,.COL,.WIDTH,.ON,.OFF,1)
|
|---|
| 27 | Q
|
|---|
| 28 | ;
|
|---|
| 29 | ATRFLD(FLD,ON,OFF) ; -- get field video ctrls ; ON/OFF by reference only
|
|---|
| 30 | N CTRL,M
|
|---|
| 31 | S CTRL=$P(VALMDDF(FLD),U,5)
|
|---|
| 32 | F M=1:1:$L(CTRL) D ONOFF($E(CTRL,M),.ON,.OFF)
|
|---|
| 33 | ATRFLDQ Q
|
|---|
| 34 | ;
|
|---|
| 35 | ONOFF(CTRL,ON,OFF) ; -- get video ctrls ; ON/OFF by reference only
|
|---|
| 36 | N I
|
|---|
| 37 | S I=$F("HRUB",CTRL) S:I I=I-1
|
|---|
| 38 | S ON=ON_@($P("IOINHI^IORVON^IOUON^IOBON","^",I))
|
|---|
| 39 | S OFF=OFF_@($P("IOINORM^IORVOFF^IOUOFF^IOBOFF","^",I))
|
|---|
| 40 | Q
|
|---|
| 41 | ;
|
|---|
| 42 | SETUP(NAME) ; -- on-the-fly list
|
|---|
| 43 | D @NAME
|
|---|
| 44 | S Y=1 F X="ARRAY" I '$D(VALM(X)) S Y=0 G SETUPQ
|
|---|
| 45 | I $E(VALM("ARRAY"))'="" S VALM("ARRAY")=" "_VALM("ARRAY")
|
|---|
| 46 | S VALM("IFN")=0
|
|---|
| 47 | S:'$D(VALM("TM")) VALM("TM")=$S('$D(VALM("HDR")):2,1:5)
|
|---|
| 48 | S:'$D(VALM("BM")) VALM("BM")=$S('$D(VALM("HDR")):16,1:14)
|
|---|
| 49 | S:'$D(VALM("TYPE")) VALM("TYPE")=2 ; def to display
|
|---|
| 50 | S:'$D(VALM("TITLE")) VALM("TITLE")="Standard List Display"
|
|---|
| 51 | I '$G(VALM("MAX")) S VALM("MAX")=1
|
|---|
| 52 | S:'$D(VALM("FIXED")) VALM("FIXED")=0
|
|---|
| 53 | S:'$D(VALM("RM")) VALM("RM")=240
|
|---|
| 54 | S:'$D(VALM("DEFS")) VALM("DEFS")=1
|
|---|
| 55 | S:'$D(VALMCC) VALMCC=1
|
|---|
| 56 | S:'$D(VALM("HIDDEN")) VALM("HIDDEN")="VALM HIDDEN ACTIONS"
|
|---|
| 57 | SETUPQ Q Y
|
|---|
| 58 | ;
|
|---|
