RMPRGULK.m

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 ---RMPRGULK   683     printed  Mar 13, 2025@21:39:44                                                                                                                                                                                                     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