SURETY_BUYER_PMTS

$SELECT  'DO ALL CHECKS AGAIN    'MAKE SURE THE BUYER EXISTS  F:DEBTOR_MAST;Y;;I\MAIN=DM_MAIN_DEBTOR,I\SURETY=DM_SURETY_BUYER,T\NAME=DM_NAME;DM_MARKET='$I\MARKET$' AND DM_DEBTOR='$I\BUYER$';I\BUYER    'CHECK IF SURETY BUYER  I:I\SURETY;<>;Y  D:ONLY SURETY BUYERS MAY BE ENTERED HERE;ERRORM;I\BUYER    'CHECK IF MAIN BUYE

$CALCULATE  'NEW CHANGE FOR CT - JD 20140811  'CHECK IF CASHIER IS ALLOWED TO CHANGE THE DATE ON A PAYMENT, SET FIELD PROPERTIES ACCORDINGLY  I:W\ALLOW_DATE_CHG;<>;Y  DO(LVA)    A:DATE;DD MMM YYYY;I\ICPDTE    O:DISABLEINPUT;I\ICPDTE    D:YOU MAY NOT CHANGE THIS DATE;ERRORM;I\NORECZ  DOEND(LVA)    I:I\ICPDTE;=;  A:DATE;

$SELECT  S:STATEMENT_DATE;I\SDATE;I\BUYER;I\TRDATE

$SELECT  S:SURETY_BUYER;I\BUYER;I\MARKET

$SELECT  S:PAYMENT_METHOD;I\PAYMETH;I\MARKET

$CALCULATE  C:UCASE

$CALCULATE  M:  I:I\AMT;>;I\TOTDUE;VAL  D:MAY NOT PAY MORE THAN IS DUE;ERRORM;I\AMT    I:I\AMT;=;0;VAL  D:PLEASE ENTER AN AMOUNT TO PAY;ERRORM;I\AMT    'IF THE AMOUNT CANNOT COVER THE CHARGES, DISALLOW THE PAYMENT COMPLETELY  '''I:I\SFC;>;I\AMT;VAL - THIS IS THE OLD SELECTION  I:I\DFCO;>;I\AMT;VAL  DO(HHD)    O:DISABLE

$SELECT  S:PAYMENT_METHOD;I\PAYMETH;I\MARKET    $CALCULATE  M:  C:UCASE    'VALIDATE PAYMENT METHOD AND LOAD THE DESCRIPTION FOR THIS TRANSACTION  F:CASH_PAYMTHD;Y;CPM_PAYMETH;;;I\PAYMETH    

$SELECT  S:STATEMENT_DATE;I\SDATE;I\BUYER;I\TRDATE    $CALCULATE  M:    'FORMAT THE DATE FOR SQL USAGE  A:VAR;I\SDATE;I\SDATE;;YYYY/MM/DD    'MAKE SURE THE DATE EXISTS  F:STATEMENT_RUN_DETS;Y;;I\STMT_PAID=SRD_AMT_PAID,I\STMT_DUE=SRD_AMT_DUE;SRD_DEBTOR='$I\BUYER$' AND SRD_STATEMENT_DATE='$I\SDATE$';I\SDATE    'CALCULATE

$SELECT  S:SURETY_BUYER;I\BUYER;I\MARKET    $CALCULATE  M:  C:UCASE    'MAKE SURE THE BUYER EXISTS  F:DEBTOR_MAST;Y;;I\ACCTYPE=DM_ACCTYPE,I\MAIN=DM_MAIN_DEBTOR,I\SURETY=DM_SURETY_BUYER,T\NAME=DM_NAME;DM_MARKET='$I\MARKET$' AND DM_DEBTOR='$I\BUYER$';I\BUYER    'CHECK IF SURETY BUYER  I:I\SURETY;<>;Y  D:ONLY SURETY BUYER

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET  A:ORGS;;I\ORGS  A:USERID;;I\USERID  A:USERIP;;I\IP    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET    'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS  A:DATE;DD M

$SELECT  A:CONST;0.00;I\DA,I\DF,I\DL,I\DU,I\DH,I\DS,I\DK,I\DD  U:SURETY_BUYER_PMTS;CALC_AVAIL    O:SETFOCUS;I\DA

$CALCULATE  I:I\DW;>;I\DWO;VAL  D:$T\W$ IS OWED R$I\DWO$;ERRORM;I\DW    U:SURETY_BUYER_PMTS;CALC_AVAIL    I:I\OK;=;N  D:THERE IS ONLY $I\RUN_TOT$ AVAILABLE;ERRORM;I\DW    'CHECK IF ALL FUNDS HAVE BEEN ALLOCATED  I:I\ALLOC;<>;I\AMT  D:NOT ALL FUNDS HAVE BEEN ALLOCATED;ERRORM;I\DA    O:SETFOCUS;I\NORECZ    'ONLY ALLOW TH

$CALCULATE    I:I\NORECZ;=;  A:CONST;3;I\NORECZ    I:I\NORECZ;=;0  A:CONST;3;I\NORECZ    I:I\NORECZ;>;10  D:CANNOT PRINT MORE THAN 10 RECEIPTS;ERRORM;I\NORECZ    I:W\ALLOW_DATE_CHG;<>;Y  DO(FLA)  'ONLY ALLOW THE UPDATE BUTTON TO BE CREATED ONCE ALL VALIDATIONS ARE DONE, AND THE LAST SCREEN FIELD HAS BEEN PASSED    O:EN

