| [613] | 1 | ESPVNE ;DALISC/CKA - EDIT COURTESY/USDC VIOLATION NOTICE;12/92
|
|---|
| 2 | ;;1.0;POLICE & SECURITY;;Mar 31, 1994
|
|---|
| 3 | D DT^DICRW F I=1:1:13 S ESPD(I)="" S ESPVAR=4
|
|---|
| 4 | MNI I '$D(ESPFN) W ! D EN^ESPMNI G:'$D(ESPFN)!($D(DTOUT)) EXIT S ESPNAM=$P(^ESP(910,ESPFN,0),U)
|
|---|
| 5 | S DIC="^ESP(914,",DIC(0)="AEQMZ",DIC("S")="I $P(^(0),U,9)="_ESPFN D ^DIC K DIC I Y<0 G EXIT
|
|---|
| 6 | S (ESPVN,DA)=+Y,DIE="^ESP(914,"
|
|---|
| 7 | L +^ESP(914,DA):1 I '$T W !,"Another user is editing this record!!" G MNI
|
|---|
| 8 | S:$P(^ESP(914,ESPVN,0),U,3)="C" DR=".02;.04;.06;.07;.08;.09;1.01;1.02;1.03;1.04;1.05;1.06;1.07;1.08;1.09;2.02"
|
|---|
| 9 | S:$P(^ESP(914,ESPVN,0),U,3)="V" DR=".02;.04;.05;.06;.07;.08;.09;1.01;1.02;1.03;1.04;1.05;1.06;1.07;1.08;1.09;2.02;10"
|
|---|
| 10 | I "CV"'[$P(^ESP(914,ESPVN,0),U,3) G MNI
|
|---|
| 11 | D ^DIE
|
|---|
| 12 | L -^ESP(914,ESPVN)
|
|---|
| 13 | G:$D(DTOUT) EXIT
|
|---|
| 14 | G MNI
|
|---|
| 15 | EXIT W:$D(DTOUT) $C(7)
|
|---|
| 16 | K DIC,Y,DR,DIE,DTOUT,ESPD,ESPFN,ESPVAR Q
|
|---|
