STANDARD DATA DICTIONARY #357.1 -- ENCOUNTER FORM BLOCK FILE 6/27/25 PAGE 1
STORED IN ^IBE(357.1, (5343 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Warning: Do Not Re-Index this file. If this file should accidentally
be re-indexed, use the option to Recompile All Forms. This will
correct any printing problems that might occur.
This file contains the description of encounter form blocks. A block is a rectangular areas on an encounter form. Blocks are the
basic building unit of encounter forms. All data on a form is contained within a block and the block is sized and positioned to
create a usable form.
COMPILED CROSS-REFERENCE ROUTINE: IBDX1
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: FORM (#.02)[R]
POINTED TO BY: BLOCK field (#.02) of the SELECTION LIST File (#357.2)
BLOCK field (#.02) of the DATA FIELD File (#357.5)
BLOCK field (#.06) of the FORM LINE File (#357.7)
BLOCK field (#.02) of the TEXT AREA File (#357.8)
BLOCK field (#.08) of the MULTIPLE CHOICE FIELD File (#357.93)
BLOCK field (#.08) of the IMP/EXP HAND PRINT FIELD File (#358.94)
BLOCK field (#.08) of the HAND PRINT FIELD File (#359.94)
CROSS
REFERENCED BY: NAME(B), FORM(C), TOOLKIT ORDER(D)
357.1,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: S X=$$UP^XLFSTR(X) K:$L(X)>30!($L(X)<3) X
LAST EDITED: JUL 25, 1994
HELP-PROMPT: The block name must be 3-30 uppercase characters.
DESCRIPTION:
The name of the block.
DELETE TEST: 1,0)= I '$G(IBDEVICE("LISTMAN")) W "...Encounter Form Blocks can only be deleted through the Encoun
ter Form Utilities!"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 357.1^B
1)= S ^IBE(357.1,"B",$E(X,1,30),DA)=""
2)= K ^IBE(357.1,"B",$E(X,1,30),DA)
357.1,.02 FORM 0;2 POINTER TO ENCOUNTER FORM FILE (#357) (Required)
LAST EDITED: NOV 16, 1992
HELP-PROMPT: What form should this block appear on?
DESCRIPTION:
The form the block appears on.
CROSS-REFERENCE: 357.1^C
1)= S ^IBE(357.1,"C",$E(X,1,30),DA)=""
2)= K ^IBE(357.1,"C",$E(X,1,30),DA)
Used to find all the blocks belonging to a particular form.
357.1,.04 BLOCK'S STARTING ROW 0;4 NUMBER (Required)
WHAT ROW SHOULD THE BLOCK START IN?
INPUT TRANSFORM: S:+X=X X=X-1 K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: S Y=(+Y)+1
LAST EDITED: JUL 15, 1993
HELP-PROMPT: What line should this block begin on?
DESCRIPTION:
The row on the encounter form that the block starts on.
TECHNICAL DESCR: The internal representation starts at 0, the external representation starts at 1. The difference is
because for computing the form image it is convenient to work with displacements from the top
left-hand corner. However, users do not want to work with row=0 or column=0.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
357.1,.05 BLOCK'S STARTING COLUMN 0;5 NUMBER (Required)
WHAT COLUMN SHOULD THE BLOCK START IN?
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 15, 1993
HELP-PROMPT: What column should this block begin on?
DESCRIPTION:
The column on the encounter form that the block starts on.
TECHNICAL DESCR: The internal representation starts at 0, the external representation starts at 1. The difference is
because for computing the form image it is convenient to work with displacements from the top
left-hand corner. However, users do not want to work with row=0 or column=0.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
357.1,.06 WIDTH IN CHARACTERS 0;6 NUMBER (Required)
HOW MANY CHARACTERS WIDE SHOULD THE BLOCK BE?
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 15, 1993
HELP-PROMPT: How many characters wide should this block be?
DESCRIPTION:
The width of the block, measured in the number of characters across.
357.1,.07 HEIGHT IN LINES 0;7 NUMBER (Required)
HOW MANY LINES HIGH SHOULD THE BLOCK BE?
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 15, 1993
HELP-PROMPT: How many lines high should this block be?
DESCRIPTION:
The height of the block, measured by the number of lines it takes up.
357.1,.1 OUTLINE TYPE 0;10 SET (Required)
OUTLINE TYPE (SOLID/INVISIBLE)
'1' FOR SOLID LINE;
'2' FOR INVISIBLE;
LAST EDITED: APR 15, 1993
HELP-PROMPT: Enter '1' if the block should have a box around it, '2' if not.
DESCRIPTION:
How the block is outlined on the form.
357.1,.11 BLOCK HEADER 0;11 FREE TEXT
WHAT HEADER SHOULD APPEAR AT THE TOP OF THE BLOCK? (OPTIONAL)
INPUT TRANSFORM: K:$L(X)>60!($L(X)<1) X
LAST EDITED: FEB 16, 1994
HELP-PROMPT: What text should appear at the top of the block?
DESCRIPTION:
The text appearing at the top of the block.
357.1,.12 HEADER APPEARANCE 0;12 FREE TEXT
HOW SHOULD THE BLOCK HEADER APPEAR? CHOOSE FROM {U,B,R,C}
INPUT TRANSFORM: S X=$$UPPER^VALM1(X) K:$L(X)>4!("UBRC"'[$E(X,1))!("UBRC"'[$E(X,2))!("UBRC"'[$E(X,3))!("UBRC"'[$E(X,
4)) X
LAST EDITED: MAY 31, 1994
HELP-PROMPT: B=bold,U=underline,R=reverse,C=center. You can enter any combination of {B,U,R,C}.
DESCRIPTION:
This field determines the appearance of the block's header.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
357.1,.13 BRIEF DESCRIPTION 0;13 FREE TEXT (Required)
ENTER A BRIEF DESCRIPTION OF THE USE & CONTENTS OF THE BLOCK
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
LAST EDITED: APR 15, 1993
HELP-PROMPT: Answer must be 1-80 characters in length.
DESCRIPTION:
A brief description of the contents or use of the block.
357.1,.14 TOOLKIT ORDER 0;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.99)!(X<.01)!(X?.E1"."3N.N) X
LAST EDITED: OCT 23, 1995
HELP-PROMPT: Enter a number greater than 0 if this block is part of the toolkit. The number will determine its
listed order.
DESCRIPTION: A number>0 in this field means that the block is part of the toolkit. The value determines the
order that the block will be listed to the screen that displays the toolkit blocks.
CROSS-REFERENCE: 357.1^D^MUMPS
1)= S:$P($G(^IBE(357,+$P(^IBE(357.1,DA,0),U,2),0)),U)="TOOL KIT" ^IBE(357.1,"D",$E(X,1,30),DA)=""
2)= K ^IBE(357.1,"D",$E(X,1,30),DA)
This index is used to locate all the toolkit blocks that can be used as templates to create a new
block to be added to a form.
357.1,1 COMPILED STRINGS S;0 Multiple #357.11 (Add New Entry without Asking)
DESCRIPTION: Contains a compiled list of the calls, along with the arguments, that should be made to the routine
that prints strings to the form. Before printing, the block offset is added to the string position.
357.11,.01 STRING ROW 0;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: NOV 17, 1993
HELP-PROMPT: Type a Number between 0 and 200, 0 Decimal Digits
DESCRIPTION:
The row that the string should be printed at.
CROSS-REFERENCE: 357.11^B
1)= S ^IBE(357.1,DA(1),"S","B",$E(X,1,30),DA)=""
2)= K ^IBE(357.1,DA(1),"S","B",$E(X,1,30),DA)
357.11,.02 COLUMN 0;2 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: NOV 15, 1993
HELP-PROMPT: Type a Number between 0 and 200, 0 Decimal Digits
DESCRIPTION:
The column that the string should be printed at.
357.11,.03 OPTIONS 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<1) X
LAST EDITED: NOV 15, 1993
HELP-PROMPT: Answer must be 1-4 characters in length.
DESCRIPTION:
The display characteristics that the string should have.
357.11,.04 WIDTH 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: NOV 15, 1993
HELP-PROMPT: Type a Number between 0 and 200, 0 Decimal Digits
DESCRIPTION:
The width that the printed string should occupy. (optional)
357.11,.05 STRING 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>200!($L(X)<1) X
LAST EDITED: NOV 15, 1993
HELP-PROMPT: Answer must be 1-200 characters in length.
DESCRIPTION:
The string that should be printed.
357.1,2 COMPILED VERTICAL LINES V;0 Multiple #357.12 (Add New Entry without Asking)
DESCRIPTION: A compiled list of the vertical lines that are needed to print the block. The arguments to the
routine that prints the line are included. The block's offset is must be added to the line's
position.
357.12,.01 VERTICAL LINE ROW 0;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: NOV 17, 1993
HELP-PROMPT: Type a Number between 0 and 200, 0 Decimal Digits
DESCRIPTION:
The row that the line should begin at.
CROSS-REFERENCE: 357.12^B
1)= S ^IBE(357.1,DA(1),"V","B",$E(X,1,30),DA)=""
2)= K ^IBE(357.1,DA(1),"V","B",$E(X,1,30),DA)
357.12,.02 COLUMN 0;2 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: NOV 17, 1993
HELP-PROMPT: Type a Number between 0 and 200, 0 Decimal Digits
DESCRIPTION:
The column that the line should begin at.
357.12,.03 LENGTH 0;3 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: NOV 17, 1993
HELP-PROMPT: Type a Number between 0 and 200, 0 Decimal Digits
DESCRIPTION:
The length of the line.
357.12,.04 CHARACTER 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: NOV 17, 1993
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION:
The string (probably a single character) to use to create the string. (optional)
357.1,3 COMPILED BUBBLES B;0 Multiple #357.13
DESCRIPTION: A compiled list of the bubbles appearing in the block. The arguments to the routine that prints the
bubble are included. The block's offset must be added to the bubbles position.
357.13,.01 ROW 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUN 13, 1994
HELP-PROMPT: Type a Number between 0 and 200, 0 Decimal Digits
CROSS-REFERENCE: 357.13^B
1)= S ^IBE(357.1,DA(1),"B",$E(X,1,30),DA)=""
2)= K ^IBE(357.1,DA(1),"B",$E(X,1,30),DA)
357.13,.02 COLUMN 0;2 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUN 13, 1994
HELP-PROMPT: Type a Number between 0 and 200, 0 Decimal Digits
357.13,.03 TYPE OF DATA 0;3 POINTER TO PACKAGE INTERFACE FILE (#357.6)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,6)=1,$P(^(0),U,9)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 12, 1995
HELP-PROMPT: What type of data does the bubble represent?
DESCRIPTION:
The value associated with the bubble is passed to the package interface to pass the data to DHCP.
SCREEN: S DIC("S")="I $P(^(0),U,6)=1,$P(^(0),U,9)=1"
EXPLANATION: Must be an available package for accepting input.
357.13,.04 VALUE 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: JUN 13, 1994
HELP-PROMPT: Answer must be 1-30 characters in length.
357.13,.05 FIELD NAME 0;5 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: AUG 23, 1994
HELP-PROMPT: Answer must be 3-30 characters in length.
357.13,.06 FIELD ID 0;6 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>10!($L(X)<2) X
LAST EDITED: AUG 23, 1994
HELP-PROMPT: Answer must be 2-10 characters in length.
357.13,.07 SELECTION RULE 0;7 SET (Required)
'0' FOR ANY NUMBER;
'1' FOR EXACTLY ONE;
'2' FOR AT MOST ONE;
'3' FOR AT LEAST ONE;
LAST EDITED: AUG 23, 1994
HELP-PROMPT: How should the user be allowed to select from the available choices?
357.13,.08 DISPLAYED TEXT 0;8 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>97!($L(X)<1) X
LAST EDITED: OCT 15, 1996
HELP-PROMPT: Answer must be 1-97 characters in length.
357.13,.09 DISPLAYED HEADER 0;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: OCT 19, 1994
HELP-PROMPT: Answer must be 1-40 characters in length.
357.13,.1 DATA QUALIFIER 0;10 POINTER TO AICS DATA QUALIFIERS FILE (#357.98)
LAST EDITED: OCT 19, 1994
HELP-PROMPT: What data qualifier, if any, applies to the data indicated by this bubble?
357.13,.11 DYNAMIC? 0;11 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JAN 26, 1995
HELP-PROMPT: Enter YES if the data associated with the a bubble is stored in Form Tracking.
357.13,.12 ITEM COUNT 0;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 13, 1995
HELP-PROMPT: In what sequence does this item occur on the list?
357.13,.13 QUANTITY 0;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: OCT 15, 1996
HELP-PROMPT: Type a Number between 1 and 99, 0 Decimal Digits
DESCRIPTION: This field will be populated if more than one occurrence of the entry is required. The quantity
field will contain the number of occurrences to pass to PCE for the value referenced.
357.13,1 SUBHEADER 1;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>250!($L(X)<1) X
LAST EDITED: OCT 02, 1995
HELP-PROMPT: Answer must be 1-250 characters in length.
DESCRIPTION:
The subheader will be concatenated with the narrative before passing it to PCE.
357.1,4 COMPILED HAND PRINT FIELDS H;0 Multiple #357.14
DESCRIPTION: A compiled list of the hand print fields appearing in the block. The arguments to the routine that
prints the hand print fields are included. The block's offset must be added to the hand print
field's position.
357.14,.01 ROW FOR HAND PRINT 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUL 25, 1994
HELP-PROMPT: Type a Number between 0 and 200, 0 Decimal Digits
CROSS-REFERENCE: 357.14^B
1)= S ^IBE(357.1,DA(1),"H","B",$E(X,1,30),DA)=""
2)= K ^IBE(357.1,DA(1),"H","B",$E(X,1,30),DA)
357.14,.02 COLUMN FOR HAND PRINT 0;2 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUL 25, 1994
HELP-PROMPT: Type a Number between 0 and 200, 0 Decimal Digits
357.14,.03 WIDTH 0;3 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JUL 25, 1994
HELP-PROMPT: Type a Number between 1 and 200, 0 Decimal Digits
357.14,.04 TYPE OF DATA 0;4 POINTER TO PACKAGE INTERFACE FILE (#357.6) (Required)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,6)=1,$P(^(0),U,9)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 12, 1995
HELP-PROMPT: What data will be printed to this field?
SCREEN: S DIC("S")="I $P(^(0),U,6)=1,$P(^(0),U,9)=1"
EXPLANATION: Allows only available interfaces for accepting input.
357.14,.06 NUMBER OF HAND PRINT LINES 0;6 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: AUG 16, 1994
HELP-PROMPT: How many lines of hand print?
357.14,.07 FIELD ID 0;7 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>10!($L(X)<2) X
LAST EDITED: SEP 12, 1994
HELP-PROMPT: Answer must be 2-10 characters in length.
DESCRIPTION:
Identifies the form block object that contains the print field.
357.14,.08 FIELD NAME 0;8 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: APR 27, 1995
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
The name of the form block object that contains the print field.
357.14,.09 DISPLAYED HEADER 0;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: OCT 19, 1994
HELP-PROMPT: Answer must be 1-40 characters in length.
357.14,.1 DATA QUALIFIER 0;10 POINTER TO AICS DATA QUALIFIERS FILE (#357.98)
LAST EDITED: OCT 19, 1994
HELP-PROMPT: What data qualifier, if any, applies to data entered in this field?
357.14,.12 ITEM NUMBER 0;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 27, 1995
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits
357.14,.14 PRINT? 0;14 SET
'0' FOR NO, DO NOT PRINT;
'1' FOR YES, NOT FOR ICR;
'2' FOR YES, FOR ICR;
LAST EDITED: APR 27, 1995
357.14,.15 READ? 0;15 SET
'0' FOR NO, DO NOT READ;
'1' FOR YES, READ WITHOUT ICR;
'2' FOR YES, READ WITH ICR;
'3' FOR YES, ICR PRINT FORMAT, READ WITHOUT ICR;
LAST EDITED: MAY 03, 1995
357.14,.17 DATA ELEMENT 0;17 POINTER TO AICS DATA ELEMENTS FILE (#359.1)
LAST EDITED: APR 27, 1995
FILES POINTED TO FIELDS
AICS DATA ELEMENTS (#359.1) COMPILED HAND PRINT FIELDS:DATA ELEMENT (#.17)
AICS DATA QUALIFIERS (#357.98) COMPILED BUBBLES:DATA QUALIFIER (#.1)
COMPILED HAND PRINT FIELDS:DATA QUALIFIER (#.1)
ENCOUNTER FORM (#357) FORM (#.02)
PACKAGE INTERFACE (#357.6) COMPILED BUBBLES:TYPE OF DATA (#.03)
COMPILED HAND PRINT FIELDS:TYPE OF DATA (#.04)
INPUT TEMPLATE(S):
IBDF EDIT HEADER BLOCK SEP 14, 1995@11:33 USER #0
Used to edit the header block of a form.
IBDF EDIT HEADER&OUTLINE APR 15, 1993@08:01 USER #0
Used to edit a block's header and outline.
IBDF NEW EMPTY BLOCK APR 17, 1995@10:28 USER #0
Used to edit the header, position, outline, and other characteristics of a
new block.
IBDF POSITION COPIED BLOCK FEB 24, 1995@08:37 USER #0
Used to position a copied block onto a form.
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):