source: FOIAVistA/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPRGULK.m@ 794

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

initial load of FOIAVistA 6/30/08 version

File size: 386 bytes
Line 
1RMPRGULK ;HOIFO/SPS - PROSTHETICS FILE CHECK/LOCK ;OCT 2006
2 ;;3.0;PROSTHETICS;**75**;Feb 09, 1996;Build 25
3 ;
4B1(RMIE1) G B2
5OWLL(RESULTS,RMIE1) ;broker entry point
6B2 ;
7 L
8 L +^RMPR(664.1,RMIE1):2
9 I $T=0 S RESULTS(0)="1^Someone else is Editing this record, Please try later!" G EXIT
10 E S RESULTS(0)=0
11 Q
12OWLU(RESULTS,RMIE1) ;
13 L -^RMPR(664.1,RMIE1)
14 S RESULTS(0)=0
15 Q
16EXIT Q
17 ;END
Note: See TracBrowser for help on using the repository browser.