- ENLBL16 ;(WASH ISC)/DH-Locally Determined Fields on Comp List ;8.11.97
- ;;7.0;ENGINEERING;**12,45**;Aug 17, 1993
- LOC1 ;Locally specified fields (human readable)
- ; in DA = equipment ien
- ; ENEQY = # of lines printed (changed)
- N ENC,ENI,ENX
- S (ENC,ENI)=0
- F S ENI=$O(^DIC(6910,1,2,ENI)) Q:'ENI D Q:ENC=2
- . S ENX=$G(^DIC(6910,1,2,ENI,0))
- . Q:'$P(ENX,U)
- . Q:$$GET1^DID(6914,$P(ENX,U),"","MULTIPLE-VALUED")
- . S ENEQY=ENEQY+1,ENC=ENC+1
- . W !,?5,$P(ENX,U,2)_" "_$$GET1^DIQ(6914,DA,$P(ENX,U))
- Q
- ;ENLBL16
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENLBL16 538 printed Jan 18, 2025@02:55:29 Page 2
- ENLBL16 ;(WASH ISC)/DH-Locally Determined Fields on Comp List ;8.11.97
- +1 ;;7.0;ENGINEERING;**12,45**;Aug 17, 1993
- LOC1 ;Locally specified fields (human readable)
- +1 ; in DA = equipment ien
- +2 ; ENEQY = # of lines printed (changed)
- +3 NEW ENC,ENI,ENX
- +4 SET (ENC,ENI)=0
- +5 FOR
- SET ENI=$ORDER(^DIC(6910,1,2,ENI))
- if 'ENI
- QUIT
- Begin DoDot:1
- +6 SET ENX=$GET(^DIC(6910,1,2,ENI,0))
- +7 if '$PIECE(ENX,U)
- QUIT
- +8 if $$GET1^DID(6914,$PIECE(ENX,U),"","MULTIPLE-VALUED")
- QUIT
- +9 SET ENEQY=ENEQY+1
- SET ENC=ENC+1
- +10 WRITE !,?5,$PIECE(ENX,U,2)_" "_$$GET1^DIQ(6914,DA,$PIECE(ENX,U))
- End DoDot:1
- if ENC=2
- QUIT
- +11 QUIT
- +12 ;ENLBL16