class CellModel
   /*******************************************************
     P R O P E R T I E S
    *******************************************************/
   property number CellNumber get set;
   property number CellValue get set;
   property string CellValueDisplay get;
   property boolean GivenValue get set;
   
   
   /*********************************************************
     C O N S T R U C T O R   D E C L A R A T I O N
    *********************************************************/
   method CellModel(&p_nbrCellNumber As number, &p_nbrCellValue As number, &p_blnGivenValue As boolean);
   
   /*******************************************************
     P U B L I C   M E T H O D   D E C L A R A T I O N
    ******************************************************/
   
   /*******************************************************
     P R I V A T E   I N S T A N C E   V A R I A B L E S
    *******************************************************/
private
   instance number &i_nbrSkCellNbr;
   instance number &i_nbrSkCellValue;
   instance boolean &i_blnSkGivenFlg;
   
end-class; /* CellModel */

/*********************************************************
  C O N S T R U C T O R   M E T H O D
 *********************************************************/
method CellModel
   /+ &p_nbrCellNumber as Number, +/
   /+ &p_nbrCellValue as Number, +/
   /+ &p_blnGivenValue as Boolean +/
   
   &i_nbrSkCellNbr = &p_nbrCellNumber;
   &i_nbrSkCellValue = &p_nbrCellValue;
   &i_blnSkGivenFlg = &p_blnGivenValue;
   
end-method; /* CellModel */


/*******************************************************
   G E T T E R   M E T H O D S
 *******************************************************/

/*******************************
   Getter Method CellNumber 
 ******************************/
get CellNumber
   /+ Returns Number +/
   Return &i_nbrSkCellNbr;
end-get; /* CellNumber */

/*******************************
   Getter Method CellValue 
 ******************************/
get CellValue
   /+ Returns Number +/
   Return &i_nbrSkCellValue;
end-get; /* CellValue */

/*******************************
   Getter Method GivenValue 
 ******************************/
get GivenValue
   /+ Returns Boolean +/
   Return &i_blnSkGivenFlg;
end-get; /* GivenValue */

/*******************************
   Getter Method CellValueDisplay 
 ******************************/
get CellValueDisplay
   /+ Returns String +/
   
   Local string &strReturnValue;
   
   If &i_nbrSkCellValue > 0 Then
      &strReturnValue = String(&i_nbrSkCellValue);
   Else
      &strReturnValue = " ";
   End-If;
   
   Return &strReturnValue;
   
end-get; /* CellValueDisplay */


/*******************************************************
   S E T T E R   M E T H O D S
 *******************************************************/

/*******************************
   Setter Method CellNumber 
 ******************************/
set CellNumber
   /+ &NewValue as Number +/
   &i_nbrSkCellNbr = &NewValue;
end-set; /* CellNumber */


/*******************************
   Setter Method CellValue 
 ******************************/
set CellValue
   /+ &NewValue as Number +/
   &i_nbrSkCellValue = &NewValue;
end-set; /* CellValue */


/*******************************
   Setter Method GivenValue 
 ******************************/
set GivenValue
   /+ &NewValue as Boolean +/
   &i_blnSkGivenFlg = &NewValue;
end-set; /* GivenValue */


/*******************************************************
   P U B L I C   M E T H O D S
 *******************************************************/