Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RMPOUTL0

RMPOUTL0.m

Go to the documentation of this file.
  1. RMPOUTL0 ;NG/CAP - HOME OXYGEN FUNCTIONS ;7/24/98
  1. ;;3.0;PROSTHETICS;**29,44**;Feb 09, 1996
  1. ;
  1. SITE(X) ;Set up RMPO site parameters.
  1. D HOSITE
  1. Q
  1. ;
  1. HOSITE ;New entry point that should replace SITE(X).
  1. ;Initialize device.
  1. D HOME^%ZIS
  1. S QUIT=0
  1. ;Set up site variables.
  1. ;N RMPRSITE,RMPR
  1. K RMPO
  1. D DIV4^RMPRSIT
  1. I $D(Y),(Y<0) S QUIT=1 Q
  1. I '$G(RMPRSITE) S QUIT=1 Q
  1. S RMPRS=$P($G(^RMPR(669.9,RMPRSITE,4)),U,1)
  1. I '$G(RMPRS) W !,"***The IFCAP SITE is not defined, please check file #669.9.***" S QUIT=1 Q
  1. I $G(RMPRS),'$D(^PRC(411,RMPRS,0)) W !,"***The IFCAP SITE is not defined, please check file #411.***" S QUIT=1 Q
  1. M RMPO=RMPR
  1. S RMPOSITE=RMPO("STA")
  1. S (RMPOXITE,RMPOREC)=RMPRSITE
  1. Q