Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ENLBL16

ENLBL16.m

Go to the documentation of this file.
  1. ENLBL16 ;(WASH ISC)/DH-Locally Determined Fields on Comp List ;8.11.97
  1. ;;7.0;ENGINEERING;**12,45**;Aug 17, 1993
  1. LOC1 ;Locally specified fields (human readable)
  1. ; in DA = equipment ien
  1. ; ENEQY = # of lines printed (changed)
  1. N ENC,ENI,ENX
  1. S (ENC,ENI)=0
  1. F S ENI=$O(^DIC(6910,1,2,ENI)) Q:'ENI D Q:ENC=2
  1. . S ENX=$G(^DIC(6910,1,2,ENI,0))
  1. . Q:'$P(ENX,U)
  1. . Q:$$GET1^DID(6914,$P(ENX,U),"","MULTIPLE-VALUED")
  1. . S ENEQY=ENEQY+1,ENC=ENC+1
  1. . W !,?5,$P(ENX,U,2)_" "_$$GET1^DIQ(6914,DA,$P(ENX,U))
  1. Q
  1. ;ENLBL16