STANDARD DATA DICTIONARY #420.8 -- SOURCE CODE FILE                                                               3/24/25    PAGE 1
STORED IN ^PRCD(420.8,  (10 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                    (VERSION 5.1)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
The codes used in this file designate a broad category defining the procurement source for goods.  The codes are used to update
centralized reporting for procurement and define either specific government sources such as DEPOT and GSA, or ways of procuring
goods from outside sources, such as whether or not they are purchased using a government contract.  


IDENTIFIED BY: DESCRIPTION (#1)[R]

POINTED TO BY: FEDERAL SOURCE field (#.06) of the VENDOR File (#440) 
               FEDERAL SOURCE field (#.06) of the VENDOR EDIT File (#440.3) 
               SOURCE CODE field (#8) of the PROCUREMENT & ACCOUNTING TRANSACTIONS File (#442) 
               SOURCE CODE field (#8) of the AMENDMENTS File (#443.6) 
               SOURCE CODE field (#11) of the INVENTORY TRANSACTION File (#445.2) 
               ACQUISITION SOURCE field (#13.5) of the EQUIPMENT INV. File (#6914) 
               

CROSS
REFERENCED BY: CODE(B), ABBREVIATION(C)



420.8,.01     CODE                   0;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X'?1P.E)!(X'?.ANP) X
              HELP-PROMPT:      ANSWER MUST BE 1 CHARACTER IN LENGTH 
              DESCRIPTION:      This is the code identifying the procurement source for goods.  The code is used to update
                                centralized reporting for procurement and define either specific government sources (i.e., Depot,
                                GSA), or methods of procuring goods from external sources (i.e., goods procured via government
                                contract).  

              CROSS-REFERENCE:  420.8^B 
                                1)= S ^PRCD(420.8,"B",$E(X,1,30),DA)=""
                                2)= K ^PRCD(420.8,"B",$E(X,1,30),DA)


420.8,1       DESCRIPTION            0;2 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>33!($L(X)<3) X
              HELP-PROMPT:      ANSWER MUST BE 3-33 CHARACTERS IN LENGTH 
              DESCRIPTION:
                                This is the description of the source code.  


420.8,2       FISCAL EQUIV.          0;3 NUMBER

              INPUT TRANSFORM:  K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X
              LAST EDITED:      MAR 21, 1986 
              HELP-PROMPT:      TYPE A WHOLE NUMBER BETWEEN 1 AND 9 
              DESCRIPTION:
                                This is the fiscal equivalent for this code.  


420.8,3       ABBREVIATION           0;4 FREE TEXT

              INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X
              LAST EDITED:      SEP 04, 1987 
              HELP-PROMPT:      ANSWER MUST BE 1-3 CHARACTERS IN LENGTH 
              DESCRIPTION:
                                This is the abbreviation for the code.  

              CROSS-REFERENCE:  420.8^C 
                                1)= S ^PRCD(420.8,"C",$E(X,1,30),DA)=""
                                2)= K ^PRCD(420.8,"C",$E(X,1,30),DA)
                                This cross reference is set on one of the valid source codes (i.e. "DLA","GSA").  



420.8,4       AGENCY CODE            0;5 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
              LAST EDITED:      JUL 02, 1993 
              HELP-PROMPT:      Answer must be 3 characters in length. 
              DESCRIPTION:
                                This field is used for federal receiving reports.  



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):