STANDARD DATA DICTIONARY #.403 -- FORM FILE 3/24/25 PAGE 1
STORED IN ^DIST(.403, (159 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 22.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file stores ScreenMan forms, which are composed of blocks. The form's attributes that describe how information is presented
on the screen are contained in this file.
DD ACCESS: ^
WR ACCESS: ^
DEL ACCESS: ^
LAYGO ACCESS: ^
IDENTIFIED BY:
"WRITE": N D,D1,D2 S D2=^(0) S:$X>30 D1(1,"F")="!" S D=$P(D2,U,5) S:D D1(2)="("_$$DATE^DIUTL(D)_")",D1(2,"F")="?30" S D=$P(D2
,U,4) S:D D1(3)="User #"_D,D1(3,"F")="?50" S D=$P(D2,U,8) S:D D1(4)=" File #"_D,D1(4,"F")="?59" D EN^DDIOL(.D1)
"WRITED": I $G(DZ)?1"???".E N D S D=0 F S D=$O(^DIST(.403,Y,15,D)) Q:D'>0 I $D(^(D,0))#2 D EN^DDIOL(^(0),"","!?5")
CROSS
REFERENCED BY: BLOCK NAME(AB), HEADER BLOCK(AC), NAME(AY), NAME(B), TITLE(C), PRIMARY FILE(F), NAME(F1)
.403,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X=+$P(X,"E")) X
LAST EDITED: SEP 04, 1998
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION: Enter the name of the form, 3-30 characters in length. The form name must be unique and cannot be
numeric or start with a punctuation character. It should also be namespaced.
DELETE TEST: 1,0)= D EN^DDIOL($C(7)_"You must use the FileMan option to delete forms.") I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: .403^B
1)= S ^DIST(.403,"B",$E(X,1,30),DA)=""
2)= K ^DIST(.403,"B",$E(X,1,30),DA)
CROSS-REFERENCE: .403^F1^MUMPS
1)= X "S %=$P("_DIC_"DA,0),U,8) S:$L(%) "_DIC_"""F""_%,X,DA)=1"
2)= X "S %=$P("_DIC_"DA,0),U,8) K:$L(%) "_DIC_"""F""_%,X,DA)"
3)= Programmer only
This cross-reference is used to quickly find all ScreenMan templates associated with a file. It
has the form:
^DIST(.403,"F"_file#,"formname",DA)=1
A comparable cross-reference also exists on the PRIMARY FILE field.
CROSS-REFERENCE: .403^AY^MUMPS
1)= Q
2)= Q
3)= Programmer only
This is a no-op cross reference defined merely to document the data stored under ^DIST(.403,form
IEN,"AY").
This global stores the compiled data for a Form. Form compilation occurs automatically whenever a
Form is edited through the FileMan supplied options. The compiled data stored in this global is
static information that is used whenever a Form is run.
.403,1 READ ACCESS 0;2 FREE TEXT
INPUT TRANSFORM: I DUZ(0)'="@" N DDZ F DDZ=1:1:$L(X) K:DUZ(0)'[$E(X,DDZ) X
LAST EDITED: OCT 20, 1993
HELP-PROMPT: Enter VA FileMan access code(s) which control access to the form.
DESCRIPTION:
Non-programmers can enter only their own VA FileMan access code(s).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.403,2 WRITE ACCESS 0;3 FREE TEXT
INPUT TRANSFORM: I DUZ(0)'="@" N DDZ F DDZ=1:1:$L(X) K:DUZ(0)'[$E(X,DDZ) X
LAST EDITED: OCT 20, 1993
HELP-PROMPT: Enter VA FileMan access code(s) which control access to the form.
DESCRIPTION:
Non-programmers can enter only their own VA FileMan access code(s).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.403,3 CREATOR 0;4 NUMBER
INPUT TRANSFORM: K:X'?.N X
HELP-PROMPT: Enter the VA FileMan User Number of the form creator.
DESCRIPTION: This is the DUZ of the person who created the form. The ScreenMan options to create the form
automatically put a value into this field.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.403,4 DATE CREATED 0;5 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 18, 1994
HELP-PROMPT: Enter the date the form was created.
DESCRIPTION: This is the date the form was created. The ScreenMan options to create the form automatically put
a value into this field.
.403,5 DATE LAST USED 0;6 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 18, 1994
HELP-PROMPT: Enter the date and time the form was last used.
DESCRIPTION: This is the date the form was last used. ScreenMan automatically puts a value into this field when
the form is invoked.
.403,6 TITLE 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: SEP 08, 1994
HELP-PROMPT: Answer must be 1-50 characters in length.
DESCRIPTION: The TITLE property can be used by the form designer to help identify a form. It is cross
referenced and need not be unique. ScreenMan does not automatically display the TITLE to the user,
but the form designer can choose to define a caption-only field that displays the title to the
user.
CROSS-REFERENCE: .403^C
1)= S ^DIST(.403,"C",$E(X,1,30),DA)=""
2)= K ^DIST(.403,"C",$E(X,1,30),DA)
.403,7 PRIMARY FILE 0;8 FREE TEXT (Required)
INPUT TRANSFORM: K:X'=+$P(X,"E")!(X<2)!($L(X)>16)!'$D(^DIC(X)) X
LAST EDITED: APR 07, 1992
HELP-PROMPT: Answer must be 1-16 characters in length.
DESCRIPTION: Enter a file number, greater than or equal to 2, which represents the data dictionary number of the
primary file for this form.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: .403^F^MUMPS
1)= X "S %=$P("_DIC_"DA,0),U) S "_DIC_"""F""_X,%,DA)=1"
2)= X "S %=$P("_DIC_"DA,0),U) K "_DIC_"""F""_X,%,DA)"
3)= Programmer only
This cross-reference is used to quickly find all ScreenMan templates associated with a file.
.403,8 DISPLAY ONLY 0;9 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: OCT 28, 1993
DESCRIPTION: This is a flag that indicates none of the blocks on the form are edit blocks. This flag is set
during form compilation.
UNEDITABLE
.403,9 FORM ONLY 0;10 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: OCT 28, 1993
DESCRIPTION: This is a flag that indicates none of the fields on the form are data dictionary fields. This flag
is set during form compilation.
UNEDITABLE
.403,10 COMPILED 0;11 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JUL 01, 1994
DESCRIPTION:
This is a flag that indicates that the form is compiled. This flag is set during form compilation.
UNEDITABLE
.403,11 PRE ACTION 11;E1,245 MUMPS
INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM
HELP-PROMPT: Enter standard MUMPS code which will be executed at the beginning of the form.
DESCRIPTION: This is MUMPS code that is executed when the form is first invoked, before any of the pages are
loaded and displayed.
WRITE AUTHORITY: @
.403,12 POST ACTION 12;E1,245 MUMPS
INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM
HELP-PROMPT: Enter standard MUMPS code which will be executed at the end of the form.
DESCRIPTION:
This is MUMPS code that is executed before ScreenMan returns to the calling application.
WRITE AUTHORITY: @
.403,14 POST SAVE 14;E1,245 MUMPS
INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM
LAST EDITED: AUG 13, 1993
HELP-PROMPT: This is Standard MUMPS code.
DESCRIPTION: This is MUMPS code that is executed when the user saves changes. It is executed only if all data
is valid, and after all data has been filed.
WRITE AUTHORITY: @
.403,15 DESCRIPTION 15;0 WORD-PROCESSING #.40315
DESCRIPTION:
Enter text that describes this form.
.403,20 DATA VALIDATION 20;E1,245 MUMPS
INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM
HELP-PROMPT: Enter standard MUMPS code.
DESCRIPTION: This is MUMPS code that is executed when the user attempts to save changes to the form. If the
code sets DDSERROR, the user is unable to save changes. If the code sets DDSBR, the user is taken
to the specified field.
In addition to $$GET^DDSVAL, PUT^DDSVAL, and HLP^DDSUTL, you can use MSG^DDSUTL to print on a
separate screen messages to the user about the validity of the data.
WRITE AUTHORITY: @
.403,21 RECORD SELECTION PAGE 21;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<1)!(X?.E1"."2N.N) X
HELP-PROMPT: Type a Number between 1 and 999.9, 1 Decimal Digit
DESCRIPTION: Enter the page number of the page that is used for record selection.
If you define a Record Selection Page, the user can select another entry in the file, and, if LAYGO
is allowed, add another entry into the file without exiting the form. The Record Selection Page
should be a pop-up page that contains one form-only field that performs a pointer-type read into
the Primary File of the form. The Record Selection Page property should be set equal to the Page
Number of the Record Selection Page.
The user can open the Record Selection Page by pressing L. After the user selects a record
and closes the Record Selection Page, the data for the selected record is displayed.
.403,40 PAGE 40;0 Multiple #.4031
IDENTIFIED BY:
"WRITE": D:$D(^(1))#2 EN^DDIOL($P(^(1),U),"","?12")
.4031,.01 PAGE NUMBER 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<1)!(X?.E1"."2N.N)!$D(^DIST(.403,DA(1),40,"B",X)) X
HELP-PROMPT: Enter a number between 1 and 999.9, up to 1 Decimal Digit, that identifies the page.
DESCRIPTION: This is the unique page number of the page. You can use this number to refer to the page in
ScreenMan functions and utilities.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: .4031^B
1)= S ^DIST(.403,DA(1),40,"B",$E(X,1,30),DA)=""
2)= K ^DIST(.403,DA(1),40,"B",$E(X,1,30),DA)
.4031,1 HEADER BLOCK 0;2 POINTER TO BLOCK FILE (#.404)
LAST EDITED: JUL 02, 1993
HELP-PROMPT: Enter the block which will be used as a header for this page.
DESCRIPTION: The header block always appears at row 1, column 1 relative to the page on which it is defined.
It is for display purposes only -- the user is unable to navigate to any of the fields on the
header block.
Starting with Version 21 of FileMan, there is no need to use header blocks. Display-type blocks,
with a coordinate of '1,1' relative to the page, provide the same functionality as header blocks.
CROSS-REFERENCE: .403^AC
1)= S ^DIST(.403,"AC",$E(X,1,30),DA(1),DA)=""
2)= K ^DIST(.403,"AC",$E(X,1,30),DA(1),DA)
.4031,2 PAGE COORDINATE 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>7!($L(X)<1)!'(X?.N1",".N) X
LAST EDITED: SEP 08, 1994
HELP-PROMPT: Enter the coordinate of the upper left corner of the page. Answer must be two positive integers
separated by a comma (,), as follows: 'Upper left row,Upper left column'.
DESCRIPTION: The Page Coordinate property defines the location of the top left corner of the page on the
screen. The format of a coordinate is: Row,Column. Regular pages normally have a Page
Coordinate of "1,1". They do not have a Lower Right Coordinate.
The Page Coordinate of pop-up pages defines the position of the top left corner of the border of
the pop-up page. Pop-up pages must have a Lower Right Coordinate, which defines the position of
the bottom right corner of the border of the pop-up page.
All blocks on the page are positioned relative to the page on which they are defined. If a page
is moved -- that is, if the Page Coordinate is changed -- all blocks and all fields on that page
move with it.
.4031,3 NEXT PAGE 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<1)!(X?.E1"."2N.N) X
HELP-PROMPT: Answer must be a Number between 1 and 999.9, 1 Decimal Digit.
DESCRIPTION: Enter the page to go to when the user presses or selects the NEXT PAGE command from
the Command Line.
When the user attempts a Save, ScreenMan follows the Next Page links starting with the first page
displayed to the user. ScreenMan loads all those pages, including any defaults, and checks that
all required fields have values. If any of the required fields have null values, no Save occurs.
If all required field have values, Screenman Saves the data, including all defaults.
.4031,4 PREVIOUS PAGE 0;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999.9)!(X<1)!(X?.E1"."2N.N) X
HELP-PROMPT: Answer must be a Number between 1 and 999.9, 1 Decimal Digit.
DESCRIPTION:
Enter the page to go to when the user presses .
.4031,5 IS THIS A POP UP PAGE? 0;6 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JUN 27, 1994
DESCRIPTION: If the page is a pop-up page rather than a regular page, set this property to 'YES'.
ScreenMan displays pop-up pages with a border, on top of what is already on the screen. The top
left coordinate of the pop-up page defines the location of the top left corner of the border.
Pop-up pages must also have a lower right coordinate, which defines the location of the bottom
left corner of the border.
CROSS-REFERENCE: .4031^AC^MUMPS
1)= S:X $P(^DIST(.403,DA(1),40,DA,0),U,2)=""
2)= Q
3)= Programmer only
If this is a pop up page, there can be no header block.
.4031,6 LOWER RIGHT COORDINATE 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>7!($L(X)<1)!'(X?.N1",".N) X
LAST EDITED: SEP 08, 1994
HELP-PROMPT: Enter the coordinate of the bottom right corner of the pop up page. Answer must be two positive
integers separated by a comma (,), as follows: 'Lower right row,Lower right column'.
DESCRIPTION: The existence of a lower right coordinate implies that the page is a pop-up page. The lower
right coordinate and the page coordinate define the position of the border ScreenMan displays
when it paints a pop-up page.
.4031,7 PAGE NAME 1;1 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!(X=+$P(X,"E")) X
LAST EDITED: OCT 20, 1993
HELP-PROMPT: Enter the name of the page, 3-30 characters in length.
DESCRIPTION: Like the Page Number, you can use the Page Name to refer to a page in ScreenMan functions and
utilities. ScreenMan displays the Page Name to the user if, during an attempt to file data,
ScreenMan finds required fields with null values. ScreenMan uses the Caption of the field and
the Page Name to inform the user of the location of the required field.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: .4031^C^MUMPS
1)= S ^DIST(.403,DA(1),40,"C",$$UP^DILIBF(X),DA)=""
2)= K ^DIST(.403,DA(1),40,"C",$$UP^DILIBF(X),DA)
3)= Programmer only
This cross reference is a regular index of the page name converted to all upper case characters.
.4031,8 PARENT FIELD 1;2 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>92!($L(X)<5)!'(X?1.E1","1.E1","1.E) X I $D(X) D PFIELD^DDSI
T
LAST EDITED: DEC 01, 1993
HELP-PROMPT: Answer must be 5-92 characters in length.
DESCRIPTION: This property can be used instead of Subpage Link to link a subpage to a field.
Parent Field has the following format:
Field id,Block id,Page id
where,
Field id = Field Order number; or
Caption of the field; or
Unique Name of the field
Block id = Block Order number; or
Block Name
Page id = Page Number; or
Page Name
For example:
ZZFIELD 1,ZZBLOCK 1,ZZPAGE 1
identifies the field with Caption or Unique Name "ZZFIELD 1," on the block named "ZZBLOCK 1," on
the page named "ZZPAGE 1".
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.4031,11 PRE ACTION 11;E1,245 MUMPS
INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM
HELP-PROMPT: Enter Standard MUMPS code that will be executed before the user reaches a page.
DESCRIPTION:
This MUMPS code is executed when the user reaches a page.
WRITE AUTHORITY: @
.4031,12 POST ACTION 12;E1,245 MUMPS
INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM
HELP-PROMPT: Enter Standard MUMPS code that will be executed after the user leaves a page.
DESCRIPTION:
This MUMPS code is executed when the user leaves the page.
WRITE AUTHORITY: @
.4031,15 DESCRIPTION 15;0 WORD-PROCESSING #.403115
HELP-PROMPT: Enter text which describes the page.
DESCRIPTION:
Enter text that describes this page.
.4031,40 BLOCK 40;0 POINTER Multiple #.4032
IDENTIFIED BY:
"WRITE": D EN^DDIOL("(Block Order "_$P(^(0),U,2)_")","","?35")
.4032,.01 BLOCK NAME 0;1 POINTER TO BLOCK FILE (#.404) (Multiply asked)
INPUT TRANSFORM: S:$D(X) DINUM=X
LAST EDITED: MAY 21, 1993
DESCRIPTION:
Enter the name of the block to be placed on this page of the form.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: .4032^B
1)= S ^DIST(.403,DA(2),40,DA(1),40,"B",$E(X,1,30),DA)=""
2)= K ^DIST(.403,DA(2),40,DA(1),40,"B",$E(X,1,30),DA)
CROSS-REFERENCE: .403^AB
1)= S ^DIST(.403,"AB",$E(X,1,30),DA(2),DA(1),DA)=""
2)= K ^DIST(.403,"AB",$E(X,1,30),DA(2),DA(1),DA)
This cross reference provides an index that can be used to determine the forms on which a
block is used.
.4032,1 BLOCK ORDER 0;2 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>99.9)!(X<1)!(X?.E1"."2N.N)!$D(^DIST(.403,DA(2),40,DA(1),40,"AC",X)) X
HELP-PROMPT: Enter a number between 1 and 99.9, 1 Decimal Digit, which represents the order in which the
block will be processed within the page. This number must be unique for the page.
DESCRIPTION: The Block Order determines the order users traverse fields on a page when they press
to go to the next block, or press to move from the last field on one block
to the first field on the next. When the user first reaches a page, ScreenMan places the
user on the block with the lowest Block Order number.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: .4032^AC
1)= S ^DIST(.403,DA(2),40,DA(1),40,"AC",$E(X,1,30),DA)=""
2)= K ^DIST(.403,DA(2),40,DA(1),40,"AC",$E(X,1,30),DA)
This cross-reference is used to ensure that order numbers are unique for the page.
.4032,2 BLOCK COORDINATE 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>7!($L(X)<1)!'(X?.N1",".N) X
LAST EDITED: SEP 08, 1994
HELP-PROMPT: Enter the block coordinate relative to the page coordinate. Answer must be two positive
integers separated by a comma (,), as follows: 'Upper left row,Upper left column.'
DESCRIPTION: The block coordinate is relative to the page coordinate. The first row and column on the
block have a coordinate of 1,1.
.4032,3 TYPE OF BLOCK 0;4 SET
'e' FOR EDIT;
'd' FOR DISPLAY;
LAST EDITED: APR 13, 1994
DESCRIPTION: Enter 'EDIT' if users can navigate to as well as edit fields in this block. Enter 'DISPLAY'
if users cannot edit any of the fields in this block. User's can navigate to a DISPLAY block
only if it contains multiple or word processing fields, in which case, the cursor stops at
any of those two kinds of fields so that the user can press to view or edit the
subfields in the multiple or invoke an editor to view the contents of the word processing
field.
.4032,4 POINTER LINK 1;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>245!($L(X)<1) X I $D(X) D PLINK^DDSIT
LAST EDITED: DEC 01, 1993
HELP-PROMPT: Answer must be 1-245 characters in length.
DESCRIPTION: If the fields displayed in this block are reached through a relational jump from the primary
file of the form, enter the relational expression that describes this jump. Your frame of
reference is the primary file of the form.
For example, if the primary file has a field #999 called TEST that points to the file
associated with this block, enter
999 or TEST
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.4032,5 REPLICATION 2;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<2)!(X?.E1"."1N.N) X
LAST EDITED: MAY 03, 1994
HELP-PROMPT: Type a Number between 2 and 999, 0 Decimal Digits
DESCRIPTION: If this is a repeating block, enter the number of times the fields defined in this block
should be replicated. If used, this number must be greater than 1.
.4032,6 INDEX 2;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>63!($L(X)<1) X
HELP-PROMPT: Answer must be 1-63 characters in length.
DESCRIPTION: Enter the name of the cross reference that should be used to pick up the subentries in the
multiple. ScreenMan will initially display the subentries to the user sorted in the order
defined by this index. The default INDEX is B.
If the multiple has no index, or you wish to display the subentries in record number order,
enter !IEN.
.4032,7 INITIAL POSITION 2;3 SET
'f' FOR FIRST;
'l' FOR LAST;
'n' FOR NEW;
'u' FOR USER'S LAST;
LAST EDITED: MAY 03, 1994
HELP-PROMPT: Enter the initial position within the repeating block; f(FIRST), l(LAST), n(NEW), or u(USER'S
LAST).
DESCRIPTION: This is the position in the list where the cursor should initially rest when the user first
navigates to the repeating block. NEW indicates that the cursor should initially rest on the
blank line at the end of the list. USER'S LAST is the last choice that the User has made for
this file -- what would be retrieved by the SPACE-BAR. The default INITIAL POSITION is
FIRST.
.4032,8 DISALLOW LAYGO 2;4 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: MAY 05, 1994
DESCRIPTION: If set to YES, this prohibits the user from entering new subentries into the multiple. If
null or set to NO, the setting in the data dictionary determines whether LAYGO is allowed.
.4032,9 FIELD FOR SELECTION 2;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: MAY 06, 1994
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION: This is the field order of the field that defines the column position of the blank line at
the end of the list. The default is the first editable field in the block. This is also the
field before which ScreenMan prints the plus sign (+) to indicate there are more entries
above or below the displayed list.
.4032,10 ASK 'OK' 2;6 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: APR 20, 1999
DESCRIPTION: Answer 'YES' to ask the user whether the looked-up entry is 'OK'. If only one match is made
to the user's lookup value, then ScreenMan will ask "OK?" instead of automatically selecting
the found entry. This property corresponds to the "V" flag in the DIC(0) input variable to
^DIC and only pertains to multiple-valued fields.
.4032,11 PRE ACTION 11;E1,245 MUMPS
INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM
LAST EDITED: JUN 10, 1993
HELP-PROMPT: This is Standard MUMPS code.
DESCRIPTION: Enter MUMPS code that is executed whenever the user reaches this block.
This pre-action is a characteristic of the block only as it is used on this form. If you
place this block on another form, you can define a different pre-action.
WRITE AUTHORITY: @
.4032,12 POST ACTION 12;E1,245 MUMPS
INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM
LAST EDITED: JUN 10, 1993
HELP-PROMPT: This is Standard MUMPS code.
DESCRIPTION: Enter MUMPS code that is executed whenever the user leaves this block.
This post-action is a characteristic of the block only as it is used on this form. If you
place this block on another form, you can define a different post-action.
WRITE AUTHORITY: @
.4032,98 COMPUTED MULTIPLE COMP MUL;E1,999 MUMPS
INPUT TRANSFORM: D ^DIM
HELP-PROMPT: Enter valid MUMPS code
DESCRIPTION: This MUMPS code will display a list of the values of the .01 field of the File being edited.
The code must Xecute the DICMX variable with D0 set to the IEN of the entry to be displayed.
The code is automatically generated for a record selection page.
.4032,98.1 COMPUTED MUL PTR COMP MUL PTR;E1,999 NUMBER
INPUT TRANSFORM: K:+$P(X,"E")'=X X
HELP-PROMPT: Enter a number with up to 13 digits and 9 decimal places
DESCRIPTION: The field contains the File# of the file from which the Computed Multiple values are
retrieved (usually the file being edited by the Form).
.403,21400 BUILD(S) ; COMPUTED MULTIPLE POINTER TO BUILD FILE (#9.6)
MUMPS CODE: N DISNAME,D S DISNAME=$P($G(^DIST(.403,D0,0)),U)_" FILE #"_$P($G(^(0)),U,8) F D=0:0 S D=$O(^XPD(
9.6,D)) Q:'D I $D(^(D,"KRN",.403,"NM","B",DISNAME)) N D0 S D0=D,X=$P(^XPD(9.6,D,0),U) X DICMX Q:'$
D(D)
DESCRIPTION: The Build File (#9.6) is searched for Builds containing the ScreenMan Form. A list of the
identified Builds is created for display. Multiple Builds will be shown if appropriate.
FILES POINTED TO FIELDS
BLOCK (#.404) PAGE:HEADER BLOCK (#1)
BLOCK:BLOCK NAME (#.01)
BUILD (#9.6) BUILD(S) (#21400)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):
DDGF BLOCK EDIT APR 13, 1993 USER #0
DDGF BLOCK EDIT 1 DD #.4032
DDGF BLOCK EDIT 2 DD #.404
DDGF BLOCK EDIT OTHER DD #.4032
DDGF FORM EDIT APR 27, 1993 USER #0
DDGF FORM EDIT DD #.403
DDGF HEADER BLOCK EDIT MAY 04, 1993 USER #0
DDGF BLOCK EDIT 2 DD #.404
DDGF HEADER BLOCK EDIT DD #.4031
DDGF PAGE ADD APR 19, 1993 USER #0
DDGF PAGE ADD DD #.4031
DDGF PAGE ADD ARE YOU SURE DD #.4031
DDGF PAGE EDIT APR 19, 1993 USER #0
DDGF PAGE EDIT DD #.4031
DDGF PAGE SELECT APR 19, 1993 USER #0
DDGF PAGE SELECT DD #.4031