TIUBRWS.m

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 ---TIUBRWS   1143     printed  Apr 09, 2024@21:46:24                                                                                                                                                                                                     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