| [604] | 1 | English French Notes Complete/Exclude
|
|---|
| 2 | 'YES' will invoke the ScreenMan editor.
|
|---|
| 3 | The same questions are asked in both screen & scrolling mode.
|
|---|
| 4 | EARLIEST DATE (OPTIONAL)^D^^1
|
|---|
| 5 | LATEST DATE^RD^^3
|
|---|
| 6 | CAN DATE BE IMPRECISE (Y/N)^S^Y:YES;N:NO;^4^Q
|
|---|
| 7 | E.G., WOULD 'FEB, 1980' BE ALLOWED?
|
|---|
| 8 | CAN TIME OF DAY BE ENTERED (Y/N)^S^Y:YES;N:NO;^5^S:X=
|
|---|
| 9 | CAN SECONDS BE ENTERED (Y/N)^S^Y:YES;N:NO;^6^S DG(6)=X
|
|---|
| 10 | CAN USER ENTER TIME ALONG WITH DATE, AS IN 'JULY 20@4:30'?
|
|---|
| 11 | IS TIME REQUIRED (Y/N)^S^Y:YES;N:NO;^7^Q
|
|---|
| 12 | MUST USER ENTER TIME ALONG WITH DATE
|
|---|
| 13 | TYPE A DATE BETWEEN
|
|---|
| 14 | INCLUSIVE LOWER BOUND^R^^1^K:+X'=X
|
|---|
| 15 | INCLUSIVE UPPER BOUND^R^^2^K:X<DG(1)!(+X'=X)
|
|---|
| 16 | IS THIS A DOLLAR AMOUNT (Y/N)^S^Y:YES;N:NO;^3^Q
|
|---|
| 17 | MAXIMUM NUMBER OF FRACTIONAL DIGITS^RN^^5^K:X'?1N X
|
|---|
| 18 | Type a
|
|---|
| 19 | Number^Dollar Amount
|
|---|
| 20 | Decimal Digit
|
|---|
| 21 | WILL
|
|---|
| 22 | FIELD BE MULTIPLE
|
|---|
| 23 | FOR A GIVEN ENTRY, WILL THERE BE MORE THAN 1
|
|---|
| 24 | ON FILE AT ONCE?
|
|---|
| 25 | SUBSCRIPT:
|
|---|
| 26 | Control Characters are not allowed.
|
|---|
| 27 | CAN'T BE <
|
|---|
| 28 | TYPE A NUMBER FROM 1 TO 99
|
|---|
| 29 | OR AN $EXTRACT RANGE (E.G.,
|
|---|
| 30 | CURRENTLY ASSIGNED:
|
|---|
| 31 | PIECE
|
|---|
| 32 | FIELD #
|
|---|
| 33 | ALREADY USED FOR
|
|---|
| 34 | CAN'T STORE A
|
|---|
| 35 | FIELD IN AN ALREADY-USED SUBSCRIPT!
|
|---|
| 36 | This is Standard MUMPS code.
|
|---|
| 37 | TOO MUCH TO STORE AT THAT SUBSCRIPT!
|
|---|
| 38 | SHALL THIS TEXT NORMALLY APPEAR IN WORD-WRAP MODE
|
|---|
| 39 | ANSWER 'YES' IF THE INTERNALLY-STORED '
|
|---|
| 40 | SHOULD NORMALLY BE PRINTED OUT IN FULL LINES, BREAKING AT WORD BOUNDARIES.
|
|---|
| 41 | ANSWER 'NO' IF THE INTERNAL TEXT SHOULD NORMALLY BE PRINTED OUT
|
|---|
| 42 | LINE-FOR-LINE AS IT STANDS.
|
|---|
| 43 | (FIELD DEFINITION IS NOT EDITABLE)
|
|---|
| 44 | <DATA DEFINITION UNCHANGED>
|
|---|
| 45 | DATA TYPE OF
|
|---|
| 46 | , JUST HIT THE SPACE KEY
|
|---|
| 47 | ADDING A NEW ;?
|
|---|
| 48 | Field Definition is TOO LONG by
|
|---|
| 49 | NUMBER MUST BE BETWEEN
|
|---|
| 50 | AND NOT ALREADY IN USE
|
|---|
| 51 | SUB-DICTIONARY NUMBER:
|
|---|
| 52 | Required Index for Variable Pointer
|
|---|
| 53 | TRANSLATES TO THE FOLLOWING CODE:
|
|---|
| 54 | FIELD IS 'MULTIPLE-VALUED'!
|
|---|
| 55 | TYPE OF RESULT:
|
|---|
| 56 | NUMBER OF FRACTIONAL DIGITS TO OUTPUT:
|
|---|
| 57 | Enter the number of decimal digits that should normally appear in the result.
|
|---|
| 58 | SHOULD VALUE ALWAYS BE INTERNALLY ROUNDED TO
|
|---|
| 59 | DECIMAL PLACE
|
|---|
| 60 | WHEN TOTALLING THIS FIELD, SHOULD THE SUM BE COMPUTED FROM
|
|---|
| 61 | THE SUMS OF THE COMPONENT FIELDS
|
|---|
| 62 | LENGTH OF FIELD:
|
|---|
| 63 | Maximum number of character expected to be output.
|
|---|
| 64 | POINT TO WHAT FILE
|
|---|
| 65 | OK TO DELETE '
|
|---|
| 66 | ' FIELDS IN THE EXISTING ENTRIES
|
|---|
| 67 | KiRW
|
|---|
| 68 | Enter a MUMPS statement that sets DIC(
|
|---|
| 69 | ) to code that sets $T.
|
|---|
| 70 | Those entries for which $T=1 will be selectable.
|
|---|
| 71 | The naked reference will be at the zeroeth node of the pointed to
|
|---|
| 72 | file, e.g., ^DIZ(9999,Entry Number,0). The internal entry number
|
|---|
| 73 | of the entry that is being processed in the pointed to file will be
|
|---|
| 74 | in the variable Y.
|
|---|
| 75 | The variable Y will be equal to the internally-stored code of the item
|
|---|
| 76 | in the set which is being processed.
|
|---|
| 77 | POINT TO WHICH FILE:
|
|---|
| 78 | WILL NOT
|
|---|
| 79 | SHOULD
|
|---|
| 80 | SHOULD '
|
|---|
| 81 | ' ENTRIES BE SCREENED
|
|---|
| 82 | Answer YES if there is a condition which should prohibit
|
|---|
| 83 | selection of some entries.
|
|---|
| 84 | ENTER A TRUTH-VALUED EXPRESSION WHICH MUST BE TRUE OF ANY ENTRY POINTED TO:
|
|---|
| 85 | TOO COMPLICATED!
|
|---|
| 86 | WARNING-- THIS DOESN'T LOOK LIKE A TRUTH-VALUED EXPRESSION
|
|---|
| 87 | MUMPS CODE THAT WILL SET 'DIC(
|
|---|
| 88 | WARNING - Screen Does Not Contain DIC(
|
|---|
| 89 | EXPLANATION OF SCREEN:
|
|---|
| 90 | An explanation must be entered.
|
|---|
| 91 | FILE ENTRY' (
|
|---|
| 92 | BE ALLOWED WHEN ANSWERING THE
|
|---|
| 93 | INTERNALLY-STORED CODE:
|
|---|
| 94 | WILL STAND FOR:
|
|---|
| 95 | For Example: Internal Code 'M' could stand for 'MALE'
|
|---|
| 96 | SORRY, ';' ':' '^' '
|
|---|
| 97 | ' AND '=' AREN'T ALLOWED IN SETS!
|
|---|
| 98 | Cannot use CONTROL CHARACTERS!
|
|---|
| 99 | TOO MUCH!! -- SHOULD BE 'POINTER', NOT 'SET'
|
|---|
| 100 | MINIMUM LENGTH^NR^^1^K:X\1'=X!(X<1) X
|
|---|
| 101 | MAXIMUM LENGTH^RN^^2^K:X\1'=X!(X>250)!(DG(1)>X) X
|
|---|
| 102 | (OPTIONAL) PATTERN MATCH (IN 'X')^^^3^S X=
|
|---|
| 103 | EXAMPLE:
|
|---|
| 104 | Answer must be
|
|---|
| 105 | in length.
|
|---|
| 106 | DD AUDIT^.6I
|
|---|
| 107 | CROSS REFERENCE^1
|
|---|
| 108 | SOMEONE ELSE IS EDITING THIS FILE
|
|---|
| 109 | NOTE THAT THIS FIELD'S DEFINITION IS NOT EDITABLE
|
|---|
| 110 | Multiple
|
|---|
| 111 | Editing '
|
|---|
| 112 | 'EARLIEST DATE' & 'LATEST DATE' ARE IN WRONG ORDER
|
|---|
| 113 | CURRENT DATE
|
|---|
| 114 | TYPE A DATE NOT EARLIER THAN
|
|---|
| 115 | (No range limit on date)
|
|---|
| 116 | 'MINIMUM' & 'MAXIMUM' ARE IN WRONG ORDER
|
|---|
| 117 | number^Dollar amount
|
|---|
| 118 | SORRY -- '
|
|---|
| 119 | ' NOT ALLOWED IN SET VALUES!
|
|---|
| 120 | THERE MUST BE A CODE FOR '
|
|---|
| 121 | CAN'T HAVE TWO IDENTICAL CODES!
|
|---|
| 122 | ' MUST MEAN SOMETHING!
|
|---|
| 123 | TOO MUCH!! TO STORE THAT MUCH, BUILD A NEW FILE AND USE A POINTER!
|
|---|
| 124 | DICATT SCREEN
|
|---|
| 125 | in length
|
|---|
| 126 | DUPLICATE FILE NUMBER
|
|---|
| 127 | MESSAGE REQUIRED
|
|---|
| 128 | ORDER NUMBER REQUIRED
|
|---|
| 129 | DUPLICATE ORDER NUMBER
|
|---|
| 130 | PREFIX REQUIRED
|
|---|
| 131 | BAD PREFIX
|
|---|
| 132 | DUPLICATE PREFIX
|
|---|
| 133 | SCREEN MUST HAVE EXPLANATION
|
|---|
| 134 | ERROR IN VARIABLE-POINTER SPECIFICATIONS, FILE
|
|---|
| 135 | Enter Standard MUMPS code
|
|---|
| 136 | Required for Variable Pointer
|
|---|
| 137 | DICATT MUL
|
|---|
| 138 | NAME AND TITLE MUST BE DIFFERENT
|
|---|
| 139 | YOUR REDEFINITION OF THE FIELD WOULD CAUSE TOO MUCH DATA STORAGE!
|
|---|
| 140 | DATA-STORAGE INFO INCOMPLETE
|
|---|
| 141 | FIELD DEFINITION IS TOO LONG!
|
|---|
| 142 | FIELD DELETED!
|
|---|
| 143 | Enter name of MUMPS Global subscript where this Field's data will be stored.
|
|---|
| 144 | Already assigned:
|
|---|
| 145 | Another Field is already stored at '
|
|---|
| 146 | A multiple field is already stored at '
|
|---|
| 147 | Too much to store at the '
|
|---|
| 148 | Can't be less than
|
|---|
| 149 | Already used for '
|
|---|
| 150 | Can't store by $EXTRACT in the same subscript with $PIECES
|
|---|
| 151 | Type a number from 1 to 99
|
|---|
| 152 | or an $EXTRACT range such as
|
|---|
| 153 | Currently assigned:
|
|---|
| 154 | This cross-reference cannot be deleted.
|
|---|
| 155 | Are you sure that you want to delete the CROSS-REFERENCE
|
|---|
| 156 | Answer YES if you want to delete the Cross-Reference.
|
|---|
| 157 | DO YOU WANT THE INDIVIDUAL CROSS-REFERENCE VALUES DELETED
|
|---|
| 158 | CURRENT CROSS-REFERENCE
|
|---|
| 159 | NO
|
|---|
| 160 | WANT TO
|
|---|
| 161 | ONE OF THEM
|
|---|
| 162 | WHICH NUMBER:
|
|---|
| 163 | CURRENT CROSS-REFERENCES:
|
|---|
| 164 | ' INDEX OF
|
|---|
| 165 | NO EFFECT
|
|---|
| 166 | DO YOU WANT TO EXECUTE THE OLD KILL LOGIC NOW
|
|---|
| 167 | Enter 'YES' to execute the original kill logic now.
|
|---|
| 168 | Otherwise, enter 'NO'.
|
|---|
| 169 | Executing old kill logic...
|
|---|
| 170 | Choose E (Edit)/D (Delete)/C (Create):
|
|---|
| 171 | Enter 'E' to edit an existing X-reference
|
|---|
| 172 | 'D' to delete it
|
|---|
| 173 | 'C' to create a new X-reference.
|
|---|
| 174 | CROSS-REFERENCE
|
|---|
| 175 | WANT TO CREATE A NEW
|
|---|
| 176 | FOR THIS FIELD
|
|---|
| 177 | CROSS-REFERENCE NUMBER:
|
|---|
| 178 | WHOLE FILE BY THIS FIELD
|
|---|
| 179 | BY THIS FIELD
|
|---|
| 180 | WANT
|
|---|
| 181 | TO BE USED FOR LOOKUP AS WELL AS FOR SORTING
|
|---|
| 182 | PARSE ON THE FOLLOWING CHARACTERS:
|
|---|
| 183 | Please enter the punctuation marks (except quotes) which will be used to
|
|---|
| 184 | separate the words in this field.
|
|---|
| 185 | INDEX:
|
|---|
| 186 | DO YOU WANT TO CROSS-REFERENCE EXISTING DATA NOW
|
|---|
| 187 | Enter 'YES' to execute the new set logic now.
|
|---|
| 188 | You may use the number shown if you are the custodian of the file this
|
|---|
| 189 | cross-reference is in. If you are not the custodian of the file, you
|
|---|
| 190 | should select a number that corresponds with a numberspace for which you
|
|---|
| 191 | have custody. Questions regarding numberspace custody may be referred
|
|---|
| 192 | WANT TO PROTECT THE '
|
|---|
| 193 | ' FIELD, SO THAT
|
|---|
| 194 | IT CAN'T BE CHANGED BY THE 'ENTER & EDIT' ROUTINE
|
|---|
| 195 | HEY, WHILE WE WERE TALKING, SOMEONE ELSE CREATED CROSS-REFERENCE #
|
|---|
| 196 | ...CROSS-REFERENCE IS SET
|
|---|
| 197 | DO YOU WANT TO RUN THE CROSS-REFERENCE FOR EXISTING ENTRIES NOW
|
|---|
| 198 | WHEN THE
|
|---|
| 199 | IS CHANGED,
|
|---|
| 200 | WHAT FIELD SHOULD BE 'TRIGGERED':
|
|---|
| 201 | SW?
|
|---|
| 202 | INTERNAL(
|
|---|
| 203 | YOU MUST IDENTIFY SOME FIELD, EITHER WITHIN THE
|
|---|
| 204 | ' FILE OR IN SOME OTHER
|
|---|
| 205 | SORRY, I AM CONFUSED
|
|---|
| 206 | CAN'T UPDATE A 'NUMBER' FIELD!
|
|---|
| 207 | CAN'T HAVE A FIELD TRIGGERING ITSELF!!!
|
|---|
| 208 | YOU DON'T HAVE 'DATA DEFINITION' ACCESS TO
|
|---|
| 209 | CAN'T TRIGGER A RESTRICTED
|
|---|
| 210 | DIV(
|
|---|
| 211 | CAN'T TRIGGER A COMPUTED FIELD!
|
|---|
| 212 | TRIGGERED
|
|---|
| 213 | IN ANSWERING THE FOLLOWING QUESTION, '
|
|---|
| 214 | CAN BE USED TO REFER TO THE EXISTING TRIGGERED FIELD VALUE.
|
|---|
| 215 | PLEASE ENTER AN EXPRESSION WHICH WILL BECOME THE VALUE OF THE
|
|---|
| 216 | BUT THE TRIGGERING FIELD DEPENDS ON THE TRIGGERED FIELD!
|
|---|
| 217 | WARNING -- THIS SHOULD PRODUCE A DATE VALUE, AND IT MAY NOT!
|
|---|
| 218 | WARNING -- THIS MUST BE '
|
|---|
| 219 | WARNING--THIS TRUTH-VALUED EXPRESSION WILL PRODUCE ONLY VALUES OF '0' OR '1'
|
|---|
| 220 | WARNING -- THIS MAY PRODUCE A 'DATE', AND IT SHOULDN'T!
|
|---|
| 221 | OLD
|
|---|
| 222 | NOTE: '
|
|---|
| 223 | ' CAN BE USED TO REFER TO THE VALUE OF THE
|
|---|
| 224 | FIELD BEFORE ITS CHANGE OR DELETION.
|
|---|
| 225 | DIK=
|
|---|
| 226 | DA=
|
|---|
| 227 | DIK(
|
|---|
| 228 | WHENEVER THE '
|
|---|
| 229 | ' FIELD IS
|
|---|
| 230 | ENTERED OR CHANGED^CHANGED OR DELETED
|
|---|
| 231 | ARE YOU SURE YOU WANT TO 'ADD A NEW ENTRY' WHEN THIS
|
|---|
| 232 | LOGIC OCCURS
|
|---|
| 233 | ..OK, LET ME THINK A SECOND...
|
|---|
| 234 | TING OF '
|
|---|
| 235 | SORRY, CAN'T DO THIS WHEN 'LAYGO' ALLOWED
|
|---|
| 236 | DO YOU WANT TO MAKE THE
|
|---|
| 237 | ENTER AN EXPRESSION FOR THE CONDITION:
|
|---|
| 238 | CREATE CONDITION
|
|---|
| 239 | ENTER A TRUTH-VALUED 'COMPUTED-FIELD' EXPRESSION
|
|---|
| 240 | (PERHAPS INVOLVING '
|
|---|
| 241 | WARNING--THIS DOESN'T LOOK LIKE A CONDITION EXPRESSION!
|
|---|
| 242 | TE CONDITION
|
|---|
| 243 | SENDING OF '
|
|---|
| 244 | ENTER THE NAME OF A 'BULLETIN' MESSAGE, IF YOU WANT THAT MESSAGE SENT
|
|---|
| 245 | PARAMETER #
|
|---|
| 246 | NOW, IF THE BULLETIN IS TO HAVE
|
|---|
| 247 | OR MORE PARAMETERS INSERTED,
|
|---|
| 248 | ENTER A FIELD NAME (FOR EXAMPLE, '
|
|---|
| 249 | OR A 'COMPUTED-FIELD' EXPRESSION,
|
|---|
| 250 | THE VALUE OF WHICH WILL BE PASSED INTO THE '
|
|---|
| 251 | AS
|
|---|
| 252 | (NOTE THAT NO SUCH PARAMETER IS DEFINED FOR THE '
|
|---|
| 253 | TE
|
|---|
| 254 | DIIND))[0 X ^(DIIND)
|
|---|
| 255 | Lookup values
|
|---|
| 256 | ABCKMOPQSUXfglpqtv4
|
|---|
| 257 | Indexes
|
|---|
| 258 | JUST LOOKING
|
|---|
| 259 | MORE?
|
|---|
| 260 | DINDEX(
|
|---|
| 261 | DISCREEN(
|
|---|
| 262 | Mp
|
|---|
| 263 | Ne
|
|---|
| 264 | FROM values
|
|---|
| 265 | target array
|
|---|
| 266 | BIKMPQSUfhu
|
|---|
| 267 | Index
|
|---|
| 268 | NO B
|
|---|
| 269 | FID(
|
|---|
| 270 | DIXV(
|
|---|
| 271 | Whole File Screen
|
|---|
| 272 | Screen Parameter
|
|---|
| 273 | TRY NEXT
|
|---|
| 274 | DIEN):1
|
|---|
| 275 | NEW PERSON
|
|---|
| 276 | By '
|
|---|
| 277 | ', do you mean
|
|---|
| 278 | Cross-reference
|
|---|
| 279 | ', do you mean the
|
|---|
| 280 | pointing via its '
|
|---|
| 281 | INTERNAL(#
|
|---|
| 282 | WILL TERMINAL USER BE ALLOWED TO SELECT PROPER ENTRY IN '
|
|---|
| 283 | DO YOU WANT TO PERMIT ADDING A NEW '
|
|---|
| 284 | WELL THEN, DO YOU WANT TO **FORCE** ADDING A NEW ENTRY EVERY TIME
|
|---|
| 285 | DO YOU WANT AN 'ADDING A NEW
|
|---|
| 286 | SORRY, CAN'T EDIT A RESTRICTED
|
|---|
| 287 | ', do you mean the '
|
|---|
| 288 | code that we got back from RCR becomes what we eXecute for every multiple!
|
|---|
| 289 | MPh
|
|---|
| 290 | MPQh
|
|---|
| 291 | DICRVAL(
|
|---|
| 292 | DIH=+$P(
|
|---|
| 293 | DA,
|
|---|
| 294 | OUTPUT FROM
|
|---|
| 295 | AUDIT FROM
|
|---|
| 296 | NO AUDIT ENTRIES
|
|---|
| 297 | No DD AUDIT entries!
|
|---|
| 298 | DD AUDIT
|
|---|
| 299 | INPUT TO
|
|---|
| 300 | WHAT FILE:
|
|---|
| 301 | DUZ,
|
|---|
| 302 | There are no selectable files.
|
|---|
| 303 | #################### #################### ####################
|
|---|
| 304 | #################### #################### ####################
|
|---|
| 305 | #################### #################### ####################
|
|---|
| 306 | #################### #################### ####################
|
|---|
| 307 | #################### #################### ####################
|
|---|
