ENLBL16.m

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 ---ENLBL16   538     printed  Dec 13, 2024@01:54:16                                                                                                                                                                                                      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