Freshmark replication server

freshmark-canonical

Program drill-down

SE_SEND_SMS

SEND SMS MESSAGE. Type MAN, base table SMS_SEND.

Field inventory

47

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 2 C -1 471, 169
$SELECT  S:SMS_DESC;I\DESCRIPTION  
1 0.0 CMD 3 C -1 471, 241
$SELECT  S:AGENT_FOR_SMS;I\AGENT    
1 0.0 CMD 2 C -1 321, 133
$DEFAULT  'A:VAR;I\USER;USER    $SELECT  S:SEL_SMS_SEND;I\SE_SMS_ID  
1 0.0 H -1 0, 30
  
1 0.0 Work 47 I 0 11, 61
$DEFAULT    'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS  A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    A:USERID;;I\SEND_ID    'LOAD MARKET CODE  'F:SE_SEND_SMS;;CM_CODE;I\MARKET=CM_NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME  'A:ORG;;I\MARKET    'LOAD SMS_USER  F:SMS_PROVI
1 0.0 SMS_SEND SMSSE_ID I 0 11, 97
  
1 0.0 SMS_SEND REC_ID I -1 221, 277
  
1 0.0 SMS_USERNAME I 0 561, 277
  
1 0.0 SMS_PASSWORD I 0 351, 301
  
1 0.0 Work 4 I 0 451, 301
  
1 0.0 SMS_SEND SEND_ID I 0 121, 97
  
1 0.0 Work 3 I -1 221, 385
  
1 0.0 Work 1 I -1 221, 133
$DEFAULT  A:VAR;I\USER;USER    $SELECT  S:SEL_SMS_SEND;I\SE_SMS_ID            $VALIDATE          'MAKE THIS FIELD A MANDATORY FIELD  'M:  C:UCASE    'CONVERT TO UPPERCASE  C:UCASE      ' A:CONST;;W\TEMP  'DISPLAY ERROR MESSAGE IF THE @ SYMBOL IS FOUND IN THIS FIELD  ' I:I\DESCRIPTION;<>;  '   DO(CODE)  '    A:CONST;;W\
1 0.0 SMS_SEND SMS_ACTION I 0 681, 277
  
1 0.0 SMS_PROVIDER SMS_PORT I 0 131, 553
  
1 0.0 Work 1 I -1 221, 349
  
1 0.0 Work 15 I 0 401, 445
$DEFAULT    'CHECK IF THE USER IS AN AGENT  'A:ORGS;;I\AGENT  'A:ORGS;;I\AM_CODE    'LOAD MARKET CODE  A:ORG;;I\MARKET      'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\PS_SECT=CM_PALL_SECT  '''F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME  C:MCASE;;T\MARKET    'O:DISABLEINPUT;I\AM_SUPPL_TO  'O:DISABLEINPUT;
1 0.0 Label 3 T -1 11, 241
  
1 0.0 Label 19 T -1 661, 49
  
1 0.0 Label 4 T -1 11, 169
  
1 0.0 Label 1 T -1 611, 49
  
1 0.0 Label 2 T -1 611, 25
  
1 0.0 Label 3 T -1 281, 49
  
1 0.0 Label 4 T -1 11, 205
  
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Label 1 T -1 11, 349
  
1 0.0 Label 6 T -1 151, 181
  
1 0.0 Label 7 T -1 11, 277
  
1 0.0 Label 8 T -1 11, 313
  
1 0.0 Label 1 T 0 21, 553
  
1 0.0 Label 1 T -1 11, 133
  
1 0.0 Label 2 T -1 11, 385
  
1 0.0 Label 17 T -1 281, 25
  
1 0.0 Label 18 T -1 661, 25
  
1 1.0 SMS_SEND SMS_DESC I -1 221, 169
$SELECT  S:SMS_DESC;I\DESCRIPTION            $VALIDATE      'MAKE THIS FIELD A MANDATORY FIELD  M:  C:UCASE    'CONVERT TO UPPERCASE  C:UCASE      ' A:CONST;;W\TEMP  'DISPLAY ERROR MESSAGE IF THE @ SYMBOL IS FOUND IN THIS FIELD  ' I:I\DESCRIPTION;<>;  '   DO(CODE)  '    A:CONST;;W\TEMP  '    U:NUMBER_VALIDATE;EMAIL_CHK
1 2.0 MESSAGE_MESSAGE I -1 221, 205
$VALIDATE  'MAKE THIS FIELD A MANDATORY FIELD  M:  C:UCASE    'CONVERT TO UPPERCASE  C:UCASE     'A:CONST;;W\TEMP  'IF DESCRIPTION IS EMPTY  ' I:I\MESSAGE;<>;  '   DO(CODE)  '    A:VAR;I\MESSAGE;I\DESCRIPTION  '    U:NUMBER_VALIDATE;EMAIL_CHK;I\AM_CODE,@,W\TEMP  '    I:W\TEMP;=;Y  '    D:CANNOT HAVE THE "@" SYMBOL IN T
1 3.0 AM_NAME I -1 221, 241
$SELECT  S:AGENT_FOR_SMS;I\AGENT            $VALIDATE      'MAKE THIS FIELD A MANDATORY FIELD  M:  C:UCASE    'CONVERT TO UPPERCASE  C:UCASE      ' A:CONST;;W\TEMP  'DISPLAY ERROR MESSAGE IF THE @ SYMBOL IS FOUND IN THIS FIELD  ' I:I\DESCRIPTION;<>;  '   DO(CODE)  '    A:CONST;;W\TEMP  '    U:NUMBER_VALIDATE;EMAIL_CHK;
1 3.0 MESSAGE_ACTIVE I 0 551, 277
$VALIDATE  'MAKE THIS FIELD A MANDATORY FIELD  M:  C:UCASE    'CONVERT TO UPPERCASE  C:UCASE  
1 3.0 Label 6 T 0 351, 277
  
1 5.0 SMS_SEND REC_NO I -1 221, 313
'$CALCULATE  'U:U_SE_SMS;SEND_SMS  
1 6.0 ZX_UPDATES C 0 221, 313
'$CALCULATE  $SELECT    U:U_SE_SMS;SEND_SMS      
10 0.0 ZX_PRINT Z 0 0, 30
  
10 0.0 ZX_SELECT Z 0 0, 30
  
10 0.0 ZX_DELETE Z 0 0, 30
  
10 0.0 ZX_UPDATE Z 0 0, 30
$BEFORE_WRITE    U:U_SE_SMS;SEND_SMS    $BEFORE_WRITE    A:VAR;0;I\ID    $AFTER_WRITE  I:I\SMS_ACTION;=;"S"    DO(CODE)      'O:DIALOGBOX;;;;C;      A:VAR;;I\TELNO      A:VAR;;I\AGENT      A:VAR;;I\MESSAGE      A:VAR;;I\DESCRIPTION      A:VAR;;I\AM_CODE      'O:RETURN      'O:DELAY;2000    DOEND(CODE)  
10 0.0 Z -1 0, 30
  
10 0.0 ZX_EXIT Z 0 0, 30