source: FOIAVistA/trunk/r/CONSULT_REQUEST_TRACKING-GMRC-GMRS-GMRT/GMRCSLMV.m@ 1397

Last change on this file since 1397 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 934 bytes
Line 
1GMRCSLMV ;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
3SET(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
13RESET(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
19AGAIN(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
Note: See TracBrowser for help on using the repository browser.