source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUDPEDT.m@ 1482

Last change on this file since 1482 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1TIUDPEDT ; SLC/JER - Document Parameter Edit ;2/19/93 16:15
2 ;;1.0;TEXT INTEGRATION UTILITIES;**198,206,212**;Jun 20, 1997
3MAIN ; Controls branching
4 N DIC,DA,DIE,DR,DLAYGO,X,Y,DWPK,TIUFPRIV S TIUFPRIV=1
5 W !,"First edit Institution-wide parameters:",!
6 ;VMP OIFO BAY PINES;ELR;TIU*1.0*198 MODIFIED FROM HERE DOWN
7 S (DIC,DLAYGO)=8925.95,DIC(0)="AEMQLZ",DIC("A")="Select DOCUMENT DEFINITION: "
8 D ^DIC K DLAYGO Q:+Y'>0 S DA=+Y
9 I +$P(Y,U,3)=1 K X,Y,DIC N TIUERR D LOCK Q:$G(TIUERR) G CONT1
10 N TIUPRMPT,TIUDSPLY S TIUPRMPT=+$P(Y,U,2),TIUDSPLY=$G(Y(0,0))
11 K X,Y,DIC
12 ;VMP OIFO BAY PINES;ELR;TIU*1.0*198;REMOVED .01 FROM INPUT TEMPLATE AND ADDED WARNING MSG.
13 N TIURESP,TIURESP1 S TIURESP=$$READ^TIUU("8925.95,.01:O",,)
14 S TIURESP=$P(TIURESP,U)
15 I $G(TIURESP)="@" S TIURESP=TIURESP_U_TIURESP K DIRUT G CONT
16 I (($D(DIRUT))!(+TIURESP<0)) K DIRUT Q
17CONT ;
18 I $P(TIURESP,U)'=TIUPRMPT D Q:'+$G(TIURESP1)
19 . S TIURESP1=$$READ^TIUU("Y","You are about to lose the document parameters for "_TIUDSPLY_". Do you wish to continue","NO")
20 N TIUDR
21 S TIUDR=$S($P($G(TIURESP),U)="@":$P($G(TIURESP),U),1:$P($G(^TIU(8925.1,$P(TIURESP,U),0)),U))
22 Q:$L(TIUDR)'>0
23 S DIE="^TIU(8925.95,",DR=".01///"_TIUDR
24 L +^TIU(8925.95,DA):0 I '$T W !,"Another user is editing this entry" H 1 Q
25 N TIUSAVDA S TIUSAVDA=DA
26 D ^DIE
27 I $P($G(TIURESP),U)="@" S DA=TIUSAVDA G END
28CONT1 ;
29 S DIE=8925.95,DR="[TIU DOCUMENT PARAMETER EDIT]"
30 D ^DIE
31END L -^TIU(8925.95,DA)
32 Q
33LOCK ;
34 L +^TIU(8925.95,DA):0 I '$T W !,"Another user is editing this entry" H 1 S TIUERR=1
35 Q
Note: See TracBrowser for help on using the repository browser.