Commonly Used PDL Calculated Mapping Application Class Objects
This section discusses how to derive:
Recruiting center.
Academic interests – description.
For additional commonly used calculated mapping application class objects, see Commonly Used Calculated Mapping Application Class Objects
Recruiting Center
import SCC_FILE_PARSER:MODEL:Results:ResultsField; import SCC_FILE_PARSER:MODEL:Results:ResultsRecord; import SCC_FILE_PARSER:UTIL:FieldCalculationAbstract; import SCC_FILE_PARSER:MODEL:Results:ResultsCollection; import SCC_FILE_PARSER:UTIL:Exception:FileParserException; /** * class Recruiting_Center * * @version 1.0 * @author Campus Solutions * * Module: Campus Community / Common * Description: */ class Recruiting_Center extends SCC_FILE_PARSER:UTIL:FieldCalculationAbstract /* public methods */ method Recruiting_Center(); 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 &adm_recr_ctrOut; instance string &RecruitingCenter; instance SCC_FILE_PARSER:MODEL:Results:ResultsField &ResultsField; instance SCC_FILE_PARSER:MODEL:Results:ResultsCollection &ResultsCollection; instance SCC_FILE_PARSER:MODEL:Results:ResultsField &InstitutionField; instance SCC_FILE_PARSER:MODEL:Results:ResultsField &CareerField; instance SCC_FILE_PARSER:MODEL:Results:ResultsField &ProgramField; instance SCC_FILE_PARSER:MODEL:Results:ResultsField &PlanField; end-class; /** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * This method obtains the Recruiting Center based on incoming data. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ method Recruiting_Center %Super = create SCC_FILE_PARSER:UTIL:FieldCalculationAbstract(); end-method; /** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * This method is the driver for deriving the Recruiting Center * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 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(); &RecruitingCenter = &adm_recr_ctrOut; Return &RecruitingCenter; end-method; /** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * This method gets the Institution, Career, Program, and Plan from * the incoming data. Based on what data was supplied, there is an * iterative approach to obtaining the Recruiting Center * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ method GetFileData Local string &Institution, &Career, &Program, &Plan, &adm_recr_ctr; %This.GetFieldReferences(); &Institution = ""; If &InstitutionField <> Null Then &Institution = &InstitutionField.FieldValue; End-If; &Career = ""; If &CareerField <> Null Then &Career = &CareerField.FieldValue; End-If; &Program = ""; If &ProgramField <> Null Then &Program = &ProgramField.FieldValue; End-If; &Plan = ""; If &PlanField <> Null Then &Plan = &PlanField.FieldValue; End-If; &adm_recr_ctr = ""; If All(&Institution, &Career, &Program, &Plan) Then SQLExec("SELECT ADM_RECR_CTR FROM PS_SAD_PDL_SETUP WHERE INSTITUTION = :1 AND ACAD_CAREER = :2 AND ACAD_PROG = :3 AND ACAD_PLAN = :4", &Institution, &Career, &Program, &Plan, &adm_recr_ctr); End-If; If &adm_recr_ctr = "" Then If All(&Institution, &Career, &Program) Then &Plan = " "; SQLExec("SELECT ADM_RECR_CTR FROM PS_SAD_PDL_SETUP WHERE INSTITUTION = :1 AND ACAD_CAREER = :2 AND ACAD_PROG = :3 AND ACAD_PLAN = :4", &Institution, &Career, &Program, &Plan, &adm_recr_ctr); End-If; End-If; If &adm_recr_ctr = "" Then If All(&Institution, &Career) Then &Program = " "; &Plan = " "; SQLExec("SELECT ADM_RECR_CTR FROM PS_SAD_PDL_SETUP WHERE INSTITUTION = :1 AND ACAD_CAREER = :2 AND ACAD_PROG = :3 AND ACAD_PLAN = :4", &Institution, &Career, &Program, &Plan, &adm_recr_ctr); End-If; End-If; &adm_recr_ctrOut = &adm_recr_ctr; end-method; /** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * This method obtains the Institution, Academic Career, Program and * Plan - if available. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ method GetFieldReferences Local integer &SegmentNbr; Local integer &RowNbr = 1; Local SCC_FILE_PARSER:MODEL:Results:ResultsRecord &obj_SAD_PRS_CAR_STG; Local SCC_FILE_PARSER:MODEL:Results:ResultsRecord &obj_SAD_PRS_PRG_STG; Local SCC_FILE_PARSER:MODEL:Results:ResultsRecord &obj_SAD_PRS_PLN_STG; &SegmentNbr = &ResultsField.ResultsRecord.SegmentNbr; &obj_SAD_PRS_CAR_STG = &ResultsCollection.GetResultsRecord(&SegmentNbr, "SAD_PRS_CAR_STG", &RowNbr); &obj_SAD_PRS_PRG_STG = &ResultsCollection.GetResultsRecord(&SegmentNbr, "SAD_PRS_PRG_STG", &RowNbr); &obj_SAD_PRS_PLN_STG = &ResultsCollection.GetResultsRecord(&SegmentNbr, "SAD_PRS_PLN_STG", &RowNbr); If &obj_SAD_PRS_CAR_STG <> Null Then &InstitutionField = &obj_SAD_PRS_CAR_STG.GetResultsField("INSTITUTION"); &CareerField = &obj_SAD_PRS_CAR_STG.GetResultsField("ACAD_CAREER"); End-If; If &obj_SAD_PRS_PRG_STG <> Null Then &ProgramField = &obj_SAD_PRS_PRG_STG.GetResultsField("ACAD_PROG"); End-If; If &obj_SAD_PRS_PLN_STG <> Null Then &PlanField = &obj_SAD_PRS_PLN_STG.GetResultsField("ACAD_PLAN"); End-If; end-method;
Academic Interests – Description
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 FetchSubjectDescr * * @version 1.0 * @author Campus Solutions * * Module: Recruiting and Admissions / Common App. * Description: */ class FetchSubjectDescr extends SCC_FILE_PARSER:UTIL:FieldCalculationAbstract /* public methods */ method FetchSubjectDescr(); 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 &SubjectArea; instance string &SubjectAreaDescrOut; instance SCC_FILE_PARSER:MODEL:Results:ResultsField &ResultsField; instance SCC_FILE_PARSER:MODEL:Results:ResultsCollection &ResultsCollection; instance SCC_FILE_PARSER:MODEL:Results:ResultsField &SubjectAreaField; end-class; /** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * This method obtains the Subject Description based on incoming data. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ method FetchSubjectDescr %Super = create SCC_FILE_PARSER:UTIL:FieldCalculationAbstract(); end-method; /** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * This method is the driver for deriving the Subject Description. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 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 &SubjectAreaDescrOut; end-method; /** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * This method obtains the Subject Description based on incoming * Subject Area. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ method GetFileData Local string &SubjectAreaDescr; If &SubjectAreaField = Null Then %This.GetFieldReferences(); End-If; &SubjectArea = ""; If &SubjectAreaField <> Null Then &SubjectArea = &SubjectAreaField.FieldValue; SQLExec("SELECT A.DESCR FROM PS_EXT_SUBJECT_TBL A WHERE A.EXT_SUBJECT_AREA =:1 AND A.EFF_STATUS = 'A' AND A.EFFDT = (SELECT MAX(A1.EFFDT) FROM PS_EXT_SUBJECT_TBL A1 WHERE A1.EXT_SUBJECT_AREA = A.EXT_SUBJECT_AREA AND A1.EFFDT <= %DateIn(:2))", &SubjectArea, %Date, &SubjectAreaDescr); If &SubjectAreaDescr = "" Then &SubjectAreaDescrOut = "NOT FOUND"; Else &SubjectAreaDescrOut = &SubjectAreaDescr; End-If; End-If; end-method; /** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * This method obtains the Subject Area from the incoming data. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ method GetFieldReferences Local integer &SegmentNbr; Local integer &RecordRow; Local SCC_FILE_PARSER:MODEL:Results:ResultsRecord &obj_SCC_STG_ADMINT; &SegmentNbr = &ResultsField.ResultsRecord.SegmentNbr; &RecordRow = &ResultsField.ResultsRecord.RecordRow; &obj_SCC_STG_ADMINT = &ResultsCollection.GetResultsRecord(&SegmentNbr, "SCC_STG_ADMINT", &RecordRow); If &obj_SCC_STG_ADMINT <> Null Then &SubjectAreaField = &obj_SCC_STG_ADMINT.GetResultsField("EXT_SUBJECT_AREA"); End-If; end-method;