REGRADES_MAN

$SELECT  S:G:G\GRID;I\SD_CONSIGN;R1    $CALCULATE  C:UCASE    F:CLIENT_MAST;;;I\DEL_LEN=CM_DEL_LEN;CM_CODE='$I\MARKET$'  A:ADD;"2";I\DEL_LEN;I\DEL_LEN  A:ZEROFILL;I\SD_CONSIGN,I\DEL_LEN;I\SD_CONSIGN    I:I\SD_CONSIGN;=;  DO(SPO)    '''A:CONST;;I\GRADE,I\SD_REGRDCD,I\SD_REGRDTE,I\ACTION,I\QTY_AVAIL    '''O:DISABLEINPUT;

$SELECT  ''I:I\ORGS;=;  ''S:DELIVERY_CONSIGN;I\SM_DELNO    S:REGRADES;I\SM_DELNO    'JD 20081209  'I:I\ORGS;<>;  'S:DELIVERY_CONSIGN_AGN;I\SM_DELNO;I\ORGS    $VALIDATE  M:      A:ZEROFILL;I\SM_DELNO,W\ZEROFILL,I\SM_DELNO    I:I\ORGS;=;  F:STK_MAST;Y;;I\SM_AGENT=SM_AGENT;SM_MARKET = '$I\MARKET$' AND SM_DELNO='$I\SM_DELN

$CALCULATE  ^M:    '''''''''$VALIDATE  C:UCASE  A:LEN;I\GRADE;I\TMP350    I:I\SD_CONSIGN;<>;  DO(NDG)    I:I\TMP350;<>;2;NUM    D:GRADE MUST BE 2 CHARACTERS LONG;ERRORM;I\GRADE      'VALIDATION FOR THE CLASS - FIRST CHARACTER OF THIS FIELD - EXAMPLE THE 2 IN 2M    I:I\GRADE;<>;    DO(E2)      A:VAR;I\GRADE;W\GRADE_TEMP

$CALCULATE  ^M:    U:DATECHECKER;FUTURE;I\SD_REGRDTE

$CALCULATE  C:UCASE  V:D;  I:I\ACTION;=;D  DO(81)  I:I\TMP355;<>;Y  D:MAY NOT DELETE A NEW ENTRY;ERRORM;I\ACTION   U:REGRADES_ENTRY;DELETE_REGRADE   A:VAR;I\OLD_CLASS;I\SD_CLASS   A:VAR;I\OLD_SIZE;I\SD_SIZE  DOEND(81)    I:I\CDATE;<>;  DO(D3M)    A:VAR;T\DATE;I\TMP2;;YYYY/MM/DD    A:VAR;I\CDATE;I\CDATE;;YYYY/MM/DD     

$SELECT  'I:I\ORGS;=;  'S:DELIVERY_CONSIGN;I\SM_DELNO    'I:I\ORGS;<>;  'S:DELIVERY_CONSIGN_AGN;I\SM_DELNO;I\ORGS    S:REGRADES;I\SM_DELNO    

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET  A:ORGS;;I\ORGS    'LOAD MARKET NAME  F:CLIENT_MAST;;CM_CODE;I\PROHIBIT_SALES=CM_PROHIBIT_SALES,T\MARKET=CM_NAME,W\ZEROFILL=CM_DEL_LEN    I:I\PROHIBIT_SALES;=;Y  DO(LAM)    O:DISABLEINPUT;I\SM_DELNO    D:SALES ARE PROHIBITED, TRANSACTION CANNOT BE DONE;ERRORM;I\SM_DELNO  DOE

$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    ''U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SD_CONSIGN,I\COMMODITY,I\SD_RECQTY,I\QTY_AVAIL,I\SD_PREVGRD,I\GRADE,I\COUNT,I\SD_REGRDCD,I\REAS,I\SD_REGRDTE,I\SD_CLASS:H,I\SD_SIZE:H,I\SD

$SELECT  S:CLASS_NB;I\SD_CLASS    $CALCULATE  C:UCASE  I:I\SD_CLASS;=;  D:ENTER A VALID CLASS;ERRORM;I\SD_CLASS    I:I\SD_CLASS;<>;  DO(VEV)    F:COMMODITY_MAST;Y;;;CO_CLASS='$I\SD_CLASS$';I\SD_CLASS  DOEND(VEV)

$SELECT  S:SIZE_NB;I\SD_SIZE    $CALCULATE  C:UCASE  I:I\SD_SIZE;=;    'D:ENTER A VALID SIZE;ERRORM;I\SD_SIZE    'VARIETY '$I\VARIETY$' DOES NOT EXIST FOR '$I\PROD$' PRODUCT;ERRORM;I\VARIETY  I:I\SD_CLASS;<>;  DO(SZ)    I:I\SD_SIZE;<>;    DO(GRD)      F:COMMODITY_MAST;Y;;;CO_SIZE='$I\SD_SIZE$';I\SD_SIZE      'I:I\SD_SI

$BEFORE_WRITE  '''A:CONST;;I\SD_CONSIGN,I\COMMODITY,I\SD_RECQTY,I\QTY_AVAIL,I\SD_PREVGRD,I\GRADE,I\COUNT,D\SD_REGRDCD,I\REAS,I\SD_REGRDTE,I\ACTION  A:CONST;;I\SD_CONSIGN,I\COMMODITY,I\SD_RECQTY,I\QTY_AVAIL,I\SD_PREVGRD,I\SD_CLASS,I\SD_SIZE,I\COUNT,D\SD_REGRDCD,I\REAS,I\SD_REGRDTE,I\ACTION

$DEFAULT  A:USERID;;I\USERID  A:USERIP;;I\IP

$SELECT  S:COUNT;I\COUNT;I\SD_PRODUCT;I\GRADE    $CALCULATE  I:I\CONTCHK;=;Y  M:      I:I\COUNT;<>;  F:COUNT_MAST;Y;;;CNT_PRODUCT='$I\SD_PRODUCT$' AND CNT_GRADE='$I\GRADE$' AND CNT_COUNT='$I\COUNT$' AND CNT_CONTAINER = '$I\SD_CONT$';I\COUNT                    

$SELECT  S:DEV_CODE;I\SD_REGRDCD    $CALCULATE  ^M:  'I:I\SD_CONSIGN;<>;  I:I\SD_REGRDCD;<>;  DO(NDF)    C:UCASE    F:DEVIATION_MAST;Y;AF_CODE;I\REAS=AF_DESC;AF_CODE='$I\SD_REGRDCD$';I\SD_REGRDCD  DOEND(NDF)    

$SELECT  S:DEV_CODE;I\SD_REGRDCD