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 | |
| Line | |
|---|---|
| 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.
