Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | Found Entries | All

Print Page as PDF

Global: ^IBE(357.93

Package: Automated Information Collection System

Global: ^IBE(357.93

Information

FileMan FileNo	FileMan Filename	Package
357.93	MULTIPLE CHOICE FIELD	Automated Information Collection System

Description

This file allows multiple choice fields to be defined for forms.

Accessed By FileMan Db Calls, Total: 6

Pointer To FileMan Files, Total: 3

Fields, Total: 9

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** 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)`
.02	QUESTION OR EXPLANATION	0;2	FREE TEXT	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.`
.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`
.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`
.06	TYPE OF DATA	0;6	POINTER TO PACKAGE INTERFACE FILE (#357.6)	**********************REQUIRED FIELD********************** PACKAGE INTERFACE(#357.6) 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 objects.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.07	TEXT APPEARANCE	0;7	FREE TEXT	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`
.08	BLOCK	0;8	POINTER TO ENCOUNTER FORM BLOCK FILE (#357.1)	**********************REQUIRED FIELD********************** ENCOUNTER FORM BLOCK(#357.1) 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.`
.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.`
1	CHOICE	1;0	Multiple #357.931	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(357.98,$P(^(0),U,9),0)),U) D EN^DDIOL(IBDWLAB_" "_IBDWQLFR,"","?0")`

Found Entries, Total: 9

Info | Desc | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | Found Entries | All