source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDI2.m@ 1259

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

initial load of WorldVistAEHR

File size: 2.5 KB
Line 
1TIUEDI2 ; SLC/JER - Additional Edit Code ; 7-MAR-2000 10:57:50
2 ;;1.0;TEXT INTEGRATION UTILITIES;**1,89**;Jun 20, 1997
3GETENTRY(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
9GETEXIT(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
15EXSTNOTE(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
41CHEKSAVE(DUZ) ; Checks for entry in ^TIU(8925,"ASAVE",DUZ,TIUDA)
42 Q +$O(^TIU(8925,"ASAVE",DUZ,0))
43EDITSAVE(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
64EDSAVEX L -^TIU(8925,+TIUDA,0)
65 Q
Note: See TracBrowser for help on using the repository browser.