| [613] | 1 | TIUU ; SLC/JER - Utility subroutines for Discharge Summary ;9/7/94 16:37
|
|---|
| 2 | ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997;
|
|---|
| 3 | TITLE(X) ; Pads titles
|
|---|
| 4 | ; Recieves: X=title to be padded
|
|---|
| 5 | N I,TITLE
|
|---|
| 6 | S TITLE="" F I=1:1:$L(X) S TITLE=TITLE_" "_$E(X,I)
|
|---|
| 7 | Q TITLE
|
|---|
| 8 | JUSTIFY(X,JUST) ; Justifies Text
|
|---|
| 9 | ; Receives: X=text to be justified
|
|---|
| 10 | ; JUST="L" --> left, "C" --> center, "R" --> right,
|
|---|
| 11 | ; "J" --> justified to WIDTH
|
|---|
| 12 | ; WIDTH=justification width (when JUST="j"
|
|---|
| 13 | I "Cc"[JUST W ?((80-$L(X))/2),X
|
|---|
| 14 | I "Ll"[JUST W X,!!
|
|---|
| 15 | I "Rr"[JUST W ?(80-$L(X)),X
|
|---|
| 16 | Q
|
|---|
| 17 | STOP(PROMPT,SCROLL) ; Call DIR at bottom of screen
|
|---|
| 18 | N DIR,X,Y
|
|---|
| 19 | I $E(IOST)'="C" S Y="" G STOPX
|
|---|
| 20 | I +$G(SCROLL),(IOSL>($Y+5)) F W ! Q:IOSL<($Y+6)
|
|---|
| 21 | S DIR(0)="FO^1:1",DIR("A")=$S($G(PROMPT)]"":PROMPT,1:"Press RETURN to continue or '^' to exit")
|
|---|
| 22 | S DIR("?")="Enter '^' to quit present action or '^^' to quit to menu"
|
|---|
| 23 | D ^DIR I $D(DIRUT),(Y="") K DIRUT
|
|---|
| 24 | S Y=$S(Y="^":0,Y="^^":0,$D(DTOUT):"",Y="":1,1:1_U_Y)
|
|---|
| 25 | STOPX Q Y
|
|---|
| 26 | READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN) ; Calls reader, returns response
|
|---|
| 27 | N DIR,X,Y
|
|---|
| 28 | S DIR(0)=TYPE
|
|---|
| 29 | I $D(SCREEN) S DIR("S")=SCREEN
|
|---|
| 30 | I $G(PROMPT)]"" S DIR("A")=PROMPT
|
|---|
| 31 | I $G(DEFAULT)]"" S DIR("B")=DEFAULT
|
|---|
| 32 | I $D(HELP) S DIR("?")=HELP
|
|---|
| 33 | D ^DIR
|
|---|
| 34 | I $G(X)="@" S Y="@" G READX
|
|---|
| 35 | I Y]"",($L($G(Y),U)'=2) S Y=Y_U_$G(Y(0),Y)
|
|---|
| 36 | READX Q Y
|
|---|
| 37 | UPDATE ; Updates fields in review screen
|
|---|
| 38 | ; Receives: X=new value of field
|
|---|
| 39 | ; FLD=name of field to be modified
|
|---|
| 40 | I $D(^TMP("TIUVIEW",$J,3,0)),+$G(TIUDA) D
|
|---|
| 41 | . S ^TMP("TIUVIEW",$J,3,0)=$$SETSTR^VALM1("SIG STATUS: "_$P($$STATUS^TIULC(TIUDA),U,2),$G(^TMP("TIUVIEW",$J,3,0)),38,41)
|
|---|
| 42 | Q
|
|---|
| 43 | LISTREAD(TIULIST,ANSTYPE) ; Present list to user for selection of item(s)
|
|---|
| 44 | N TIUI,TIUL,TIUY S (TIUI,TIUY)=0
|
|---|
| 45 | S ANSTYPE=$S($G(ANSTYPE)]"":$G(ANSTYPE),1:"N")
|
|---|
| 46 | F S TIUI=$O(TIULIST(TIUI)) Q:+TIUI'>0 D
|
|---|
| 47 | . W !,TIUI,?5,$P(TIULIST(TIUI),U,2) S TIUL=TIUI
|
|---|
| 48 | I +$G(TIUL) D
|
|---|
| 49 | . W !
|
|---|
| 50 | . S TIUY=$$READ(ANSTYPE_"A^1:"_TIUL,"Select "_$P(TIULIST,U)_": ")
|
|---|
| 51 | . I +TIUY S TIUY=$G(TIULIST(+TIUY))
|
|---|
| 52 | Q TIUY
|
|---|
