Project: PRJ761689

	Platform	Default	
	Database	SA801DVB	
	Version	82	
	Description	UPD761689	

Records
AGGR_LIMIT_COPY	
AGGR_LIMIT_TBL	
AGGR_LVL_COPY	
AGGR_LVL_LIMITS	

Fields
AGGREGATE_LIMIT	
SFA_AGGR_AGLMT1	
SFA_AGGR_AGLMT2	
SFA_AGGR_AGLMT3	
SFA_AGGR_AGLMT4	
SFA_AGGR_AGLMT5	
SFA_AGGR_DEP_AGLMT	
SFA_AGGR_DEP_LMT	
SFA_AGGR_PPR_AGLMT	
UNDRGRAD_LIMIT	

Pages
AGGR_AID_TBL (ENG)

Components
AGGR_AID_TBL (GBL)

SQL
AGGR_LIMIT_COPY 	View
AGGR_LVL_COPY 	View

PeopleCode (Page)
AGGR_AID_TBL.Activate

PeopleCode (CompRecord)
AGGR_AID_TBL(GBL).AGGR_LIMIT_TBL.RowInsert
AGGR_AID_TBL(GBL).AGGR_LIMIT_TBL.SaveEdit

PeopleCode (CompRecFld)
AGGR_AID_TBL(GBL).AGGR_LIMIT_TBL.FA_SOURCE         FieldChange
AGGR_AID_TBL(GBL).AGGR_LIMIT_TBL.FIN_AID_TYPE      FieldChange
AGGR_AID_TBL(GBL).AGGR_LIMIT_TBL.LOAN_INTEREST_ATTRFieldChange

Record Detail

Record: AGGR_LIMIT_COPY	
	Description	Aggregate Aid Table
	Record Type	SQL View
	Parent Record	 
	Related Language	AGGR_LIMCOPY_LN
	DDL Space Name	SFAPP
	Build Seq	1
	Owner ID	SFAA
	Comments	Copy record for Lifetime Aggregate Aid Limits from Aid Year to anoth
		er.

FieldName          Type   Len  Key  Srch Req Edit Prompt          C Default                          
AGGREGATE_AREA     Char 10     KALS      Req
AID_YEAR           Char 4      KDLS      Req Prmt FED_AID_YR_TBL
EFFDT              Date 10     KD        Req                        %date
EFF_STATUS         Char 1                    Xlat                   'A'
DESCR              Char 30       L
UNDRGRAD_LIMIT     Num  6
GRADUATE_LIMIT     Num  6
MAX_TERMS          Num  2
FIN_AID_TYPE       Char 4                Req Xlat
PELL_GRANT         Char 1                    Y/N
FA_SOURCE          Char 1                Req Xlat
LOAN_PROGRAM       Char 1                    Xlat
LOAN_INTEREST_ATTR Char 1                    Xlat
CURRENCY_CD        Char 3
DESCRLONG          Long
AGGREGATE_PROGRAM  Char 4                    Prmt AGGR_PROG_TBL
GRAD_LIMIT_RULE    Char 1                    Xlat
FEDERAL_ID         Char 4                    Xlat
SFA_AGGR_DEP_LMT   Num  6

Record: AGGR_LIMIT_TBL	
	Description	Aggregate Aid Table
	Record Type	SQL Table
	Parent Record	 
	Related Language	AGGR_LIMIT_LANG
	DDL Space Name	FAAPP
	Owner ID	SFAA
	Comments	This record contains all of the user defined aggregate types for fin
		ancial aid awards and their associated limits.

FieldName          Type   Len  Key  Srch Req Edit Prompt          C Default                          
AGGREGATE_AREA     Char 10     KALS      Req
AID_YEAR           Char 4      KDLS      Req Prmt FED_AID_YR_TBL    OPR_DEF_TBL_CS.AID_YEAR
EFFDT              Date 10     KD        Req                        %date
EFF_STATUS         Char 1                    Xlat                   'A'
DESCR              Char 30     AAL       Req
UNDRGRAD_LIMIT     Num  6
GRADUATE_LIMIT     Num  6
MAX_TERMS          Num  2
FIN_AID_TYPE       Char 4                Req Xlat
PELL_GRANT         Char 1                    Y/N                    'N'
FA_SOURCE          Char 1                Req Xlat
LOAN_PROGRAM       Char 1                    Xlat
LOAN_INTEREST_ATTR Char 1                    Xlat
CURRENCY_CD        Char 3
DESCRLONG          Long
AGGREGATE_PROGRAM  Char 4                    Prmt AGGR_PROG_TBL
GRAD_LIMIT_RULE    Char 1                    Xlat                   'D'
FEDERAL_ID         Char 4                    Xlat
SFA_AGGR_DEP_LMT   Num  6

