Last change
on this file since 1074 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
421 bytes
|
Rev | Line | |
---|
[628] | 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.