- TIUBRWS ; SLC/JER - Single patient browse ; 11/12/00
- ;;1.0;TEXT INTEGRATION UTILITIES;**100**;Jun 20, 1997
- MAIN(TIULTMP,TIUTYP) ; Control Branching
- N DFN,TIU,TIUOUT,TIUREL,TIUCHK,TIUA,TIUSEE,ACT,TIUY
- N TIUOUT,TIUSEE,TIUI,TIUQUIT
- N TIUGDATA
- I '$D(TIUPRM0) D SETPARM^TIULE
- S:$D(ORVP) DFN=+ORVP S TIUTYP=$G(TIUTYP,38)
- S TIUTYP(1)="1^"_TIUTYP_U_$P(^TIU(8925.1,+TIUTYP,0),U)
- F D Q:+$G(TIUOUT)
- . N TIUDAT,TIUGDATA
- . D SELPAT^TIULA2(.TIUDAT,TIUTYP,+$G(DFN))
- . I +$G(TIUDAT)'>0,($D(TIUDAT)'>9) D S TIUOUT=1 Q
- . . W !!,"Nothing selected."
- . S TIUI=0
- . F S TIUI=$O(TIUDAT(TIUI)) Q:+TIUI'>0 D Q:$D(DUOUT)!$D(DIROUT)!+$G(TIUOUT)
- . . S TIUDA=+$G(TIUDAT(TIUI)) Q:TIUDA'>0
- . . D GETTIU^TIULD(.TIU,+TIUDA)
- . . I $D(TIU) D
- . . . S TIUSEE=$$CANDO^TIULP(TIUDA,"VIEW")
- . . . I 'TIUSEE D Q
- . . . . W !!,$C(7),$P(TIUSEE,U,2),! K DFN
- . . . . I $D(ORVP) S TIUOUT=1
- . . . . S TIU=$$READ^TIUU("FOA","Press RETURN to continue...")
- . . . ; -- Get ID data needed for browse: --
- . . . S TIUGDATA=$$IDDATA^TIURECL1(TIUDA)
- . . . D EN^VALM(TIULTMP)
- . . . K ^TMP("TIUVIEW",$J),DFN
- . . . S:$D(TIUQUIT) TIUOUT=1
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUBRWS 1143 printed Jan 18, 2025@03:40:11 Page 2
- TIUBRWS ; SLC/JER - Single patient browse ; 11/12/00
- +1 ;;1.0;TEXT INTEGRATION UTILITIES;**100**;Jun 20, 1997
- MAIN(TIULTMP,TIUTYP) ; Control Branching
- +1 NEW DFN,TIU,TIUOUT,TIUREL,TIUCHK,TIUA,TIUSEE,ACT,TIUY
- +2 NEW TIUOUT,TIUSEE,TIUI,TIUQUIT
- +3 NEW TIUGDATA
- +4 IF '$DATA(TIUPRM0)
- DO SETPARM^TIULE
- +5 if $DATA(ORVP)
- SET DFN=+ORVP
- SET TIUTYP=$GET(TIUTYP,38)
- +6 SET TIUTYP(1)="1^"_TIUTYP_U_$PIECE(^TIU(8925.1,+TIUTYP,0),U)
- +7 FOR
- Begin DoDot:1
- +8 NEW TIUDAT,TIUGDATA
- +9 DO SELPAT^TIULA2(.TIUDAT,TIUTYP,+$GET(DFN))
- +10 IF +$GET(TIUDAT)'>0
- IF ($DATA(TIUDAT)'>9)
- Begin DoDot:2
- +11 WRITE !!,"Nothing selected."
- End DoDot:2
- SET TIUOUT=1
- QUIT
- +12 SET TIUI=0
- +13 FOR
- SET TIUI=$ORDER(TIUDAT(TIUI))
- if +TIUI'>0
- QUIT
- Begin DoDot:2
- +14 SET TIUDA=+$GET(TIUDAT(TIUI))
- if TIUDA'>0
- QUIT
- +15 DO GETTIU^TIULD(.TIU,+TIUDA)
- +16 IF $DATA(TIU)
- Begin DoDot:3
- +17 SET TIUSEE=$$CANDO^TIULP(TIUDA,"VIEW")
- +18 IF 'TIUSEE
- Begin DoDot:4
- +19 WRITE !!,$CHAR(7),$PIECE(TIUSEE,U,2),!
- KILL DFN
- +20 IF $DATA(ORVP)
- SET TIUOUT=1
- +21 SET TIU=$$READ^TIUU("FOA","Press RETURN to continue...")
- End DoDot:4
- QUIT
- +22 ; -- Get ID data needed for browse: --
- +23 SET TIUGDATA=$$IDDATA^TIURECL1(TIUDA)
- +24 DO EN^VALM(TIULTMP)
- +25 KILL ^TMP("TIUVIEW",$JOB),DFN
- +26 if $DATA(TIUQUIT)
- SET TIUOUT=1
- End DoDot:3
- End DoDot:2
- if $DATA(DUOUT)!$DATA(DIROUT)!+$GET(TIUOUT)
- QUIT
- End DoDot:1
- if +$GET(TIUOUT)
- QUIT
- +27 QUIT