CS_OTHER_DEP_MAN

$SELECT  S:ROOM_SECTION;I\LT_SECTION;I\LT_LOCA    $CALCULATE    'MANDATORY  'M:    'CONVERT TO UPPERCASE  C:UCASE    'CHECK IF A VALID SECTION IS ENTERED  'F:ROOM_DET;Y;;;RD_ROOM='$I\LT_LOCA$' AND RD_SECTION = '$I\LT_SECTION$';I\LT_SECTION

$SELECT  'S:ROOM_SHELVES;I\LT_SHELF;I\LT_LOCA;I\LT_SECTION  S:ROOM_SHELVES2;I\LT_SHELF;I\LT_LOCA;I\LT_SECTION    $CALCULATE    'MANDATORY  'M:    'CHECK IF A VALID SHELF IS ENTERED  'F:ROOM_DET;Y;;;RD_ROOM='$I\LT_LOCA$' AND RD_SECTION = '$I\LT_SECTION$' AND RD_SHELVES = '$I\LT_SHELF$';I\LT_SHELF    'PUT CURRENT DATE IN

$SELECT6  I:I\LT_DEPNO;=;*****  DO(001)    U:CS_OTHER_DEP_MAN;PALLET_ENTRY  DOEND(001)    $CALCULATE    U:CS_OTHER_DEP_MANO;SEARCH_FOR_STRING  I:I\PALLET;<>;    DO(001)      I:I\RESULT;<>;Y        D:PRESS F6 TO DEPOSIT NEW PALLETS, ENTER TO EDIT OR LEAVE BLANK;ERRORM    DOEND(001)    ^I:I\LT_TRANS;<>;  ^DO(001)  ^  I:I

$SELECT  S:CONT_PD;I\LT_PRCONT;W\PRODUCT_TEMP;W\VAR_TEMP    $CALCULATE    'MANDATORY  M:    'CONVERT TO UPPERCASE  C:UCASE    'CHECK IF A VALID CONTAINER IS ENTERED  F:COMMODITY_MAST;Y;;;CO_PRODUCT='$W\PRODUCT_TEMP$' AND CO_VAR = '$W\VAR_TEMP$' AND CO_CONT = '$I\LT_PRCONT$';I\LT_PRCONT

$DEFAULT  A:USERID;;I\USERID  

$SELECT  'S:DEBTOR;I\DM_DEBTOR  S:DEBTOR_TRANS;I\DM_DEBTOR;I\MARKET

$SELECT    'GETS PRODUCTZ  S:ITEM_VARIETY;I\LT_ITEM    'PUTS VARIETY INTO A SEPARATE FIELD TO BE CONCATENATED  A:SELPARM;2;W\VAR_TEMP    'CONCATENATE PRODUCT & VARIETY & PUT INTO ITEM GRID FIELD  A:CON;I\LT_ITEM;I\LT_ITEM;W\VAR_TEMP      $CALCULATE    'MANDATORY  M:    'CONVERT TO UPPERCASE  C:UCASE    'CHECK IF A VALI

$SELECT  S:G:G\GRID:R1    $CALCULATE    'IF <> + GET RECORD FROM THE GRID  I:I\LT_TRANS;<>;+    DO(001)      'I:I\LT_DEPNO;=;*****         'U:ZZGRID_SPLIT;GRID_TO_SCREEN;G\GRID;I\LT_TRANS        U:ZZGRID_SPLIT;GRID_TO_SCREEN;G\GRID;I\LT_TRANS      A:CONST;*****;I\LT_DEPNO    DOEND(001)      'IF NOT EMPTY, CHECK IF VALI

$CALCULATE    'CONVERT TO UPPERCASE  C:UCASE    'ONLY THE Y, X OR BLANK ARE ACCEPTED VALUES FOR THIS FIELD  V:Y;X;    'IF "Y" IS ENTERED, PUT DATA INTO THE GRID, CLEAR GRID FIELDS.  'I:W\DEL;=;Y  I:W\DEL;=;$$$    DO(001)      'PUT DATA INTO GRID FROM FIELDS      U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\LT_TRANS        'C

$SELECT  S:LOCATION_CS_CODES;I\LT_LOCA    $CALCULATE    'MANDATORY  M:    'CONVERT TO UPPERCASE  C:UCASE    'IF LOCATION IS BLANK, DISPLAY ERROR  I:I\LT_LOCA;=;    D:ROOM NO. CAN NOT BE BLANK.;ERRORM;I\LT_LOCA    'CHECK IF A VALID ROOM IS ENTERED AND GET CHARGE TYPE OF THE ROOM AND THE ROOM TYPE  'F:LOCATION_MAST;Y;;W\

