RMPRGULK ;HOIFO/SPS - PROSTHETICS FILE CHECK/LOCK ;OCT 2006
;;3.0;PROSTHETICS;**75,175**;Feb 09, 1996;Build 2
;
B1(RMIE1) G B2
OWLL(RESULTS,RMIE1) ;broker entry point
B2 ;
L
L +^RMPR(664.1,RMIE1):$G(DILOCKTM,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
SUSL(RESULTS,RMPRIEN) ;broker entry point
L +^RMPR(668,RMPRIEN):$G(DILOCKTM,3)
I $T=0 S RESULTS(0)="1^Someone else is Editing this record, Please try later!" G EXIT
E S RESULTS(0)=0
Q
SUSU(RESULTS,RMPRIEN) ;
L -^RMPR(668,RMPRIEN)
S RESULTS(0)=0
Q
EXIT Q
;END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPRGULK 683 printed Sep 23, 2025@20:11 Page 2
RMPRGULK ;HOIFO/SPS - PROSTHETICS FILE CHECK/LOCK ;OCT 2006
+1 ;;3.0;PROSTHETICS;**75,175**;Feb 09, 1996;Build 2
+2 ;
B1(RMIE1) GOTO B2
OWLL(RESULTS,RMIE1) ;broker entry point
B2 ;
+1 LOCK
+2 LOCK +^RMPR(664.1,RMIE1):$GET(DILOCKTM,2)
+3 IF $TEST=0
SET RESULTS(0)="1^Someone else is Editing this record, Please try later!"
GOTO EXIT
+4 IF '$TEST
SET RESULTS(0)=0
+5 QUIT
OWLU(RESULTS,RMIE1) ;
+1 LOCK -^RMPR(664.1,RMIE1)
+2 SET RESULTS(0)=0
+3 QUIT
SUSL(RESULTS,RMPRIEN) ;broker entry point
+1 LOCK +^RMPR(668,RMPRIEN):$GET(DILOCKTM,3)
+2 IF $TEST=0
SET RESULTS(0)="1^Someone else is Editing this record, Please try later!"
GOTO EXIT
+3 IF '$TEST
SET RESULTS(0)=0
+4 QUIT
SUSU(RESULTS,RMPRIEN) ;
+1 LOCK -^RMPR(668,RMPRIEN)
+2 SET RESULTS(0)=0
+3 QUIT
EXIT QUIT
+1 ;END
