Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
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.