- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFHDEV 692 printed Feb 18, 2025@23:13:54 Page 2
- 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