STANDARD DATA DICTIONARY #357.93 -- MULTIPLE CHOICE FIELD FILE 3/24/25 PAGE 1
STORED IN ^IBE(357.93, (9 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file allows multiple choice fields to be defined for forms.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: NAME(B), BLOCK(C)
357.93,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: MAY 18, 1993
HELP-PROMPT: NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
DESCRIPTION:
The name given to the field.
CROSS-REFERENCE: 357.93^B
1)= S ^IBE(357.93,"B",$E(X,1,30),DA)=""
2)= K ^IBE(357.93,"B",$E(X,1,30),DA)
357.93,.02 QUESTION OR EXPLANATION 0;2 FREE TEXT
YOU CAN ENTER TEXT, SUCH AS A QUESTION, TO APPEAR ON THE FORM
INPUT TRANSFORM: K:$L(X)>150!($L(X)<1) X
LAST EDITED: JUL 21, 1994
HELP-PROMPT: You may enter text, such as a question, to appear as part of the input field.
DESCRIPTION:
Text that precedes the list of choices.
357.93,.03 STARTING COLUMN FOR TEXT 0;3 NUMBER
INPUT TRANSFORM: S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: S Y=+Y+1
LAST EDITED: JUL 21, 1994
HELP-PROMPT: What block column should the label begin in?
DESCRIPTION:
The starting column for the text located in the .03 field.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
357.93,.04 STARTING ROW FOR TEXT 0;4 NUMBER
INPUT TRANSFORM: S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: S Y=+Y+1
LAST EDITED: JUL 21, 1994
HELP-PROMPT: What block row should the label start in?
DESCRIPTION:
The row for the text in the .03 field.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
357.93,.06 TYPE OF DATA 0;6 POINTER TO PACKAGE INTERFACE FILE (#357.6) (Required)
WHAT TYPE OF DATA WILL BE ENTERED TO THIS FIELD?
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,6)=1,$P(^(0),U,9)=1,$P(^(0),U,16)[""M""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0
X
LAST EDITED: AUG 29, 1995
HELP-PROMPT: What type of data will be entered to the field?
DESCRIPTION:
Points to the package interface used to input the data.
SCREEN: S DIC("S")="I $P(^(0),U,6)=1,$P(^(0),U,9)=1,$P(^(0),U,16)[""M"""
EXPLANATION: Allows only available input interfaces that are defined as allowable for multiple choices form obje
cts.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
357.93,.07 TEXT APPEARANCE 0;7 FREE TEXT
HOW SHOULD THE TEXT APPEAR? CHOOSE FROM {U,B,R}
INPUT TRANSFORM: S X=$$UPPER^VALM1(X) K:$L(X)>3!("UBR"'[$E(X,1))!("UBR"'[$E(X,2))!("UBR"'[$E(X,3)) X
LAST EDITED: AUG 16, 1994
HELP-PROMPT: B=bold,U=underline,R=reverse You can enter any combination of {B,U,R}.
DESCRIPTION:
The display appearance of the text in the .03 field can be selected via this field.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
357.93,.08 BLOCK 0;8 POINTER TO ENCOUNTER FORM BLOCK FILE (#357.1) (Required)
LAST EDITED: JUL 20, 1994
HELP-PROMPT: What block should this input field appear in?
CROSS-REFERENCE: 357.93^C
1)= S ^IBE(357.93,"C",$E(X,1,30),DA)=""
2)= K ^IBE(357.93,"C",$E(X,1,30),DA)
Used to find all the multiple choice fields appearing in a block.
357.93,.09 SELECTION RULE 0;9 SET
'0' FOR ANY NUMBER;
'1' FOR EXACTLY ONE;
'2' FOR AT MOST ONE (0 or 1);
'3' FOR AT LEAST ONE (1 or more);
LAST EDITED: DEC 09, 1994
HELP-PROMPT: Which rule applies to the choices the user can make?
DESCRIPTION:
A selection rule for the multiple choice question can be specified.
357.93,1 CHOICE 1;0 Multiple #357.931
LAST EDITED: JUL 21, 1994
DESCRIPTION:
The list of choices that make up the multiple choice field.
IDENTIFIED BY:
"WRITE": N IBDWLAB,IBDWQLFR S IBDWLAB="LABEL="_$P(^(0),U,5),IBDWQLFR="" S:$P(^(0),U,9) IBDWQLFR=$P($G(^IBD(3
57.98,$P(^(0),U,9),0)),U) D EN^DDIOL(IBDWLAB_" "_IBDWQLFR,"","?0")
357.931,.01 CHOICE 0;1 FREE TEXT (Required) (Multiply asked)
INPUT TRANSFORM: D CHOICE^IBDFU91($P(^IBE(357.93,D0,0),U,6),.X)
LAST EDITED: SEP 11, 1995
HELP-PROMPT: What value should be passed to the database when this choice is made?
DESCRIPTION:
Should be a value representing a choice that could be made. This field is for the external
representation of the value, which could be different from the representation that is actually
passed to the database.
EXECUTABLE HELP: D HELP^IBDFU91($P(^IBE(357.93,DA,0),U,6))
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 357.931^B
1)= S ^IBE(357.93,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^IBE(357.93,DA(1),1,"B",$E(X,1,30),DA)
357.931,.02 STARTING COLUMN FOR LABEL 0;2 NUMBER (Required)
INPUT TRANSFORM: S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: S Y=+Y+1
LAST EDITED: AUG 22, 1995
HELP-PROMPT: What block column should the label begin in?
DESCRIPTION:
The starting column for the label.
EXECUTABLE HELP: D HELP6^IBDFU5A
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
357.931,.03 STARTING ROW FOR LABEL 0;3 NUMBER (Required)
INPUT TRANSFORM: S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: S Y=+Y+1
LAST EDITED: AUG 21, 1995
HELP-PROMPT: What block row should the label be in?
DESCRIPTION:
The starting row the the label.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
357.931,.04 LABEL APPEARANCE 0;4 FREE TEXT
HOW SHOULD THE LABEL APPEAR? CHOOSE FROM {U,B,R}
INPUT TRANSFORM: S X=$$UPPER^VALM1(X) K:$L(X)>3!("UBR"'[$E(X,1))!("UBR"'[$E(X,2))!("UBR"'[$E(X,3)) X
LAST EDITED: AUG 21, 1995
HELP-PROMPT: B=bold,U=underline,R=reverse. You can enter any combination of {B,U,R}. (NOT REQUIRED)
DESCRIPTION:
The appearance of the label can be specified.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
357.931,.05 CHOICE LABEL 0;5 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>120!($L(X)<1) X
LAST EDITED: AUG 21, 1995
HELP-PROMPT: Answer must be 1-120 characters in length.
DESCRIPTION:
The label that is to appear with the choice.
357.931,.06 BUBBLE COLUMN 0;6 NUMBER (Required)
INPUT TRANSFORM: S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: S Y=+Y+1
LAST EDITED: AUG 08, 1995
HELP-PROMPT: What block column should the bubble begin in?
DESCRIPTION:
The starting row for the bubble associated with the choice can be specified.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
357.931,.07 BUBBLE ROW 0;7 NUMBER (Required)
INPUT TRANSFORM: S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: S Y=+Y+1
LAST EDITED: AUG 08, 1995
HELP-PROMPT: What block row should the bubble be in?
DESCRIPTION:
The row for the bubble associated with the choice can be specified.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
357.931,.08 ID 0;8 FREE TEXT (Required)
INPUT TRANSFORM: S X=X
OUTPUT TRANSFORM: S Y=Y
LAST EDITED: SEP 08, 1995
HELP-PROMPT: Enter the identifier for the choice.
DESCRIPTION:
The identifier for the choice made.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
357.931,.09 DATA QUALIFIER 0;9 POINTER TO AICS DATA QUALIFIERS FILE (#357.98)
INPUT TRANSFORM:S DIC("S")="I $$DQGOOD^IBDFU9($P($G(^IBE(357.93,DA(1),0)),""^"",6),Y)" D ^DIC K DIC S DIC=DIE,X=+Y
K:Y<0 X
LAST EDITED: DEC 07, 1994
HELP-PROMPT: Does one of the qualifers apply to this choice?
DESCRIPTION:
The data qualifier, if any, assoicated with the choice.
SCREEN: S DIC("S")="I $$DQGOOD^IBDFU9($P($G(^IBE(357.93,DA(1),0)),""^"",6),Y)"
EXPLANATION: Allows only certain data qualifiers, dependent on the type of data.
FILES POINTED TO FIELDS
AICS DATA QUALIFIERS (#357.98) CHOICE:DATA QUALIFIER (#.09)
ENCOUNTER FORM BLOCK (#357.1) BLOCK (#.08)
PACKAGE INTERFACE (#357.6) TYPE OF DATA (#.06)
INPUT TEMPLATE(S):
IBDF EDIT MULT CHOICE FIELD SEP 11, 1995@14:13 USER #0 ^IBDXI93
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):