source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPVNE.m@ 699

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

initial load of WorldVistAEHR

File size: 836 bytes
Line 
1ESPVNE ;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
4MNI 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
15EXIT W:$D(DTOUT) $C(7)
16 K DIC,Y,DR,DIE,DTOUT,ESPD,ESPFN,ESPVAR Q
Note: See TracBrowser for help on using the repository browser.