| 1 | TIUDPEDT ; SLC/JER - Document Parameter Edit ;2/19/93 16:15
|
|---|
| 2 | ;;1.0;TEXT INTEGRATION UTILITIES;**198,206,212**;Jun 20, 1997
|
|---|
| 3 | MAIN ; 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
|
|---|
| 17 | CONT ;
|
|---|
| 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
|
|---|
| 28 | CONT1 ;
|
|---|
| 29 | S DIE=8925.95,DR="[TIU DOCUMENT PARAMETER EDIT]"
|
|---|
| 30 | D ^DIE
|
|---|
| 31 | END L -^TIU(8925.95,DA)
|
|---|
| 32 | Q
|
|---|
| 33 | LOCK ;
|
|---|
| 34 | L +^TIU(8925.95,DA):0 I '$T W !,"Another user is editing this entry" H 1 S TIUERR=1
|
|---|
| 35 | Q
|
|---|