Record: AGGR_LVL_COPY	
	Description	Aggregate Level Limits
	Record Type	SQL View
	Parent Record	AGGR_LIMIT_COPY
	Related Language	 
	DDL Space Name	SFAPP
	Build Seq	1
	Owner ID	SFAA
	Comments	Copy record for Aggregate Level Limits from one Aid Year to another.

FieldName          Type   Len  Key  Srch Req Edit Prompt          C Default                          
AGGREGATE_AREA     Char 10     KALS      Req Prmt AGGR_LIMIT_TBL
AID_YEAR           Char 4      KDLS
EFFDT              Date 10     KD        Req
AGGREGATE_LEVEL    Char 2      KA        Req Prmt AGGR_LVL_VW
AGGREGATE_LIMIT    Num  9
MAX_TERMS          Num  2
CURRENCY_CD        Char 3
CUM_AGGR_LIMIT     Num  9                                           AGGR_LVL_LIMITS.AGGREGATE_LIMIT
SFA_AGGR_DEP_AGLMT Num  9
SFA_AGGR_PPR_AGLMT Num  9
SFA_AGGR_AGLMT1    Num  9
SFA_AGGR_AGLMT2    Num  9
SFA_AGGR_AGLMT3    Num  9
SFA_AGGR_AGLMT4    Num  9
SFA_AGGR_AGLMT5    Num  9

Record: AGGR_LVL_LIMITS	
	Description	Aggregate Level Limits
	Record Type	SQL Table
	Parent Record	AGGR_LIMIT_TBL
	Related Language	 
	DDL Space Name	FAAPP
	Owner ID	SFAA
	Comments	This record contains all of the user defined aggregate types for fin
		ancial aid awards and their associated limits for specified aggregat
		e levels.

FieldName          Type   Len  Key  Srch Req Edit Prompt          C Default                          
AGGREGATE_AREA     Char 10     KALS      Req Prmt AGGR_LIMIT_TBL
AID_YEAR           Char 4      KDLS      Req Prmt AGGR_LIMIT_TBL    '1998'
EFFDT              Date 10     KD        Req                        %date
AGGREGATE_LEVEL    Char 2      KA        Req Prmt AGGR_LVL_VW
AGGREGATE_LIMIT    Num  9
MAX_TERMS          Num  2
CURRENCY_CD        Char 3
CUM_AGGR_LIMIT     Num  9                                           AGGR_LVL_LIMITS.AGGREGATE_LIMIT
SFA_AGGR_DEP_AGLMT Num  9
SFA_AGGR_PPR_AGLMT Num  9
SFA_AGGR_AGLMT1    Num  9
SFA_AGGR_AGLMT2    Num  9
SFA_AGGR_AGLMT3    Num  9
SFA_AGGR_AGLMT4    Num  9
SFA_AGGR_AGLMT5    Num  9

Field Detail

Field: AGGREGATE_LIMIT	
	Field Type	Num
	Length	9
	Decimal Positions	0
	Format	UpperCase
	Family Name	 
	Display Name	 
	Owner ID	

Label ID            Short Name       Long Name                       Def
AGGREGATE_LIMIT     Limit            Aggregate Limit                 Yes
SFA_AGGR_INDEP_LMT  Indep Lmt        Independent Annual Limit
SFA_AGGR_IND_LIM    Independent      Independent Limit

Field: SFA_AGGR_AGLMT1	
	Field Type	Num	
	Length	9	
	Decimal Positions	0	
	Format	UpperCase	
	Family Name	 	
	Display Name	 	
	Owner ID	

Label ID            Short Name       Long Name                       Def
SFA_AGGR_AGLMT1     Limit 1          Annual Limit 1                  Yes

Field: SFA_AGGR_AGLMT2	
	Field Type	Num	
	Length	9	
	Decimal Positions	0	
	Format	UpperCase	
	Family Name	 	
	Display Name	 	
	Owner ID	

Label ID            Short Name       Long Name                       Def
SFA_AGGR_AGLMT1     Limit 1          Annual Limit 1                  Yes

Field: SFA_AGGR_AGLMT3	
	Field Type	Num	
	Length	9	
	Decimal Positions	0	
	Format	UpperCase	
	Family Name	 	
	Display Name	 	
	Owner ID	

Label ID            Short Name       Long Name                       Def
SFA_AGGR_AGLMT3     Limit 3          Annual Limit 3                  Yes

Field: SFA_AGGR_AGLMT4	
	Field Type	Num	
	Length	9	
	Decimal Positions	0	
	Format	UpperCase	
	Family Name	 	
	Display Name	 	
	Owner ID	

Label ID            Short Name       Long Name                       Def
SFA_AGGR_AGLMT4     Limit 4          Annual Limit 4                  Yes

