- 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 Jan 18, 2025@02:48:29 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