STANDARD DATA DICTIONARY #6009 -- VBECS FILE & FIELD LEVEL SECURITY FILE                                          3/24/25    PAGE 1
STORED IN ^VBEC(6009,  (6 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                      (VERSION 5.2)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file exports the file and field numbers of VistA Blood Bank (LRBL name spaced) data dictionaries that will 'write protect'
these files and fields once the data conversion has successfully completed.  


              DD ACCESS: 
              RD ACCESS: 
              WR ACCESS: 
             DEL ACCESS: 
           LAYGO ACCESS: 
           AUDIT ACCESS: 

CROSS
REFERENCED BY: FILE NUMBER(B)



6009,.01      FILE NUMBER            0;1 NUMBER (Required)

              INPUT TRANSFORM:  K:+X'=X!(X>69.99)!(X<60)!(X?.E1"."3N.N) X S:$D(X) DINUM=X
              LAST EDITED:      AUG 07, 2002 
              HELP-PROMPT:      Type a VistA Blood Bank File Number between 60 and 69.99, 2 Decimal Digits 
              DESCRIPTION:
                                The VistA file number of the file being tracked.  

              DELETE TEST:      1,0)= I 1 D EN^DDIOL("Blood Bank file/field records are not to be deleted.",,"!,$C(7)")

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

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


6009,.02      PRE-CONV. RESTRICTED ACCESS 0;2 SET

                                'Y' FOR Yes; 
              LAST EDITED:      OCT 24, 2002 
              HELP-PROMPT:      Enter 'Y' for yes if restricted access applies to this file prior to executing the data conversion 
                                application. 
              DESCRIPTION:      This field tracks if restricted access applies to this file prior to executing the data conversion
                                application.  


6009,.03      PST-CONV. RESTRICTED ACCESS 0;3 SET

                                'Y' FOR Yes; 
              LAST EDITED:      OCT 24, 2002 
              HELP-PROMPT:      Enter 'Y' for yes if restricted access applies to this file after executing the data conversion 
                                application. 
              DESCRIPTION:      This field tracks if restricted access applies to this file after  executing the data conversion
                                application.  


6009,100      DATA DICTIONARY        DD;0 Multiple #6009.01 (Add New Entry without Asking)


6009.01,.01     DATA DICTIONARY        0;1 NUMBER

                INPUT TRANSFORM:  K:+X'=X!(X>69.999999999)!(X<60)!(X?.E1"."10N.N) X
                LAST EDITED:      AUG 08, 2002 
                HELP-PROMPT:      Enter the appropriate Blood Bank data dictionary number.  Type a Number between 60 and 
                                  69.999999999, 9 Decimal Digits 
                DESCRIPTION:      Tracks the data dictionary file/sub-file number and field for the purpose of recording
                                  field-level security (read, write, delete, and audit access).  

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

                CROSS-REFERENCE:  6009.01^B 
                                  1)= S ^VBEC(6009,DA(1),"DD","B",$E(X,1,30),DA)=""
                                  2)= K ^VBEC(6009,DA(1),"DD","B",$E(X,1,30),DA)


6009.01,.02     FIELD                  0;2 NUMBER

                INPUT TRANSFORM:  K:+X'=X!(X>9999999.9999999)!(X<.001)!(X?.E1"."8N.N) X
                LAST EDITED:      AUG 08, 2002 
                HELP-PROMPT:      Enter the appropriate field number.  Type a Number between .001 and 9999999.9999999, 7 Decimal 
                                  Digits 
                DESCRIPTION:      Tracks the data dictionary and field number for the purpose of identifying 'before & after' field
                                  security information.  


6009.01,1       PRE-CONVERSION WRITE ACCESS PREW;E1,245 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
                LAST EDITED:      OCT 25, 2002 
                HELP-PROMPT:      Automated field add, edit, and delete.  Answer must be 1-245 characters in length. 
                DESCRIPTION:
                                  Indicates the write level access of the field prior to the data conversion.  


6009.01,2       POST-CONVERSION WRITE ACCESS PSTW;E1,245 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
                LAST EDITED:      OCT 25, 2002 
                HELP-PROMPT:      Automated field add, edit, and delete.  Answer must be 1-245 characters in length. 
                DESCRIPTION:
                                  Indicates the write level access of the field after the data conversion.  





INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):