26 lines
894 B
Mathematica
26 lines
894 B
Mathematica
TIUEDIU ; SLC/JER - Enter/Edit Utility Subroutines;12/04/97 14:40
|
|
;;1.0;TEXT INTEGRATION UTILITIES;**7**;Jun 20, 1997
|
|
BUFFER(DA) ; Save original text
|
|
K ^TIU(8925,+DA,"TEMP")
|
|
M ^TIU(8925,+DA,"TEMP")=^TIU(8925,+DA,"TEXT")
|
|
D MERGTEMP^TIUEDI1(DA)
|
|
Q
|
|
COMMIT(DA,HUSH) ; Overwrite original text
|
|
N DIE,DR,TIUSAVE S TIUSAVE=1
|
|
I '+$G(HUSH),(+$P($G(TIUPREF),U,7)>0) D Q:'TIUSAVE
|
|
. S TIUSAVE=$$READ^TIUU("YO","Save changes","YES")
|
|
. I $D(DTOUT) S TIUSAVE=1 Q
|
|
. I $S(+TIUSAVE:1,$D(DTOUT):1,1:0) Q
|
|
. W !!,$C(7),"Changes abandoned..."
|
|
. K ^TIU(8925,+DA,"TEMP") M ^TIU(8925,+DA,"TEMP")=^TIU(8925,+DA,"TEXT")
|
|
. K ^TIU(8925,+DA,"TEXT")
|
|
. D MERGTEXT^TIUEDI1(DA,.TIU)
|
|
. K ^TIU(8925,+DA,"TEMP")
|
|
W:'+$G(HUSH) !!,"Saving "_$$PNAME^TIULC1(+$P(TIUTYP(1),U,2))_" with changes..."
|
|
K ^TIU(8925,+DA,"TEXT")
|
|
D MERGTEXT^TIUEDI1(DA,.TIU)
|
|
K ^TIU(8925,+DA,"TEMP")
|
|
K ^TIU(8925,"ASAVE",DUZ,DA)
|
|
S TIUCMMT=1
|
|
Q
|