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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUEDIU 919 printed Dec 13, 2024@02:40:02 Page 2
TIUEDIU ; SLC/JER - Enter/Edit Utility Subroutines;12/04/97 14:40
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**7**;Jun 20, 1997
BUFFER(DA) ; Save original text
+1 KILL ^TIU(8925,+DA,"TEMP")
+2 MERGE ^TIU(8925,+DA,"TEMP")=^TIU(8925,+DA,"TEXT")
+3 DO MERGTEMP^TIUEDI1(DA)
+4 QUIT
COMMIT(DA,HUSH) ; Overwrite original text
+1 NEW DIE,DR,TIUSAVE
SET TIUSAVE=1
+2 IF '+$GET(HUSH)
IF (+$PIECE($GET(TIUPREF),U,7)>0)
Begin DoDot:1
+3 SET TIUSAVE=$$READ^TIUU("YO","Save changes","YES")
+4 IF $DATA(DTOUT)
SET TIUSAVE=1
QUIT
+5 IF $SELECT(+TIUSAVE:1,$DATA(DTOUT):1,1:0)
QUIT
+6 WRITE !!,$CHAR(7),"Changes abandoned..."
+7 KILL ^TIU(8925,+DA,"TEMP")
MERGE ^TIU(8925,+DA,"TEMP")=^TIU(8925,+DA,"TEXT")
+8 KILL ^TIU(8925,+DA,"TEXT")
+9 DO MERGTEXT^TIUEDI1(DA,.TIU)
+10 KILL ^TIU(8925,+DA,"TEMP")
End DoDot:1
if 'TIUSAVE
QUIT
+11 if '+$GET(HUSH)
WRITE !!,"Saving "_$$PNAME^TIULC1(+$PIECE(TIUTYP(1),U,2))_" with changes..."
+12 KILL ^TIU(8925,+DA,"TEXT")
+13 DO MERGTEXT^TIUEDI1(DA,.TIU)
+14 KILL ^TIU(8925,+DA,"TEMP")
+15 KILL ^TIU(8925,"ASAVE",DUZ,DA)
+16 SET TIUCMMT=1
+17 QUIT
