| [613] | 1 | TIUBRWS ; SLC/JER - Single patient browse ; 11/12/00
|
|---|
| 2 | ;;1.0;TEXT INTEGRATION UTILITIES;**100**;Jun 20, 1997
|
|---|
| 3 | MAIN(TIULTMP,TIUTYP) ; Control Branching
|
|---|
| 4 | N DFN,TIU,TIUOUT,TIUREL,TIUCHK,TIUA,TIUSEE,ACT,TIUY
|
|---|
| 5 | N TIUOUT,TIUSEE,TIUI,TIUQUIT
|
|---|
| 6 | N TIUGDATA
|
|---|
| 7 | I '$D(TIUPRM0) D SETPARM^TIULE
|
|---|
| 8 | S:$D(ORVP) DFN=+ORVP S TIUTYP=$G(TIUTYP,38)
|
|---|
| 9 | S TIUTYP(1)="1^"_TIUTYP_U_$P(^TIU(8925.1,+TIUTYP,0),U)
|
|---|
| 10 | F D Q:+$G(TIUOUT)
|
|---|
| 11 | . N TIUDAT,TIUGDATA
|
|---|
| 12 | . D SELPAT^TIULA2(.TIUDAT,TIUTYP,+$G(DFN))
|
|---|
| 13 | . I +$G(TIUDAT)'>0,($D(TIUDAT)'>9) D S TIUOUT=1 Q
|
|---|
| 14 | . . W !!,"Nothing selected."
|
|---|
| 15 | . S TIUI=0
|
|---|
| 16 | . F S TIUI=$O(TIUDAT(TIUI)) Q:+TIUI'>0 D Q:$D(DUOUT)!$D(DIROUT)!+$G(TIUOUT)
|
|---|
| 17 | . . S TIUDA=+$G(TIUDAT(TIUI)) Q:TIUDA'>0
|
|---|
| 18 | . . D GETTIU^TIULD(.TIU,+TIUDA)
|
|---|
| 19 | . . I $D(TIU) D
|
|---|
| 20 | . . . S TIUSEE=$$CANDO^TIULP(TIUDA,"VIEW")
|
|---|
| 21 | . . . I 'TIUSEE D Q
|
|---|
| 22 | . . . . W !!,$C(7),$P(TIUSEE,U,2),! K DFN
|
|---|
| 23 | . . . . I $D(ORVP) S TIUOUT=1
|
|---|
| 24 | . . . . S TIU=$$READ^TIUU("FOA","Press RETURN to continue...")
|
|---|
| 25 | . . . ; -- Get ID data needed for browse: --
|
|---|
| 26 | . . . S TIUGDATA=$$IDDATA^TIURECL1(TIUDA)
|
|---|
| 27 | . . . D EN^VALM(TIULTMP)
|
|---|
| 28 | . . . K ^TMP("TIUVIEW",$J),DFN
|
|---|
| 29 | . . . S:$D(TIUQUIT) TIUOUT=1
|
|---|
| 30 | Q
|
|---|
