STANDARD DATA DICTIONARY #364.6 -- IB FORM SKELETON DEFINITION FILE 3/24/25 PAGE 1
STORED IN ^IBA(364.6, (1671 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 file contains records that define the skeleton makeup of forms for the IB system. This definition includes the absolute
position of every field that can be output on the form, the length each field must be limited to, and some descriptive information.
This includes printed forms, transmittable output files, and special local billing screens.
Entries in this file that are designated as having a SECURITY LEVEL of NATIONAL should not be deleted or edited.
IDENTIFIED BY: PAGE OR SEQUENCE (#.04), FIRST LINE NUMBER (#.05), STARTING COLUMN OR PIECE (#.08), SHORT DESCRIPTION (#.1)
POINTED TO BY: ASSOCIATED FORM DEFINITION field (#.03) of the IB FORM SKELETON DEFINITION File (#364.6)
FORM FIELD REFERENCE field (#.01) of the IB FORM FIELD CONTENT File (#364.7)
CROSS
REFERENCED BY: BILL FORM(APAR), ASSOCIATED FORM DEFINITION(APAR1), BILL FORM(ASEQ), PAGE OR SEQUENCE(ASEQ1),
FIRST LINE NUMBER(ASEQ2), STARTING COLUMN OR PIECE(ASEQ3), BILL FORM(B)
INDEXED BY: ASSOCIATED FORM DEFINITION (ALL), SHORT DESCRIPTION (C), BILL FORM & PAGE OR SEQUENCE & FIRST LINE NUMBER & STARTING
COLUMN OR PIECE (D)
364.6,.01 BILL FORM 0;1 POINTER TO BILL FORM TYPE FILE (#353) (Required)
INPUT TRANSFORM: I $$DUP^IBCEFG0($G(DA),X,1) K X
LAST EDITED: JUN 13, 2000
HELP-PROMPT: Enter a BILLING FORM that the data element will appear on.
DESCRIPTION: Identifies a billing 'form' or 'screen' where the data element is used. The combination of
form/page/line/column must be unique.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 364.6^B
1)= S ^IBA(364.6,"B",$E(X,1,30),DA)=""
2)= K ^IBA(364.6,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 364.6^ASEQ^MUMPS
1)= N Z0,Z1,Z2,Z3 S Z0=$G(^IBA(364.6,DA,0)),Z1=$P(Z0,U,4),Z2=$P(Z0,U,5),Z3=$P(Z0,U,8) I Z1,Z2,Z3 S
^IBA(364.6,"ASEQ",+X,Z1,Z2,Z3,DA)=""
2)= N Z0,Z1,Z2,Z3 S Z0=$G(^IBA(364.6,DA,0)),Z1=$P(Z0,U,4),Z2=$P(Z0,U,5),Z3=$P(Z0,U,8) I Z1,Z2,Z3 K
^IBA(364.6,"ASEQ",+X,Z1,Z2,Z3,DA)
3)= DO NOT DELETE
This xref contains the sequence to use to extract or print the form fields.
CROSS-REFERENCE: 364.6^APAR^MUMPS
1)= N Z0 S Z0=$P($G(^IBA(364.6,DA,0)),U,3) I Z0,Z0'=X S ^IBA(364.6,"APAR",$E(X,1,30),Z0,DA)=""
2)= N Z0 S Z0=$P($G(^IBA(364.6,DA,0)),U,3) I Z0,Z0'=X K ^IBA(364.6,"APAR",$E(X,1,30),Z0,DA)
3)= DO NOT DELETE
Xref by bill form and associated form field definition.
CROSS-REFERENCE: ^^TRIGGER^364.6^.03
1)= X ^DD(364.6,.01,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,3)
,X=X S DIU=X K Y S X=DIV S X=$S('$D(D0):"",D0<0:"",1:D0) X ^DD(364.6,.01,1,4,1.4)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(364.6,.01,1,4,69.2) S X=$P($P(Y(102),$C(59)_$P(Y
(101),U,2)_":",2),$C(59),1)="BILLING SCREEN" S D0=I(0,0)
1.4)= S DIH=$G(^IBA(364.6,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=364.6,DIG=.03 D ^DICR
2)= X ^DD(364.6,.01,1,4,2.3) I X S X=DIV S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,3)
,X=X S DIU=X K Y S X="" S DIH=$G(^IBA(364.6,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=364.6,DIG=.03 D
^DICR
2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(364.6,.01,1,4,79.2) S Y(101)=$S($D(^IBE(353,D0,2
)):^(2),1:"") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,2)_":",2),$C(59),1)="BILLING SCREEN" S D0=I(0,0)
3)= DO NOT DELETE
69.2)= S I(0,0)=$G(D0),D0=Y(0) S:'D0!'$D(^IBE(353,+D0,0)) D0=-1 S Y(102)=$C(59)_$P($G(^DD(353,2.02,
0)),U,3),Y(101)=$S($D(^IBE(353,D0,2)):^(2),1:"")
79.2)= S I(0,0)=$G(D0),Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'D0!'$D(^IBE(353,+
D0,0)) D0=-1 S Y(102)=$C(59)_$P($G(^DD(353,2.02,0)),U,3)
CREATE CONDITION)= BILL FORM:FORMAT TYPE="BILLING SCREEN"
CREATE VALUE)= NUMBER
DELETE CONDITION)= BILL FORM:FORMAT TYPE="BILLING SCREEN"
DELETE VALUE)= @
FIELD)= ASSOCIATED FORM DEFINITION
This trigger is needed for the local screen 9 logic to work correctly.
RECORD INDEXES: D (#51)
364.6,.02 SECURITY LEVEL 0;2 SET
'N' FOR NATIONAL,NO EDIT;
'L' FOR LOCAL;
INPUT TRANSFORM: I X="N",$P($G(^IBA(364.6,DA,0)),U,3) K X
LAST EDITED: JAN 17, 1996
HELP-PROMPT: Enter an N if no editing is allowed, L if editing is OK because this entry is associated with a
locally defined form.
DESCRIPTION: This field determines whether or not editing of the entry is allowed. If the security level of the
entry is NATIONAL (N), no local editing is allowed. If the security level of the entry is LOCAL
(L), it may be edited.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the ASSOCIATED FORM DEFINITION field of the IB FORM SKELETON DEFINITION File
364.6,.03 ASSOCIATED FORM DEFINITION 0;3 POINTER TO IB FORM SKELETON DEFINITION FILE (#364.6)
LAST EDITED: APR 14, 2000
HELP-PROMPT: Enter the form definition record this definition will override.
DESCRIPTION:
The form definition record this definition will override.
NOTES: TRIGGERED by the BILL FORM field of the IB FORM SKELETON DEFINITION File
CROSS-REFERENCE: 364.6^APAR1^MUMPS
1)= N Z0 S Z0=+$G(^IBA(364.6,DA,0)) I Z0,Z0'=X S ^IBA(364.6,"APAR",Z0,$E(X,1,30),DA)=""
2)= N Z0 S Z0=+$G(^IBA(364.6,DA,0)) I Z0,Z0'=X K ^IBA(364.6,"APAR",Z0,$E(X,1,30),DA)
3)= DO NOT DELETE
Xref by bill form and associated form field definition.
CROSS-REFERENCE: ^^TRIGGER^364.6^.04
1)= X ^DD(364.6,.03,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,4)
,X=X S DIU=X K Y S X="" X ^DD(364.6,.03,1,2,1.4)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(364.6,.03,1,2,69.2) S Y(101)=$S($D(^IBE(353,D0,2
)):^(2),1:"") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,2)_":",2),$C(59),1)'="BILLING SCREEN" S D0=I(0,0)
1.4)= S DIH=$S($D(^IBA(364.6,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=364.6,DIG=.04 D ^DI
CR
2)= Q
3)= DO NOT DELETE
69.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^I
BE(353,+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(353,2.02,0)):$P(^(0),U,3),1:"")
CREATE CONDITION)= BILL FORM:FORMAT TYPE'="BILLING SCREEN"
CREATE VALUE)= @
DELETE VALUE)= NO EFFECT
FIELD)= PAGE OR SEQUENCE
If an associated form that is not a screen form, page is taken from the associated with field
definition.
CROSS-REFERENCE: ^^TRIGGER^364.6^.05
1)= X ^DD(364.6,.03,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,5)
,X=X S DIU=X K Y S X="" X ^DD(364.6,.03,1,3,1.4)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(364.6,.03,1,3,69.2) S Y(101)=$S($D(^IBE(353,D0,2
)):^(2),1:"") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,2)_":",2),$C(59),1)'="BILLING SCREEN" S D0=I(0,0)
1.4)= S DIH=$S($D(^IBA(364.6,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=364.6,DIG=.05 D ^DI
CR
2)= Q
3)= DO NOT DELETE
69.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^I
BE(353,+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(353,2.02,0)):$P(^(0),U,3),1:"")
CREATE CONDITION)= BILL FORM:FORMAT TYPE'="BILLING SCREEN"
CREATE VALUE)= @
DELETE VALUE)= NO EFFECT
FIELD)= FIRST LINE NUMBER
If an associated form that is not a screen form, line is taken from the associated with field
definition.
CROSS-REFERENCE: ^^TRIGGER^364.6^.08
1)= X ^DD(364.6,.03,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,8)
,X=X S DIU=X K Y S X="" X ^DD(364.6,.03,1,4,1.4)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(364.6,.03,1,4,69.2) S Y(101)=$S($D(^IBE(353,D0,2
)):^(2),1:"") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,2)_":",2),$C(59),1)'="BILLING SCREEN" S D0=I(0,0)
1.4)= S DIH=$S($D(^IBA(364.6,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=364.6,DIG=.08 D ^DI
CR
2)= Q
3)= DO NOT DELETE
69.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^I
BE(353,+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(353,2.02,0)):$P(^(0),U,3),1:"")
CREATE CONDITION)= BILL FORM:FORMAT TYPE'="BILLING SCREEN"
CREATE VALUE)= @
DELETE VALUE)= NO EFFECT
FIELD)= STARTING COLUMN
If an associated form that is not a screen form, column is taken from the associated with field
definition.
CROSS-REFERENCE: ^^TRIGGER^364.6^.09
1)= X ^DD(364.6,.03,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,9)
,X=X S DIU=X K Y S X="" X ^DD(364.6,.03,1,5,1.4)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(364.6,.03,1,5,69.2) S Y(101)=$S($D(^IBE(353,D0,2
)):^(2),1:"") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,2)_":",2),$C(59),1)'="BILLING SCREEN" S D0=I(0,0)
1.4)= S DIH=$S($D(^IBA(364.6,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=364.6,DIG=.09 D ^DI
CR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
3)= DO NOT DELETE
69.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^I
BE(353,+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(353,2.02,0)):$P(^(0),U,3),1:"")
CREATE CONDITION)= BILL FORM:FORMAT TYPE'="BILLING SCREEN"
CREATE VALUE)= @
DELETE VALUE)= NO EFFECT
FIELD)= LENGTH
If an associated form that is not a screen form, length is taken from the associated with field
definition.
CROSS-REFERENCE: ^^TRIGGER^364.6^.06
1)= X ^DD(364.6,.03,1,6,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,6)
,X=X S DIU=X K Y S X="" X ^DD(364.6,.03,1,6,1.4)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(364.6,.03,1,6,69.2) S Y(101)=$S($D(^IBE(353,D0,2
)):^(2),1:"") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,2)_":",2),$C(59),1)'="BILLING SCREEN" S D0=I(0,0)
1.4)= S DIH=$S($D(^IBA(364.6,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=364.6,DIG=.06 D ^DI
CR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
3)= DO NOT DELETE
69.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^I
BE(353,+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(353,2.02,0)):$P(^(0),U,3),1:"")
CREATE CONDITION)= BILL FORM:FORMAT TYPE'="BILLING SCREEN"
CREATE VALUE)= @
DELETE VALUE)= NO EFFECT
FIELD)= MAX NUMBER LINES
If associated form that is not a screen form, the max number lines is taken from the associated
with field definition.
CROSS-REFERENCE: ^^TRIGGER^364.6^.02
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S
DIU=X K Y S X=DIV S X="L" X ^DD(364.6,.03,1,7,1.4)
1.4)= S DIH=$S($D(^IBA(364.6,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=364.6,DIG=.02 D ^DI
CR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
3)= DO NOT DELETE
CREATE VALUE)= "L"
DELETE VALUE)= NO EFFECT
FIELD)= SECURITY LEVEL
Only local entries can be associated.
FIELD INDEX: ALL (#50) MUMPS IR SORTING ONLY
Short Descr: Allows for identification of local override fields that apply to ALL
Set Logic: S ^IBA(364.7,"ALL",DA,X2(5))=""
Set Cond: I X2(4)'="L"!'X2(5)!(X2(2)'="")!(X2(3)'="")!'X2(1) S X=0
Kill Logic: K ^IBA(364.7,"ALL",DA,X1(5))
Kill Cond: I X1(4)'="L"!'X1(5)!(X1(2)'="")!(X1(3)'="")!'X1(1) S X=0
Whole Kill: K ^IBA(364.7,"ALL")
X(1): ASSOCIATED FORM DEFINITION (364.6,.03) (Subscr 1) (forwards)
X(2): Computed Code: N Z S Z=+$O(^IBA(364.7,"B",DA,0)) I Z S X=$P($G(^IBA(364.7,Z,0)),U,5)
X(3): Computed Code: N Z S Z=+$O(^IBA(364.7,"B",DA,0)) I Z S X=$P($G(^IBA(364.7,Z,0)),U,6)
X(4): Computed Code: N Z S Z=+$O(^IBA(364.7,"B",DA,0)) I Z S X=$P($G(^IBA(364.7,Z,0)),U,2)
X(5): Computed Code: S X=+$O(^IBA(364.7,"B",DA,0))
364.6,.04 PAGE OR SEQUENCE 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X I $D(X),$S($P($G(^IBE(353,+$G(^IBA(364.6,+DA,0)),2)),U,2)="S":0,1:$P($G(^IBA
(364.6,DA,0)),U,3))!$$DUP^IBCEFG0(DA,X,2) K X
LAST EDITED: APR 28, 2000
HELP-PROMPT: This data must be 1-20 char long, can't be an assoc form, and must be a unique
form/page/line/column.
DESCRIPTION: This field is used to specify the page, section, transaction segment, etc. that the data element
is to be associated with. This field will be used as the second-level sort field when extracting
data fields for this form. The combination of form/page/line/column must be unique.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the ASSOCIATED FORM DEFINITION field of the IB FORM SKELETON DEFINITION File
CROSS-REFERENCE: 364.6^ASEQ1^MUMPS
1)= N Z0,Z1,Z2,Z3 S Z0=$G(^IBA(364.6,DA,0)),Z1=+Z0,Z2=$P(Z0,U,5),Z3=$P(Z0,U,8) I Z1,Z2,Z3 S ^IBA(36
4.6,"ASEQ",Z1,$E(X,1,30),Z2,Z3,DA)=""
2)= N Z0,Z1,Z2,Z3 S Z0=$G(^IBA(364.6,DA,0)),Z1=+Z0,Z2=$P(Z0,U,5),Z3=$P(Z0,U,8) I Z1,Z2,Z3 K ^IBA(36
4.6,"ASEQ",Z1,$E(X,1,30),Z2,Z3,DA)
3)= DO NOT DELETE
This xref contains the sequence to use to extract or print the form fields.
RECORD INDEXES: D (#51)
364.6,.05 FIRST LINE NUMBER 0;5 NUMBER
LINE
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X I $D(X),$S($P($G(^IBE(353,+$G(^IBA(364.6,+DA,0)),2)),U,2)="
S":0,1:$P($G(^IBA(364.6,DA,0)),U,3))!$$DUP^IBCEFG0(DA,X,3) K X
LAST EDITED: APR 28, 2000
HELP-PROMPT: Type a # 0-9999, 0 Decimals, can't be assoc form, need unique form/pg/line/col.
DESCRIPTION: If this is a printed form, this is the first line number that this data element will appear on.
For transmitted forms, this is assumed to always be a 1. This will be used as the third-level sort
field when extracting data fields for this form. The combination of form/page/line/column must be
unique.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the ASSOCIATED FORM DEFINITION field of the IB FORM SKELETON DEFINITION File
CROSS-REFERENCE: 364.6^ASEQ2^MUMPS
1)= N Z0,Z1,Z2,Z3 S Z0=$G(^IBA(364.6,DA,0)),Z1=+Z0,Z2=$P(Z0,U,4),Z3=$P(Z0,U,8) I Z1,Z2'="",Z3 S ^IB
A(364.6,"ASEQ",Z1,Z2,$E(X,1,30),Z3,DA)=""
2)= N Z0,Z1,Z2,Z3 S Z0=$G(^IBA(364.6,DA,0)),Z1=+Z0,Z2=$P(Z0,U,4),Z3=$P(Z0,U,8) I Z1,Z2'="",Z3 K ^IB
A(364.6,"ASEQ",Z1,Z2,$E(X,1,30),Z3,DA)
3)= DO NOT DELETE
This xref contains the sequence to use to extract or print the form fields.
RECORD INDEXES: D (#51)
364.6,.06 MAX NUMBER LINES 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X I $D(X),$P($G(^IBA(364.6,DA,0)),U,3) K X
LAST EDITED: JAN 17, 1996
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits (can't be an associated form).
DESCRIPTION: If a printed form, this is the highest numbered line number that this data element is allowed to
print on.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the ASSOCIATED FORM DEFINITION field of the IB FORM SKELETON DEFINITION File
364.6,.07 LOCAL OVERRIDE ALLOWED 0;7 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: MAR 11, 1996
HELP-PROMPT: Enter 0 (NO) to prevent local override, 1 to allow local override.
DESCRIPTION: This controls whether or not the output forms generator will allow for a redefinition of this
record via a local override.
364.6,.08 STARTING COLUMN OR PIECE 0;8 NUMBER
COLUMN
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!($S(X[".":X'?.E1"."1.2N,1:0)) X I $D(X),$S($P($G(^IBE(353,+$G(^IBA(364.6,+DA,
0)),2)),U,2)="S":0,1:$P($G(^IBA(364.6,DA,0)),U,3))!$$DUP^IBCEFG0(DA,X,4) K X
LAST EDITED: APR 28, 2000
HELP-PROMPT: Type a # 0-9999, 1-2 Decimals, can't be assoc form, need unique form/pg/line/col.
DESCRIPTION: This is the column on the form, position in the data string (for non-printed forms) - starting at
position 1, or delimited piece that this data element is to be printed or stored in. This will be
used as the fourth-level sort field when extracting data fields for this form. The combination of
form/page/line/column must be unique.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the ASSOCIATED FORM DEFINITION field of the IB FORM SKELETON DEFINITION File
CROSS-REFERENCE: 364.6^ASEQ3^MUMPS
1)= N Z0,Z1,Z2,Z3 S Z0=$G(^IBA(364.6,DA,0)),Z1=+Z0,Z2=$P(Z0,U,4),Z3=$P(Z0,U,5) I Z1,Z2'="",Z3 S ^IB
A(364.6,"ASEQ",Z1,Z2,Z3,$E(X,1,30),DA)=""
2)= N Z0,Z1,Z2,Z3 S Z0=$G(^IBA(364.6,DA,0)),Z1=+Z0,Z2=$P(Z0,U,4),Z3=$P(Z0,U,5) I Z1,Z2'="",Z3 K ^IB
A(364.6,"ASEQ",Z1,Z2,Z3,$E(X,1,30),DA)
3)= DO NOT DELETE
This xref contains the sequence to use to extract or print the form fields.
CROSS-REFERENCE: ^^TRIGGER^364.6^.11
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0)["." I X S X=DIV S Y(1)=$S($D(^IBA(364.6,D0,0)):
^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=1 X ^DD(364.6,.08,1,2,1.4)
1.4)= S DIH=$S($D(^IBA(364.6,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=364.6,DIG=.11 D ^D
ICR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
3)= DO NOT DELETE
CREATE CONDITION)= STARTING COLUMN OR PIECE["."
CREATE VALUE)= S X=1
DELETE VALUE)= NO EFFECT
FIELD)= #.11
If the starting column or piece is not a whole number, this must be a calculate only field - no
output.
RECORD INDEXES: D (#51)
364.6,.09 LENGTH 0;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>250)!(X<1)!(X?.E1"."1N.N) X I $D(X),$P($G(^IBA(364.6,DA,0)),U,3),$P($G(^IBE(353,+^IBA(36
4.6,DA,0),2)),U,2)'="S" K X
LAST EDITED: JAN 11, 2000
HELP-PROMPT: Type a Number between 1 and 250, 0 Decimal Digits (can't be an associated form).
DESCRIPTION: The length desired for the data element. If present, this field will be used to truncate or pad
the data element to this length after the element has been passed through the routine identified in
the FORMAT ROUTINE field.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the ASSOCIATED FORM DEFINITION field of the IB FORM SKELETON DEFINITION File
364.6,.1 SHORT DESCRIPTION 0;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: MAR 10, 2008
HELP-PROMPT: Answer must be 1-40 characters in length
DESCRIPTION: This is a short description of the field that is used as an identifier to make lookups on this file
meaningful.
FIELD INDEX: C (#279) REGULAR IR LOOKUP & SORTING
Short Descr: Field name lookup
Set Logic: S ^IBA(364.6,"C",$E(X,1,40),DA)=""
Kill Logic: K ^IBA(364.6,"C",$E(X,1,40),DA)
Whole Kill: K ^IBA(364.6,"C")
X(1): SHORT DESCRIPTION (364.6,.1) (Subscr 1) (Len 40) (forwards)
Transform (Storage): S X=$$UP^XLFSTR(X)
364.6,.11 CALCULATE ONLY OR OUTPUT 0;11 SET
'1' FOR CALCULATE ONLY;
'0' FOR OUTPUT;
LAST EDITED: JUL 15, 1996
HELP-PROMPT: Enter 1 if this field is used for calculation purposes and is not meant to be output
DESCRIPTION: This field is set to 1 if there is a need to do a special extract or calculation at some point in
the processing, but no output is desired from the field's code execution. Used to set up arrays
for group elements then the individual elements are output separately.
NOTES: TRIGGERED by the STARTING COLUMN OR PIECE field of the IB FORM SKELETON DEFINITION File
364.6,.12 TRANSMIT IGNORES IF NULL 0;12 SET
'0' FOR FALSE;
'1' FOR TRUE;
LAST EDITED: OCT 06, 1999
HELP-PROMPT: Enter 1 (TRUE) if there should be no entry made in the output global if the data value of the
element is null.
DESCRIPTION: This field can be used to suppress output of a field if its value is null. If not suppressed, an
entry is made in the output global used by the formatter, regardless of the contents of the data
for this field. Supressing the value results in no output to the formatter's output global if the
value of the data for this field is determined to be null.
364.6,.13 DATA REQUIRED FOR FIELD 0;13 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: FEB 16, 2000
HELP-PROMPT: Enter yes if there should always be data in this field.
DESCRIPTION: This field is a flag that will stop the output of a record if this field indicates data is required
and the data extracted is null.
FILES POINTED TO FIELDS
BILL FORM TYPE (#353) BILL FORM (#.01)
IB FORM SKELETON DEFINITION
(#364.6) ASSOCIATED FORM DEFINITION (#.03)
File #364.6
Record Indexes:
D (#51) RECORD MUMPS IR LOOKUP & SORTING
Short Descr: XREF BY FORM,PAGE,LINE,COL TO SIMPLIFY DEVELOPMENT
Set Logic: S ^IBA(364.6,"D",X2(1)_","_X2(2)_","_X2(3)_","_X2(4),DA)=""
Set Cond: I X2(1)=""!(X2(2)="")!(X2(3)="")!(X2(4)="") S X=0
Kill Logic: K ^IBA(364.6,"D",X1(1)_","_X1(2)_","_X1(3)_","_X1(4),DA)
Kill Cond: I X1(1)=""!(X1(2)="")!(X1(3)="")!(X1(4)="") S X=0
Whole Kill: K ^IBA(364.6,"D")
X(1): BILL FORM (364.6,.01) (Subscr 1) (forwards)
X(2): PAGE OR SEQUENCE (364.6,.04) (forwards)
X(3): FIRST LINE NUMBER (364.6,.05) (forwards)
X(4): STARTING COLUMN OR PIECE (364.6,.08) (forwards)
INPUT TEMPLATE(S):
IBCE ADD/EDIT LOCAL FORM FIELDAPR 14, 2000@14:31 USER #0
PRINT TEMPLATE(S):
IBCE LOCAL DATA ELEMENTS JAN 18, 2001@16:17 USER #0 INTEGRATED BILLING LOCAL PRINT FIELD OVERRIDES
SORT TEMPLATE(S):
IBCE LOCAL DATA ELEMENTS FEB 22, 2000@13:00 USER #0
SORT BY: #BILL FORM;"LOCAL PRINT FORM NAME: ";C3;L30// (BILL FORM not null)
WITHIN BILL FORM, SORT BY: BILL FORM:;L1//
BILL FORM TYPE FIELD: INTERNAL(#2.02)'="S"// (INTERNAL(#2.02)'=""S"")
WITHIN INTERNAL(#2.02)'="S", SORT BY: ASSOCIATED FORM DEFINITION;"PARENT FORM: ";C13// (ASSOCIATED FORM DEFINITION not null)
WITHIN ASSOCIATED FORM DEFINITION, SORT BY: "";X;" "// ("""" is null)
This sort template will allow for the printing of local form override
data.
FORM(S)/BLOCK(S):