FHDEV.m

FHDEV ; HISC/REL - Device Parameters ;7/11/89  22:0 

 ;;5.5;DIETETICS;;Jan 28, 2005

 S FHIO("P10")=$P($G(^%ZIS(2,IOST(0),5)),"^",1) S:FHIO("P10")="" FHIO("P10")=""""""

 S FHIO("P16")=$P($G(^%ZIS(2,IOST(0),12.1)),"^",1) S:FHIO("P16")="" FHIO("P16")=""""""

 S FHIO("RES")=$P($G(^%ZIS(2,IOST(0),6)),"^",1) S:FHIO("RES")="" FHIO("RES")=""""""

 S FHIO("EON")=$P($G(^%ZIS(2,IOST(0),7)),"^",1) S:FHIO("EON")="" FHIO("EON")=""""""

 S FHIO("EOF")=$P($G(^%ZIS(2,IOST(0),7)),"^",2) S:FHIO("EOF")="" FHIO("EOF")=""""""

 S FHIO("DON")=$P($G(^%ZIS(2,IOST(0),408)),"^",1) S:FHIO("DON")="" FHIO("DON")=""""""

 S FHIO("DOF")=$P($G(^%ZIS(2,IOST(0),409)),"^",1) S:FHIO("DOF")="" FHIO("DOF")=""""""

 Q

FHDEV     ; HISC/REL - Device Parameters ;7/11/89  22:0 

 +1       ;;5.5;DIETETICS;;Jan 28, 2005

 +2        SET FHIO("P10")=$PIECE($GET(^%ZIS(2,IOST(0),5)),"^",1)

           IF FHIO("P10")=""

               SET FHIO("P10")=""""""

 +3        SET FHIO("P16")=$PIECE($GET(^%ZIS(2,IOST(0),12.1)),"^",1)

           IF FHIO("P16")=""

               SET FHIO("P16")=""""""

 +4        SET FHIO("RES")=$PIECE($GET(^%ZIS(2,IOST(0),6)),"^",1)

           IF FHIO("RES")=""

               SET FHIO("RES")=""""""

 +5        SET FHIO("EON")=$PIECE($GET(^%ZIS(2,IOST(0),7)),"^",1)

           IF FHIO("EON")=""

               SET FHIO("EON")=""""""

 +6        SET FHIO("EOF")=$PIECE($GET(^%ZIS(2,IOST(0),7)),"^",2)

           IF FHIO("EOF")=""

               SET FHIO("EOF")=""""""

 +7        SET FHIO("DON")=$PIECE($GET(^%ZIS(2,IOST(0),408)),"^",1)

           IF FHIO("DON")=""

               SET FHIO("DON")=""""""

 +8        SET FHIO("DOF")=$PIECE($GET(^%ZIS(2,IOST(0),409)),"^",1)

           IF FHIO("DOF")=""

               SET FHIO("DOF")=""""""

 +9        QUIT