STANDARD DATA DICTIONARY #357.95 -- FORM DEFINITION FILE 9/29/25 PAGE 1
STORED IN ^IBD(357.95, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Contains information about the form needed to process the input.
COMPILED CROSS-REFERENCE ROUTINE: IBDX95
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: SOURCE (#.03)[R], DATE CREATED (#.2), FORM NAME (#.21)
POINTED TO BY: FORM TYPE field (#.04) of the ENCOUNTER FORM TRACKING File (#357.96)
CROSS
REFERENCED BY: BUBBLE ROW(AC), BUBBLE COLUMN(AC1), HAND PRINT ROW(AD), HAND PRINT COLUMN(AD1), DATE MARKED FOR DELETION(ADEL),
TYPE OF DATA(AE), DATA QUALIFIER(AE1), PRIMARY VALUE(AE2), CLINICS USING THIS FORM(AFC), FORM TYPE ID(B),
SOURCE(C), PANDAS FORMID(D)
357.95,.01 FORM TYPE ID 0;1 NUMBER (Required)
INPUT TRANSFORM: K X
LAST EDITED: DEC 18, 1995
HELP-PROMPT: Can not be entered through FileMan!
DESCRIPTION: This number should be unique for the encounter form type. It equals the ien. Editing the form
results in a new FORM TYPE ID being assigned.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 357.95^B
1)= S ^IBD(357.95,"B",$E(X,1,30),DA)=""
2)= K ^IBD(357.95,"B",$E(X,1,30),DA)
357.95,.02 DATE MARKED FOR DELETION 0;2 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 04, 1995
HELP-PROMPT: Enter the date the form was deleted or edited.
DESCRIPTION: The date is when the form was deleted or edited. When the last printed form is accounted for the
entry can be deleted.
CROSS-REFERENCE: 357.95^ADEL
1)= S ^IBD(357.95,"ADEL",$E(X,1,30),DA)=""
2)= K ^IBD(357.95,"ADEL",$E(X,1,30),DA)
Regular cross reference of file. Used to find entries marked for deletion by purge utility
357.95,.03 SOURCE 0;3 SET (Required)
'1' FOR AICS;
'2' FOR PANDAS;
'3' FOR TELEFORM;
'4' FOR PEN;
'99' FOR OTHER;
LAST EDITED: DEC 18, 1995
HELP-PROMPT: What software will produce the form?
DESCRIPTION:
The software that produced the form.
CROSS-REFERENCE: 357.95^C
1)= S ^IBD(357.95,"C",$E(X,1,30),DA)=""
2)= K ^IBD(357.95,"C",$E(X,1,30),DA)
Used to determine if the form type provided to Form Tracking was externally assigned.
357.95,.09 RIGHT MARGIN 0;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>133)!(X<80)!(X?.E1"."1N.N) X
LAST EDITED: SEP 19, 1995
HELP-PROMPT: Type a Number between 80 and 133, 0 Decimal Digits
DESCRIPTION:
The width of the form in characters.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
357.95,.1 PAGE LENGTH 0;10 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>300)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: AUG 23, 1994
HELP-PROMPT: Type a Number between 1 and 300, 0 Decimal Digits
DESCRIPTION:
The length of the page.
357.95,.11 NUMBER OF PAGES 0;11 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 22, 1995
HELP-PROMPT: How many pages should the encounter form have?
DESCRIPTION:
The encounter form may have multiple pages.
357.95,.12 SCANNABLE? 0;12 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: NOV 22, 1995
HELP-PROMPT: Answer YES if the form will be scanned to accomplish data entry, NO otherwise.
357.95,.13 FORM TYPE ID 0;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 22, 1995
HELP-PROMPT: Type a Number between 1 and 999999999, 0 Decimal Digits
357.95,.14 PAPER SIZE 0;14 SET
'1' FOR LETTER (8 1/2 x 11);
LAST EDITED: NOV 22, 1995
HELP-PROMPT: What size paper should be used?
357.95,.15 ORIENTATION 0;15 SET
'p' FOR PORTRAIT;
LAST EDITED: NOV 22, 1995
HELP-PROMPT: How should the form be oriented?
357.95,.16 TEXT SIZE 0;16 SET (Required)
'1' FOR 133 COLUMNS x 80 LINES;
'2' FOR 96 COLUMNS x 72 LINES;
'3' FOR 80 COLUMNS x 60 LINES;
LAST EDITED: NOV 22, 1995
HELP-PROMPT: This choice will determine the size of the print and how much text will fit on the form.
357.95,.17 VERSION 0;17 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: NOV 22, 1995
HELP-PROMPT: Type a Number between 0 and 99, 2 Decimal Digits
357.95,.2 DATE CREATED 0;20 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 18, 1995
DESCRIPTION:
This is the date that this entry was created. It is triggered when the entry is added.
WRITE AUTHORITY: ^
357.95,.21 FORM NAME 0;21 POINTER TO ENCOUNTER FORM FILE (#357)
LAST EDITED: DEC 18, 1995
DESCRIPTION: This is the name of the form when this entry was created. It is triggered when the entry is
created.
TECHNICAL DESCR:
This field is hard set when the entry is created. See routine IBDFM1.
WRITE AUTHORITY: ^
357.95,1 BUBBLES 1;0 Multiple #357.951
LAST EDITED: OCT 20, 1994
DESCRIPTION:
The list of bubbles appearing on the form.
TECHNICAL DESCR:
IDENTIFIED BY:
"WRITE": D EN^DDIOL(" COL = "_$P($G(^(0)),U,2)_" DISPLAY = "_$P($G(^(0)),U,8),"","?0")
357.951,.01 BUBBLE ROW 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 03, 1996
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
The row the bubble occurs on. Row 0 is at the top.
CROSS-REFERENCE: 357.951^B
1)= S ^IBD(357.95,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^IBD(357.95,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 357.95^AC^MUMPS
1)= S:$P($G(^IBD(357.95,DA(1),1,DA,0)),"^",2)]"" ^IBD(357.95,"AC",DA(1),X,$P(^IBD(357.95,DA(1),1,DA
,0),"^",2),DA)=""
2)= K:$P($G(^IBD(357.95,DA(1),1,DA,0)),"^",2)]"" ^IBD(357.95,"AC",DA(1),X,$P(^IBD(357.95,DA(1),1,DA
,0),"^",2),DA)
This cross-reference indexes the bubbles by location. Set by the .01 and .02 fields.
357.951,.02 BUBBLE COLUMN 0;2 NUMBER (Required)
INPUT TRANSFORM:K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 03, 1996
HELP-PROMPT: Type a Number between 0 and 200, 0 Decimal Digits
DESCRIPTION:
The column the bubble occurs on. Columns begin at 0 on the left.
CROSS-REFERENCE:357.95^AC1^MUMPS
1)= S:X]"" ^IBD(357.95,"AC",DA(1),$P($G(^IBD(357.95,DA(1),1,DA,0)),"^"),X,DA)=""
2)= K:X]"" ^IBD(357.95,"AC",DA(1),$P($G(^IBD(357.95,DA(1),1,DA,0)),"^"),X,DA)
This cross-reference indexes the bubbles by location. Set by the .01 and .02 fields.
357.951,.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,$P(^(0),U,16)[""P""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0
X
LAST EDITED: APR 03, 1996
HELP-PROMPT: What type of data does the bubble represent?
DESCRIPTION:
The type of data a bubble represents. Used to map the data to DHCP.
SCREEN: S DIC("S")="I $P(^(0),U,6)=1,$P(^(0),U,9)=1,$P(^(0),U,16)[""P"""
EXPLANATION: The screen is only for PANDAS. It allows only certain input interfaces.
CROSS-REFERENCE:357.95^AE^MUMPS
1)= I X,$P($G(^IBD(357.95,DA(1),1,DA,0)),"^",4)]"" S ^IBD(357.95,"AE",DA(1),X,+$P(^IBD(357.95,DA(1)
,1,DA,0),"^",10),$P(^(0),"^",4),DA)=""
2)= I X,$P($G(^IBD(357.95,DA(1),1,DA,0)),"^",4)]"" K ^IBD(357.95,"AE",DA(1),X,+$P(^IBD(357.95,DA(1)
,1,DA,0),"^",10),$P(^(0),"^",4),DA)
Subscripts are