|
Last change
on this file since 736 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
682 bytes
|
| Line | |
|---|
| 1 | FHDEV ; HISC/REL - Device Parameters ;7/11/89 22:0
|
|---|
| 2 | ;;5.5;DIETETICS;;Jan 28, 2005
|
|---|
| 3 | S FHIO("P10")=$P($G(^%ZIS(2,IOST(0),5)),"^",1) S:FHIO("P10")="" FHIO("P10")=""""""
|
|---|
| 4 | S FHIO("P16")=$P($G(^%ZIS(2,IOST(0),12.1)),"^",1) S:FHIO("P16")="" FHIO("P16")=""""""
|
|---|
| 5 | S FHIO("RES")=$P($G(^%ZIS(2,IOST(0),6)),"^",1) S:FHIO("RES")="" FHIO("RES")=""""""
|
|---|
| 6 | S FHIO("EON")=$P($G(^%ZIS(2,IOST(0),7)),"^",1) S:FHIO("EON")="" FHIO("EON")=""""""
|
|---|
| 7 | S FHIO("EOF")=$P($G(^%ZIS(2,IOST(0),7)),"^",2) S:FHIO("EOF")="" FHIO("EOF")=""""""
|
|---|
| 8 | S FHIO("DON")=$P($G(^%ZIS(2,IOST(0),408)),"^",1) S:FHIO("DON")="" FHIO("DON")=""""""
|
|---|
| 9 | S FHIO("DOF")=$P($G(^%ZIS(2,IOST(0),409)),"^",1) S:FHIO("DOF")="" FHIO("DOF")=""""""
|
|---|
| 10 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
