| 1 | TIUEDI2 ; SLC/JER - Additional Edit Code ; 7-MAR-2000 10:57:50
|
|---|
| 2 | ;;1.0;TEXT INTEGRATION UTILITIES;**1,89**;Jun 20, 1997
|
|---|
| 3 | GETENTRY(TIUTYP) ; Get Entry Action, enforce inheritance
|
|---|
| 4 | N TIUDAD,TIUY S TIUDAD=0
|
|---|
| 5 | S TIUY=$G(^TIU(8925.1,+TIUTYP,4.6))
|
|---|
| 6 | I TIUY']"" S TIUDAD=$O(^TIU(8925.1,"AD",+TIUTYP,0))
|
|---|
| 7 | I +TIUDAD S TIUY=$$GETENTRY(TIUDAD)
|
|---|
| 8 | Q TIUY
|
|---|
| 9 | GETEXIT(TIUTYP) ; Get Validation method, enforce enheritance
|
|---|
| 10 | N TIUDAD,TIUY S TIUDAD=0
|
|---|
| 11 | S TIUY=$G(^TIU(8925.1,+TIUTYP,4.7))
|
|---|
| 12 | I TIUY']"" S TIUDAD=$O(^TIU(8925.1,"AD",+TIUTYP,0))
|
|---|
| 13 | I +TIUDAD S TIUY=$$GETEXIT(TIUDAD)
|
|---|
| 14 | Q TIUY
|
|---|
| 15 | EXSTNOTE(DFN) ; Sample/display existing notes
|
|---|
| 16 | N TIUSMPL,TIUTOTL,TIUEDT,TIULDT,TIUPRMT,TIURVW,TIUPNOUN,TIUSEE,TIUOUT
|
|---|
| 17 | N TIUA,TIUI,TIUJ,TIULAST,TIULIST,TIUREC,TIURTN,TIUSTOP,TIUY,TIUZ,TIUQUIT
|
|---|
| 18 | I '$D(TIUPRM0) D SETPARM^TIULE
|
|---|
| 19 | I '$D(TIUPREF) S TIUPREF=$$PERSPRF^TIULE(DUZ)
|
|---|
| 20 | I +$P(TIUPREF,U,11) Q
|
|---|
| 21 | I +$P(TIUPRM0,U,7),$S($P(TIUPREF,U,11)=0:0,1:1) Q
|
|---|
| 22 | I +$O(^TIU(8925,"ACLPT",3,DFN,0))'>0 Q
|
|---|
| 23 | D SELPAT^TIULA2(.TIURTN,3,DFN,1)
|
|---|
| 24 | I +$G(TIURTN)'>0,($D(TIURTN)=1) D S TIUOUT=1 Q
|
|---|
| 25 | . W !!,"Nothing selected.",!
|
|---|
| 26 | S TIUI=0
|
|---|
| 27 | F S TIUI=$O(TIURTN(TIUI)) Q:+TIUI'>0 D Q:$D(DUOUT)!$D(DIROUT)!+$G(TIUOUT)
|
|---|
| 28 | . N TIUDA
|
|---|
| 29 | . S TIUDA=+$G(TIURTN(TIUI)) Q:TIUDA'>0
|
|---|
| 30 | . D GETTIU^TIULD(.TIU,+TIUDA)
|
|---|
| 31 | . I $D(TIU) D
|
|---|
| 32 | . . S TIUSEE=$$CANDO^TIULP(TIUDA,"VIEW")
|
|---|
| 33 | . . I 'TIUSEE D Q
|
|---|
| 34 | . . . W !!,$C(7),$P(TIUSEE,U,2),! K DFN
|
|---|
| 35 | . . . I $D(ORVP) S TIUOUT=1
|
|---|
| 36 | . . . S TIU=$$READ^TIUU("FOA","Press RETURN to continue...")
|
|---|
| 37 | . . D EN^VALM("TIU BROWSE FOR CLINICIAN")
|
|---|
| 38 | . . K ^TMP("TIUVIEW",$J),DFN
|
|---|
| 39 | . . S:$D(TIUQUIT) TIUOUT=1
|
|---|
| 40 | Q
|
|---|
| 41 | CHEKSAVE(DUZ) ; Checks for entry in ^TIU(8925,"ASAVE",DUZ,TIUDA)
|
|---|
| 42 | Q +$O(^TIU(8925,"ASAVE",DUZ,0))
|
|---|
| 43 | EDITSAVE(DUZ) ; Evaluates whether an unsaved document exists, allows edit
|
|---|
| 44 | N TIUDA,TIUPRMT,TIUY,TIU
|
|---|
| 45 | S TIUDA=$$CHEKSAVE(DUZ)
|
|---|
| 46 | I +TIUDA'>0 Q
|
|---|
| 47 | ; If the document is gone, then delete the save flag and Quit
|
|---|
| 48 | I +TIUDA,'$D(^TIU(8925,+TIUDA,0)) K ^TIU(8925,"ASAVE",DUZ,+TIUDA) Q
|
|---|
| 49 | I $P($G(^TIU(8925,TIUDA,13)),U,2)'=DUZ K ^TIU(8925,"ASAVE",DUZ,TIUDA) Q
|
|---|
| 50 | ; If Lock can't be acquired, quit
|
|---|
| 51 | L +^TIU(8925,+TIUDA,0):1
|
|---|
| 52 | E Q
|
|---|
| 53 | W !!,"You have an unsaved document in your buffer."
|
|---|
| 54 | W !,"Depending on your preferred editor, you may"
|
|---|
| 55 | W !,"have lost some of the text.",!
|
|---|
| 56 | S TIUPRMT="Would you like to resume editing now"
|
|---|
| 57 | S TIUY=$$READ^TIUU("Y",TIUPRMT,"YES")
|
|---|
| 58 | I +TIUY'>0 W !!,"Okay. You can catch up with it later!",! H 1 G EDSAVEX
|
|---|
| 59 | W !!,"Good. Here we go then!",!
|
|---|
| 60 | I $D(^TIU(8925,+TIUDA,"TEMP")),'$D(^TIU(8925,+TIUDA,"TEXT")) D
|
|---|
| 61 | . D GETTIU^TIULD(.TIU,TIUDA)
|
|---|
| 62 | . D MERGTEXT^TIUEDI1(TIUDA,.TIU)
|
|---|
| 63 | D EDIT1^TIURA
|
|---|
| 64 | EDSAVEX L -^TIU(8925,+TIUDA,0)
|
|---|
| 65 | Q
|
|---|
