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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRCSLMV 958 printed Dec 13, 2024@01:47:15 Page 2
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