STANDARD DATA DICTIONARY #420.13 -- PRCD SD PROGRAM FILE                                                          3/24/25    PAGE 1
STORED IN ^PRCD(420.13,  *** 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 programs used by fund control points.  


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

POINTED TO BY: PROGRAM field (#26) of the CONTROL POINT NAME sub-field (#420.01) of the FUND CONTROL POINT File (#420) 
               FY PROGRAM field (#17) of the COMMITTED/OBLIGATED BALANCES sub-field (#420.06) of the CONTROL POINT NAME sub-field 
                   (#420.01) of the FUND CONTROL POINT File (#420) 
               

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



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

              INPUT TRANSFORM:  K:$L(X)>8!($L(X)<2)!'(X?2.5NA) X I $G(X)]"" S %=$O(^PRCD(420.13,"B",X,"")) K:%-$G(DA)&% X
              LAST EDITED:      MAR 03, 1994 
              HELP-PROMPT:      Enter free text up 8 characters and must be unique in file. 
              DESCRIPTION:
                                This is code of a prof a program.  

              TECHNICAL DESCR:
                                This is the code of a program.  

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

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


420.13,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:      Answer must be 1-45 characters in length. 
              DESCRIPTION:
                                This field is the desription of the code.  

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



420.13,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.13,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:      Answer must be 1-15 characters in length. 
              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 fixed
                                values. If this value is edited all programs referring to this value need to edited.  

              CROSS-REFERENCE:  420.13^AC 
                                1)= S ^PRCD(420.13,"AC",$E(X,1,30),DA)=""
                                2)= K ^PRCD(420.13,"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:53  USER #0                                                      PRCD SD PROGRAM LIST

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):