source: FOIAVistA/tag/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPOUTL0.m@ 1641

Last change on this file since 1641 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 691 bytes
Line 
1RMPOUTL0 ;NG/CAP - HOME OXYGEN FUNCTIONS ;7/24/98
2 ;;3.0;PROSTHETICS;**29,44**;Feb 09, 1996
3 ;
4SITE(X) ;Set up RMPO site parameters.
5 D HOSITE
6 Q
7 ;
8HOSITE ;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.