Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMRCSLMV

GMRCSLMV.m

Go to the documentation of this file.
  1. 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
  1. SET(GMRCNBR) ;Check For Valid input and set inverse video on selected item.
  1. S GMRCNBR=+$P(GMRCNBR,",")
  1. I GMRCNBR<1!(GMRCNBR>VALMCNT) W !,$C(7),GMRCNBR_" is not a valid selection. Choose a number between 1 and "_VALMCNT Q
  1. I $D(GMRC("NMBR")) D RESET(GMRC("NMBR"))
  1. S GMRC("NMBR")=GMRCNBR
  1. K ^TMP("VALM VIDEO",$J,VALMEVL,GMRCNBR)
  1. D CNTRL^VALM10(GMRCNBR,1,80,IORVON,IORVOFF)
  1. D WRITE^VALM10(GMRCNBR)
  1. S VALMBCK=""
  1. Q
  1. RESET(NUMBR) ;turn reverse video off when another item is selected
  1. K ^TMP("VALM VIDEO",$J,VALMEVL,NUMBR)
  1. D CNTRL^VALM10(NUMBR,1,80,IOINORM,IOINORM)
  1. D WRITE^VALM10(NUMBR)
  1. S VALMBCK="" K GMRCSEL
  1. Q
  1. AGAIN(NMBR) ;RESET THE VIDEO ATTRIBUTE ONLY, DO NOT REDISPLAY
  1. Q:'$D(NMBR) Q:NMBR=""
  1. K ^TMP("VALM VIDEO",$J,VALMEVL,NMBR)
  1. D CNTRL^VALM10(NMBR,1,80,IORVON,IORVOFF)
  1. S VALMBCK=""
  1. Q