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):