source: WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLEMSU.m@ 1710

Last change on this file since 1710 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1HLEMSU ;ALB/CJM,ALB/BRM - Utilities for building ListManager screens; 2/27/01 1:25pm
2 ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13,1995
3 ;
4 ;
5SET(LINE,TEXT,COL,CNTRL) ; -- set display array
6 ; Input:
7 ; LINE - line# to put the TEXT
8 ; TEXT - **optional** text to put in the array
9 ; COL - **optional** column # to put the TEXT
10 ; CNTRL - **optional** video display chracteristic - "H"= high, "B"-blinking
11 ; Output:
12 ; function returns the number of lines in the list
13 N X,ON,OFF
14 S:LINE>VALMCNT VALMCNT=LINE
15 S:'$L(TEXT) TEXT=" "
16 S X=$G(@IDX@(VALMCNT,0))
17 S @IDX@(VALMCNT,0)=$$SETSTR^VALM1(TEXT,X,COL,$L(TEXT))
18 I $G(CNTRL)["R" S ON=IORVON,OFF=IORVOFF
19 I $G(CNTRL)["B" S ON=$G(ON)_IOBON,OFF=$G(OFF)_IOBOFF
20 I $G(CNTRL)["H" S ON=$G(ON)_IOINHI,OFF=$G(IOINORM)
21 I $G(CNTRL)["U" S ON=$G(ON)_IOUON,OFF=$G(IOUOFF)
22 D:$L($G(ON)) CNTRL^VALM10(LINE,COL,$L(TEXT),ON,OFF)
23 Q VALMCNT
24 ;
25STATION(IEN) ;
26 ;Description: Given an ien to the Institution file, returns as the function value the <facility name>^<station number>
27 ;
28 N RETURN
29 Q:'$G(IEN) ""
30 Q:'$D(^DIC(4,IEN,0)) ""
31 Q $P($$NNT^XUAF4(IEN),"^",1,2)
32 ;
33CENTER(STRING) ;
34 Q $$CJ^XLFSTR(STRING,80)
Note: See TracBrowser for help on using the repository browser.