Program drill-down
DEBT_ADDR_MAN
DEBTOR ADDRESS MAINTENANCE. Type MDL, base table DEBT_ADDR.
Field inventory
63
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | H | -1 | 1, 91 | |||
| 1 | 0.0 | DEBT_ADDR | DA_TYPE | T | -1 | 151, 121 | |
| 1 | 0.0 | CMD 4 | C | -1 | 311, 121 | $SELECT 'DISPLAY SELECTION WINDOW S:ADDRESS_TYPE;I\DA_TYPE |
|
| 1 | 0.0 | Label 5 | T | -1 | 351, 121 | ||
| 1 | 0.0 | DEBT_ADDR | DA_NAME | T | -1 | 151, 145 | |
| 1 | 0.0 | Label 8 | T | -1 | 261, 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 | 111, 73 | $DEFAULT A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 '$CALCULATE 'U:ZZGRID_SPLIT;INIT_GRID;G\GRIDM;I\LV_CODE,I\LV_DESC,I\LV_CALC_TYPE,I\LV_RATE,I\LV_MRATE,I\LV_VATCD,I\LV_BOARD 'U:ZZGRID_SPLIT;DB_TO_GRID;G\GRIDM;LEVY_MAST $BEFORE_DELETE 'NOT ALLOW USERS TO DELETE WHILE THESE FIELD |
||
| 1 | 0.0 | DEBT_ADDR | DA_CODE | T | -1 | 151, 97 | |
| 1 | 0.0 | CMD 2 | C | -1 | 391, 97 | $SELECT 'DISPLAY THE SELECTION WINDOW S:DEBTOR;I\DA_CODE |
|
| 1 | 0.0 | Label 6 | T | -1 | 11, 481 | ||
| 1 | 0.0 | Work 1 | I | 0 | 61, 85 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\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 | Label 4 | T | -1 | 11, 433 | ||
| 1 | 0.0 | Label 5 | T | -1 | 11, 457 | ||
| 1 | 0.0 | CMD 1 | C | -1 | 331, 313 | $SELECT S:AREA_CODE;I\DA_PCODE |
|
| 1 | 0.0 | Label 2 | T | -1 | 11, 517 | ||
| 1 | 0.0 | Work 3 | I | 0 | 351, 529 | ||
| 1 | 0.0 | Label 1 | T | -1 | 421, 97 | ||
| 1 | 0.0 | Work 1 | I | 0 | 101, 571 | ||
| 1 | 1.0 | DEBT_ADDR | DA_TELNO1 | T | -1 | 11, 349 | |
| 1 | 1.0 | DEBT_ADDR | DA_SNAME | T | -1 | 151, 217 | |
| 1 | 1.0 | DEBT_ADDR | DA_TITLE | T | -1 | 151, 169 | |
| 1 | 1.0 | DEBT_ADDR | DA_FNAME | T | -1 | 151, 193 | |
| 1 | 1.0 | DEBT_ADDR | DA_PCODE | T | -1 | 151, 313 | |
| 1 | 1.0 | DEBT_ADDR | DA_ADDR1 | I | -1 | 281, 241 | $VALIDATE 'CONVERT TO UPPERCASE C:UCASE 'DISABLE THE LAST TWO ADDRESS FIELDS IF THE FIRST ADDRESS FIELD IS EMPTY I:I\DA_ADDR1;=; DO(01) A:CONST;;I\DA_ADDR2,I\DA_ADDR3,I\DA_PCODE O:DISABLEINPUT;I\DA_ADDR2,I\DA_ADDR3,I\DA_PCODE DOEND(01) 'ENABLE INPUT IN THE LAST TWO ADDRESS FIELDS IF THE FIRST ADD |
| 1 | 1.0 | NUMTST | I | 0 | 21, 571 | ||
| 1 | 1.0 | DEBT_ADDR | DA_NAME | I | -1 | 281, 145 | $VALIDATE 'MAKE THIS FIELD MANDATORY 'M: 'CONVERT TO UPPERCASE C:UCASE |
| 1 | 1.0 | DEBT_ADDR | DA_ADDR1 | T | -1 | 151, 241 | |
| 1 | 1.0 | DEBT_ADDR | DA_TELNO2 | T | -1 | 261, 349 | |
| 1 | 1.0 | DEBT_ADDR | DA_TELNO3 | T | -1 | 501, 349 | |
| 1 | 1.0 | DEBT_ADDR | DA_FAXNO | T | -1 | 11, 373 | |
| 1 | 1.0 | DEBT_ADDR | DA_CELLNO | T | -1 | 261, 373 | |
| 1 | 1.0 | DEBT_ADDR | DA_EMAIL | T | -1 | 11, 409 | |
| 1 | 1.0 | DEBT_ADDR | DA_ADDR2 | I | -1 | 281, 265 | $VALIDATE 'CONVERT TO UPPERCASE C:UCASE |
| 1 | 1.0 | DEBT_ADDR | DA_ADDR3 | I | -1 | 281, 289 | $VALIDATE 'CONVERT TO UPPERCASE C:UCASE |
| 1 | 1.0 | DEBT_ADDR | DA_PCODE | I | -1 | 281, 313 | 'LP20091029 ON KASSIE'S REQUEST $SELECT S:AREA_CODE;I\DA_PCODE $VALIDATE 'CONVERT TO UPPERCASE C:UCASE 'DISPLAY ERROR MESSAGE IF THE VALUE IS NOT NUMERIC I:I\DA_PCODE;<>; DO(NUM) 'A:ISNUMERIC;I\DA_PCODE;W\TEMP 'I:W\TEMP;=;N 'D:ERROR - ENTER NUMERIC VALUES ONLY;ERRORM;I\DA_PCODE I:I\DA_ |
| 1 | 1.0 | DEBT_ADDR | DA_FNAME | I | -1 | 281, 193 | $VALIDATE 'MAKE THIS FIELD MANDATORY 'M: 'CONVERT TO UPPERCASE C:UCASE |
| 1 | 1.0 | DEBT_ADDR | DA_SNAME | I | -1 | 281, 217 | $VALIDATE 'MAKE THIS FIELD MANDATORY 'M: 'CONVERT TO UPPERCASE C:UCASE |
| 1 | 1.0 | DEBT_ADDR | DA_TELNO1 | I | -1 | 101, 349 | $VALIDATE 'CLEAR THE CONTENTS OF THIS TEMPORARY FIELD A:CONST;;W\TEMP 'DISPLAY ERROR MESSAGE IF THE VALUE IS NOT NUMERIC 'I:I\DA_TELNO1;<>; ' DO(NUM) ' A:ISNUMERIC;I\DA_TELNO1;W\TEMP 'I:W\TEMP;=;N 'D:ERROR - ENTER NUMERIC VALUES ONLY;ERRORM;I\DA_TELNO1 'DOEND(NUM) 'NO VALIDATION FOR ALL TEL |
| 1 | 1.0 | DEBT_ADDR | DA_TELNO2 | I | -1 | 341, 349 | $VALIDATE 'CLEAR THE CONTENTS OF THIS TEMPORARY FIELD A:CONST;;W\TEMP 'DISPLAY ERROR MESSAGE IF THE VALUE IS NOT NUMERIC 'I:I\DA_TELNO2;<>; ' DO(NUM) ' A:ISNUMERIC;I\DA_TELNO2;W\TEMP ' I:W\TEMP;=;N ' D:ERROR - ENTER NUMERIC VALUES ONLY;ERRORM;I\DA_TELNO2 ' DOEND(NUM) 'DISPLAY ERROR MESSAGE I |
| 1 | 1.0 | DEBT_ADDR | DA_TELNO3 | I | -1 | 581, 349 | $VALIDATE 'CLEAR THE CONTENTS OF THIS TEMPORARY FIELD A:CONST;;W\TEMP 'DISPLAY ERROR MESSAGE IF THE VALUE IS NOT NUMERIC 'I:I\DA_TELNO3;<>; ' DO(NUM) ' A:ISNUMERIC;I\DA_TELNO3;W\TEMP ' I:W\TEMP;=;N ' D:ERROR - ENTER NUMERIC VALUES ONLY;ERRORM;I\DA_TELNO3 ' DOEND(NUM) 'DISPLAY ERROR MESSAGE I |
| 1 | 1.0 | DEBT_ADDR | DA_FAXNO | I | -1 | 101, 373 | $VALIDATE 'CLEAR THE CONTENTS OF THIS TEMPORARY FIELD A:CONST;;W\TEMP 'DISPLAY ERROR MESSAGE IF THE VALUE IS NOT NUMERIC 'I:I\DA_FAXNO;<>; ' DO(NUM) ' A:ISNUMERIC;I\DA_FAXNO;W\TEMP ' I:W\TEMP;=;N ' D:ERROR - ENTER NUMERIC VALUES ONLY;ERRORM;I\DA_FAXNO ' DOEND(NUM) 'DISPLAY ERROR MESSAGE IF T |
| 1 | 1.0 | DEBT_ADDR | DA_CELLNO | I | -1 | 341, 373 | $VALIDATE 'CLEAR THE CONTENTS OF THIS TEMPORARY FIELD A:CONST;;W\TEMP 'DISPLAY ERROR MESSAGE IF THE VALUE IS NOT NUMERIC I:I\DA_CELLNO;<>; DO(NUM) A:ISNUMERIC;I\DA_CELLNO;W\TEMP I:W\TEMP;=;N D:ERROR - ENTER NUMERIC VALUES ONLY;ERRORM;I\DA_CELLNO DOEND(NUM) I:I\MARKET;<>;L1 DO(NOTL1) 'DI |
| 1 | 1.0 | DEBT_ADDR | DA_EMAIL | I | -1 | 101, 409 | $VALIDATE 'CLEAR THE CONTENTS OF THIS TEMPORARY FIELD A:CONST;;W\TEMP 'DISPLAY ERROR MESSAGE IF THE EMAIL ADDRESS DOES NOT HAVE AN @ SYMBOL I:I\DA_EMAIL;<>; DO(EMAIL) A:CONST;;W\TEMP U:NUMBER_VALIDATE;EMAIL_CHK;I\DA_EMAIL,@,W\TEMP I:W\TEMP;=;N D:EMAIL ADDRESS MUST HAVE THE "@" SYMBOL;ERRORM;I |
| 1 | 1.0 | DEBT_ADDR | DA_TITLE | D | -1 | 281, 169 | $DEFAULT 'LOAD THE COMBOBOX WITH VALUES B:ADDITEM;D\DA_TITLE;MR,MRS,MISS,DR,PROF,REV $VALIDATE 'CONVERT TO UPPERCASE C:CASE 'DISPLAY ERROR MESSAGE IF INVALID ENTRY IS ENTERED I:D\DA_TITLE;<>; B:VALIDATE;D\DA_TITLE;MR,MRS,MISS,DR,PROF,REV |
| 1 | 1.0 | Work 2 | I | 0 | 41, 571 | ||
| 1 | 1.0 | DEBT_ADDR | DA_DEFAULT | I | -1 | 101, 517 | $VALIDATE 'CONVERT TO UPPERCASE C:UCASE 'ALLOW USER TO ENTER ONLY 'Y' OR 'N' V:Y;N; 'REPLACE A BLANK WITH 'N' I:I\DA_DEFAULT;=; A:CONST;N;I\DA_DEFAULT 'CHECK IF THERE IS AN EXISTING DEFAULT ADDRESS I:I\DA_DEFAULT;=;Y DO(DEF) I:W\DEFAULT;<>;Y U:DEFAULT_ADDR;CHECK_ADDR;I\DA_CODE,I\DA_DEFAULT |
| 1 | 1.0 | DEBT_ADDR | DA_EMAIL2 | I | -1 | 101, 433 | $VALIDATE 'DISPLAY ERROR MESSAGE IF THE EMAIL ADDRESS DOES NOT HAVE AN @ SYMBOL I:I\DA_EMAIL2;<>; DO(EMAIL2) A:CONST;;W\TEMP U:NUMBER_VALIDATE;EMAIL_CHK;I\DA_EMAIL2,@,W\TEMP I:W\TEMP;=;N D:EMAIL ADDRESS MUST HAVE THE "@" SYMBOL;ERRORM;I\DA_EMAIL2 DOEND(EMAIL2) |
| 1 | 1.0 | DEBT_ADDR | DA_EMAIL3 | I | -1 | 101, 457 | $VALIDATE 'DISPLAY ERROR MESSAGE IF THE EMAIL ADDRESS DOES NOT HAVE AN @ SYMBOL I:I\DA_EMAIL3;<>; DO(EMAIL3) A:CONST;;W\TEMP U:NUMBER_VALIDATE;EMAIL_CHK;I\DA_EMAIL3,@,W\TEMP I:W\TEMP;=;N D:EMAIL ADDRESS MUST HAVE THE "@" SYMBOL;ERRORM;I\DA_EMAIL3 DOEND(EMAIL3) |
| 1 | 1.0 | DEBT_ADDR | DA_EMAIL4 | I | -1 | 101, 481 | $VALIDATE 'DISPLAY ERROR MESSAGE IF THE EMAIL ADDRESS DOES NOT HAVE AN @ SYMBOL I:I\DA_EMAIL4;<>; DO(EMAIL4) A:CONST;;W\TEMP U:NUMBER_VALIDATE;EMAIL_CHK;I\DA_EMAIL4,@,W\TEMP I:W\TEMP;=;N D:EMAIL ADDRESS MUST HAVE THE "@" SYMBOL;ERRORM;I\DA_EMAIL4 DOEND(EMAIL4) |
| 1 | 1.0 | DEBT_ADDR | DA_TYPE | I | -1 | 281, 121 | $SELECT 'DISPLAY SELECTION WINDOW S:ADDRESS_TYPE;I\DA_TYPE $SELECT6 'DISPLAY SELECTION WINDOW S:DEBTOR_ADDR_2;I\DA_TYPE;I\DA_TYPE $VALIDATE 'CLEAR LABEL A:CONST;;T\DA_TYPE_DESC 'MAKE TIS FIELD MANDATORY M: 'ZERO FILL TYPE TO 2 DIGITS A:LEN;I\DA_TYPE;W\LEN I:W\LEN;=;1 A:CON;"0";I\DA_TYPE;I\DA |
| 1 | 1.0 | DEBT_ADDR | DA_CODE | I | -1 | 281, 97 | $SELECT 'DISPLAY THE SELECTION WINDOW S:DEBTOR;I\DA_CODE $VALIDATE A:CONST;;T\NAME 'MAKE THIS FIELD MANDATORY M: 'CONVERT TO UPPERCASE C:UCASE 'DISPLAY ERROR MESSAGE IF INVALID CODE IS ENTERED F:DEBTOR_MAST;Y;DM_DEBTOR;T\NAME=DM_NAME;;I\DA_CODE $CALCULATE 'CLEAR ALL THE OTHER FIELDS A:CONST;;I\ |
| 1 | 1.0 | Work 1 | I | 0 | 381, 529 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 91 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 91 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 91 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 91 | ||
| 10 | 1.0 | ZX_SELECT | Z | 0 | 1, 91 |