Last change
on this file since 1046 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.