308 lines
9.8 KiB
Plaintext
308 lines
9.8 KiB
Plaintext
|
English French Notes Complete/Exclude
|
||
|
'YES' will invoke the ScreenMan editor.
|
||
|
The same questions are asked in both screen & scrolling mode.
|
||
|
EARLIEST DATE (OPTIONAL)^D^^1
|
||
|
LATEST DATE^RD^^3
|
||
|
CAN DATE BE IMPRECISE (Y/N)^S^Y:YES;N:NO;^4^Q
|
||
|
E.G., WOULD 'FEB, 1980' BE ALLOWED?
|
||
|
CAN TIME OF DAY BE ENTERED (Y/N)^S^Y:YES;N:NO;^5^S:X=
|
||
|
CAN SECONDS BE ENTERED (Y/N)^S^Y:YES;N:NO;^6^S DG(6)=X
|
||
|
CAN USER ENTER TIME ALONG WITH DATE, AS IN 'JULY 20@4:30'?
|
||
|
IS TIME REQUIRED (Y/N)^S^Y:YES;N:NO;^7^Q
|
||
|
MUST USER ENTER TIME ALONG WITH DATE
|
||
|
TYPE A DATE BETWEEN
|
||
|
INCLUSIVE LOWER BOUND^R^^1^K:+X'=X
|
||
|
INCLUSIVE UPPER BOUND^R^^2^K:X<DG(1)!(+X'=X)
|
||
|
IS THIS A DOLLAR AMOUNT (Y/N)^S^Y:YES;N:NO;^3^Q
|
||
|
MAXIMUM NUMBER OF FRACTIONAL DIGITS^RN^^5^K:X'?1N X
|
||
|
Type a
|
||
|
Number^Dollar Amount
|
||
|
Decimal Digit
|
||
|
WILL
|
||
|
FIELD BE MULTIPLE
|
||
|
FOR A GIVEN ENTRY, WILL THERE BE MORE THAN 1
|
||
|
ON FILE AT ONCE?
|
||
|
SUBSCRIPT:
|
||
|
Control Characters are not allowed.
|
||
|
CAN'T BE <
|
||
|
TYPE A NUMBER FROM 1 TO 99
|
||
|
OR AN $EXTRACT RANGE (E.G.,
|
||
|
CURRENTLY ASSIGNED:
|
||
|
PIECE
|
||
|
FIELD #
|
||
|
ALREADY USED FOR
|
||
|
CAN'T STORE A
|
||
|
FIELD IN AN ALREADY-USED SUBSCRIPT!
|
||
|
This is Standard MUMPS code.
|
||
|
TOO MUCH TO STORE AT THAT SUBSCRIPT!
|
||
|
SHALL THIS TEXT NORMALLY APPEAR IN WORD-WRAP MODE
|
||
|
ANSWER 'YES' IF THE INTERNALLY-STORED '
|
||
|
SHOULD NORMALLY BE PRINTED OUT IN FULL LINES, BREAKING AT WORD BOUNDARIES.
|
||
|
ANSWER 'NO' IF THE INTERNAL TEXT SHOULD NORMALLY BE PRINTED OUT
|
||
|
LINE-FOR-LINE AS IT STANDS.
|
||
|
(FIELD DEFINITION IS NOT EDITABLE)
|
||
|
<DATA DEFINITION UNCHANGED>
|
||
|
DATA TYPE OF
|
||
|
, JUST HIT THE SPACE KEY
|
||
|
ADDING A NEW ;?
|
||
|
Field Definition is TOO LONG by
|
||
|
NUMBER MUST BE BETWEEN
|
||
|
AND NOT ALREADY IN USE
|
||
|
SUB-DICTIONARY NUMBER:
|
||
|
Required Index for Variable Pointer
|
||
|
TRANSLATES TO THE FOLLOWING CODE:
|
||
|
FIELD IS 'MULTIPLE-VALUED'!
|
||
|
TYPE OF RESULT:
|
||
|
NUMBER OF FRACTIONAL DIGITS TO OUTPUT:
|
||
|
Enter the number of decimal digits that should normally appear in the result.
|
||
|
SHOULD VALUE ALWAYS BE INTERNALLY ROUNDED TO
|
||
|
DECIMAL PLACE
|
||
|
WHEN TOTALLING THIS FIELD, SHOULD THE SUM BE COMPUTED FROM
|
||
|
THE SUMS OF THE COMPONENT FIELDS
|
||
|
LENGTH OF FIELD:
|
||
|
Maximum number of character expected to be output.
|
||
|
POINT TO WHAT FILE
|
||
|
OK TO DELETE '
|
||
|
' FIELDS IN THE EXISTING ENTRIES
|
||
|
KiRW
|
||
|
Enter a MUMPS statement that sets DIC(
|
||
|
) to code that sets $T.
|
||
|
Those entries for which $T=1 will be selectable.
|
||
|
The naked reference will be at the zeroeth node of the pointed to
|
||
|
file, e.g., ^DIZ(9999,Entry Number,0). The internal entry number
|
||
|
of the entry that is being processed in the pointed to file will be
|
||
|
in the variable Y.
|
||
|
The variable Y will be equal to the internally-stored code of the item
|
||
|
in the set which is being processed.
|
||
|
POINT TO WHICH FILE:
|
||
|
WILL NOT
|
||
|
SHOULD
|
||
|
SHOULD '
|
||
|
' ENTRIES BE SCREENED
|
||
|
Answer YES if there is a condition which should prohibit
|
||
|
selection of some entries.
|
||
|
ENTER A TRUTH-VALUED EXPRESSION WHICH MUST BE TRUE OF ANY ENTRY POINTED TO:
|
||
|
TOO COMPLICATED!
|
||
|
WARNING-- THIS DOESN'T LOOK LIKE A TRUTH-VALUED EXPRESSION
|
||
|
MUMPS CODE THAT WILL SET 'DIC(
|
||
|
WARNING - Screen Does Not Contain DIC(
|
||
|
EXPLANATION OF SCREEN:
|
||
|
An explanation must be entered.
|
||
|
FILE ENTRY' (
|
||
|
BE ALLOWED WHEN ANSWERING THE
|
||
|
INTERNALLY-STORED CODE:
|
||
|
WILL STAND FOR:
|
||
|
For Example: Internal Code 'M' could stand for 'MALE'
|
||
|
SORRY, ';' ':' '^' '
|
||
|
' AND '=' AREN'T ALLOWED IN SETS!
|
||
|
Cannot use CONTROL CHARACTERS!
|
||
|
TOO MUCH!! -- SHOULD BE 'POINTER', NOT 'SET'
|
||
|
MINIMUM LENGTH^NR^^1^K:X\1'=X!(X<1) X
|
||
|
MAXIMUM LENGTH^RN^^2^K:X\1'=X!(X>250)!(DG(1)>X) X
|
||
|
(OPTIONAL) PATTERN MATCH (IN 'X')^^^3^S X=
|
||
|
EXAMPLE:
|
||
|
Answer must be
|
||
|
in length.
|
||
|
DD AUDIT^.6I
|
||
|
CROSS REFERENCE^1
|
||
|
SOMEONE ELSE IS EDITING THIS FILE
|
||
|
NOTE THAT THIS FIELD'S DEFINITION IS NOT EDITABLE
|
||
|
Multiple
|
||
|
Editing '
|
||
|
'EARLIEST DATE' & 'LATEST DATE' ARE IN WRONG ORDER
|
||
|
CURRENT DATE
|
||
|
TYPE A DATE NOT EARLIER THAN
|
||
|
(No range limit on date)
|
||
|
'MINIMUM' & 'MAXIMUM' ARE IN WRONG ORDER
|
||
|
number^Dollar amount
|
||
|
SORRY -- '
|
||
|
' NOT ALLOWED IN SET VALUES!
|
||
|
THERE MUST BE A CODE FOR '
|
||
|
CAN'T HAVE TWO IDENTICAL CODES!
|
||
|
' MUST MEAN SOMETHING!
|
||
|
TOO MUCH!! TO STORE THAT MUCH, BUILD A NEW FILE AND USE A POINTER!
|
||
|
DICATT SCREEN
|
||
|
in length
|
||
|
DUPLICATE FILE NUMBER
|
||
|
MESSAGE REQUIRED
|
||
|
ORDER NUMBER REQUIRED
|
||
|
DUPLICATE ORDER NUMBER
|
||
|
PREFIX REQUIRED
|
||
|
BAD PREFIX
|
||
|
DUPLICATE PREFIX
|
||
|
SCREEN MUST HAVE EXPLANATION
|
||
|
ERROR IN VARIABLE-POINTER SPECIFICATIONS, FILE
|
||
|
Enter Standard MUMPS code
|
||
|
Required for Variable Pointer
|
||
|
DICATT MUL
|
||
|
NAME AND TITLE MUST BE DIFFERENT
|
||
|
YOUR REDEFINITION OF THE FIELD WOULD CAUSE TOO MUCH DATA STORAGE!
|
||
|
DATA-STORAGE INFO INCOMPLETE
|
||
|
FIELD DEFINITION IS TOO LONG!
|
||
|
FIELD DELETED!
|
||
|
Enter name of MUMPS Global subscript where this Field's data will be stored.
|
||
|
Already assigned:
|
||
|
Another Field is already stored at '
|
||
|
A multiple field is already stored at '
|
||
|
Too much to store at the '
|
||
|
Can't be less than
|
||
|
Already used for '
|
||
|
Can't store by $EXTRACT in the same subscript with $PIECES
|
||
|
Type a number from 1 to 99
|
||
|
or an $EXTRACT range such as
|
||
|
Currently assigned:
|
||
|
This cross-reference cannot be deleted.
|
||
|
Are you sure that you want to delete the CROSS-REFERENCE
|
||
|
Answer YES if you want to delete the Cross-Reference.
|
||
|
DO YOU WANT THE INDIVIDUAL CROSS-REFERENCE VALUES DELETED
|
||
|
CURRENT CROSS-REFERENCE
|
||
|
NO
|
||
|
WANT TO
|
||
|
ONE OF THEM
|
||
|
WHICH NUMBER:
|
||
|
CURRENT CROSS-REFERENCES:
|
||
|
' INDEX OF
|
||
|
NO EFFECT
|
||
|
DO YOU WANT TO EXECUTE THE OLD KILL LOGIC NOW
|
||
|
Enter 'YES' to execute the original kill logic now.
|
||
|
Otherwise, enter 'NO'.
|
||
|
Executing old kill logic...
|
||
|
Choose E (Edit)/D (Delete)/C (Create):
|
||
|
Enter 'E' to edit an existing X-reference
|
||
|
'D' to delete it
|
||
|
'C' to create a new X-reference.
|
||
|
CROSS-REFERENCE
|
||
|
WANT TO CREATE A NEW
|
||
|
FOR THIS FIELD
|
||
|
CROSS-REFERENCE NUMBER:
|
||
|
WHOLE FILE BY THIS FIELD
|
||
|
BY THIS FIELD
|
||
|
WANT
|
||
|
TO BE USED FOR LOOKUP AS WELL AS FOR SORTING
|
||
|
PARSE ON THE FOLLOWING CHARACTERS:
|
||
|
Please enter the punctuation marks (except quotes) which will be used to
|
||
|
separate the words in this field.
|
||
|
INDEX:
|
||
|
DO YOU WANT TO CROSS-REFERENCE EXISTING DATA NOW
|
||
|
Enter 'YES' to execute the new set logic now.
|
||
|
You may use the number shown if you are the custodian of the file this
|
||
|
cross-reference is in. If you are not the custodian of the file, you
|
||
|
should select a number that corresponds with a numberspace for which you
|
||
|
have custody. Questions regarding numberspace custody may be referred
|
||
|
WANT TO PROTECT THE '
|
||
|
' FIELD, SO THAT
|
||
|
IT CAN'T BE CHANGED BY THE 'ENTER & EDIT' ROUTINE
|
||
|
HEY, WHILE WE WERE TALKING, SOMEONE ELSE CREATED CROSS-REFERENCE #
|
||
|
...CROSS-REFERENCE IS SET
|
||
|
DO YOU WANT TO RUN THE CROSS-REFERENCE FOR EXISTING ENTRIES NOW
|
||
|
WHEN THE
|
||
|
IS CHANGED,
|
||
|
WHAT FIELD SHOULD BE 'TRIGGERED':
|
||
|
SW?
|
||
|
INTERNAL(
|
||
|
YOU MUST IDENTIFY SOME FIELD, EITHER WITHIN THE
|
||
|
' FILE OR IN SOME OTHER
|
||
|
SORRY, I AM CONFUSED
|
||
|
CAN'T UPDATE A 'NUMBER' FIELD!
|
||
|
CAN'T HAVE A FIELD TRIGGERING ITSELF!!!
|
||
|
YOU DON'T HAVE 'DATA DEFINITION' ACCESS TO
|
||
|
CAN'T TRIGGER A RESTRICTED
|
||
|
DIV(
|
||
|
CAN'T TRIGGER A COMPUTED FIELD!
|
||
|
TRIGGERED
|
||
|
IN ANSWERING THE FOLLOWING QUESTION, '
|
||
|
CAN BE USED TO REFER TO THE EXISTING TRIGGERED FIELD VALUE.
|
||
|
PLEASE ENTER AN EXPRESSION WHICH WILL BECOME THE VALUE OF THE
|
||
|
BUT THE TRIGGERING FIELD DEPENDS ON THE TRIGGERED FIELD!
|
||
|
WARNING -- THIS SHOULD PRODUCE A DATE VALUE, AND IT MAY NOT!
|
||
|
WARNING -- THIS MUST BE '
|
||
|
WARNING--THIS TRUTH-VALUED EXPRESSION WILL PRODUCE ONLY VALUES OF '0' OR '1'
|
||
|
WARNING -- THIS MAY PRODUCE A 'DATE', AND IT SHOULDN'T!
|
||
|
OLD
|
||
|
NOTE: '
|
||
|
' CAN BE USED TO REFER TO THE VALUE OF THE
|
||
|
FIELD BEFORE ITS CHANGE OR DELETION.
|
||
|
DIK=
|
||
|
DA=
|
||
|
DIK(
|
||
|
WHENEVER THE '
|
||
|
' FIELD IS
|
||
|
ENTERED OR CHANGED^CHANGED OR DELETED
|
||
|
ARE YOU SURE YOU WANT TO 'ADD A NEW ENTRY' WHEN THIS
|
||
|
LOGIC OCCURS
|
||
|
..OK, LET ME THINK A SECOND...
|
||
|
TING OF '
|
||
|
SORRY, CAN'T DO THIS WHEN 'LAYGO' ALLOWED
|
||
|
DO YOU WANT TO MAKE THE
|
||
|
ENTER AN EXPRESSION FOR THE CONDITION:
|
||
|
CREATE CONDITION
|
||
|
ENTER A TRUTH-VALUED 'COMPUTED-FIELD' EXPRESSION
|
||
|
(PERHAPS INVOLVING '
|
||
|
WARNING--THIS DOESN'T LOOK LIKE A CONDITION EXPRESSION!
|
||
|
TE CONDITION
|
||
|
SENDING OF '
|
||
|
ENTER THE NAME OF A 'BULLETIN' MESSAGE, IF YOU WANT THAT MESSAGE SENT
|
||
|
PARAMETER #
|
||
|
NOW, IF THE BULLETIN IS TO HAVE
|
||
|
OR MORE PARAMETERS INSERTED,
|
||
|
ENTER A FIELD NAME (FOR EXAMPLE, '
|
||
|
OR A 'COMPUTED-FIELD' EXPRESSION,
|
||
|
THE VALUE OF WHICH WILL BE PASSED INTO THE '
|
||
|
AS
|
||
|
(NOTE THAT NO SUCH PARAMETER IS DEFINED FOR THE '
|
||
|
TE
|
||
|
DIIND))[0 X ^(DIIND)
|
||
|
Lookup values
|
||
|
ABCKMOPQSUXfglpqtv4
|
||
|
Indexes
|
||
|
JUST LOOKING
|
||
|
MORE?
|
||
|
DINDEX(
|
||
|
DISCREEN(
|
||
|
Mp
|
||
|
Ne
|
||
|
FROM values
|
||
|
target array
|
||
|
BIKMPQSUfhu
|
||
|
Index
|
||
|
NO B
|
||
|
FID(
|
||
|
DIXV(
|
||
|
Whole File Screen
|
||
|
Screen Parameter
|
||
|
TRY NEXT
|
||
|
DIEN):1
|
||
|
NEW PERSON
|
||
|
By '
|
||
|
', do you mean
|
||
|
Cross-reference
|
||
|
', do you mean the
|
||
|
pointing via its '
|
||
|
INTERNAL(#
|
||
|
WILL TERMINAL USER BE ALLOWED TO SELECT PROPER ENTRY IN '
|
||
|
DO YOU WANT TO PERMIT ADDING A NEW '
|
||
|
WELL THEN, DO YOU WANT TO **FORCE** ADDING A NEW ENTRY EVERY TIME
|
||
|
DO YOU WANT AN 'ADDING A NEW
|
||
|
SORRY, CAN'T EDIT A RESTRICTED
|
||
|
', do you mean the '
|
||
|
code that we got back from RCR becomes what we eXecute for every multiple!
|
||
|
MPh
|
||
|
MPQh
|
||
|
DICRVAL(
|
||
|
DIH=+$P(
|
||
|
DA,
|
||
|
OUTPUT FROM
|
||
|
AUDIT FROM
|
||
|
NO AUDIT ENTRIES
|
||
|
No DD AUDIT entries!
|
||
|
DD AUDIT
|
||
|
INPUT TO
|
||
|
WHAT FILE:
|
||
|
DUZ,
|
||
|
There are no selectable files.
|
||
|
#################### #################### ####################
|
||
|
#################### #################### ####################
|
||
|
#################### #################### ####################
|
||
|
#################### #################### ####################
|
||
|
#################### #################### ####################
|