source:
WorldVistAEHR/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPRGULK.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 386 bytes |
Rev | Line | |
---|---|---|
[613] | 1 | RMPRGULK ;HOIFO/SPS - PROSTHETICS FILE CHECK/LOCK ;OCT 2006 |
2 | ;;3.0;PROSTHETICS;**75**;Feb 09, 1996;Build 25 | |
3 | ; | |
4 | B1(RMIE1) G B2 | |
5 | OWLL(RESULTS,RMIE1) ;broker entry point | |
6 | B2 ; | |
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 | |
12 | OWLU(RESULTS,RMIE1) ; | |
13 | L -^RMPR(664.1,RMIE1) | |
14 | S RESULTS(0)=0 | |
15 | Q | |
16 | EXIT Q | |
17 | ;END |
Note:
See TracBrowser
for help on using the repository browser.