Program drill-down
REAS_MAN
REASON MAINTENANCE. Type MAN, base table REASON_MAST.
Field inventory
28
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | NUMTST | I | 0 | 71, 505 | ||
| 1 | 0.0 | CMD 3 | C | -1 | 141, 253 | $SELECT S:REASON1;I\RSN_REASON |
|
| 1 | 0.0 | Label 8 | T | -1 | 301, 49 | ||
| 1 | 0.0 | REASON_MAST | RSN_DESC | I | -1 | 251, 253 | $VALIDATE C:UCASE |
| 1 | 0.0 | REASON_MAST | RSN_ADESC | T | -1 | 451, 229 | |
| 1 | 0.0 | REASON_MAST | RSN_ADESC | I | -1 | 451, 253 | $VALIDATE 'CONVERT TO UPPERCASE C:UCASE |
| 1 | 0.0 | H | -1 | 1, 1 | |||
| 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 | DEFAULT | I | 0 | 1, 49 | $DEFAULT A:DATE;DD MMM/YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 U:ZZGRID_SPLIT;INIT_GRID;G\REASON;I\RSN_REASON,D\RSN_TYPE,I\RSN_DESC,I\RSN_ADESC,I\RSN_BLOCKED U:ZZGRID_SPLIT;DB_TO_GRID;G\REASON;REASON_MAST |
|
| 1 | 0.0 | REASON_MAST | RSN_DESC | T | -1 | 251, 229 | |
| 1 | 0.0 | REASON_MAST | RSN_TYPE | T | -1 | 171, 229 | |
| 1 | 0.0 | REASON_MAST | RSN_REASON | I | -1 | 111, 253 | $SELECT 'DISPLAY A SELECTION WINDOW S:REASON1;I\RSN_REASON $VALIDATE 'MAKE THIS FIELD MANDATORY M: 'CONVERT TO UPPERCASE C:UCASE 'A:ISNUMERIC;I\RSN_REASON;I\NUMTST 'I:I\NUMTST;=;N 'D:ENTER A NUMBER ONLY - NOT $I\RSN_REASON$;ERRORM;I\RSN_REASON 'A:VAR;I\RSN_REASON;I\RS_REASON;;00 'DO A LOOP UP ONLY F |
| 1 | 0.0 | REASON_MAST | RSN_REASON | T | -1 | 111, 229 | |
| 1 | 0.0 | Work 8 | G | -1 | 111, 277 | ||
| 1 | 0.0 | Work 17 | I | 0 | 41, 49 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME C:MCASE;;T\MARKET |
|
| 1 | 0.0 | REASON_MAST | RSN_BLOCKED | I | -1 | 651, 253 | $VALIDATE 'MAKE THIFS FIELD MANDATORY 'M: 'CONVERT TO UPPERCASE C:UCASE 'ALLOW ONLY Y N OR BLANK V:Y;N; 'DEFAULT THIS FIELD TO 'N' I:I\RSN_BLOCKED;=; A:CONST;N;I\RSN_BLOCKED 'DO A LOOK UP FOR THOSE RECORDS THAT ARE NOT BLOCKED 'F:PROV_MAST;Y;PR_PROV;I\TMP4=PR_BLOCKED;PR_BLOCKED <> 'Y';I\PR_PROV |
| 1 | 0.0 | Label 6 | T | -1 | 651, 229 | ||
| 1 | 0.0 | REASON_MAST | RSN_TYPE | D | -1 | 171, 253 | $DEFAULT 'LOAD THE TYPES B:ADDITEM;D\RSN_TYPE;DE-DELETION,DS-DISCARDS,AD-ADJUSTMENTS,BL-BLOCKED,TR-TROLLEY HIRED CANCELLATION,WL-WHOLESALE UPDATE,GN-GATE NUMBER $VALIDATE U:DELIVERY_MAN;COMBO_SIZE;D\RSN_TYPE,121 'MANDATORY M: 'UPPERCASE C:UCASE I:D\RSN_TYPE;<>; A:LEFT;D\RSN_TYPE,2;D\RSN_TYPE 'VAL |
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 1 |