STANDARD DATA DICTIONARY #364.5 -- IB DATA ELEMENT DEFINITION FILE 3/24/25 PAGE 1
STORED IN ^IBA(364.5, (371 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 the definition of all data elements that are needed for various forms throughout the MCCR DHCP system. It
contains the 'blueprint' for how to extract the data for each data element entry.
Entries in this file that are designated as having a SECURITY LEVEL of NATIONAL should not be deleted or edited.
IDENTIFIED BY: BASE FILE (#.05)
POINTED TO BY: DATA ELEMENT field (#.03) of the IB FORM FIELD CONTENT File (#364.7)
CROSS
REFERENCED BY: NAME(B)
364.5,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: DEC 19, 1995
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
The name to be used to uniquely identify this data element.
CROSS-REFERENCE: 364.5^B
1)= S ^IBA(364.5,"B",$E(X,1,30),DA)=""
2)= K ^IBA(364.5,"B",$E(X,1,30),DA)
364.5,.02 SECURITY LEVEL 0;2 SET (Required)
'N' FOR NATIONAL,NO EDIT;
'L' FOR LOCAL;
LAST EDITED: FEB 15, 1996
DESCRIPTION: If this field is set to N (NATIONAL,NO EDIT), this is a secured data element and will not be
allowed to be edited or deleted.
364.5,.03 TYPE OF ELEMENT 0;3 SET (Required)
'F' FOR NON-MULTIPLE FILEMAN FIELD;
'E' FOR EXTRACTED VIA CODE;
'C' FOR CONSTANT VALUE;
LAST EDITED: FEB 15, 1996
DESCRIPTION: The type of data element being defined as needed by one or more forms. This field determines the
type of retrieval needed to get the actual data element's value for a given bill.
CROSS-REFERENCE: ^^TRIGGER^364.5^.04
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X="FC",Y(1)=X S X=Y(0),X=X S Y=X,X=Y(1),X=X S X=X[Y I
X S X=DIV S Y(1)=$S($D(^IBA(364.5,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X="I
" X ^DD(364.5,.03,1,1,1.4)
1.4)= S DIH=$S($D(^IBA(364.5,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=364.5,DIG=.04 D ^DI
CR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
3)= DO NOT DELETE
CREATE CONDITION)= "FC"[INTERNAL(TYPE OF ELEMENT)
CREATE VALUE)= S X="I"
DELETE VALUE)= NO EFFECT
FIELD)= ELEMENT CATEGORY
If TYPE OF ELEMENT is 'F' or 'C' then ELEMENT CATEGORY must be 'I'.
CROSS-REFERENCE: ^^TRIGGER^364.5^.06
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X'="F" I X S X=DIV S Y(1)=$S($D(^IBA(36
4.5,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(364.5,.03,1,2,1.4)
1.4)= S DIH=$S($D(^IBA(364.5,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=364.5,DIG=.06 D ^DI
CR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
3)= DO NOT DELETE
CREATE CONDITION)= INTERNAL(TYPE OF ELEMENT)'="F"
CREATE VALUE)= @
DELETE VALUE)= NO EFFECT
FIELD)= FILEMAN FIELD REFERENCE
This triggers the FILEMAN FIELD REFERENCE field to null if the element type is not FILEMAN field
type of element.
CROSS-REFERENCE: ^^TRIGGER^364.5^.08
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X'="C" I X S X=DIV S Y(1)=$S($D(^IBA(36
4.5,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" X ^DD(364.5,.03,1,3,1.4)
1.4)= S DIH=$S($D(^IBA(364.5,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=364.5,DIG=.08 D ^DI
CR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
3)= DO NOT DELETE
CREATE CONDITION)= INTERNAL(TYPE OF ELEMENT)'="C"
CREATE VALUE)= @
DELETE VALUE)= NO EFFECT
FIELD)= CONSTANT VALUE
This triggers the CONSTANT VALUE field to null if the element type is not CONSTANT type of element.
CROSS-REFERENCE: ^^TRIGGER^364.5^1
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X'="E" I X S X=DIV S Y(1)=$S($D(^IBA(36
4.5,D0,1)):^(1),1:"") S X=$E(Y(1),1,245),X=X S DIU=X K Y S X="" X ^DD(364.5,.03,1,4,1.4)
1.4)= S DIH=$S($D(^IBA(364.5,DIV(0),1)):^(1),1:""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,245),Y=$E(DIH,
246,999),^(1)=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",245-$L(DIV))_Y),DIH=364.5,DIG=1 D ^DI
CR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
3)= DO NOT DELETE
CREATE CONDITION)= INTERNAL(TYPE OF ELEMENT)'="E"
CREATE VALUE)= @
DELETE VALUE)= NO EFFECT
FIELD)= EXTRACT CODE
This triggers the EXTRACT CODE field to null if the element type is not an EXTRACTED VIA CODE type
of element.
364.5,.04 ELEMENT CATEGORY 0;4 SET (Required)
'I' FOR INDIVIDUAL ELEMENT;
'G' FOR GROUP ELEMENT;
INPUT TRANSFORM: I $P($G(^IBA(364.5,DA,0)),U,3)="F",$G(X)="G" K X
LAST EDITED: FEB 15, 1996
HELP-PROMPT: This indicates an INDIVIDUAL or GROUP of elements will be returned. Group is not valid for Fileman
type elements.
DESCRIPTION: This defines whether the data element to be extracted is a single piece of data or is a string of
related data. Fileman field references must be designated as individual elements.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the TYPE OF ELEMENT field of the IB DATA ELEMENT DEFINITION File
CROSS-REFERENCE: ^^TRIGGER^364.5^.06
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X="G" I X S X=DIV S Y(1)=$S($D(^IBA(364
.5,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(364.5,.04,1,1,1.4)
1.4)= S DIH=$S($D(^IBA(364.5,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=364.5,DIG=.06 D ^DI
CR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE CONDITION)= INTERNAL(ELEMENT CATEGORY)="G"
CREATE VALUE)= ""
DELETE VALUE)= NO EFFECT
FIELD)= FILEMAN FIELD REFERENCE
364.5,.05 BASE FILE 0;5 POINTER TO FILE FILE (#1)
LAST EDITED: MAR 11, 1996
HELP-PROMPT: Enter the Fileman file to be used as a 'base' to extract the data from.
DESCRIPTION:
This is the number of the Fileman file to be used as a 'base' to extract data for this field.
364.5,.06 FILEMAN FIELD REFERENCE 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>65!($L(X)<1) X I $D(X),$P($G(^IBA(364.5,DA,0)),U,4)="G" K X
LAST EDITED: DEC 21, 1995
HELP-PROMPT: Must be a valid Fileman reference and ELEMENT CATEGORY must not be GROUP.
DESCRIPTION: The valid Fileman field reference or simple Fileman navigation to be used to extract using the
$$GET^DIQ utility. Note this will not return true multiple entries. Word-processing type fields
are able to be retrieved, however. No syntax check is made on this field so the user must be
careful to type a valid Fileman expression. This must be designated as an INDIVIDUAL element, not
a group element.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the TYPE OF ELEMENT field of the IB DATA ELEMENT DEFINITION File
TRIGGERED by the ELEMENT CATEGORY field of the IB DATA ELEMENT DEFINITION File
CROSS-REFERENCE: ^^TRIGGER^364.5^.07
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.5,D0,0)):^
(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" X ^DD(364.5,.06,1,1,1.4)
1.4)= S DIH=$S($D(^IBA(364.5,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=364.5,DIG=.07 D ^DI
CR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(364.5,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S
DIU=X K Y S X="" X ^DD(364.5,.06,1,1,2.4)
2.4)= S DIH=$S($D(^IBA(364.5,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=364.5,DIG=.07 D ^DI
CR:$O(^DD(DIH,DIG,1,0))>0
CREATE CONDITION)= FILEMAN FIELD REFERENCE=""
CREATE VALUE)= @
DELETE VALUE)= @
FIELD)= #.07
364.5,.07 FILEMAN RETURN FORMAT 0;7 SET
'I' FOR INTERNAL;
'E' FOR EXTERNAL;
LAST EDITED: DEC 05, 1995
DESCRIPTION: This is the format for the retrieved data for Fileman-type data elements. It is recommended to use
Internal format whenever possible to keep the data element definitions in this file as generic as
possible to avoid duplication. The format capabilities of the forms generator should be used to
interpret and reformat the data element when needed.
NOTES: TRIGGERED by the FILEMAN FIELD REFERENCE field of the IB DATA ELEMENT DEFINITION File
364.5,.08 CONSTANT VALUE 0;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
LAST EDITED: DEC 05, 1995
HELP-PROMPT: Answer must be 1-80 characters in length.
DESCRIPTION:
The specific value that this data element should return for this data element.
NOTES: TRIGGERED by the TYPE OF ELEMENT field of the IB DATA ELEMENT DEFINITION File
364.5,1 EXTRACT CODE 1;E1,245 MUMPS
INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM
LAST EDITED: DEC 05, 1995
HELP-PROMPT: This is Standard MUMPS code.
DESCRIPTION: The code to be executed by the forms generator to return the value(s) of the data element. If no
ARRAY ROOT field is completed for this data element, the code should set the variable IBXDATA or
the array IBXDATA(1) through IBXDATA(n) where n=the total # of iterations of the data element
retrieved. If the ARRAY ROOT field has been completed for this data element, this code should set
the variable referenced there. IBXIEN is assumed to be the internal entry number of the file
(referenced by the variable IBXFILE) entry.
WRITE AUTHORITY: @
NOTES: TRIGGERED by the TYPE OF ELEMENT field of the IB DATA ELEMENT DEFINITION File
364.5,2 ARRAY ROOT 2;E1,50 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: JAN 17, 1996
HELP-PROMPT: Answer must be a valid array root name.
DESCRIPTION: The local or global base root where multiple-valued output or word processing data is to be stored
for this data element. IBXDATA is the default if there is no data in this field. Example of a
global array: ^TMP($J)
364.5,3 DESCRIPTION 3;0 WORD-PROCESSING #364.53
LAST EDITED: DEC 05, 1995
HELP-PROMPT: Enter a description of the data element being defined.
DESCRIPTION:
This is a free text description of the data that this data element represents.
FILES POINTED TO FIELDS
FILE (#1) BASE FILE (#.05)
INPUT TEMPLATE(S):
IBCE DEFINE LOCAL ELEMENT JUN 27, 1996@13:37 USER #0
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):