GMRCSLMV.m

GMRCSLMV ;SLC/DCM - Set Video attributes for list manager screens ;9/8/98  03:48

 ;;3.0;CONSULT/REQUEST TRACKING;**1,4**;DEC 27, 1997

SET(GMRCNBR) ;Check For Valid input and set inverse video on selected item.

 S GMRCNBR=+$P(GMRCNBR,",")

 I GMRCNBR<1!(GMRCNBR>VALMCNT) W !,$C(7),GMRCNBR_" is not a valid selection. Choose a number between 1 and "_VALMCNT Q

 I $D(GMRC("NMBR")) D RESET(GMRC("NMBR"))

 S GMRC("NMBR")=GMRCNBR

 K ^TMP("VALM VIDEO",$J,VALMEVL,GMRCNBR)

 D CNTRL^VALM10(GMRCNBR,1,80,IORVON,IORVOFF)

 D WRITE^VALM10(GMRCNBR)

 S VALMBCK=""

 Q

RESET(NUMBR) ;turn reverse video off when another item is selected

 K ^TMP("VALM VIDEO",$J,VALMEVL,NUMBR)

 D CNTRL^VALM10(NUMBR,1,80,IOINORM,IOINORM)

 D WRITE^VALM10(NUMBR)

 S VALMBCK="" K GMRCSEL

 Q

AGAIN(NMBR) ;RESET THE VIDEO ATTRIBUTE ONLY, DO NOT REDISPLAY

 Q:'$D(NMBR)  Q:NMBR=""

 K ^TMP("VALM VIDEO",$J,VALMEVL,NMBR)

 D CNTRL^VALM10(NMBR,1,80,IORVON,IORVOFF)

 S VALMBCK=""

 Q

GMRCSLMV  ;SLC/DCM - Set Video attributes for list manager screens ;9/8/98  03:48

 +1       ;;3.0;CONSULT/REQUEST TRACKING;**1,4**;DEC 27, 1997

SET(GMRCNBR) ;Check For Valid input and set inverse video on selected item.

 +1        SET GMRCNBR=+$PIECE(GMRCNBR,",")

 +2        IF GMRCNBR<1!(GMRCNBR>VALMCNT)

               WRITE !,$CHAR(7),GMRCNBR_" is not a valid selection. Choose a number between 1 and "_VALMCNT

               QUIT 

 +3        IF $DATA(GMRC("NMBR"))

               DO RESET(GMRC("NMBR"))

 +4        SET GMRC("NMBR")=GMRCNBR

 +5        KILL ^TMP("VALM VIDEO",$JOB,VALMEVL,GMRCNBR)

 +6        DO CNTRL^VALM10(GMRCNBR,1,80,IORVON,IORVOFF)

 +7        DO WRITE^VALM10(GMRCNBR)

 +8        SET VALMBCK=""

 +9        QUIT 

RESET(NUMBR) ;turn reverse video off when another item is selected

 +1        KILL ^TMP("VALM VIDEO",$JOB,VALMEVL,NUMBR)

 +2        DO CNTRL^VALM10(NUMBR,1,80,IOINORM,IOINORM)

 +3        DO WRITE^VALM10(NUMBR)

 +4        SET VALMBCK=""

           KILL GMRCSEL

 +5        QUIT 

AGAIN(NMBR) ;RESET THE VIDEO ATTRIBUTE ONLY, DO NOT REDISPLAY

 +1        IF '$DATA(NMBR)

               QUIT 

           IF NMBR=""

               QUIT 

 +2        KILL ^TMP("VALM VIDEO",$JOB,VALMEVL,NMBR)

 +3        DO CNTRL^VALM10(NMBR,1,80,IORVON,IORVOFF)

 +4        SET VALMBCK=""

 +5        QUIT