- HLEMSU ;ALB/CJM,ALB/BRM - Utilities for building ListManager screens; 2/27/01 1:25pm
- ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13,1995
- ;
- ;
- SET(LINE,TEXT,COL,CNTRL) ; -- set display array
- ; Input:
- ; LINE - line# to put the TEXT
- ; TEXT - **optional** text to put in the array
- ; COL - **optional** column # to put the TEXT
- ; CNTRL - **optional** video display chracteristic - "H"= high, "B"-blinking
- ; Output:
- ; function returns the number of lines in the list
- N X,ON,OFF
- S:LINE>VALMCNT VALMCNT=LINE
- S:'$L(TEXT) TEXT=" "
- S X=$G(@IDX@(VALMCNT,0))
- S @IDX@(VALMCNT,0)=$$SETSTR^VALM1(TEXT,X,COL,$L(TEXT))
- I $G(CNTRL)["R" S ON=IORVON,OFF=IORVOFF
- I $G(CNTRL)["B" S ON=$G(ON)_IOBON,OFF=$G(OFF)_IOBOFF
- I $G(CNTRL)["H" S ON=$G(ON)_IOINHI,OFF=$G(IOINORM)
- I $G(CNTRL)["U" S ON=$G(ON)_IOUON,OFF=$G(IOUOFF)
- D:$L($G(ON)) CNTRL^VALM10(LINE,COL,$L(TEXT),ON,OFF)
- Q VALMCNT
- ;
- STATION(IEN) ;
- ;Description: Given an ien to the Institution file, returns as the function value the <facility name>^<station number>
- ;
- N RETURN
- Q:'$G(IEN) ""
- Q:'$D(^DIC(4,IEN,0)) ""
- Q $P($$NNT^XUAF4(IEN),"^",1,2)
- ;
- CENTER(STRING) ;
- Q $$CJ^XLFSTR(STRING,80)
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLEMSU 1178 printed Jan 18, 2025@02:58:52 Page 2
- 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
- +2 ;
- +3 ;
- SET(LINE,TEXT,COL,CNTRL) ; -- set display array
- +1 ; Input:
- +2 ; LINE - line# to put the TEXT
- +3 ; TEXT - **optional** text to put in the array
- +4 ; COL - **optional** column # to put the TEXT
- +5 ; CNTRL - **optional** video display chracteristic - "H"= high, "B"-blinking
- +6 ; Output:
- +7 ; function returns the number of lines in the list
- +8 NEW X,ON,OFF
- +9 if LINE>VALMCNT
- SET VALMCNT=LINE
- +10 if '$LENGTH(TEXT)
- SET TEXT=" "
- +11 SET X=$GET(@IDX@(VALMCNT,0))
- +12 SET @IDX@(VALMCNT,0)=$$SETSTR^VALM1(TEXT,X,COL,$LENGTH(TEXT))
- +13 IF $GET(CNTRL)["R"
- SET ON=IORVON
- SET OFF=IORVOFF
- +14 IF $GET(CNTRL)["B"
- SET ON=$GET(ON)_IOBON
- SET OFF=$GET(OFF)_IOBOFF
- +15 IF $GET(CNTRL)["H"
- SET ON=$GET(ON)_IOINHI
- SET OFF=$GET(IOINORM)
- +16 IF $GET(CNTRL)["U"
- SET ON=$GET(ON)_IOUON
- SET OFF=$GET(IOUOFF)
- +17 if $LENGTH($GET(ON))
- DO CNTRL^VALM10(LINE,COL,$LENGTH(TEXT),ON,OFF)
- +18 QUIT VALMCNT
- +19 ;
- STATION(IEN) ;
- +1 ;Description: Given an ien to the Institution file, returns as the function value the <facility name>^<station number>
- +2 ;
- +3 NEW RETURN
- +4 if '$GET(IEN)
- QUIT ""
- +5 if '$DATA(^DIC(4,IEN,0))
- QUIT ""
- +6 QUIT $PIECE($$NNT^XUAF4(IEN),"^",1,2)
- +7 ;
- CENTER(STRING) ;
- +1 QUIT $$CJ^XLFSTR(STRING,80)