STANDARD DATA DICTIONARY #113.2 -- FH VENDOR FILE 9/29/25 PAGE 1
STORED IN ^FH(113.2, (1 ENTRY) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.5)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains basic data on the various vendors supplying ingredients to the Dietetic Service. It contains address, telephone
numbers and name of contacts.
FILE SCREEN (SCR-node) : I '$D(^FH(113.2,+Y,"I"))!$D(^XUSEC("FHMGR",DUZ))!(DUZ(0)["@")
DD ACCESS: #
RD ACCESS: #F
WR ACCESS: #f
DEL ACCESS: #f
LAYGO ACCESS: #f
IDENTIFIED BY:
"WRITE": I $D(^("I")) D EN^DDIOL("(** Inactive **)","","?3")
POINTED TO BY: VENDOR field (#3) of the INGREDIENT File (#113)
CROSS
REFERENCED BY: INACTIVE?(AC), NAME(B)
113.2,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
LAST EDITED: MAR 12, 1993
HELP-PROMPT: NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
DESCRIPTION:
This is the name of a vendor from whom ingredients are ordered.
DELETE TEST: 1,0)= I 1 D EN^DDIOL("Cannot delete. Inactivate instead.","","?3")
CROSS-REFERENCE: 113.2^B
1)= S ^FH(113.2,"B",$E(X,1,30),DA)=""
2)= K ^FH(113.2,"B",$E(X,1,30),DA)
This is the normal B cross-reference of the NAME field.
113.2,1 1ST ADDRESS LINE 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: JUN 06, 1985
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
This field contains the first address line following the vendor's name.
113.2,2 2ND ADDRESS LINE 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: JUN 06, 1985
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
This field may contain a second address line if necessary.
113.2,3 3RD ADDRESS LINE 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: JUN 06, 1985
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
This field may contain a third address line if necessary.
113.2,4 CITY, STATE ZIP 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: JUN 06, 1985
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
This field contains the last address line showing city, state and zip code.
113.2,6 CONTACT 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: JUN 06, 1985
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
This is the name of person who is the usual contact person with the vendor.
113.2,7 TELEPHONE 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: JUN 06, 1985
HELP-PROMPT: ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
DESCRIPTION:
This field contains the telephone number of the vendor contact person.
113.2,99 INACTIVE? I;1 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: FEB 23, 2000
DESCRIPTION:
This field, if answered YES, will prohibit further selection of this entry.
CROSS-REFERENCE: 113.2^AC^MUMPS
1)= K:X'="Y" ^FH(113.2,DA,"I")
2)= K ^FH(113.2,DA,"I")
This cross-reference is used to create an 'I' node for inactive entries.
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):