STANDARD DATA DICTIONARY #6921 -- WORK CENTER CODE FILE                                                           9/29/25    PAGE 1
STORED IN ^DIC(6921,  (431 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                     (VERSION 7.0)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
A list of codes which subdivide Engineering Cost Centers into Work Centers.  


              DD ACCESS: #
              WR ACCESS: e
             DEL ACCESS: e
           LAYGO ACCESS: e

POINTED TO BY: WORK CENTER CODE field (#35.5) of the WORK ORDER # File (#6920) 
               

CROSS
REFERENCED BY: NAME(B)



6921,.001     CODE                       NUMBER

              INPUT TRANSFORM:  K:+X'=X!(X>55699)!(X<50100)!(X?.E1"."1N.N) X
              LAST EDITED:      APR 25, 1984 
              HELP-PROMPT:      TYPE A WHOLE NUMBER BETWEEN 50100 AND 55699 

6921,.01      NAME                   0;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>40!($L(X)<3)!'(X'?1P.E)!(X'?5N1"/".ANP) X
              LAST EDITED:      AUG 17, 1993 
              HELP-PROMPT:      ENTER THE WORK CENTER NUMBER (5 DIGITS), A SLASH, AND THE WORK CENTER NAME (E.G., 50102/SICK 
                                LEAVE). ANSWER MUST BE 3-40 CHARACTERS 
              DESCRIPTION:      Set of accounting codes to which repair hours can be charged.  This information is no longer
                                required on a national basis.  

              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

              CROSS-REFERENCE:  6921^B^MUMPS 
                                1)= S ^DIC(6921,"B",$E(X,1,30),DA)="" S:X["/" ^DIC(6921,"B",$P($E(X,1,36),"/",2)_"/"_$P($E(X,1,36),
                                "/",1),DA)=""

                                2)= K ^DIC(6921,"B",$E(X,1,30),DA) K:X["/" ^DIC(6921,"B",$P($E(X,1,36),"/",2)_"/"_$P($E(X,1,36),"/"
                                ,1),DA)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):