Freshmark replication server

freshmark-canonical

Program drill-down

DEBTOR_ADDR_MAN

DEBTOR AND ADRESS MAINTENANCE SCREEN. Type MAN, base table DEBTOR_MAST.

Field inventory

169

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 2 C -1 291, 121 
$SELECT  S:DEBTOR;I\DM_DEBTOR
1 0.0 H -1 0, 0
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_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_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 DEBTOR_MAST DM_PASSPORT_NO I -1 381, 193 
$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, 121 
$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, 229 
$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 DEBTOR_MAST DM_IDNO I -1 111, 193 
$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 Work 1 I 0 201, 49
1 0.0 PASSPORT I 0 541, 193
1 0.0 PARM I 0 131, 49 
$DEFAULT  U:MENU_GROUP;LOOKUP
1 0.0 Label 6 T -1 671, 49
1 0.0 Label 5 T -1 671, 25
1 0.0 T -1 1, 193
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 T -1 1, 229
1 0.0 CLIENT_MAST CM_CODE T -1 1, 25
1 0.0 T -1 1, 157
1 0.0 Label 1 T -1 1, 373
1 0.0 Label 1 T -1 1, 121
1 0.0 Label 1 T -1 281, 193
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 DEBT_ADDR DA_TYPE T -1 151, 121
3 0.0 CMD 14 C -1 621, 409 
$SELECT  S:VAT_CODE;I\DM_TRANSVAT
3 0.0 DEBTOR_MAST DM_AGE_IND D -1 531, 205 
$DEFAULT  B:ADDITEM;D\DM_AGE_IND;C,T        $VALIDATE    I:D\DM_AGE_IND;=;  A:CONST;C;D\DM_AGE_IND    C:UCASE  M:    I:D\DM_AGE_IND;<>;  B:VALIDATE;D\DM_AGE_IND;C,T    I:D\DM_AGE_IND;=;T  A:CONST;TERMS BASED;T\AGE    I:D\DM_AGE_IND;=;C  A:CONST;CALENDAR;T\AGE      $AFTER_READ  I:D\DM_AGE_IND;=;T  A:CONST;TERMS BASED;T\
3 0.0 DEBTOR_MAST DM_OLD_CRLIMIT I 0 341, 229
3 0.0 DEBTOR_MAST DM_LPDATE I -1 481, 445
3 0.0 DEBTOR_MAST DM_PURCH_DATE I -1 651, 445
3 0.0 DATE TEMP I 0 11, 529
3 0.0 RESULT I 0 31, 529
3 0.0 CM_TRAN_FEE I 0 51, 529
3 0.0 DEBTOR_MAST DM_BG_EXP_WARN I -1 631, 169 
$VALIDATE    I:I\DM_BG_EXP_WARN;=;  A:CONST;7;I\DM_BG_EXP_WARN    I:I\DM_BG_EXPDTE;<>;  M:    I:I\DM_BG_EXPDTE;<>;    DO(ZE)     I:I\DM_BG_EXP_WARN;=;0;NUM     A:CONST;7;I\DM_BG_EXP_WARN    DOEND(ZE)      I:I\DM_BANK_GUAR;=;0;NUM  A:CONST;0;I\DM_BG_EXP_WARN        $AFTER_READ  I:I\DM_BG_EXP_WARN;=;  A:CONST;7;I\DM_BG_E
3 0.0 BUY I 0 221, 349
3 0.0 DEBTOR_MAST DM_BG_EXPDTE I -1 231, 169 
$CALCULATE  A:TRIM;I\DM_BG_EXPDTE;I\DM_BG_EXPDTE    $VALIDATE  I:I\DM_BANK_GUAR;>;0;NUM  M:    I:I\DM_BANK_GUAR;>;0;NUM    DO(DDD)      I:I\DM_BG_EXPDTE;<>;      A:DATEDIFF;I\DM_BG_EXPDTE;W\DATE;T\DATE;#0;D        I:W\DATE;<;1;NUM      D:THIS DATE MUST BE GREATER THAN THE CURRENT DATE;ERRORM;I\DM_BG_EXPDATE        I:DM
3 0.0 DM_BUY_PERIOD I -1 281, 349 
$AFTER_READ  F:DEBTOR_MAST;;;I\DM_BUY_PERIOD=DM_BUY_PERIOD,I\BUY=DM_BUY_PERIOD,I\DM_BP_EFFDTE=DM_BP_EFFDTE;DM_MARKET='$I\DM_MARKET$' AND DM_DEBTOR='$I\DM_DEBTOR$'    I:I\DM_BUY_PERIOD;<>;0  DO(FOE)    I:I\DM_BUY_PERIOD;<>;    O:DISABLEINPUT;I\DM_BUY_PERIOD,I\DM_BP_EFFDTE    DOEND(FOE)    I:I\DM_BUY_PERIOD;=;0  O:ENABLE
3 0.0 Work 3 I 0 341, 205
3 0.0 DEBTOR_MAST DM_ACC_NAME I -1 531, 109 
$VALIDATE    'I:I\DM_BANK_NAME;<>;  'M:    'UPPERCASE  C:UCASE
3 0.0 DEBTOR_MAST DM_CRLIMIT_REMARKS I 0 81, 529
3 0.0 DEBTOR_MAST DM_CRED_EFFECTIVE I -1 531, 241 
$VALIDATE    I:I\DM_CRED_EFFECTIVE;=;  A:VAR;T\DATE;I\DM_CRED_EFFECTIVE;;    'MANDATORY  I:I\DM_CRLIMIT;>;0;NUM    DO(TDY)    'M:    DOEND(TDY)
3 0.0 DEBTOR_MAST DM_BANK_ACC I -1 151, 109 
'$VALIDATE    'I:I\DM_BANK_NAME;<>;  'M:
3 0.0 DEBTOR_MAST DM_BANK_BRCH I -1 531, 85 
$VALIDATE  'I:I\DM_BANK_NAME;<>;  'M:    'UPPERCASE  C:UCASE
3 0.0 DEBTOR_MAST DM_BANK_NAME I -1 151, 85 
$VALIDATE  'I:I\DM_DTYPE;=;A  'M:    'I:I\DM_BANK_NAME;=;  'O:DISABLEINPUT;I\DM_BANK_BRCH,I\DM_BANK_ACC,I\DM_ACC_NAME    'I:I\DM_BANK_NAME;<>;  'O:ENABLEINPUT;I\DM_BANK_BRCH,I\DM_BANK_ACC,I\DM_ACC_NAME    ''I:I\DM_DTYPE;=;01  ''DO(RJA)  'I:D\DM_ACCTYPE;=;SC  'M:    'I:D\DM_ACCTYPE;=;CR    'DO(03)      'I:I\DM_DTYPE;<>;
3 0.0 DEBTOR_MAST DM_INTPERC I -1 271, 289 
$VALIDATE    'VALIDATE AMOUNT  I:I\DM_INTPERC;<;0;NUM  D:CANNOT BE LESS THAN ZERO;ERRORM;I\DM_INTPERC    'VALIDATE AMOUNT  I:I\DM_INTPERC;>;100;NUM  D:CANNOT BE GREATER THAN 100 %;ERRORM;I\DM_INTPERC
3 0.0 DEBTOR_MAST DM_OLD_BANK_GUAR I 0 341, 169
3 0.0 DEBTOR_MAST DM_CRLIMIT I -1 201, 205 
$VALIDATE  I:I\DM_MAIN_DEBTOR;=;  DO(LLA)   'MANDATORY   'I:D\DM_ACCTYPE;=;SC   'A:CONST;0.00;I\DM_CRLIMIT     I:D\DM_ACCTYPE;=;CR     DO(04)       I:I\DM_DTYPE;<>;C       M:     DOEND(04)     'I:I\DM_DTYPE;=;B   'M:  DOEND(LLA)    'JD 2011-11-14  I:I\DM_ABSA_ACC;=;Y  DO(BAB)  I:I\DM_CRLIMIT;<>;0    D:CANNOT BE SET FOR
3 0.0 DEBTOR_MAST DM_BANK_GUAR I -1 231, 145 
$VALIDATE  'JD 2011-11-14  I:I\DM_ABSA_ACC;=;Y  DO(BAB)  I:I\DM_BANK_GUAR;<>;0    D:CANNOT BE SET FOR ABSA BUYERS;ERRORM;I\DM_BANK_GUAR  DOEND(BAB)    'JD 20130823 - DISALLOW BANK GUARANTEE FOR SC BUYERS IN PRETORIA  I:I\MARKET;=;11  DO(F99)    I:I\DM_BANK_GUAR;>;0;NUM    DO(D81)      I:D\DM_ACCTYPE;<>;CR      DO(D11)
3 0.0 DEBTOR_MAST DM_PENPERC I -1 531, 265 
$VALIDATE    'VALIDATE AMOUNT  I:I\DM_PENPERC;<;0;NUM  D:CANNOT BE LESS THAN ZERO;ERRORM;I\DM_PENPERC    'VALIDATE AMOUNT  I:I\DM_PENPERC;>;100;NUM  D:CANNOT BE GREATER THAN 100 %;ERRORM;I\DM_PENPERC
3 0.0 DEBTOR_MAST DM_BNKGFAC I -1 631, 145 
$VALIDATE    'JD 20130823 - DISALLOW BANK GUARANTEE FACTOR FOR SC BUYERS IN PRETORIA  I:I\MARKET;=;11  DO(F98)    I:I\DM_BNKGFAC;>;0;NUM    DO(D82)      I:D\DM_ACCTYPE;<>;CR      DO(D12)        I:D\DM_ACCTYPE;<>;SU        DO(FM2)          A:CONST;0;I\DM_BNKGFAC          D:MUST BE ZERO FOR THIS BUYER TYPE!;ERRORM;I\DM_B
3 0.0 DEBTOR_MAST DM_CRLIM_PERC I -1 271, 229 
$VALIDATE    I:I\DM_CRLIM_PERC;=;  A:CONST;100;I\DM_CRLIM_PERC    I:I\DM_CRLIM_PERC;=;0;NUM  A:CONST;100;I\DM_CRLIM_PERC    'MANDATORY  I:I\DM_CRLIM;>;0;NUM  M:        'VALIDATE AMOUNT  I:I\DM_CRLIM_PERC;<;0;NUM  D:CANNOT BE LESS THAN ZERO;ERRORM;I\DM_CRLIM_PERC    'VALIDATE AMOUNT  I:I\DM_CRLIM_PERC;>;100;NUM  D:CANNO
3 0.0 DEBTOR_MAST DM_CRTERMS I -1 231, 313 
$VALIDATE    'MANDATORY    'I:D\DM_ACCTYPE;=;CR    'DO(01)      'I:I\DM_DTYPE;<>;C      'M:    'DOEND(01)    'VALIDATE AMOUNT  I:I\DM_CRTERMS;<;0;NUM  D:CANNOT BE LESS THAN ZERO;ERRORM;I\DM_CRTERMS
3 0.0 DEBTOR_MAST DM_GLOBAL I -1 531, 301 
$VALIDATE  I:I\DM_GLOBAL;=;  A:CONST;0.00;I\DM_GLOBAL      'MANDATORY  I:D\DM_ACCTYPE;=;CR    DO(01)      I:I\DM_DTYPE;<>;C      M:    DOEND(01)    I:D\DM_ACCTYPE;=;SC  M:        'VALIDATE AMOUNT  I:I\DM_GLOBAL;<;0;NUM  D:CANNOT BE LESS THAN ZERO;ERRORM;I\DM_GLOBAL
3 0.0 DEBTOR_MAST DM_TRANSPERC I -1 271, 385 
$VALIDATE    'VALIDATE AMOUNT  I:I\DM_TRANSPERC;<;0;NUM  D:CANNOT BE LESS THAN ZERO;ERRORM;I\DM_TRANSPERC    'VALIDATE AMOUNT  I:I\DM_TRANSPERC;>;100;NUM  D:CANNOT BE GREATER THAN 100 %;ERRORM;I\DM_TRANSPERC        I:I\DM_TRANSPERC;>;0;NUM    DO(4)     O:DISABLEINPUT;I\DM_TRANSFIXED     A:CONST;0;I\DM_TRANSFIXED    DOE
3 0.0 DEBTOR_MAST DM_BP_EFFDTE I -1 581, 337 
$VALIDATE    I:I\DM_BP_EFFDTE;=;  A:VAR;T\DATE;I\DM_BP_EFFDTE;;    I:I\DM_BUY_PERIOD;<>;  DO(SWQ)    I:I\DM_BUY_PERIOD;>;0    DO(DGE)      'M:      'A:DATE;DD MMM YYYY;I\DM_BP_EFFDTE    DOEND(DGE)    DOEND(SWQ)      $BEFORE_WRITE  I:I\DM_BUY_PERIOD;<>;  DO(SWD)    I:I\DM_BUY_PERIOD;>;0    U:DEBTOR_BUYING_PERIOD;UPDATE
3 0.0 DEBTOR_MAST DM_TRANSVAT I -1 581, 409 
$SELECT  S:VAT_CODE;I\DM_TRANSVAT      $VALIDATE  A:CONST;;T\VATRATE  'MANDATORY  I:I\DM_TRANSPERC;>;0;NUM  M:    I:I\DM_TRANSMAX;>;0;NUM  M:    I:I\DM_TRANSFIXED;>;0;NUM  M:    'UPPERCASE  C:UCASE      I:I\DM_TRANSVAT;<>;   DO(01)    F:VAT_MAST;Y;VT_CODE;T\VATRATE=VT_RATE;;I\DM_TRANSVAT    A:CONST;$T\VATRATE$%;T\VATRA
3 0.0 DEBTOR_MAST DM_TRANSMAX I -1 251, 409 
$VALIDATE    'VALIDATE AMOUNT  I:I\DM_TRANSMAX;<;0;NUM  D:CANNOT BE LESS THAN ZERO;ERRORM;I\DM_TRANSMAX      'I:I\DM_TRANSFIXED;<>;0;NUM  'D0(TRF)  '  I:I\DM_TRANSMAX;<;I\DM_TRANSFIXED;NUM  '  D:MAX TRANSACTION FEE CANNOT BE LESS THAN FIXED TRANSACTION FEE;ERRORM;I\DM_TRANSMAX  'D0END(TRF)      I:I\DM_TRANSPERC;>;0;NUM
3 0.0 Work 4 I 0 341, 145
3 0.0 Work 1 I 0 691, 145
3 0.0 DEBTOR_MAST DM_TRANSFIXED I -1 581, 373 
$VALIDATE    I:I\DM_TRANSFIXED;=;0;NUM  O:ENABLEINPUT;I\DM_TRANSPERC,I\DM_TRANSMAX    I:I\DM_TRANSFIXED;=;  O:ENABLEINPUT;I\DM_TRANSPERC,I\DM_TRANSMAX      'I:W\CM_TRAN_FEE;=;1  '  DO(CM)  '    I:I\DM_TRANSFIXED;=;0;NUM  '      DO(TR)  '        I:I\DM_TRANSPERC;=;0;NUM  '        D:FIXED TRANSACTION FEE IS MANDATORY;ERR
3 0.0 CALC_CRLIM I -1 201, 253
3 0.0 Label 3 T -1 371, 337
3 0.0 Label 11 T -1 371, 409
3 0.0 Label 15 T -1 11, 445
3 0.0 Label 6 T -1 11, 109
3 0.0 Label 5 T -1 671, 25
3 0.0 Label 4 T -1 621, 49
3 0.0 Label 3 T -1 621, 25
3 0.0 Label 8 T -1 301, 49
3 0.0 Label 1 T -1 291, 25
3 0.0 Label 2 T -1 1, 25
3 0.0 Label 6 T -1 671, 49
3 0.0 Label 26 T -1 271, 469
3 0.0 Label 27 T -1 401, 469
3 0.0 Label 28 T -1 531, 469
3 0.0 Label 29 T -1 661, 469
3 0.0 Label 9 T -1 371, 373
3 0.0 Label 7 T -1 11, 409
3 0.0 Label 3 T -1 371, 301
3 0.0 Label 5 T -1 11, 385
3 0.0 Label 1 T -1 11, 313
3 0.0 T -1 371, 241
3 0.0 T -1 11, 229
3 0.0 Label 24 T -1 11, 469
3 0.0 Label 25 T -1 141, 469
3 0.0 Label 18 T -1 371, 265
3 0.0 Label 10 T -1 371, 145
3 0.0 Label 8 T -1 11, 145
3 0.0 DM_120 T -1 661, 505
3 0.0 DM_90 T -1 531, 505
3 0.0 DM_60 T -1 401, 505
3 0.0 DM_30 T -1 271, 505
3 0.0 DM_CURR T -1 141, 505
3 0.0 Label 17 T -1 11, 505
3 0.0 DEBTOR_MAST DM_CRLIMIT T -1 11, 205
3 0.0 Label 12 T -1 11, 289
3 0.0 Label 3 T -1 371, 85
3 0.0 Label 1 T -1 371, 109
3 0.0 Label 8 T -1 11, 253
3 0.0 Label 2 T -1 11, 85
3 0.0 Label 1 T -1 651, 409
3 0.0 DEBTOR_MAST DM_AGE_IND T -1 371, 205
3 0.0 AGE IND DESC T -1 591, 205
3 0.0 DM_BUY_PERIOD T -1 11, 349
3 0.0 Label 1 T -1 11, 169
3 0.0 Label 3 T -1 371, 169
3 0.0 DEBTOR_MAST DM_LPDATE T -1 371, 445
3 0.0 DEBTOR_MAST DM_PURCH_DATE T -1 601, 445
4 0.0 CMD 4 C -1 311, 121 
$SELECT  'DISPLAY SELECTION WINDOW  S:ADDRESS_TYPE;I\DA_TYPE
4 0.0 CMD 1 C -1 331, 313 
$SELECT  S:AREA_CODE;I\DA_PCODE
4 0.0 H -1 1, 91
4 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
4 0.0 Work 1 I 0 31, 181
4 0.0 Work 1 I 0 101, 571
4 0.0 Work 3 I 0 321, 517
4 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
4 0.0 Label 6 T -1 671, 49
4 0.0 Label 5 T -1 671, 25
4 0.0 Label 2 T -1 1, 25
4 0.0 Label 3 T -1 621, 25
4 0.0 Label 4 T -1 621, 49
4 0.0 Label 1 T -1 291, 25
4 0.0 Label 8 T -1 261, 49
4 0.0 DEBT_ADDR DA_NAME T -1 151, 145
4 0.0 Label 5 T -1 351, 121
4 0.0 Label 1 T -1 421, 97
4 0.0 Label 2 T -1 151, 493
4 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
4 1.0 Work 2 I 0 41, 571
4 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;
4 1.0 Work 1 I 0 371, 493
4 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
4 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
4 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
4 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
4 1.0 NUMTST I 0 21, 571
4 1.0 DEBT_ADDR DA_NAME I -1 281, 145 
$VALIDATE  'MAKE THIS FIELD MANDATORY  'M:  'CONVERT TO UPPERCASE  C:UCASE
4 1.0 DEBT_ADDR DA_ADDR2 I -1 281, 265 
$VALIDATE  'CONVERT TO UPPERCASE  C:UCASE
4 1.0 DEBT_ADDR DA_ADDR3 I -1 281, 289 
$VALIDATE  'CONVERT TO UPPERCASE  C:UCASE
4 1.0 DEBT_ADDR DA_SNAME I -1 281, 217 
$VALIDATE  'MAKE THIS FIELD MANDATORY  'M:  'CONVERT TO UPPERCASE  C:UCASE
4 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
4 1.0 DEBT_ADDR DA_FNAME I -1 281, 193 
$VALIDATE  'MAKE THIS FIELD MANDATORY  'M:  'CONVERT TO UPPERCASE  C:UCASE
4 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
4 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
4 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
4 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)    I:I\MARKET;<>;L1  DO(NOTL1)  'DI
4 1.0 DEBT_ADDR DA_SNAME T -1 151, 217
4 1.0 DEBT_ADDR DA_TELNO1 T -1 151, 349
4 1.0 DEBT_ADDR DA_ADDR1 T -1 151, 241
4 1.0 DEBT_ADDR DA_TITLE T -1 151, 169
4 1.0 DEBT_ADDR DA_TELNO2 T -1 151, 373
4 1.0 DEBT_ADDR DA_TELNO3 T -1 151, 397
4 1.0 DEBT_ADDR DA_FAXNO T -1 151, 421
4 1.0 DEBT_ADDR DA_CELLNO T -1 151, 445
4 1.0 DEBT_ADDR DA_EMAIL T -1 151, 469
4 1.0 DEBT_ADDR DA_FNAME T -1 151, 193
4 1.0 DEBT_ADDR DA_PCODE T -1 151, 313
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