$CALCULATE  I:I\DD;>;I\DDO;VAL  D:$T\D$ IS OWED R$I\DDO$;ERRORM;I\DD    ''U:SURETY_BUYER_PMTS;CALC_AVAIL    'I:I\DD;>;I\RUN_TOT;VAL  'D:THERE IS ONLY $I\RUN_TOT$ AVAILABLE;ERRORM;I\DD    U:SURETY_BUYER_PMTS;CALC_AVAIL    I:I\OK;=;N  D:THERE IS ONLY $I\RUN_TOT$ AVAILABLE;ERRORM;I\DD    $SVAR_FOCUS  U:SURETY_BUYER_PMTS;C

$CALCULATE  I:I\DK;>;I\DKO;VAL  D:$T\K$ IS OWED R$I\DKO$;ERRORM;I\DK    'I:I\DK;>;I\RUN_TOT;VAL  'D:THERE IS ONLY $I\RUN_TOT$ AVAILABLE;ERRORM;I\DK    U:SURETY_BUYER_PMTS;CALC_AVAIL    I:I\OK;=;N  D:THERE IS ONLY $I\RUN_TOT$ AVAILABLE;ERRORM;I\DK    'A:SUB;I\RUN_TOT;I\RUN_TOT;I\DK;;#0.00  'A:ADD;I\DK;I\ALLOC;I\ALLOC;;#

$CALCULATE  I:I\DA;>;I\DAO;VAL  D:$T\A$ IS OWED R$I\DAO$;ERRORM;I\DA    'I:I\DA;>;I\RUN_TOT;VAL  'D:THERE IS ONLY $I\RUN_TOT$ AVAILABLE;ERRORM;I\DA    U:SURETY_BUYER_PMTS;CALC_AVAIL    I:I\OK;=;N  D:THERE IS ONLY $I\RUN_TOT$ AVAILABLE;ERRORM;I\DA    'A:SUB;I\RUN_TOT;I\RUN_TOT;I\DA;;#0.00  'A:ADD;I\DA;I\ALLOC;I\ALLOC;;#

$CALCULATE  I:I\DF;>;I\DFO;VAL  D:$T\F$ IS OWED R$I\DFO$;ERRORM;I\DF    'I:I\DF;>;I\RUN_TOT;VAL  'D:THERE IS ONLY $I\RUN_TOT$ AVAILABLE;ERRORM;I\DF    U:SURETY_BUYER_PMTS;CALC_AVAIL    I:I\OK;=;N  D:THERE IS ONLY $I\RUN_TOT$ AVAILABLE;ERRORM;I\DF    'A:SUB;I\RUN_TOT;I\RUN_TOT;I\DF;;#0.00  'A:ADD;I\DF;I\ALLOC;I\ALLOC;;#

$CALCULATE  I:I\DL;>;I\DLO;VAL  D:$T\L$ IS OWED R$I\DLO$;ERRORM;I\DL    'I:I\DL;>;I\RUN_TOT;VAL  'D:THERE IS ONLY $I\RUN_TOT$ AVAILABLE;ERRORM;I\DL    U:SURETY_BUYER_PMTS;CALC_AVAIL    I:I\OK;=;N  D:THERE IS ONLY $I\RUN_TOT$ AVAILABLE;ERRORM;I\DL    'A:SUB;I\RUN_TOT;I\RUN_TOT;I\DL;;#0.00  'A:ADD;I\DL;I\ALLOC;I\ALLOC;;#

$CALCULATE  I:I\DU;>;I\DUO;VAL  D:$T\U$ IS OWED R$I\DUO$;ERRORM;I\DU    'I:I\DU;>;I\RUN_TOT;VAL  'D:THERE IS ONLY $I\RUN_TOT$ AVAILABLE;ERRORM;I\DU    U:SURETY_BUYER_PMTS;CALC_AVAIL    I:I\OK;=;N  D:THERE IS ONLY $I\RUN_TOT$ AVAILABLE;ERRORM;I\DU    'A:SUB;I\RUN_TOT;I\RUN_TOT;I\DU;;#0.00  'A:ADD;I\DU;I\ALLOC;I\ALLOC;;#

$CALCULATE  I:I\DH;>;I\DHO;VAL  D:$T\H$ IS OWED R$I\DHO$;ERRORM;I\DH    'I:I\DH;>;I\RUN_TOT;VAL  'D:THERE IS ONLY $I\RUN_TOT$ AVAILABLE;ERRORM;I\DH    U:SURETY_BUYER_PMTS;CALC_AVAIL    I:I\OK;=;N  D:THERE IS ONLY $I\RUN_TOT$ AVAILABLE;ERRORM;I\DH    'A:SUB;I\RUN_TOT;I\RUN_TOT;I\DH;;#0.00  'A:ADD;I\DH;I\ALLOC;I\ALLOC;;#

$CALCULATE  I:I\DS;>;I\DSO;VAL  D:$T\S$ IS OWED R$I\DSO$;ERRORM;I\DS    'I:I\DS;>;I\RUN_TOT;VAL  'D:THERE IS ONLY $I\RUN_TOT$ AVAILABLE;ERRORM;I\DS    U:SURETY_BUYER_PMTS;CALC_AVAIL    I:I\OK;=;N  D:THERE IS ONLY $I\RUN_TOT$ AVAILABLE;ERRORM;I\DS    'A:SUB;I\RUN_TOT;I\RUN_TOT;I\DS;;#0.00  'A:ADD;I\DS;I\ALLOC;I\ALLOC;;#