Freshmark replication server

freshmark-canonical

Program drill-down

SURETY_PMT_REVERSAL

SURETY PAYMENT REVERSAL. Type DSP, base table DEBT_ADDR.

Field inventory

37

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 H -1 0, 0
  
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 Label 3 T -1 281, 49
  
1 0.0 Label 4 T -1 621, 25
  
1 0.0 Label 5 T -1 671, 25
  
1 0.0 Label 6 T -1 621, 49
  
1 0.0 Label 7 T -1 671, 49
  
1 0.0 Label 8 T -1 231, 157
  
1 0.0 MARKET I 0 1, 61
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET  A:ORGS;;I\ORGS  A:USERID;;I\USER  A:USERIP;;I\IP    'GETS CASH POINT  F:CASH_POINT;;;I\CASHP=CPO_CASHPT;CPO_IP='$I\IP$' AND CPO_MARKET='$I\MARKET$';  A:VAR;I\CASHP;I\CPO_CASHPT    'GETS CASHIER AND CHECK IF CASHIER IS BLOCKED  A:VAR;I\USER;I\CASHIER  F:CASH_MAST;;;I\CASHIER
1 0.0 I 0 21, 61
  
1 0.0 CASHIER I 0 101, 61
  
1 0.0 CASHP I 0 81, 61
  
1 0.0 I\BUYER I -1 341, 157
$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
1 0.0 Label 14 T -1 231, 193
  
1 0.0 SDATE I -1 341, 193
$SELECT  S:STATEMENT_DATE2;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
1 0.0 Label 16 T -1 231, 229
  
1 0.0 TDATE I -1 341, 229
$SELECT  S:STMT_TRDATE;I\TDATE;I\BUYER;I\SDATE    $CALCULATE  M:  'FORMAT THE DATE FOR SQL USAGE  A:VAR;I\TDATE;I\TDATE;;YYYY/MM/DD    'MAKE SURE THE DATE EXISTS  F:SURETY_STATEMENT_TRANS;Y;;;SST_DEBTOR='$I\BUYER$' AND SST_STATEMENT_DATE='$I\SDATE$' AND SST_TRDATE='$I\TDATE$';I\TDATE    U:SURETY_BUYER_PMTS_REVERSAL;POP
1 0.0 TOT I -1 341, 277
  
1 0.0 Label 19 T -1 181, 277
  
1 0.0 CMD 20 C -1 301, 373
$SELECT    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 BUYERS MAY BE ENTERED HERE;ERRORM;I\BUYER    'CHECK IF MAIN BUYER  I:I\MAIN;<>;  D:ONLY MAIN B
1 0.0 Label 21 T -1 271, 409
  
1 0.0 Label 22 T -1 481, 157
  
1 0.0 CMD 23 C -1 441, 157
$SELECT  S:SURETY_BUYER;I\BUYER;I\MARKET
1 0.0 IP I 0 41, 61
  
1 0.0 USER I 0 61, 61
  
1 0.0 ACCTYPE I 0 591, 157
  
1 0.0 MAIN I 0 611, 157
  
1 0.0 SURETY I 0 631, 157
  
1 0.0 SURE I -1 341, 325
$CALCULATE  C:UCASE  V:Y;N;    I:I\SURE;=;  A:CONST;N;I\SURE    I:I\SURE;=;Y  DO(POL)    O:BACKCOLOR;C\REV;YELLOW    O:SETFOCUS;C\REV  DOEND(POL)    
1 0.0 Label 1 T -1 231, 325
  
1 0.0 CPO_CASHPT I 0 121, 61
  
10 0.0 ZX_EXIT Z 0 0, 0
  
10 0.0 ZX_PRINT Z 0 0, 0
  
10 0.0 ZX_SELECT Z 0 0, 0
  
10 0.0 ZX_DELETE Z 0 0, 0
  
10 0.0 ZX_UPDATE Z 0 0, 0