Program drill-down
COLD_STORAGE_MAN
COLD STORAGE/RIPENING ROOM MAINTENANCE. Type MAN, base table LOCATION_MAST.
Field inventory
98
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | ROOM_DET | RD_WIDTH | T | 0 | 251, 337 | |
| 1 | 0.0 | REPEAT | D | 0 | 371, 229 | $DEFAULT B:ADDITEM;D\REPEAT;Y,N $CALCULATE C:UCASE B:VALIDATE;D\REPEAT;Y,N I:D\REPEAT;=;N O:DISABLEINPUT;I\QTY I:D\REPEAT;=;Y O:ENABLEINPUT;I\QTY |
|
| 1 | 0.0 | ROOM_DET | RD_TOP | I | -1 | 171, 385 | |
| 1 | 0.0 | ROOM_DET | RD_SHELVES | I | -1 | 291, 385 | $VALIDATE 'DEFAULT TO ZERO IF LEFT BLANK I:I\RD_SHELVES;=; A:CONST;0;I\RD_SHELVES 'VALIDATE SHELVES I:I\RD_SHELVES;<;0;NUM D:SHELVES CANNOT BE LESS THAN ZERO;ERROM;I\RD_SHELVES 'CHECK IF THIS VALUE IS GREATER THAN CLASS SHELVES ABOVE I:I\RD_SHELVES;>;I\LM_SHELVES;NUM D:THIS VALUE CANNOT BE GREATER TH |
| 1 | 0.0 | ROOM_DET | RD_SHELVES | T | -1 | 291, 361 | |
| 1 | 0.0 | ROOM_DET | RD_SECTION | T | -1 | 51, 361 | |
| 1 | 0.0 | ROOM_DET | RD_SEQ | T | -1 | 11, 361 | |
| 1 | 0.0 | ROOM_DET | RD_SEQ | I | -1 | 11, 385 | $CALCULATE 'CONVERT TO UPPERCASE C:UCASE 'A:VAR;I\LM_CODE;I\RD_ROOM I:I\RD_SEQ;=; DO(001) O:DISABLEINPUT;I\RD_SECTION,I\RD_TOP,I\RD_BOTTOM,I\RD_SHELVES,D\REPEAT,I\QTY,W\DEL DOEND(001) I:I\RD_SEQ;<>; DO(001) I:I\RD_SEQ;<>;+ DO(002) U:ZZGRID_SPLIT;GRID_TO_SCREEN;G\GRID;I\RD_SEQ O:ENABLE |
| 1 | 0.0 | T | -1 | 371, 289 | |||
| 1 | 0.0 | ROOM_DET | RD_SECTION | I | -1 | 51, 385 | $CALCULATE 'MAKE THIS FIELD MANDATORY M: 'CONVERT TO UPPERCASE C:UCASE U:COLDSTORE_MAN;CHK_DUPLICATE;G\GRID I:I\TMP1;=;ERROR D:SECTION NAME $I\RD_SECTION$ HAS ALREADY BEEN USED;ERRORM;I\RD_SECTION $ESC A:CONST;+;I\RD_SEQ |
| 1 | 0.0 | ROOM_DET | RD_ROOM | I | 0 | 1, 565 | |
| 1 | 0.0 | ROOM_DET | RD_LEN | T | 0 | 171, 337 | |
| 1 | 0.0 | ROOM_DET | RD_BOTTOM | I | -1 | 231, 385 | $CALCULATE U:COLDSTORE_MAN;CHK_AVAIL;G\ROOM I:I\TMP1;=;ERROR D:THESE CO-ORDINATES OVERLAP AN EXISTING AREA;ERRORM;I\RD_TOP |
| 1 | 0.0 | LM_WIDTH_SVE | I | 0 | 451, 169 | ||
| 1 | 0.0 | MARKET | I | 0 | 1, 49 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET A:ORG;;I\LM_MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME 'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL C:MCASE;;T\MARKET |
|
| 1 | 0.0 | LOCATION_MAST | LM_WIDTH | I | -1 | 441, 169 | $VALIDATE 'MAKE THIS FIELS MANDATORY M: I:I\LM_WIDTH;<;0;NUM D:THE WIDTH MUST BE GREATER THAN ZERO;ERRORM;I\LM_WIDTH I:I\LM_WIDTH;<>;I\LM_WIDTH_SVE DO(001) U:COLDSTORE_MAN;CLEAR_ROOM;G\ROOM O:HIDE;G\ROOM DOEND(001) A:MULT;I\LM_LEN;I\LM_VOLUME;I\LM_WIDTH $AFTER_READ A:VAR;I\LM_WIDTH;I\LM_WIDTH_ |
| 1 | 0.0 | LOCATION_MAST | LM_WIDTH | T | -1 | 341, 169 | |
| 1 | 0.0 | LOCATION_MAST | LM_VOLUME | I | -1 | 161, 169 | $VALIDATE 'MAKE THIS FIELD MANDATORY M: 'VALIDATE VOLUME I:I\LM_VOLUME;<;0;NUM D:VOLUME MUST BE GREATER THAN ZERO;ERRORM;I\LM_VOLUME |
| 1 | 0.0 | LOCATION_MAST | LM_TYPE | I | -1 | 161, 121 | $SELECT S:LOCATION_TYPE;I\LM_TYPE $VALIDATE 'MAKE THIS FIELD MANDATORY M: 'CONVERT TO UPPERCASE C:UCASE 'VALIDATE ROOM TYPE F:LOCATION_TYPE;Y;LC_TYPE;T\TYPE=LC_DESC;;I\LM_TYPE $AFTER_READ F:LOCATION_TYPE;;LC_TYPE;T\TYPE=LC_DESC;;I\LM_TYPE A:ORG;;I\LM_MARKET |
| 1 | 0.0 | LOCATION_MAST | LM_VOLUME | T | -1 | 11, 169 | |
| 1 | 0.0 | LOCATION_MAST | LM_TYPE | T | -1 | 11, 121 | |
| 1 | 0.0 | LM_TYPE | C | -1 | 211, 121 | $SELECT S:LOCATION_TYPE;I\LM_TYPE |
|
| 1 | 0.0 | LOCATION_MAST | LM_SHELVES | I | -1 | 631, 193 | 'MAKE THIS FIELD MANDATORY M: 'VALIDATE SHELVES I:\LM_SHELVES;<;0;NUM D:SHELVES MUST BE GREATER THAN ZERO;ERRORM;I\LM_SHELVES |
| 1 | 0.0 | LM_LEN_SVE | I | 0 | 171, 145 | ||
| 1 | 0.0 | LOCATION_MAST | LM_SHELVES | T | -1 | 521, 193 | |
| 1 | 0.0 | LOCATION_MAST | LM_DESC | T | -1 | 321, 97 | |
| 1 | 0.0 | LOCATION_MAST | LM_DESC | I | -1 | 421, 97 | $VALIDATE 'MAKE THIS FIELD MANDATORY M: 'CONVERT TO UPPERCASE C:UCASE |
| 1 | 0.0 | LOCATION_MAST | LM_DIM | T | -1 | 341, 193 | |
| 1 | 0.0 | LOCATION_MAST | LM_DIM | I | -1 | 441, 193 | $DEFAULT O:HIDE;G\ROOM $VALIDATE 'MAKE THIS FIELD MANDATORY M: 'VALIDATE DIMENSION I:I\LM_DIM;<;0;NUM D:DIMENSION MUST BE GREATER THAN ZERO;ERRORM;I\LM_DIM $CALCULATE U:COLDSTORE_MAN;BUILD;G\ROOM,G\GRID O:SHOW;G\ROOM |
| 1 | 0.0 | LOCATION_MAST | LM_LEN | T | -1 | 11, 145 | |
| 1 | 0.0 | LOCATION_MAST | LM_LEN | I | -1 | 161, 145 | $VALIDATE 'MAKE THIS FIELS MANDATORY M: I:I\LM_LEN;<;0;NUM D:THE LENGTH MUST BE GREATER THAN ZERO;ERRORM;I\LM_LEN I:I\LM_LEN;<>;I\LM_LEN_SVE DO(001) U:COLDSTORE_MAN;CLEAR_ROOM;G\ROOM O:HIDE;G\ROOM DOEND(001) A:MULT;I\LM_LEN;I\LM_VOLUME;I\LM_WIDTH $AFTER_READ A:VAR;I\LM_LEN;I\LM_LEN_SVE |
| 1 | 0.0 | LOCATION_MAST | LM_DEFAULT | K | -1 | 631, 133 | $VALIDATE I:K\LM_DEFAULT;=;1 DO(001) A:CONST;;I\TMP1 F:LOCATION_MAST;;;I\TMP1=LM_CODE;LM_DEFAULT='1' AND LM_CODE<>'$I\LM_CODE$' I:I\TMP1;<>; D:LOCATION $I\TMP1$ IS ALREADY SET AS THE DEFAULT LOCATION;ERRORM;K\LM_DEFAULT DOEND(001) |
| 1 | 0.0 | LOCATION_MAST | LM_DEDUCT_CODE | T | -1 | 11, 241 | |
| 1 | 0.0 | LOCATION_MAST | LM_DEDUCT_CODE | I | -1 | 161, 241 | $SELECT S:DEDUCT_MAST_A;I\LM_DEDUCT_CODE;I\LM_AGENT $VALIDATE I:I\LM_TYPE;EX;FL,VR DO(NOTFLR) 'MAKE THIS FIELD MANDATORY M: DOEND(NOTFLR) 'CONVERT TO UPPERCASE C:UCASE 'VALIDATE FOR EXISTING DEDUCTION CODES I:I\LM_AGENT;<>; F:DEDUCT_MAST;;DM_CODE;T\DCODE=DM_DESC;DM_AGENT='$I\LM_AGENT$';I |
| 1 | 0.0 | LOCATION_MAST | LM_CLASS | T | -1 | 521, 169 | |
| 1 | 0.0 | LOCATION_MAST | LM_CLASS | I | -1 | 631, 169 | $SELECT S:ROOM_CLASS;I\LM_CLASS $VALIDATE 'MAKE THIS FIELD MANDATORY M: 'CONVERT TO UPPERCASE C:UCASE 'VALIDATE CLASS F:ROOM_CLASS;Y;RC_CLASS;;;I\LM_CLASS |
| 1 | 0.0 | LOCATION_MAST | LM_CODE | T | -1 | 11, 97 | |
| 1 | 0.0 | LOCATION_MAST | LM_CODE | I | -1 | 161, 97 | $SELECT 'DISPLAY A SELECTION WINDOW S:LOCATION_CODES;I\LM_CODE $VALIDATE M: 'CONVERT TO UPPERCASE C:UCASE $CALCULATE A:ORG;;I\LM_MARKET U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\RD_SEQ,I\RD_SECTION,I\RD_TOP,I\RD_BOTTOM,I\RD_SHELVES,I\RD_ROOM:H,W\DEL U:COLDSTORE_MAN;CLEAR_ROOM;G\ROOM O:HIDE;G\ROOM O:BACKCOLOR; |
| 1 | 0.0 | LOCATION_MAST | LM_CHG_TYPE | T | -1 | 11, 265 | |
| 1 | 0.0 | LM_CLASS | C | -1 | 671, 169 | $SELECT S:ROOM_CLASS;I\LM_CLASS |
|
| 1 | 0.0 | LM_AGENT | C | -1 | 211, 217 | $SELECT S:AGENT_MAST;I\LM_AGENT;I\MARKET |
|
| 1 | 0.0 | LM_AGENT_USE | C | -1 | 211, 289 | $SELECT S:AGENT_MAST;I\LM_AGENT_USE;I\MARKET |
|
| 1 | 0.0 | LOCATION_MAST | LM_AGENT_USE | I | -1 | 161, 289 | $SELECT S:AGENT_MAST;I\LM_AGENT_USE;I\MARKET $VALIDATE 'CONVERT TO UPPERCASE C:UCASE 'VALIDATE FOR EXISTING AGENT CODE I:I\LM_AGENT_USE;<>; F:AGENT_MAST;Y;AM_CODE;T\AGENT_USE=AM_NAME;;I\LM_AGENT_USE I:I\LM_AGENT;<>; DO(CHK1) I:I\LM_AGENT_USE;<>; D:ERROR - CANNOT ENTER IF NOT A MARKET ROOM;ERRORM;I\LM_A |
| 1 | 0.0 | LOCATION_MAST | LM_CHG_TYPE | D | -1 | 161, 265 | $DEFAULT B:ADDITEM;D\LM_CHG_TYPE;C,P $CALCULATE C:UCASE B:VALIDATE;D\LM_CHG_TYPE;C,P |
| 1 | 0.0 | Label 8 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 9 | T | -1 | 671, 49 | ||
| 1 | 0.0 | LOCATION_MAST | LM_AGENT | T | -1 | 11, 217 | |
| 1 | 0.0 | LOCATION_MAST | LM_AGENT | I | -1 | 161, 217 | $SELECT S:AGENT_MAST;I\LM_AGENT;I\MARKET $VALIDATE 'CONVERT TO UPPERCASE C:UCASE 'VALIDATE FOR EXISTING AGENT CODE I:I\LM_AGENT;<>; F:AGENT_MAST;Y;AM_CODE;T\AGENT=AM_NAME;;I\LM_AGENT 'ADDED BY JUSTIN ON 12/09/2008============================================================================================= |
| 1 | 0.0 | Label 7 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 37 | T | -1 | 171, 337 | ||
| 1 | 0.0 | Label 38 | T | -1 | 171, 361 | ||
| 1 | 0.0 | Label 4 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 41 | T | -1 | 231, 337 | ||
| 1 | 0.0 | Label 42 | T | -1 | 231, 361 | ||
| 1 | 0.0 | Label 43 | T | -1 | 521, 133 | ||
| 1 | 0.0 | Label 6 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 29 | T | -1 | 351, 361 | ||
| 1 | 0.0 | Label 28 | T | 0 | 401, 253 | ||
| 1 | 0.0 | Label 1 | T | -1 | 11, 289 | ||
| 1 | 0.0 | Label 1 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 2 | T | -1 | 211, 49 | ||
| 1 | 0.0 | Label 27 | T | 0 | 371, 253 | ||
| 1 | 0.0 | LOCATION_MAST | LM_PORT | I | -1 | 411, 289 | |
| 1 | 0.0 | GRID | G | -1 | 11, 409 | $AFTER_READ ' LOAD DATA TO GRID U:ZZGRID_SPLIT;DB_TO_GRID;G\GRID;ROOM_DET,RD_ROOM='I\LM_CODE' I:I\LM_DIM;<>; DO(001) O:SHOW;G\ROOM U:COLDSTORE_MAN;BUILD;G\ROOM,G\GRID U:COLDSTORE_MAN;FILL;G\ROOM,G\GRID DOEND(001) $AFTER_WRITE ' SAVE GRID TO DATABASE U:ZZGRID_SPLIT;GRID_TO_DB;G\GRID;ROOM_DET,RD_SE |
|
| 1 | 0.0 | LOCATION_MAST | LM_MARKET | I | 0 | 741, 97 | |
| 1 | 0.0 | CMD 34 | C | -1 | 251, 97 | $SELECT 'DISPLAY A SELECTION WINDOW S:LOCATION_CODES;I\LM_CODE |
|
| 1 | 0.0 | DCODE | T | -1 | 251, 241 | ||
| 1 | 0.0 | CMD 2 | C | 0 | 211, 241 | $SELECT S:DEDUCT_MAST_A;I\LM_DEDUCT_CODE;I\LM_AGENT |
|
| 1 | 0.0 | AGENT_USE | T | -1 | 251, 289 | ||
| 1 | 0.0 | AGENT | T | -1 | 251, 217 | ||
| 1 | 0.0 | A9 | I | 0 | 231, 433 | ||
| 1 | 0.0 | A7 | I | 0 | 191, 433 | ||
| 1 | 0.0 | A8 | I | 0 | 211, 433 | ||
| 1 | 0.0 | A6 | I | 0 | 171, 433 | ||
| 1 | 0.0 | A5 | C | 0 | 521, 253 | ||
| 1 | 0.0 | A5 | I | 0 | 151, 433 | ||
| 1 | 0.0 | A4 | C | 0 | 601, 253 | ||
| 1 | 0.0 | A4 | I | 0 | 131, 433 | ||
| 1 | 0.0 | A3 | C | 0 | 681, 253 | ||
| 1 | 0.0 | A2 | C | 0 | 681, 289 | ||
| 1 | 0.0 | A3 | I | 0 | 111, 433 | ||
| 1 | 0.0 | A2 | I | 0 | 91, 433 | ||
| 1 | 0.0 | A11 | I | 0 | 271, 433 | ||
| 1 | 0.0 | A1 | I | 0 | 71, 433 | ||
| 1 | 0.0 | A1 | C | 0 | 521, 337 | ||
| 1 | 0.0 | A10 | I | 0 | 251, 433 | ||
| 1 | 0.0 | H | -1 | 0, 30 | |||
| 1 | 0.0 | Work 31 | I | 0 | 401, 229 | ||
| 1 | 0.0 | Work 32 | I | -1 | 351, 385 | $CALCULATE C:UCASE V:D; I:W\DEL;=;D DO(001) U:ZZGRID_SPLIT;REMOVE_ROW;G\GRID;I\RD_SEQ U:COLDSTORE_MAN;CLEAR_ROOM;G\ROOM U:COLDSTORE_MAN;RENUM_GRID;G\GRID U:COLDSTORE_MAN;BUILD;G\ROOM,G\GRID U:COLDSTORE_MAN;FILL;G\ROOM,G\GRID DOEND(001) I:W\DEL;<>;D DO(001) U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GR |
|
| 1 | 0.0 | ROOM | G | -1 | 491, 229 | ||
| 1 | 0.0 | TMP1 | I | 0 | 41, 565 | ||
| 1 | 0.0 | TYPE | T | -1 | 251, 121 | ||
| 1 | 0.0 | Work 5 | I | 0 | 21, 49 | $DEFAULT 'LOAD THE DATE AND TIME A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 'INITIALIZE THE GRID U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\RD_SEQ,I\RD_SECTION,I\RD_LEN,I\RD_WIDTH,I\RD_SHELVES,D\RPT,I\QTY,W\DEL 'LOAD THE GRID 'U:ZZGRID_SPLIT;DB_TO_GRID;G\AREA;AREA_MAST |
|
| 10 | 0.0 | ZX_DELETE | Z | 0 | 0, 30 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 30 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 30 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 0, 30 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 0, 30 |