| 1 | GMRCSLMV ;SLC/DCM - Set Video attributes for list manager screens ;9/8/98 03:48
|
|---|
| 2 | ;;3.0;CONSULT/REQUEST TRACKING;**1,4**;DEC 27, 1997
|
|---|
| 3 | SET(GMRCNBR) ;Check For Valid input and set inverse video on selected item.
|
|---|
| 4 | S GMRCNBR=+$P(GMRCNBR,",")
|
|---|
| 5 | I GMRCNBR<1!(GMRCNBR>VALMCNT) W !,$C(7),GMRCNBR_" is not a valid selection. Choose a number between 1 and "_VALMCNT Q
|
|---|
| 6 | I $D(GMRC("NMBR")) D RESET(GMRC("NMBR"))
|
|---|
| 7 | S GMRC("NMBR")=GMRCNBR
|
|---|
| 8 | K ^TMP("VALM VIDEO",$J,VALMEVL,GMRCNBR)
|
|---|
| 9 | D CNTRL^VALM10(GMRCNBR,1,80,IORVON,IORVOFF)
|
|---|
| 10 | D WRITE^VALM10(GMRCNBR)
|
|---|
| 11 | S VALMBCK=""
|
|---|
| 12 | Q
|
|---|
| 13 | RESET(NUMBR) ;turn reverse video off when another item is selected
|
|---|
| 14 | K ^TMP("VALM VIDEO",$J,VALMEVL,NUMBR)
|
|---|
| 15 | D CNTRL^VALM10(NUMBR,1,80,IOINORM,IOINORM)
|
|---|
| 16 | D WRITE^VALM10(NUMBR)
|
|---|
| 17 | S VALMBCK="" K GMRCSEL
|
|---|
| 18 | Q
|
|---|
| 19 | AGAIN(NMBR) ;RESET THE VIDEO ATTRIBUTE ONLY, DO NOT REDISPLAY
|
|---|
| 20 | Q:'$D(NMBR) Q:NMBR=""
|
|---|
| 21 | K ^TMP("VALM VIDEO",$J,VALMEVL,NMBR)
|
|---|
| 22 | D CNTRL^VALM10(NMBR,1,80,IORVON,IORVOFF)
|
|---|
| 23 | S VALMBCK=""
|
|---|
| 24 | Q
|
|---|
