STANDARD DATA DICTIONARY #6912 -- MANUFACTURER LIST FILE FILE 9/29/25 PAGE 1
STORED IN ^ENG("MFG", (5171 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 7.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
List of manufacturers. Centrally maintained, courtesy of Engineering Service Center, St. Louis. Local entries may be added using a
MFGID of 50000 or greater.
DD ACCESS: #
WR ACCESS: e
DEL ACCESS: #
LAYGO ACCESS: #
IDENTIFIED BY: CITY (#4)
POINTED TO BY: MANUFACTURER field (#1) of the EQUIPMENT INV. File (#6914)
7b. MFG NAME field (#.01) of the 7b. MFG/EQUIP TYPE/MOD# sub-field (#6916.09) of the I.A.1. NAME sub-field
(#6916.07) of the BERS SURVEY File (#6916)
MANUFACTURER NAME field (#2) of the VI.A. CONTRACT SERVICE sub-field (#6916.1) of the BERS SURVEY File (#6916)
MANUFACTURER field (#21.9) of the WORK ORDER # File (#6920)
CROSS
REFERENCED BY: MFG/DIV(B), PSEUDONYM(C)
6912,.001 MFGID NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<50000)!(X?.E1"."1N.N) X
LAST EDITED: SEP 08, 1984
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 50000 AND 99999 FOR LOCAL USE.
DESCRIPTION: Internal entry number (IEN) of the manufacturer. Additions made by sites must be in the range of
50000 to 99999. National entries start at 1 and presently go up to about 5000.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6912,.01 MFG/DIV 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1)!(X?.E1"-".E)!(X'?.ANP) X I $D(DA)=1 K:DA<50000 X
LAST EDITED: AUG 30, 1996
HELP-PROMPT: ANSWER MUST BE 1-60 CHARACTERS IN LENGTH. NO DASHES('-') ALLOWED. ONLY PSEUDONYM CAN BE EDITED IN
THE NATIONAL PORTION OF THE FILE.
DESCRIPTION: The original manufacturer of equipment to be accounted for by the facility. Not to be confused
with the vendor.
DELETE TEST: 1,0)= I DA<50000 D EN^DDIOL("Can't delete entries in national portion of file.","","!?5") I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6912^B
1)= S ^ENG("MFG","B",$E(X,1,30),DA)=""
2)= K ^ENG("MFG","B",$E(X,1,30),DA)
6912,1 MFG'S FULL LENGTH NAME 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1)!(X'?.ANP) X I $D(DA)=1 K:DA<50000 X
LAST EDITED: MAY 18, 1993
HELP-PROMPT: ANSWER MUST BE 1-40 CHARACTERS IN LENGTH. YOU CANNOT EDIT NATIONAL PORTION OF THE FILE.
DESCRIPTION:
Expanded form of manufacturer's name.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6912,2 DIVISION 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1)!(X'?.ANP) X I $D(DA)=1 K:DA<50000 X
LAST EDITED: DEC 06, 1984
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH. YOU CANNOT EDIT NATIONAL PORTION OF THE FILE.
DESCRIPTION:
Separate operating unit of the manufacturing company. For use when appropriate.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6912,3 STREET 1;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1)!(X'?.ANP) X I $D(DA)=1 K:DA<50000 X
LAST EDITED: DEC 06, 1984
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH. YOU CANNOT EDIT THE NATIONAL PORTION OF THE FILE.
DESCRIPTION:
Street address to which correspondence could be directed.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6912,4 CITY 1;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<2)!(X'?.ANP) X I $D(DA)=1 K:DA<50000 X
LAST EDITED: DEC 06, 1984
HELP-PROMPT: ANSWER MUST BE 2-25 CHARACTERS IN LENGTH. YOU CANNOT EDIT THE NATIONAL PORTION OF THE FILE.
DESCRIPTION:
City to which correspondence could be directed.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6912,5 STATE 1;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!(X'?.ANP) X I $D(DA)=1 K:DA<50000 X
LAST EDITED: MAY 18, 1993
HELP-PROMPT: ANSWER MUST BE 2 CHARACTERS IN LENGTH. YOU CANNOT EDIT THE NATIONAL PORTION OF THE FILE.
DESCRIPTION:
State to which correspondence could be directed.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6912,6 ZIP 1;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1)!(X'?.ANP) X I $D(DA)=1 K:DA<50000 X
LAST EDITED: DEC 06, 1984
HELP-PROMPT: ANSWER MUST BE 1-15 CHARACTERS IN LENGTH. YOU CANNOT EDIT THE NATIONAL PORTION OF THE FILE.
DESCRIPTION:
Postal zip code.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6912,7 PHONE 1;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<8)!(X'?.ANP) X I $D(DA)=1 K:DA<50000 X
LAST EDITED: DEC 06, 1984
HELP-PROMPT: Entries must be as follows (314) 652-3942 or 652-3942 with extensions following i.e. 652-3942
ext.675. YOU CANNOT EDIT THE NATIONAL PORTION OF THE FILE.
DESCRIPTION:
Commercial telephone number (including area code).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6912,10 PSEUDONYM 5;0 Multiple #6912.01
DESCRIPTION:
Other names by which this manufacturer is commonly known.
6912.01,.01 PSEUDONYM 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:X[""""!($A(X)=45)!(X'?.ANP) X I $D(X) K:$L(X)>79!($L(X)<1) X
LAST EDITED: AUG 30, 1996
HELP-PROMPT: ANSWER MUST BE 1-79 CHARACTERS IN LENGTH.
DESCRIPTION:
Common name of manufacturing firm.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6912^C
1)= S ^ENG("MFG","C",$E(X,1,30),DA(1),DA)=""
2)= K ^ENG("MFG","C",$E(X,1,30),DA(1),DA)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):