source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUBRWS.m@ 975

Last change on this file since 975 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1TIUBRWS ; SLC/JER - Single patient browse ; 11/12/00
2 ;;1.0;TEXT INTEGRATION UTILITIES;**100**;Jun 20, 1997
3MAIN(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
Note: See TracBrowser for help on using the repository browser.