STANDARD DATA DICTIONARY #351.62 -- TRANSFER PRICING FIELD DEFINITION FILE 9/29/25 PAGE 1
STORED IN ^IBAT(351.62, (23 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file comes populated with national entries. These entries should never be deleted or edited. It is not recommended that
facilities add entries to this file. The entries are used to extract and format data for all the transfer pricing reports.
DO NOT delete entries in this file. DO NOT edit data in this file with VA File Manager.
Per VHA Directive 10-93-142, this file definition should not be modified.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: SYNONYM(AC), FIELD NAME(B)
351.62,.001 NUMBER NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JUN 25, 1999
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits
DESCRIPTION:
This is the IEN of the file.
351.62,.01 FIELD NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
HELP-PROMPT: NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
DESCRIPTION:
This contains the names of the fields.
CROSS-REFERENCE: 351.62^B
1)= S ^IBAT(351.62,"B",$E(X,1,30),DA)=""
2)= K ^IBAT(351.62,"B",$E(X,1,30),DA)
351.62,.02 LENGTH 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUN 25, 1999
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION:
This is the max length of this field.
351.62,.03 MULTIPLE FIELD 0;3 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JUL 09, 1999
HELP-PROMPT: This flag indicates if this field can be multiple.
DESCRIPTION:
Flag to indicate if this extract can be multiple for the transaction.
351.62,.04 SYNONYM 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X K:$D(^IBAT(351.62,"AC",X)) X
LAST EDITED: JUL 24, 1999
HELP-PROMPT: Type a Number between 1 and 99, 0 Decimal Digits. Unique numbers ONLY.
DESCRIPTION:
This is the SYNONYM to be displayed for choosing this item.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 351.62^AC
1)= S ^IBAT(351.62,"AC",$E(X,1,30),DA)=""
2)= K ^IBAT(351.62,"AC",$E(X,1,30),DA)
351.62,.05 NUMERIC FIELD 0;5 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JUL 30, 1999
HELP-PROMPT: This flag indicates if this field is numeric
DESCRIPTION: Flag to indicate if this extract is numeric for the transaction. Used to determine if the field
needs to be formatted as such.
351.62,1.01 EXTRACT CODE 1;E1,245 MUMPS
INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM
LAST EDITED: JUN 25, 1999
HELP-PROMPT: This is Standard MUMPS code.
DESCRIPTION:
This is the M code to extract the data.
WRITE AUTHORITY: @
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):