|
Last change
on this file since 1639 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
691 bytes
|
| Line | |
|---|
| 1 | RMPOUTL0 ;NG/CAP - HOME OXYGEN FUNCTIONS ;7/24/98
|
|---|
| 2 | ;;3.0;PROSTHETICS;**29,44**;Feb 09, 1996
|
|---|
| 3 | ;
|
|---|
| 4 | SITE(X) ;Set up RMPO site parameters.
|
|---|
| 5 | D HOSITE
|
|---|
| 6 | Q
|
|---|
| 7 | ;
|
|---|
| 8 | HOSITE ;New entry point that should replace SITE(X).
|
|---|
| 9 | ;Initialize device.
|
|---|
| 10 | D HOME^%ZIS
|
|---|
| 11 | S QUIT=0
|
|---|
| 12 | ;Set up site variables.
|
|---|
| 13 | ;N RMPRSITE,RMPR
|
|---|
| 14 | K RMPO
|
|---|
| 15 | D DIV4^RMPRSIT
|
|---|
| 16 | I $D(Y),(Y<0) S QUIT=1 Q
|
|---|
| 17 | I '$G(RMPRSITE) S QUIT=1 Q
|
|---|
| 18 | S RMPRS=$P($G(^RMPR(669.9,RMPRSITE,4)),U,1)
|
|---|
| 19 | I '$G(RMPRS) W !,"***The IFCAP SITE is not defined, please check file #669.9.***" S QUIT=1 Q
|
|---|
| 20 | I $G(RMPRS),'$D(^PRC(411,RMPRS,0)) W !,"***The IFCAP SITE is not defined, please check file #411.***" S QUIT=1 Q
|
|---|
| 21 | M RMPO=RMPR
|
|---|
| 22 | S RMPOSITE=RMPO("STA")
|
|---|
| 23 | S (RMPOXITE,RMPOREC)=RMPRSITE
|
|---|
| 24 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