Field: SFA_AGGR_AGLMT5	
	Field Type	Num	
	Length	9	
	Decimal Positions	0	
	Format	UpperCase	
	Family Name	 	
	Display Name	 	
	Owner ID	

Label ID            Short Name       Long Name                       Def
SFA_AGGR_AGLMT5     Limit 5          Annual Limit 5                  Yes

Field: SFA_AGGR_DEP_AGLMT	
	Field Type	Num	
	Length	9	
	Decimal Positions	0	
	Format	UpperCase	
	Family Name	 	
	Display Name	 	
	Owner ID	

Label ID            Short Name       Long Name                       Def
SFA_AGGR_DEP_AGLMT  Dependent Limit  Dependent Annual Limit          Yes

Field: SFA_AGGR_DEP_LMT	
	Field Type	Num	
	Length	6	
	Decimal Positions	0	
	Format	UpperCase	
	Family Name	 	
	Display Name	 	
	Owner ID	

Label ID            Short Name       Long Name                       Def
SFA_AGGR_DEP_LMT    Depend Undergrd  Dep Undergrad Lifetime          Yes
SFA_AGGR_DEP_UGRD   Depend Undergrd  Dependent Undergraduate

Field: SFA_AGGR_PPR_AGLMT	
	Field Type	Num	
	Length	9	
	Decimal Positions	0	
	Format	UpperCase	
	Family Name	 	
	Display Name	 	
	Owner ID	

Label ID            Short Name       Long Name                       Def
SFA_AGGR_PPR_AGLMT  Preparatory Lmt  Preparatory Annual Limit        Yes

Field: UNDRGRAD_LIMIT	
	Field Type	Num
	Length	6
	Decimal Positions	0
	Format	UpperCase
	Family Name	 
	Display Name	 
	Owner ID	

Label ID            Short Name       Long Name                       Def
SFA_AGGR_INDEP_UGR  Independent      Independent Undergraduate
SFA_INDEP_UGRD_LMT  Independent UGR  Indep Undergrad Lifetime
UGRD_LIMIT          Limit            Ugrd Limit
UNDERGRAD           Undergrad        Undergrad
UNDRGRAD_LIMIT      UnGrad Lmt       Undergrad Lifetime              Yes

Page Detail

Page: AGGR_AID_TBL (ENG)
	Description	Aggregate Aid Limits
	Type	Standard Page
	Allow Deferred Proc.	Yes
	Owner ID	SFA

