PALLET_MAN

$SELECT  S:PALLET_CODE;I\PM_PALL    $VALIDATE  M:  C:UCASE  'A:ISNUMERIC;I\PM_PALL;I\TMP1    F:PALL_MAST;;;I\TMP_NEW=PM_PALL;PM_PALL='$I\PM_PALL$'  I:I\TMP_NEW;<>;  F:PALL_MAST;;;I\TMP_OLDFEE=PM_PALFEE,I\DELIND=PM_DELIND;PM_PALL='$I\PM_PALL$'    I:I\DELIND;=;Y  D:THE PALLET HAS ALREADY BEEN DELETED;ERRORM;I\PM_PALL    

$VALIDATE  C:UCASE  

$VALIDATE  M:  C:UCASE

$SELECT  'S:SECT_MAST;I\PM_SECT  S:SECTION_CODE;I\PM_SECT

$VALIDATE    C:UCASE  I:I\BLOCK_PALL;=;    V:Y;N  

$SELECT  S:PALLET;I\PM_TYPE

$SELECT  S:PALLET_CODE;I\PM_PALL

$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    O:HIDE;T\CHEP_PALL,I\CHEP_PALL    $BEFORE_DELETE    'NOT ALLOW USERS TO DELETE WHILE THESE FIELDS ARE EMPTY    I:I\PM_PALL;=;    DO     I:I\PM_DESC;=;     I:I\PM_TYPE;=;     

$SELECT  S:VAT;I\PM_DF_VATCDE

$SELECT  S:VAT;I\PM_FEEVAT

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME  C:MCASE;;T\MARKET

$BEFORE_WRITE  I:I\TMP_NEW;<>;  DO(APL)    I:I\TMP_NEW;<>;I\TMP_OLDFEE;NUM    U:PALLET_MAST;UPDATE_HISTORY  DOEND(APL)

$SELECT  'S:SECT_MAST;I\PM_SECT  S:SECTION_CODE;I\PM_SECT      $VALIDATE  'MAKE THIS FIELD MANDATORY  M:    'DISPLAY ERROR MESSAGE IF NON-EXISTING VALUE IS ENTERED  F:SECT_MAST;Y;;I\PM_SECT=SE_SECT;SE_SECT='$I\PM_SECT$';I\PM_SECT

$SELECT  'DISPLAY SELECTION WINDOW  S:PALLET;I\PM_TYPE    $VALIDATE  'MAKE THIS FIELD MANDATORY  M:  C:UCASE    A:ISNUMERIC;I\PM_TYPE;I\TMP11  I:I\TMP11;=;Y  A:VAR;I\PM_TYPE;I\PM_TYPE;;00    'DISPLAY ERROR MESSAGE IF NON-EXISTING VALUE IS ENTERED  F:PALL_TYPE;Y;;I\PM_TYPE=PTP_TYPE;PTP_TYPE='$I\PM_TYPE$'    I:I\PM_TYPE;

$SELECT  S:VAT;I\PM_FEEVAT    $VALIDATE  M:  A:VAR;I\PM_FEEVAT;I\PM_FEEVAT;;00  F:VAT_MAST;Y;;I\TMP3=VT_RATE;VT_CODE='$I\PM_FEEVAT$'  A:CON;I\TMP3;T\FEE;"%"  

$SELECT  S:VAT;I\PM_DF_VATCDE    $VALIDATE  M:  A:VAR;I\PM_DF_VATCDE;I\PM_DF_VATCDE;;00  F:VAT_MAST;Y;;I\TMP2=VT_RATE;VT_CODE='$I\PM_DF_VATCDE$'  A:CON;I\TMP2;T\DEP;"%"    

$VALIDATE  I:I\PM_PALFEE;<>;  DO  I:I\PM_PALFEE;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\PM_PALFEE  DOEND    F:PALL_MAST;;;I\TMP_OLDFEE=PM_PALFEE;PM_PALL='$I\PM_PALL$'

$VALIDATE  I:I\PM_DEPOSIT;<>;  DO  I:I\PM_DEPOSIT;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\PM_DEPOSIT  DOEND  

$VALIDATE  I:I\PM_USAGE;<>;  DO  I:I\PM_USAGE;<;0  D:USAGE PERIOD CANNOT BE LESS THAN ZERO;ERRORM;I\PM_USAGE  DOEND        

$VALIDATE  I:I\PM_USAGE_FEE;<>;  DO  I:I\PM_USAGE_FEE;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\PM_USAGE_FEE  DOEND    

$VALIDATE  I:I\PM_MINPER;<>;  DO  I:I\PM_MINPER;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\PM_MINPER  I:I\PM_MINPER;>=;I\PM_MAXPER;NUM  D:MAX DAYS MUST BE GREATER THAN MIN DAYS;ERRORM;I\PM_MINPER  DOEND      

$VALIDATE  I:I\PM_MAXPER;<>;  DO  I:I\PM_MAXPER;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\PM_MAXPER  DOEND      

$VALIDATE  I:I\PM_RETDAYS;<>;  DO  I:I\PM_RETDAYS;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\PM_RETDAYS  DOEND    A:MULT;I\PM_USAGE_FEE;I\TMP4;I\PM_RETDAYS    'A:VAR;I\PM_FEEVAT;I\PM_FEEVAT;;00  'F:VAT_MAST;Y;;I\TMP3=VT_RATE;VT_CODE='$I\PM_FEEVAT$'  'A:MULT;I\TMP4;I\TMP5;I\TMP3  'A:DIV;I\TMP5;I\TMP5;100;#0.00  'A:ADD;I\T