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

HLEMSU.m

Go to the documentation of this file.
  1. HLEMSU ;ALB/CJM,ALB/BRM - Utilities for building ListManager screens; 2/27/01 1:25pm
  1. ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13,1995
  1. ;
  1. ;
  1. SET(LINE,TEXT,COL,CNTRL) ; -- set display array
  1. ; Input:
  1. ; LINE - line# to put the TEXT
  1. ; TEXT - **optional** text to put in the array
  1. ; COL - **optional** column # to put the TEXT
  1. ; CNTRL - **optional** video display chracteristic - "H"= high, "B"-blinking
  1. ; Output:
  1. ; function returns the number of lines in the list
  1. N X,ON,OFF
  1. S:LINE>VALMCNT VALMCNT=LINE
  1. S:'$L(TEXT) TEXT=" "
  1. S X=$G(@IDX@(VALMCNT,0))
  1. S @IDX@(VALMCNT,0)=$$SETSTR^VALM1(TEXT,X,COL,$L(TEXT))
  1. I $G(CNTRL)["R" S ON=IORVON,OFF=IORVOFF
  1. I $G(CNTRL)["B" S ON=$G(ON)_IOBON,OFF=$G(OFF)_IOBOFF
  1. I $G(CNTRL)["H" S ON=$G(ON)_IOINHI,OFF=$G(IOINORM)
  1. I $G(CNTRL)["U" S ON=$G(ON)_IOUON,OFF=$G(IOUOFF)
  1. D:$L($G(ON)) CNTRL^VALM10(LINE,COL,$L(TEXT),ON,OFF)
  1. Q VALMCNT
  1. ;
  1. STATION(IEN) ;
  1. ;Description: Given an ien to the Institution file, returns as the function value the <facility name>^<station number>
  1. ;
  1. N RETURN
  1. Q:'$G(IEN) ""
  1. Q:'$D(^DIC(4,IEN,0)) ""
  1. Q $P($$NNT^XUAF4(IEN),"^",1,2)
  1. ;
  1. CENTER(STRING) ;
  1. Q $$CJ^XLFSTR(STRING,80)