| Name | Value |
|---|---|
| NAME | TIU ACTION SELECT NEW PATIENT |
| ITEM TEXT | Select New Patient |
| PACKAGE | TEXT INTEGRATION UTILITIES |
| EXIT ACTION | D:$D(^TMP("TIUR",$J)) HDR^TIUROR S VALMBCK=$S($D(^TMP("TIUR",$J,0)):"R",1:"Q"),VALMBG=1 |
| ENTRY ACTION | K ^TMP("TIURSAVE",$J),^TMP("TIURSIDX",$J),^TMP("VALM VIDEO",$J),VALMY D FULL^VALM1,INIT^TIUROR(+$G(^TMP("TIUR",$J,"CLASS")),1) |
| SCREEN | I '$G(TIUGLINK),+$G(ORVP)'>0 |
| DESCRIPTION | Select a new patient. |
| TYPE | action |
| CREATOR | USER,ONE |
| TIMESTAMP | 2001-04-30 10:27:15 |