source:
WorldVistAEHR/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPR9CPP.m
| Last change on this file was 613, checked in by , 15 years ago | |
|---|---|
| File size: 421 bytes | |
| Line | |
|---|---|
| 1 | RMPR9CPP ;HOIFO/SPS - CHECK IF PATIENT IN FILE 665 ;JAN 2003 |
| 2 | ;;3.0;PROSTHETICS;**75**;Feb 09, 1996;Build 25 |
| 3 | ; |
| 4 | Q |
| 5 | B1(RMPRDFN) G B2 |
| 6 | EN1(RESULTS,RMPRDFN) ;broker entry point |
| 7 | B2 ; |
| 8 | ;S RMPRDFN=$P(^RMPR(668,RMPR668,0),U,2) |
| 9 | I '$D(^RMPR(665,RMPRDFN,0)) S RESULTS(0)="1^Patient not defined in PROSTHETICS PATIENT FILE please use the option: AP Add/Edit Patient to Prosthetics and try again." Q |
| 10 | E S RESULTS(0)=0 |
| 11 | Q |
| 12 | ;END |
Note:
See TracBrowser
for help on using the repository browser.
