TIUEDIU.m

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

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