Program drill-down
LOCATION_MAST
LOCATION MAINTENANCE. Type MDL, base table LOCATION_MAST.
Field inventory
54
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | LOCATION_MAST | LM_TYPE | I | -1 | 311, 145 | 'SELECT LOCATION TYPE CODE FROM LOCATION_TYPE TABLE $SELECT S:LOCATION_TYPE;I\LM_TYPE 'CHANGING TEXT CASE TO UPPER CASE AND SET FIELD MANDATORY $VALIDATE A:CONST;;T\LM_DESC M: C:UCASE 'LOOKS UP THE LOCATION TYPE CODE IF IT EXISTS OR NOT AND PUT THE DESCRIPTION OF THE TYPE IN THE LABEL, IF NOT DISPLAY ERROR |
| 1 | 0.0 | LOCATION_MAST | LM_TYPE | T | -1 | 211, 145 | |
| 1 | 0.0 | LOCATION_MAST | LM_VOLUME | I | -1 | 311, 505 | 'SET THIS FIELD MANDATORY $VALIDATE M: '$CALCULATE 'CHECKING IF THE USER ENTERS NUMBERS NOT TEXT A:ISNUMERIC;I\LM_VOLUME;W\LM_VOLUME I:W\LM_VOLUME;=;N D:THE USABLE VOLUME OF THE LOCATION SHOULD BE NUMBERS;ERRORM;I\LM_VOLUME 'ONLY POSITIVE NUMBERS ALLOWED I:W\LM_VOLUME;<;0 D:NEGATIVE NUMBERS NOT ALLOWED; |
| 1 | 0.0 | Label 1 | T | -1 | 211, 253 | ||
| 1 | 0.0 | LOCATION_MAST | LM_DEF_CONT_RATE | I | -1 | 311, 253 | $VALIDATE A:VAR;I\LM_DEF_CONT_RATE;I\LM_DEF_CONT_RATE;;#0.00 $AFTER_READ A:VAR;I\LM_DEF_CONT_RATE;I\LM_DEF_CONT_RATE;;#0.00 |
| 1 | 0.0 | H | -1 | 1, 91 | |||
| 1 | 0.0 | LOCATION_MAST | LM_DESC | I | -1 | 311, 325 | 'CHANGING TEXT CASE TO UPPER CASE AND SET IELD MANDATORY $VALIDATE M: C:UCASE |
| 1 | 0.0 | LOCATION_MAST | LM_CLASS | T | -1 | 211, 289 | |
| 1 | 0.0 | LOCATION_MAST | LM_CODE | I | -1 | 311, 109 | 'SELECT CODE FROM LOCATION_MAST TABLE $SELECT S:LOCATION_MAST;I\LM_CODE 'CHANGING TEXT CASE TO UPPER CASE AND SET FIELD MANDATORY $VALIDATE M: C:UCASE A:VAR;I\LM_CODE;I\LM_CODE;;0000 U:CALC_TYPE;SPECKEY_CHK;I\LM_CODE,:,W\LM_CODE I:W\LM_CODE;=;Y D:LOCATION CODE CANNOT HAVE A COLON ":";ERRORM;I\LM_CODE |
| 1 | 0.0 | NUMTST | I | 0 | 21, 571 | ||
| 1 | 0.0 | LOCATION_MAST | LM_DEDUCT_CODE | T | -1 | 211, 217 | |
| 1 | 0.0 | LOCATION_MAST | LM_CODE | T | -1 | 211, 109 | |
| 1 | 0.0 | LOCATION_MAST | LM_DEDUCT_CODE | I | -1 | 311, 217 | 'SELECT DEDUCT CODE FROM DEDUCT_MAST TABLE $SELECT S:DEDUCT_MAST;I\LM_DEDUCT_CODE 'CHANGING TEXT CASE TO UPPER CASE AND SET FIELD MANDATORY $VALIDATE A:CONST;;T\LM_DEDUCT_CODE1 M: C:UCASE 'LOOKS UP THE DEDUCTION CODE IF IT EXISTS OR NOT, IF NOT DISPLAY ERROR MESSAGE F:DEDUCT_MAST;Y;DM_CODE;T\LM_DEDUCT_CODE |
| 1 | 0.0 | Label 8 | T | -1 | 291, 49 | ||
| 1 | 0.0 | Label 1 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 2 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 3 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 4 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 5 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 6 | T | -1 | 671, 49 | ||
| 1 | 0.0 | I | 0 | 11, 103 | $DEFAULT 'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 'NOT ALLOW USERS TO DELETE WHILE THIS RECORD IS IN USE $BEFORE_DELETE 'LOOK UP FOR THIS RECORD IN STK_TRANS TABLE,IF ITS EXIST DISPLAY AN ERROR MESSAGE F:STK_TRAN |
||
| 1 | 0.0 | LOCATION_MAST | LM_AGENT | I | -1 | 311, 181 | 'SELECT AGENT CODE FROM AGENT_MAST TABLE $SELECT S:AGENT_MAST;I\LM_AGENT 'CHANGING TEXT CASE TO UPPER CASE AND SET FIELD MANDATORY $VALIDATE A:CONST;;T\LM_AGENT1 I:I\LM_TYPE;<>;CS M: C:UCASE 'LOOKS UP THE AGENT CODE IF IT EXISTS OR NOT, IF NOT DISPLAY ERROR MESSAGE I:I\LM_AGENT;<>; F:AGENT_MAST;Y;AM_C |
| 1 | 0.0 | LOCATION_MAST | LM_AGENT | T | -1 | 211, 181 | |
| 1 | 0.0 | LOCATION_MAST | LM_CLASS | I | -1 | 311, 289 | 'CHANGING TEXT CASE TO UPPER CASE AND SET IELD MANDATORY $VALIDATE M: C:UCASE |
| 1 | 0.0 | LOCATION_MAST | LM_DESC | T | -1 | 211, 325 | |
| 1 | 0.0 | LOCATION_MAST | LM_DIM | I | -1 | 311, 361 | 'SET THIS FIELD MANDATORY $VALIDATE M: 'A:CON;":";I\LM_DIM 'CHECKING IF THE USER ENTERS NUMBERS NOT TEXT $CALCULATE A:ISNUMERIC;I\LM_DIM;W\LM_DIM I:W\LM_DIM;=;N D:DIMENSION SHOULD BE NUMBERS;ERRORM;I\LM_DIM 'ONLY POSITIVE NUMBERS ALLOWED I:W\LM_DIM;<;0 D:NEGATIVE NUMBERS NOT ALLOWED;ERRORM;I\LM_DIM |
| 1 | 0.0 | LOCATION_MAST | LM_DIM | T | -1 | 211, 361 | |
| 1 | 0.0 | LOCATION_MAST | LM_LEN | I | -1 | 311, 397 | 'SET THIS FIELD MANDATORY $VALIDATE M: '$CALCULATE 'CHECKING IF THE USER ENTERS NUMBERS NOT TEXT A:ISNUMERIC;I\LM_LEN;W\LM_LEN I:W\LM_LEN;=;N D:LENGTH SHOULD BE NUMBERS;ERRORM;I\LM_LEN 'ONLY POSITIVE NUMBERS ALLOWED I:W\LM_LEN;<;0 D:NEGATIVE NUMBERS NOT ALLOWED;ERRORM;I\LM_LEN 'FORMAT VALUE ENTERED I |
| 1 | 0.0 | LOCATION_MAST | LM_LEN | T | -1 | 211, 397 | |
| 1 | 0.0 | LOCATION_MAST | LM_SHELVES | I | -1 | 311, 469 | 'SET THIS FIELD MANDATORY $VALIDATE M: '$CALCULATE 'CHECKING IF THE USER ENTERS NUMBERS NOT TEXT A:ISNUMERIC;I\LM_SHELVES;W\LM_SHELVES I:W\LM_SHELVES;=;N D:THE NUMBER OF SHELVES SHOULD BE NUMBERS;ERRORM;I\LM_SHELVES 'ONLY POSITIVE NUMBERS ALLOWED I:W\LM_SHELVES;<;0 D:NEGATIVE NUMBERS NOT ALLOWED;ERRORM; |
| 1 | 0.0 | LOCATION_MAST | LM_SHELVES | T | -1 | 211, 469 | |
| 1 | 0.0 | LOCATION_MAST | LM_VOLUME | T | -1 | 211, 505 | |
| 1 | 0.0 | LOCATION_MAST | LM_WIDTH | I | -1 | 311, 433 | 'SET THIS FIELD MANDATORY $VALIDATE M: '$CALCULATE 'CHECKING IF THE USER ENTERS NUMBERS NOT TEXT A:ISNUMERIC;I\LM_WIDTH;W\LM_WIDTH I:W\LM_WIDTH;=;N D:WIDTH SHOULD BE NUMBERS;ERRORM;I\LM_WIDTH 'ONLY POSITIVE NUMBERS ALLOWED I:W\LM_WIDTH;<;0 D:NEGATIVE NUMBERS NOT ALLOWED;ERRORM;I\LM_WIDTH 'FORMAT VALU |
| 1 | 0.0 | LOCATION_MAST | LM_WIDTH | T | -1 | 211, 433 | |
| 1 | 0.0 | CMD 4 | C | -1 | 351, 181 | 'SELECT AGENT CODE FROM AGENT_MAST TABLE $SELECT S:AGENT_MAST;I\LM_AGENT |
|
| 1 | 0.0 | Label 5 | T | -1 | 391, 181 | ||
| 1 | 0.0 | CMD 6 | C | -1 | 351, 217 | 'SELECT DEDUCT CODE FROM DEDUCT_MAST TABLE $SELECT S:DEDUCT_MAST;I\LM_DEDUCT_CODE |
|
| 1 | 0.0 | Label 8 | T | -1 | 391, 217 | ||
| 1 | 0.0 | CMD 9 | C | -1 | 351, 145 | 'SELECT LOCATION TYPE CODE FROM LOCATION_TYPE TABLE $SELECT S:LOCATION_TYPE;I\LM_TYPE |
|
| 1 | 0.0 | Label 11 | T | -1 | 391, 145 | ||
| 1 | 0.0 | CMD 12 | C | -1 | 431, 109 | 'SELECT CODE FROM LOCATION_MAST TABLE $SELECT S:LOCATION_MAST;I\LM_CODE |
|
| 1 | 0.0 | Work 10 | I | 0 | 71, 103 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME 'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE C:MCASE;;T\MARKET |
|
| 1 | 0.0 | Work 1 | I | 0 | 371, 361 | ||
| 1 | 0.0 | Work 2 | I | 0 | 541, 397 | ||
| 1 | 0.0 | Work 3 | I | 0 | 541, 433 | ||
| 1 | 0.0 | Work 4 | I | 0 | 431, 469 | ||
| 1 | 0.0 | Work 5 | I | 0 | 541, 505 | ||
| 1 | 0.0 | Work 6 | I | 0 | 471, 109 | ||
| 1 | 0.0 | Work 1 | I | 0 | 101, 103 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 91 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 91 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 91 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 91 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 91 |