STANDARD DATA DICTIONARY #358.93 -- IMP/EXP MULTIPLE CHOICE FIELD FILE 9/29/25 PAGE 1
STORED IN ^IBE(358.93, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file is used as a work space for the import/export utility of the encounter form utilities.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: CHOICE(A), STARTING COLUMN FOR LABEL(A1), NAME(B), BLOCK(C)
358.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 division the setup is for.
CROSS-REFERENCE: 358.93^B
1)= S ^IBE(358.93,"B",$E(X,1,30),DA)=""
2)= K ^IBE(358.93,"B",$E(X,1,30),DA)
358.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.
358.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 shuld the label begin in?
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
358.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?
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
358.93,.06 TYPE OF DATA 0;6 POINTER TO IMP/EXP PACKAGE INTERFACE FILE (#358.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,$D(^(9))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 27, 1995
HELP-PROMPT: What type of data will be entered to the field?
DESCRIPTION: Points to the package interface file. That is where information about the data and how to map it to
DHCP is stored.
SCREEN: S DIC("S")="I $P(^(0),U,6)=1,$P(^(0),U,9)=1,$D(^(9))"
EXPLANATION: Allows only available interfaces for passing data to DHCP.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
358.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}.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
358.93,.08 BLOCK 0;8 POINTER TO IMP/EXP ENCOUNTER FORM BLOCK FILE (#358.1) (Required)
LAST EDITED: JUL 20, 1994
HELP-PROMPT: What block should this input field appear in?
CROSS-REFERENCE: 358.93^C
1)= S ^IBE(358.93,"C",$E(X,1,30),DA)=""
2)= K ^IBE(358.93,"C",$E(X,1,30),DA)
Used to find all the input fields appearing in a block.
358.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 makee?
358.93,1 CHOICE 1;0 Multiple #358.931
LAST EDITED: JUL 21, 1994
DESCRIPTION:
The reports that should print.
358.931,.01 CHOICE 0;1 FREE TEXT (Multiply asked)
LABEL APPEARING WITH THE BUBBLE
INPUT TRANSFORM: K:$L(X)>68!($L(X)<1) X
LAST EDITED: APR 02, 1996
HELP-PROMPT: Answer must be 1-68 characters in length.
DESCRIPTION: A report that should print. Only reports contained in the Package Interface file can be printed
by the print manager.
CROSS-REFERENCE: 358.931^B
1)= S ^IBE(358.93,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^IBE(358.93,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 358.93^A^MUMPS
1)= I $P($G(^IBE(358.93,DA(1),1,DA,0)),U,2) S ^IBE(358.93,"A",$P(^IBE(358.93,DA(1),0),U),$P(^IBE(35
8.93,DA(1),1,DA,0),U,2),X,DA(1),DA)=""
2)= I $P($G(^IBE(358.93,DA(1),1,DA,0)),U,2) K ^IBE(358.93,"A",$P(^IBE(358.93,DA(1),0),U),$P(^IBE(35
8.93,DA(1),1,DA,0),U,2),X,DA(1),DA)
Used to find all the reports/forms that should be printed for the division under a particular
condition.
358.931,.02 STARTING COLUMN FOR LABEL 0;2 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: APR 02, 1996
HELP-PROMPT: What block column should the label begin in?
DESCRIPTION:
The condition under which the report should print.
EXECUTABLE HELP:D HELP6^IBDFU5A
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:358.93^A1^MUMPS
1)= S ^IBE(358.93,"A",$P($G(^IBE(358.93,DA(1),0)),U),X,$P($G(^IBE(358.93,DA(1),1,DA,0)),U),DA(1),DA
)=""
2)= K ^IBE(358.93,"A",$P($G(^IBE(358.93,DA(1),0)),U),X,$P($G(^IBE(358.93,DA(1),1,DA,0)),U),DA(1),DA
)
Used to find all the reports/forms that should be printed for the entire division under a
particular condition.
358.931,.03 STARTING ROW FOR LABEL 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 20, 1994
HELP-PROMPT: What block row should the label be in?
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
358.931,.04 LABEL APPEARANCE 0;4 FREE TEXT
HOW SHOULD THE LABEL APPEAR? CHOOSE FROM {U,B,R,I}
INPUT TRANSFORM:S X=$$UPPER^VALM1(X) K:$L(X)>4!("UBRI"'[$E(X,1))!("UBRI"'[$E(X,2))!("UBRI"'[$E(X,3))!("UBRI"'[$E(X,
4)) X
LAST EDITED: AUG 16, 1994
HELP-PROMPT: B=bold,U=underline,R=reverse,I=invisible You can enter any combination of {B,U,R,I}. The label will
not print if it is made invisible.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
358.931,.05 CHOICE LABEL 0;5 FREE TEXT (Required)
INPUT TRANSFORM:K:$L(X)>120!($L(X)<1) X
LAST EDITED: JAN 18, 1996
HELP-PROMPT: Answer must be 1-120 characters in length.
DESCRIPTION:
The label that is to appear with the choice.
358.931,.06 STARTING COLUMN FOR BUBBLE 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: JUL 20, 1994
HELP-PROMPT: What block column should the bubble begin in?
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
358.931,.07 STARTING ROW FOR BUBBLE 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: JUL 20, 1994
HELP-PROMPT: What block row should the bubble be in?
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
358.931,.08 VALUE TO PASS 0;8 FREE TEXT (Required)
INPUT TRANSFORM:S X=X
LAST EDITED: SEP 01, 1995
HELP-PROMPT: What data should be entered into the database when this bubble is checked?
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
358.931,.09 DATA QUALIFIER 0;9 POINTER TO IMP/EXP AICS DATA QUALIFIERS FILE (#358.98)
INPUT TRANSFORM:S DIC("S")="I $$DQGOOD^IBDFU9($P($G(^IBE(358.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 appy to this choice?
SCREEN: S DIC("S")="I $$DQGOOD^IBDFU9($P($G(^IBE(358.93,DA(1),0)),""^"",6),Y)"
EXPLANATION: Allows only certain data qualifiers, dependent on the type of data.
FILES POINTED TO FIELDS
IMP/EXP AICS DATA QUALIFIERS
(#358.98) CHOICE:DATA QUALIFIER (#.09)
IMP/EXP ENCOUNTER FORM BLOCK
(#358.1) BLOCK (#.08)
IMP/EXP PACKAGE INTERFACE
(#358.6) TYPE OF DATA (#.06)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):