|
Last change
on this file since 701 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
523 bytes
|
| Line | |
|---|
| 1 | ENLBL16 ;(WASH ISC)/DH-Locally Determined Fields on Comp List ;8.11.97
|
|---|
| 2 | ;;7.0;ENGINEERING;**12,45**;Aug 17, 1993
|
|---|
| 3 | LOC1 ;Locally specified fields (human readable)
|
|---|
| 4 | ; in DA = equipment ien
|
|---|
| 5 | ; ENEQY = # of lines printed (changed)
|
|---|
| 6 | N ENC,ENI,ENX
|
|---|
| 7 | S (ENC,ENI)=0
|
|---|
| 8 | F S ENI=$O(^DIC(6910,1,2,ENI)) Q:'ENI D Q:ENC=2
|
|---|
| 9 | . S ENX=$G(^DIC(6910,1,2,ENI,0))
|
|---|
| 10 | . Q:'$P(ENX,U)
|
|---|
| 11 | . Q:$$GET1^DID(6914,$P(ENX,U),"","MULTIPLE-VALUED")
|
|---|
| 12 | . S ENEQY=ENEQY+1,ENC=ENC+1
|
|---|
| 13 | . W !,?5,$P(ENX,U,2)_" "_$$GET1^DIQ(6914,DA,$P(ENX,U))
|
|---|
| 14 | Q
|
|---|
| 15 | ;ENLBL16
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
