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

FHDEV.m

Go to the documentation of this file.
  1. FHDEV ; HISC/REL - Device Parameters ;7/11/89 22:0
  1. ;;5.5;DIETETICS;;Jan 28, 2005
  1. S FHIO("P10")=$P($G(^%ZIS(2,IOST(0),5)),"^",1) S:FHIO("P10")="" FHIO("P10")=""""""
  1. S FHIO("P16")=$P($G(^%ZIS(2,IOST(0),12.1)),"^",1) S:FHIO("P16")="" FHIO("P16")=""""""
  1. S FHIO("RES")=$P($G(^%ZIS(2,IOST(0),6)),"^",1) S:FHIO("RES")="" FHIO("RES")=""""""
  1. S FHIO("EON")=$P($G(^%ZIS(2,IOST(0),7)),"^",1) S:FHIO("EON")="" FHIO("EON")=""""""
  1. S FHIO("EOF")=$P($G(^%ZIS(2,IOST(0),7)),"^",2) S:FHIO("EOF")="" FHIO("EOF")=""""""
  1. S FHIO("DON")=$P($G(^%ZIS(2,IOST(0),408)),"^",1) S:FHIO("DON")="" FHIO("DON")=""""""
  1. S FHIO("DOF")=$P($G(^%ZIS(2,IOST(0),409)),"^",1) S:FHIO("DOF")="" FHIO("DOF")=""""""
  1. Q