$SELECT  'S:DEBTOR;I\DM_DEBTOR  S:DEBTOR_TRANS;I\DM_DEBTOR;I\MARKET    $CALCULATE    'INITIALIZES THE GRID WITH ITS COLUMNS MATCHING THE FIELDS ALONG THE TOP OF IT  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\LT_TRANS,I\PALLET_MULTIVALUES:H,I\LT_DEPNO,I\LT_ITEM,I\LT_PRCONT,I\LT_LOCA,I\LT_SECTION,I\LT_SHELF,I\LT_DEP_DATE,I\LT_DEP

$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    'INITIALIZES THE GRID WITH ITS COLUMNS MATCHING THE FIELDS ALONG THE TOP OF IT  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\LT_TRANS,I\PALLET_MULTIVALUES:H,I\LT_DEPNO,I\LT_ITEM,I\LT_P

'$CALCULATE    $VALIDATE    'MANDATORY  M:    'GETS THE DATE DIFFERENCE BETWEEN CURRENT DATE AND DEPOSIT DATE  A:DATEDIFF;I\LT_DEP_DATE;W\DAY_DIFF;W\CURRENT_DATE;;D    'GETS ABSOLUTE VALUE OF THE DATE DIFFERENCE  A:ABS;W\DAY_DIFF;W\DAY_DIFF    'IF DATE DIFFERENCE IS NOT WITHIN 14 DAYS OF THE CURRENT DATE, DISPLAY ERROR

$CALCULATE    'MANDATORY  M:    I:I\CM_SRT_CLR_UPDSALES;<>;  DO  'CHECK THAT THE THIRD DIGIT IS A :  A:MID;I\CM_SRT_CLR_UPDSALES,3,1;I\TMP26  I:I\TMP26;<>;:  D:ENTER IN FORMAT XX:XX;ERRORM;I\CM_SRT_CLR_UPDSALES    'CHECK THAT THE FIRST TWO DIGITS ARE BETWEEN 00 AND 24  A:LEFT;I\CM_SRT_CLR_UPDSALES,2;I\TMP26  I:I\TMP26;

$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    

$CALCULATE    'MANDATORY  M:    'GET MIN & MAX COLD STORAGE CHARGES  F:CLIENT_MAST;Y;;W\CM_CS_MIN_CHARGE=CM_CS_MIN_CHARGE,W\CM_CS_MAX_CHARGE=CM_CS_MAX_CHARGE;CM_CODE='$I\MARKET$';I\LT_TRTARIFF    'FORMAT TARIFF TO TWO DECIMAL PLACES  A:VAR;I\LT_TRTARIFF;I\LT_TRTARIFF;;#0.000    'FORMAT TARIFF TO TWO DECIMAL PLACES  A:V

$SELECT  S:PERIOD_TYPE;I\LT_CS_PRDTYPE    $CALCULATE    'MANDATORY  M:    'CONVERT TO UPPERCASE  C:UCASE    'CHECK IF A VALID PERIOD IS ENTERED  F:PERIOD_TYPE;Y;;;PT_TYPE='$I\LT_CS_PRDTYPE$'

$CALCULATE    'CONVERT TO UPPERCASE  C:UCASE

$DEFAULT  A:USERIP;;I\IP  

$CALCULATE    'MANDATORY  M:    I:I\LT_PRQTY;=;0;NUM    D:DEPOSIT QTY MUST BE GREATER THAN ZERO.;ERRORM;I\LT_PRQTY    I:I\LT_PRQTY;>;I\AVAIL_QTY;NUM    D:DEPOSIT QTY CAN NOT BE GREATER THAN AVAIL.;ERRORM;I\LT_PRQTY    'I:W\CHG_TYPE;=;C  'DO(001)  '  O:DISABLEINPUT;I\LT_PRCONT  '  A:VAR;I\LT_PRQTY;I\LT_CONT_CHG_QTY  'DO

$DEFAULT    B:ADDITEM;I\LT_CS_PRDTYPE;H,D,W,M,Y    $CALCULATE    C:UCASE  B:VALIDATE;I\LT_CS_PRDTYPE;H,D,W,M,Y

$BEFORE_WRITE  U:CS_OTHER_DEP_MANTENANCE;CS_OTHER_DEP_MAN_SAVE_DATA