STANDARD DATA DICTIONARY #420.135 -- PRCD SD REVENUE SOURCE FILE                                                  3/24/25    PAGE 1
STORED IN ^PRCD(420.135,  *** NO DATA STORED YET ***   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                    (VERSION 5.1)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains REVENUE SOURCE codes and descriptions.  


IDENTIFIED BY: 
         "D1": W "   ",$P(^(0),U,2)

CROSS
REFERENCED BY: FIX VALUE(AC), CODE(B), DESCRIPTION(C)



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

              INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X I $G(X)]"" S %=$O(^PRCD(420.135,"B",X,"")) K:%-$G(DA)&% X
              LAST EDITED:      NOV 19, 1993 
              HELP-PROMPT:      Enter free text up to 15 characters and must be unique in file. 
              DESCRIPTION:
                                This field is the code of administrative office.  

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

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


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

              INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1)!'(X'?1." ".E) X
              LAST EDITED:      NOV 24, 1993 
              HELP-PROMPT:      Enter free text up to 45 characters. 
              DESCRIPTION:
                                This field is the desription of the code.  

              CROSS-REFERENCE:  420.135^C 
                                1)= S ^PRCD(420.135,"C",$E(X,1,30),DA)=""
                                2)= K ^PRCD(420.135,"C",$E(X,1,30),DA)
                                This is used to look-up entries by description.  



420.135,2     STATUS                 0;3 POINTER TO PRCD SD STATUS FILE (#420.1999) (Required)

              LAST EDITED:      NOV 26, 1993 
              DESCRIPTION:
                                This field is the status of the entry in file.  


420.135,3     FIX VALUE              0;4 FREE TEXT

              INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1)!'(X'?1." ".E) X
              LAST EDITED:      DEC 10, 1993 
              HELP-PROMPT:      Enter free text up to 15 characters. 
              DESCRIPTION:
                                This field's value is used by programer for hard coding in programs.  

              TECHNICAL DESCR:  This field's value is used by programer for hard coding in programs.  Always hardcode with this fix
                                values. If this value is edited all programs referring to this value need to be edited.  

              CROSS-REFERENCE:  420.135^AC 
                                1)= S ^PRCD(420.135,"AC",$E(X,1,30),DA)=""
                                2)= K ^PRCD(420.135,"AC",$E(X,1,30),DA)
                                This is used to search entries in this file.  




      FILES POINTED TO                      FIELDS

PRCD SD STATUS (#420.1999)        STATUS (#2)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):
PRC SD PRINT                  JAN 12, 1994@14:35  USER #0                                        PRCD SD ADMINISTRATIVE OFFICE LIST

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):