source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDIU.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: 894 bytes
Line 
1TIUEDIU ; SLC/JER - Enter/Edit Utility Subroutines;12/04/97 14:40
2 ;;1.0;TEXT INTEGRATION UTILITIES;**7**;Jun 20, 1997
3BUFFER(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
8COMMIT(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
Note: See TracBrowser for help on using the repository browser.