| 1 | TIUEDIU ; SLC/JER - Enter/Edit Utility Subroutines;12/04/97 14:40
|
|---|
| 2 | ;;1.0;TEXT INTEGRATION UTILITIES;**7**;Jun 20, 1997
|
|---|
| 3 | BUFFER(DA) ; Save original text
|
|---|
| 4 | K ^TIU(8925,+DA,"TEMP")
|
|---|
| 5 | M ^TIU(8925,+DA,"TEMP")=^TIU(8925,+DA,"TEXT")
|
|---|
| 6 | D MERGTEMP^TIUEDI1(DA)
|
|---|
| 7 | Q
|
|---|
| 8 | COMMIT(DA,HUSH) ; Overwrite original text
|
|---|
| 9 | N DIE,DR,TIUSAVE S TIUSAVE=1
|
|---|
| 10 | I '+$G(HUSH),(+$P($G(TIUPREF),U,7)>0) D Q:'TIUSAVE
|
|---|
| 11 | . S TIUSAVE=$$READ^TIUU("YO","Save changes","YES")
|
|---|
| 12 | . I $D(DTOUT) S TIUSAVE=1 Q
|
|---|
| 13 | . I $S(+TIUSAVE:1,$D(DTOUT):1,1:0) Q
|
|---|
| 14 | . W !!,$C(7),"Changes abandoned..."
|
|---|
| 15 | . K ^TIU(8925,+DA,"TEMP") M ^TIU(8925,+DA,"TEMP")=^TIU(8925,+DA,"TEXT")
|
|---|
| 16 | . K ^TIU(8925,+DA,"TEXT")
|
|---|
| 17 | . D MERGTEXT^TIUEDI1(DA,.TIU)
|
|---|
| 18 | . K ^TIU(8925,+DA,"TEMP")
|
|---|
| 19 | W:'+$G(HUSH) !!,"Saving "_$$PNAME^TIULC1(+$P(TIUTYP(1),U,2))_" with changes..."
|
|---|
| 20 | K ^TIU(8925,+DA,"TEXT")
|
|---|
| 21 | D MERGTEXT^TIUEDI1(DA,.TIU)
|
|---|
| 22 | K ^TIU(8925,+DA,"TEMP")
|
|---|
| 23 | K ^TIU(8925,"ASAVE",DUZ,DA)
|
|---|
| 24 | S TIUCMMT=1
|
|---|
| 25 | Q
|
|---|
