|
Last change
on this file since 636 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
