18 lines
386 B
Mathematica
18 lines
386 B
Mathematica
RMPRGULK ;HOIFO/SPS - PROSTHETICS FILE CHECK/LOCK ;OCT 2006
|
|
;;3.0;PROSTHETICS;**75**;Feb 09, 1996;Build 25
|
|
;
|
|
B1(RMIE1) G B2
|
|
OWLL(RESULTS,RMIE1) ;broker entry point
|
|
B2 ;
|
|
L
|
|
L +^RMPR(664.1,RMIE1):2
|
|
I $T=0 S RESULTS(0)="1^Someone else is Editing this record, Please try later!" G EXIT
|
|
E S RESULTS(0)=0
|
|
Q
|
|
OWLU(RESULTS,RMIE1) ;
|
|
L -^RMPR(664.1,RMIE1)
|
|
S RESULTS(0)=0
|
|
Q
|
|
EXIT Q
|
|
;END
|