Type     ID    Lvl Record          Field              Label               Attributes
Label    1     0                                      [#14402,48]
EditBox  2     0   AGGR_LIMIT_TBL  AGGREGATE_AREA     +AGGREGATE_AREA     Gray
EditBox  3     0   AGGR_LIMIT_TBL  AID_YEAR           +AID_YEAR           Gray CtrlFld
EditBox  4     0   FED_AID_YR_TBL  DESCR              [None ]             Gray Related:3
ScrArea  .5    1                                      [None ]             Lvl 1 #1
SecPage  .6    1                                      [Image]             -> AGGR_AID_COPY Hide
PushBtn  .7    1   DERIVED_FA_COPY COPY_DATA_PUSHBTN  -COPY_DATA_PUSHBTN  PushBtn->PCode
EditBox  .8    1   AGGR_LIMIT_TBL  EFFDT              +EFFDT              Century
ComboBox .9    1   AGGR_LIMIT_TBL  EFF_STATUS         -EFF_STATUS         XLatShort
EditBox  .10   1   AGGR_LIMIT_TBL  DESCR              +DESCR
EditBox  .11   1   AGGR_LIMIT_TBL  DESCRLONG          'Long 
Description'
EditBox  .12   1   AGGR_LIMIT_TBL  AGGREGATE_PROGRAM  +AGGREGATE_PROGRAM  CtrlFld
EditBox  .13   1   AGGR_PROG_TBL   DESCR              [None ]             Gray Related:12
ComboBox .14   1   AGGR_LIMIT_TBL  FA_SOURCE          -FA_SOURCE          XLatShort
ComboBox .15   1   AGGR_LIMIT_TBL  FEDERAL_ID         +FEDERAL_ID         XLatShort
ComboBox .16   1   AGGR_LIMIT_TBL  FIN_AID_TYPE       +FIN_AID_TYPE_LBL2  XLatShort
CheckBox .17   1   AGGR_LIMIT_TBL  PELL_GRANT         +PELL_GRANT         On:Y Off:N
ComboBox .18   1   AGGR_LIMIT_TBL  LOAN_PROGRAM       +LOAN_PROGRAM       XLatShort
ComboBox .19   1   AGGR_LIMIT_TBL  LOAN_INTEREST_ATTR +LOAN_INTEREST_ATTR XLatShort
EditBox  .20   1   AGGR_LIMIT_TBL  UNDRGRAD_LIMIT     +UNDRGRAD_LIMIT     Zero Currency Commas
EditBox  .20   1   AGGR_LIMIT_TBL  UNDRGRAD_LIMIT     +SFA_INDEP_UGRD_LMT Zero Currency Commas
EditBox  .21   1   AGGR_LIMIT_TBL  GRADUATE_LIMIT     +GRADUATE_LIMIT     Zero Currency Commas
EditBox  .22   1   AGGR_LIMIT_TBL  MAX_TERMS          +MAX_TERMS
GroupBox .23   1   AGGR_LIMIT_TBL  GRAD_LIMIT_RULE    -GRAD_LIMIT_RULE
RadioBtn .24   1   AGGR_LIMIT_TBL  GRAD_LIMIT_RULE    [XLatLong]          Value:C
RadioBtn .25   1   AGGR_LIMIT_TBL  GRAD_LIMIT_RULE    [XLatLong]          Value:D
ScrArea  ..26  2                                      [#14402,7]          Lvl 2 #1
EditBox  ..27  2   AGGR_LVL_LIMITS AGGREGATE_LEVEL    +AGGREGATE_LEVEL    CtrlFld
EditBox  ..28  2   AGGR_LVL_VW     DESCR              [None ]             Gray Related:27
EditBox  ..29  2   AGGR_LVL_LIMITS AGGREGATE_LIMIT    +AGGREGATE_LIMIT    Zero Currency Commas
EditBox  ..30  2   AGGR_LVL_LIMITS CUM_AGGR_LIMIT     -CUM_AGGR_LIMIT     Zero Currency Commas
EditBox  ..31  2   AGGR_LVL_LIMITS MAX_TERMS          +MAX_TERMS
GroupBox .22   1   DERIVED_FA      DESCR              +DESCR
EditBox  .23   1   AGGR_LIMIT_TBL  SFA_AGGR_DEP_LMT   +SFA_AGGR_DEP_LMT   Zero Currency Commas
EditBox  .24   1   AGGR_LIMIT_TBL  MAX_TERMS          +MAX_TERMS
GroupBox .25   1   AGGR_LIMIT_TBL  GRAD_LIMIT_RULE    -GRAD_LIMIT_RULE
RadioBtn .26   1   AGGR_LIMIT_TBL  GRAD_LIMIT_RULE    [XLatLong]          Value:C
RadioBtn .27   1   AGGR_LIMIT_TBL  GRAD_LIMIT_RULE    [XLatLong]          Value:D
ScrArea  ..28  2                                      [#14402,7]          Lvl 2 #1
EditBox  ..29  2   AGGR_LVL_LIMITS AGGREGATE_LEVEL    +AGGREGATE_LEVEL    CtrlFld
EditBox  ..30  2   AGGR_LVL_VW     DESCR              [None ]             Gray Related:29
EditBox  ..31  2   AGGR_LVL_LIMITS AGGREGATE_LIMIT    +AGGREGATE_LIMIT    Zero Currency Commas
EditBox  ..32  2   AGGR_LVL_LIMITS CUM_AGGR_LIMIT     -CUM_AGGR_LIMIT     Zero Currency Commas
EditBox  ..33  2   AGGR_LVL_LIMITS MAX_TERMS          +MAX_TERMS
EditBox  ..34  2   AGGR_LVL_LIMITS SFA_AGGR_DEP_AGLMT +SFA_AGGR_DEP_AGLMT Zero Currency Commas

Component Detail

Component: AGGR_AID_TBL (GBL)
	Description	FA Aggregate Aid Limit Setup
	Search Record	AGGR_AREA_SRCH
	Add Search Record	AGGR_LIMIT_TBL
	Disable Saving Page	No
	Include in Navigator	Yes
	Mandatory SpellCheck	No
	Detail Page	AGGR_AID_TBL
	Actions	Add Update UpdAll Correct 
	Comments	FA Aggregate Aid Limit Setup

	Internet
	Primary Action	Search
	Default Action	Update 
	Default Lookup Type	Advanced
	Allow Action Mode Sel.	Yes
	Link to App Page    Msg	124
	                    Nbr	62
	Link to Search Page Msg	124
	                    Nbr	63
	Instructional Text  Msg	124
	                    Nbr	50
	Disp Folder Tab (top)	No
	Disp Hiperlinks (bottom)	No
	Processing Mode	Interactive
	Allow Expert Entry	No
	Show ToolBar	Yes
	   Save	Yes
	   Cancel	No
	   SpellCheck	No
	   Return to List	Yes
	   Next in List	Yes
	   Prev in List	Yes
	   Next Page	No
	   Prev Page	No
	   Refresh	No
	   Notify	No
	   View Worklist	No
	   Next Worklist	No
	   Prov Worklist	No
	   Add	Yes
	   Update	Yes
	   UpdateAll	Yes
	   Correction	Yes
	Show Pagebar	Yes
	   Help Link	Yes
	   Copy URL Link	Yes
	   New Window Link	Yes
	   Customize Page Link	Yes

Panel Name         Item Name                Hid  Item Label              Folder Tab Label
AGGR_AID_TBL       AGGR_AID_TBL                  &Aggregate Aid Limit Ta

SQL Detail

SQL: AGGR_LIMIT_COPY 	View

SQL Statement
SELECT A.AGGREGATE_AREA,
      A.AID_YEAR,
      A.EFFDT,
      A.EFF_STATUS,
      A.DESCR,
      A.UNDRGRAD_LIMIT,
      A.GRADUATE_LIMIT,
      A.MAX_TERMS,
      A.FIN_AID_TYPE,
      A.PELL_GRANT,
      A.FA_SOURCE,
      A.LOAN_PROGRAM,
      A.LOAN_INTEREST_ATTR,
      A.CURRENCY_CD,
      A.DESCRLONG,
      A.AGGREGATE_PROGRAM,
      A.GRAD_LIMIT_RULE,
      A.FEDERAL_ID
      A.FEDERAL_ID,
      A.SFA_AGGR_DEP_LMT
 FROM  PS_AGGR_LIMIT_TBL A

SQL: AGGR_LVL_COPY 	View

SQL Statement
SELECT A.AGGREGATE_AREA,
      A.AID_YEAR,
      A.EFFDT,
      A.AGGREGATE_LEVEL,
      A.AGGREGATE_LIMIT,
      A.MAX_TERMS,
      A.CURRENCY_CD,
      A.CUM_AGGR_LIMIT
      A.CUM_AGGR_LIMIT,
      A.SFA_AGGR_DEP_AGLMT,
      A.SFA_AGGR_PPR_AGLMT,
      A.SFA_AGGR_AGLMT1,
      A.SFA_AGGR_AGLMT2,
      A.SFA_AGGR_AGLMT3,
      A.SFA_AGGR_AGLMT4,
      A.SFA_AGGR_AGLMT5
 FROM  PS_AGGR_LVL_LIMITS A

PeopleCode Detail

PeopleCode (Page): AGGR_AID_TBL.Activate
Local Rowset &RS1, &RS2;
Local Row &Row0;
Local Row &Row1, &Row2;
Local number &MaxRow1, &MaxRow2;
Local number &I, &J;

&Row0 = GetLevel0()(1);
&RS1 = &Row0.GetRowset(Scroll.AGGR_LIMIT_TBL);
&MaxRow1 = &RS1.RowCount;

For &I = 1 To &MaxRow1;
   &Row1 = &RS1(&I);
   
   If &Row1.AGGR_LIMIT_TBL.AID_YEAR.Value >= "2008" Then
      
      If &Row1.AGGR_LIMIT_TBL.LOAN_INTEREST_ATTR.Value = "U" And
            &Row1.AGGR_LIMIT_TBL.FA_SOURCE.Value = "F" And
            &Row1.AGGR_LIMIT_TBL.FIN_AID_TYPE.Value = "L" Then
         &Row1.AGGR_LIMIT_TBL.SFA_AGGR_DEP_LMT.Visible = True;
         &Row1.DERIVED_FA.DESCR.Visible = True;
         &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.Label = &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.GetLongLabel("SFA_INDEP_UGRD_LMT");
         
         &RS2 = &Row1.GetRowset(Scroll.AGGR_LVL_LIMITS);
         &MaxRow2 = &RS2.RowCount;
         
         For &J = 1 To &MaxRow2;
            &Row2 = &RS2(&J);
            &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Visible = True;
            &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Label = &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.GetLongLabel("SFA_AGGR_DEP_AGLMT");
            &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.Label = &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.GetLongLabel("SFA_AGGR_INDEP_LMT");
         End-For;
         
      Else
         &Row1.AGGR_LIMIT_TBL.SFA_AGGR_DEP_LMT.Visible = False;
         &Row1.DERIVED_FA.DESCR.Visible = False;
         &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.Label = &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.GetLongLabel("UNDRGRAD_LIMIT");
         
         &RS2 = &Row1.GetRowset(Scroll.AGGR_LVL_LIMITS);
         &MaxRow2 = &RS2.RowCount;
         
         For &J = 1 To &MaxRow2;
            &Row2 = &RS2(&J);
            &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Visible = False;
            &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Label = " ";
            &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.Label = &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.GetLongLabel("AGGREGATE_LIMIT");
         End-For;
         
      End-If;
   Else
      &Row1.AGGR_LIMIT_TBL.SFA_AGGR_DEP_LMT.Visible = False;
      &Row1.DERIVED_FA.DESCR.Visible = False;
      &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.Label = &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.GetLongLabel("UNDRGRAD_LIMIT");
      
      &RS2 = &Row1.GetRowset(Scroll.AGGR_LVL_LIMITS);
      &MaxRow2 = &RS2.RowCount;
      
      For &J = 1 To &MaxRow2;
         &Row2 = &RS2(&J);
         &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Visible = False;
         &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Label = " ";
         &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.Label = &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.GetLongLabel("AGGREGATE_LIMIT");
      End-For;
      
   End-If;
End-For;

PeopleCode (CompRecord): AGGR_AID_TBL(GBL).AGGR_LIMIT_TBL.RowInsert
Local Rowset &RS1, &RS2;
Local Row &Row0;
Local Row &Row1, &Row2;
Local number &MaxRow1, &MaxRow2;
Local number &I, &J;

&Row0 = GetLevel0()(1);
&RS1 = &Row0.GetRowset(Scroll.AGGR_LIMIT_TBL);
&MaxRow1 = &RS1.RowCount;

For &I = 1 To &MaxRow1;
   &Row1 = &RS1(&I);
   
   If &Row1.AGGR_LIMIT_TBL.AID_YEAR.Value >= "2008" Then
      
      If &Row1.AGGR_LIMIT_TBL.LOAN_INTEREST_ATTR.Value = "U" And
            &Row1.AGGR_LIMIT_TBL.FA_SOURCE.Value = "F" And
            &Row1.AGGR_LIMIT_TBL.FIN_AID_TYPE.Value = "L" Then
         &Row1.AGGR_LIMIT_TBL.SFA_AGGR_DEP_LMT.Visible = True;
         &Row1.DERIVED_FA.DESCR.Visible = True;
         &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.Label = &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.GetLongLabel("SFA_INDEP_UGRD_LMT");
         
         &RS2 = &Row1.GetRowset(Scroll.AGGR_LVL_LIMITS);
         &MaxRow2 = &RS2.RowCount;
         
         For &J = 1 To &MaxRow2;
            &Row2 = &RS2(&J);
            &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Visible = True;
            &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Label = &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.GetLongLabel("SFA_AGGR_DEP_AGLMT");
            &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.Label = &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.GetLongLabel("SFA_AGGR_INDEP_LMT");
         End-For;
         
      Else
         &Row1.AGGR_LIMIT_TBL.SFA_AGGR_DEP_LMT.Visible = False;
         &Row1.DERIVED_FA.DESCR.Visible = False;
         &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.Label = &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.GetLongLabel("UNDRGRAD_LIMIT");
         
         &RS2 = &Row1.GetRowset(Scroll.AGGR_LVL_LIMITS);
         &MaxRow2 = &RS2.RowCount;
         
         For &J = 1 To &MaxRow2;
            &Row2 = &RS2(&J);
            &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Visible = False;
            &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Label = " ";
            &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.Label = &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.GetLongLabel("AGGREGATE_LIMIT");
         End-For;
         
      End-If;
   Else
      &Row1.AGGR_LIMIT_TBL.SFA_AGGR_DEP_LMT.Visible = False;
      &Row1.DERIVED_FA.DESCR.Visible = False;
      &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.Label = &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.GetLongLabel("UNDRGRAD_LIMIT");
      
      &RS2 = &Row1.GetRowset(Scroll.AGGR_LVL_LIMITS);
      &MaxRow2 = &RS2.RowCount;
      
      For &J = 1 To &MaxRow2;
         &Row2 = &RS2(&J);
         &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Visible = False;
         &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Label = " ";
         &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.Label = &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.GetLongLabel("AGGREGATE_LIMIT");
      End-For;
      
   End-If;
End-For;

PeopleCode (CompRecord): AGGR_AID_TBL(GBL).AGGR_LIMIT_TBL.SaveEdit
If AGGR_LIMIT_TBL.AGGREGATE_PROGRAM.Value = "DSTF" Or
      AGGR_LIMIT_TBL.AGGREGATE_PROGRAM.Value = "FSTF" Then
   If None(AGGR_LIMIT_TBL.LOAN_INTEREST_ATTR.Value) Then
      MessageBox(0, "", 14460, 1000, "Please enter the value for Loan Interest Attribute");
   End-If;
End-If;

PeopleCode (CompRecFld): AGGR_AID_TBL(GBL).AGGR_LIMIT_TBL.FA_SOURCE
Local Rowset &RS1, &RS2;
Local Row &Row0;
Local Row &Row1, &Row2;
Local number &MaxRow1, &MaxRow2;
Local number &I, &J;

&Row0 = GetLevel0()(1);
&RS1 = &Row0.GetRowset(Scroll.AGGR_LIMIT_TBL);
&MaxRow1 = &RS1.RowCount;

For &I = 1 To &MaxRow1;
   &Row1 = &RS1(&I);
   
   If &Row1.AGGR_LIMIT_TBL.AID_YEAR.Value >= "2008" Then
      
      If &Row1.AGGR_LIMIT_TBL.LOAN_INTEREST_ATTR.Value = "U" And
            &Row1.AGGR_LIMIT_TBL.FA_SOURCE.Value = "F" And
            &Row1.AGGR_LIMIT_TBL.FIN_AID_TYPE.Value = "L" Then
         &Row1.AGGR_LIMIT_TBL.SFA_AGGR_DEP_LMT.Visible = True;
         &Row1.DERIVED_FA.DESCR.Visible = True;
         &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.Label = &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.GetLongLabel("SFA_INDEP_UGRD_LMT");
         
         &RS2 = &Row1.GetRowset(Scroll.AGGR_LVL_LIMITS);
         &MaxRow2 = &RS2.RowCount;
         
         For &J = 1 To &MaxRow2;
            &Row2 = &RS2(&J);
            &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Visible = True;
            &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Label = &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.GetLongLabel("SFA_AGGR_DEP_AGLMT");
            &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.Label = &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.GetLongLabel("SFA_AGGR_INDEP_LMT");
         End-For;
         
      Else
         &Row1.AGGR_LIMIT_TBL.SFA_AGGR_DEP_LMT.Visible = False;
         &Row1.DERIVED_FA.DESCR.Visible = False;
         &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.Label = &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.GetLongLabel("UNDRGRAD_LIMIT");
         
         &RS2 = &Row1.GetRowset(Scroll.AGGR_LVL_LIMITS);
         &MaxRow2 = &RS2.RowCount;
         
         For &J = 1 To &MaxRow2;
            &Row2 = &RS2(&J);
            &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Visible = False;
            &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Label = " ";
            &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.Label = &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.GetLongLabel("AGGREGATE_LIMIT");
         End-For;
         
      End-If;
   Else
      &Row1.AGGR_LIMIT_TBL.SFA_AGGR_DEP_LMT.Visible = False;
      &Row1.DERIVED_FA.DESCR.Visible = False;
      &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.Label = &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.GetLongLabel("UNDRGRAD_LIMIT");
      
      &RS2 = &Row1.GetRowset(Scroll.AGGR_LVL_LIMITS);
      &MaxRow2 = &RS2.RowCount;
      
      For &J = 1 To &MaxRow2;
         &Row2 = &RS2(&J);
         &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Visible = False;
         &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Label = " ";
         &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.Label = &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.GetLongLabel("AGGREGATE_LIMIT");
      End-For;
      
   End-If;
End-For;

PeopleCode (CompRecFld): AGGR_AID_TBL(GBL).AGGR_LIMIT_TBL.FIN_AID_TYPE
Local Rowset &RS1, &RS2;
Local Row &Row0;
Local Row &Row1, &Row2;
Local number &MaxRow1, &MaxRow2;
Local number &I, &J;

&Row0 = GetLevel0()(1);
&RS1 = &Row0.GetRowset(Scroll.AGGR_LIMIT_TBL);
&MaxRow1 = &RS1.RowCount;

For &I = 1 To &MaxRow1;
   &Row1 = &RS1(&I);
   
   If &Row1.AGGR_LIMIT_TBL.AID_YEAR.Value >= "2008" Then
      
      If &Row1.AGGR_LIMIT_TBL.LOAN_INTEREST_ATTR.Value = "U" And
            &Row1.AGGR_LIMIT_TBL.FA_SOURCE.Value = "F" And
            &Row1.AGGR_LIMIT_TBL.FIN_AID_TYPE.Value = "L" Then
         &Row1.AGGR_LIMIT_TBL.SFA_AGGR_DEP_LMT.Visible = True;
         &Row1.DERIVED_FA.DESCR.Visible = True;
         &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.Label = &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.GetLongLabel("SFA_INDEP_UGRD_LMT");
         
         &RS2 = &Row1.GetRowset(Scroll.AGGR_LVL_LIMITS);
         &MaxRow2 = &RS2.RowCount;
         
         For &J = 1 To &MaxRow2;
            &Row2 = &RS2(&J);
            &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Visible = True;
            &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Label = &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.GetLongLabel("SFA_AGGR_DEP_AGLMT");
            &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.Label = &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.GetLongLabel("SFA_AGGR_INDEP_LMT");
         End-For;
         
      Else
         &Row1.AGGR_LIMIT_TBL.SFA_AGGR_DEP_LMT.Visible = False;
         &Row1.DERIVED_FA.DESCR.Visible = False;
         &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.Label = &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.GetLongLabel("UNDRGRAD_LIMIT");
         
         &RS2 = &Row1.GetRowset(Scroll.AGGR_LVL_LIMITS);
         &MaxRow2 = &RS2.RowCount;
         
         For &J = 1 To &MaxRow2;
            &Row2 = &RS2(&J);
            &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Visible = False;
            &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Label = " ";
            &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.Label = &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.GetLongLabel("AGGREGATE_LIMIT");
         End-For;
         
      End-If;
   Else
      &Row1.AGGR_LIMIT_TBL.SFA_AGGR_DEP_LMT.Visible = False;
      &Row1.DERIVED_FA.DESCR.Visible = False;
      &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.Label = &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.GetLongLabel("UNDRGRAD_LIMIT");
      
      &RS2 = &Row1.GetRowset(Scroll.AGGR_LVL_LIMITS);
      &MaxRow2 = &RS2.RowCount;
      
      For &J = 1 To &MaxRow2;
         &Row2 = &RS2(&J);
         &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Visible = False;
         &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Label = " ";
         &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.Label = &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.GetLongLabel("AGGREGATE_LIMIT");
      End-For;
      
   End-If;
End-For;

PeopleCode (CompRecFld): AGGR_AID_TBL(GBL).AGGR_LIMIT_TBL.LOAN_INTEREST_ATTR
Local Rowset &RS1, &RS2;
Local Row &Row0;
Local Row &Row1, &Row2;
Local number &MaxRow1, &MaxRow2;
Local number &I, &J;

&Row0 = GetLevel0()(1);
&RS1 = &Row0.GetRowset(Scroll.AGGR_LIMIT_TBL);
&MaxRow1 = &RS1.RowCount;

For &I = 1 To &MaxRow1;
   &Row1 = &RS1(&I);
   
   If &Row1.AGGR_LIMIT_TBL.AID_YEAR.Value >= "2008" Then
      
      If &Row1.AGGR_LIMIT_TBL.LOAN_INTEREST_ATTR.Value = "U" And
            &Row1.AGGR_LIMIT_TBL.FA_SOURCE.Value = "F" And
            &Row1.AGGR_LIMIT_TBL.FIN_AID_TYPE.Value = "L" Then
         &Row1.AGGR_LIMIT_TBL.SFA_AGGR_DEP_LMT.Visible = True;
         &Row1.DERIVED_FA.DESCR.Visible = True;
         &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.Label = &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.GetLongLabel("SFA_INDEP_UGRD_LMT");
         
         &RS2 = &Row1.GetRowset(Scroll.AGGR_LVL_LIMITS);
         &MaxRow2 = &RS2.RowCount;
         
         For &J = 1 To &MaxRow2;
            &Row2 = &RS2(&J);
            &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Visible = True;
            &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Label = &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.GetLongLabel("SFA_AGGR_DEP_AGLMT");
            &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.Label = &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.GetLongLabel("SFA_AGGR_INDEP_LMT");
         End-For;
         
      Else
         &Row1.AGGR_LIMIT_TBL.SFA_AGGR_DEP_LMT.Visible = False;
         &Row1.DERIVED_FA.DESCR.Visible = False;
         &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.Label = &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.GetLongLabel("UNDRGRAD_LIMIT");
         
         &RS2 = &Row1.GetRowset(Scroll.AGGR_LVL_LIMITS);
         &MaxRow2 = &RS2.RowCount;
         
         For &J = 1 To &MaxRow2;
            &Row2 = &RS2(&J);
            &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Visible = False;
            &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Label = " ";
            &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.Label = &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.GetLongLabel("AGGREGATE_LIMIT");
         End-For;
         
      End-If;
   Else
      &Row1.AGGR_LIMIT_TBL.SFA_AGGR_DEP_LMT.Visible = False;
      &Row1.DERIVED_FA.DESCR.Visible = False;
      &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.Label = &Row1.AGGR_LIMIT_TBL.UNDRGRAD_LIMIT.GetLongLabel("UNDRGRAD_LIMIT");
      
      &RS2 = &Row1.GetRowset(Scroll.AGGR_LVL_LIMITS);
      &MaxRow2 = &RS2.RowCount;
      
      For &J = 1 To &MaxRow2;
         &Row2 = &RS2(&J);
         &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Visible = False;
         &Row2.AGGR_LVL_LIMITS.SFA_AGGR_DEP_AGLMT.Label = " ";
         &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.Label = &Row2.AGGR_LVL_LIMITS.AGGREGATE_LIMIT.GetLongLabel("AGGREGATE_LIMIT");
      End-For;
      
   End-If;
End-For;