Freshmark replication server

freshmark-canonical

Program drill-down

TENANT_MAN

TENANT_MAINTENANCE. Type MAN, base table TENANT_MAST.

Field inventory

38

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 TENANT_MAST TM_ADDR3 I -1 341, 253
  
1 0.0 TENANT_MAST TM_BUYER I -1 341, 433
$SELECT  S:DEBTOR;I\BUYER    $VALIDATE  C:UCASE  I:I\MARKET;=;11  M:    I:I\MARKET;=;11  DO(MKT11)  I:I\BUYER;<>;  DO(02)    O:DISABLEINPUT;I\NAME    F:DEBTOR_MAST;Y;;I\NAME=DM_NAME,I\DM_DTYPE=DM_DTYPE,I\DM_MAIN_DEBTOR=DM_MAIN_DEBTOR;DM_DEBTOR='$I\BUYER$';I\BUYER  DOEND(02)  'I:I\DM_DTYPE;<>;W  'DO(EMSG)  '  O:ENABLEIN
1 0.0 H -1 0, 0
  
1 0.0 T -1 1, 25
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 Label 3 T -1 291, 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 TENANT_MAST TM_MARKET I 0 111, 37
$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 TENANT_MAST TM_CODE I -1 341, 109
$SELECT    S:TENANT_CODE;I\TENANT    $VALIDATE  M:  
1 0.0 DEFAULT I 0 141, 37
'DISPLAYING TIME  $DEFAULT  A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    'A:CONST;$T\DATE$    I:I\MARKET;<>;11  DO(MKT11)  O:DISABLEINPUT;I\BUYER  DOEND(MKT11)
1 0.0 TENANT_MAST TM_ADDR2 I -1 341, 217
  
1 0.0 Label 11 T -1 211, 109
  
1 0.0 Label 12 T -1 211, 145
  
1 0.0 Label 13 T -1 211, 181
  
1 0.0 TENANT_MAST TM_NAME I -1 341, 145
  
1 0.0 Label 1 T -1 211, 217
  
1 0.0 Label 2 T -1 211, 253
  
1 0.0 TENANT_MAST TM_ADDR1 I -1 341, 181
  
1 0.0 TENANT_MAST TM_PCODE I -1 341, 289
$VALIDATE   I:I\POSTAL_CODE;<>;  DO(01)  A:LEN;I\POSTAL_CODE;W\TEMP     I:W\TEMP;<;4;NUM     D:POSTAL CODE CANNOT BE LESS THAN 4 DIGITS;ERRORM;I\POSTAL_CODE  DOEND(01)  
1 0.0 Label 21 T -1 211, 289
  
1 0.0 Label 22 T -1 211, 325
  
1 0.0 Label 24 T -1 211, 361
  
1 0.0 Label 25 T -1 211, 397
  
1 0.0 TENANT_MAST TM_TEL I -1 341, 325
$VALIDATE    I:I\TELEPHONE;<>;    DO(1)     A:CONST;;W\TEMP     U:NUMBER_VALIDATE;TELL_CHK;I\TELEPHONE,0,W\TEMP     I:W\TEMP;=;N     D:THE TELEPHONE NUMBER MUST START WITH "0";ERRORM;I\TELEPHONE    DOEND(1)  I:I\TELEPHONE;<>;    DO(01)    A:LEN;I\TELEPHONE;W\TEMP     I:W\TEMP;<;10;NUM     D:PHONE NUMBER CANNOT BE LESS 
1 0.0 TENANT_MAST TM_CELL I -1 341, 361
  
1 0.0 TENANT_MAST TM_EMAIL I -1 341, 397
  
1 0.0 Label 2 T -1 211, 433
  
1 0.0 Label 3 T -1 461, 433
  
1 0.0 Work 4 I 0 31, 529
  
1 0.0 CMD 1 C -1 401, 109
$SELECT    S:TENANT_CODE;I\TENANT
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
$AFTER_WRITE  U:MARKET_FUNCTIONS;TENANT_AUDITS
10 0.0 ZX_EXIT Z 0 0, 0