Program drill-down
SUB_BUYER_CASH_MAN
DEBTOR MAINTENANCE SCREEN. Type MAN, base table DEBTOR_MAST.
Field inventory
242
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | CMD 2 | C | -1 | 291, 85 | $SELECT S:DEBTOR;I\DM_DEBTOR |
|
| 1 | 0.0 | CMD 3 | C | -1 | 141, 193 | $SELECT S:DEBTOR_TYPE;I\DM_DTYPE |
|
| 1 | 0.0 | CMD 5 | C | -1 | 141, 301 | $SELECT S:ENTRY;I\DM_ENTRYTYP |
|
| 1 | 0.0 | CMD 1 | C | -1 | 591, 265 | $SELECT S:BUYER_GROUP;I\DM_GROUP |
|
| 1 | 0.0 | CMD 1 | C | -1 | 141, 409 | $SELECT S:BUSINESS;I\DM_BUSS_TYPE |
|
| 1 | 0.0 | CMD 3 | C | -1 | 551, 445 | $SELECT S:AGENT_CODE_2;I\DM_AGENT |
|
| 1 | 0.0 | DEBTOR_MAST | DM_TITLE | D | -1 | 481, 157 | $DEFAULT 'ADD ITEMS INTO THE COMBOBOX B:ADDITEM;D\DM_TITLE;MR,MRS,MISS,DR,PROF,REV,SIR $VALIDATE 'MANDATORY 'M: 'UPPERCASE C:UCASE 'VALIDATE THE LANGUAGE I:D\DM_TITLE;<>; B:VALIDATE;D\DM_TITLE;MR,MRS,MISS,DR,PROF,REV,SIR |
| 1 | 0.0 | DEBTOR_MAST | DM_LANGUAGE | D | -1 | 481, 373 | $DEFAULT 'ADD ITEMS INTO THE COMBOBOX B:ADDITEM;D\DM_LANGUAGE;AFR,ENG,ZUL,XHO,TSW,SOT $VALIDATE I:D\DM_LANGUAGE;=; A:CONST;ENG;D\DM_LANGUAGE I:I\DM_DTYPE;=;A M: 'UPPERCASE C:UCASE 'TAKE THE FIRST THREE CHARACTERS ONLY A:LEFT;D\DM_LANGUAGE,3;W\TEMP A:VAR;W\TEMP;D\DM_LANGUAGE 'VALIDATE THE LA |
| 1 | 0.0 | H | -1 | 0, 0 | |||
| 1 | 0.0 | DEBTOR_MAST | DM_JDATE | I | 0 | 241, 541 | |
| 1 | 0.0 | NEW | I | 0 | 691, 181 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_SC_UNSEC | I | -1 | 111, 265 | $CALCULATE 'COMMENTED BY JD - THIS IS JUST SILLY 'I:I\DM_SC_UNSEC;=;Y 'A:CONST;;I\DM_CHG_CARDFEE $VALIDATE C:UCASE V:Y;N; I:I\DM_SC_UNSEC;=; A:CONST;N;I\DM_SC_UNSEC 'SPRING CHECK WAS DONE ON CHRISTO'S REQUEST 'DURBAN CHECK WAS ADDED BY LP20110623 ON CHRISTO'S REQUEST I:I\MARKET;=;18 DO(DUR) I:I\PARM;=; |
| 1 | 0.0 | Work 1 | I | 0 | 501, 49 | ||
| 1 | 0.0 | Work 1 | I | 0 | 271, 445 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_MARKET | I | 0 | 11, 49 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\DM_MARKET A:USERID;;I\USERID 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;I\PIN_REFUND=CM_PIN_REFUND,I\CUR=CM_CURR,T\MARKET=CM_NAME,T\MARKET2=CM_NAME,T\MARKET3=CM_NAME,W\CM_TRAN_FEE=CM_TRAN_FEE 'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL C:MCASE;;T\MARKET 'CONVER |
| 1 | 0.0 | DEBTOR_MAST | DM_AGENT | I | -1 | 481, 445 | $SELECT S:AGENT_CODE_2;I\DM_AGENT $VALIDATE A:CONST;;W\AGENT C:UCASE I:I\DM_DTYPE;=;A DO(ASE) M: O:ENABLEINPUT;I\DM_AGENT,C\AGENT 'UPPERCASE C:UCASE 'VALIDATE AGENT CODE AND LOAD HE DESCRIPTION F:AGENT_MAST;Y;AM_CODE;T\AGENT=AM_NAME;;I\DM_AGENT DOEND(ASE) I:I\DM_AGENT;<>; DO(A |
| 1 | 0.0 | DEBTOR_MAST | DM_CONTACT | I | -1 | 111, 373 | '20210528 THEUNIS $SELECT I:I\DM_IDNO;=;0000000000000 O:SETFOCUS;I\DM_IDNO $VALIDATE 'UPPERCASE C:UCASE |
| 1 | 0.0 | DEBTOR_MAST | DM_ENTRYTYP | I | -1 | 111, 301 | $SELECT S:ENTRY;I\DM_ENTRYTYP $VALIDATE 'MANDATORY 'M: 'UPPERCASE C:UCASE 'VALIDATE THE ENTRY TYPE AND LOAD THE DESCRIPTION I:I\DM_ENTRYTYP;<>; F:ENTRY_TYPE;Y;;T\ENTRY=ET_DESC;ET_TYPE='$I\DM_ENTRYTYP$';I\DM_ENTRYTYP $AFTER_READ 'A:CONST;;T\ENTRY 'VALIDATE THE ENTRY TYPE AND LOAD THE DESCRIPTIO |
| 1 | 0.0 | DEBTOR_MAST | DM_BUSS_TYPE | I | -1 | 111, 409 | $SELECT S:BUSINESS;I\DM_BUSS_TYPE $VALIDATE 'UPPERCASE C:UCASE I:I\DM_BUSS_TYPE;<>; DO(BGH) 'VALIDATE BUSS_TYPE AND LOAD THE DESCRIPTION F:BUSS_TYPE;Y;;T\BUSS_TYPE=BT_DESC;BT_TYPE='$I\DM_BUSS_TYPE$';I\DM_BUSS_TYPE DOEND(BGH) $AFTER_READ 'A:CONST;;I\DM_BUSS_TYPE 'VALIDATE BUSS_TYPE AND LOAD T |
| 1 | 0.0 | DEBTOR_MAST | DM_DTYPE | I | -1 | 111, 193 | $SELECT S:DEBTOR_TYPE;I\DM_DTYPE $VALIDATE 'ADDED BY LP20101026 ON CHRISTO'S AND SPRINGS REQUEST I:I\DM_DTYPE;=; A:CONST;B;I\DM_DTYPE 'MANDATORY M: 'UPPERCASE C:UCASE 'VALIDATE THE DEBTOR TYPE AND LOAD THE DESCRIPTION F:DEBTOR_TYPE;Y;;T\DTYPE=DT_DESC;DT_TYPE='$I\DM_DTYPE$';I\DM_DTYPE 'VALIDATE |
| 1 | 0.0 | DEBTOR_MAST | DM_NAME | I | -1 | 111, 157 | $VALIDATE 'MANDATORY M: 'UPPERCASE C:UCASE 'JER ADD 08042011 B $CALCULATE M: C:UCASE O:SETFOCUS;D\DM_TITLE I:I\DM_NAME;<>; U:DM_UPD_FUZZY;RN_GEN_FUZZY I:W\DM_NAME;=; DO(001) U:DM_UPD_FUZZY;RM_FUZ_COUNT I:I\FUZZCOUNT;>;0 DO(002) E:$GBLROOT$LEGEND\PROJ_FMS\BIN\MAINMENU.EXE P D |
| 1 | 0.0 | FUZZCOUNT | I | 0 | 691, 157 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_ABSA_MAIN_ACC | I | -1 | 111, 229 | $VALIDATE C:UCASE V:Y;N; I:I\DM_ABSA_MAIN_ACC;=; A:CONST;N;I\DM_ABSA_MAIN_ACC I:I\DM_ABSA_MAIN_ACC;=;Y DO(AB2) F:DEBTOR_MAST;;;I\TMP_ABSA=DM_DEBTOR;DM_ABSA_MAIN_ACC='Y' I:I\TMP_ABSA;<>; DO(BD1) I:I\DM_DEBTOR;<>;I\TMP_ABSA D:$I\TMP_ABSA$ IS ALREADY SET UP AS ABSA MAIN BUYER;ERRORM;I\DM_A |
| 1 | 0.0 | Work 2 | I | 0 | 141, 229 | ||
| 1 | 0.0 | Work 1 | I | 0 | 181, 49 | ||
| 1 | 0.0 | Work 3 | I | 0 | 631, 493 | ||
| 1 | 0.0 | Work 1 | I | 0 | 591, 529 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_PASSPORT_NO | I | -1 | 481, 301 | $VALIDATE 'UPPERCASE C:UCASE I:I\DM_PASSPORT_NO;<>; DO(PS1) F:DEBTOR_MAST;;;W\PASSPORT=DM_PASSPORT_NO;DM_MARKET='$I\DM_MARKET$' AND DM_PASSPORT_NO='$I\DM_PASSPORT_NO$' AND DM_DEBTOR <> '$I\DM_DEBTOR$' AND DM_BLOCKED <> 'Y' I:I\EXIST;=; DO(KW1) I:W\PASSPORT;=;I\DM_PASSPORT_NO D:PASSPORT NUMBER ALREAD |
| 1 | 0.0 | DEBTOR_MAST | DM_DEBTOR | I | -1 | 111, 85 | $SELECT S:DEBTOR;I\DM_DEBTOR $VALIDATE A:CONST;;I\FLAG_MOMZ 'MANDATORY M: 'UPPERCASE C:UCASE 'A:CONST;;I\ERROR 'I:I\MARKET;=;15 'DO(15) 'U:ALPHA_CHARACTERS;CHECK_ALPHABETS 'I:I\ERROR;=;Y 'D:ONLY THE FIRST TWO CHARACTERS MUST BE ALPHABETICAL;ERRORM;I\DM_DEBTOR 'DOEND(15) 'ADDED BY LAZ ON CHR |
| 1 | 0.0 | DEBTOR_MAST | DM_VATNO | I | -1 | 111, 445 | $VALIDATE I:I\DM_VATNO;=; DO(MAN) 'MANDATORY I:D\DM_ACCTYPE;=;SC DO(07) A:CONST;TO FOLLOW;I\DM_VATNO M: DOEND(07) I:D\DM_ACCTYPE;=;CR DO(01) I:I\DM_DTYPE;<>;C DO(08) A:CONST;TO FOLLOW;I\DM_VATNO M: DOEND(08) DOEND(01) A:CONS |
| 1 | 0.0 | POINT | I | 0 | 301, 265 | ||
| 1 | 0.0 | Work 2 | I | 0 | 591, 493 | ||
| 1 | 0.0 | AGENT | I | 0 | 71, 541 | ||
| 1 | 0.0 | CASHIER | I | 0 | 281, 265 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_ACCTYPE | I | -1 | 481, 193 | |
| 1 | 0.0 | DEBTOR_MAST | DM_DAYS_BUSS | I | -1 | 481, 409 | $VALIDATE 'UPPERCASE C:UCASE |
| 1 | 0.0 | EXIST | I | 0 | 211, 541 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_REMARK | I | -1 | 1, 505 | $VALIDATE 'UPPERCASE C:UCASE |
| 1 | 0.0 | Work 1 | I | 0 | 91, 541 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_CHG_CARDFEE | I | -1 | 481, 229 | $VALIDATE C:UCASE 'SPRING CHECK WAS DONE ON CHRISTO'S REQUEST I:I\MARKET;<>;23 DO(NOT_SPR) I:I\DM_CHG_CARDFEE;=; DO(WK5) I:I\DM_SC_UNSEC;=;Y D:YOU MUST ENTER 'Y' OR 'N'!!!;ERRORM;I\DM_CHG_CARDFEE I:I\DM_SC_UNSEC;<>;Y A:CONST;N;I\DM_CHG_CARDFEE DOEND(WK5) I:I\DM_CHG_CARDFEE;=;Y DO(DM |
| 1 | 0.0 | Work 1 | I | 0 | 151, 577 | ||
| 1 | 0.0 | Work 1 | I | 0 | 201, 49 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_CARDNO | I | 0 | 481, 85 | $VALIDATE I:I\DM_CARDNO;=; A:CONST;00;I\DM_CARDNO |
| 1 | 0.0 | DEBTOR_MAST | DM_FUZZY | I | 0 | 691, 229 | |
| 1 | 0.0 | Work 3 | I | 0 | 691, 205 | ||
| 1 | 0.0 | PASSPORT | I | 0 | 631, 301 | ||
| 1 | 0.0 | Work 1 | I | 0 | 351, 541 | ||
| 1 | 0.0 | Work 1 | I | 0 | 31, 49 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_SECOND_IDNO | I | -1 | 481, 481 | $VALIDATE A:CONST;;W\ID 'UPPERCASE C:UCASE I:I\DM_SECOND_IDNO;<>; DO(VA2) I:I\MARKET;=;18 DO(DBN) F:DEBTOR_MAST;;;W\ID=DM_IDNO;DM_MARKET='$I\DM_MARKET$' AND DM_IDNO='$I\DM_SECOND_IDNO$' AND DM_DEBTOR <> '$I\DM_DEBTOR$' AND DM_BLOCKED <> 'Y' I:I\EXIST;=; DO(VG1) I:W\ID;=;I\DM_SECOND_IDNO |
| 1 | 0.0 | DEBTOR_MAST | DM_DOB | I | -1 | 111, 337 | '$VALIDATE 'I:I\DM_DOB;<>; 'A:VAR;I\DM_DOB;W\DM_IDNO;;YYMMDD |
| 1 | 0.0 | Work 3 | I | 0 | 311, 577 | ||
| 1 | 0.0 | Work 4 | I | 0 | 421, 541 | ||
| 1 | 0.0 | MDACC | I | 0 | 741, 121 | ||
| 1 | 0.0 | OSBAL | I | 0 | 741, 97 | ||
| 1 | 0.0 | PARM | I | 0 | 131, 49 | $DEFAULT U:MENU_GROUP;LOOKUP |
|
| 1 | 0.0 | LEN | I | 0 | 31, 541 | ||
| 1 | 0.0 | TEMP | I | 0 | 51, 541 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_GROUP | I | -1 | 481, 265 | $SELECT S:BUYER_GROUP;I\DM_GROUP $VALIDATE A:CONST;;T\DM_GROUP_DESC 'MANDATORY I:I\MARKET;=;18 DO(18) M: DOEND(18) 'UPPERCASE C:UCASE I:I\DM_GROUP;<>; F:BUYER_GROUP;Y;BG_CODE;T\DM_GROUP_DESC=BG_DESC;BG_DELIND<>'Y';I\DM_GROUP $AFTER_READ I:I\DM_GROUP;<>; F:BUYER_GROUP;Y;BG_CODE;T\DM_GROUP_DE |
| 1 | 0.0 | DEBTOR_MAST | DM_IDNO | I | -1 | 481, 337 | $VALIDATE A:CONST;;W\ID 'MANDATORY 'I:D\DM_ACCTYPE;=;SC 'M: 'I:D\DM_ACCTYPE;=;CR 'DO(02) 'I:I\DM_DTYPE;<>;C 'M: 'DOEND(02) 'UPPERCASE C:UCASE I:I\MARKET;=;18 DO(DBN) M: F:DEBTOR_MAST;;;W\ID=DM_IDNO;DM_MARKET='$I\DM_MARKET$' AND DM_IDNO='$I\DM_IDNO$' AND DM_DEBTOR <> '$I\DM_DEBTOR$' |
| 1 | 0.0 | Label 2 | T | -1 | 181, 409 | ||
| 1 | 0.0 | Label 1 | T | -1 | 591, 445 | ||
| 1 | 0.0 | Label 34 | T | -1 | 581, 193 | ||
| 1 | 0.0 | Label 1 | T | -1 | 621, 265 | ||
| 1 | 0.0 | Label 1 | T | -1 | 371, 301 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_ABSA_MAIN_ACC | T | -1 | 1, 229 | |
| 1 | 0.0 | T | -1 | 371, 157 | |||
| 1 | 0.0 | T | -1 | 1, 409 | |||
| 1 | 0.0 | Label 4 | T | -1 | 181, 193 | ||
| 1 | 0.0 | T | -1 | 371, 409 | |||
| 1 | 0.0 | T | -1 | 1, 445 | |||
| 1 | 0.0 | T | -1 | 371, 193 | |||
| 1 | 0.0 | T | -1 | 1, 301 | |||
| 1 | 0.0 | T | -1 | 1, 193 | |||
| 1 | 0.0 | CLIENT_MAST | CM_CODE | T | -1 | 1, 25 | |
| 1 | 0.0 | T | -1 | 1, 157 | |||
| 1 | 0.0 | Label 6 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 5 | T | -1 | 671, 25 | ||
| 1 | 0.0 | T | -1 | 371, 337 | |||
| 1 | 0.0 | Label 8 | T | -1 | 301, 49 | ||
| 1 | 0.0 | Label 1 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 3 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 4 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 4 | T | -1 | 1, 481 | ||
| 1 | 0.0 | Label 4 | T | -1 | 561, 373 | ||
| 1 | 0.0 | Label 6 | T | -1 | 181, 301 | ||
| 1 | 0.0 | Label 1 | T | -1 | 371, 445 | ||
| 1 | 0.0 | T | -1 | 371, 373 | |||
| 1 | 0.0 | T | -1 | 371, 265 | |||
| 1 | 0.0 | Label 1 | T | -1 | 1, 337 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_SC_UNSEC | T | -1 | 1, 265 | |
| 1 | 0.0 | Label 2 | T | -1 | 371, 481 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_CHG_CARDFEE | T | -1 | 371, 229 | |
| 1 | 0.0 | DM_CARDNO | T | 0 | 361, 85 | ||
| 1 | 0.0 | Label 1 | T | -1 | 1, 373 | ||
| 1 | 0.0 | CLIENT_MAST | CM_ADD1 | T | 0 | 271, 229 | |
| 1 | 0.0 | Label 1 | T | -1 | 1, 85 | ||
| 1 | 0.0 | Label 1 | T | -1 | 1, 121 | ||
| 1 | 0.0 | I | -1 | 111, 121 | $CALCULATE I:I\DM_SUB_DEBTOR;<>; D:LEAVE IT BLANK FOR AUTO GENERATE;ERRORM;I\DM_SUB_DEBTOR U:AUTO_SUB_BUYER;AUTO |
||
| 1 | 0.0 | DEBTOR_MAST | DM_MAIN_DEBTOR | I | -1 | 481, 121 | |
| 2 | 0.0 | CMD 3 | C | -1 | 331, 133 | $SELECT ''S:REASON4;I\DM_RB_REASON S:REASON5;I\DM_RB_REASON |
|
| 2 | 0.0 | CMD 1 | C | -1 | 331, 517 | $SELECT S:CASH;I\DM_CASH_DEP_FEE |
|
| 2 | 0.0 | CMD 11 | C | -1 | 331, 97 | $SELECT ''S:REASON4;I\DM_SB_REASON S:REASON5;I\DM_SB_REASON |
|
| 2 | 0.0 | H | -1 | 0, 0 | |||
| 2 | 0.0 | Work 4 | I | 0 | 581, 229 | ||
| 2 | 0.0 | DEBTOR_MAST | DM_PIN_SALES | I | -1 | 301, 241 | '$VALIDATE 'JER DEL 16042011 $CALCULATE 'UPPERCASE C:UCASE 'VALIDATE THE FIELD V:Y;N; 'DEFAULT TO 'N' I:I\DM_PIN_SALES;=; A:CONST;N;I\DM_PIN_SALES I:I\MARKET;<>;19 DO(DLR) I:I\DM_PIN_SALES;=;N DO(NO) ' O:HIDE;I\CONFIRM,T\CONFIRM 'JER DEL 16042011 ' A:CONST;;I\DM_PINNO,I\DM_RESCAN 'J |
| 2 | 0.0 | I | -1 | 231, 265 | $DEFAULT A:SETPWFIELD;W\DM_PINNO A:SETPWFIELD;W\CONFIRM 'HIDE FIELD 'O:HIDE;I\CONFIRM,T\CONFIRM $CALCULATE I:W\DM_PINNO;=; DO(001) A:CONST;1SC2*;W\DM_PINNO O:HIDE;W\CONFIRM,T\CONFIRM O:DISABLEINPUT;W\CONFIRM DOEND(001) I:I\DM_PINNO;=; DO(001) I:W\DM_PINNO;=;1SC2* DO(00 |
||
| 2 | 0.0 | Work 3 | I | 0 | 291, 553 | ||
| 2 | 0.0 | DEBTOR_MAST | DM_CASH_DEP_FEE | I | -1 | 231, 517 | $SELECT S:CASH;I\DM_CASH_DEP_FEE $VALIDATE I:I\DM_CASH_DEP_FEE;<>; F:CASH_DEPOSIT_FEE;Y;;;CF_FEE_CODE='$I\DM_CASH_DEP_FEE$';I\DM_CASH_DEP_FEE |
| 2 | 0.0 | Work 1 | I | 0 | 451, 541 | ||
| 2 | 0.0 | Work 2 | I | 0 | 501, 541 | ||
| 2 | 0.0 | DEBTOR_MAST | DM_SLSDKT_PRT | I | -1 | 301, 205 | $CALCULATE 'DEFAULT TO 'A' I:I\DM_SLSDKT_PRT;=; A:CONST;A;I\DM_SLSDKT_PRT I:I\DM_SLSDKT_PRT;<>;A DO(001) I:I\DM_SLSDKT_PRT;<>;C DO(002) D:INCORRECT VALUE ENTERED CODE MUST BE A OR C;ERRORM;I\DM_SLSDKT_PRT DOEND(002) DOEND(001) |
| 2 | 0.0 | DEBTOR_MAST | DM_REFUND_BLOCK | I | -1 | 141, 133 | $VALIDATE C:UCASE 'VALIDATE THE FIELD V:Y;N; 'DO THE FOLLOWING ONLY IF DEBTOR TYPE IS CASHIER I:I\DM_DTYPE;=;C DO(01) I:I\DM_REFUND_BLOCK;=; A:CONST;Y;I\DM_REFUND_BLOCK I:I\DM_REFUND_BLOCK;<>;Y DO(02) I:I\DM_REFUND_BLOCK;<>; DO(03) A:CONST;;I\DM_RB_ |
| 2 | 0.0 | DEBTOR_MAST | DM_DISCA | I | -1 | 231, 493 | $VALIDATE I:I\DM_DISCA;<;0;NUM D:DISCOUNT PERCENTAGE CANNOT BE LESS THAN ZERO;ERRORM;I\DM_DISCA I:I\DM_DISCA;=;0;NUM O:ENABLEINPUT;I\DM_DISCP I:I\DM_DISCA;>;0;NUM DO(02) A:CONST;0.00;I\DM_DISCP O:DISABLEINPUT;I\DM_DISCP DOEND(02) |
| 2 | 0.0 | DEBTOR_MAST | DM_DISCP | I | -1 | 231, 469 | $VALIDATE I:I\DM_DISCP;<;0;NUM D:DISCOUNT PERCENTAGE CANNOT BE LESS THAN ZERO;ERRORM;I\DM_DISCP I:I\DM_DISCP;>;100;NUM D:CANNOT BE GREATER THAN 100 %;ERRORM;I\DM_DISCP I:I\DM_DISCP;=;0;NUM O:ENABLEINPUT;I\DM_DISCA I:I\DM_DISCP;>;0;NUM DO(01) A:CONST;0.00;I\DM_DISCA O:DISABLEINPUT;I\DM_D |
| 2 | 0.0 | DEBTOR_MAST | DM_PINNO | I | 0 | 11, 541 | |
| 2 | 0.0 | DEBTOR_MAST | DM_EXPORT_IND | I | -1 | 301, 397 | $VALIDATE 'UPPERCASE C:UCASE 'VALIDATE THE FIELD V:N;Y; 'CHECK ADDED BY JD 20181203 TO DISALLOW USE OF EXPORT INDICATORS FOR ANY MARKET OTHER THAN PTA I:I\DM_MARKET;<>;11 DO(NOPTA) I:I\DM_EXPORT_IND;=;Y DO(NEYNEY) A:CONST;N;I\DM_EXPORT_IND D:YOUR MARKET MAY NOT USE EXPORTERS;ERRORM;I\DM_E |
| 2 | 0.0 | DEBTOR_MAST | DM_SALE_BLOCK | I | -1 | 141, 97 | $VALIDATE C:UCASE 'VALIDATE THE FIELD V:Y;N; 'DO THE FOLLWING ONLY IF DEBTOR TYPE IS CASHIER I:I\DM_DTYPE;=;C DO(01) I:I\DM_SALE_BLOCK;=; A:CONST;Y;I\DM_SALE_BLOCK I:I\DM_SALE_BLOCK;<>;Y DO(02) I:I\DM_SALE_BLOCK;<>; DO(03) A:CONST;;I\DM_SB_REASO |
| 2 | 0.0 | DEBTOR_MAST | DM_CLUB_MEM | I | -1 | 301, 433 | $VALIDATE 'UPPERCASE C:UCASE 'VALIDATE THE FIELD V:N;Y; 'DEFAULT TO 'N' I:I\DM_CLUB_MEM;=; A:CONST;N;I\DM_CLUB_MEM I:I\DM_CLUB_MEM;=;N DO(CLUB) A:CONST;;I\DM_CLUB_NO O:DISABLEINPUT;I\DM_CLUB_NO DOEND(CLUB) I:I\DM_CLUB_MEM;=;Y DO(CLUB2) O:ENABLEINPUT;I\DM_CLUB_NO DOEND(CLU |
| 2 | 0.0 | DEBTOR_MAST | DM_SB_REASON | I | -1 | 301, 97 | $SELECT 'S:REASON4;I\DM_SB_REASON S:REASON5;I\DM_SB_REASON $VALIDATE 'MANDATORY I:I\DM_SALE_BLOCK;=;Y DO(Z88) M: 'UPPERCASE C:UCASE 'DISPLAY THE REASON DESCRIPTION F:REASON_MAST;Y;RSN_REASON;T\REASON=RSN_DESC;RSN_TYPE = 'BL';I\DM_SB_REASON 'DISPLAY THE REASON DATE |
| 2 | 0.0 | DEBTOR_MAST | DM_RB_REASON | I | -1 | 301, 133 | $SELECT 'S:REASON4;I\DM_RB_REASON S:REASON5;I\DM_RB_REASON $VALIDATE 'MANDATORY I:I\DM_REFUND_BLOCK;=;Y M: 'UPPERCASE C:UCASE 'DISPLAY THE REASON DESCRIPTION I:I\DM_REFUND_BLOCK;=;Y F:REASON_MAST;Y;RSN_REASON;T\REASON2=RSN_DESC;RSN_TYPE = 'BL';I\DM_RB_REASON 'DISPLAY THE REASON DATE F:DEBTOR_ |
| 2 | 0.0 | Work 1 | I | 0 | 591, 541 | ||
| 2 | 0.0 | Work 2 | I | 0 | 641, 541 | ||
| 2 | 0.0 | Work 3 | I | 0 | 691, 541 | ||
| 2 | 0.0 | Work 4 | I | 0 | 181, 577 | ||
| 2 | 0.0 | Work 3 | I | 0 | 551, 541 | ||
| 2 | 0.0 | Work 2 | I | 0 | 11, 565 | ||
| 2 | 0.0 | DEBTOR_MAST | DM_REFUND_PIN | I | 0 | 181, 553 | |
| 2 | 0.0 | DEBTOR_MAST | DM_INACTIVE_DATE | I | 0 | 431, 217 | $BEFORE_WRITE F:DEBTOR_MAST;;;W\INACTIVE=DM_INACTIVE;DM_DEBTOR = '$I\DM_DEBTOR$' I:I\INACTIVE_BUYER;=;Y DO(1) A:DATE;YYYY/MM/DD;I\INACTIVE_DATE DOEND(1) |
| 2 | 0.0 | Work 4 | I | 0 | 431, 193 | ||
| 2 | 0.0 | Work 3 | I | 0 | 581, 205 | ||
| 2 | 0.0 | Work 2 | I | 0 | 151, 61 | ||
| 2 | 0.0 | CONFIRM | I | -1 | 231, 289 | $CALCULATE I:W\DM_PINNO;<>;1SC2* M: I:W\DM_PINNO;<>1SC2* DO(CHK) I:W\DM_PINNO;<>;W\CONFIRM D:PIN NUMBERS DO NOT MATCH - TRY AGAIN;ERRORM;W\CONFIRM DOEND(CHK) I:W\DM_PINNO;=;W\CONFIRM DO(001) A:VAR;W\CONFIRM;W\REAL_SALES_PIN A:VAR;W\CONFIRM;I\ENC_UNIV_PIN U:DM_UPD_FUZZY;ENCRY |
|
| 2 | 0.0 | DEBTOR_MAST | DM_PROV_SALE | I | -1 | 301, 325 | $VALIDATE 'UPPERCASE C:UCASE 'VALIDATE THE FIELD V:Y;N; 'DEFAULT TO 'N' I:I\DM_PROV_SALE;=; A:CONST;N;I\DM_PROV_SALE I:I\DM_PROV_SALE;=;Y DO(1) I:I\DM_DTYPE;<>;B D:PROVISIONAL SALES CANNOT BE ALLOWED FOR THIS DEBTOR;ERRORM;I\DM_PROV_SALE DOEND(1) |
| 2 | 0.0 | DEBTOR_MAST | DM_BLOCKED | I | -1 | 301, 361 | $VALIDATE A:CONST;;W\ID2,W\BUYER 'UPPERCASE C:UCASE 'VALIDATE THE FIELD V:Y;N; 'DEFAULT TO 'N' I:I\DM_BLOCKED;=; A:CONST;N;I\DM_BLOCKED 'VALIDATING ID NUMBER I:I\MARKET;<>;11 DO(IDCHK) I:I\MARKET;<>;19 DO(SL1) I:I\MARKET;<>;15 DO(CPT) I:I\DM_BLOCKED;=;N DO(CHK) I:I\DM_IDNO;<>; D |
| 2 | 0.0 | DEBTOR_MAST | DM_RESCAN | I | -1 | 301, 169 | $VALIDATE 'UPPERCASE C:UCASE 'VALIDATE THE FIELD V:Y;N; 'DEFAULT TO 'Y' FOR KIMBERLY I:I\MARKET;=;14 DO(C91) I:I\DM_RESCAN;=; A:CONST;Y;I\DM_RESCAN DOEND(C91) 'DEFAULT TO 'N' FOR EVERYONE ELSE I:I\MARKET;<>;14 DO(F91) I:I\DM_RESCAN;=; A:CONST;N;I\DM_RESCAN DOEND(F91) |
| 2 | 0.0 | DEBTOR_MAST | DM_SB_DATE | I | 0 | 681, 169 | |
| 2 | 0.0 | Work 1 | I | 0 | 391, 553 | ||
| 2 | 0.0 | Work 2 | I | 0 | 331, 553 | ||
| 2 | 0.0 | Label 38 | T | -1 | 381, 133 | ||
| 2 | 0.0 | Label 39 | T | -1 | 11, 265 | ||
| 2 | 0.0 | Label 46 | T | -1 | 11, 325 | ||
| 2 | 0.0 | Label 47 | T | -1 | 11, 361 | ||
| 2 | 0.0 | Label 1 | T | -1 | 11, 469 | ||
| 2 | 0.0 | Label 2 | T | -1 | 11, 493 | ||
| 2 | 0.0 | Label 1 | T | -1 | 11, 433 | ||
| 2 | 0.0 | Label 3 | T | -1 | 401, 409 | ||
| 2 | 0.0 | Label 14 | T | -1 | 11, 397 | ||
| 2 | 0.0 | Label 16 | T | -1 | 401, 385 | ||
| 2 | 0.0 | Label 1 | T | 0 | 11, 289 | ||
| 2 | 0.0 | DEBTOR_MAST | DM_BUYER_STATEMENT | T | -1 | 401, 433 | |
| 2 | 0.0 | DEBTOR_MAST | DM_CASH_DEP_FEE | T | -1 | 11, 517 | |
| 2 | 0.0 | Label 1 | T | -1 | 11, 205 | ||
| 2 | 0.0 | T | -1 | 401, 265 | |||
| 2 | 0.0 | Label 8 | T | -1 | 301, 49 | ||
| 2 | 0.0 | Label 1 | T | -1 | 291, 25 | ||
| 2 | 0.0 | Label 2 | T | -1 | 1, 25 | ||
| 2 | 0.0 | Label 3 | T | -1 | 621, 25 | ||
| 2 | 0.0 | Label 4 | T | -1 | 621, 49 | ||
| 2 | 0.0 | Label 5 | T | -1 | 671, 25 | ||
| 2 | 0.0 | Label 6 | T | -1 | 671, 49 | ||
| 2 | 0.0 | Label 48 | T | -1 | 571, 97 | ||
| 2 | 0.0 | DEBTOR_MAST | DM_RB_DATE | T | -1 | 691, 133 | |
| 2 | 0.0 | DEBTOR_MAST | DM_SB_DATE | T | -1 | 691, 97 | |
| 2 | 0.0 | Label 8 | T | -1 | 401, 350 | ||
| 2 | 0.0 | T | -1 | 201, 97 | |||
| 2 | 0.0 | T | -1 | 11, 133 | |||
| 2 | 0.0 | T | -1 | 201, 133 | |||
| 2 | 0.0 | DEBTOR_MAST | DM_PRT_AVAIL | T | -1 | 401, 481 | |
| 2 | 0.0 | DEBTOR_MAST | DM_PRT_CONDENSED | T | -1 | 401, 457 | |
| 2 | 0.0 | Label 1 | T | -1 | 401, 325 | ||
| 2 | 0.0 | DEBTOR_MAST | DM_COMP_REG | T | -1 | 401, 505 | |
| 2 | 0.0 | Label 5 | T | -1 | 401, 289 | ||
| 2 | 0.0 | T | -1 | 571, 133 | |||
| 2 | 0.0 | T | -1 | 11, 97 | |||
| 2 | 0.0 | T | -1 | 11, 169 | |||
| 2 | 0.0 | T | -1 | 381, 97 | |||
| 2 | 0.0 | T | -1 | 11, 241 | |||
| 2 | 1.0 | DEBTOR_MAST | DM_BUYER_STATEMENT | I | -1 | 671, 433 | $CALCULATE C:UCASE V:Y;N; I:I\MARKET;=;18 DO(2DZ) I:I\DM_BUYER_STATEMENT;=; A:CONST;N;I\DM_BUYER_STATEMENT DOEND(2DZ) 'ADDED BY JD 2011-03-30 I:I\MARKET;=;17 DO(FR4) I:D\DM_ACCTYPE;=;SC DO(CE3) I:I\DM_BUYER_STATEMENT;=; A:CONST;N;I\DM_BUYER_STATEMENT DOEND(CE3) DOEND(FR4) I:I\MA |
| 2 | 1.0 | DEBTOR_MAST | DM_EXPLIM | I | -1 | 571, 385 | $VALIDATE I:K\DM_EXPORT_IND;=;1 DO(L) M: I:I\DM_EXPLIM;<;0;NUM D:ERROR - THE EXPORT LIMIT MUST BE GREATER THAN ZERO;ERRORM;I\DM_EPXLIM DOEND(L) I:I\DM_EXPLIM;<>; DO(N) I:I\DM_EXPLIM;<;0;NUM D:ERROR - THE EXPORT LIMIT MUST BE GREATER THAN ZERO;ERRORM;I\DM_EPXLIM DOEND(N) |
| 2 | 1.0 | DEBTOR_MAST | DM_CLUB_NO | I | -1 | 671, 409 | $VALIDATE 'DEFAULT TO 'N' I:I\DM_CLUB_MEM;=;Y M: 'UPPERCASE C:UCASE |
| 2 | 1.0 | I | -1 | 671, 265 | 'JER ADD 15042011 B $DEFAULT A:SETPWFIELD;W\DM_REFUND_PIN A:SETPWFIELD;W\CNF_REFUND_PIN $CALCULATE I:W\DM_REFUND_PIN;=; DO(001) A:CONST;1SC2*;W\DM_REFUND_PIN O:HIDE;W\CONFIRM,T\CNF_REFUND_PIN O:DISABLEINPUT;W\CNF_REFUND_PIN DOEND(001) I:I\PIN_REFUND;<>;N DO(25S) I:I\DM_REFUND_P |
||
| 2 | 1.0 | Work 6 | I | -1 | 671, 289 | $CALCULATE I:W\CNF_REFUND_PIN;<>;W\DM_REFUND_PIN D:CONFIRMED PIN NOT THE SAME AS PIN PREVIOUSLY ENTERED;ERRORM;I\CNF_REFUND_PIN I:W\CNF_REFUND_PIN;=;W\DM_REFUND_PIN DO(001) A:VAR;W\CNF_REFUND_PIN;W\REAL_REF_PIN A:VAR;W\CNF_REFUND_PIN;I\ENC_UNIV_PIN U:DM_UPD_FUZZY;ENCRYPT_PIN A:VAR;I\ENC_ |
|
| 2 | 1.0 | DEBTOR_MAST | DM_COMP_REG | I | -1 | 671, 505 | |
| 2 | 1.0 | DEBTOR_MAST | DM_INACTIVE | I | -1 | 671, 325 | '$VALIDATE 'C:UCASE 'V:Y;N 'I:I\INACTIVE_BUYER;=; 'A:CONST;N;I\INACTIVE_BUYER $VALIDATE 'UPPERCASE C:UCASE 'VALIDATE THE FIELD V:N;Y; 'DEFAULT TO 'N' I:I\INACTIVE_BUYER;=; A:CONST;N;I\INACTIVE_BUYER |
| 2 | 1.0 | DEBTOR_MAST | DM_PRT_CONDENSED | I | -1 | 671, 457 | $VALIDATE I:I\DM_PRT_CONDENSED;=; A:CONST;N; C:UCASE V:Y;N; |
| 2 | 1.0 | DEBTOR_MAST | DM_PRT_AVAIL | I | -1 | 671, 481 | $VALIDATE I:I\DM_PRT_AVAIL;=; A:CONST;Y; C:UCASE V:Y;N; |
| 2 | 1.0 | DEBTOR_MAST | DM_BLACKLIST | I | -1 | 671, 350 | $VALIDATE 'UPPERCASE C:UCASE 'VALIDATE THE FIELD V:Y;N; 'DEFAULT TO 'N' I:I\DM_BLACKLIST;=; A:CONST;N;I\DM_BLACKLIST |
| 3 | 0.0 | CMD 4 | C | -1 | 311, 121 | $SELECT 'DISPLAY SELECTION WINDOW S:ADDRESS_TYPE;I\DA_TYPE |
|
| 3 | 0.0 | CMD 1 | C | -1 | 331, 313 | $SELECT S:AREA_CODE;I\DA_PCODE |
|
| 3 | 0.0 | H | -1 | 1, 91 | |||
| 3 | 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 |
|
| 3 | 0.0 | Work 1 | I | 0 | 31, 181 | ||
| 3 | 0.0 | Work 1 | I | 0 | 101, 571 | ||
| 3 | 0.0 | Work 3 | I | 0 | 321, 517 | ||
| 3 | 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 |
||
| 3 | 0.0 | DEBT_ADDR | DA_TYPE | T | -1 | 151, 121 | |
| 3 | 0.0 | Label 1 | T | -1 | 421, 97 | ||
| 3 | 0.0 | Label 2 | T | -1 | 151, 493 | ||
| 3 | 0.0 | Label 2 | T | -1 | 1, 25 | ||
| 3 | 0.0 | Label 3 | T | -1 | 621, 25 | ||
| 3 | 0.0 | Label 4 | T | -1 | 621, 49 | ||
| 3 | 0.0 | Label 1 | T | -1 | 291, 25 | ||
| 3 | 0.0 | Label 8 | T | -1 | 261, 49 | ||
| 3 | 0.0 | DEBT_ADDR | DA_NAME | T | -1 | 151, 145 | |
| 3 | 0.0 | Label 5 | T | -1 | 351, 121 | ||
| 3 | 0.0 | Label 6 | T | -1 | 671, 49 | ||
| 3 | 0.0 | Label 5 | T | -1 | 671, 25 | ||
| 3 | 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 |
| 3 | 1.0 | Work 2 | I | 0 | 41, 571 | ||
| 3 | 1.0 | DEBT_ADDR | DA_DEFAULT | I | -1 | 281, 493 | $VALIDATE I:I\DA_TYPE;<>; DO(1) '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; |
| 3 | 1.0 | Work 1 | I | 0 | 371, 493 | ||
| 3 | 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 $CALCULATE F:DEBT_ADDR;;;W\DEFAULT=DA_DEFAULT,I\EXISTADDR=DA_CODE,I\DA_NAME=DA_NAME,D\DA_TITLE=DA_TITLE,I\DA_FNAME=DA_FNAME,I\DA_SNAME=DA_SNAME,I\DA_ADDR1=DA_ADDR1,I\DA_ADDR2=DA |
| 3 | 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 |
| 3 | 1.0 | NUMTST | I | 0 | 21, 571 | ||
| 3 | 1.0 | DEBT_ADDR | DA_NAME | I | -1 | 281, 145 | $VALIDATE 'MAKE THIS FIELD MANDATORY 'M: 'CONVERT TO UPPERCASE C:UCASE |
| 3 | 1.0 | DEBT_ADDR | DA_ADDR2 | I | -1 | 281, 265 | $VALIDATE 'CONVERT TO UPPERCASE C:UCASE |
| 3 | 1.0 | DEBT_ADDR | DA_ADDR3 | I | -1 | 281, 289 | $VALIDATE 'CONVERT TO UPPERCASE C:UCASE |
| 3 | 1.0 | DEBT_ADDR | DA_SNAME | I | -1 | 281, 217 | $VALIDATE 'MAKE THIS FIELD MANDATORY 'M: 'CONVERT TO UPPERCASE C:UCASE |
| 3 | 1.0 | DEBT_ADDR | DA_PCODE | I | -1 | 281, 313 | $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_PCODE;=;0000 D:INVALID ENTR |
| 3 | 1.0 | DEBT_ADDR | DA_FNAME | I | -1 | 281, 193 | $VALIDATE 'MAKE THIS FIELD MANDATORY 'M: 'CONVERT TO UPPERCASE C:UCASE |
| 3 | 1.0 | DEBT_ADDR | DA_TELNO3 | I | -1 | 281, 397 | $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 |
| 3 | 1.0 | DEBT_ADDR | DA_FAXNO | I | -1 | 281, 421 | $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 |
| 3 | 1.0 | DEBT_ADDR | DA_EMAIL | I | -1 | 281, 469 | $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 |
| 3 | 1.0 | DEBT_ADDR | DA_CELLNO | I | -1 | 281, 445 | $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) 'DISPLAY ERROR MESSAGE IF THE |
| 3 | 1.0 | DEBT_ADDR | DA_TELNO2 | I | -1 | 281, 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_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 |
| 3 | 1.0 | DEBT_ADDR | DA_TELNO1 | I | -1 | 281, 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 |
| 3 | 1.0 | DEBT_ADDR | DA_FNAME | T | -1 | 151, 193 | |
| 3 | 1.0 | DEBT_ADDR | DA_PCODE | T | -1 | 151, 313 | |
| 3 | 1.0 | DEBT_ADDR | DA_ADDR1 | T | -1 | 151, 241 | |
| 3 | 1.0 | DEBT_ADDR | DA_TITLE | T | -1 | 151, 169 | |
| 3 | 1.0 | DEBT_ADDR | DA_TELNO2 | T | -1 | 151, 373 | |
| 3 | 1.0 | DEBT_ADDR | DA_TELNO3 | T | -1 | 151, 397 | |
| 3 | 1.0 | DEBT_ADDR | DA_FAXNO | T | -1 | 151, 421 | |
| 3 | 1.0 | DEBT_ADDR | DA_CELLNO | T | -1 | 151, 445 | |
| 3 | 1.0 | DEBT_ADDR | DA_EMAIL | T | -1 | 151, 469 | |
| 3 | 1.0 | DEBT_ADDR | DA_TELNO1 | T | -1 | 151, 349 | |
| 3 | 1.0 | DEBT_ADDR | DA_SNAME | T | -1 | 151, 217 | |
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 0, 0 | $CALCULATE I:I\CUR;=;R DO(R) U:ID_TESTS;SA I:I\DM_IDNO;<>; DO(NN) I:W\LEN;<>;13;NUM D:ERROR - ID NO MUST BE 13 DIGITS;ERRORM;I\DM_IDNO DOEND(NN) DOEND(R) I:I\CUR;<>;R DO(T) U:ID_TESTS;SA DOEND(T) $UPDATE U:STORE_UNENCRYPTED;SAVE 'U:UPDATE_DEBTOR_ADDR |
|
| 10 | 0.0 | ZX_DELETE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 0 |