Last change
on this file since 700 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.