Global: ^VBEC(6009

Information

FileMan FileNo	FileMan Filename	Package
6009	VBECS FILE & FIELD LEVEL SECURITY	VBECS

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.

Field #	Name	Loc	Type	Details
.01	FILE NUMBER	0;1	NUMBER	**********************REQUIRED FIELD********************** 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)`
.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.`
.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.`
100	DATA DICTIONARY	DD;0	Multiple #6009.01	6009.01