source: FOIAVistA/tag/r/ENGINEERING-EN/ENLBL16.m@ 897

Last change on this file since 897 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 523 bytes
Line 
1ENLBL16 ;(WASH ISC)/DH-Locally Determined Fields on Comp List ;8.11.97
2 ;;7.0;ENGINEERING;**12,45**;Aug 17, 1993
3LOC1 ;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.