| [613] | 1 | HLEMSU ;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 | ;
|
|---|
| 5 | SET(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 | ;
|
|---|
| 25 | STATION(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 | ;
|
|---|
| 33 | CENTER(STRING) ;
|
|---|
| 34 | Q $$CJ^XLFSTR(STRING,80)
|
|---|
