CS_OTHER_IS_AMEND

$SELECT  S:REASON;I\LT_RCODE

$SELECT  S:LOCATION_TRANS;I\LT_DOCNO

'$SELECT  'S:REASON;I\LT_RCODE    '$VALIDATE  'F:REASON_MAST;Y;;I\RCODE_DESC=RSN_DESC;RSN_REASON='$I\LT_RCODE$';I\LT_RCODE

$SCMD_FOCUS  O:BACKCOLOR;C\CREATE;YELLOW        $SELECT    I:I\LT_TRVALUE;<>;I\ORIG_VALUE  U:CS_OTHER_ISSUE_AMEND;UPD_TABLES  'U:CALL_OTHER_ISSUE_CR_NOTE;CALL    A:CONST;;I\LT_DOCNO,I\LT_DEPNO,I\LT_TYPE,I\DEBTOR,I\COMMODITY,I\ROOM,I\LT_PRQTY,I\LT_CONT_CHG_QTY,I\LT_TRTARIFF,I\ORIG_VALUE,I\ORIG_VAT,I\LT_COMMENT,I\LT_TRVA

$DEFAULT  A:USERIP;;I\IP  

$DEFAULT  'A:ORGS;;I\ORGS    

'TO LOAD MARKET NAME  $DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    '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

$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        'PUTS PIC ON THE UPDATE BUTTON  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\CREATE    'O:HIDE;I\LT_DEBTOR,I\LT_ITEM,I\LT_CONT_TYPE,T\LT_DEBTOR,T\LT_ITEM,T\

$SELECT    S:OTHER_ISSUES_DEL;I\LT_DOCNO    $VALIDATE  M:  C:UCASE    F:LOC_TRANS;Y;;I\DELIND=LT_DELIND,I\DEBTOR=LT_DEBTOR,I\ROOM=LT_LOCA,I\CONT=LT_PRCONT,I\COMM1=LT_ITEM,I\TYPE=LT_TYPE;LT_TAXINV='$I\LT_DOCNO$';I\LT_DOCNO      I:I\DELIND;=;Y    D:THIS DOCUMENT IS ALREADY DELETED.;ERRORM;I\LT_DOCNO  U:CS_OTHER_IS_DELETI

$DEFAULT  A:USERID;;I\USERID  

'$VALIDATE  '  'C:UCASE      'O:BACKCOLOR;C\UPDATE;YELLOW    'O:SETFOCUS;C\CREATE                

$VALIDATE  A:CONST;;I\FLAG    I:I\ORIG_VALUE;=;I\LT_TRVALUE  A:VAR;I\LT_TRVAT;I\ORIG_VAT    I:I\ORIG_VALUE;<;0   D:VALUE CANNOT BE LESS THAN ZERO;ERRORM;I\ORIG_VALUE    I:I\ORIG_VALUE;<>;I\LT_TRVALUE  U:CS_OTHER_ISSUE_AMEND;CREDIT_LIMIT    I:I\FLAG;=;Y  O:SETFOCUS;I\ORIG_VALUE        O:SETFOCUS;C\CREATE    O:BACKCOLOR;