Degree Description

Code example:

import SCC_FILE_PARSER:UTIL:FieldCalculationAbstract;
import SCC_FILE_PARSER:MODEL:Results:ResultsField;
import SCC_FILE_PARSER:MODEL:Results:ResultsRecord;
import SCC_FILE_PARSER:MODEL:Results:ResultsCollection;
import SCC_FILE_PARSER:UTIL:Exception:FileParserException;

/**
  *  class FetchDegreeDescr
  *
  *  @version 1.0
  *  @author Campus Solutions	
  *
  *  Module: Recruiting and Admissions / Common App.
  *  Description: 
  */
class FetchDegreeDescr extends SCC_FILE_PARSER:UTIL:FieldCalculationAbstract
   /* public methods */
   method FetchDegreeDescr();
   method calculateValue(&ResultsFieldIn As 
SCC_FILE_PARSER:MODEL:Results:ResultsField, &ResultsCollectionIn 
As SCC_FILE_PARSER:MODEL:Results:ResultsCollection) Returns any;
private
   method GetFileData();
   method GetFieldReferences();
   instance string &Degree;
   instance string &DegreeDescrOut;
   instance SCC_FILE_PARSER:MODEL:Results:ResultsField &ResultsField;
   instance SCC_FILE_PARSER:MODEL:Results:ResultsCollection &ResultsCollection;
   instance SCC_FILE_PARSER:MODEL:Results:ResultsField &DegreeField;
end-class;
method FetchDegreeDescr
   %Super = create SCC_FILE_PARSER:UTIL:FieldCalculationAbstract();
end-method;
method calculateValue
   /+ &ResultsFieldIn as SCC_FILE_PARSER:MODEL:Results:ResultsField, +/
   /+ &ResultsCollectionIn as SCC_FILE_PARSER:MODEL:Results:ResultsCollection +/
   /+ Returns Any +/
   /+ Extends/implements 
SCC_FILE_PARSER:UTIL:FieldCalculationAbstract.CalculateValue +/
   &ResultsCollection = &ResultsCollectionIn;
   &ResultsField = &ResultsFieldIn;
   %This.GetFileData();
   Return &DegreeDescrOut;
end-method;
method GetFileData
   Local string &DegreeDescr;
   If &DegreeField = Null Then
      %This.GetFieldReferences();
   End-If;
   &Degree = "";
   If &DegreeField <> Null Then
      &Degree = &DegreeField.FieldValue;
      SQLExec("SELECT A.DESCR FROM PS_DEGREE_TBL A 
WHERE A.DEGREE =:1 AND A.EFF_STATUS = 'A' AND 
A.EFFDT = (SELECT MAX(A1.EFFDT) FROM PS_DEGREE_TBL A1 
WHERE A1.DEGREE = A.DEGREE AND 
A1.EFFDT <= %DateIn(:2))", &Degree, %Date, &DegreeDescr);
      If &DegreeDescr = "" Then
         &DegreeDescrOut = "NOT FOUND";
      Else
         &DegreeDescrOut = &DegreeDescr;
      End-If;
   End-If;
end-method;
method GetFieldReferences
   Local integer &SegmentNbr;
   Local integer &RecordRow;
   Local SCC_FILE_PARSER:MODEL:Results:ResultsRecord &obj_SCC_STG_EXTDEGR;
   &SegmentNbr = &ResultsField.ResultsRecord.SegmentNbr;
   &RecordRow = &ResultsField.ResultsRecord.RecordRow;
   &obj_SCC_STG_EXTDEGR = &ResultsCollection.GetResultsRecord(&SegmentNbr, 
"SCC_STG_EXTDEGR", &RecordRow);
   If &obj_SCC_STG_EXTDEGR <> Null Then
      &DegreeField = &obj_SCC_STG_EXTDEGR.GetResultsField("DEGREE");
   End-If;
end-method;