STANDARD DATA DICTIONARY #364.7 -- IB FORM FIELD CONTENT FILE 6/27/25 PAGE 1
STORED IN ^IBA(364.7, (1688 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
DO NOT delete entries or edit data in this file with VA File Manager.
This is the file that contains the specific fields to be used to produce the associated form or screen. If there is no insurance
company or bill type specified for an entry, this is assumed to be the default definition of the field.
Entries in this file that are designated as having a SECURITY LEVEL of NATIONAL should not be deleted or edited.
IDENTIFIED BY: DATA ELEMENT (#.03)
CROSS
REFERENCED BY: FORM FIELD REFERENCE(AINS), INSURANCE COMPANY(AINS1), FORM FIELD REFERENCE(AINTYP), INSURANCE COMPANY(AINTYP1),
BILL TYPE(AINTYP2), FORM FIELD REFERENCE(ATYPE), BILL TYPE(ATYPE1), FORM FIELD REFERENCE(B), DATA ELEMENT(C)
INDEXED BY: FORM FIELD REFERENCE & SECURITY LEVEL & INSURANCE COMPANY & BILL TYPE (ALL)
364.7,.01 FORM FIELD REFERENCE 0;1 POINTER TO IB FORM SKELETON DEFINITION FILE (#364.6) (Required)
LAST EDITED: APR 28, 2000
HELP-PROMPT: Enter the billing form that this field is associated with
DESCRIPTION:
This is a pointer to the billing form field that this field is associated with.
CROSS-REFERENCE: 364.7^B
1)= S ^IBA(364.7,"B",$E(X,1,30),DA)=""
2)= K ^IBA(364.7,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 364.7^ATYPE^MUMPS
1)= N Z1,Z0 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P(Z0,U,6) I Z1'="",$P($G(^IBA(364.6,+X,0)),U,3),'$P(Z0,U,
5) S ^IBA(364.7,"ATYPE",$P(^IBA(364.6,+X,0),U,3),Z1,DA)=""
2)= N Z0,Z1 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P(Z0,U,6) I Z1'="",$P($G(^IBA(364.6,+X,0)),U,3) K ^IBA(36
4.7,"ATYPE",$P(^IBA(364.6,+X,0),U,3),Z1,DA)
3)= DO NOT DELETE
Xref by form and bill type
CROSS-REFERENCE: 364.7^AINTYP^MUMPS
1)= N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P(Z0,U,5),Z2=$P(Z0,U,6) I Z1,Z2'="",$P($G(^IBA(364.6,+
X,0)),U,3) S ^IBA(364.7,"AINTYP",$P(^IBA(364.6,+X,0),U,3),Z1,Z2,DA)=""
2)= N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P(Z0,U,5),Z2=$P(Z0,U,6) I Z1,Z2'="",$P($G(^IBA(364.6,+
X,0)),U,3) K ^IBA(364.7,"AINTYP",$P(^IBA(364.6,+X,0),U,3),Z1,Z2,DA)
3)= DO NOT DELETE
Xref by form, insurance company and bill type
CROSS-REFERENCE: 364.7^AINS^MUMPS
1)= N Z0,Z1 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P(Z0,U,5) I Z1,$P($G(^IBA(364.6,+X,0)),U,3),$P(Z0,U,6)=""
S ^IBA(364.7,"AINS",$P(^IBA(364.6,+X,0),U,3),Z1,DA)=""
2)= N Z0,Z1 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P(Z0,U,5) I Z1,$P($G(^IBA(364.6,+X,0)),U,3) K ^IBA(364.7,
"AINS",$P(^IBA(364.6,+X,0),U,3),Z1,DA)
3)= DO NOT DELETE
Xref by form field and insurance company
FIELD INDEX: ALL (#52) MUMPS IR SORTING ONLY
Short Descr: Xref contains all local overrides defined for all insurance and type
Set Logic: S ^IBA(364.7,"ALL",X2(2),DA)=""
Set Cond: I 'X2(2)!(X2(4)'="")!(X2(5)'="")!(X2(3)'="L") S X=0
Kill Logic: K ^IBA(364.7,"ALL",X1(2),DA)
Kill Cond: I 'X1(2)!(X1(4)'="")!(X1(5)'="")!(X1(3)'="L") S X=0
Whole Kill: K ^IBA(364.7,"ALL")
X(1): FORM FIELD REFERENCE (364.7,.01) (Len 15) (forwards)
Transform (Display):
X(2): Computed Code: S X=$P($G(^IBA(364.6,+X(1),0)),U,3)
(Subscr 1) (Len 10)
X(3): SECURITY LEVEL (364.7,.02) (Len 10) (forwards)
Transform (Display):
X(4): INSURANCE COMPANY (364.7,.05) (Len 20) (forwards)
Transform (Display):
X(5): BILL TYPE (364.7,.06) (Len 20) (forwards)
Transform (Display):
364.7,.02 SECURITY LEVEL 0;2 SET
'N' FOR NATIONAL,NO EDIT;
'L' FOR LOCAL;
LAST EDITED: APR 28, 2000
HELP-PROMPT: Enter N for nationally released fields (no edit) or L for locally added fields.
DESCRIPTION: This field determines whether or not editing of the entry is allowed. For NATIONAL (N) field, no
local editing is allowed. If LOCAL (L) field is created, editing is allowed.
FIELD INDEX: ALL (#52) MUMPS IR SORTING ONLY
Short Descr: Xref contains all local overrides defined for all insurance and type
Set Logic: S ^IBA(364.7,"ALL",X2(2),DA)=""
Set Cond: I 'X2(2)!(X2(4)'="")!(X2(5)'="")!(X2(3)'="L") S X=0
Kill Logic: K ^IBA(364.7,"ALL",X1(2),DA)
Kill Cond: I 'X1(2)!(X1(4)'="")!(X1(5)'="")!(X1(3)'="L") S X=0
Whole Kill: K ^IBA(364.7,"ALL")
X(1): FORM FIELD REFERENCE (364.7,.01) (Len 15) (forwards)
Transform (Display):
X(2): Computed Code: S X=$P($G(^IBA(364.6,+X(1),0)),U,3)
(Subscr 1) (Len 10)
X(3): SECURITY LEVEL (364.7,.02) (Len 10) (forwards)
Transform (Display):
X(4): INSURANCE COMPANY (364.7,.05) (Len 20) (forwards)
Transform (Display):
X(5): BILL TYPE (364.7,.06) (Len 20) (forwards)
Transform (Display):
364.7,.03 DATA ELEMENT 0;3 POINTER TO IB DATA ELEMENT DEFINITION FILE (#364.5)
LAST EDITED: JUL 02, 1996
HELP-PROMPT: Enter the data element that will define this form field. If used on a screen, it must be a fileman
type.
DESCRIPTION:
This identifies the data element that be extracted for this entry.
TECHNICAL DESCR: This is the data element that will be allowed to be displayed/edited on a screen, extracted for a
transmit, or printed on a printed form. If used on a screen, the data element must be a fileman
type and a local field (>10000 for ifn and on a node >10000) to be editable.
CROSS-REFERENCE: 364.7^C
1)= S ^IBA(364.7,"C",$E(X,1,30),DA)=""
2)= K ^IBA(364.7,"C",$E(X,1,30),DA)
3)= DO NOT DELETE
Xref by DATA ELEMENT NAME
364.7,.04 SCREEN PROMPT 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>70!($L(X)<1) X I $D(X),$P($G(^IBE(353,+$G(^IBA(364.6,+$G(^IBA(364.7,DA,0)),0)),2)),U,2)'="S
" K X
LAST EDITED: MAR 21, 1996
HELP-PROMPT: Answer must be 1-70 characters in length.
DESCRIPTION:
This is used only by screen-type forms to place a prompt on the screen for a particular field.
TECHNICAL DESCR: This is the prompt that will preceed the data element defined for this entry. If no data element,
this prompt will display. This field is only used for screen-type forms.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
364.7,.05 INSURANCE COMPANY 0;5 POINTER TO INSURANCE COMPANY FILE (#36)
LAST EDITED: APR 28, 2000
HELP-PROMPT: Enter the name of the insurance company that this field is associated with.
DESCRIPTION:
This is the insurance company who has a need for other than the standard data in this field.
CROSS-REFERENCE: 364.7^AINS1^MUMPS
1)= N Z0,Z1 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P($G(^IBA(364.6,+Z0,0)),U,3) I Z1,$P(Z0,U,6)="" S ^IBA(36
4.7,"AINS",Z1,$E(X,1,30),DA)=""
2)= N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P($G(^IBA(364.6,+Z0,0)),U,3),Z2=$P(Z0,U,6) K ^IBA(364.
7,"AINS",Z1,$E(X,1,30),DA) I Z2'="",$D(^IBA(364.7,"AINTYP",Z1,X,Z2,DA)) S ^IBA(364.7,"ATYPE",Z1,Z2,
DA)=""
3)= DO NOT DELETE
Xref by form field and insurance company.
CROSS-REFERENCE: 364.7^AINTYP1^MUMPS
1)= N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=+$P($G(^IBA(364.6,+Z0,0)),U,3),Z2=$P(Z0,U,6) I Z1,Z2'="
" S ^IBA(364.7,"AINTYP",Z1,$E(X,1,30),Z2,DA)="" K ^IBA(364.7,"ATYPE",Z1,Z2,DA),^IBA(364.7,"AINS",Z1
,X,DA)
2)= N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=+$P($G(^IBA(364.6,+Z0,0)),U,3),Z2=$P(Z0,U,6) K:Z1&(Z2'=
"") ^IBA(364.7,"AINTYP",Z1,$E(X,1,30),Z2,DA)
3)= DO NOT DELETE
Xref by insurance company and bill type
FIELD INDEX: ALL (#52) MUMPS IR SORTING ONLY
Short Descr: Xref contains all local overrides defined for all insurance and type
Set Logic: S ^IBA(364.7,"ALL",X2(2),DA)=""
Set Cond: I 'X2(2)!(X2(4)'="")!(X2(5)'="")!(X2(3)'="L") S X=0
Kill Logic: K ^IBA(364.7,"ALL",X1(2),DA)
Kill Cond: I 'X1(2)!(X1(4)'="")!(X1(5)'="")!(X1(3)'="L") S X=0
Whole Kill: K ^IBA(364.7,"ALL")
X(1): FORM FIELD REFERENCE (364.7,.01) (Len 15) (forwards)
Transform (Display):
X(2): Computed Code: S X=$P($G(^IBA(364.6,+X(1),0)),U,3)
(Subscr 1) (Len 10)
X(3): SECURITY LEVEL (364.7,.02) (Len 10) (forwards)
Transform (Display):
X(4): INSURANCE COMPANY (364.7,.05) (Len 20) (forwards)
Transform (Display):
X(5): BILL TYPE (364.7,.06) (Len 20) (forwards)
Transform (Display):
364.7,.06 BILL TYPE 0;6 SET
'I' FOR INPATIENT;
'O' FOR OUTPATIENT;
LAST EDITED: APR 28, 2000
HELP-PROMPT: Enter the type of the bill.
DESCRIPTION:
This is the type of bill that requires this field.
CROSS-REFERENCE: 364.7^ATYPE1^MUMPS
1)= N Z0,Z1 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P($G(^IBA(364.6,+Z0,0)),U,3) I Z1,'$P(Z0,U,5) S ^IBA(364.
7,"ATYPE",Z1,$E(X,1,30),DA)=""
2)= N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P($G(^IBA(364.6,+Z0,0)),U,3),Z2=$P(Z0,U,5) I Z1 K ^IBA
(364.7,"ATYPE",Z1,$E(X,1,30),DA) I Z2,$D(^IBA(364.7,"AINTYP",Z1,Z2,X,DA)) S ^IBA(364.7,"AINS",Z1,Z2
,DA)=""
3)= DO NOT DELETE
Xref by form and bill type.
CROSS-REFERENCE: 364.7^AINTYP2^MUMPS
1)= N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=+$P($G(^IBA(364.6,+Z0,0)),U,3),Z2=$P(Z0,U,5) I Z1,Z2 K:
'$D(^IBA(364.7,"AINTYP",Z1,Z2,X,DA)) ^IBA(364.7,"AINS",Z1,Z2,DA) S ^IBA(364.7,"AINTYP",Z1,Z2,$E(X,1
,30),DA)=""
2)= N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=+$P($G(^IBA(364.6,+Z0,0)),U,3),Z2=$P(Z0,U,5) K:Z1&Z2 ^I
BA(364.7,"AINTYP",Z1,Z2,$E(X,1,30),DA)
3)= DO NOT DELETE
Xref by form, insurance company and bill type
FIELD INDEX: ALL (#52) MUMPS IR SORTING ONLY
Short Descr: Xref contains all local overrides defined for all insurance and type
Set Logic: S ^IBA(364.7,"ALL",X2(2),DA)=""
Set Cond: I 'X2(2)!(X2(4)'="")!(X2(5)'="")!(X2(3)'="L") S X=0
Kill Logic: K ^IBA(364.7,"ALL",X1(2),DA)
Kill Cond: I 'X1(2)!(X1(4)'="")!(X1(5)'="")!(X1(3)'="L") S X=0
Whole Kill: K ^IBA(364.7,"ALL")
X(1): FORM FIELD REFERENCE (364.7,.01) (Len 15) (forwards)
Transform (Display):
X(2): Computed Code: S X=$P($G(^IBA(364.6,+X(1),0)),U,3)
(Subscr 1) (Len 10)
X(3): SECURITY LEVEL (364.7,.02) (Len 10) (forwards)
Transform (Display):
X(4): INSURANCE COMPANY (364.7,.05) (Len 20) (forwards)
Transform (Display):
X(5): BILL TYPE (364.7,.06) (Len 20) (forwards)
Transform (Display):
364.7,.07 PAD CHARACTER 0;7 SET
'ZL' FOR ZERO PAD ON LEFT;
'ZR' FOR ZERO PAD ON RIGHT;
'SL' FOR SPACE PAD ON LEFT;
'SR' FOR SPACE PAD ON RIGHT;
'N' FOR NO PAD REQUIRED;
LAST EDITED: JAN 26, 1996
HELP-PROMPT: Enter the code that corresponds to the format and pad character to use for the data output in this
field.
DESCRIPTION: If present, this defines the character to be used to pad the DATA ELEMENT to its desired length and
the orientation of the padding characters to the left or right of the data. The default is space
pad to the right.
364.7,.08 REQUIRED 0;8 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: DEC 07, 1995
HELP-PROMPT: Enter 1 (YES) if this data element is on a local screen 9 form and the data is required for the
bill to be authorized.
DESCRIPTION: This field controls the required/not required status of a data element on a local screen 9 form.
If this field is 1 (YES), this data element is always required to have data (not null) in order for
a bill to be authorized.
364.7,.09 EDIT STATUS 0;9 SET
'E' FOR EDITABLE;
'D' FOR DISPLAY ONLY;
LAST EDITED: MAR 20, 1996
HELP-PROMPT: Enter 'E' to enable editing for this field, 'D' for a display only field.
DESCRIPTION: This field is used to control whether or not a data element on a screen is editable or for
display-only purposes.
364.7,.1 EDIT GROUP NUMBER 0;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 21, 1996
HELP-PROMPT: Enter the edit group # that this field will be included in. Valid #'s are 1-99.
DESCRIPTION: This field contains the # of the edit group that the screen data element will be included with.
When this group # is selected on an edit screen, all data elements assigned to this group # on this
screen will be presented for editing. If no # is entered here, this field will not be available
for editing. This field will only apply to screen-type forms' editable data element descriptions.
364.7,1 FORMAT CODE 1;E1,245 MUMPS
INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM
LAST EDITED: DEC 07, 1995
HELP-PROMPT: This is Standard MUMPS code.
DESCRIPTION: This is the code that will be xecuted to format the 'raw' data element value that is returned from
the execution of the DATA ELEMENT's definition. This code can assume the variable/array IBXDATA is
available as input and should set this variable/array as its output. Standard calls for data
formatting have been provided. The variables IBXPG, IBXLN, IBXCOL are the only IBX* variables that
should be changed in this routine. These represent the page, line, column as the first 3 levels of
subscript for the output array.
WRITE AUTHORITY: @
364.7,3 FORMAT CODE DESCRIPTION 3;0 WORD-PROCESSING #364.73
LAST EDITED: JUL 10, 1996
DESCRIPTION:
This field describes the function of the format code entered.
LAST EDITED: JUL 10, 1996
HELP-PROMPT: Enter a description of the processing logic of the format code.
DESCRIPTION:
This is a description of the processing logic of the format code.
FILES POINTED TO FIELDS
IB DATA ELEMENT DEFINITION
(#364.5) DATA ELEMENT (#.03)
IB FORM SKELETON DEFINITION
(#364.6) FORM FIELD REFERENCE (#.01)
INSURANCE COMPANY (#36) INSURANCE COMPANY (#.05)
INPUT TEMPLATE(S):
IBCE EDIT FIELD CONTENT AUG 22, 1996@14:59 USER #0
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):