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 Dec 13, 2024@02:39:02 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
