Project: PRJ701888

	Platform	Default
	Database	SA801DVA	SA801DFL
	Version	82
	Description	UPD701888	

Records
AGGR_AREA_VW	
DERIVED_TRCR	
FA_INAS_RUNCTL	
FUNCLIB_FA_COD	
INAS_BTCH_YR_VW	
INAS_LCL_PLCY	
INAS_SIM_09_VW	
INAS_SIM_FEDEX	
INAS_SIM_INT	
INAS_SIM_PAR	
INAS_SIM_STU	
ISIR_COMPUTED	
ITEM_TYPE_FISCL	
STDNT_BDGT_ASGN	
TRNS_CRSE_DTL	
TRNS_CRSE_TERM	
TRNS_OTHR_DTL	
TRNS_OTHR_TERM	
TRNS_TEST_DTL	
TRNS_TEST_TERM	

Fields
AGGR_ACC_AVAILABLE	
AGGR_ACC_GROSS	
AGGR_ACC_NET	
AGGR_ACC_REDUCTN	
AGGR_CANCELLED_AMT	
AGGR_DECLINED_AMTS	
AGGR_MAX_ACC_BUDGT	
AGGR_MAX_ATH_BUDGT	
AGGR_MAX_DSB_BUDGT	
AGGR_MAX_OFR_BUD	
AGGR_NET_ATH_AMT	
AGGR_NET_DSB_PAID	
AGGR_OFR_AVAILABLE	
AGGR_OFR_GROSS	
AGGR_OFR_NET	
AGGR_OFR_REDUCTN	
AGGR_POTENTIAL_DSB	
DER_MAX_OFR_BUD	
LGL_RES_PRI02_LBL	
SSR_FAWI_GPA	
SSR_FAWI_GRADE_PTS	
SSR_FAWI_INCL	
SSR_FAWI_PSD	
SSR_FAWI_PSD_GPA	
SSR_FAWI_PSD_NOGPA	
SSR_FAWI_TKN	
SSR_FAWI_TKN_GPA	
SSR_FAWI_TKN_NOGPA	

Translate Values
FEDERAL_ID (TCH)	ENG	1900-01-01

Pages
AGGR_AREA_FISCL (ENG)
INAS_FED_EXT09_SEC (ENG)
INAS_SIM_FEDEX_S09 (ENG)
INAS_SIM_OVRD_09 (ENG)
INAS_SIM_STU1_09 (ENG)
INAS_SIM_STU2_08 (ENG)
RUNCTL_FAPINCLC (ENG)
STDNT_FA_ASGAL_SEC (ENG)
TRNS_CRSE_INT_SEC (ENG)
TRNS_CRSE_MNL1_SEC (ENG)
TRNS_CRSE_TERM (ENG)
TRNS_OTHR_EDIT_SEC (ENG)
TRNS_OTHR_TERM (ENG)
TRNS_TEST_EDIT_SEC (ENG)
TRNS_TEST_INT_SEC (ENG)
TRNS_TEST_TERM (ENG)

Menus
MANAGE_NEED_ANALYSIS

Components
INAS_SIMULATION_09 (GBL)
ISIR_CORRPIA05 (GBL)
ISIR_CORRPIA06 (GBL)
RUN_CNTL_ASG872 (GBL)
RUN_CNTL_ASG874 (GBL)
RUN_CNTL_PGDYTD_ER (GBL)
RUN_CNTL_PGOYTD_ER (GBL)
SFA_VERIFICATION06 (GBL)

PeopleCode (Record)
DERIVED_BDGT.INFORMATION_SOURCE.RowInit
DERIVED_FA.BATCH_CALC_YEAR.FieldChange
DERIVED_FA.BATCH_CALC_YEAR.FieldEdit
DERIVED_FA.BATCH_CALC_YEAR.RowInit
DERIVED_FA_HIST.AID_YEAR.FieldFormula
DERIVED_FA_LBL.IND_PAR_ST_TAX_LBL.RowInit
DERIVED_FA_LBL.LGL_RES_PRI02_LBL.RowInit
DERIVED_FA_LBL.NEG_INC_SPLMT_LBL.RowInit
DERIVED_SA.DEPNDNCY_OVRD_SIM.FieldChange
DERIVED_SA.DEPNDNCY_OVRD_SIM.RowInit
DERIVED_SA.FEDERAL_EXT_PB.FieldChange
DERIVED_SA.INAS_SIM_F_PB.FieldChange
DERIVED_SA.INAS_SIM_USE_PB.FieldChange
DERIVED_SA.ISIR_SUMRY_PB.FieldChange
DERIVED_SA.NEED_SUMRY_PB.FieldChange
DERIVED_SA_PAR.CHAR_AGI.FieldChange
DERIVED_SA_PAR.CHAR_AGI.FieldEdit
DERIVED_SA_PAR.CHAR_CASH_SAV.FieldChange
DERIVED_SA_PAR.CHAR_FATHER_INC.FieldChange
DERIVED_SA_PAR.CHAR_FATHER_INC.FieldEdit
DERIVED_SA_PAR.CHAR_INV_NET_WORTH.FieldChange
DERIVED_SA_PAR.CHAR_INV_NET_WORTH.FieldEdit
DERIVED_SA_PAR.CHAR_MOTHER_INC.FieldChange
DERIVED_SA_PAR.CHAR_MOTHER_INC.FieldEdit
DERIVED_SA_PAR.CHAR_TAXES_PAID.FieldChange
DERIVED_SA_PAR.CHAR_TAXES_PAID.FieldEdit
DERIVED_SA_PAR.CHAR_TOT_FROM_WKA.FieldChange
DERIVED_SA_PAR.CHAR_TOT_FROM_WKA.FieldEdit
DERIVED_SA_PAR.CHAR_TOT_FROM_WS3.FieldChange
DERIVED_SA_PAR.CHAR_TOT_FROM_WS3.FieldEdit
DERIVED_SA_PAR.ELIG_FOR_1040AEZ02.FieldChange
DERIVED_SA_PAR.ELIG_FOR_1040AEZ02.RowInit
DERIVED_SA_STU.CHAR_AGI.FieldChange
DERIVED_SA_STU.CHAR_AGI.FieldEdit
DERIVED_SA_STU.CHAR_CASH_SAV.FieldChange
DERIVED_SA_STU.CHAR_INV_NET_WORTH.FieldChange
DERIVED_SA_STU.CHAR_INV_NET_WORTH.FieldEdit
DERIVED_SA_STU.CHAR_SPS_EARN_INC.FieldChange
DERIVED_SA_STU.CHAR_SPS_EARN_INC.FieldEdit
DERIVED_SA_STU.CHAR_STD_EARN_INC.FieldChange
DERIVED_SA_STU.CHAR_STD_EARN_INC.FieldEdit
DERIVED_SA_STU.CHAR_TAXES_PAID.FieldChange
DERIVED_SA_STU.CHAR_TAXES_PAID.FieldEdit
DERIVED_SA_STU.CHAR_TOT_FROM_WKA.FieldChange
DERIVED_SA_STU.CHAR_TOT_FROM_WKA.FieldEdit
DERIVED_SA_STU.CHAR_TOT_FROM_WS3.FieldChange
DERIVED_SA_STU.CHAR_TOT_FROM_WS3.FieldEdit
DERIVED_SA_STU.CURRENT_GRADE_02.FieldChange
DERIVED_SA_STU.CURRENT_GRADE_02.RowInit
DERIVED_SA_STU.ELIG_FOR_1040AEZ02.FieldChange
DERIVED_SA_STU.ELIG_FOR_1040AEZ02.RowInit
DERIVED_SA_STU.MARITAL_STAT_STU00.FieldChange
DERIVED_SA_STU.MARITAL_STAT_STU00.RowInit
DERIVED_TRCR.CLEAR_PB.FieldChange
DERIVED_TRCR.FUNC_REJ_EXT.FieldChange
DERIVED_VERIF.APPLY_CHGS_BTN.FieldChange
FUNCLIB_CS.TRNSFR_FL.FieldFormula
FUNCLIB_FA.FILE_PROC_PC.FieldFormula
FUNCLIB_FA_COD.COD_DL_CHANGE_PROC.FieldFormula
FUNCLIB_FA_NSLD.AID_YEAR.FieldFormula
FUNCLIB_ISIR.ISIR09_WARN_STDNT.FieldFormula
INAS_LCL_PLCY.INAS_CALC_TYPE.RowInit
INAS_LCL_PLCY.INAS_DATA_TYPE.RowInit
INAS_LCL_PLCY.INAS_DATA_TYPE.SaveEdit
INAS_SIM_09_VW.AID_YEAR.SearchInit
INAS_SIM_09_VW.EMPLID.SearchInit
INAS_SIM_09_VW.INSTITUTION.SearchInit
INAS_SIM_FEDEX.INAS_RULE_SET.FieldChange
INAS_SIM_INT.CORRECTION_STATUS.FieldChange
INAS_SIM_INT.DEPNDNCY_OVERRIDE.FieldChange
INAS_SIM_PAR.AGI.RowInit
INAS_SIM_PAR.CASH_SAVINGS.RowInit
INAS_SIM_PAR.FATHER_INCOME.RowInit
INAS_SIM_PAR.INV_NET_WORTH.RowInit
INAS_SIM_PAR.MOTHER_INCOME.RowInit
INAS_SIM_PAR.TAXES_PAID.RowInit
INAS_SIM_PAR.TOTAL_FROM_WKA.RowInit
INAS_SIM_PAR.TOTAL_FROM_WS3.RowInit
INAS_SIM_STU.AGI.RowInit
INAS_SIM_STU.CASH_SAVINGS.RowInit
INAS_SIM_STU.INV_NET_WORTH.RowInit
INAS_SIM_STU.SPS_EARNED_INCOME.RowInit
INAS_SIM_STU.STD_EARNED_INCOME.RowInit
INAS_SIM_STU.TAXES_PAID.RowInit
INAS_SIM_STU.TOTAL_FROM_WKA.RowInit
INAS_SIM_STU.TOTAL_FROM_WS3.FieldEdit
INAS_SIM_STU.TOTAL_FROM_WS3.RowInit
ISIR_COMPUTED.VALID_EFC_CALC.RowInit
ISIR_CONTROL.INAS_RFC_CALL.FieldChange
ISIR_CONTROL.INAS_RFC_CALL.RowInit
TRNS_CRSE_DTL.CRSE_ID.FieldChange

Message Catalog Entries
Stdnt Admin - Authorization 	14441, 90 (ENG)

SQL
AGGR_AREA_VW 	View
INAS_BTCH_YR_VW 	View
INAS_SIM_09_VW 	View

Record Detail

Record: AGGR_AREA_VW	
	Description	Fiscal Aggregate Area Vw
	Record Type	SQL View
	Set Control Field	INSTITUTION
	Parent Record	 
	Related Language	 
	DDL Space Name	SFAPP
	Build Seq	1
	Owner ID	SFAA
	Comments	Fiscal Aggregate Area Vw

FieldName          Type   Len  Key  Srch Req Edit Prompt          C Default                          
SETID              Char 5      KALS      Req Prmt SP_SETID_NONVW    OPR_DEF_TBL_CS.SETID
AGGREGATE_AREA     Char 10     KALS      Req Prmt AGGR_LIMIT_VW
AID_YEAR           Char 4      KDLS      Req Prmt FED_AID_YR_TBL    OPR_DEF_TBL_CS.AID_YEAR
DESCR              Char 30     AAL       Req
FA_SOURCE          Char 1      AAL           Xlat
CURRENCY_CD        Char 3                    Prmt CURRENCY_CD_TBL
AGGR_MAX_OFR_BUD   Sign 12.2
AGGR_OFR_GROSS     Sign 12.2
AGGR_OFR_REDUCTN   Sign 12.2
AGGR_OFR_NET       Sign 12.2
AGGR_OFR_AVAILABLE Sign 12.2
CURRENCY_CD        Char 3                    Prmt CURRENCY_CD_TBL   INSTALLATION.EXCHNG_TO_CURRENCY
AGGR_MAX_OFR_BUD   Sign 15.3                                      Y Curr: CURRENCY_CD
AGGR_OFR_GROSS     Sign 15.3                                      Y Curr: CURRENCY_CD
AGGR_OFR_REDUCTN   Sign 15.3                                      Y Curr: CURRENCY_CD
AGGR_OFR_NET       Sign 15.3                                      Y Curr: CURRENCY_CD
AGGR_OFR_AVAILABLE Sign 15.3                                      Y Curr: CURRENCY_CD
OFFERED_NET_COUNT  Num  7
AGGR_MAX_ACC_BUDGT Sign 12.2
AGGR_ACC_GROSS     Sign 12.2
AGGR_ACC_REDUCTN   Sign 12.2
AGGR_ACC_NET       Sign 12.2
AGGR_ACC_AVAILABLE Sign 12.2
AGGR_MAX_ACC_BUDGT Sign 15.3                                      Y Curr: CURRENCY_CD
AGGR_ACC_GROSS     Sign 15.3                                      Y Curr: CURRENCY_CD
AGGR_ACC_REDUCTN   Sign 15.3                                      Y Curr: CURRENCY_CD
AGGR_ACC_NET       Sign 15.3                                      Y Curr: CURRENCY_CD
AGGR_ACC_AVAILABLE Sign 15.3                                      Y Curr: CURRENCY_CD
ACCEPTED_NET_COUNT Num  7
AGGR_DECLINED_AMTS Sign 12.2
AGGR_DECLINED_AMTS Sign 15.3                                      Y Curr: CURRENCY_CD
DECLINED_COUNT     Num  7
AGGR_CANCELLED_AMT Sign 12.2
AGGR_CANCELLED_AMT Sign 15.3                                      Y Curr: CURRENCY_CD
CANCELLED_COUNT    Num  7
AGGR_MAX_ATH_BUDGT Sign 12.2
AGGR_NET_ATH_AMT   Sign 12.2
AGGR_MAX_DSB_BUDGT Sign 12.2
AGGR_NET_DSB_PAID  Sign 12.2
AGGR_POTENTIAL_DSB Sign 12.2
AGGR_MAX_ATH_BUDGT Sign 15.3                                      Y Curr: CURRENCY_CD
AGGR_NET_ATH_AMT   Sign 15.3                                      Y Curr: CURRENCY_CD
AGGR_MAX_DSB_BUDGT Sign 15.3                                      Y Curr: CURRENCY_CD
AGGR_NET_DSB_PAID  Sign 15.3                                      Y Curr: CURRENCY_CD
AGGR_POTENTIAL_DSB Sign 15.3                                      Y Curr: CURRENCY_CD

Record: DERIVED_TRCR	
	Description	Derived Rcd - Transfer Credit
	Record Type	Derived/Work
	Parent Record	 
	Related Language	 
	DDL Space Name	SAAPP
	Owner ID	SSR
	Comments	Use this work record for defining fields used in the Tansfer Credit
		module.

FieldName          Type   Len  Key  Srch Req Edit Prompt          C Default                          
ACCEPT_PB          Char 1
CALC_TRF_PB        Char 1
CANCEL_PB          Char 1
CAT_INSTITUTION    Char 5
CATALOG_NBR        Char 10
CATALOG_ORG        Char 11
CLEAR_PB           Char 1
CLEAR1_PB          Char 1
CNTNGNT_CRDT_FL    Char 1
COMMENT_DTL_PB     Char 1
COMMENT_SCH_PB     Char 1
DELETE_FL          Char 1
DESCR              Char 30
DESCR1             Char 30
DESCR2             Char 30
DESCR254_MIXED     Char 254
DESCR3             Char 30
DESCR50            Char 50
DESCR60            Char 60
DESCRSHORT1        Char 10
DESCRSHORT2        Char 10
DESELECT_ALL       Char 1
EFFDT              Date 10
EXT_COURSE_NBR     Num  3
EXT_ORG_ID         Char 11
EXT_TERM_TYPE      Char 4                    Xlat
FETCH_DATA         Char 1
FIELDNAME          Char 18
FIELDVALUE         Char 4
FILTER_SELECTION   Char 1
FIRST_FL           Char 1
FROM_INPUT1_LBL    Char 30
FROM_INPUT2_LBL    Char 20
FROM_INPUT3_LBL    Char 30
FROM_INPUT4_LBL    Char 30
FUNC_ADD_INT       Char 1                    Xlat
FUNC_DEL_INT       Char 1
FUNC_EDT_INT       Char 1                    Xlat
FUNC_MNL_INT       Char 1
FUNC_MOV_EXT       Char 1
FUNC_REJ_EXT       Char 1
GRADE_PTS_MAX      Num  6.3
GRADE_PTS_MIN      Num  6.3
GRADE_TRANSFER     Char 3
GRADING_BASIS      Char 3                    Xlat
GRADING_SCHEME     Char 3
GROUP_BOX_1        Char 1
INCLUDE_FL         Char 1                    Y/N
INP_TERM           Char 15
INSERT_FL          Char 1
INSTITUTION        Char 5
OK_PB              Char 1
POST_PB            Char 1
PRCSINSTANCE       Num  10
REFRESH            Char 1
REJECT_REASON      Char 2                    Xlat
REPEAT_CHECK_PB    Char 1
REPEAT_SCHEME      Char 4
SELECT_ALL         Char 1
SETID              Char 5
SRC_CAREER         Char 4
SRC_CLASS_NBR      Num  5
SRC_INST_AGR       Char 5
SRC_INST_DEF       Char 5
SRC_INST_OVR       Char 5
SRC_INSTITUTION    Char 5
SRC_TERM           Char 4
SSR_FAWI_INCL      Char 1
SUBJ_CATLG_EXT     Char 20
SUBJ_CATLG_INT     Char 20
SUBJECT            Char 8
SUBMIT_PB          Char 1
STDNT_AGR_HDR_SEC  Char 1
STDNT_AGRMNT_PB    Char 1
TERM_TYPE          Char 1                    Xlat
TRNSFR_CREDIT_TYPE Char 2                    Xlat
TRNSFR_CRSE_FL     Char 1
TRNSFR_EQVLNCY     Char 6
TRNSFR_EQVLNCY_CMP Char 4
TRNSFR_FL          Char 1
TRNSFR_FROM_PB     Char 1
TRNSFR_MANUAL_PB   Char 1
TRNSFR_PROCESS     Char 1
TRNSFR_SRC_ID      Char 11
TRNSFR_SRC_TYPE    Char 1                    Xlat
TRNSFR_STAT_PB     Char 1
TRNSFR_TO_GRP      Num  3
UNFILTER_SELECTION Char 1
UNITS_MAXIMUM      Num  3.2
UNITS_MINIMUM      Num  3.2
UNPOST_PB          Char 1
UPDATE_FL          Char 1
UPLOAD_TC_UNITS_PB Char 1

Record: FA_INAS_RUNCTL	
	Description	Run Control For Batch Process
	Record Type	SQL Table
	Parent Record	 
	Related Language	 
	DDL Space Name	FAAPP
	Owner ID	SFAN	SFA
	Comments	This Table contains the run control values for the batch COBOL proga
		m 'FAPINCLC'. Said program reads a table populated by the ISIR load
		job 'FAISIR**', which contains a list of students that the instituti
		on requests an INAS calculation to be performed. The results of this
		calculation are stored for that student, on the Student_AID table.

FieldName          Type   Len  Key  Srch Req Edit Prompt          C Default                          
OPRID              Char 30     KALS      Req
RUN_CNTL_ID        Char 30     KALS      Req
INSTITUTION        Char 5      KALS      Req Prmt INSTITUTION_TBL   OPR_DEF_TBL_CS.INSTITUTION
AID_YEAR           Char 4      KA            Prmt INAS_BTCH_YR_VW
UPDATE_SW          Char 1                    Xlat                   'Y'
FA_CALC_TYPE       Char 2                    Xlat
FA_CALC_TYPE       Char 2      KA        Req Xlat

Record: FUNCLIB_FA_COD	
	Description	Function Library for FA COD
	Record Type	Derived/Work
	Parent Record	 
	Related Language	 
	Owner ID	SFAG
	Comments	PCode for FA COD process

FieldName          Type   Len  Key  Srch Req Edit Prompt          C Default                          
COD_COM_FUNC       Char 1
COD_PELL_PROC      Char 1
COD_DL_ORIG_PROC   Char 1
COD_DL_DISB_PROC   Char 1
COD_DL_CHANGE_PROC Char 1

Record: INAS_BTCH_YR_VW	
	Description	INAS Batch Aid Year View
	Record Type	SQL View
	Parent Record	 
	Related Language	AID_YR_TBL_LANG
	DDL Space Name	SAAPP
	Build Seq	1
	Owner ID	SFAN
	Comments	This view selects all rows from the Aid Year table where Aid Year is
		greater than or equal to the Aid Year of the oldest active INAS rel
		ease.

FieldName          Type   Len  Key  Srch Req Edit Prompt          C Default                          
INSTITUTION        Char 5      KALS      Req Prmt INSTITUTION_TBL   OPR_DEF_TBL_CS.INSTITUTION
AID_YEAR           Char 4      KDLS      Req Prmt FED_AID_YR_TBL    OPR_DEF_TBL_CS.AID_YEAR
DESCR              Char 30       L                                  FED_AID_YR_TBL.DESCR
DESCRSHORT         Char 10                                          FED_AID_YR_TBL.DESCRSHORT

Record: INAS_LCL_PLCY	
	Description	INAS Local Policy Options
	Record Type	SQL Table
	Parent Record	AID_YEAR_TBL
	Related Language	 
	DDL Space Name	FAAPP
	Owner ID	SFAN
	Comments	This table contains the INAS 'Local Policy Option' parameters.

FieldName          Type   Len  Key  Srch Req Edit Prompt          C Default                          
INSTITUTION        Char 5      KALS      Req Prmt INSTITUTION_TBL   OPR_DEF_TBL_CS.INSTITUTION
AID_YEAR           Char 4      KDLS      Req Prmt AID_YEAR_TBL      OPR_DEF_TBL_CS.AID_YEAR
INAS_RULE_SET      Char 4      KA        Req Xlat
PRINT_INAR         Char 1                    Y/N
LOCAL_RTN          Char 1                    Xlat
INAS_DATA_TYPE     Char 1                    Xlat
INST_APP_SOURCE    Char 1                    Xlat
INAS_CALC_TYPE     Char 1                    Xlat
CALC_FED_TAX_S_FM  Char 1                    Y/N
CALC_FED_TAX_P_FM  Char 1                    Y/N
IND_BDGT_DUR_FM    Num  2
DEP_BDGT_DUR_FM    Num  2
CALC_PC_IND_FM     Char 1                    Y/N
IMPUTED_AST_S_FMP  Char 1                    Y/N
IMPUTED_AST_P_FMP  Char 1                    Y/N
USE_PY_INC_S_FMP   Char 1                    Y/N
USE_PY_INC_P_FMP   Char 1                    Y/N
IM_INC_OVR_S_FMP   Char 1                    Y/N
IM_INC_OVR_P_FMP   Char 1                    Y/N
IND_BDGT_DUR_IM    Num  2.1
DEP_BDGT_DUR_IM    Num  2.1
CALC_PC_IND_IM     Char 1                    Y/N
USE_PY_INC_S_IM    Char 1                    Y/N
USE_PY_INC_P_IM    Char 1                    Y/N
MAX_TUIT_ALWNC_IM  Num  5
INCOME_PCT_S_IM    Num  1.2
INCOME_PCT_P_IM    Num  1.2
EA_PCT_S_IM        Num  1.2
EA_PCT_P_IM        Num  1.2
EA_MAX_S_IM        Num  5
EA_MAX_P_IM        Num  5
FED_TAX_AI_S_IM    Char 1                    Xlat
FED_TAX_AI_P_IM    Char 1                    Xlat
USE_FM_TAXTBL_S_IM Char 1                    Y/N
USE_FM_TAXTBL_P_IM Char 1                    Y/N
ASSET_RT_IND_IM    Char 1                    Xlat
USE_ALT_AAI_S_IM   Char 1                    Y/N
USE_ALT_AAI_P_IM   Char 1                    Y/N
ADJ_IPA_REG_COL_IM Char 1                    Xlat
ADJ_PAR_BF_LOSS_IM Char 1                    Y/N
ADJ_PAR_OT_LOSS_IM Char 1                    Y/N
ADJ_PAR_IC_LOSS_IM Char 1                    Y/N
PCT_IRA_INC_S_IM   Num  1.2
ELIM_APA_S_IM      Char 1                    Y/N
ELIM_APA_P_IM      Char 1                    Y/N
NEG_INC_SUPP_S_IM  Char 1                    Y/N
NEG_INC_SUPP_P_IM  Char 1                    Y/N
ASSET_D_IM         Num  1.2
ASSET_I_WO_SGL_IM  Num  1.2
ASSET_I_WO_MAR_IM  Num  1.2
ASSET_I_WITH_IM    Char 3
ASSET_PAR_IM       Char 3
ASSET_CNTRB_S_IM   Num  4
ASSET_CNTRB_P_IM   Num  4
HMOPT_PAR_IM       Char 1                    Xlat
HMOPT_I_WD_IM      Char 1                    Xlat
HMOPT_I_WO_IM      Char 1                    Xlat
HMTOL_PAR_IM       Char 5
HMTOL_I_WD_IM      Char 5
HMTOL_I_WO_IM      Char 5
HMCAP_PAR_IM       Char 3
HMCAP_I_WD_IM      Char 3
HMCAP_I_WO_IM      Char 3
ASSET_OPT_PAR_IM   Char 1                    Xlat
ASSET_OPT_I_WD_IM  Char 1                    Xlat
ASSET_OPT_I_WO_IM  Char 1                    Xlat
C_YLD1_PAR_IM      Char 3
C_LIM_PAR_IM       Char 5
C_YLD2_PAR_IM      Char 3
C_TOL_PAR_IM       Char 5
I_YLD1_PAR_IM      Char 3
I_LIM_PAR_IM       Char 5
I_YLD2_PAR_IM      Char 3
I_TOL_PAR_IM       Char 5
C_YLD1_IWD_IM      Char 3
C_LIM_IWD_IM       Char 5
C_YLD2_IWD_IM      Char 3
C_TOL_IWD_IM       Char 5
I_YLD1_IWD_IM      Char 3
I_LIM_IWD_IM       Char 5
I_YLD2_IWD_IM      Char 3
I_TOL_IWD_IM       Char 5
C_YLD1_IWO_IM      Char 3
C_LIM_IWO_IM       Char 5
C_YLD2_IWO_IM      Char 3
C_TOL_IWO_IM       Char 5
I_YLD1_IWO_IM      Char 3
I_LIM_IWO_IM       Char 5
I_YLD2_IWO_IM      Char 3
I_TOL_IWO_IM       Char 5
DEP_1YR_UG_NOPRIOR Char 4
DEP_1YR_UG_PREV    Char 4
DEP_2YR_UG         Char 4
DEP_3YR_UG         Char 4
DEP_4YR_UG         Char 4
DEP_5YR_UG         Char 4
DEP_1YR_PROF       Char 4
DEP_2YR_PROF       Char 4
DEP_3YR_PROF       Char 4
DEP_4YR_PROF       Char 4
IND_WD_1YR_UG_NOPR Char 4
IND_WD_1YR_UG_PREV Char 4
IND_WD_2YR_UG      Char 4
IND_WD_3YR_UG      Char 4
IND_WD_4YR_UG      Char 4
IND_WD_5YR_UG      Char 4
IND_WD_1YR_PROF    Char 4
IND_WD_2YR_PROF    Char 4
IND_WD_3YR_PROF    Char 4
IND_WD_4YR_PROF    Char 4
IND_WO_1YR_UG_NOPR Char 4
IND_WO_1YR_UG_PREV Char 4
IND_WO_2YR_UG      Char 4
IND_WO_3YR_UG      Char 4
IND_WO_4YR_UG      Char 4
IND_WO_5YR_UG      Char 4
IND_WO_1YR_PROF    Char 4
IND_WO_2YR_PROF    Char 4
IND_WO_3YR_PROF    Char 4
IND_WO_4YR_PROF    Char 4
MIN_PC_R1_INC_IM   Char 6
MIN_PC_R2_INC_IM   Char 6
MIN_PC_R3_INC_IM   Char 6
MIN_PC_R4_INC_IM   Char 6
MIN_PC_R5_INC_IM   Char 6
MIN_PC_R6_INC_IM   Char 6
MIN_PC_R7_INC_IM   Char 6
MIN_PC_R1_IM       Char 6
MIN_PC_R2_IM       Char 6
MIN_PC_R3_IM       Char 6
MIN_PC_R4_IM       Char 6
MIN_PC_R5_IM       Char 6
MIN_PC_R6_IM       Char 6
MIN_PC_R7_IM       Char 6
ELIM_PAR_IN_COL_IM Char 1                    Y/N
PCT_INC_PREV_SC_IM Num  2.1
PCT_INC_PREV_PC_IM Num  2.1
NM2_IN_COL_IM      Num  0.3
NM3_IN_COL_IM      Num  0.3
NM4_IN_COL_IM      Num  0.3
NM5_IN_COL_IM      Num  0.3
NM6_IN_COL_IM      Num  0.3
CAN_IM_BE_LT_FM    Char 1                    Y/N
USE_PAR_RPTD_PC    Char 1                    Y/N
EFC_USE_IM         Char 1                    Xlat
STATE              Char 6                    Prmt ST_NAMES_FA_VW
USE_PROF_ASM_IM    Char 1      KA            Y/N
MAX_AGE_HSLD       Num  2
MAX_AGE_CLGE       Num  2
USE_NCPC           Char 1                    Y/N
BDGT_OPT           Char 1                    Xlat
BDGT1              Num  5
BDGT2              Num  5
BDGT3              Num  5
BDGT4              Num  5
BDGT5              Num  5
BDGT6              Num  5
PCT_TOT_BDGT       Num  1.2
INST_BDGT1         Num  5
INST_BDGT2         Num  5
INST_BDGT3         Num  5
INST_BDGT4         Num  5
GLB_98IM           Char 1
FORM_IM            Char 1
SCA_NON_STD        Char 1                    Y/N
HOPE_LTL_OPT_S     Char 1                    Y/N
HOPE_LTL_OPT_P     Char 1
USE_PAR_AGI_IM     Char 1                    Xlat
INC_ASSET_PCT_IM   Num  0.2
ADJ_ERA_REG_COL_IM Char 1                    Xlat
ALT_INC_ASMT_RT_IM Num  1.2
ALW_NEG_PAR_AI_AST Char 1                    Xlat
ASG_INC_PCT_OPT    Char 1                    Xlat
MULT_COLL_PC_ALLOC Char 1                    Xlat
NM_IN_COL_ALT_GLVL Char 2                    Xlat
NM2_IN_COL_ALT1    Num  0.3
NM2_IN_COL_ALT2    Num  0.3
NM3_IN_COL_ALT1    Num  0.3
NM3_IN_COL_ALT2    Num  0.3
NM4_IN_COL_ALT1    Num  0.3
NM4_IN_COL_ALT2    Num  0.3
ASMNT_RT_IND_IM    Char 1                    Xlat
USE_DFLT_MIN_SC    Char 1                    Xlat                   'Y'
CAN_IM_LT_FM_STU   Char 1                    Y/N
DEP_BDGT_DUR_FM_A  Num  2
DEP_BDGT_DUR_FM_N  Num  2
IND_BDGT_DUR_FM_A  Num  2
IND_BDGT_DUR_FM_N  Num  2
ASG_INC_PCT_OPT02  Char 1                    Xlat
IND_PAR_ST_TAX_ALW Char 1                    Y/N
FED_TX_AI_S_IM_02  Char 1                    Xlat
FED_TX_AI_P_IM_02  Char 1                    Xlat
DEP_BDGT_DUR_IM_A  Num  2.1
DEP_BDGT_DUR_IM_N  Num  2.1
IND_BDGT_DUR_IM_A  Num  2.1
IND_BDGT_DUR_IM_N  Num  2.1
STU_ASSETS_TO_FMLY Char 1                    Xlat                   '1'
INCOME_PCT_S_IM_04 Num  0.3
INCOME_PCT_P_IM_04 Num  0.3
HMOPT_PAR_IM_04    Char 1                    Xlat
HMOPT_I_WD_IM_04   Char 1                    Xlat
FM_EFC_PRORTN_ACAD Char 1                    Xlat                   '2'
FM_EFC_PRORTN_NSTD Char 1                    Xlat                   '3'
STU_ASSETS_TO_FM05 Char 1                    Xlat                   '1'
CAP_HOME_EQUITY_IM Char 1                    Y/N                    'N'
EXCL_TUIT_DED_IM   Char 1                    Y/N                    'N'
CAP_HOME_EQTY_P_IM Char 1                    Y/N                    'N'
CAP_HOME_EQTY_S_IM Char 1                    Y/N                    'N'
CAP_HOME_EQT_FCT_P Char 2
CAP_HOME_EQT_FCT_S Char 2
ASG_INC_PCT_OPT08  Char 1                    Xlat
MIN_SC_FRM_INC_CLC Char 1                    Y/N                    'Y'

Record: INAS_SIM_09_VW	
	Description	INAS Simulation View 2008-2009	
	Record Type	SQL View	
	Parent Record	STUDENT_AID	
	Related Language	 	
	DDL Space Name	FAAPP	
	Build Seq	1	
	Owner ID	SFAN	
	Comments	
		INAS Simulation View for the 2008-2009 Aid Year.

FieldName          Type   Len  Key  Srch Req Edit Prompt          C Default                          
EMPLID             Char 11     KALS      Req Prmt PERSONAL_DATA
INSTITUTION        Char 5      KALS      Req Prmt INSTITUTION_TBL   OPR_DEF_TBL_CS.INSTITUTION
AID_YEAR           Char 4      KDLS      Req Prmt AID_YEAR_TBL      OPR_DEF_TBL_CS.AID_YEAR
EFFDT              Date 10     KD        Req                        %date
EFFSEQ             Num  3      KD        Req
ISIR_TXN_NBR       Num  2

Extend Field Info  SetCtrlField       Label              PageControl  Audit 
EMPLID                                EMPLID3

Record: INAS_SIM_FEDEX	
	Description	Overrides for INAS Simulation
	Record Type	SQL Table
	Parent Record	PERSONAL_DATA
	Related Language	 
	DDL Space Name	SAAPP
	Owner ID	SFAN
	Comments	This table contains all Federal Extension options to be used in INAS
		Simulation.

FieldName          Type   Len  Key  Srch Req Edit Prompt          C Default                          
EMPLID             Char 11     KALS      Req Prmt PEOPLE_SRCH
INSTITUTION        Char 5      KALS      Req Prmt INSTITUTION_TBL   OPR_DEF_TBL_CS.SETID_CAREER
AID_YEAR           Char 4      KDLS      Req Prmt AID_YEAR_TBL      OPR_DEF_TBL_CS.AID_YEAR
INAS_RULE_SET      Char 4                    Xlat
INAS_DATA_TYPE     Char 1                    Xlat
INAS_CALC_TYPE     Char 1                    Xlat
BUDGET_DURATION    Num  2
DEPENDENCY_OVERIDE Char 1                    Xlat
CALC_FED_TAX_S_FM  Char 1                    Y/N
CALC_FED_TAX_P_FM  Char 1                    Y/N
CALC_PC_FOR_IND    Char 1                    Y/N
ALWNC_TUIT_S       Char 5
ALWNC_MED_DENT_S   Char 5
ALWNC_OTHER_S      Char 5
ASSET_ALWNC_S      Char 6
ASSET_OTHER        Char 6
ALWNC_TUIT_P       Char 5
ALWNC_MED_DENT_P   Char 5
ALWNC_OTHER_P      Char 5
ASSET_ALWNC_P      Char 6
ASSET_OTHER_P      Char 6
ADJ_EFC_AMT        Sign 5
EIC_OVERRIDE_S     Char 1                    Xlat
EIC_OVERRIDE_P     Char 1                    Xlat
PAR_NO_CLG_OVRRD   Char 1                    Xlat
BUDGET_DURATION_A  Num  2
BUDGET_DURATION_N  Num  2
BIRTH_YR_REJ_OVRRD Char 1                    Xlat
TAXES_PD_REJ_OVRRD Char 1                    Xlat
OVRD_SC_AMT_A      Num  5
OVRD_SC_AMT_N      Num  5
OVRD_SC_AMT        Num  5
OVRD_PC_AMT_A      Num  5
OVRD_PC_AMT_N      Num  5
OVRD_PC_AMT        Num  5
OVRD_EFC_AMT_A     Num  5
OVRD_EFC_AMT_N     Num  5
OVRD_EFC_AMT       Num  5
USE_EFC_OVERRIDE   Char 1
FM_EFC_PRORTN_ACAD Char 1                    Xlat
FM_EFC_PRORTN_NSTD Char 1                    Xlat
SSN_NO_DOB_REJ_OVR Char 1                    Xlat
SSN_D_NAME_REJ_OVR Char 1                    Xlat
SSN_M_NAME_REJ_OVR Char 1                    Xlat
SSN_NONM_REJ_OVR   Char 1                    Xlat
SSN_D_NONM_REJ_OVR Char 1                    Xlat
SSN_M_NONM_REJ_OVR Char 1                    Xlat

Record: INAS_SIM_INT	
	Description	Data Ovrd for INAS Simulation
	Record Type	SQL Table
	Parent Record	ISIR_CONTROL
	Related Language	 
	DDL Space Name	FAAPP
	Owner ID	SFAN
	Comments	This table contains those data elements necessary to support profess
		ional judgement overrides during the INAS Simulation.

FieldName          Type   Len  Key  Srch Req Edit Prompt          C Default                          
EMPLID             Char 11     KALS      Req Prmt PERSONAL_DATA
INSTITUTION        Char 5      KALS      Req Prmt INSTITUTION_TBL
AID_YEAR           Char 4      KDLS      Req Prmt ISIR_CONTROL
CURRENCY_CD        Char 3
NSLDS_MATCH        Char 1                    Xlat
REJ_OVR_IND_STDNT  Char 1                    Xlat
REJ_OVR_DEP_STDNT  Char 1                    Xlat                   '2'
REJ_OVR_STDNT_NAME Char 1                    Xlat
REJ_OVR_INV_DEBT   Char 1                    Xlat                   '2'
REJ_OVR_BIG_FAMILY Char 1                    Xlat
ASMPTN_OVR_FAM_MEM Char 1                    Xlat                   '2'
ASMPTN_OVR_COL_P   Char 1                    Xlat
ASMPTN_OVR_AGI_P   Char 1                    Xlat
ASMPTN_OVR_COL_S   Char 1                    Xlat
ASMPTN_OVR_AGI_S   Char 1                    Xlat
ASMPTN_OVR_SSN_BEN Char 1                    Xlat                   '2'
ASMD_CITIZENSHIP   Char 1                    Xlat
ASMD_STU_TAX_STAT  Char 1                    Xlat
ASMD_STU_EXP_TAX   Char 1                    Xlat
ASMD_PAR_TAX_STAT  Char 1                    Xlat
ASMD_PAR_TAX_PAID  Num  6
ASMD_PAR_EXP_TAX   Char 1
ASMD_SPOMO_EXP_INC Sign 5                                         Y Curr: CURRENCY_CD
ASMD_STUFA_EXP_INC Sign 5
ASMD_EXP_TAX_PAID  Sign 6
ASMPTN_OVR_WS3_P   Char 1                    Xlat
ASMPTN_OVR_WS3_S   Char 1                    Xlat
ASMPTN_OVR_WSA_P   Char 1                    Xlat
ASMPTN_OVR_WSA_S   Char 1                    Xlat
ASMD_STU_MAR_STAT  Char 1
ASMD_STU_DOB_PRIOR Char 1
ASMD_STU_MARRIED   Char 1
ASMD_STU_VA_STAT   Char 1
ASMD_STU_LGL_DEP   Char 1
ASMD_STU_NBR_INFAM Char 2
ASMD_STU_NBR_COLL  Num  2
ASMD_STU_AGI       Sign 6
ASMD_STU_ERN_INC   Sign 6
ASMD_SPS_ERN_INC   Sign 6
ASMD_STU_WKB       Sign 5
ASMD_STU_TAX_PAID  Sign 6
ASMD_PAR_MAR_STAT  Char 1
ASMD_PAR_NBR_INFAM Char 2
ASMD_PAR_NBR_COLL  Num  2
ASMD_PAR_AGI       Sign 6
ASMD_DAD_ERN_INC   Sign 6
ASMD_MOM_ERN_INC   Sign 6
ASMD_PAR_ERN_INC   Sign 6
ASMD_PAR_WKB       Sign 5
ASMD_FATHER_SSN    Char 9
ASMD_MOTHER_SSN    Char 9
ASMD_STU_EIC       Sign 5
ASMD_CHILDREN      Char 1
ASMD_STU_WKC       Sign 5
ASMD_PAR_WKC       Sign 5
REJ_OVR_BIRTH_YEAR Char 1                    Xlat
REJ_OVR_TAX_RANGE  Char 1                    Xlat
DEPNDNCY_OVERRIDE  Char 1                    Xlat
CORRECTION_STATUS  Char 1                    Xlat
EFC_OVRD_DSPLAY_FM Char 1
REJ_OVR_TAXRNG_DEP Char 1                    Xlat
SFA_REJ_OVR_TX_PAR Char 1                    Xlat
SFA_REJ_OVR_DADSSN Char 1                    Xlat
SFA_REJ_OVR_MOMSSN Char 1                    Xlat
SFA_REJ_OVR_TX_STU Char 1                    Xlat
CORR_DOB           Char 1                    Y/N
CORR_CIT_STATUS    Char 1
SFA_REJ_OVR_MR_STU Char 1                    Xlat
SFA_REJ_OVR_NO_TAX Char 1                    Xlat

Record: INAS_SIM_PAR	
	Description	Parent Data - INAS Simulation
	Record Type	SQL Table
	Parent Record	ISIR_CONTROL
	Related Language	 
	DDL Space Name	FAAPP
	Owner ID	SFAN
	Comments	This record contains Parental data from the corresponding max effdt
		row of the ISIR_PARENT table. This data is used during the INAS Simu
		lation process.

FieldName          Type   Len  Key  Srch Req Edit Prompt          C Default                          
EMPLID             Char 11     KALS      Req Prmt STDNT_AID_SRCH
INSTITUTION        Char 5      KALS      Req Prmt INSTITUTION_TBL
AID_YEAR           Char 4      KDLS      Req Prmt ISIR_CONTROL
MARITAL_STAT       Char 1                    Xlat
DFLT_MAR_STAT_IND  Char 1
LEGAL_RESIDENCE    Char 2                    Prmt USA_STATE_VW
DT_LEGAL_RES       Date 10
NUMBER_IN_FAMILY   Char 2
DFLT_NUM_FAM_IND   Char 1                    Xlat                   'R'
NUM_IN_COLLEGE     Char 1
DFLT_NUM_COLL_IND  Char 1                    Xlat                   'R'
TAX_FORM_FILED     Char 1                    Xlat
NUMBER_EXEMPTIONS  Char 2                    Xlat
AGI                Sign 6
DFLT_AGI_IND       Char 1                    Xlat                   'R'
TAXES_PAID         Sign 6
DFLT_TAXES_PD_IND  Char 1                    Xlat                   'R'
FATHER_INCOME      Sign 6
DFLT_DAD_INC_IND   Char 1                    Xlat                   'R'
MOTHER_INCOME      Sign 6
DFLT_MOM_INC_IND   Char 1                    Xlat                   'R'
SOC_SEC_BENEFITS   Sign 5
DFLT_SS_BEN_IND    Char 1                    Xlat                   'R'
AFDC_BENEFITS      Sign 5
DFLT_AFDC_BEN_IND  Char 1                    Xlat                   'R'
CHILD_SUPPORT      Sign 5
DFLT_CHLD_SPPT_IND Char 1                    Xlat                   'R'
UNTAXED_INCOME     Sign 5
DFLT_UNTXD_INC_IND Char 1                    Xlat                   'R'
AGE_OLDER_PARENT   Char 2
CASH_SAVINGS       Sign 7
RE_INVEST_VALUE    Sign 7
RE_INVEST_DEBT     Sign 7
BUSINESS_VALUE     Sign 7
BUSINESS_DEBT      Sign 7
FARM_VALUE         Sign 7
FARM_DEBT          Sign 7
CURRENCY_CD        Char 3
FATHER_GRADE_LVL   Char 1                    Xlat
MOTHER_GRADE_LVL   Char 1                    Xlat
TOTAL_FROM_WS3     Sign 6
DFLT_WS3_TOT_IND   Char 1                    Xlat                   'R'
PROJECTED_YR_INC   Char 1                    Xlat                   'N'
ERND_INC_CREDIT    Sign 5
DFLT_EIC_IND       Char 1                    Xlat                   'R'
TAX_RETURN_FILED   Char 1                    Xlat
ELIG_FOR_1040A_EZ  Char 1                    Xlat
TOTAL_FROM_WKA     Num  5
INV_NET_WORTH      Num  6
BUS_NET_WORTH      Num  6
FARM_NET_WORTH     Num  6
LEGAL_RES_PRI_94   Char 1                    Xlat
DFLT_WSA_TOT_IND   Char 1                    Xlat
TAX_FORM_FILED00   Char 1                    Xlat
LEGAL_RES_PRIOR    Char 1                    Xlat
FATHER_SSN         Char 9
FATHER_LAST_NAME   Char 16
MOTHER_SSN         Char 9
MOTHER_LAST_NAME   Char 16
TOTAL_FROM_WKC     Num  5
DFLT_WKC_TOT_IND   Char 1
BLANK_AGI          Char 1                    Xlat
BLANK_TAXES_PAID   Char 1                    Xlat
BLANK_FATHER_INC   Char 1                    Xlat
BLANK_MOTHER_INC   Char 1                    Xlat
BLANK_TOT_FROM_WKA Char 1                    Xlat
BLANK_TOT_FROM_WS3 Char 1                    Xlat
BLANK_INV_NET_WRTH Char 1                    Xlat
MAR_STATUS_DT      Date 10
FATHER_1ST_NM_INIT Char 1
FATHER_DOB         Date 10
MOTHER_1ST_NM_INIT Char 1
MOTHER_DOB         Date 10
IWD_PAR_EMAIL      Char 50
DFLT_FATHERSSN_IND Char 1                    Xlat
DFLT_MOTHERSSN_IND Char 1                    Xlat
BLANK_CASH_SAV     Char 1                    Xlat
SFA_SSI_INCOME     Char 1                    Xlat
SFA_FOOD_STAMPS    Char 1                    Xlat
SFA_SCHL_LUNCH_PRG Char 1                    Xlat
SFA_TANF_BENEFITS  Char 1                    Xlat
SFA_WIC_BENEFITS   Char 1                    Xlat

Record: INAS_SIM_STU	
	Description	Student Data - INAS Simulation
	Record Type	SQL Table
	Parent Record	ISIR_CONTROL
	Related Language	 
	DDL Space Name	FAAPP
	Owner ID	SFAN
	Comments	This record contains Student data from the corresponding max effdt r
		ow of the ISIR_STUDENT table. This data is used during the INAS Simu
		lation process.

FieldName          Type   Len  Key  Srch Req Edit Prompt          C Default                          
EMPLID             Char 11     KALS      Req Prmt STDNT_AID_SRCH
INSTITUTION        Char 5      KALS      Req Prmt INSTITUTION_TBL
AID_YEAR           Char 4      KDLS      Req Prmt ISIR_CONTROL
NUM_FAMILY_MEMBERS Char 2
DFLT_NUM_FAM_IND   Char 1                    Xlat
NUMBER_IN_COLLEGE  Char 1
DFLT_NUM_COLL_IND  Char 1                    Xlat
DOB_PRIOR          Char 1                    Xlat
DFLT_DOB_PRIOR_IND Char 1                    Xlat
VETERAN            Char 1                    Xlat
GRADUATE_STUDENT   Char 1                    Xlat
MARRIED            Char 1                    Xlat
DFLT_MARRIED_IND   Char 1                    Xlat
MARITAL_STAT       Char 1                    Xlat
MAR_STATUS_DT      Date 10
DFLT_MAR_STAT_IND  Char 1                    Xlat
ORPHAN             Char 1                    Xlat
DEPENDENTS         Char 1                    Xlat
DFLT_DEPEND_IND    Char 1                    Xlat
TAX_FORM_FILED     Char 1                    Xlat
NUMBER_EXEMPTIONS  Char 2                    Xlat
AGI                Sign 6
DFLT_AGI_IND       Char 1                    Xlat
TAXES_PAID         Sign 6
DFLT_TAXES_PD_IND  Char 1                    Xlat
STD_EARNED_INCOME  Sign 6
DFLT_STD_INC_IND   Char 1                    Xlat
SPS_EARNED_INCOME  Sign 6
DFLT_SPS_INC_IND   Char 1                    Xlat
SOC_SEC_BENEFITS   Sign 5
DFLT_SS_BEN_IND    Char 1                    Xlat
AFDC_BENEFITS      Sign 5
DFLT_AFDC_BEN_IND  Char 1                    Xlat
CHILD_SUPPORT      Sign 5
DFLT_CHLD_SPPT_IND Char 1                    Xlat
UNTAXED_INCOME     Sign 5
DFLT_UNTXD_INC_IND Char 1                    Xlat
CASH_SAVINGS       Sign 7
RE_INVEST_VALUE    Sign 7
RE_INVEST_DEBT     Sign 7
BUSINESS_VALUE     Sign 7
BUSINESS_DEBT      Sign 7
FARM_VALUE         Sign 7
FARM_DEBT          Sign 7
CURRENCY_CD        Char 3
SCHOOL_CHOICE_1    Char 6                    Prmt TITLE_IV_SRCH
HOUSING_CODE_1     Char 1                    Xlat
SCHOOL_CHOICE_2    Char 6                    Prmt TITLE_IV_SRCH
HOUSING_CODE_2     Char 1                    Xlat
SCHOOL_CHOICE_3    Char 6                    Prmt TITLE_IV_SRCH
HOUSING_CODE_3     Char 1                    Xlat
SCHOOL_CHOICE_4    Char 6                    Prmt TITLE_IV_SRCH
HOUSING_CODE_4     Char 1                    Xlat
SCHOOL_CHOICE_5    Char 6                    Prmt TITLE_IV_SRCH
HOUSING_CODE_5     Char 1                    Xlat
SCHOOL_CHOICE_6    Char 6                    Prmt TITLE_IV_SRCH
HOUSING_CODE_6     Char 1                    Xlat
STATE_AGNCY_RLSE   Char 1                    Xlat
SEL_SERV_REGISTER  Char 1                    Xlat
SIGNED_BY_APPLICNT Char 1                    Xlat                   '1'
SIGNED_BY_SPOUSE   Char 1                    Xlat
SIGNED_BY_FATHER   Char 1                    Xlat
SIGNED_BY_MOTHER   Char 1                    Xlat
FIRST_BACH_DEGREE  Char 1                    Xlat
MONTHLY_VET_BEN    Sign 4
NUM_MONTH_VET_BEN  Char 2
INTERESTED_IN_WS   Char 1                    Xlat
INTERESTED_IN_SL   Char 1                    Xlat
INTERESTED_IN_PLUS Char 1                    Xlat
APP_SIGNED_BY      Char 1                    Xlat
DT_APP_COMPLETED   Date 10                                          %date
DT_GED_EARNED      Date 10
HS_GRAD_DT         Date 10
ATTEND_SAME_COLL   Char 1                    Xlat
ENROLL_CURNT_SUM   Char 1                    Xlat
ENROLL_FALL        Char 1                    Xlat
ENROLL_WINTER      Char 1                    Xlat
ENROLL_SPRING      Char 1                    Xlat
ENROLL_NEXT_SUM    Char 1                    Xlat
DEGREE_CERTIF      Char 1                    Xlat
COURSE_OF_STUDY    Char 2                    Xlat
DT_EXPCT_TO_COMP   Date 10
CURRENT_GRADE_LVL  Char 2                    Xlat
PAY_NUM_DEPENDENTS Char 2
TOTAL_FROM_WS3     Sign 6
DFLT_WS3_TOT_IND   Char 1                    Xlat
DEPNDNCY_STAT      Char 1                    Xlat
PROJECTED_YR_INC   Char 1                    Xlat                   'N'
EARLY_ADMISSION    Char 1                    Xlat
ERND_INC_CREDIT    Sign 5
DFLT_EIC_IND       Char 1                    Xlat
GRADUATE           Char 1
EXP_TOT_WS3        Sign 5
DFLT_EXP_WS3_IND   Char 1                    Xlat
STATE_RESIDENCE    Char 6                    Prmt USA_STATE_VW
RESIDENCY_DT       Date 10
DRIV_LIC_STATE     Char 6                    Prmt ISIR_DRV_LIC_VW
HS_GED_RCVD        Char 1                    Xlat
FISAP_TOT_INC      Sign 7
CITIZENSHIP_STATUS Char 1                    Prmt CITIZEN_STS_TBL
LEGAL_RES_PRI_94   Char 1                    Xlat
STUDENT_MALE       Char 1                    Xlat
TAX_RETURN_FILED   Char 1                    Xlat
ELIG_FOR_1040A_EZ  Char 1                    Xlat
TOTAL_FROM_WKA     Num  5
INV_NET_WORTH      Num  6
BUS_NET_WORTH      Num  6
FARM_NET_WORTH     Num  6
STUDENT_HAVE_DL    Char 1                    Xlat
DFLT_WSA_TOT_IND   Char 1                    Xlat
DFLT_VETERAN_IND   Char 1                    Xlat
DFLT_CITIZEN_IND   Char 1                    Xlat
IWD_CITY           Char 16
IWD_STATE          Char 2
IWD_ZIP            Char 5
IWD_PERM_PHONE     Char 10
TAX_FORM_FILED00   Char 1                    Xlat
LEGAL_RES_PRIOR    Char 1                    Xlat
DRUG_OFFENSE_CONV  Char 1                    Xlat
IWD_STD_LAST_NAME  Char 16
IWD_STU_MI         Char 1
SSN                Char 9
BIRTHDATE          Date 10
DRIVERS_LICENSE_NO Char 20
IWD_STU_ALIEN_REG  Char 9
CHILDREN           Char 1                    Xlat
DFLT_CHILDREN_IND  Char 1
TOTAL_FROM_WKC     Num  5
DFLT_WKC_TOT_IND   Char 1
IWD_STD_EMAIL      Char 50
IWD_PERM_ADDR02    Char 35
IWD_STD_FIRST_NM02 Char 12
BLANK_AGI          Char 1                    Xlat
BLANK_TAXES_PAID   Char 1                    Xlat
BLANK_STD_EARN_INC Char 1                    Xlat
BLANK_SPS_EARN_INC Char 1                    Xlat
BLANK_TOT_FROM_WKA Char 1                    Xlat
BLANK_TOT_FROM_WS3 Char 1                    Xlat
BLANK_INV_NET_WRTH Char 1                    Xlat
ISIR_STU_ENRL_STAT Char 1                    Xlat
BLANK_CASH_SAV     Char 1                    Xlat
SFA_ACTIVE_DUTY    Char 1                    Xlat
SFA_SSI_INCOME     Char 1                    Xlat
SFA_FOOD_STAMPS    Char 1                    Xlat
SFA_SCHL_LUNCH_PRG Char 1                    Xlat
SFA_TANF_BENEFITS  Char 1                    Xlat
SFA_WIC_BENEFITS   Char 1                    Xlat
SFA_INTRSTD_IN_WSL Char 1                    Xlat
SFA_STDNT_GENDER   Char 1                    Xlat
SFA_SCHL_CHOICE_7  Char 6
SFA_SCHL_CHOICE_8  Char 6
SFA_SCHL_CHOICE_9  Char 6
SFA_SCHL_CHOICE_10 Char 6
SFA_HOUSING_CODE7  Char 1                    Xlat
SFA_HOUSING_CODE8  Char 1                    Xlat
SFA_HOUSING_CODE9  Char 1                    Xlat
SFA_HOUSING_CODE10 Char 1                    Xlat
SFA_HS_DIP_EQUIV   Char 1                    Xlat

Record: ISIR_COMPUTED	
	Description	Computed Data from INAS/DOE
	Record Type	SQL Table
	Parent Record	ISIR_CONTROL
	Related Language	 
	DDL Space Name	FAAPP
	Owner ID	SFAI
	Comments	This table contains all the computed fields from the Dept. of Educat
		ion.

FieldName          Type   Len  Key  Srch Req Edit Prompt          C Default                          
EMPLID             Char 11     KALS      Req Prmt PERSONAL_DATA
INSTITUTION        Char 5      KALS      Req Prmt INSTITUTION_TBL
AID_YEAR           Char 4      KDLS      Req Prmt STUDENT_AID
EFFDT              Date 10     KD        Req                        %date
EFFSEQ             Num  3      KD        Req
TABLE_ID           Char 1      KA        Req                        '1'
PRIMARY_EFC        Num  5
SECONDARY_EFC      Num  5
PELL_SPCL_PRM_EFC  Num  5
PELL_SPCL_SEC_EFC  Num  5
PELL_PAID_EFC_TYPE Char 1
VALID_EFC_CALC     Char 1                    Y/N
AUTO_ZERO_EFC      Char 1                    Xlat
FORMULA_TYPE       Char 1                    Xlat
PRM_ALT_MONTH_1    Char 5
PRM_ALT_MONTH_2    Char 5
PRM_ALT_MONTH_3    Char 5
PRM_ALT_MONTH_4    Char 5
PRM_ALT_MONTH_5    Char 5
PRM_ALT_MONTH_6    Char 5
PRM_ALT_MONTH_7    Char 5
PRM_ALT_MONTH_8    Char 5
PRM_ALT_MONTH_10   Char 5
PRM_ALT_MONTH_11   Char 5
PRM_ALT_MONTH_12   Char 5
SEC_ALT_MONTH_1    Char 5
SEC_ALT_MONTH_2    Char 5
SEC_ALT_MONTH_3    Char 5
SEC_ALT_MONTH_4    Char 5
SEC_ALT_MONTH_5    Char 5
SEC_ALT_MONTH_6    Char 5
SEC_ALT_MONTH_7    Char 5
SEC_ALT_MONTH_8    Char 5
SEC_ALT_MONTH_10   Char 5
SEC_ALT_MONTH_11   Char 5
SEC_ALT_MONTH_12   Char 5
TOTAL_INCOME       Sign 8                                         Y Curr: CURRENCY_CD
ALWNC_AGAINST_TI   Sign 7                                         Y Curr: CURRENCY_CD
STATE_TAX_ALWNC    Sign 7                                         Y Curr: CURRENCY_CD
EMPLOYMENT_ALWNC   Sign 7                                         Y Curr: CURRENCY_CD
INC_PROTECTN_ALWNC Sign 7                                         Y Curr: CURRENCY_CD
AVAILABLE_INCOME   Sign 7                                         Y Curr: CURRENCY_CD
DESCRTN_NET_WORTH  Sign 7                                         Y Curr: CURRENCY_CD
AST_PROTECTN_ALWNC Sign 7                                         Y Curr: CURRENCY_CD
CONTRIB_FROM_ASSET Sign 7                                         Y Curr: CURRENCY_CD
ADJ_AVAILABLE_INC  Sign 7                                         Y Curr: CURRENCY_CD
TOTAL_PAR_CONTRIB  Sign 7                                         Y Curr: CURRENCY_CD
TOTAL_STU_CONTRIB  Sign 7                                         Y Curr: CURRENCY_CD
ADJ_PAR_CONTRIB    Sign 7                                         Y Curr: CURRENCY_CD
DEP_STU_I_CONTRIB  Sign 7                                         Y Curr: CURRENCY_CD
DEP_STU_A_CONTRIB  Sign 7                                         Y Curr: CURRENCY_CD
STU_TOTAL_INC      Sign 7                                         Y Curr: CURRENCY_CD
CONTRIB_AVAIL_INC  Sign 7
FICA_TAX_PD        Sign 5
CURRENCY_CD        Char 3
EFC_CALC_DT        Date 10
BUDGET_DURATION    Num  2
ADJ_EFC_AMT        Sign 5
WEEKLY_PC          Num  5
WEEKLY_SC          Num  5
PRORATED_EFC       Num  5
SECONDARY_EFC_TP   Char 1
EFC_NET_WORTH      Num  9
STU_ALLOW_VS_TI    Sign 7
STU_DISC_NET_WORTH Sign 9
SEC_NET_WORTH      Num  9
SEC_ALLOW_VS_TI    Sign 7
SEC_SDNW           Sign 7
PAID_EFC           Num  5
ISIR_CALC_SC       Num  5
ISIR_CALC_PC       Num  5
ISIR_CALC_EFC      Num  5
SFA_SIG_REJ_EFC    Num  5

Record: ITEM_TYPE_FISCL	
	Description	Fiscal Item Type Table
	Record Type	SQL Table
	Set Control Field	INSTITUTION
	Parent Record	ITEM_TYPE_1_TBL
	Related Language	 
	DDL Space Name	FAAPP
	Owner ID	SSF
	Comments	Fiscal Item Type Table

FieldName          Type   Len  Key  Srch Req Edit Prompt          C Default                          
SETID              Char 5      KALS      Req Prmt ITEM_TYPE_FA_VW   OPR_DEF_TBL_CS.SETID
ITEM_TYPE          Char 12     KALS      Req Prmt ITEM_TYPE_FA_VW
AID_YEAR           Char 4      KD        Req Prmt SETID_AIDYR_VW    OPR_DEF_TBL_CS.AID_YEAR
INSTITUTION        Char 5                    Prmt INSTITUTION_TBL   ITEM_TYPE_FISCL.SETID
MAX_OFR_BUDGT      Sign 15.3
OFR_GROSS          Sign 15.3
OFR_REDUCTN        Sign 15.3
OFR_NET            Sign 15.3
OFR_AVAILABLE      Sign 15.3
MAX_OFR_BUDGT      Sign 15.3                                      Y Curr: CURRENCY_CD
OFR_GROSS          Sign 15.3                                      Y Curr: CURRENCY_CD
OFR_REDUCTN        Sign 15.3                                      Y Curr: CURRENCY_CD
OFR_NET            Sign 15.3                                      Y Curr: CURRENCY_CD
OFR_AVAILABLE      Sign 15.3                                      Y Curr: CURRENCY_CD
OFFERED_NET_COUNT  Num  7
MAX_ACC_BUDGT      Sign 15.3
ACC_GROSS          Sign 15.3
ACC_REDUCTN        Sign 15.3
ACC_NET            Sign 15.3
ACC_AVAILABLE      Sign 15.3
MAX_ACC_BUDGT      Sign 15.3                                      Y Curr: CURRENCY_CD
ACC_GROSS          Sign 15.3                                      Y Curr: CURRENCY_CD
ACC_REDUCTN        Sign 15.3                                      Y Curr: CURRENCY_CD
ACC_NET            Sign 15.3                                      Y Curr: CURRENCY_CD
ACC_AVAILABLE      Sign 15.3                                      Y Curr: CURRENCY_CD
ACCEPTED_NET_COUNT Num  7
DECLINED_AMTS      Sign 15.3
DECLINED_AMTS      Sign 15.3                                      Y Curr: CURRENCY_CD
DECLINED_COUNT     Num  7
CANCELLED_AMTS     Sign 15.3
CANCELLED_AMTS     Sign 15.3                                      Y Curr: CURRENCY_CD
CANCELLED_COUNT    Num  7
MAX_ATH_BUDGT      Sign 15.3
NET_ATH_AMT        Sign 15.3
MAX_DSB_BUDGT      Sign 15.3
NET_DSB_PAID       Sign 15.3
POTENTIAL_DSB      Sign 15.3
MAX_ATH_BUDGT      Sign 15.3                                      Y Curr: CURRENCY_CD
NET_ATH_AMT        Sign 15.3                                      Y Curr: CURRENCY_CD
MAX_DSB_BUDGT      Sign 15.3                                      Y Curr: CURRENCY_CD
NET_DSB_PAID       Sign 15.3                                      Y Curr: CURRENCY_CD
POTENTIAL_DSB      Sign 15.3                                      Y Curr: CURRENCY_CD
CURRENCY_CD        Char 3                Req Prmt CURRENCY_CD_TBL   INSTALLATION.EXCHNG_TO_CURRENCY
HIGHEST_ACC_SUM    Num  15.3
HIGHEST_OFR_SUM    Num  15.3
HIGHEST_ACC_SUM    Num  15.3                                      Y Curr: CURRENCY_CD
HIGHEST_OFR_SUM    Num  15.3                                      Y Curr: CURRENCY_CD

Record: STDNT_BDGT_ASGN	
	Description	Student Budget Work Table
	Record Type	SQL Table
	Parent Record	STUDENT_AID
	Related Language	 
	DDL Space Name	FAAPP
	Owner ID	SFAB
	Comments	This table contains those students who either need to have a budget
		assigned, or have had a budget assigned and have yet to have that bu
		dget assignment moved to the.

FieldName          Type   Len  Key  Srch Req Edit Prompt          C Default                          
EMPLID             Char 11     KALS      Req Prmt STDNT_AID_SRCH
INSTITUTION        Char 5      KALS      Req Prmt INSTITUTION_TBL
AID_YEAR           Char 4      KDLS      Req Prmt AID_YEAR_TBL
STRM               Char 4      KDLS      Req Prmt TERM_VAL_TBL
PROCESSING_MODE    Char 1      KALS      Req Xlat
TERM_TYPE          Char 1                    Xlat
ACAD_PROG_PRIMARY  Char 5                    Prmt ACAD_PRGFA_CRVW
ACAD_CAREER        Char 4                    Xlat
ACAD_PLAN          Char 10                   Prmt ACAD_PLAN_TBL
ACAD_SUB_PLAN      Char 10                   Prmt ACAD_SUBPLAN_VW
ACADEMIC_LOAD      Char 1                    Xlat
ACAD_LOAD_APPR     Char 1                    Xlat
ACAD_LEVEL_PROJ    Char 3                    Prmt XL_ACAD_LVL_VW
ACAD_LEVEL_BOT     Char 3                    Prmt XL_ACAD_LVL_VW
FA_LOAD            Char 1                    Xlat
FORM_OF_STUDY      Char 4                    Xlat
RESIDENCY          Char 5                    Prmt RESIDENCY_TBL
FIN_AID_FED_RES    Char 5                    Prmt RESIDENCY_TBL
FIN_AID_ST_RES     Char 5                    Prmt RESIDENCY_TBL
FIN_AID_FED_EXCPT  Char 5                    Prmt RESID_EXCPT_TBL
FIN_AID_ST_EXCPT   Char 5                    Prmt RESID_EXCPT_TBL
STATE_RESIDENCE    Char 6                    Prmt STATE_NAMES_VW
APP_STATE_RESIDENC Char 2                    Prmt STATE_NAMES_VW
POSTAL             Char 12
HOUSING_TYPE       Char 1                    Xlat
MARITAL_STAT       Char 1                    Xlat
NUMBER_IN_FAMILY   Char 2
DEPNDNCY_STAT      Char 1                    Xlat
NSLDS_LOAN_YEAR    Char 1                    Xlat
BUDGET_GROUP_CODE  Char 6                    Prmt BUD_GRP_VW
PRORATE_BUDGET     Char 1
BUDGET_STATUS      Char 1                    Xlat
CAMPUS             Char 5                    Prmt CAMPUS_TBL
CAMPUS_FA          Char 5                    Prmt CAMPUS_TBL
UNT_TAKEN_FA       Num  5.3
UNT_TAKEN_FA_CL    Num  5.3
INTERESTED_IN_PLUS Char 1                    Xlat
INTERESTED_IN_SL   Char 1                    Xlat
ENROLL_CURNT_SUM   Char 1                    Xlat
ENROLL_FALL        Char 1                    Xlat
ENROLL_NEXT_SUM    Char 1                    Xlat
ENROLL_SPRING      Char 1                    Xlat
ENROLL_WINTER      Char 1                    Xlat
SRVC_IND_DTTM      DT   26
SRVC_IND_CD        Char 3                    Prmt SRVC_IND_CD_TBL
REFUND_PCT         Num  3.2
REFUND_SCHEME      Char 8                    Prmt ADJ_RFND_SCM_VW
REFUND_SETID       Char 5                    Prmt SETID_TBL
REFUND_CLASS       Char 1                    Xlat
ADVISOR_ROLE       Char 4                    Xlat
ADVISOR_ID         Char 11                   Prmt INSTR_ADVSR_VW
COMMITTEE_ID       Char 6                    Prmt COMMITTEE_TBL
WEEKS_OF_INSTRUCT  Num  2
START_DATE         Date 10
END_DATE           Date 10
STUDY_AGREEMENT    Char 10                   Prmt STUDY_AGRM_TBL
EXT_ORG_ID         Char 11                   Prmt EXT_ORG_TBL
COUNTRY            Char 3                    Prmt COUNTRY_TBL
ACAD_GROUP_ADVIS   Char 5                    Prmt ACAD_GROUP_TBL
ADMIT_TERM         Char 4                    Prmt TERM_VAL_TBL
STDNT_GROUP        Char 4                    Prmt STDNT_GROUP_TBL
SPORT1             Char 3                    Xlat
SPORT2             Char 3                    Xlat
SPORT3             Char 3                    Xlat
SPORT4             Char 3                    Xlat
ATHL_PARTIC_CD1    Char 5                    Prmt ATHL_PART_TBL
ATHL_PARTIC_CD2    Char 5                    Prmt ATHL_PART_TBL
ATHL_PARTIC_CD3    Char 5                    Prmt ATHL_PART_TBL
ATHL_PARTIC_CD4    Char 5                    Prmt ATHL_PART_TBL
CUR_PARTICIPANT1   Char 1                    Prmt XL_PSYESNO_VW
CUR_PARTICIPANT2   Char 1                    Prmt XL_PSYESNO_VW
CUR_PARTICIPANT3   Char 1                    Prmt XL_PSYESNO_VW
CUR_PARTICIPANT4   Char 1                    Prmt XL_PSYESNO_VW
FA_NUMBER_OF_WEEKS Num  3
COURSE_LD_PCT      Num  3.2
FA_UNIT_ANTIC      Num  5.3
FA_UNIT_COMPLETED  Num  5.3
FA_UNIT_IN_PROG    Num  5.3
FA_UNIT_CURRENT    Num  5.3
FA_LOAD_CURRENT    Char 1
ACAD_PLAN_TYPE     Char 3                    Xlat
FA_TERM_EFFDT      Date 10
FA_TERM_EFFSEQ     Num  3
ISIR_STU_ENRL_STAT Char 1                    Xlat
SFA_INTRSTD_IN_WSL Char 1                    Xlat

Record: TRNS_CRSE_DTL	
	Description	Student Transfer Course Detail
	Record Type	SQL Table
	Parent Record	TRNS_CRSE_TERM
	Related Language	TRN_CRS_DTL_LNG
	DDL Space Name	SRAPP
	Owner ID	SSR
	Comments	This table records detail information about how courses taken by a s
		tudent from another institution are transferred as internal courses.

FieldName          Type   Len  Key  Srch Req Edit Prompt          C Default                          
EMPLID             Char 11     KALS      Req Prmt PERSONAL_DATA
ACAD_CAREER        Char 4      KALS      Req Xlat
INSTITUTION        Char 5      KALS      Req Prmt INSTITUTION_TBL
MODEL_NBR          Num  3      KALS      Req Prmt TRNS_CRSE_SCH
ARTICULATION_TERM  Char 4      KALS      Req Prmt TERM_TBL
TRNSFR_EQVLNCY_GRP Num  3      KALS      Req
TRNSFR_EQVLNCY_SEQ Num  3      KA        Req
TRNSFR_STAT        Char 1                    Xlat
TRNSFR_SRC_ID      Char 11
TRNSFR_EQVLNCY     Char 6
TRNSFR_EQVLNCY_CMP Char 4
EXT_COURSE_NBR     Num  3
SRC_TERM           Char 4
SRC_CLASS_NBR      Num  5
TERM_YEAR          Num  4
EXT_TERM           Char 4                    Xlat
SCHOOL_SUBJECT     Char 8
SCHOOL_CRSE_NBR    Char 10
DESCR              Char 30
SSR_UNT_TAKEN_EXT  Num  3.2
UNT_TAKEN          Num  3.2
CRSE_GRADE_INPUT   Char 3
CRSE_ID            Char 6                    Prmt CRSE_CAT_TC_VW
CRSE_OFFER_NBR     Num  2                    Prmt CRSE_OFFER
GRADING_SCHEME     Char 3                    Prmt GRADESCHEME_TBL
GRADING_BASIS      Char 3                    Prmt GRADE_BASE_E_VW
UNT_TRNSFR         Num  5.3
CRSE_GRADE_OFF     Char 3                    Prmt GRD_NO_CNV_VW
GRD_PTS_PER_UNIT   Num  6.3
EARN_CREDIT        Char 1                    Y/N
INCLUDE_IN_GPA     Char 1                    Y/N
UNITS_ATTEMPTED    Char 1                    Xlat
REPEAT_CODE        Char 4                    Prmt REPEAT_CODE_TBL
RQMNT_DESIGNTN     Char 4                    Prmt RQMNT_DESIG_TBL
FREEZE_REC_FL      Char 1                    Y/N                    'N'
INPUT_CHG_FL       Char 1                    Y/N                    'N'
REJECT_REASON      Char 2
OVRD_TRCR_FL       Char 1                    Y/N                    'N'
OVRD_RSN           Char 50
COURSE_LEVEL       Char 2                    Xlat
VALID_ATTEMPT      Char 1
GRADE_CATEGORY     Char 4                    Xlat
COMP_SUBJECT_AREA  Char 16
SSR_FAWI_INCL      Char 1                Req Y/N                    'N'
COMMENTS           Long

Record: TRNS_CRSE_TERM	
	Description	Student Transfer Course Term
	Record Type	SQL Table
	Parent Record	TRNS_CRSE_SCH
	Related Language	 
	DDL Space Name	SRAPP
	Owner ID	SSR
	Comments	This table records summary information about how credits earned from
		another institution get transferred to a target Program/Plan,.
		
		The UNT_TAKEN and UNT_TRNSFR fields would contain the total units fo
		r the term is the transfer credit source is an External Organization
		.
		
		The fields prefix with TRF_ get populated when the transfer is consi
		dered internal.  This would be the case if the source of the credits
		is the same institution as the target, when it is another instituti
		on within the system, or if the source is an External Organization b
		ut the 'Include Transfer Credit in GPA' field in the Organization Af
		fifliation panel has been set to Yes.

FieldName          Type   Len  Key  Srch Req Edit Prompt          C Default                          
EMPLID             Char 11     KALS      Req Prmt PERSONAL_DATA
ACAD_CAREER        Char 4      KALS      Req Xlat
INSTITUTION        Char 5      KALS      Req Prmt INSTITUTION_TBL
MODEL_NBR          Num  3      KALS      Req
ARTICULATION_TERM  Char 4      KALS      Req Prmt TERM_TBL
MODEL_STATUS       Char 1                    Xlat
UNT_TAKEN          Num  3.2
UNT_TRNSFR         Num  5.3
TRF_TAKEN_GPA      Num  5.3
TRF_TAKEN_NOGPA    Num  5.3
TRF_PASSED_GPA     Num  5.3
TRF_PASSED_NOGPA   Num  5.3
TRF_GRADE_POINTS   Num  6.3
TRF_GPA            Num  5.3
SSR_FAWI_TKN       Num  3.2
SSR_FAWI_TKN_GPA   Num  5.3
SSR_FAWI_TKN_NOGPA Num  5.3
SSR_FAWI_PSD       Num  5.3
SSR_FAWI_PSD_GPA   Num  5.3
SSR_FAWI_PSD_NOGPA Num  5.3
SSR_FAWI_GRADE_PTS Num  6.3
SSR_FAWI_GPA       Num  5.3
POST_DT            Date 10
OPRID              Char 30

Record: TRNS_OTHR_DTL	
	Description	Student Other Credit Detail
	Record Type	SQL Table
	Parent Record	TRNS_OTHR_TERM
	Related Language	TRN_OTH_DTL_LNG
	DDL Space Name	SRAPP
	Owner ID	SSR
	Comments	This table records detail information about how a student's other cr
		edits  are converted into internal courses.

FieldName          Type   Len  Key  Srch Req Edit Prompt          C Default                          
EMPLID             Char 11     KALS      Req Prmt PERSONAL_DATA
ACAD_CAREER        Char 4      KALS      Req Xlat
INSTITUTION        Char 5      KALS      Req Prmt INSTITUTION_TBL
MODEL_NBR          Num  3      KALS      Req Prmt TRNS_CRSE_SCH
ARTICULATION_TERM  Char 4      KALS      Req Prmt TERM_TBL
TRNSFR_EQVLNCY_GRP Num  3      KALS      Req
TRNSFR_EQVLNCY_SEQ Num  3      KALS      Req                        '1'
DESCR              Char 30
DESCRSHORT         Char 10                                          TRNS_OTHR_DTL.DESCR
DESCR254A          Char 254                                         TRNS_OTHR_DTL.DESCR
OTHR_CREDIT_TYPE   Char 4                    Xlat
EVALUATION_DT      Date 10                                          %date
TRNSFR_STAT        Char 1                    Xlat
CRSE_ID            Char 6                    Prmt CRSE_CAT_TC_VW
CRSE_OFFER_NBR     Num  2                    Prmt CRSE_OFFER
UNT_TRNSFR         Num  5.3
GRADING_SCHEME     Char 3                    Prmt GRADESCHEME_TBL
GRADING_BASIS      Char 3                    Prmt GRADE_BASE_E_VW
CRSE_GRADE_OFF     Char 3                    Prmt GRD_NO_CNV_VW
GRD_PTS_PER_UNIT   Num  6.3
EARN_CREDIT        Char 1                    Y/N
INCLUDE_IN_GPA     Char 1                    Y/N
UNITS_ATTEMPTED    Char 1                    Xlat
REPEAT_CODE        Char 4                    Prmt REPEAT_CODE_TBL
RQMNT_DESIGNTN     Char 4                    Prmt RQMNT_DESIG_TBL
FREEZE_REC_FL      Char 1                    Y/N                    'N'
REJECT_REASON      Char 2
OVRD_TRCR_FL       Char 1                    Y/N                    'N'
OVRD_RSN           Char 50
VALID_ATTEMPT      Char 1                    Y/N
GRADE_CATEGORY     Char 4                    Xlat
SSR_FAWI_INCL      Char 1                Req Y/N                    'N'
COMMENTS           Long

Record: TRNS_OTHR_TERM	
	Description	Student Other Credit Term
	Record Type	SQL Table
	Parent Record	TRNS_OTHR_MODEL
	Related Language	 
	DDL Space Name	SRAPP
	Owner ID	SSR
	Comments	This table records summary information about how other credits earne
		d  get transferred to a target Program/Plan by Term.

FieldName          Type   Len  Key  Srch Req Edit Prompt          C Default                          
EMPLID             Char 11     KALS      Req Prmt PERSONAL_DATA
ACAD_CAREER        Char 4      KALS      Req Xlat
INSTITUTION        Char 5      KALS      Req Prmt INSTITUTION_TBL
MODEL_NBR          Num  3      KALS      Req      TRNS_OTHR_MODEL
ARTICULATION_TERM  Char 4      KALS      Req Prmt TERM_TBL
MODEL_STATUS       Char 1                    Xlat
UNT_TRNSFR         Num  5.3
TRF_PASSED_GPA     Num  5.3
TRF_PASSED_NOGPA   Num  5.3
POST_DT            Date 10
OPRID              Char 30
TRF_TAKEN_GPA      Num  5.3
TRF_TAKEN_NOGPA    Num  5.3
TRF_GRADE_POINTS   Num  6.3                                         '0'
TRF_GPA            Num  5.3
SSR_FAWI_PSD       Num  5.3
SSR_FAWI_TKN_GPA   Num  5.3
SSR_FAWI_TKN_NOGPA Num  5.3
SSR_FAWI_PSD_GPA   Num  5.3
SSR_FAWI_PSD_NOGPA Num  5.3
SSR_FAWI_GRADE_PTS Num  6.3
SSR_FAWI_GPA       Num  5.3

Record: TRNS_TEST_DTL	
	Description	Student Transfer Test Detail
	Record Type	SQL Table
	Parent Record	TRNS_TEST_TERM
	Related Language	TRN_TST_DTL_LNG
	DDL Space Name	SRAPP
	Owner ID	SSR
	Comments	This table records detail information about how tests taken by a stu
		dent are converted into internal courses.

FieldName          Type   Len  Key  Srch Req Edit Prompt          C Default                          
EMPLID             Char 11     KALS      Req Prmt PERSONAL_DATA
ACAD_CAREER        Char 4      KALS      Req Xlat
INSTITUTION        Char 5      KALS      Req Prmt INSTITUTION_TBL
MODEL_NBR          Num  3      KALS      Req Prmt TRNS_TEST_MODEL
ARTICULATION_TERM  Char 4      KALS      Req Prmt TRNS_TEST_TERM
TRNSFR_EQVLNCY_GRP Num  3      KALS      Req
TRNSFR_EQVLNCY_SEQ Num  3      KALS      Req
TRNSFR_STAT        Char 1                    Xlat
TST_EQVLNCY        Char 6
TRNSFR_EQVLNCY_CMP Char 4
TEST_ID            Char 5                    Prmt SA_TEST_TBL
TEST_COMPONENT     Char 5                    Prmt SA_TCMP_REL_TBL
DESCR              Char 30
TEST_DT            Date 10
LS_DATA_SOURCE     Char 3                    Xlat
SCORE              Num  4.2
PERCENTILE         Num  3
CRSE_ID            Char 6                    Prmt CRSE_CAT_TC_VW
CRSE_OFFER_NBR     Num  2                    Prmt CRSE_OFFER
UNT_TRNSFR         Num  5.3
GRADING_SCHEME     Char 3                    Prmt GRADESCHEME_TBL
GRADING_BASIS      Char 3                    Prmt GRADE_BASE_E_VW
CRSE_GRADE_OFF     Char 3                    Prmt GRD_NO_CNV_VW
GRD_PTS_PER_UNIT   Num  6.3
EARN_CREDIT        Char 1                    Y/N
INCLUDE_IN_GPA     Char 1                    Y/N
UNITS_ATTEMPTED    Char 1                    Xlat
REPEAT_CODE        Char 4                    Prmt REPEAT_CODE_TBL
RQMNT_DESIGNTN     Char 4                    Prmt RQMNT_DESIG_TBL
FREEZE_REC_FL      Char 1                    Y/N                    'N'
INPUT_CHG_FL       Char 1                    Xlat                   'N'
REJECT_REASON      Char 2
OVRD_TRCR_FL       Char 1                    Y/N                    'N'
OVRD_RSN           Char 50
VALID_ATTEMPT      Char 1                    Y/N
GRADE_CATEGORY     Char 4                    Xlat
SSR_FAWI_INCL      Char 1                Req Y/N                    'N'
COMMENTS           Long

Record: TRNS_TEST_TERM	
	Description	Student Test Credit Term
	Record Type	SQL Table
	Parent Record	TRNS_TEST_MODEL
	Related Language	 
	DDL Space Name	SRAPP
	Owner ID	SSR
	Comments	This table records the term summary information for student tests ac
		cepted into the Program/Plan.

FieldName          Type   Len  Key  Srch Req Edit Prompt          C Default                          
EMPLID             Char 11     KALS      Req Prmt PERSONAL_DATA
ACAD_CAREER        Char 4      KALS      Req Xlat                   OPR_DEF_TBL_CS.ACAD_CAREER
INSTITUTION        Char 5      KALS      Req Prmt INSTITUTION_TBL   OPR_DEF_TBL_CS.INSTITUTION
MODEL_NBR          Num  3      KALS      Req      TRNS_TEST_MODEL
ARTICULATION_TERM  Char 4      KALS      Req Prmt TERM_TBL
MODEL_STATUS       Char 1                    Xlat
UNT_TRNSFR         Num  5.3
TRF_PASSED_GPA     Num  5.3
TRF_PASSED_NOGPA   Num  5.3
POST_DT            Date 10
OPRID              Char 30
TRF_TAKEN_GPA      Num  5.3
TRF_TAKEN_NOGPA    Num  5.3
TRF_GRADE_POINTS   Num  6.3                                         '0'
TRF_GPA            Num  5.3
SSR_FAWI_PSD       Num  5.3
SSR_FAWI_TKN_GPA   Num  5.3
SSR_FAWI_TKN_NOGPA Num  5.3
SSR_FAWI_PSD_GPA   Num  5.3
SSR_FAWI_PSD_NOGPA Num  5.3
SSR_FAWI_GRADE_PTS Num  6.3
SSR_FAWI_GPA       Num  5.3

Field Detail

Field: AGGR_ACC_AVAILABLE	
	Field Type	Sign
	Length	20	16
	Decimal Positions	3	2
	Format	UpperCase
	Family Name	 
	Display Name	 
	Owner ID	

Label ID            Short Name       Long Name                       Def
AGGR_ACC_AVAILABLE  Available        Available                       Yes

Field: AGGR_ACC_GROSS	
	Field Type	Sign
	Length	20	16
	Decimal Positions	3	2
	Format	UpperCase
	Family Name	 
	Display Name	 
	Owner ID	

Label ID            Short Name       Long Name                       Def
AGGR_ACC_GROSS      Gross            Gross                           Yes

Field: AGGR_ACC_NET	
	Field Type	Sign
	Length	20	16
	Decimal Positions	3	2
	Format	UpperCase
	Family Name	 
	Display Name	 
	Owner ID	

Label ID            Short Name       Long Name                       Def
AGGR_ACC_NET        Net              Net                             Yes

Field: AGGR_ACC_REDUCTN	
	Field Type	Sign
	Length	20	16
	Decimal Positions	3	2
	Format	UpperCase
	Family Name	 
	Display Name	 
	Owner ID	

Label ID            Short Name       Long Name                       Def
AGGR_ACC_REDUCTN    Reductions       Reductions                      Yes

Field: AGGR_CANCELLED_AMT	
	Field Type	Sign
	Length	20	16
	Decimal Positions	3	2
	Format	UpperCase
	Family Name	 
	Display Name	 
	Owner ID	

Label ID            Short Name       Long Name                       Def
AGGR_CANCELLED_AMT  Amt              Amount                          Yes

Field: AGGR_DECLINED_AMTS	
	Field Type	Sign
	Length	20	16
	Decimal Positions	3	2
	Format	UpperCase
	Family Name	 
	Display Name	 
	Owner ID	

Label ID            Short Name       Long Name                       Def
AGGR_DECLINED_AMTS  Amt              Amount                          Yes

Field: AGGR_MAX_ACC_BUDGT	
	Field Type	Sign
	Length	20	16
	Decimal Positions	3	2
	Format	UpperCase
	Family Name	 
	Display Name	 
	Owner ID	

Label ID            Short Name       Long Name                       Def
AGGR_MAX_ACC_BUDGT  Budgeted         Budgeted                        Yes

Field: AGGR_MAX_ATH_BUDGT	
	Field Type	Sign
	Length	20	16
	Decimal Positions	3	2
	Format	UpperCase
	Family Name	 
	Display Name	 
	Owner ID	

Label ID            Short Name       Long Name                       Def
AGGR_MAX_ATH_BUDGT  Budgeted         Budgeted                        Yes

Field: AGGR_MAX_DSB_BUDGT	
	Field Type	Sign
	Length	20	16
	Decimal Positions	3	2
	Format	UpperCase
	Family Name	 
	Display Name	 
	Owner ID	

Label ID            Short Name       Long Name                       Def
AGGR_MAX_DSB_BUDGT  Budgeted         Budgeted                        Yes

Field: AGGR_MAX_OFR_BUD	
	Field Type	Sign
	Length	20	16
	Decimal Positions	3	2
	Format	UpperCase
	Family Name	 
	Display Name	 
	Owner ID	

Label ID            Short Name       Long Name                       Def
AGGR_MAX_OFR_BUD    Budgeted         Budgeted                        Yes

Field: AGGR_NET_ATH_AMT	
	Field Type	Sign
	Length	20	16
	Decimal Positions	3	2
	Format	UpperCase
	Family Name	 
	Display Name	 
	Owner ID	

Label ID            Short Name       Long Name                       Def
AGGR_NET_ATH_AMT    Net              Net                             Yes

Field: AGGR_NET_DSB_PAID	
	Field Type	Sign
	Length	20	16
	Decimal Positions	3	2
	Format	UpperCase
	Family Name	 
	Display Name	 
	Owner ID	

Label ID            Short Name       Long Name                       Def
AGGR_NET_DSB_PAID   Paid             Paid                            Yes

Field: AGGR_OFR_AVAILABLE	
	Field Type	Sign
	Length	20	16
	Decimal Positions	3	2
	Format	UpperCase
	Family Name	 
	Display Name	 
	Owner ID	

Label ID            Short Name       Long Name                       Def
AGGR_OFR_AVAILABLE  Available        Available                       Yes

Field: AGGR_OFR_GROSS	
	Field Type	Sign
	Length	20	16
	Decimal Positions	3	2
	Format	UpperCase
	Family Name	 
	Display Name	 
	Owner ID	

Label ID            Short Name       Long Name                       Def
AGGR_OFR_GROSS      Gross            Gross                           Yes

Field: AGGR_OFR_NET	
	Field Type	Sign
	Length	20	16
	Decimal Positions	3	2
	Format	UpperCase
	Family Name	 
	Display Name	 
	Owner ID	

Label ID            Short Name       Long Name                       Def
AGGR_OFR_NET        Net              Net                             Yes

Field: AGGR_OFR_REDUCTN	
	Field Type	Sign
	Length	20	16
	Decimal Positions	3	2
	Format	UpperCase
	Family Name	 
	Display Name	 
	Owner ID	

Label ID            Short Name       Long Name                       Def
AGGR_OFR_REDUCTN    Reductions       Reductions                      Yes

Field: AGGR_POTENTIAL_DSB	
	Field Type	Sign
	Length	20	16
	Decimal Positions	3	2
	Format	UpperCase
	Family Name	 
	Display Name	 
	Owner ID	

Label ID            Short Name       Long Name                       Def
AGGR_POTENTIAL_DSB  Potntl Pmt       Potential Payments              Yes

Field: DER_MAX_OFR_BUD	
	Field Type	Sign
	Length	20	16
	Decimal Positions	3	2
	Format	UpperCase
	Family Name	 
	Display Name	 
	Owner ID	

Label ID            Short Name       Long Name                       Def
DER_MAX_OFR_BUD     Budgeted         Budgeted                        Yes

Field: LGL_RES_PRI02_LBL	
	Field Type	Char
	Length	1
	Format	UpperCase
	Family Name	 
	Display Name	 
	Owner ID	SFAI	

Label ID            Short Name       Long Name                       Def
LGL_RES_PRI02_LBL   Res Prior 1996   Legal Resident Before 01-01-96  Yes
LGL_RES_PRI03_LBL   Res Prior 1997   Legal Resident Before 01-01-97
LGL_RES_PRI04_LBL   Res Prior 1998   Legal Resident Before 01-01-98
LGL_RES_PRI05_LBL   Res Prior 1999   Legal Resident Before 01-01-99
LGL_RES_PRI06_LBL   Res Prior 2000   Legal Resident Before 01-01-00
LGL_RES_PRI07_LBL   Res Prior 2001   Legal Resident Before 01-01-01
LGL_RES_PRI08_LBL   Res Prior 2002   Legal Resident Before 01-01-02
LGL_RES_PRI09_LBL   Res Prior 2003   Legal Resident Before 01-01-03
LGL_RES_PRI10_LBL   Res Prior 2004   Legal Resident Before 01-01-04
LGL_RES_PRI11_LBL   Res Prior 2005   Legal Resident Before 01-01-05

Field: SSR_FAWI_GPA	
	Field Type	Num	
	Length	9	
	Decimal Positions	3	
	Format	UpperCase	
	Family Name	 	
	Display Name	 	
	Owner ID	

Label ID            Short Name       Long Name                       Def
SSR_FAWI_GPA        Transfer GPA     Transfer GPA                    Yes

Field: SSR_FAWI_GRADE_PTS	
	Field Type	Num	
	Length	10	
	Decimal Positions	3	
	Format	UpperCase	
	Family Name	 	
	Display Name	 	
	Owner ID	

Label ID            Short Name       Long Name                       Def
SSR_FAWI_GRADE_PTS  Grade Points     Transfer Grade Points           Yes

Field: SSR_FAWI_INCL	
	Field Type	Char	
	Length	1	
	Format	UpperCase	
	Family Name	 	
	Display Name	 	
	Owner ID	

Label ID            Short Name       Long Name                       Def
SSR_FAWI_INCL       Incl in FA WI    Include in FA WI Stats          Yes
SSR_FAWI_STATS      FA WI Stats      FA Weeks of Instruction Stats

Field: SSR_FAWI_PSD	
	Field Type	Num	
	Length	9	
	Decimal Positions	3	
	Format	UpperCase	
	Family Name	 	
	Display Name	 	
	Owner ID	

Label ID            Short Name       Long Name                       Def
SSR_FAWI_PSD        Units            Units Transferred               Yes

Field: SSR_FAWI_PSD_GPA	
	Field Type	Num	
	Length	9	
	Decimal Positions	3	
	Format	UpperCase	
	Family Name	 	
	Display Name	 	
	Owner ID	

Label ID            Short Name       Long Name                       Def
SSR_FAWI_PSD_GPA    Passed, for GPA  Transfer Passed for GPA         Yes

Field: SSR_FAWI_PSD_NOGPA	
	Field Type	Num	
	Length	9	
	Decimal Positions	3	
	Format	UpperCase	
	Family Name	 	
	Display Name	 	
	Owner ID	

Label ID            Short Name       Long Name                       Def
SSR_FAWI_PSD_NOGPA  Passed, No GPA   Transfer Passed Not for GPA     Yes

Field: SSR_FAWI_TKN	
	Field Type	Num	
	Length	6	
	Decimal Positions	2	
	Format	UpperCase	
	Family Name	 	
	Display Name	 	
	Owner ID	

Label ID            Short Name       Long Name                       Def
SSR_FAWI_TKN        Units            Units Taken                     Yes

Field: SSR_FAWI_TKN_GPA	
	Field Type	Num	
	Length	9	
	Decimal Positions	3	
	Format	UpperCase	
	Family Name	 	
	Display Name	 	
	Owner ID	

Label ID            Short Name       Long Name                       Def
SSR_FAWI_TKN_GPA    Taken, for GPA   Transfer Taken for GPA          Yes

Field: SSR_FAWI_TKN_NOGPA	
	Field Type	Num	
	Length	9	
	Decimal Positions	3	
	Format	UpperCase	
	Family Name	 	
	Display Name	 	
	Owner ID	

Label ID            Short Name       Long Name                       Def
SSR_FAWI_TKN_NOGPA  Taken, No GPA    Transfer Taken Not for GPA      Yes

Translate Value Detail

Translate Value: FEDERAL_ID (TCH)	ENG	1900-01-01
	Field Name	FEDERAL_ID	
	Value	TCH	
	EffDt	1900-01-01	
	Status	Active	
	Long Name	TEACH Grant	
	Short Name	TEACH	

Page Detail

Page: AGGR_AREA_FISCL (ENG)
	Description	Fiscal Summary by Aggregate	 
	Type	Standard Page
	Allow Deferred Proc.	Yes
	Owner ID	SFA
	Comments	
		Fiscal Summary by Aggregate Area

Type     ID    Lvl Record          Field              Label               Attributes
Label    1     0                                      [#14402,41]
EditBox  2     0   AGGR_AREA_VW    SETID              +SETID              Gray CtrlFld
EditBox  3     0   AGGR_AREA_VW    AGGREGATE_AREA     +AGGREGATE_AREA     Gray CtrlFld
EditBox  4     0   AGGR_AREA_VW    DESCR              [None ]             Gray
ScrArea  .5    1                                      [None ]             Lvl 1 #1
EditBox  .6    1   AGGR_AREA_VW    AID_YEAR           +AID_YEAR           Gray CtrlFld
EditBox  .7    1   FED_AID_YR_TBL  DESCR              [None ]             Gray Related:6
HorRule  .8    1                                      [None ]
Label    .9    1                                      'DISBURSEMENTS'
Label    .10   1                                      'MAX TO OFFER'
Label    .11   1                                      'MAX TO ACCEPT'
HorRule  .12   1                                      [None ]
HorRule  .13   1                                      [None ]
EditBox  .14   1   AGGR_AREA_VW    AGGR_MAX_DSB_BUDGT +AGGR_MAX_DSB_BUDGT Gray Zero Currency Commas
EditBox  .15   1   AGGR_AREA_VW    AGGR_MAX_OFR_BUD   +AGGR_MAX_OFR_BUD   Gray Zero Currency Commas
EditBox  .16   1   AGGR_AREA_VW    AGGR_MAX_ACC_BUDGT [None ]             Gray Zero Currency Commas
EditBox  .17   1   AGGR_AREA_VW    AGGR_NET_DSB_PAID  +AGGR_NET_DSB_PAID  Gray Zero Currency Commas
EditBox  .18   1   AGGR_AREA_VW    AGGR_OFR_GROSS     +AGGR_OFR_GROSS     Gray Zero Currency Commas
EditBox  .19   1   AGGR_AREA_VW    AGGR_ACC_GROSS     [None ]             Gray Zero Currency Commas
EditBox  .20   1   AGGR_AREA_VW    AGGR_OFR_REDUCTN   +AGGR_OFR_REDUCTN   Gray Zero Currency Commas
EditBox  .21   1   AGGR_AREA_VW    AGGR_ACC_REDUCTN   [None ]             Gray Zero Currency Commas
EditBox  .22   1   AGGR_AREA_VW    AGGR_OFR_NET       +AGGR_OFR_NET       Gray Zero Currency Commas
EditBox  .23   1   AGGR_AREA_VW    AGGR_ACC_NET       [None ]             Gray Zero Currency Commas
EditBox  .24   1   AGGR_AREA_VW    AGGR_OFR_AVAILABLE +AGGR_OFR_AVAILABLE Gray Zero Currency Commas
EditBox  .25   1   AGGR_AREA_VW    AGGR_ACC_AVAILABLE [None ]             Gray Zero Currency Commas
EditBox  .26   1   AGGR_AREA_VW    OFFERED_NET_COUNT  +OFFERED_NET_COUNT  Gray Zero
EditBox  .27   1   AGGR_AREA_VW    ACCEPTED_NET_COUNT [None ]             Gray Zero
HorRule  .28   1                                      [None ]
HorRule  .29   1                                      [None ]
Label    .30   1                                      'AUTHORIZED'
Label    .31   1                                      'CANCELLED'
Label    .32   1                                      'DECLINED'
EditBox  .33   1   AGGR_AREA_VW    AGGR_MAX_ATH_BUDGT -AGGR_MAX_ATH_BUDGT Gray Zero Currency Commas
EditBox  .34   1   AGGR_AREA_VW    AGGR_CANCELLED_AMT +AGGR_CANCELLED_AMT Gray Zero Currency Commas
EditBox  .35   1   AGGR_AREA_VW    AGGR_DECLINED_AMTS [None ]             Gray Zero Currency Commas
EditBox  .36   1   AGGR_AREA_VW    AGGR_NET_ATH_AMT   -AGGR_NET_ATH_AMT   Gray Zero Currency Commas
EditBox  .37   1   AGGR_AREA_VW    CANCELLED_COUNT    +CANCELLED_COUNT    Gray Zero
EditBox  .38   1   AGGR_AREA_VW    DECLINED_COUNT     [None ]             Gray Zero
HorRule  .39   1                                      [None ]
HorRule  .40   1                                      [None ]
EditBox  .41   1   AGGR_AREA_VW    AGGR_POTENTIAL_DSB 'Potential
Payments Gray Zero Currency Commas
EditBox  .41   1   AGGR_AREA_VW    AGGR_POTENTIAL_DSB 'Potential Payments Gray Zero Currency Commas

Page: INAS_FED_EXT09_SEC (ENG)
	Description	 	
	Type	Secondary Page	
	Allow Deferred Proc.	No	
	Owner ID	SFAN	

Type     ID    Lvl Record          Field              Label               Attributes
ScrBar   .1    1                                      [None ]             Lvl 1 #1 noUpd Hide
EditBox  .2    1   INAS_LCL_PLCY   INSTITUTION        [None ]             Hide
EditBox  .3    1   INAS_LCL_PLCY   AID_YEAR           [None ]             Hide
EditBox  .4    1   INAS_LCL_PLCY   INAS_RULE_SET      [None ]             Hide
ScrBar   .5    1                                      [None ]             Lvl 1 #1 Hide
EditBox  .6    1   INAS_PROF_EXT   INAS_RULE_SET      [None ]             Hide
ScrBar   .7    1                                      [None ]             Lvl 1 #1 noDefrr Hide
HorRule  .8    1                                      [None ]
Label    .9    1                                      [#14404,266]
ComboBox .10   1   INAS_FED_EXT    INAS_RULE_SET      +INAS_RULE_SET      XLatShort
ComboBox .11   1   INAS_FED_EXT    INAS_CALC_TYPE     +INAS_CALC_TYPE     XLatShort
ComboBox .12   1   INAS_FED_EXT    INAS_DATA_TYPE     +INAS_DATA_TYPE     XLatShort
ComboBox .13   1   INAS_FED_EXT    DEPENDENCY_OVERIDE +DEPENDENCY_OVERIDE XLatShort
CheckBox .14   1   INAS_FED_EXT    CALC_PC_FOR_IND    +CALC_PC_FOR_IND    On:Y Off:N
Label    .15   1                                      [#14404,208]
Label    .16   1                                      [#14404,209]
Label    .17   1                                      [#14404,258]
PushBtn  .18   1   INAS_FED_EXT                       ''                  ImgBtn->Scroll
CheckBox .19   1   INAS_FED_EXT    CALC_FED_TAX_S_FM  [None ]             On:Y Off:N
CheckBox .20   1   INAS_FED_EXT    CALC_FED_TAX_P_FM  [None ]             On:Y Off:N
Label    .21   1                                      [#14404,223]
EditBox  .22   1   INAS_FED_EXT    ALWNC_TUIT_S       +ALWNC_TUIT_S
EditBox  .23   1   INAS_FED_EXT    ALWNC_TUIT_P       [None ]
EditBox  .24   1   INAS_FED_EXT    ALWNC_MED_DENT_S   +ALWNC_MED_DENT_S
EditBox  .25   1   INAS_FED_EXT    ALWNC_MED_DENT_P   [None ]
EditBox  .26   1   INAS_FED_EXT    ALWNC_OTHER_S      +ALWNC_OTHER_S
EditBox  .27   1   INAS_FED_EXT    ALWNC_OTHER_P      [None ]
EditBox  .28   1   INAS_FED_EXT    ASSET_ALWNC_S      +ASSET_ALWNC_S
EditBox  .29   1   INAS_FED_EXT    ASSET_ALWNC_P      [None ]
HorRule  .30   1                                      [None ]
Label    .31   1                                      [#14404,264]
EditBox  .32   1   INAS_FED_EXT    ASSET_OTHER        -ASSET_OTHER
EditBox  .33   1   INAS_FED_EXT    ASSET_OTHER_P      [None ]
PushBtn  .34   1   INAS_FED_EXT    BUDGET_DURATION    'Budget Durations'  HypLink->SecPage INAS_FEDEX_DUR_SEC enableOnDispOnly
SecPage  .35   1                                      'Budget Duration Hy -> INAS_FEDEX_DUR_SEC Hide
PushBtn  .36   1   INAS_FED_EXT    AID_YEAR           'EFC Proration Opti HypLink->SecPage INAS_FEDEX_PRO_SEC enableOnDispOnly
SecPage  .37   1                                      ''                  -> INAS_FEDEX_PRO_SEC noDefrr Hide
PushBtn  .38   1   INAS_FED_EXT    AID_YEAR           'Override Federal E HypLink->SecPage INAS_FEDEX_EFC_SEC enableOnDispOnly
SecPage  .39   1                                      ''                  -> INAS_FEDEX_EFC_SEC noDefrr Hide
HorRule  .40   1                                      [None ]
Label    .41   1                                      'Assumption Overrid
ComboBox .42   1   INAS_FED_EXT    PAR_NO_CLG_OVRRD   +PAR_NO_CLGOVRD_LBL XLatShort
HorRule  .43   1                                      [None ]
Label    .44   1                                      'Reject Overrides'
ComboBox .45   1   INAS_FED_EXT    SSN_NONM_REJ_OVR   +SSN_NO_NM_OVRD     XLatShort
ComboBox .46   1   INAS_FED_EXT    SSN_D_NONM_REJ_OVR +SSN_D_NONM_OVRD    XLatShort
ComboBox .47   1   INAS_FED_EXT    SSN_M_NONM_REJ_OVR +SSN_M_NONM_OVRD    XLatShort
ComboBox .48   1   INAS_FED_EXT    SSN_NO_DOB_REJ_OVR +SSN_NO_DOB_OVRD    XLatShort
ComboBox .49   1   INAS_FED_EXT    SSN_D_NAME_REJ_OVR +SSN_D_NODOB_REJOVR XLatShort
ComboBox .50   1   INAS_FED_EXT    SSN_M_NAME_REJ_OVR +SSN_M_NODOB_REJOVR XLatShort

Page: INAS_SIM_FEDEX_S09 (ENG)
	Description	 	
	Type	Secondary Page	
	Allow Deferred Proc.	Yes	
	Owner ID	SFAN	

Type     ID    Lvl Record          Field              Label               Attributes
ScrBar   .1    1                                      [None ]             Lvl 1 #1 noUpd Hide
EditBox  .2    1   INAS_LCL_PLCY   INSTITUTION        [None ]             Hide
EditBox  .3    1   INAS_LCL_PLCY   AID_YEAR           [None ]             Hide
EditBox  .4    1   INAS_LCL_PLCY   INAS_RULE_SET      [None ]             Hide
ScrBar   .5    1                                      [None ]             Lvl 1 #1 noUpd Hide
EditBox  .6    1   INAS_FED_EXT    INAS_RULE_SET      [None ]             Hide
EditBox  .7    1   INAS_FED_EXT    INSTITUTION        [None ]             Hide
EditBox  .8    1   INAS_FED_EXT    AID_YEAR           [None ]             Hide
ScrBar   .9    1                                      [None ]             Lvl 1 #1 Hide
Label    .10   1                                      'INAS Simulation'
Label    .11   1                                      [#14400,329]
ComboBox .12   1   INAS_SIM_FEDEX  INAS_RULE_SET      +INAS_RULE_SET      XLatShort
ComboBox .13   1   INAS_SIM_FEDEX  INAS_CALC_TYPE     +INAS_CALC_TYPE     XLatShort
ComboBox .14   1   INAS_SIM_FEDEX  INAS_DATA_TYPE     +INAS_DATA_TYPE     XLatShort
ComboBox .15   1   INAS_SIM_FEDEX  DEPENDENCY_OVERIDE +DEPENDENCY_OVERIDE XLatShort
EditBox  .16   1   INAS_SIM_FEDEX  ADJ_EFC_AMT        +ADJ_EFC_AMT        Hide Zero
HorRule  .17   1                                      [None ]
CheckBox .18   1   INAS_SIM_FEDEX  CALC_PC_FOR_IND    +CALC_PC_FOR_INDEP  On:Y Off:N
Label    .19   1                                      [#14404,264]
PushBtn  .20   1   INAS_SIM_FEDEX  BUDGET_DURATION    'Budget Durations'  HypLink->SecPage INAS_SIMEX_DUR_SEC
SecPage  .21   1                                      [Image]             -> INAS_SIMEX_DUR_SEC Hide
PushBtn  .22   1   INAS_SIM_FEDEX  AID_YEAR           'EFC Proration Opti HypLink->SecPage INAS_SIMEX_PRO_SEC
Label    .23   1                                      'STUDENT'
Label    .24   1                                      'PARENT'
Label    .25   1                                      [#14404,266]
Label    .26   1                                      [#14404,258]
Label    .27   1                                      'Calculate Federal
CheckBox .28   1   INAS_SIM_FEDEX  CALC_FED_TAX_S_FM  [None ]             On:Y Off:N
CheckBox .29   1   INAS_SIM_FEDEX  CALC_FED_TAX_P_FM  [None ]             On:Y Off:N
EditBox  .30   1   INAS_SIM_FEDEX  ALWNC_TUIT_S       +ALWNC_TUIT_S
EditBox  .31   1   INAS_SIM_FEDEX  ALWNC_TUIT_P       [None ]
EditBox  .32   1   INAS_SIM_FEDEX  ALWNC_MED_DENT_S   +ALWNC_MED_DENT_S
EditBox  .33   1   INAS_SIM_FEDEX  ALWNC_MED_DENT_P   [None ]
EditBox  .34   1   INAS_SIM_FEDEX  ALWNC_OTHER_S      +ALWNC_OTHER_S
EditBox  .35   1   INAS_SIM_FEDEX  ALWNC_OTHER_P      [None ]
EditBox  .36   1   INAS_SIM_FEDEX  ASSET_ALWNC_S      +ASSET_ALWNC_S
EditBox  .37   1   INAS_SIM_FEDEX  ASSET_ALWNC_P      [None ]
EditBox  .38   1   INAS_SIM_FEDEX  ASSET_OTHER        -ASSET_OTHER
EditBox  .39   1   INAS_SIM_FEDEX  ASSET_OTHER_P      [None ]
PushBtn  .40   1   INAS_SIM_FEDEX                     ''                  ImgBtn->Scroll
SecPage  .41   1                                      [None ]             -> INAS_SIMEX_EFC_SEC noDefrr Hide
PushBtn  .42   1   INAS_SIM_FEDEX  AID_YEAR           'Override Federal E HypLink->SecPage INAS_SIMEX_EFC_SEC
HorRule  .43   1                                      [None ]
Label    .44   1                                      'Assumption Overrid
ComboBox .45   1   INAS_SIM_FEDEX  PAR_NO_CLG_OVRRD   +PAR_NO_CLGOVRD_LBL XLatShort
SecPage  .46   1                                      ''                  -> INAS_SIMEX_PRO_SEC noDefrr Hide
HorRule  .47   1                                      [None ]
Label    .48   1                                      'Reject Overrides'
ComboBox .49   1   INAS_SIM_FEDEX  SSN_NO_DOB_REJ_OVR +SSN_NO_DOB_OVRD    XLatShort
ComboBox .50   1   INAS_SIM_FEDEX  SSN_D_NAME_REJ_OVR +SSN_D_NODOB_REJOVR XLatShort
ComboBox .51   1   INAS_SIM_FEDEX  SSN_M_NAME_REJ_OVR +SSN_M_NODOB_REJOVR XLatShort
ComboBox .52   1   INAS_SIM_FEDEX  SSN_NONM_REJ_OVR   +SSN_NO_NM_OVRD     XLatShort
ComboBox .53   1   INAS_SIM_FEDEX  SSN_D_NONM_REJ_OVR +SSN_D_NONM_OVRD    XLatShort
ComboBox .54   1   INAS_SIM_FEDEX  SSN_M_NONM_REJ_OVR +SSN_M_NONM_OVRD    XLatShort

Page: INAS_SIM_OVRD_09 (ENG)
	Description	 	
	Type	Standard Page	
	Allow Deferred Proc.	Yes	
	Owner ID	SFAN	

Type     ID    Lvl Record          Field              Label               Attributes
SubPage  1     0   STDNT_AID_SRCH                     ''                  -> STDNT_AID_SRCH_SBP
HorRule  2     0                                      [None ]
EditBox  3     0   DERIVED_SA      FED_EFC            -FED_EFC            Hide Zero noPrompt Commas
EditBox  4     0   DERIVED_SA      INST_EFC           -INST_EFC           Hide Zero noPrompt Commas
SecPage  5     0                                      [Image]             -> NEED_INAS_SIM_SEC Hide
PushBtn  6     0   DERIVED_SA      NEED_SUMRY_PB      'Need Summary'      HypLink->PCode
SecPage  7     0                                      [None ]             -> INAS_SIM_FEDEX_S02 Hide
SecPage  8     0                                      [None ]             -> INAS_SIM_FEDEX_S04 noDefrr Hide
SecPage  9     0                                      [None ]             -> INAS_SIM_FEDEX_S06 noDefrr Hide
PushBtn  10    0   DERIVED_SA      FEDERAL_EXT_PB     'Federal Extension' HypLink->PCode enableOnDispOnly
ScrBar   .11   1                                      [None ]             Lvl 1 #1 noInsDel Hide
EditBox  .12   1   INAS_SIM_COMP   AID_YEAR           [None ]             Hide noPrompt
GroupBox .13   1   DERIVED_SA                         'ASSUMPTION OVERRID
EditBox  .14   1   INAS_SIM_COMP   FORMULA_TYPE       +FORMULA_TYPE       Gray CtrlFld
EditBox  .15   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:14
EditBox  .16   1   INAS_SIM_COMP   PRIMARY_EFC        +PRIMARY_EFC        Gray Zero Commas
SecPage  .17   1                                      [None ]             -> INAS_SIM_EFC_SEC noDefrr Hide
PushBtn  .18   1   INAS_SIM_COMP   PRM_ALT_MONTH_1    [#14402,65]         HypLink->SecPage INAS_SIM_EFC_SEC enableOnDispOnly
EditBox  .19   1   INAS_SIM_COMP   PRORATED_EFC       +PRORATED_EFC       Gray Zero Commas
HorRule  .20   1                                      [None ]
ScrBar   .21   1                                      [None ]             Lvl 1 #1 noInsDel Hide
EditBox  .22   1   INAS_SIM_AUDIT  AID_YEAR           [None ]             Hide noPrompt
ScrBar   .23   1                                      [None ]             Lvl 1 #1 noInsDel Hide
GroupBox .24   1   DERIVED_SA                         'STATUS OVERRIDES'
EditBox  .25   1   INAS_SIM_INT    DEPNDNCY_OVERRIDE  +DEPNDNCY_OVRD      CtrlFld
EditBox  .26   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:25
EditBox  .27   1   INAS_SIM_INT    CORRECTION_STATUS  +CORRECTION_STATUS  CtrlFld
EditBox  .28   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:27
EditBox  .29   1   INAS_SIM_INT    ASMPTN_OVR_COL_P   +ASMPTN_OVR_COLL_P  CtrlFld
EditBox  .30   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:29
EditBox  .31   1   INAS_SIM_INT    ASMPTN_OVR_AGI_P   +ASMPTN_OVR_AGI_P   CtrlFld
EditBox  .32   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:31
EditBox  .33   1   INAS_SIM_INT    ASMPTN_OVR_WS3_P   +ASMPTN_OVR_WS3_PAR CtrlFld
EditBox  .34   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:33
EditBox  .35   1   INAS_SIM_INT    ASMPTN_OVR_COL_S   +ASMPTN_OVR_COLL_S  CtrlFld
EditBox  .36   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:35
EditBox  .37   1   INAS_SIM_INT    ASMPTN_OVR_AGI_S   +ASMPTN_OVR_AGI_S   CtrlFld
EditBox  .38   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:37
EditBox  .39   1   INAS_SIM_INT    ASMPTN_OVR_WS3_S   +ASMPTN_OVR_WKC_STU CtrlFld
EditBox  .40   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:39
GroupBox .41   1   DERIVED_SA                         'REJECT OVERRIDES'
EditBox  .42   1   INAS_SIM_INT    REJ_OVR_BIRTH_YEAR +REJECTOVERRIDEA    CtrlFld
EditBox  .43   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:42
EditBox  .44   1   INAS_SIM_INT    REJ_OVR_IND_STDNT  'Reject Override B' CtrlFld
EditBox  .45   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:44
EditBox  .46   1   INAS_SIM_INT    REJ_OVR_TAX_RANGE  +REJECTOVERRIDEC    CtrlFld
EditBox  .47   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:46
EditBox  .48   1   INAS_SIM_INT    REJ_OVR_TAXRNG_DEP +REJECTOVERRIDEG    CtrlFld
EditBox  .49   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:48
EditBox  .50   1   INAS_SIM_INT    REJ_OVR_STDNT_NAME 'Reject Override N' CtrlFld
EditBox  .51   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:50
EditBox  .52   1   INAS_SIM_INT    SFA_REJ_OVR_DADSSN +SFA_REJ_OVR_DADSSN CtrlFld
EditBox  .53   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:52
EditBox  .54   1   INAS_SIM_INT    SFA_REJ_OVR_MOMSSN +SFA_REJ_OVR_MOMSSN CtrlFld
EditBox  .55   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:54
EditBox  .56   1   INAS_SIM_INT    REJ_OVR_BIG_FAMILY 'Reject Override W' CtrlFld
EditBox  .57   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:56
EditBox  .58   1   INAS_SIM_INT    SFA_REJ_OVR_TX_STU +SFA_REJ_OVR_TX_STU CtrlFld
EditBox  .59   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:58
EditBox  .60   1   INAS_SIM_INT    SFA_REJ_OVR_MR_STU +SFA_REJ_OVR_MR_STU CtrlFld
EditBox  .61   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:60
EditBox  .62   1   INAS_SIM_INT    SFA_REJ_OVR_TX_PAR +SFA_REJ_OVR_TX_PAR CtrlFld
EditBox  .63   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:62
EditBox  .64   1   INAS_SIM_INT    SFA_REJ_OVR_NO_TAX +SFA_REJ_OVR_NO_TAX CtrlFld
EditBox  .65   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:64
ScrBar   .66   1                                      [None ]             Lvl 1 #1 noDel Hide
PushBtn  .67   1   ISIR_CONTROL    INAS_RFC_CALL      -INAS_RFC_LBL       PushBtn->PCode
ScrBar   ..68  2                                      [None ]             Lvl 2 #1 noInsDel Hide
EditBox  ..69  2   ISIR_INTERPRET  AID_YEAR           [None ]             Hide noPrompt Century
ScrBar   ..70  2                                      [None ]             Lvl 2 #1 noInsDel Hide
EditBox  ..71  2   ISIR_COMPUTED   AID_YEAR           [None ]             Hide noPrompt
ScrBar   ..72  2                                      [None ]             Lvl 2 #1 noInsDel Hide
EditBox  ..73  2   ISIR_STUDENT    AID_YEAR           [None ]             Hide noPrompt
PushBtn  ..74  2   DERIVED_SA      INAS_SIM_F_PB      'Get Federal Data'  PushBtn->PCode
PushBtn  ..75  2   DERIVED_SA      INAS_SIM_USE_PB    +INAS_SIM_USE_PB    PushBtn->PCode

Page: INAS_SIM_STU1_09 (ENG)
	Description	INAS Simulation Student	
	Type	Standard Page	
	Allow Deferred Proc.	Yes	
	Owner ID	SFAN	

Type     ID    Lvl Record          Field              Label               Attributes
SubPage  1     0   STDNT_AID_SRCH                     'SubPanel'          -> STDNT_AID_SRCH_SBP
HorRule  2     0                                      [None ]
EditBox  3     0   DERIVED_SA_INAS NEED_INAS_CALC_IND [None ]             Hide noPrompt
EditBox  4     0   DERIVED_SA      ISIR_EDIT_CNTR     [None ]             Hide noPrompt
EditBox  5     0   DERIVED_SA      FED_EFC            -FED_EFC            Hide Zero noPrompt Commas
EditBox  6     0   DERIVED_SA      INST_EFC           -INST_EFC           Hide Zero noPrompt Commas
SecPage  7     0                                      [Image]             -> NEED_INAS_SIM_SEC Hide
PushBtn  8     0   DERIVED_SA      NEED_SUMRY_PB      'Need Summary'      HypLink->PCode
SecPage  9     0                                      [None ]             -> INAS_SIM_FEDEX_S02 Hide
SecPage  10    0                                      'SIM EXT 04'        -> INAS_SIM_FEDEX_S04 noDefrr Hide
SecPage  11    0                                      [None ]             -> INAS_SIM_FEDEX_S06 noDefrr Hide
PushBtn  12    0   DERIVED_SA      FEDERAL_EXT_PB     'Federal Extension' HypLink->PCode enableOnDispOnly
ScrBar   .13   1                                      [None ]             Lvl 1 #1 noInsDel Hide
EditBox  .14   1   INAS_SIM_AUDIT  AID_YEAR           [None ]             Hide noPrompt
ScrBar   .15   1                                      [None ]             Lvl 1 #1 noInsDel Hide
EditBox  .16   1   INAS_SIM_COMP   FORMULA_TYPE       +FORMULA_TYPE       Gray CtrlFld
EditBox  .17   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:16
EditBox  .18   1   INAS_SIM_COMP   PRIMARY_EFC        +PRIMARY_EFC        Gray Zero Commas
EditBox  .19   1   INAS_SIM_COMP   PRORATED_EFC       +PRORATED_EFC       Gray Zero Commas
SecPage  .20   1                                      [None ]             -> INAS_SIM_EFC_SEC noDefrr Hide
PushBtn  .21   1   INAS_SIM_COMP   PRM_ALT_MONTH_1    [#14402,65]         HypLink->SecPage INAS_SIM_EFC_SEC enableOnDispOnly
ScrBar   .22   1                                      [None ]             Lvl 1 #1 noInsDel Hide
HorRule  .23   1                                      [None ]
ComboBox .24   1   INAS_SIM_STU    MARRIED            -MARRIED            XLatShort
ComboBox .25   1   DERIVED_SA_STU  MARITAL_STAT_STU00 -MARITAL_STAT_STU00 XLatShort
EditBox  .26   1   INAS_SIM_STU    MAR_STATUS_DT      +MAR_STATUS_DT      Century
ComboBox .27   1   INAS_SIM_STU    STATE_RESIDENCE    -LGL_ST_RESIDENCE   Prompt: STATE
EditBox  .28   1   INAS_SIM_STU    RESIDENCY_DT       -LGL_RES_DATE       Century
EditBox  .29   1   INAS_SIM_STU    NUM_FAMILY_MEMBERS -NUM_FAMILY_MEMBERS Zero noPrompt
EditBox  .30   1   INAS_SIM_STU    NUMBER_IN_COLLEGE  -NUMBER_IN_COLLEGE  Zero noPrompt
EditBox  .31   1   INAS_SIM_STU    NUMBER_EXEMPTIONS  -NUMBER_EXEMPTIONS
CheckBox .32   1   INAS_SIM_STU    BLANK_AGI          [None ]             On:Y Off:N Hide
EditBox  .33   1   INAS_SIM_STU    AGI                -AGI                Hide Zero noPrompt Commas
EditBox  .34   1   DERIVED_SA_STU  CHAR_AGI           [None ]             Zero
CheckBox .35   1   INAS_SIM_STU    BLANK_TAXES_PAID   [None ]             On:Y Off:N Hide
EditBox  .36   1   INAS_SIM_STU    TAXES_PAID         +TAXES_PAID         Hide Zero noPrompt Commas
EditBox  .37   1   DERIVED_SA_STU  CHAR_TAXES_PAID    [None ]
CheckBox .38   1   INAS_SIM_STU    BLANK_STD_EARN_INC [None ]             On:Y Off:N Hide
EditBox  .39   1   INAS_SIM_STU    STD_EARNED_INCOME  +STD_EARNED_INC_LBL Hide Zero noPrompt Commas
EditBox  .40   1   DERIVED_SA_STU  CHAR_STD_EARN_INC  [None ]
CheckBox .41   1   INAS_SIM_STU    BLANK_SPS_EARN_INC [None ]             On:Y Off:N Hide
EditBox  .42   1   INAS_SIM_STU    SPS_EARNED_INCOME  +SPS_EARNDED_INC_LB Hide Zero noPrompt Commas
EditBox  .43   1   DERIVED_SA_STU  CHAR_SPS_EARN_INC  [None ]
EditBox  .44   1   DERIVED_FA_LBL  LGL_RES_PRI02_LBL  -LGL_RES_PRI02_LBL  Hide
ComboBox .45   1   INAS_SIM_STU    LEGAL_RES_PRIOR    [None ]             XLatShort
ComboBox .46   1   INAS_SIM_STU    TAX_RETURN_FILED   -TAX_RETURN_FILED   XLatShort
EditBox  .47   1   INAS_SIM_STU    MARITAL_STAT       [None ]             Hide
ComboBox .48   1   INAS_SIM_STU    TAX_FORM_FILED00   -TAX_FORM_FILED00   XLatShort
ComboBox .49   1   DERIVED_SA_STU  ELIG_FOR_1040AEZ02 -ELIG_FOR_1040AEZ02 XLatShort
EditBox  .50   1   INAS_SIM_STU    ELIG_FOR_1040A_EZ  [None ]             Hide
ComboBox .51   1   INAS_SIM_STU    SFA_STDNT_GENDER   -SFA_STDNT_GENDER   XLatShort
EditBox  .52   1   INAS_SIM_STU    BLANK_CASH_SAV     [None ]             Hide
EditBox  .53   1   INAS_SIM_STU    CASH_SAVINGS       -CASH_SAVINGS       Hide Zero noPrompt Commas
EditBox  .54   1   DERIVED_SA_STU  CHAR_CASH_SAV      [None ]
CheckBox .55   1   INAS_SIM_STU    BLANK_INV_NET_WRTH [None ]             On:Y Off:N Hide
EditBox  .56   1   INAS_SIM_STU    INV_NET_WORTH      -INV_NET_WORTH      Hide Zero noPrompt Commas
EditBox  .57   1   DERIVED_SA_STU  CHAR_INV_NET_WORTH [None ]
EditBox  .58   1   INAS_SIM_STU    BUS_NET_WORTH      -BUS_NET_WORTH      Zero noPrompt Commas
CheckBox .59   1   INAS_SIM_STU    BLANK_TOT_FROM_WKA [None ]             On:Y Off:N Hide
EditBox  .60   1   INAS_SIM_STU    TOTAL_FROM_WKA     'Worksheet A'       Hide Zero noPrompt Commas
EditBox  .61   1   DERIVED_SA_STU  CHAR_TOT_FROM_WKA  [None ]
CheckBox .62   1   INAS_SIM_STU    BLANK_TOT_FROM_WS3 [None ]             On:Y Off:N Hide
EditBox  .63   1   INAS_SIM_STU    TOTAL_FROM_WS3     'Worksheet B'       Hide Zero noPrompt Commas
EditBox  .64   1   DERIVED_SA_STU  CHAR_TOT_FROM_WS3  [None ]
EditBox  .65   1   INAS_SIM_STU    TOTAL_FROM_WKC     'Worksheet C'       Zero noPrompt Commas
ScrBar   .66   1                                      [None ]             Lvl 1 #1 noDel Hide
PushBtn  .67   1   ISIR_CONTROL    INAS_RFC_CALL      -INAS_RFC_LBL       PushBtn->PCode
ScrBar   ..68  2                                      [None ]             Lvl 2 #1 noInsDel Hide
EditBox  ..69  2   ISIR_STUDENT    AID_YEAR           [None ]             Hide noPrompt
PushBtn  ..70  2   DERIVED_SA      INAS_SIM_F_PB      'Get Federal Data'  PushBtn->PCode
PushBtn  ..71  2   DERIVED_SA      INAS_SIM_USE_PB    +INAS_SIM_USE_PB    PushBtn->PCode

Page: INAS_SIM_STU2_08 (ENG)
	Description	Sim	 
	Type	Standard Page
	Allow Deferred Proc.	Yes
	Owner ID	SFAN

Type     ID    Lvl Record          Field              Label               Attributes
SubPage  1     0   STDNT_AID_SRCH                     ''                  -> STDNT_AID_SRCH_SBP
HorRule  2     0                                      [None ]
EditBox  3     0   DERIVED_SA      FED_EFC            -FED_EFC            Hide Zero noPrompt Commas
EditBox  4     0   DERIVED_SA      INST_EFC           -INST_EFC           Hide Zero noPrompt Commas
SecPage  5     0                                      [Image]             -> NEED_INAS_SIM_SEC Hide
PushBtn  6     0   DERIVED_SA      NEED_SUMRY_PB      'Need Summary'      HypLink->PCode
SecPage  7     0                                      [None ]             -> INAS_SIM_FEDEX_S02 Hide
SecPage  8     0                                      [None ]             -> INAS_SIM_FEDEX_S04 noDefrr Hide
SecPage  9     0                                      [None ]             -> INAS_SIM_FEDEX_S05 noDefrr Hide
SecPage  10    0                                      [None ]             -> INAS_FED_EXT06_SEC noDefrr Hide
PushBtn  11    0   DERIVED_SA      FEDERAL_EXT_PB     'Federal Extension' HypLink->PCode enableOnDispOnly
ScrBar   .12   1                                      [None ]             Lvl 1 #1 noInsDel Hide
EditBox  .13   1   INAS_SIM_AUDIT  AID_YEAR           [None ]             Hide noPrompt
ScrBar   .14   1                                      [None ]             Lvl 1 #1 noInsDel Hide
EditBox  .15   1   INAS_SIM_COMP   FORMULA_TYPE       +FORMULA_TYPE       Gray CtrlFld
EditBox  .16   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:15
EditBox  .17   1   INAS_SIM_COMP   PRIMARY_EFC        +PRIMARY_EFC        Gray Zero Commas
SecPage  .18   1                                      [None ]             -> INAS_SIM_EFC_SEC noDefrr Hide
PushBtn  .19   1   INAS_SIM_COMP   PRM_ALT_MONTH_1    [#14402,65]         HypLink->SecPage INAS_SIM_EFC_SEC enableOnDispOnly
EditBox  .20   1   INAS_SIM_COMP   PRORATED_EFC       +PRORATED_EFC       Gray Zero Commas
HorRule  .21   1                                      [None ]
ScrBar   .22   1                                      [None ]             Lvl 1 #1 noInsDel Hide
EditBox  .23   1   INAS_SIM_STU    DEPNDNCY_STAT      +DEPNDNCY_STAT      Hide CtrlFld
EditBox  .24   1   XLATTABLE       XLATLONGNAME       [None ]             Gray Related:23
EditBox  .25   1   INAS_SIM_STU    NUM_MONTH_VET_BEN  +NUM_MONTH_VET_BEN
EditBox  .26   1   INAS_SIM_STU    MONTHLY_VET_BEN    +VA_BEN_AMT         Zero Commas
ComboBox .27   1   DERIVED_SA_STU  CURRENT_GRADE_02   -CURR_GRADE_LVL     XLatShort
EditBox  .28   1   INAS_SIM_STU    DEPENDENTS         -DEPENDENTS         CtrlFld
EditBox  .29   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:28
EditBox  .30   1   INAS_SIM_STU    ORPHAN             -ORPHAN             CtrlFld
EditBox  .31   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:30
EditBox  .32   1   INAS_SIM_STU    CHILDREN           -CHILDREN           CtrlFld
EditBox  .33   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:32
EditBox  .34   1   DERIVED_FA_LBL  DOB_PRIOR_LBL      -BORN_B4_1980       Hide
EditBox  .35   1   INAS_SIM_STU    DOB_PRIOR          [None ]             CtrlFld
EditBox  .36   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:35
EditBox  .37   1   INAS_SIM_STU    VETERAN            -VETERAN            CtrlFld
EditBox  .38   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:37
EditBox  .39   1   INAS_SIM_STU    SFA_ACTIVE_DUTY    -ACTIVE_DUTY        CtrlFld
EditBox  .40   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:39
EditBox  .41   1   INAS_SIM_STU    GRADUATE_STUDENT   +GRADUATE_STDNT     CtrlFld
EditBox  .42   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:41
EditBox  .43   1   INAS_SIM_STU    CURRENT_GRADE_LVL  [None ]             Hide
EditBox  .44   1   INAS_SIM_STU    SEL_SERV_REGISTER  +SELECTIVE_SERVICE  CtrlFld
EditBox  .45   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:44
EditBox  .46   1   INAS_SIM_STU    FIRST_BACH_DEGREE  -FIRST_BACH_DEGREE  CtrlFld
EditBox  .47   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:46
EditBox  .48   1   INAS_SIM_STU    ISIR_STU_ENRL_STAT -ISIR_STU_ENRL_STAT CtrlFld
EditBox  .49   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:48
EditBox  .50   1   INAS_SIM_STU    SFA_FOOD_STAMPS    -FOOD_STAMPS        CtrlFld
EditBox  .51   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:50
EditBox  .52   1   INAS_SIM_STU    SFA_SCHL_LUNCH_PRG -SCHOOL_LUNCH_PROG  CtrlFld
EditBox  .53   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:52
EditBox  .54   1   INAS_SIM_STU    SFA_SSI_INCOME     -SSI_INCOME         CtrlFld
EditBox  .55   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:54
EditBox  .56   1   INAS_SIM_STU    SFA_TANF_BENEFITS  -TANF_BENEFITS      CtrlFld
EditBox  .57   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:56
EditBox  .58   1   INAS_SIM_STU    SFA_WIC_BENEFITS   -WIC_BENEFITS       CtrlFld
EditBox  .59   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:58
EditBox  .60   1   INAS_SIM_STU    SFA_INTRSTD_IN_WSL -INTERESTED_IN_WSL  CtrlFld
EditBox  .61   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:60
ScrBar   .62   1                                      [None ]             Lvl 1 #1 noDel Hide
PushBtn  .63   1   ISIR_CONTROL    INAS_RFC_CALL      -INAS_RFC_LBL       PushBtn->PCode
ScrBar   ..64  2                                      [None ]             Lvl 2 #1 noInsDel Hide
EditBox  ..65  2   ISIR_STUDENT    AID_YEAR           [None ]             Hide noPrompt
PushBtn  ..66  2   DERIVED_SA      INAS_SIM_F_PB      'Get Federal Data'  PushBtn->PCode
PushBtn  ..67  2   DERIVED_SA      INAS_SIM_USE_PB    +INAS_SIM_USE_PB    PushBtn->PCode

Page: RUNCTL_FAPINCLC (ENG)
	Description	 
	Type	Standard Page
	Allow Deferred Proc.	Yes
	Owner ID	SFAN

Type     ID    Lvl Record          Field              Label               Attributes
Label    1     0                                      [#14400,600]
SubPage  2     0                                      'SubPanel'          -> PRCSRUNCNTL_SBP2
Label    3     0                                      [#14840,25]
Label    4     0                                      ':'
Label    5     0                                      'FAPINCLC'
ScrArea  .6    1                                      [#14200,429]        Lvl 1 #1
ScrArea  .6    1                                      [#14200,429]        Lvl 1 #**
EditBox  .7    1   FA_INAS_RUNCTL  INSTITUTION        -INSTITUTION        CtrlFld
EditBox  .8    1   INSTITUTION_TBL DESCR              [None ]             Gray Related:7
EditBox  .9    1   FA_INAS_RUNCTL  AID_YEAR           [None ]             Hide
EditBox  .10   1   DERIVED_FA      BATCH_CALC_YEAR    +BATCH_CALC_YEAR    CtrlFld
EditBox  .11   1   AID_YEAR_TBL    DESCR              [None ]             Gray Related:10
EditBox  .12   1   FA_INAS_RUNCTL  FA_CALC_TYPE       -CALC_TYPE_LBL      Hide
EditBox  .13   1   DERIVED_FA      BATCH_CALC_TYPE    +BATCH_APP_TYPE     CtrlFld
EditBox  .14   1   XLATTABLE       XLATLONGNAME       [None ]             Gray Related:13
EditBox  .15   1   DERIVED_FA      BATCH_CALC_TYPE_IM +BATCH_APP_TYPE     CtrlFld
EditBox  .16   1   XLATTABLE       XLATLONGNAME       [None ]             Gray Related:15
EditBox  .17   1   FA_INAS_RUNCTL  UPDATE_SW          +CLEAR_CALC_LBL     CtrlFld
EditBox  .18   1   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:17

Page: STDNT_FA_ASGAL_SEC (ENG)
	Description	HERA Academic Level
	Type	Secondary Page
	Allow Deferred Proc.	No	Yes
	Owner ID	SFAT
	Comments	Secondary Page used in FA Term to view a students ASG Academic Level
		Info.

Type     ID    Lvl Record          Field              Label               Attributes
SubPage  1     0                                      ''                  -> STDNT_FA_TERM_SBP3
EditBox  2     0   SA_LBL_WRK      OVERRIDE           +OVERRIDE           Hide CtrlFld noPrompt
EditBox  3     0   SA_LBL_WRK      CALC_VALS          +CALC_VALS          Hide CtrlFld noPrompt
ComboBox 4     0   STDNT_FA_TERM   SFA_ASG_AC_LVL_BCL [None ]             Gray XLatShort
ComboBox 5     0   STDNT_FA_TERM   SFA_ASG_AC_LVL_BOT +BOT                XLatShort
CheckBox 6     0   STDNT_FA_TERM   OVRD_ASG_BOT       [None ]             On:Y Off:N
CheckBox 7     0   STDNT_FA_TERM   OVRD_ASG_EOT       [None ]             On:Y Off:N
ComboBox 8     0   STDNT_FA_TERM   SFA_ASG_AC_LVL_EOT +EOT                XLatShort
ComboBox 9     0   STDNT_FA_TERM   SFA_ASG_AC_LVL_ECL [None ]             Gray XLatShort

Page: TRNS_CRSE_INT_SEC (ENG)
	Description	Edit Internal Course Equiv
	Type	Secondary Page
	Allow Deferred Proc.	Yes
	Owner ID	SSR

Type     ID    Lvl Record          Field              Label               Attributes
GroupBox 1     0                                      'Incoming Course'
EditBox  2     0   DERIVED_TRCR_IN SRC_TERM           [None ]             Hide noPrompt
EditBox  3     0   DERIVED_TRCR_IN SRC_CLASS_NBR      [None ]             Hide CtrlFld noPrompt
EditBox  4     0   STDNT_ENR2_TCVW SUBJECT            [None ]             Hide Related:3 noPrompt
EditBox  5     0   STDNT_ENR2_TCVW CATALOG_NBR        [None ]             Hide Related:3 noPrompt
EditBox  6     0   DERIVED_TRCR_IN UNT_TAKEN          +UNT_TAKEN          Gray Zero noPrompt
EditBox  7     0   DERIVED_TRCR_IN COURSE_LEVEL       -COURSE_LEVEL       Hide CtrlFld
EditBox  8     0   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:7
EditBox  9     0   DERIVED_TRCR_IN DESCR              [None ]             Gray
EditBox  10    0   DERIVED_TRCR_IN EXT_TERM_TYPE      [None ]             Hide
EditBox  11    0   DERIVED_TRCR_IN EXT_TERM           [None ]             Hide
EditBox  12    0   DERIVED_TRCR_IN CRSE_GRADE_INPUT   +CRSE_GRADE_INPUT   Gray CtrlFld noPrompt
EditBox  13    0   SA_LBL_WRK      INCOMING_CRSE_LBL  -INCOMING_CRSE_LBL  Hide
EditBox  14    0   DERIVED_TRCR_IN INP_TERM           -INP_TERM           Gray
EditBox  15    0   DERIVED_TRCR_IN EXT_COURSE_NBR     [None ]             Hide CtrlFld noPrompt
EditBox  16    0   EXT_COURSE      EXT_TERM_TYPE      [None ]             Hide Related:15
EditBox  17    0   EXT_COURSE      SCHOOL_SUBJECT     [None ]             Hide Related:15 noPrompt
EditBox  18    0   EXT_COURSE      SCHOOL_CRSE_NBR    [None ]             Hide Related:15 noPrompt
EditBox  19    0   GRADE_TBL       DESCR              [None ]             Gray Related:12
EditBox  20    0   DERIVED_TRCR_IN SRC_TERM_TYPE      [None ]             Hide
EditBox  21    0   DERIVED_TRCR_IN TERM_TYPE          [None ]             Hide CtrlFld
EditBox  22    0   EXT_TERM_CNVRSN TERM_TYPE_MULT     [None ]             Hide Related:21
EditBox  23    0   UNIT_CONV_TRVW  UNIT_MULTIPLIER    [None ]             Hide Related:21
GroupBox 24    0                                      'Equivalent Course'
EditBox  25    0   TRNS_CRSE_DTL   CRSE_ID            +CRSE_ID            CtrlFld
EditBox  26    0   TRNS_CRSE_DTL   CRSE_OFFER_NBR     -CRSE_OFFER_NBR     CtrlFld
EditBox  27    0   CRSE_OFFER      SUBJECT            [None ]             Gray Related:26
EditBox  28    0   CRSE_OFFER      CATALOG_NBR        [None ]             Gray Related:26
CheckBox 29    0   TRNS_CRSE_DTL   VALID_ATTEMPT      -VALID_ATTEMPT      On:Y Off:N
EditBox  30    0   TRNS_CRSE_DTL   GRADING_SCHEME     +GRADING_SCHEME     CtrlFld
EditBox  31    0   GRADESCHEME_TBL DESCR              [None ]             Gray Related:30
EditBox  32    0   CRSE_CATALOG    DESCR              [None ]             Gray Related:25
EditBox  33    0   GRADE_TBL       GRADE_CONVERT      -GRADE_CONVERT      Hide Related:12
EditBox  34    0   TRNS_CRSE_DTL   GRADING_BASIS      +GRADING_BASIS      CtrlFld
EditBox  35    0   GRADE_BASIS_TBL DESCRFORMAL        [None ]             Gray Related:34
EditBox  36    0   TRNS_CRSE_DTL   CRSE_GRADE_OFF     +CRSE_GRADE_OFF     CtrlFld
EditBox  37    0   GRADE_TBL       VALID_ATTEMPT      -VALID_ATTEMPT      Hide Related:36
EditBox  38    0   GRADE_TBL_TR_VW DESCR              [None ]             Gray Related:36 noPrompt
EditBox  39    0   TRNS_CRSE_DTL   UNT_TRNSFR         +UNT_TRNSFR         Zero
EditBox  40    0   TRNS_CRSE_DTL   GRD_PTS_PER_UNIT   -GRD_PTS_PER_UNIT   Gray noPrompt
EditBox  41    0   DERIVED_TRCR    REPEAT_SCHEME      [None ]             Hide
EditBox  42    0   TRNS_CRSE_DTL   REPEAT_CODE        +REPEAT_CODE        CtrlFld
EditBox  43    0   GRADE_TBL_TR_VW GRADE_POINTS       [None ]             Hide Related:36
EditBox  44    0   REPEAT_CODE_TBL DESCR              [None ]             Gray Related:42
EditBox  45    0   CRSE_CATALOG    RQMNT_DESIGNTN     [None ]             Hide Related:25
EditBox  46    0   TRNS_CRSE_DTL   RQMNT_DESIGNTN     -RQMNT_DESIGNTN     CtrlFld
EditBox  47    0   RQMNT_DESIG_TBL DESCR              [None ]             Gray Related:46
CheckBox 48    0   TRNS_CRSE_DTL   EARN_CREDIT        +EARN_CREDIT        On:Y Off:N
CheckBox 49    0   TRNS_CRSE_DTL   INCLUDE_IN_GPA     +INCLUDE_IN_GPA     On:Y Off:N
PushBtn  50    0   DERIVED_TRCR    OK_PB              -OK_PB              PushBtn->PCode
PushBtn  51    0   DERIVED_TRCR    ACCEPT_PB          -ACCEPT_PB          PushBtn->PCode
PushBtn  52    0   DERIVED_TRCR    CANCEL_PB          -CANCEL_PB          PushBtn->PCode
EditBox  53    0   DERIVED_TRCR_IN SUBJECT            [None ]             Gray
EditBox  54    0   DERIVED_TRCR_IN CATALOG_NBR        [None ]             Gray
PushBtn  55    0   DERIVED_TRCR    CLEAR_PB           -CLEAR_PB2          PushBtn->PCode
EditBox  56    0   DERIVED_TRCR    UPDATE_FL          [None ]             Hide
EditBox  57    0   DERIVED_TRCR_IN SRC_SETID          [None ]             Hide
EditBox  58    0   GRADE_TBL_TR_VW IN_PROGRESS_GRD    [None ]             Hide Related:36
EditBox  59    0   GRADE_TBL_TR_VW EARN_CREDIT        [None ]             Hide Related:36
EditBox  60    0   GRADE_TBL_TR_VW INCLUDE_IN_GPA     [None ]             Hide Related:36
EditBox  61    0   DERIVED_TRCR    GRADING_SCHEME     [None ]             Hide
EditBox  62    0   DERIVED_TRCR    GRADING_BASIS      [None ]             Hide
EditBox  63    0   DERIVED_TRCR    GRADE_TRANSFER     [None ]             Hide
EditBox  64    0   TRNS_CRSE_DTL   UNITS_ATTEMPTED    -UNITS_ATTEMPTED    Hide CtrlFld
EditBox  65    0   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:64
CheckBox 48    0   TRNS_CRSE_DTL   SSR_FAWI_INCL      +SSR_FAWI_INCL      On:Y Off:N
CheckBox 49    0   TRNS_CRSE_DTL   EARN_CREDIT        +EARN_CREDIT        On:Y Off:N
CheckBox 50    0   TRNS_CRSE_DTL   INCLUDE_IN_GPA     +INCLUDE_IN_GPA     On:Y Off:N
PushBtn  51    0   DERIVED_TRCR    OK_PB              -OK_PB              PushBtn->PCode
PushBtn  52    0   DERIVED_TRCR    ACCEPT_PB          -ACCEPT_PB          PushBtn->PCode
PushBtn  53    0   DERIVED_TRCR    CANCEL_PB          -CANCEL_PB          PushBtn->PCode
EditBox  54    0   DERIVED_TRCR_IN SUBJECT            [None ]             Gray
EditBox  55    0   DERIVED_TRCR_IN CATALOG_NBR        [None ]             Gray
PushBtn  56    0   DERIVED_TRCR    CLEAR_PB           -CLEAR_PB2          PushBtn->PCode
EditBox  57    0   DERIVED_TRCR    UPDATE_FL          [None ]             Hide
EditBox  58    0   DERIVED_TRCR_IN SRC_SETID          [None ]             Hide
EditBox  59    0   GRADE_TBL_TR_VW IN_PROGRESS_GRD    [None ]             Hide Related:36
EditBox  60    0   GRADE_TBL_TR_VW EARN_CREDIT        [None ]             Hide Related:36
EditBox  61    0   GRADE_TBL_TR_VW INCLUDE_IN_GPA     [None ]             Hide Related:36
EditBox  62    0   DERIVED_TRCR    GRADING_SCHEME     [None ]             Hide
EditBox  63    0   DERIVED_TRCR    GRADING_BASIS      [None ]             Hide
EditBox  64    0   DERIVED_TRCR    GRADE_TRANSFER     [None ]             Hide
EditBox  65    0   TRNS_CRSE_DTL   UNITS_ATTEMPTED    -UNITS_ATTEMPTED    Hide CtrlFld
EditBox  66    0   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:65

Page: TRNS_CRSE_MNL1_SEC (ENG)
	Description	Transfer Credit Data Entry
	Type	Secondary Page
	Allow Deferred Proc.	Yes
	Owner ID	SSR

Type     ID    Lvl Record          Field              Label               Attributes
GroupBox 1     0   XLATTABLE                          'Incoming Course'
EditBox  2     0   TRNS_CRSE_DTL   TERM_YEAR          +TERM_YEAR
EditBox  3     0   TRNS_CRSE_DTL   EXT_TERM           [None ]
EditBox  4     0   TRNS_CRSE_DTL   SCHOOL_SUBJECT     [None ]
EditBox  5     0   TRNS_CRSE_DTL   SCHOOL_CRSE_NBR    -SCHOOL_CRSE_NBR
EditBox  6     0   SA_LBL_WRK      SCHOOL_SUBJ_LBL    -SCHOOL_SUBJ_LBL    Hide
EditBox  7     0   TRNS_CRSE_DTL   DESCR              +DESCR
EditBox  8     0   TRNS_CRSE_DTL   UNT_TAKEN          +UNT_TAKEN          Zero
EditBox  9     0   TRNS_CRSE_DTL   CRSE_GRADE_INPUT   +CRSE_GRADE_INPUT
ComboBox 10    0   TRNS_CRSE_DTL   COURSE_LEVEL       -COURSE_LEVEL       XLatShort
EditBox  11    0   DERIVED_TRCR_IN CRSE_GRADE_INPUT   [None ]             Gray
EditBox  12    0   DERIVED_TRCR    UPDATE_FL          [None ]             Hide
GroupBox 13    0   TRNS_CRSE_DTL   CRSE_ID            +EQUIVALENTCOURSE
EditBox  14    0   TRNS_CRSE_DTL   CRSE_ID            +CRSE_ID            CtrlFld
EditBox  15    0   TRNS_CRSE_DTL   CRSE_OFFER_NBR     -CRSE_OFFER_NBR     CtrlFld
EditBox  16    0   CRSE_OFFER      SUBJECT            [None ]             Gray Related:15
EditBox  17    0   CRSE_OFFER      CATALOG_NBR        [None ]             Gray Related:15
EditBox  18    0   TRNS_CRSE_DTL   UNT_TRNSFR         +UNT_TRNSFR         Zero
CheckBox 19    0   TRNS_CRSE_DTL   VALID_ATTEMPT      -VALID_ATTEMPT      On:Y Off:N
EditBox  20    0   TRNS_CRSE_DTL   GRD_PTS_PER_UNIT   -GRD_PTS_PER_UNIT   Gray
EditBox  21    0   DERIVED_TRCR    GRADING_SCHEME     [None ]             Hide
EditBox  22    0   TRNS_CRSE_DTL   GRADING_SCHEME     +GRADING_SCHEME     CtrlFld
EditBox  23    0   GRADESCHEME_TBL DESCR              [None ]             Gray Related:22
EditBox  24    0   TRNS_CRSE_DTL   GRADING_BASIS      +GRADING_BASIS      CtrlFld
EditBox  25    0   GRADE_BASIS_TBL DESCRFORMAL        [None ]             Gray Related:24
EditBox  26    0   TRNS_CRSE_DTL   CRSE_GRADE_OFF     +CRSE_GRADE_OFF     CtrlFld
CheckBox 27    0   GRADE_TBL       EARN_CREDIT        -EARN_CREDIT        On:Y Off:N Hide Related:26
EditBox  28    0   GRADE_TBL_TR_VW DESCR              [None ]             Gray Related:26
EditBox  29    0   TRNS_CRSE_DTL   REPEAT_CODE        +REPEAT_CODE        CtrlFld
EditBox  30    0   REPEAT_CODE_TBL DESCR              [None ]             Gray Related:29
EditBox  31    0   TRNS_CRSE_DTL   RQMNT_DESIGNTN     -RQMNT_DESIGNTN     CtrlFld
EditBox  32    0   RQMNT_DESIG_TBL DESCR              [None ]             Gray Related:31
EditBox  33    0   CRSE_CATALOG    RQMNT_DESIGNTN     [None ]             Hide Related:14
CheckBox 34    0   TRNS_CRSE_DTL   EARN_CREDIT        +EARN_CREDIT        On:Y Off:N
CheckBox 35    0   TRNS_CRSE_DTL   INCLUDE_IN_GPA     +INCLUDE_IN_GPA     On:Y Off:N
EditBox  36    0   DERIVED_TRCR    GRADING_BASIS      [None ]             Hide
EditBox  37    0   DERIVED_TRCR    GRADE_TRANSFER     [None ]             Hide
PushBtn  38    0   DERIVED_TRCR    CLEAR_PB           -CLEAR_PB2          PushBtn->PCode
EditBox  39    0   CRSE_CATALOG    DESCR              [None ]             Gray Related:14
PushBtn  40    0   DERIVED_TRCR    OK_PB              -OK_PB              PushBtn->PCode
PushBtn  41    0   DERIVED_TRCR    CANCEL_PB          -CANCEL_PB          PushBtn->PCode
EditBox  42    0   TRNS_CRSE_DTL   UNITS_ATTEMPTED    -UNITS_ATTEMPTED    Hide CtrlFld
EditBox  43    0   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:42
EditBox  44    0   DERIVED_TRCR    REPEAT_SCHEME      [None ]             Hide
CheckBox 34    0   TRNS_CRSE_DTL   SSR_FAWI_INCL      +SSR_FAWI_INCL      On:Y Off:N
CheckBox 35    0   TRNS_CRSE_DTL   EARN_CREDIT        +EARN_CREDIT        On:Y Off:N
CheckBox 36    0   TRNS_CRSE_DTL   INCLUDE_IN_GPA     +INCLUDE_IN_GPA     On:Y Off:N
EditBox  37    0   DERIVED_TRCR    GRADING_BASIS      [None ]             Hide
EditBox  38    0   DERIVED_TRCR    GRADE_TRANSFER     [None ]             Hide
PushBtn  39    0   DERIVED_TRCR    CLEAR_PB           -CLEAR_PB2          PushBtn->PCode
EditBox  40    0   CRSE_CATALOG    DESCR              [None ]             Gray Related:14
PushBtn  41    0   DERIVED_TRCR    OK_PB              -OK_PB              PushBtn->PCode
PushBtn  42    0   DERIVED_TRCR    CANCEL_PB          -CANCEL_PB          PushBtn->PCode
EditBox  43    0   TRNS_CRSE_DTL   UNITS_ATTEMPTED    -UNITS_ATTEMPTED    Hide CtrlFld
EditBox  44    0   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:43
EditBox  45    0   DERIVED_TRCR    REPEAT_SCHEME      [None ]             Hide

Page: TRNS_CRSE_TERM (ENG)
	Description	 
	Type	Standard Page
	Allow Deferred Proc.	Yes
	Owner ID	SSR

Type     ID    Lvl Record          Field              Label               Attributes
SubPage  1     0                                      ''                  -> PERS_SRCH_CS_SBP
EditBox  2     0   TRNS_CRSE_SCH   ACAD_CAREER        +ACAD_CAREER        Gray CtrlFld
EditBox  3     0   XLATTABLE       XLATLONGNAME       [None ]             Gray Related:2
EditBox  4     0   TRNS_CRSE_SCH   INSTITUTION        +INSTITUTION        Gray CtrlFld
EditBox  5     0   DERIVED_TRCR_IN EMPLID             [None ]             Hide
EditBox  6     0   DERIVED_TRCR_IN ACAD_CAREER        [None ]             Hide
EditBox  7     0   DERIVED_TRCR_IN INSTITUTION        [None ]             Hide
EditBox  8     0   DERIVED_TRCR_IN TERM_START_CALC    [None ]             Hide
ScrArea  .9    1                                      'Transfer Credit Mo Lvl 1 #1
EditBox  .10   1   TRNS_CRSE_SCH   MODEL_NBR          -MODEL_NBR          Gray
EditBox  .11   1   DERIVED_TRCR    DESCR60            [None ]             Gray
EditBox  .12   1   TRNS_CRSE_SCH   ACAD_PROG          +ACAD_PROG          Gray CtrlFld
EditBox  .13   1   ACAD_PROG_TBL   DESCR              [None ]             Gray Related:12
EditBox  .14   1   SA_LBL_WRK      ADMIT_TP_TRM_LBL   -ADMIT_TP_TRM_LBL   Hide
EditBox  .15   1   ACAD_PROG_TRVW  ADMIT_TYPE         [None ]             Hide CtrlFld Related:12
EditBox  .16   1   ADMIT_TYPE_TBL  DESCRSHORT         [None ]             Gray Related:15
EditBox  .17   1   ACAD_PROG_TRVW  ADMIT_TERM         [None ]             Hide Related:12
EditBox  .18   1   ACAD_PROG_TRVW  DESCRSHORT         [None ]             Gray Related:12
EditBox  .19   1   DERIVED_CS      DESCR1             [None ]             Gray
GroupBox .20   1   TRNS_CRSE_SCH                      'Course Credits Sum
GroupBox .21   1   TRNS_CRSE_SCH   TRF_TAKEN_GPA      ''
EditBox  .22   1   TRNS_CRSE_SCH   TRF_TAKEN_GPA      +TRF_TAKEN_GPA      Gray Zero
EditBox  .23   1   TRNS_CRSE_SCH   TRF_TAKEN_NOGPA    +TRF_TAKEN_NOGPA    Gray Zero
EditBox  .24   1   TRNS_CRSE_SCH   TRF_PASSED_GPA     +TRF_PASSED_GPA     Gray Zero
EditBox  .25   1   TRNS_CRSE_SCH   TRF_PASSED_NOGPA   +TRF_PASSED_NOGPA   Gray Zero
EditBox  .26   1   TRNS_CRSE_SCH   TRF_GRADE_POINTS   +TRF_GRADE_POINTS   Gray Zero
EditBox  .27   1   TRNS_CRSE_SCH   TRF_GPA            +TRF_GPA            Gray Zero
GroupBox .28   1   TRNS_CRSE_SCH   UNT_TAKEN          ''
EditBox  .29   1   TRNS_CRSE_SCH   UNT_TAKEN          +UNT_TAKEN          Gray Zero
EditBox  .30   1   TRNS_CRSE_SCH   UNT_TRNSFR         +UNT_TRNSFR         Gray Zero
ScrArea  ..31  2                                      [None ]             Lvl 2 #1
PushBtn  ..32  2   DERIVED_TRCR    CALC_TRF_PB        -CALC_TRF_PB2       PushBtn->PCode
PushBtn  ..33  2   DERIVED_TRCR    POST_PB            -POST_PB            PushBtn->PCode
PushBtn  ..34  2   DERIVED_TRCR    UNPOST_PB          -UNPOST_PB          PushBtn->PCode
EditBox  ..35  2   TRNS_CRSE_TERM  ARTICULATION_TERM  +ARTICULATION_TERM  Hide CtrlFld
EditBox  ..36  2   TERM_TBL        DESCRSHORT         [None ]             Gray Related:35
EditBox  ..37  2   TRNS_CRSE_TERM  MODEL_STATUS       +MODEL_STATUS       Hide CtrlFld
EditBox  ..38  2   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:37
EditBox  ..39  2   TRNS_CRSE_TERM  POST_DT            +POST_DT            Gray Century
EditBox  ..40  2   TRNS_CRSE_TERM  OPRID              +USERID             Hide CtrlFld
HorRule  ..41  2                                      [None ]
EditBox  ..42  2   OPERATOR_VW     EMPLID             [None ]             Hide CtrlFld Related:40
EditBox  ..43  2   PERSONAL_VW     NAME               [None ]             Gray Related:42
GroupBox ..44  2   TRNS_CRSE_TERM  TRF_TAKEN_GPA      ''
EditBox  ..45  2   TRNS_CRSE_TERM  TRF_TAKEN_GPA      +TRF_TAKEN_GPA      Gray Zero
EditBox  ..46  2   TRNS_CRSE_TERM  TRF_TAKEN_NOGPA    +TRF_TAKEN_NOGPA    Gray Zero
EditBox  ..47  2   TRNS_CRSE_TERM  TRF_PASSED_GPA     +TRF_PASSED_GPA     Gray Zero
EditBox  ..48  2   TRNS_CRSE_TERM  TRF_PASSED_NOGPA   +TRF_PASSED_NOGPA   Gray Zero
EditBox  ..49  2   TRNS_CRSE_TERM  TRF_GRADE_POINTS   +TRF_GRADE_POINTS   Gray Zero
EditBox  ..50  2   TRNS_CRSE_TERM  TRF_GPA            +TRF_GPA            Gray Zero
GroupBox ..51  2   TRNS_CRSE_TERM  UNT_TAKEN          ''
EditBox  ..52  2   TRNS_CRSE_TERM  UNT_TAKEN          +UNT_TAKEN          Gray Zero
EditBox  ..53  2   TRNS_CRSE_TERM  UNT_TRNSFR         +UNT_TRNSFR         Gray Zero
GroupBox ..54  2   DERIVED_TRCR    SSR_FAWI_INCL      +SSR_FAWI_INCL
GroupBox ..55  2   TRNS_CRSE_TERM  TRF_TAKEN_GPA      ''
EditBox  ..56  2   TRNS_CRSE_TERM  SSR_FAWI_TKN_GPA   +SSR_FAWI_TKN_GPA   Gray Zero
EditBox  ..57  2   TRNS_CRSE_TERM  SSR_FAWI_TKN_NOGPA +SSR_FAWI_TKN_NOGPA Gray Zero
EditBox  ..58  2   TRNS_CRSE_TERM  SSR_FAWI_PSD_GPA   +SSR_FAWI_PSD_GPA   Gray Zero
EditBox  ..59  2   TRNS_CRSE_TERM  SSR_FAWI_GRADE_PTS +SSR_FAWI_GRADE_PTS Gray Zero
EditBox  ..60  2   TRNS_CRSE_TERM  SSR_FAWI_PSD_NOGPA +SSR_FAWI_PSD_NOGPA Gray Zero
EditBox  ..61  2   TRNS_CRSE_TERM  SSR_FAWI_GPA       +SSR_FAWI_GPA       Gray Zero
GroupBox ..62  2   TRNS_CRSE_TERM  UNT_TAKEN          ''
EditBox  ..63  2   TRNS_CRSE_TERM  SSR_FAWI_TKN       +SSR_FAWI_TKN       Gray Zero
EditBox  ..64  2   TRNS_CRSE_TERM  SSR_FAWI_PSD       +SSR_FAWI_PSD       Gray Zero

Page: TRNS_OTHR_EDIT_SEC (ENG)
	Description	Other Credit Input
	Type	Secondary Page
	Allow Deferred Proc.	Yes
	Owner ID	SSR

Type     ID    Lvl Record          Field              Label               Attributes
EditBox  1     0   DERIVED_TRCR    GRADING_SCHEME     [None ]             Hide
EditBox  2     0   DERIVED_TRCR    GRADING_BASIS      [None ]             Hide
EditBox  3     0   DERIVED_TRCR    GRADE_TRANSFER     [None ]             Hide
GroupBox 4     0   TRNS_OTHR_DTL   DESCR              +OTHERCREDITINPUT
EditBox  5     0   TRNS_OTHR_DTL   DESCR              +DESCR
EditBox  6     0   TRNS_OTHR_DTL   DESCRSHORT         -DESCRSHORT
EditBox  7     0   TRNS_OTHR_DTL   DESCR254A          +DESCR254A
ComboBox 8     0   TRNS_OTHR_DTL   OTHR_CREDIT_TYPE   +OTHR_CREDIT_TYPE   XLatShort
EditBox  9     0   TRNS_OTHR_DTL   EVALUATION_DT      +EVALUATION_DT      noPrompt Century
PushBtn  10    0   DERIVED_TRCR    CLEAR1_PB          -CLEAR1_PB          PushBtn->PCode
GroupBox 11    0   TRNS_OTHR_DTL   CRSE_ID            +EQUIVALENTCOURSE
EditBox  12    0   TRNS_OTHR_DTL   CRSE_ID            +CRSE_ID            CtrlFld
EditBox  13    0   CRSE_CATALOG    DESCR              [None ]             Gray Related:12
EditBox  14    0   CRSE_CATALOG    UNITS_MINIMUM      [None ]             Hide Related:12
EditBox  15    0   TRNS_OTHR_DTL   CRSE_OFFER_NBR     -CRSE_OFFER_NBR     CtrlFld
EditBox  16    0   CRSE_OFFER      SUBJECT            [None ]             Gray Related:15
EditBox  17    0   CRSE_OFFER      CATALOG_NBR        [None ]             Gray Related:15
EditBox  18    0   DERIVED_TRCR    SUBJ_CATLG_INT     [None ]             Hide
EditBox  19    0   TRNS_OTHR_DTL   UNT_TRNSFR         +UNT_TRNSFR         Zero
EditBox  20    0   TRNS_OTHR_DTL   GRADING_SCHEME     +GRADING_SCHEME     CtrlFld
EditBox  21    0   GRADESCHEME_TBL DESCR              [None ]             Gray Related:20
EditBox  22    0   TRNS_OTHR_DTL   GRADING_BASIS      +GRADING_BASIS      CtrlFld
EditBox  23    0   GRADE_BASIS_TBL DESCRFORMAL        [None ]             Gray Related:22
EditBox  24    0   TRNS_OTHR_DTL   CRSE_GRADE_OFF     +CRSE_GRADE_OFF     CtrlFld
EditBox  25    0   GRADE_TBL_TR_VW DESCR              [None ]             Gray Related:24
EditBox  26    0   GRADE_TBL       EARN_CREDIT        [None ]             Hide Related:24
EditBox  27    0   DERIVED_TRCR    REPEAT_SCHEME      [None ]             Hide
EditBox  28    0   TRNS_OTHR_DTL   REPEAT_CODE        +REPEAT_CODE        CtrlFld
EditBox  29    0   REPEAT_CODE_TBL DESCR              [None ]             Gray Related:28
EditBox  30    0   TRNS_OTHR_DTL   RQMNT_DESIGNTN     -RQMNT_DESIGNTN     CtrlFld
EditBox  31    0   RQMNT_DESIG_TBL DESCR              [None ]             Gray Related:30
EditBox  32    0   CRSE_CATALOG    RQMNT_DESIGNTN     [None ]             Hide Related:12
EditBox  33    0   TRNS_OTHR_DTL   UNITS_ATTEMPTED    -UNITS_ATTEMPTED    Hide CtrlFld
EditBox  34    0   TRNS_OTHR_DTL   GRD_PTS_PER_UNIT   -GRD_PTS_PER_UNIT   Gray
EditBox  35    0   DERIVED_TRCR    UPDATE_FL          -UPDATE_FL          Hide
CheckBox 36    0   TRNS_OTHR_DTL   VALID_ATTEMPT      -VALID_ATTEMPT      On:Y Off:N
EditBox  37    0   DERIVED_TRCR    SUBJ_CATLG_INT     [None ]             Hide
CheckBox 38    0   TRNS_OTHR_DTL   EARN_CREDIT        +EARN_CREDIT        On:Y Off:N
CheckBox 39    0   TRNS_OTHR_DTL   INCLUDE_IN_GPA     +INCLUDE_IN_GPA     On:Y Off:N
EditBox  40    0   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:33
PushBtn  41    0   DERIVED_TRCR    CLEAR_PB           -CLEAR_PB2          PushBtn->PCode
PushBtn  42    0   DERIVED_TRCR    OK_PB              -OK_PB              PushBtn->PCode
PushBtn  43    0   DERIVED_TRCR    CANCEL_PB          -CANCEL_PB          PushBtn->PCode
CheckBox 33    0   TRNS_OTHR_DTL   SSR_FAWI_INCL      +SSR_FAWI_INCL      On:Y Off:N
EditBox  34    0   TRNS_OTHR_DTL   UNITS_ATTEMPTED    -UNITS_ATTEMPTED    Hide CtrlFld
EditBox  35    0   TRNS_OTHR_DTL   GRD_PTS_PER_UNIT   -GRD_PTS_PER_UNIT   Gray
EditBox  36    0   DERIVED_TRCR    UPDATE_FL          -UPDATE_FL          Hide
CheckBox 37    0   TRNS_OTHR_DTL   VALID_ATTEMPT      -VALID_ATTEMPT      On:Y Off:N
EditBox  38    0   DERIVED_TRCR    SUBJ_CATLG_INT     [None ]             Hide
CheckBox 39    0   TRNS_OTHR_DTL   EARN_CREDIT        +EARN_CREDIT        On:Y Off:N
CheckBox 40    0   TRNS_OTHR_DTL   INCLUDE_IN_GPA     +INCLUDE_IN_GPA     On:Y Off:N
EditBox  41    0   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:34
PushBtn  42    0   DERIVED_TRCR    CLEAR_PB           -CLEAR_PB2          PushBtn->PCode
PushBtn  43    0   DERIVED_TRCR    OK_PB              -OK_PB              PushBtn->PCode
PushBtn  44    0   DERIVED_TRCR    CANCEL_PB          -CANCEL_PB          PushBtn->PCode

Page: TRNS_OTHR_TERM (ENG)
	Description	 
	Type	Standard Page
	Allow Deferred Proc.	Yes
	Owner ID	SSR

Type     ID    Lvl Record          Field              Label               Attributes
SubPage  1     0                                      ''                  -> PERS_SRCH_CS_SBP
EditBox  2     0   DERIVED_TRCR_IN EMPLID             [None ]             Hide
EditBox  3     0   DERIVED_TRCR_IN ACAD_CAREER        [None ]             Hide
EditBox  4     0   DERIVED_TRCR_IN INSTITUTION        [None ]             Hide
EditBox  5     0   DERIVED_TRCR_IN TERM_START_CALC    [None ]             Hide
ScrArea  .6    1                                      [None ]             Lvl 1 #1
EditBox  .7    1   TRNS_OTHR_MODEL ACAD_CAREER        +ACAD_CAREER        Gray CtrlFld
EditBox  .8    1   XLATTABLE       XLATLONGNAME       [None ]             Gray Related:7
EditBox  .9    1   TRNS_OTHR_MODEL INSTITUTION        +INSTITUTION        Gray CtrlFld
EditBox  .10   1   INSTITUTION_TBL DESCR              [None ]             Gray Related:9
EditBox  .11   1   TRNS_OTHR_MODEL MODEL_NBR          -MODEL_NBR          Gray
EditBox  .12   1   TRNS_OTHR_MODEL ACAD_PROG          +ACAD_PROG          Gray CtrlFld
EditBox  .13   1   ACAD_PROG_TBL   DESCR              [None ]             Gray Related:12
EditBox  .14   1   ACAD_PROG_TRVW  ADMIT_TERM         +ADMIT_TERM         Hide Related:12
EditBox  .15   1   ACAD_PROG_TRVW  DESCRSHORT         [None ]             Gray Related:12
GroupBox .16   1   TRNS_OTHR_MODEL                    'Other Credits Summ
GroupBox .17   1   TRNS_OTHR_MODEL TRF_PASSED_GPA     ''
EditBox  .18   1   TRNS_OTHR_MODEL TRF_TAKEN_GPA      +TRF_TAKEN_GPA      Gray Zero
EditBox  .19   1   TRNS_OTHR_MODEL TRF_TAKEN_NOGPA    +TRF_TAKEN_NOGPA    Gray Zero
EditBox  .20   1   TRNS_OTHR_MODEL TRF_PASSED_GPA     +TRF_PASSED_GPA     Gray Zero
EditBox  .21   1   TRNS_OTHR_MODEL TRF_PASSED_NOGPA   +TRF_PASSED_NOGPA   Gray Zero
EditBox  .22   1   TRNS_OTHR_MODEL TRF_GPA            +TRF_GPA            Gray Zero
EditBox  .23   1   TRNS_OTHR_MODEL TRF_GRADE_POINTS   +TRF_GRADE_POINTS   Gray Zero
GroupBox .24   1   TRNS_OTHR_MODEL UNT_TRNSFR         ''
EditBox  .25   1   TRNS_OTHR_MODEL UNT_TRNSFR         +UNT_TRNSFR         Gray Zero
ScrArea  ..26  2                                      [None ]             Lvl 2 #1
EditBox  ..27  2   DERIVED_TRCR    TRNSFR_FL          [None ]             Hide
EditBox  ..28  2   TRNS_OTHR_TERM  ARTICULATION_TERM  +ARTICULATION_TERM  Hide CtrlFld
EditBox  ..29  2   TERM_TBL        DESCRSHORT         [None ]             Gray Related:28
EditBox  ..30  2   TRNS_OTHR_TERM  POST_DT            +POST_DT            Gray Century
EditBox  ..31  2   TRNS_OTHR_TERM  MODEL_STATUS       +MODEL_STATUS       Hide CtrlFld
EditBox  ..32  2   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:31
EditBox  ..33  2   TRNS_OTHR_TERM  OPRID              -USERID             Hide CtrlFld
EditBox  ..34  2   OPERATOR_VW     EMPLID             [None ]             Hide CtrlFld Related:33
EditBox  ..35  2   PERSONAL_VW     NAME               [None ]             Gray Related:33
HorRule  ..36  2                                      [None ]
PushBtn  ..37  2   DERIVED_TRCR    CALC_TRF_PB        -CALC_TRF_PB2       PushBtn->PCode
PushBtn  ..38  2   DERIVED_TRCR    POST_PB            -POST_PB            PushBtn->PCode
PushBtn  ..39  2   DERIVED_TRCR    UNPOST_PB          -UNPOST_PB          PushBtn->PCode
GroupBox ..40  2   TRNS_OTHR_TERM  TRF_PASSED_GPA     ''
EditBox  ..41  2   TRNS_OTHR_TERM  TRF_TAKEN_GPA      +TRF_TAKEN_GPA      Gray Zero
EditBox  ..42  2   TRNS_OTHR_TERM  TRF_TAKEN_NOGPA    +TRF_TAKEN_NOGPA    Gray Zero
EditBox  ..43  2   TRNS_OTHR_TERM  TRF_PASSED_GPA     +TRF_PASSED_GPA     Gray Zero
EditBox  ..44  2   TRNS_OTHR_TERM  TRF_PASSED_NOGPA   +TRF_PASSED_NOGPA   Gray Zero
EditBox  ..45  2   TRNS_OTHR_TERM  TRF_GPA            +TRF_GPA            Gray Zero
EditBox  ..46  2   TRNS_OTHR_TERM  TRF_GRADE_POINTS   +TRF_GRADE_POINTS   Gray Zero
GroupBox ..47  2   TRNS_OTHR_TERM  UNT_TRNSFR         ''
EditBox  ..48  2   TRNS_OTHR_TERM  UNT_TRNSFR         +UNT_TRNSFR         Gray Zero
GroupBox ..49  2   DERIVED_TRCR    SSR_FAWI_INCL      +SSR_FAWI_INCL
GroupBox ..50  2   TRNS_OTHR_TERM  TRF_PASSED_GPA     ''
EditBox  ..51  2   TRNS_OTHR_TERM  SSR_FAWI_TKN_GPA   +SSR_FAWI_TKN_GPA   Gray Zero
EditBox  ..52  2   TRNS_OTHR_TERM  SSR_FAWI_TKN_NOGPA +SSR_FAWI_TKN_NOGPA Gray Zero
EditBox  ..53  2   TRNS_OTHR_TERM  SSR_FAWI_PSD_GPA   +SSR_FAWI_PSD_GPA   Gray Zero
EditBox  ..54  2   TRNS_OTHR_TERM  SSR_FAWI_GRADE_PTS +SSR_FAWI_GRADE_PTS Gray Zero
EditBox  ..55  2   TRNS_OTHR_TERM  SSR_FAWI_PSD_NOGPA +SSR_FAWI_PSD_NOGPA Gray Zero
EditBox  ..56  2   TRNS_OTHR_TERM  SSR_FAWI_GPA       +SSR_FAWI_GPA       Gray Zero
GroupBox ..57  2   TRNS_OTHR_TERM  UNT_TRNSFR         ''
EditBox  ..58  2   TRNS_OTHR_TERM  SSR_FAWI_PSD       +SSR_FAWI_PSD       Gray Zero

Page: TRNS_TEST_EDIT_SEC (ENG)
	Description	Test Credit Details Edit
	Type	Secondary Page
	Allow Deferred Proc.	Yes
	Owner ID	SSR

Type     ID    Lvl Record          Field              Label               Attributes
EditBox  1     0   DERIVED_TRCR    GRADING_SCHEME     [None ]             Hide
EditBox  2     0   DERIVED_TRCR    GRADING_BASIS      [None ]             Hide
EditBox  3     0   DERIVED_TRCR    GRADE_TRANSFER     [None ]             Hide
GroupBox 4     0   TRNS_TEST_DTL   TEST_ID            +TESTCREDITINPUT
EditBox  5     0   TRNS_TEST_DTL   TEST_ID            +TEST_ID            CtrlFld
EditBox  6     0   SA_TEST_TBL     DESCRSHORT         [None ]             Gray Related:5
EditBox  7     0   TRNS_TEST_DTL   TEST_COMPONENT     -TEST_COMPONENT     CtrlFld
EditBox  8     0   SA_TEST_CMP_TBL DESCR              [None ]             Gray Related:7
EditBox  9     0   SA_TCMP_REL_TBL MIN_SCORE          [None ]             Hide Related:7
EditBox  10    0   SA_TCMP_REL_TBL MAX_SCORE          [None ]             Hide Related:7
ComboBox 11    0   TRNS_TEST_DTL   LS_DATA_SOURCE     +DATA_SOURCE        XLatShort
EditBox  12    0   TRNS_TEST_DTL   TEST_DT            +TEST_DT            noPrompt Century
EditBox  13    0   TRNS_TEST_DTL   SCORE              +SCORE
EditBox  14    0   TRNS_TEST_DTL   PERCENTILE         +PERCENTILE
PushBtn  15    0   DERIVED_TRCR    CLEAR1_PB          -CLEAR              PushBtn->PCode
GroupBox 16    0   TRNS_TEST_DTL   CRSE_ID            +EQUIVALENTCOURSE
EditBox  17    0   TRNS_TEST_DTL   CRSE_ID            +CRSE_ID            CtrlFld
EditBox  18    0   CRSE_CATALOG    UNITS_MINIMUM      [None ]             Hide Related:17
CheckBox 19    0   TRNS_TEST_DTL   VALID_ATTEMPT      -VALID_ATTEMPT      On:Y Off:N
EditBox  20    0   DERIVED_TRCR    SUBJ_CATLG_INT     [None ]             Hide
EditBox  21    0   TRNS_TEST_DTL   CRSE_OFFER_NBR     -CRSE_OFFER_NBR     CtrlFld
EditBox  22    0   CRSE_OFFER      SUBJECT            [None ]             Gray Related:21
EditBox  23    0   CRSE_OFFER      CATALOG_NBR        [None ]             Gray Related:21
EditBox  24    0   TRNS_TEST_DTL   UNT_TRNSFR         +UNT_TRNSFR         Zero
EditBox  25    0   TRNS_TEST_DTL   GRADING_SCHEME     +GRADING_SCHEME     CtrlFld
EditBox  26    0   GRADESCHEME_TBL DESCR              [None ]             Gray Related:25
EditBox  27    0   TRNS_TEST_DTL   GRADING_BASIS      +GRADING_BASIS      CtrlFld
EditBox  28    0   GRADE_BASIS_TBL DESCRFORMAL        [None ]             Gray Related:27
EditBox  29    0   TRNS_TEST_DTL   CRSE_GRADE_OFF     +CRSE_GRADE_OFF     CtrlFld
EditBox  30    0   GRADE_TBL_TR_VW DESCR              [None ]             Gray Related:29
EditBox  31    0   GRADE_TBL       GRADE_POINTS       [None ]             Hide Related:29
EditBox  32    0   DERIVED_TRCR    REPEAT_SCHEME      [None ]             Hide
EditBox  33    0   TRNS_TEST_DTL   REPEAT_CODE        +REPEAT_CODE        CtrlFld
EditBox  34    0   REPEAT_CODE_TBL DESCR              [None ]             Gray Related:33
EditBox  35    0   TRNS_TEST_DTL   RQMNT_DESIGNTN     -RQMNT_DESIGNTN     CtrlFld
EditBox  36    0   RQMNT_DESIG_TBL DESCR              [None ]             Gray Related:35
EditBox  37    0   CRSE_CATALOG    RQMNT_DESIGNTN     [None ]             Hide Related:17
EditBox  38    0   TRNS_TEST_DTL   GRD_PTS_PER_UNIT   -GRD_PTS_PER_UNIT   Gray
EditBox  39    0   DERIVED_TRCR    UPDATE_FL          -UPDATE_FL          Hide
CheckBox 40    0   TRNS_TEST_DTL   EARN_CREDIT        +EARN_CREDIT        On:Y Off:N
CheckBox 41    0   TRNS_TEST_DTL   INCLUDE_IN_GPA     +INCLUDE_IN_GPA     On:Y Off:N
PushBtn  42    0   DERIVED_TRCR    CLEAR_PB           -CLEAR_PB2          PushBtn->PCode
EditBox  43    0   CRSE_CATALOG    DESCR              [None ]             Gray Related:17
PushBtn  44    0   DERIVED_TRCR    OK_PB              -OK_PB              PushBtn->PCode
PushBtn  45    0   DERIVED_TRCR    CANCEL_PB          -CANCEL_PB          PushBtn->PCode
EditBox  46    0   TRNS_TEST_DTL   UNITS_ATTEMPTED    -UNITS_ATTEMPTED    Hide CtrlFld
EditBox  47    0   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:46
CheckBox 38    0   TRNS_TEST_DTL   SSR_FAWI_INCL      +SSR_FAWI_INCL      On:Y Off:N
EditBox  39    0   TRNS_TEST_DTL   GRD_PTS_PER_UNIT   -GRD_PTS_PER_UNIT   Gray
EditBox  40    0   DERIVED_TRCR    UPDATE_FL          -UPDATE_FL          Hide
CheckBox 41    0   TRNS_TEST_DTL   EARN_CREDIT        +EARN_CREDIT        On:Y Off:N
CheckBox 42    0   TRNS_TEST_DTL   INCLUDE_IN_GPA     +INCLUDE_IN_GPA     On:Y Off:N
PushBtn  43    0   DERIVED_TRCR    CLEAR_PB           -CLEAR_PB2          PushBtn->PCode
EditBox  44    0   CRSE_CATALOG    DESCR              [None ]             Gray Related:17
PushBtn  45    0   DERIVED_TRCR    OK_PB              -OK_PB              PushBtn->PCode
PushBtn  46    0   DERIVED_TRCR    CANCEL_PB          -CANCEL_PB          PushBtn->PCode
EditBox  47    0   TRNS_TEST_DTL   UNITS_ATTEMPTED    -UNITS_ATTEMPTED    Hide CtrlFld
EditBox  48    0   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:47

Page: TRNS_TEST_INT_SEC (ENG)
	Description	Edit Internal Course Equiv
	Type	Secondary Page
	Allow Deferred Proc.	Yes
	Owner ID	SSR

Type     ID    Lvl Record          Field              Label               Attributes
GroupBox 1     0                                      'Test Credit'
EditBox  2     0   DERIVED_TRCR_IN TEST_ID            -TEST_ID            Gray CtrlFld
EditBox  3     0   SA_TEST_TBL     DESCR              [None ]             Gray Related:2
EditBox  4     0   DERIVED_TRCR_IN TEST_COMPONENT     -TEST_COMPONENT     Gray CtrlFld
EditBox  5     0   SA_TCMP_REL_TBL DESCR              [None ]             Gray Related:4
EditBox  6     0   DERIVED_TRCR_IN TEST_DT            +TEST_DT            Gray Century
EditBox  7     0   DERIVED_TRCR_IN LS_DATA_SOURCE     +DATA_SOURCE        Gray
EditBox  8     0   DERIVED_TRCR_IN SCORE              +SCORE              Gray noPrompt
EditBox  9     0   DERIVED_TRCR_IN PERCENTILE         +PERCENTILE         Gray CtrlFld noPrompt
EditBox  10    0   DERIVED_TRCR    GRADE_TRANSFER     [None ]             Hide
GroupBox 11    0                                      'Equivalent Course'
EditBox  12    0   TRNS_TEST_DTL   CRSE_ID            +CRSE_ID            CtrlFld
EditBox  13    0   CRSE_CATALOG    UNITS_MINIMUM      [None ]             Hide Related:12
EditBox  14    0   TRNS_TEST_DTL   CRSE_OFFER_NBR     -CRSE_OFFER_NBR     CtrlFld
EditBox  15    0   CRSE_OFFER      SUBJECT            [None ]             Gray Related:14
EditBox  16    0   CRSE_OFFER      CATALOG_NBR        [None ]             Gray Related:14
CheckBox 17    0   TRNS_TEST_DTL   VALID_ATTEMPT      -VALID_ATTEMPT      On:Y Off:N
EditBox  18    0   TRNS_TEST_DTL   GRADING_SCHEME     +GRADING_SCHEME     CtrlFld
EditBox  19    0   GRADESCHEME_TBL DESCR              [None ]             Gray Related:18
EditBox  20    0   TRNS_TEST_DTL   GRADING_BASIS      +GRADING_BASIS      CtrlFld
EditBox  21    0   GRADE_BASIS_TBL DESCRFORMAL        [None ]             Gray Related:20
EditBox  22    0   TRNS_TEST_DTL   CRSE_GRADE_OFF     +CRSE_GRADE_OFF     CtrlFld
EditBox  23    0   GRADE_TBL_TR_VW DESCR              [None ]             Gray Related:22 noPrompt
EditBox  24    0   TRNS_TEST_DTL   UNT_TRNSFR         +UNT_TRNSFR         Zero noPrompt
EditBox  25    0   TRNS_TEST_DTL   GRD_PTS_PER_UNIT   -GRD_PTS_PER_UNIT   Gray noPrompt
EditBox  26    0   DERIVED_TRCR    REPEAT_SCHEME      [None ]             Hide
EditBox  27    0   TRNS_TEST_DTL   REPEAT_CODE        +REPEAT_CODE        CtrlFld
EditBox  28    0   GRADE_TBL       GRADE_POINTS       [None ]             Hide Related:22
EditBox  29    0   TRNS_TEST_DTL   RQMNT_DESIGNTN     -RQMNT_DESIGNTN     CtrlFld
EditBox  30    0   RQMNT_DESIG_TBL DESCR              [None ]             Gray Related:29
EditBox  31    0   CRSE_CATALOG    RQMNT_DESIGNTN     [None ]             Hide Related:12
EditBox  32    0   REPEAT_CODE_TBL DESCR              [None ]             Gray Related:27
CheckBox 33    0   TRNS_TEST_DTL   EARN_CREDIT        +EARN_CREDIT        On:Y Off:N
CheckBox 34    0   TRNS_TEST_DTL   INCLUDE_IN_GPA     +INCLUDE_IN_GPA     On:Y Off:N
PushBtn  35    0   DERIVED_TRCR    OK_PB              -OK_PB              PushBtn->PCode
PushBtn  36    0   DERIVED_TRCR    CANCEL_PB          -CANCEL_PB          PushBtn->PCode
PushBtn  37    0   DERIVED_TRCR    CLEAR_PB           -CLEAR_PB2          PushBtn->PCode
EditBox  38    0   CRSE_CATALOG    DESCR              [None ]             Gray Related:12
EditBox  39    0   DERIVED_TRCR    UPDATE_FL          +UPDATE_FL          Hide
EditBox  40    0   GRADE_TBL       EARN_CREDIT        [None ]             Hide Related:22
EditBox  41    0   GRADE_TBL       INCLUDE_IN_GPA     [None ]             Hide Related:22
EditBox  42    0   DERIVED_TRCR    GRADING_SCHEME     [None ]             Hide
EditBox  43    0   DERIVED_TRCR    GRADING_BASIS      [None ]             Hide
EditBox  44    0   TRNS_TEST_DTL   UNITS_ATTEMPTED    -UNITS_ATTEMPTED    Hide CtrlFld
EditBox  45    0   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:44
CheckBox 32    0   TRNS_TEST_DTL   SSR_FAWI_INCL      +SSR_FAWI_INCL      On:Y Off:N
EditBox  33    0   REPEAT_CODE_TBL DESCR              [None ]             Gray Related:27
CheckBox 34    0   TRNS_TEST_DTL   EARN_CREDIT        +EARN_CREDIT        On:Y Off:N
CheckBox 35    0   TRNS_TEST_DTL   INCLUDE_IN_GPA     +INCLUDE_IN_GPA     On:Y Off:N
PushBtn  36    0   DERIVED_TRCR    OK_PB              -OK_PB              PushBtn->PCode
PushBtn  37    0   DERIVED_TRCR    CANCEL_PB          -CANCEL_PB          PushBtn->PCode
PushBtn  38    0   DERIVED_TRCR    CLEAR_PB           -CLEAR_PB2          PushBtn->PCode
EditBox  39    0   CRSE_CATALOG    DESCR              [None ]             Gray Related:12
EditBox  40    0   DERIVED_TRCR    UPDATE_FL          +UPDATE_FL          Hide
EditBox  41    0   GRADE_TBL       EARN_CREDIT        [None ]             Hide Related:22
EditBox  42    0   GRADE_TBL       INCLUDE_IN_GPA     [None ]             Hide Related:22
EditBox  43    0   DERIVED_TRCR    GRADING_SCHEME     [None ]             Hide
EditBox  44    0   DERIVED_TRCR    GRADING_BASIS      [None ]             Hide
EditBox  45    0   TRNS_TEST_DTL   UNITS_ATTEMPTED    -UNITS_ATTEMPTED    Hide CtrlFld
EditBox  46    0   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:45

Page: TRNS_TEST_TERM (ENG)
	Description	 
	Type	Standard Page
	Allow Deferred Proc.	Yes
	Owner ID	SSR

Type     ID    Lvl Record          Field              Label               Attributes
SubPage  1     0                                      ''                  -> PERS_SRCH_CS_SBP
EditBox  2     0   DERIVED_TRCR_IN EMPLID             [None ]             Hide
EditBox  3     0   DERIVED_TRCR_IN ACAD_CAREER        [None ]             Hide
EditBox  4     0   DERIVED_TRCR_IN INSTITUTION        [None ]             Hide
EditBox  5     0   DERIVED_TRCR_IN TERM_START_CALC    [None ]             Hide
ScrArea  .6    1                                      [None ]             Lvl 1 #1
EditBox  .7    1   TRNS_TEST_MODEL ACAD_CAREER        +ACAD_CAREER        Gray CtrlFld
EditBox  .8    1   XLATTABLE       XLATLONGNAME       [None ]             Gray Related:7
EditBox  .9    1   TRNS_TEST_MODEL INSTITUTION        +INSTITUTION        Gray CtrlFld
EditBox  .10   1   INSTITUTION_TBL DESCR              [None ]             Gray Related:9
EditBox  .11   1   TRNS_TEST_MODEL MODEL_NBR          -MODEL_NBR          Gray
EditBox  .12   1   TRNS_TEST_MODEL ACAD_PROG          +ACAD_PROG          Gray CtrlFld
EditBox  .13   1   ACAD_PROG_TBL   DESCR              [None ]             Gray Related:12
EditBox  .14   1   ACAD_PROG_TRVW  ADMIT_TERM         +ADMIT_TERM         Gray Related:12
EditBox  .15   1   ACAD_PROG_TRVW  DESCRSHORT         [None ]             Gray Related:12
GroupBox .16   1   TRNS_TEST_TERM                     'Test Credits Summa
GroupBox .17   1   TRNS_TEST_MODEL TRF_PASSED_GPA     ''
EditBox  .18   1   TRNS_TEST_MODEL TRF_TAKEN_GPA      +TRF_TAKEN_GPA      Gray Zero
EditBox  .19   1   TRNS_TEST_MODEL TRF_TAKEN_NOGPA    +TRF_TAKEN_NOGPA    Gray Zero
EditBox  .20   1   TRNS_TEST_MODEL TRF_PASSED_GPA     +TRF_PASSED_GPA     Gray Zero
EditBox  .21   1   TRNS_TEST_MODEL TRF_PASSED_NOGPA   +TRF_PASSED_NOGPA   Gray Zero
EditBox  .22   1   TRNS_TEST_MODEL TRF_GPA            +TRF_GPA            Gray Zero
EditBox  .23   1   TRNS_TEST_MODEL TRF_GRADE_POINTS   +TRF_GRADE_POINTS   Gray Zero
GroupBox .24   1   TRNS_TEST_MODEL UNT_TRNSFR         ''
EditBox  .25   1   TRNS_TEST_MODEL UNT_TRNSFR         +UNT_TRNSFR         Gray Zero
ScrArea  ..26  2                                      [None ]             Lvl 2 #1
EditBox  ..27  2   TRNS_TEST_TERM  ARTICULATION_TERM  +ARTICULATION_TERM  Hide CtrlFld
EditBox  ..28  2   TERM_TBL        DESCRSHORT         [None ]             Gray Related:27
EditBox  ..29  2   TRNS_TEST_TERM  MODEL_STATUS       +MODEL_STATUS       Hide CtrlFld
EditBox  ..30  2   XLATTABLE       XLATSHORTNAME      [None ]             Gray Related:29
EditBox  ..31  2   TRNS_TEST_TERM  OPRID              -USERID             Hide CtrlFld
EditBox  ..32  2   OPERATOR_VW     EMPLID             [None ]             Hide CtrlFld Related:31
EditBox  ..33  2   TRNS_TEST_TERM  POST_DT            +POST_DT            Gray Century
EditBox  ..34  2   PERSONAL_VW     NAME               [None ]             Gray Related:32
EditBox  ..35  2   DERIVED_TRCR    TRNSFR_FL          [None ]             Hide
HorRule  ..36  2                                      [None ]
PushBtn  ..37  2   DERIVED_TRCR    CALC_TRF_PB        -CALC_TRF_PB2       PushBtn->PCode
PushBtn  ..38  2   DERIVED_TRCR    POST_PB            -POST_PB            PushBtn->PCode
PushBtn  ..39  2   DERIVED_TRCR    UNPOST_PB          -UNPOST_PB          PushBtn->PCode
GroupBox ..40  2   TRNS_TEST_TERM  TRF_PASSED_GPA     ''
EditBox  ..41  2   TRNS_TEST_TERM  TRF_TAKEN_GPA      +TRF_TAKEN_GPA      Gray Zero
EditBox  ..42  2   TRNS_TEST_TERM  TRF_TAKEN_NOGPA    +TRF_TAKEN_NOGPA    Gray Zero
EditBox  ..43  2   TRNS_TEST_TERM  TRF_PASSED_GPA     +TRF_PASSED_GPA     Gray Zero
EditBox  ..44  2   TRNS_TEST_TERM  TRF_GRADE_POINTS   +TRF_GRADE_POINTS   Gray Zero
EditBox  ..45  2   TRNS_TEST_TERM  TRF_PASSED_NOGPA   +TRF_PASSED_NOGPA   Gray Zero
EditBox  ..46  2   TRNS_TEST_TERM  TRF_GPA            +TRF_GPA            Gray Zero
GroupBox ..47  2   TRNS_TEST_TERM  UNT_TRNSFR         ''
EditBox  ..48  2   TRNS_TEST_TERM  UNT_TRNSFR         +UNT_TRNSFR         Gray Zero
GroupBox ..49  2   DERIVED_TRCR    SSR_FAWI_INCL      +SSR_FAWI_INCL
GroupBox ..50  2   TRNS_TEST_TERM  TRF_PASSED_GPA     ''
EditBox  ..51  2   TRNS_TEST_TERM  SSR_FAWI_TKN_GPA   +SSR_FAWI_TKN_GPA   Gray Zero
EditBox  ..52  2   TRNS_TEST_TERM  SSR_FAWI_TKN_NOGPA +SSR_FAWI_TKN_NOGPA Gray Zero
EditBox  ..53  2   TRNS_TEST_TERM  SSR_FAWI_PSD_GPA   +SSR_FAWI_PSD_GPA   Gray Zero
EditBox  ..54  2   TRNS_TEST_TERM  SSR_FAWI_GRADE_PTS +SSR_FAWI_GRADE_PTS Gray Zero
EditBox  ..55  2   TRNS_TEST_TERM  SSR_FAWI_PSD_NOGPA +SSR_FAWI_PSD_NOGPA Gray Zero
EditBox  ..56  2   TRNS_TEST_TERM  SSR_FAWI_GPA       +SSR_FAWI_GPA       Gray Zero
GroupBox ..57  2   TRNS_TEST_TERM  UNT_TRNSFR         ''
EditBox  ..58  2   TRNS_TEST_TERM  SSR_FAWI_PSD       +SSR_FAWI_PSD       Gray Zero

Menu Detail

Menu: MANAGE_NEED_ANALYSIS
	Menu Type	Standard
	Description	Manage Need Analysis
	Menu Label	Manage &Need Analysis
	Menu Group	Administer &Financial Aid
	Installed	Yes
	Menu Order	2
	  add Separator	No
	Group Order	4
	  add Separator	No

Bar/Menu Item              Description                    Component          Market OverrideSearchRec
USE                        &Use
---------------
STDNT_BDGT_CALC              &Create Student Budget   STDNT_BDGT_CALC    GBL
AID_YEAR_BDGT_ADJUSTMENTS    Budget Adjustmen&ts      STDNT_BDGT_ADJUST  GBL
TERM_BUDGET_MAINTENANCE      &Budget Maintenance      STDNT_TERM_BUDGET  GBL
---------------
FINANCIAL_AID_TERM           Financial Aid &Term      STDNT_FA_TERM      GBL
PACKAGING_STATUS_SUMMARY     &Packaging Status Summar STDNT_AID_PACKAGE  GBL
---------------
CORRECTION_MANAGEMENT        ISIR Correction &Managem FAFSA_CORRECT      GBL
---------------
SAA_REVIEW_MC                &Review Stdnt Aid Attr M SAA_REVIEW_MC      GBL
REVIEW_USER_EDITS            Review &User Edit Messag REVIEW_USER_EDITS  GBL
---------------
SFA_VERIFICATION07           Appl Data Verification 0 SFA_VERIFICATION07 GBL
SFA_VERIFICATION08           Appl Data Verification 0 SFA_VERIFICATION08 GBL
SFA_VERIFICATION09           Appl Data Verification 0 SFA_VERIFICATION09 GBL
AUTO_VERIFICATION            &Auto Verification       RUN_VERIFICATION   GBL
RELATIONSHIPS                Relationship&s           RELATIONSHIPS      GBL

USE2                       &Use2
ISIR_CORRPIA07               ISIR Corrections 06/07   ISIR_CORRPIA07     GBL
ISIR_CORRPIA08               ISIR Corrections 07/08   ISIR_CORRPIA08     GBL
ISIR_CORRPIA09               ISIR Corrections 08/09   ISIR_CORRPIA09     GBL
---------------                                                          GBL
INAS_SIMULATION_07           INAS Simulation 06/07    INAS_SIMULATION_07 GBL
INAS_SIMULATION_08           INAS Simulation 07/08    INAS_SIMULATION_08 GBL
INAS_SIMULATION_09           INAS Simulation 08/09    INAS_SIMULATION_09 GBL
---------------
ISIR_SUSP_CNTRL_08           ISIR Susp Management 07/ ISIR_SUSP_CNTRL_08 GBL
ISIR_SUSP_CNTRL_09           ISIR Susp Management 08/ ISIR_SUSP_CNTRL_09 GBL
---------------
MAINTAIN_INST_INFO_06_07     Maintain Inst Appl 06/07 PROFILE_DATA_07    GBL
MAINTAIN_INST_INFO_07_08     Maintain Inst Appl 07/08 PROFILE_DATA_08    GBL
MAINTAIN_INST_INFO_08_09     Maintain Inst Appl 08/09 PROFILE_DATA_09    GBL
---------------
PROF_SUSP_CNTRL_08           Profile Susp Mgmt 07/08  PROF_SUSP_CNTRL_08 GBL
PROF_SUSP_CNTRL_09           Profile Susp Mgmt 08/09  PROF_SUSP_CNTRL_09 GBL
---------------
NEED_SUSP_CNTRL_08           Need Access Susp Mgmt 07 NEED_SUSP_CNTRL_08 GBL
NEED_SUSP_CNTRL_09           Need Access Susp Mgmt 08 NEED_SUSP_CNTRL_09 GBL

SETUP                      &Setup
BUDGET_CATEGORY_TABLE        Budget &Categories       BUDGET_CATG_TBL    GBL
BUDGET_ITEM_TABLE            Budget &Items            BUDGET_ITEM_TABLE  GBL
BUDGET_FORMULA               Budget &Formulas         BUDGET_FORMULA     GBL
BUDGET_TREE                  Budget &Trees            BUDGET_TREE_TBL    GBL
BUDGET_GROUP_TABLE           Budget &Groups           BUDGET_GROUP_TABLE GBL
BUDGET_ASSIGNMENT            &Budget Assignments      BUDGET_ASSIGNMENT  GBL
BUDGET_ASGN_RUNCTL           Budget &Assignment Run C BUDGET_ASGN_RUNCTL GBL
BDGT_REGION_TABLE            Budget Region Table      BDGT_REGION_TABLE  GBL
---------------
LOCAL_POLICY_PT_07           INAS Local P&olicy Opts  LOCAL_POLICY_PT_07 GBL
LOCAL_POLICY_PT_08           INAS Local P&olicy Opts  LOCAL_POLICY_PT_08 GBL
LOCAL_POLICY_PT_09           INAS Local P&olicy Opts  LOCAL_POLICY_PT_09 GBL
---------------
VERIFICATION_SETUP           &Verification Tolerance  VERIFICATION_SETUP GBL

INQUIRE                    &Inquire
ISIR_EFC_SMRY_DT07           Fed EFC Sumr&y/Detail 06 ISIR_EFC_SMRY_DT07 GBL
ISIR_EFC_SMRY_DT08           Fed EFC Sum&ry/Detail 07 ISIR_EFC_SMRY_DT08 GBL
ISIR_EFC_SMRY_DT09           Fed EFC Sum&ry/Detail 08 ISIR_EFC_SMRY_DT09 GBL
---------------
INAS_SUMMARY_06_07           Inst EFC S&umry/Detail 0 INAS_IM_SMRY_07    GBL
INAS_SUMMARY_07_08           Inst EFC S&umry/Detail 0 INAS_IM_SMRY_08    GBL
INAS_SUMMARY_08_09           Inst EFC S&umry/Detail 0 INAS_IM_SMRY_09    GBL
---------------
ISIR_CORRECTION_AUDITS       ISI&R Correction Audits  ISIR_AUDITS        GBL
INST_CORRECTION_AUDITS       I&NST Correction Audits  INST_AUDITS        GBL
---------------
ACTIVE_SERVICE_INDICATORS    &Active Service Indicato ACTIVE_SRVC_INDICA GBL
---------------
BUDGET_REVIEW                Student Budget S&ummary  STDNT_BUDGET_SUMM  GBL
STDNT_BDGT_ASGN              Batch &Budget Review     STDNT_BDGT_ASGN    GBL
---------------
CHECKLIST_SUMMARY            Chec&klist Summary       CHKLST_SUMM_PERS   GBL
COMMENT_SUMMARY              Comment &Summary         OPR_3C_SUM_PERS    GBL
COMMUNICATION_SUMMARY        Commu&nication Summary   COMM_SUMMARY_PERS  GBL
---------------
VERIF_CONSL_SMRY             Batch &Consolidation Det VERIF_CONSL_SMRY   GBL
VERIF_COMP_SMRY              Batch V&erification Summ VERIF_COMP_SMRY    GBL
STDNT_VERIF_DTL              Batch &Verification Deta STDNT_VERIF_DTL    GBL
---------------
NSLDS_INQUIRY                NS&LDS Inquiry           NSLDS_LOAN_INFO    GBL

PROCESS                    &Process
BUILD_BUDGET1                &1: Bdgt Asgn/Select Stu RUNCTL_FABUDGET1   GBL
BUILD_BUDGET2                &2: Bdgt Asgn/Process Fo RUNCTL_FABUDGET2   GBL
BUILD_BUDGET3                &3: Bdgt Asgn/Process Tu RUNCTL_FABUDGET3   GBL
BUILD_BUDGET4                &4: Bdgt Asgn/Assign Bud RUNCTL_FABUDGET4   GBL
BUILD_BUDGET5                &*. Bdgt Asgn/Table Main RUNCTL_FABUDGET5   GBL
PELL_ADJ                     &6: Pell Adjustments     RUNCTL_FAPPBGTB    GBL
---------------
RUNCTL_FA_CONSL              Batch &Consolidation     RUNCTL_FA_CONSL    GBL
RUNCTL_FAPCMPR1              Batch &Verification      RUNCTL_FAPCMPR1_01 GBL
---------------
MASS_CHANGE                  &Run Mass Change         RUN_MASSCHNG       GBL
---------------
RUNCTL_FAPINCLC              INAS &Batch Calc         RUNCTL_FAPINCLC    GBL
---------------

REPORT                     &Report
RUNCNTL_FAISRJAS             ISIR Rej/Assumption &Ove RUNCNTL_FAISRJAS   GBL

Component Detail

Component: INAS_SIMULATION_09 (GBL)
	Description	INAS Simulation 2008-2009	
	Search Record	INAS_SIM_09_VW	
	Add Search Record	
	Disable Saving Page	No	
	Include in Navigator	Yes	
	Mandatory SpellCheck	No	
	Detail Page	INAS_SIM_STU1_06	
	Actions	Update 	
	Comments	
		INAS Simulation panelgroup for 2008-2009 aid year.

	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)	Yes	
	Disp Hiperlinks (bottom)	Yes	
	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	Yes	
	   Prev Page	Yes	
	   Refresh	No	
	   Notify	No	
	   View Worklist	No	
	   Next Worklist	No	
	   Prov Worklist	No	
	   Add	No	
	   Update	Yes	
	   UpdateAll	No	
	   Correction	No	
	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
INAS_SIM_STU1_09   INAS_SIM_STU1_09              Student Income/Assets
INAS_SIM_STU2_08   INAS_SIM_STU2_08              Student Information
INAS_SIM_PAR1_06   INAS_SIM_PAR1_06              Parent Income/Assets
INAS_SIM_PAR2_08   INAS_SIM_PAR2_08              Parent Information
INAS_SIM_OVRD_09   INAS_SIM_OVRD_09              Overrides

Component: ISIR_CORRPIA05 (GBL)
	Description	ISIR Corrections 04/05
	Search Record	ISIR_CORR05SRCH
	Add Search Record	
	Disable Saving Page	Yes	No
	Include in Navigator	No
	Mandatory SpellCheck	No
	Detail Page	ISIR_PIA_CS1_05
	Actions	Correct 

	Internet
	Primary Action	Search
	Default Action	Correct 
	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)	Yes
	Disp Hiperlinks (bottom)	Yes
	Processing Mode	Deffered
	Allow Expert Entry	No
	Show ToolBar	Yes
	   Save	No	Yes
	   Cancel	No
	   SpellCheck	No
	   Return to List	Yes
	   Next in List	Yes
	   Prev in List	Yes
	   Next Page	No
	   Prev Page	No
	   Refresh	Yes
	   Notify	No
	   View Worklist	No
	   Next Worklist	No
	   Prov Worklist	No
	   Add	No
	   Update	No
	   UpdateAll	No
	   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
ISIR_PIA_CS1_05    ISIR_PIA_CS1_05               FAFSA Information
ISIR_PIA_CS2_05    ISIR_PIA_CS2_05               Assumptions\School Code
ISIR_PIA_CS3_05    ISIR_PIA_CS3_05               EFC\DB Matches\Corr

Component: ISIR_CORRPIA06 (GBL)
	Description	ISIR Corrections 05/06
	Search Record	ISIR_CORR06SRCH
	Add Search Record	
	Disable Saving Page	Yes	No
	Include in Navigator	No	Yes
	Mandatory SpellCheck	No
	Detail Page	ISIR_PIA_CS1_06
	Actions	Correct 

	Internet
	Primary Action	Search
	Default Action	Correct 
	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)	Yes
	Disp Hiperlinks (bottom)	Yes
	Processing Mode	Deffered
	Allow Expert Entry	No
	Show ToolBar	Yes
	   Save	No	Yes
	   Cancel	No
	   SpellCheck	No
	   Return to List	Yes
	   Next in List	Yes
	   Prev in List	Yes
	   Next Page	No
	   Prev Page	No
	   Refresh	Yes
	   Notify	No
	   View Worklist	No
	   Next Worklist	No
	   Prov Worklist	No
	   Add	No
	   Update	No
	   UpdateAll	No
	   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
ISIR_PIA_CS1_06    ISIR_PIA_CS1_06               FAFSA Information
ISIR_PIA_CS2_06    ISIR_PIA_CS2_06               Assumptions\School Code
ISIR_PIA_CS3_06    ISIR_PIA_CS3_06               EFC\DB Matches\Corr

Component: RUN_CNTL_ASG872 (GBL)
	Description	ACG/SMART YTD Errors
	Search Record	PRCSRUNCNTL
	Add Search Record	
	Disable Saving Page	No
	Include in Navigator	No	Yes
	Mandatory SpellCheck	No
	Detail Page	SFA_ASG_872_RPT
	Actions	Add Update 
	Comments	Used with Crystal run control SFA872

	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)	Yes
	Processing Mode	Interactive
	Allow Expert Entry	No
	Show ToolBar	Yes
	   Save	Yes
	   Cancel	No
	   SpellCheck	No
	   Return to List	Yes
	   Next in List	No
	   Prev in List	No
	   Next Page	Yes
	   Prev Page	Yes
	   Refresh	No
	   Notify	No
	   View Worklist	No
	   Next Worklist	No
	   Prov Worklist	No
	   Add	Yes
	   Update	Yes
	   UpdateAll	No
	   Correction	No
	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
SFA_ASG_872_RPT    SFA_ASG_872_RPT               Sfa Asg 872 Rpt

Component: RUN_CNTL_ASG874 (GBL)
	Description	ACG/SMART Disb YTD Errors
	Search Record	PRCSRUNCNTL
	Add Search Record	
	Disable Saving Page	No
	Include in Navigator	No	Yes
	Mandatory SpellCheck	No
	Detail Page	SFA_ASG_874_RPT
	Actions	Add Update 
	Comments	ACG/SMART Grant Disbursement Year To Date Errors

	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)	Yes
	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	Yes
	   Prev Page	Yes
	   Refresh	No
	   Notify	No
	   View Worklist	No
	   Next Worklist	No
	   Prov Worklist	No
	   Add	Yes
	   Update	Yes
	   UpdateAll	No
	   Correction	No
	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
SFA_ASG_874_RPT    SFA_ASG_874_RPT               Sfa Asg 874 Rpt

Component: RUN_CNTL_PGDYTD_ER (GBL)
	Description	Pell YTD All Recipients
	Search Record	PRCSRUNCNTL
	Add Search Record	
	Disable Saving Page	No
	Include in Navigator	No	Yes
	Mandatory SpellCheck	No
	Detail Page	RUN_CNTL_0PG3_RPT
	Actions	Add Update 
	Comments	Used with Crystal run control FA871

	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)	Yes
	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	Yes
	   Prev Page	Yes
	   Refresh	No
	   Notify	No
	   View Worklist	No
	   Next Worklist	No
	   Prov Worklist	No
	   Add	Yes
	   Update	Yes
	   UpdateAll	No
	   Correction	No
	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
RUN_CNTL_0PG3_RPT  RUN_CNTL_0PG3_RPT             Run Cntl 0pg3 Rpt

Component: RUN_CNTL_PGOYTD_ER (GBL)
	Description	Pell YTD All Recipients
	Search Record	PRCSRUNCNTL
	Add Search Record	
	Disable Saving Page	No
	Include in Navigator	No	Yes
	Mandatory SpellCheck	No
	Detail Page	RUN_CNTL_PG_RPT
	Actions	Add Update 
	Comments	Used with Crystal run control FA871

	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)	Yes
	Disp Hiperlinks (bottom)	Yes
	Processing Mode	Interactive
	Allow Expert Entry	No
	Show ToolBar	Yes
	   Save	Yes
	   Cancel	No
	   SpellCheck	No
	   Return to List	Yes
	   Next in List	No
	   Prev in List	No
	   Next Page	Yes
	   Prev Page	Yes
	   Refresh	No
	   Notify	No
	   View Worklist	No
	   Next Worklist	No
	   Prov Worklist	No
	   Add	Yes
	   Update	Yes
	   UpdateAll	No
	   Correction	No
	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
RUN_CNTL_PG3_RPT   RUN_CNTL_PG3_RPT              YTD Orig &Errors

Component: SFA_VERIFICATION06 (GBL)
	Description	Appl Data Verification 05/06
	Search Record	SFA_VERIF_VW6
	Add Search Record	
	Disable Saving Page	Yes	No
	Include in Navigator	No	Yes
	Mandatory SpellCheck	No
	Detail Page	PERSONAL_DATA1
	Actions	Update 
	Comments	Verification 2006

	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)	Yes
	Disp Hiperlinks (bottom)	Yes
	Processing Mode	Interactive
	Allow Expert Entry	No
	Show ToolBar	Yes
	   Save	No	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	No
	   Update	Yes
	   UpdateAll	No
	   Correction	No
	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
VERIF02_FORM1      VERIF02_FORM1                 Household Info          Household Info
VERIF04_FORM2      VERIF04_FORM2                 Tax Form Data           Tax Form Data
VERIF03_FORM3      VERIF03_FORM3                 W-2 Form                W-2 Form
VERIF02_FORM_WSA   VERIF02_FORM_WSA              Worksheet A             Worksheet A
VERIF04_FORM_WSB   VERIF04_FORM_WSB              Worksheet B             Worksheet B
VERIF02_FORM_WSC   VERIF02_FORM_WSC              Worksheet C             Worksheet C
VERIF_TAX_CONSL_03 VERIF_TAX_CONSL_03            Tax Data Consolidation

Message Catalog Detail

Message Catalog Entry: Stdnt Admin - Authorization 	14441, 90 (ENG)
	Severity	Message	
	Msg Text	Student's eligibility status is set to ineligible.	
	Explanation	
		Student's eligibility status is set to ineligible.

SQL Detail

SQL: AGGR_AREA_VW 	View

SQL: INAS_BTCH_YR_VW 	View

SQL Statement
SELECT INSTITUTION,
      AID_YEAR,
      DESCR,
      DESCRSHORT
 FROM  PS_AID_YEAR_TBL
 WHERE AID_YEAR >= '2007'

SQL: INAS_SIM_09_VW 	View

SQL Statement

SELECT A.EMPLID,
      A.INSTITUTION,
      A.AID_YEAR,
      A.EFFDT,
      A.EFFSEQ,
      A.ISIR_TXN_NBR
 FROM  PS_ISIR_CONTROL A
 WHERE A.AID_YEAR = '2009'
   AND A.EFFDT = (SELECT MAX(EFFDT)
      FROM  PS_ISIR_CONTROL A1
      WHERE A1.EMPLID = A.EMPLID
        AND A1.INSTITUTION = A.INSTITUTION
        AND A1.AID_YEAR = A.AID_YEAR
        AND A1.EFFSEQ = A.EFFSEQ
        AND A1.EFFDT <= %CurrentDateIn)
        AND A.EFFSEQ = (SELECT MAX(EFFSEQ)
            FROM  PS_ISIR_CONTROL A2
            WHERE A2.EMPLID = A.EMPLID
              AND A2.INSTITUTION = A.INSTITUTION
              AND A2.AID_YEAR = A.AID_YEAR
              AND A2.EFFDT = A.EFFDT)

PeopleCode Detail

PeopleCode (Record): DERIVED_BDGT.INFORMATION_SOURCE.RowInit
&I_R_AK [/0] [/0]
method [/0] [/0] [/0] [/0] [/0] [/0] [/0] [/0] [/0];
&NOSC SrlSlc 1, Record.FA_APP_SRC_RANK, Record.FA_APP_SRC_RANK, "weeIsiuin=: n i_er=2)&" 1 To AtvRwon FA_APP_SRC_RANK.INFORMATION_SOURCE)
&MIN_SRC_RANK = 99;
&INFO_SRC = "";
ScrollSelect(1, Record.FA_APP_SRC_RANK, Record.FA_APP_SRC_RANK, "where Institution = :1 and Aid_Year =:2", STDNT_AID_SRCH.INSTITUTION, STDNT_AID_SRCH.AID_YEAR);
For &I = 1 To ActiveRowCount(FA_APP_SRC_RANK.INFORMATION_SOURCE);
   &RANK = FetchValue(FA_APP_SRC_RANK.SOURCE_RANK, &I);
   If &RANK < &MIN_SRC_RANK Then
      &MIN_SRC_RANK = &RANK;
      &INFO_SRC = FetchValue(FA_APP_SRC_RANK.INFORMATION_SOURCE, &I);
   End-If;
End-For;

&EMPLID = STDNT_AID_SRCH.EMPLID;
&INSTITUTION = STDNT_AID_SRCH.INSTITUTION;
&AID_YEAR = STDNT_AID_SRCH.AID_YEAR;

/* SELECT VALUES FROM ISIR_STUDENT */
SQLExec("SELECT A.DEPNDNCY_STAT,A.HOUSING_CODE_1,A.SCHOOL_CHOICE_1,A.HOUSING_CODE_2,A.SCHOOL_CHOICE_2,A.HOUSING_CODE_3,A.SCHOOL_CHOICE_3,A.HOUSING_CODE_4,A.SCHOOL_CHOICE_4,A.HOUSING_CODE_5,A.SCHOOL_CHOICE_5,A.HOUSING_CODE_6,A.SCHOOL_CHOICE_6,A.SFA_HOUSING_CODE7,SFA_SCHL_CHOICE_7,A.SFA_HOUSING_CODE8,SFA_SCHL_CHOICE_8,A.SFA_HOUSING_CODE9,SFA_SCHL_CHOICE_9,A.SFA_HOUSING_CODE10,SFA_SCHL_CHOICE_10,A.NUM_FAMILY_MEMBERS FROM PS_ISIR_STUDENT A WHERE A.EMPLID=:1 AND A.INSTITUTION=:2 AND A.AID_YEAR=:3 AND A.EFFDT=(SELECT MAX(X.EFFDT) FROM PS_ISIR_STUDENT X WHERE X.EMPLID=A.EMPLID AND X.INSTITUTION=A.INSTITUTION AND X.AID_YEAR=A.AID_YEAR) AND A.EFFSEQ=(SELECT MAX(Z.EFFSEQ) FROM PS_ISIR_STUDENT Z	WHERE Z.EMPLID=A.EMPLID	AND Z.INSTITUTION=A.INSTITUTION	AND Z.AID_YEAR=A.AID_YEAR AND Z.EFFDT=A.EFFDT)", &EMPLID, &INSTITUTION, &AID_YEAR, &DEPNDNCY_STAT, &HOUSING_CODE_1, &SCHOOL_CHOICE_1, &HOUSING_CODE_2, &SCHOOL_CHOICE_2, &HOUSING_CODE_3, &SCHOOL_CHOICE_3, &HOUSING_CODE_4, &SCHOOL_CHOICE_4, &HOUSING_CODE_5, &SCHOOL_CHOICE_5, &HOUSING_CODE_6, &SCHOOL_CHOICE_6, &SFA_HOUSING_CODE7, &SFA_SCHL_CHOICE_7, &SFA_HOUSING_CODE8, &SFA_SCHL_CHOICE_8, &SFA_HOUSING_CODE9, &SFA_SCHL_CHOICE_9, &SFA_HOUSING_CODE10, &SFA_SCHL_CHOICE_10, &NUM_FAMILY_MEMBERS);
/* SELECT VALUES FROM ISIR_PARENT */
SQLExec("SELECT A.NUMBER_IN_FAMILY FROM PS_ISIR_PARENT A WHERE A.EMPLID=:1 AND A.INSTITUTION=:2 AND A.AID_YEAR=:3 AND A.EFFDT=(SELECT MAX(X.EFFDT) FROM PS_ISIR_STUDENT X WHERE X.EMPLID=A.EMPLID AND X.INSTITUTION=A.INSTITUTION AND X.AID_YEAR=A.AID_YEAR) AND A.EFFSEQ=(SELECT MAX(Z.EFFSEQ) FROM PS_ISIR_STUDENT Z	WHERE Z.EMPLID=A.EMPLID	AND Z.INSTITUTION=A.INSTITUTION	AND Z.AID_YEAR=A.AID_YEAR AND Z.EFFDT=A.EFFDT)", &EMPLID, &INSTITUTION, &AID_YEAR, &NUMBER_IN_FAMILY);
/* SELECT OWNING_SCHOOL_CD FROM ISIR_CONTROL */
SQLExec("SELECT A.OWNING_SCHOOL_CD FROM PS_ISIR_CONTROL A WHERE A.EMPLID=:1 AND A.INSTITUTION=:2 AND A.AID_YEAR=:3 AND A.EFFDT=(SELECT MAX(X.EFFDT) FROM PS_ISIR_CONTROL X WHERE X.EMPLID=A.EMPLID AND X.INSTITUTION=A.INSTITUTION AND X.AID_YEAR=A.AID_YEAR) AND A.EFFSEQ=(SELECT MAX(Z.EFFSEQ) FROM PS_ISIR_CONTROL Z WHERE Z.EMPLID=A.EMPLID AND Z.INSTITUTION=A.INSTITUTION AND Z.AID_YEAR=A.AID_YEAR AND Z.EFFDT=A.EFFDT)", &EMPLID, &INSTITUTION, &AID_YEAR, &OWNING_SCHOOL_CD);

DERIVED_BDGT.INFORMATION_SOURCE = &INFO_SRC;
Evaluate DERIVED_BDGT.INFORMATION_SOURCE
When = "I"
   DERIVED_BDGT.DEPNDNCY_STAT = FetchValue(STDNT_BGT_INTVW.DEPNDNCY_STAT, 1);
   If None(DERIVED_BDGT.DEPNDNCY_STAT) Then
      DERIVED_BDGT.DEPNDNCY_STAT = &DEPNDNCY_STAT;
   End-If;
   DERIVED_BDGT.HOUSING_TYPE = FetchValue(STDNT_BGT_HSEVW.HOUSING_CODE, 1);
   If None(DERIVED_BDGT.HOUSING_TYPE) Then
      If &SCHOOL_CHOICE_1 = &OWNING_SCHOOL_CD Then
         DERIVED_BDGT.HOUSING_TYPE = &HOUSING_CODE_1;
      End-If;
      If &SCHOOL_CHOICE_2 = &OWNING_SCHOOL_CD Then
         DERIVED_BDGT.HOUSING_TYPE = &HOUSING_CODE_2;
      End-If;
      If &SCHOOL_CHOICE_3 = &OWNING_SCHOOL_CD Then
         DERIVED_BDGT.HOUSING_TYPE = &HOUSING_CODE_3;
      End-If;
      If &SCHOOL_CHOICE_4 = &OWNING_SCHOOL_CD Then
         DERIVED_BDGT.HOUSING_TYPE = &HOUSING_CODE_4;
      End-If;
      If &SCHOOL_CHOICE_5 = &OWNING_SCHOOL_CD Then
         DERIVED_BDGT.HOUSING_TYPE = &HOUSING_CODE_5;
      End-If;
      If &SCHOOL_CHOICE_6 = &OWNING_SCHOOL_CD Then
         DERIVED_BDGT.HOUSING_TYPE = &HOUSING_CODE_6;
      End-If;
      If &SFA_SCHL_CHOICE_7 = &OWNING_SCHOOL_CD Then
         DERIVED_BDGT.HOUSING_TYPE = &SFA_HOUSING_CODE7;
      End-If;
      If &SFA_SCHL_CHOICE_8 = &OWNING_SCHOOL_CD Then
         DERIVED_BDGT.HOUSING_TYPE = &SFA_HOUSING_CODE8;
      End-If;
      If &SFA_SCHL_CHOICE_9 = &OWNING_SCHOOL_CD Then
         DERIVED_BDGT.HOUSING_TYPE = &SFA_HOUSING_CODE9;
      End-If;
      If &SFA_SCHL_CHOICE_10 = &OWNING_SCHOOL_CD Then
         DERIVED_BDGT.HOUSING_TYPE = &SFA_HOUSING_CODE10;
      End-If;
   End-If;
   DERIVED_BDGT.NUMBER_IN_FAMILY = FetchValue(STDNT_BGT_APPVW.NUM_FAMILY_MEMBERS, 1);
   If None(DERIVED_BDGT.NUMBER_IN_FAMILY) Then
      If DERIVED_BDGT.DEPNDNCY_STAT = "I" Then
         DERIVED_BDGT.NUMBER_IN_FAMILY = &NUM_FAMILY_MEMBERS;
      Else
         DERIVED_BDGT.NUMBER_IN_FAMILY = &NUMBER_IN_FAMILY;
      End-If;
   End-If;
   Break;
When-Other
   DERIVED_BDGT.DEPNDNCY_STAT = &DEPNDNCY_STAT;
   If None(DERIVED_BDGT.DEPNDNCY_STAT) Then
      DERIVED_BDGT.DEPNDNCY_STAT = FetchValue(STDNT_BGT_INTVW.DEPNDNCY_STAT, 1);
   End-If;
   If None(DERIVED_BDGT.HOUSING_TYPE) Then
      If &SCHOOL_CHOICE_1 = &OWNING_SCHOOL_CD Then
         DERIVED_BDGT.HOUSING_TYPE = &HOUSING_CODE_1;
      End-If;
      If &SCHOOL_CHOICE_2 = &OWNING_SCHOOL_CD Then
         DERIVED_BDGT.HOUSING_TYPE = &HOUSING_CODE_2;
      End-If;
      If &SCHOOL_CHOICE_3 = &OWNING_SCHOOL_CD Then
         DERIVED_BDGT.HOUSING_TYPE = &HOUSING_CODE_3;
      End-If;
      If &SCHOOL_CHOICE_4 = &OWNING_SCHOOL_CD Then
         DERIVED_BDGT.HOUSING_TYPE = &HOUSING_CODE_4;
      End-If;
      If &SCHOOL_CHOICE_5 = &OWNING_SCHOOL_CD Then
         DERIVED_BDGT.HOUSING_TYPE = &HOUSING_CODE_5;
      End-If;
      If &SCHOOL_CHOICE_6 = &OWNING_SCHOOL_CD Then
         DERIVED_BDGT.HOUSING_TYPE = &HOUSING_CODE_6;
      End-If;
      If &SFA_SCHL_CHOICE_7 = &OWNING_SCHOOL_CD Then
         DERIVED_BDGT.HOUSING_TYPE = &SFA_HOUSING_CODE7;
      End-If;
      If &SFA_SCHL_CHOICE_8 = &OWNING_SCHOOL_CD Then
         DERIVED_BDGT.HOUSING_TYPE = &SFA_HOUSING_CODE8;
      End-If;
      If &SFA_SCHL_CHOICE_9 = &OWNING_SCHOOL_CD Then
         DERIVED_BDGT.HOUSING_TYPE = &SFA_HOUSING_CODE9;
      End-If;
      If &SFA_SCHL_CHOICE_10 = &OWNING_SCHOOL_CD Then
         DERIVED_BDGT.HOUSING_TYPE = &SFA_HOUSING_CODE10;
      End-If;
   End-If;
   If None(DERIVED_BDGT.HOUSING_TYPE) Then
      DERIVED_BDGT.HOUSING_TYPE = FetchValue(STDNT_BGT_HSEVW.HOUSING_CODE, 1);
   End-If;
   If DERIVED_BDGT.DEPNDNCY_STAT = "I" Then
      DERIVED_BDGT.NUMBER_IN_FAMILY = &NUM_FAMILY_MEMBERS;
   Else
      DERIVED_BDGT.NUMBER_IN_FAMILY = &NUMBER_IN_FAMILY;
   End-If;
   If None(DERIVED_BDGT.NUMBER_IN_FAMILY) Then
      DERIVED_BDGT.NUMBER_IN_FAMILY = FetchValue(STDNT_BGT_APPVW.NUM_FAMILY_MEMBERS, 1);
   End-If;
End-Evaluate;

PeopleCode (Record): DERIVED_FA.BATCH_CALC_YEAR.FieldChange
If %Panel = Panel.RUNCTL_FAPINCLC Then
   /*----------------------------------------------------------*/
   /*--  Beginning in Aid Year '2005', when starting a new   --*/
   /*--  Aid Year, activate this logic for Regs1 (IM) and    --*/
   /*--  deactivate it for FM.                               --*/
   /*----------------------------------------------------------*/
   If DERIVED_FA.BATCH_CALC_YEAR > "2008" Then
      Hide(DERIVED_FA.BATCH_CALC_TYPE);
      UnHide(DERIVED_FA.BATCH_CALC_TYPE_IM);
   /*
   If BATCH_CALC_YEAR > "2008" Then
      Hide(BATCH_CALC_TYPE);
      UnHide(BATCH_CALC_TYPE_IM);
   Else
      Hide(DERIVED_FA.BATCH_CALC_TYPE_IM);
      UnHide(DERIVED_FA.BATCH_CALC_TYPE);
      Hide(BATCH_CALC_TYPE_IM);
      UnHide(BATCH_CALC_TYPE);
   End-If;
   */
   /*----------------------------------------------------------*/
   /*--  Beginning in Aid Year '2005', when starting a new   --*/
   /*--  Aid Year, deactivate this logic for Regs1 (IM) and  --*/
   /*--  activate it for FM.                                 --*/
   /*----------------------------------------------------------*/
   /*
   Hide(BATCH_CALC_TYPE_IM);
   UnHide(BATCH_CALC_TYPE);
   */
   Hide(DERIVED_FA.BATCH_CALC_TYPE_IM);
   UnHide(DERIVED_FA.BATCH_CALC_TYPE);
   /*----------------------------------------------------------*/
   FA_INAS_RUNCTL.AID_YEAR = DERIVED_FA.BATCH_CALC_YEAR;
End-If;

PeopleCode (Record): DERIVED_FA.BATCH_CALC_YEAR.FieldEdit
If DERIVED_FA.BATCH_CALC_YEAR < "2006" Then
If DERIVED_FA.BATCH_CALC_YEAR < "2007" Then
   Warning (MsgGet(14400, 19, "INAS can only be invoked for the 2006-2007, 2007-2008, and 2008-2009 Aid Years."));
End-If;

PeopleCode (Record): DERIVED_FA.BATCH_CALC_YEAR.RowInit
If %Panel = Panel.RUNCTL_FAPINCLC Then
   /*----------------------------------------------------------*/
   /*--  Beginning in Aid Year '2005', when starting a new   --*/
   /*--  Aid Year, activate this logic for Regs1 (IM) and    --*/
   /*--  deactivate it for FM delivery.                      --*/
   /*----------------------------------------------------------*/
   If DERIVED_FA.BATCH_CALC_YEAR > "2008" Then
      Hide(DERIVED_FA.BATCH_CALC_TYPE);
      UnHide(DERIVED_FA.BATCH_CALC_TYPE_IM);
   /*
   If BATCH_CALC_YEAR > "2008" Then
      Hide(BATCH_CALC_TYPE);
      UnHide(BATCH_CALC_TYPE_IM);
   Else
      Hide(DERIVED_FA.BATCH_CALC_TYPE_IM);
      UnHide(DERIVED_FA.BATCH_CALC_TYPE);
      Hide(BATCH_CALC_TYPE_IM);
      UnHide(BATCH_CALC_TYPE);
   End-If;
   */
   /*----------------------------------------------------------*/
   /*--  Beginning in Aid Year '2005', when starting a new   --*/
   /*--  Aid Year, deactivate this logic for Regs1 (IM) and  --*/
   /*--  activate it for FM delivery.                        --*/
   /*----------------------------------------------------------*/
   /*
   Hide(BATCH_CALC_TYPE_IM);
   UnHide(BATCH_CALC_TYPE);
   */
   Hide(DERIVED_FA.BATCH_CALC_TYPE_IM);
   UnHide(DERIVED_FA.BATCH_CALC_TYPE);
   /*----------------------------------------------------------*/
   DERIVED_FA.BATCH_CALC_YEAR = FetchValue(FA_INAS_RUNCTL.AID_YEAR);
End-If;

PeopleCode (Record): DERIVED_FA_HIST.AID_YEAR.FieldFormula
Global string &EMPLID_CARRY;

Function Transfer_To_FA_App_Page(&Link_Name As string)
   
   /* Reset Carry ID so if no data is found the correct Emplid shows */
   &EMPLID_CARRY = DERIVED_FA_HIST.EMPLID;
   
   /* Year specific pages */
   
   Evaluate DERIVED_FA_HIST.AID_YEAR
   When <= ""
      
      MessageBox(0, "", 14405, 2527, "The Aid Year entered is not supported.", DERIVED_FA_HIST.AID_YEAR);
      Break;
      
   When <= "2000"
      
      Evaluate &Link_Name
      When = "INSTAPP"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.MAINTAIN_INST_INFO_HIST, Page.STUDENT_GENERAL_INFO, "U", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR, DERIVED_FA_HIST.APP_SOURCE_CODE);
         Break;
         
      When = "ISIRHIST"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.ISIR_CORR_HISTORY, Page.ISIR_PIA_HIST1, "L", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR);
         Break;
         
      When = "VERIFY"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.VERIFICATION, Page.VERIFICATION_INC, "U", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR);
         Break;
         
      When-Other
         MessageBox(0, "", 14405, 2527, "The Aid Year entered is not supported.", DERIVED_FA_HIST.AID_YEAR);
         Break;
         
      End-Evaluate;
      Break;
      
   When = "2001"
      
      Evaluate &Link_Name
      When = "EFCSMRY"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.ISIR_EFC_SMRY_DT01, Page.ISIR_EFC_SUMRY_DETAIL, "L", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR);
         Break;
         
      When = "INASSMRY"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.INAS_SUMMARY_01, Page.INST_INAS_SMRY_01, "U", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR, DERIVED_FA_HIST.APP_SOURCE_CODE);
         Break;
         
      When = "INSTAPP"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.MAINTAIN_INST_INFO_00_01, Page.INST_STUDENT_01, "U", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR, DERIVED_FA_HIST.APP_SOURCE_CODE);
         Break;
         
      When = "ISIRHIST"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.ISIR_CORRPIA01, Page.ISIR_PIA_CS1_01, "C", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR);
         Break;
         
      When = "VERIFY"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.VERIFICATION_01, Page.VERIFICATION_FORM1, "U", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR);
         Break;
         
      End-Evaluate;
      Break;

   When = "2002"
      
      Evaluate &Link_Name
      When = "EFCSMRY"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.ISIR_EFC_SMRY_DT02, Page.ISIR_EFC_SUMRY_DETAIL, "L", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR);
         Break;
      When = "INASSMRY"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.INAS_SUMMARY_01_02, Page.INST_INAS_SMRY_02, "U", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR, DERIVED_FA_HIST.APP_SOURCE_CODE);
         Break;
         
      When = "INSTAPP"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.MAINTAIN_INST_INFO_01_02, Page.INST_STUDENT_02, "U", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR, DERIVED_FA_HIST.APP_SOURCE_CODE);
         Break;
      When = "ISIRHIST"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.ISIR_CORRPIA02, Page.ISIR_PIA_CS1_02, "C", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR);
         Break;
      When = "VERIFY"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.VERIFICATION_02, Page.VERIF02_FORM1, "U", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR);
         Break;
         
      End-Evaluate;
      Break;

   When = "2003"
      Evaluate &Link_Name
      When = "EFCSMRY"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.ISIR_EFC_SMRY_DT03, Page.ISIR_EFC_SUMRY_DETAIL, "L", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR);
         Break;
      When = "INASSMRY"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.INAS_SUMMARY_02_03, Page.INST_INAS_SMRY_03, "U", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR, DERIVED_FA_HIST.APP_SOURCE_CODE);
         Break;
      When = "INSTAPP"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.MAINTAIN_INST_INFO_02_03, Page.INST_STUDENT_03, "U", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR, DERIVED_FA_HIST.APP_SOURCE_CODE);
         Break;
      When = "ISIRHIST"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.ISIR_CORRPIA03, Page.ISIR_PIA_CS1_03, "C", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR);
         Break;
      When = "VERIFY"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.VERIFICATION_03, Page.VERIF02_FORM1, "U", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR);
         Break;
         
      End-Evaluate;
      Break;

   When = "2004"
      Evaluate &Link_Name
      When = "EFCSMRY"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.ISIR_EFC_SMRY_DT04, Page.ISIR_EFC_SUMRY_DETAIL, "L", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR);
         Break;
      When = "INASSMRY"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.INAS_SUMMARY_03_04, Page.INST_INAS_SMRY_04, "U", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR, DERIVED_FA_HIST.APP_SOURCE_CODE);
         Break;
      When = "INSTAPP"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.MAINTAIN_INST_INFO_03_04, Page.INST_STUDENT_03, "U", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR, DERIVED_FA_HIST.APP_SOURCE_CODE);
         Break;
      When = "ISIRHIST"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.ISIR_CORRPIA04, Page.ISIR_PIA_CS1_04, "C", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR);
         Break;
      When = "VERIFY"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.VERIFICATION_04, Page.VERIF02_FORM1, "U", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR);
         Break;
         
      End-Evaluate;
      Break;

   When = "2005"
      Evaluate &Link_Name
      When = "EFCSMRY"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.ISIR_EFC_SMRY_DT05, Page.ISIR_EFC_SUMRY_DETAIL, "L", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR);
         Break;
      When = "INASSMRY"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.INAS_SUMMARY_04_05, Page.INST_INAS_SMRY_05, "U", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR, DERIVED_FA_HIST.APP_SOURCE_CODE);
         Break;
      When = "INSTAPP"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.MAINTAIN_INST_INFO_04_05, Page.INST_STUDENT_05, "U", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR, DERIVED_FA_HIST.APP_SOURCE_CODE);
         Break;
      When = "ISIRHIST"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.ISIR_CORRPIA05, Page.ISIR_PIA_CS1_05, "C", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR);
         Break;
      When = "VERIFY"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.SFA_VERIFICATION05, Page.VERIF02_FORM1, "U", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR);
         Break;
         
      End-Evaluate;
      Break;

      
   When = "2006"
      Evaluate &Link_Name
      When = "EFCSMRY"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.ISIR_EFC_SMRY_DT06, Page.ISIR_EFC_SUMRY_DETAIL, "L", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR);
         Break;
         
      When = "INASSMRY"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.INAS_SUMMARY_05_06, Page.INST_INAS_SMRY_06, "U", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR, DERIVED_FA_HIST.APP_SOURCE_CODE);
         Break;
         
      When = "INSTAPP"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.MAINTAIN_INST_INFO_05_06, Page.INST_STUDENT_06, "U", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR, DERIVED_FA_HIST.APP_SOURCE_CODE);
         Break;
         
      When = "ISIRHIST"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.ISIR_CORRPIA05, Page.ISIR_PIA_CS1_06, "C", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR);
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.ISIR_CORRPIA06, Page.ISIR_PIA_CS1_06, "C", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR);
         Break;
         
      When = "VERIFY"
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.SFA_VERIFICATION06, Page.VERIF02_FORM1, "U", DERIVED_FA_HIST.EMPLID, DERIVED_FA_HIST.INSTITUTION, DERIVED_FA_HIST.AID_YEAR);
         Break;
         
      End-Evaluate;
      Break;

      
      /* Uncomment when 2006-2007 rolls off menu */
      /*      When = "2007" 
         
         Evaluate &Link_Name
         When = "EFCSMRY" 
            Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.ISIR_EFC_SMRY_DT07, Page.ISIR_EFC_SUMRY_DETAIL, "L", EMPLID, INSTITUTION, AID_YEAR);
            Break;
            
         When = "INASSMRY" 
            Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.INAS_SUMMARY_06_07, Page.INST_INAS_SMRY_07, "U", EMPLID, INSTITUTION, AID_YEAR, APP_SOURCE_CODE);
            Break;
            
         When = "INSTAPP" 
            Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.MAINTAIN_INST_INFO_06_07, Page.INST_STUDENT_06, "U", EMPLID, INSTITUTION, AID_YEAR, APP_SOURCE_CODE);
            Break;

      When = "ISIRHIST" 
         Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.ISIR_CORRPIA06, Page.ISIR_PIA_CS1_07, "C", EMPLID, INSTITUTION, AID_YEAR);
         Break;

         When = "VERIFY" 
            Transfer( True, MenuName.FINANCIAL_AID_HISTORY, BarName.MENUITEM1, ItemName.SFA_VERIFICATION07, Page.VERIF02_FORM1, "U", EMPLID, INSTITUTION, AID_YEAR);
            Break;
                        
         End-Evaluate;
         Break;
*/

   When-Other
      MessageBox(0, "", 14405, 2527, "The Aid Year entered is not supported.", DERIVED_FA_HIST.AID_YEAR);
      Break;
      
   End-Evaluate;

End-Function;

PeopleCode (Record): DERIVED_FA_LBL.IND_PAR_ST_TAX_LBL.RowInit
Hide(DERIVED_FA_LBL.IND_PAR_ST_TAX_LBL);
/*     */
Evaluate %PanelGroup
When = Panel.ISIR_CORRPIA01
When = Panel.ISIR_CORRPIA02
When = Panel.ISIR_CORRPIA03
When = Panel.ISIR_CORRPIA04
When = Panel.ISIR_CORRPIA05
When = Panel.ISIR_CORRPIA06
When = Panel.ISIR_CORRPIA07
When = Panel.ISIR_CORRPIA08
When = PanelGroup.ISIR_CORRPIA01
When = PanelGroup.ISIR_CORRPIA02
When = PanelGroup.ISIR_CORRPIA03
When = PanelGroup.ISIR_CORRPIA04
When = PanelGroup.ISIR_CORRPIA05
When = PanelGroup.ISIR_CORRPIA06
When = PanelGroup.ISIR_CORRPIA07
When = PanelGroup.ISIR_CORRPIA08
When = PanelGroup.ISIR_CORRPIA09
   &AID_YEAR = STDNT_AID_SRCH.AID_YEAR;
When = Panel.PROFILE_DATA
When = Panel.PROFILE_DATA_01
When = Panel.PROFILE_DATA_02
When = Panel.PROFILE_DATA_03
When = Panel.PROFILE_DATA_04
When = Panel.PROFILE_DATA_05
When = Panel.PROFILE_DATA_06
When = Panel.PROFILE_DATA_07
When = Panel.PROFILE_DATA_08
When = PanelGroup.PROFILE_DATA
When = PanelGroup.PROFILE_DATA_01
When = PanelGroup.PROFILE_DATA_02
When = PanelGroup.PROFILE_DATA_03
When = PanelGroup.PROFILE_DATA_04
When = PanelGroup.PROFILE_DATA_05
When = PanelGroup.PROFILE_DATA_06
When = PanelGroup.PROFILE_DATA_07
When = PanelGroup.PROFILE_DATA_08
When = PanelGroup.PROFILE_DATA_09
   &AID_YEAR = INST_CONTROL.AID_YEAR;
End-Evaluate;

If &AID_YEAR >= "2002" Then
   UnHide(DERIVED_FA_LBL.IND_PAR_ST_TAX_LBL);
End-If;

PeopleCode (Record): DERIVED_FA_LBL.LGL_RES_PRI02_LBL.RowInit
Local Field &FIELD;

&FIELD = GetField(DERIVED_FA_LBL.LGL_RES_PRI02_LBL);

Evaluate %Component
When = "INAS_SIMULATION_02"
   &FIELD.Label = &FIELD.GetShortLabel("LGL_RES_PRI02_LBL");
When = "INAS_SIMULATION_03"
   &FIELD.Label = &FIELD.GetShortLabel("LGL_RES_PRI03_LBL");
When = "INAS_SIMULATION_04"
   &FIELD.Label = &FIELD.GetShortLabel("LGL_RES_PRI04_LBL");
When = "INAS_SIMULATION_05"
   &FIELD.Label = &FIELD.GetShortLabel("LGL_RES_PRI05_LBL");
When = "INAS_SIMULATION_06"
   &FIELD.Label = &FIELD.GetShortLabel("LGL_RES_PRI06_LBL");
When = "INAS_SIMULATION_07"
   &FIELD.Label = &FIELD.GetShortLabel("LGL_RES_PRI07_LBL");
When = "INAS_SIMULATION_08"
   &FIELD.Label = &FIELD.GetShortLabel("LGL_RES_PRI08_LBL");
When = "INAS_SIMULATION_09"
   &FIELD.Label = &FIELD.GetShortLabel("LGL_RES_PRI09_LBL");
When = "INAS_SIMULATION_10"
   &FIELD.Label = &FIELD.GetShortLabel("LGL_RES_PRI10_LBL");
When = "INAS_SIMULATION_11"
   &FIELD.Label = &FIELD.GetShortLabel("LGL_RES_PRI11_LBL");
End-Evaluate;

PeopleCode (Record): DERIVED_FA_LBL.NEG_INC_SPLMT_LBL.RowInit
/*     */
Evaluate %PanelGroup
When = Panel.ISIR_CORRPIA01
When = PanelGroup.ISIR_CORRPIA01
When = PanelGroup.ISIR_CORRPIA02
When = PanelGroup.ISIR_CORRPIA03
When = PanelGroup.ISIR_CORRPIA04
When = PanelGroup.ISIR_CORRPIA05
When = PanelGroup.ISIR_CORRPIA06
When = PanelGroup.ISIR_CORRPIA07
When = PanelGroup.ISIR_CORRPIA08
When = PanelGroup.ISIR_CORRPIA09
   &AID_YEAR = STDNT_AID_SRCH.AID_YEAR;
When = Panel.ISIR_CORRPIA02
   &AID_YEAR = STDNT_AID_SRCH.AID_YEAR;
When = Panel.ISIR_CORRPIA03
   &AID_YEAR = STDNT_AID_SRCH.AID_YEAR;
When = Panel.ISIR_CORRPIA04
   &AID_YEAR = STDNT_AID_SRCH.AID_YEAR;
When = Panel.ISIR_CORRPIA05
   &AID_YEAR = STDNT_AID_SRCH.AID_YEAR;
When = Panel.ISIR_CORRPIA06
   &AID_YEAR = STDNT_AID_SRCH.AID_YEAR;
When = Panel.ISIR_CORRPIA07
   &AID_YEAR = STDNT_AID_SRCH.AID_YEAR;
When = Panel.ISIR_CORRPIA08
   &AID_YEAR = STDNT_AID_SRCH.AID_YEAR;
When = Panel.PROFILE_DATA
When = Panel.PROFILE_DATA_01
When = Panel.PROFILE_DATA_02
When = Panel.PROFILE_DATA_03
When = Panel.PROFILE_DATA_04
When = Panel.PROFILE_DATA_05
When = Panel.PROFILE_DATA_06
When = Panel.PROFILE_DATA_07
When = Panel.PROFILE_DATA_08
When = Panel.PROFILE_DATA_09
When = PanelGroup.PROFILE_DATA
When = PanelGroup.PROFILE_DATA_01
When = PanelGroup.PROFILE_DATA_02
When = PanelGroup.PROFILE_DATA_03
When = PanelGroup.PROFILE_DATA_04
When = PanelGroup.PROFILE_DATA_05
When = PanelGroup.PROFILE_DATA_06
When = PanelGroup.PROFILE_DATA_07
When = PanelGroup.PROFILE_DATA_08
When = PanelGroup.PROFILE_DATA_09
   &AID_YEAR = INST_CONTROL.AID_YEAR;
End-Evaluate;

If &AID_YEAR >= "2001" Then
   Hide(DERIVED_FA_LBL.NEG_INC_SPLMT_LBL);
End-If;

PeopleCode (Record): DERIVED_SA.DEPNDNCY_OVRD_SIM.FieldChange
If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   INAS_SIM_INT.DEPNDNCY_OVERRIDE = DERIVED_SA.DEPNDNCY_OVRD_SIM;
End-If;

PeopleCode (Record): DERIVED_SA.DEPNDNCY_OVRD_SIM.RowInit
If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   DERIVED_SA.DEPNDNCY_OVRD_SIM = INAS_SIM_INT.DEPNDNCY_OVERRIDE;
End-If;

PeopleCode (Record): DERIVED_SA.FEDERAL_EXT_PB.FieldChange
/*
If %PanelGroup = PanelGroup.INAS_SIMULATION Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_00 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_01 Then
   DoModal(Panel.INAS_SIM_FEDEX_SEC, "INAS Simulation Federal Extension", - 1, - 1);
Else
   If %PanelGroup = PanelGroup.INAS_SIMULATION_02 Or
         %PanelGroup = PanelGroup.INAS_SIMULATION_03 Then
      DoModal(Panel.INAS_SIM_FEDEX_S02, "INAS Simulation Federal Extension", - 1, - 1);
   Else
      If %PanelGroup = PanelGroup.INAS_SIMULATION_04 Then
         DoModal(Panel.INAS_SIM_FEDEX_S04, "", - 1, - 1);
      Else
         If %PanelGroup = PanelGroup.INAS_SIMULATION_05 Or
             %PanelGroup = PanelGroup.INAS_SIMULATION_06 Or
             %PanelGroup = PanelGroup.INAS_SIMULATION_07 Or
               %PanelGroup = PanelGroup.INAS_SIMULATION_08 Then
            DoModal(Panel.INAS_SIM_FEDEX_S05, "", - 1, - 1);
         Else
            &TITLE = MsgGetText(14404, 271, "INAS Federal Extension");
            If %PanelGroup = PanelGroup.ISIR_CORR_HISTORY Then
               DoModal(Panel.INAS_FED_EXT_H_SEC, &TITLE, - 1, - 1);
            Else
               If %PanelGroup = PanelGroup.ISIR_CORRPIA02 Or
                     %PanelGroup = PanelGroup.ISIR_CORRPIA03 Or
                     %PanelGroup = PanelGroup.PROFILE_DATA_02 Or
                     %PanelGroup = PanelGroup.PROFILE_DATA_03 Or
                     %PanelGroup = PanelGroup.FAFSA_DATA_02 Then
                  DoModal(Panel.INAS_FED_EXT02_SEC, &TITLE, - 1, - 1);
               Else
                  If %PanelGroup = PanelGroup.ISIR_CORRPIA04 Or
                        %PanelGroup = PanelGroup.PROFILE_DATA_04 Then
                        DoModal(Panel.INAS_FED_EXT04_SEC, &TITLE, - 1, - 1);
                  Else
                     If %PanelGroup = PanelGroup.ISIR_CORRPIA05 Or
                           %PanelGroup = PanelGroup.ISIR_CORRPIA06 Or
                           %PanelGroup = PanelGroup.ISIR_CORRPIA07 Or
                           %PanelGroup = PanelGroup.ISIR_CORRPIA08 Or
                           %PanelGroup = PanelGroup.ISIR_CORRPIA09 Or
                           %PanelGroup = PanelGroup.PROFILE_DATA_05 Or
                           %PanelGroup = PanelGroup.PROFILE_DATA_06 Or
                           %PanelGroup = PanelGroup.PROFILE_DATA_07 Or
                           %PanelGroup = PanelGroup.PROFILE_DATA_08 Or
                           %PanelGroup = PanelGroup.PROFILE_DATA_09 Then
                        DoModal(Panel.INAS_FED_EXT05_SEC, &TITLE, - 1, - 1);
                     Else
                        DoModal(Panel.INAS_FED_EXT1_SEC, &TITLE, - 1, - 1);
                     End-If;
                  End-If;
               End-If;
            End-If;
         End-If;
      End-If;
   End-If;
End-If;
*/

&COMPONENT = Substring(%Component, 1, 15);
If &COMPONENT = "INAS_SIMULATION" Then
   &TITLE = " ";
Else
   &TITLE = MsgGetText(14404, 271, "INAS Federal Extension");
End-If;

Evaluate %PanelGroup
When = "INAS_SIMULATION"
When = "INAS_SIMULATION_00"
When = "INAS_SIMULATION_01"
   DoModal(Panel.INAS_SIM_FEDEX_SEC, &TITLE, - 1, - 1);
When = "INAS_SIMULATION_02"
When = "INAS_SIMULATION_03"
   DoModal(Panel.INAS_SIM_FEDEX_S02, &TITLE, - 1, - 1);
When = "INAS_SIMULATION_04"
   DoModal(Panel.INAS_SIM_FEDEX_S04, &TITLE, - 1, - 1);
When = "INAS_SIMULATION_05"
   DoModal(Panel.INAS_SIM_FEDEX_S05, &TITLE, - 1, - 1);
When = "INAS_SIMULATION_06"
When = "INAS_SIMULATION_07"
When = "INAS_SIMULATION_08"
When = "INAS_SIMULATION_09"
   DoModal(Panel.INAS_SIM_FEDEX_S06, &TITLE, - 1, - 1);
When = "ISIR_CORR_HISTORY"
   DoModal(Panel.INAS_FED_EXT_H_SEC, &TITLE, - 1, - 1);
When = "ISIR_CORRPIA02"
When = "ISIR_CORRPIA03"
When = "PROFILE_DATA_02"
When = "PROFILE_DATA_03"
When = "FAFSA_DATA_02"
   DoModal(Panel.INAS_FED_EXT02_SEC, &TITLE, - 1, - 1);
When = "ISIR_CORRPIA04"
When = "PROFILE_DATA_04"
   DoModal(Panel.INAS_FED_EXT04_SEC, &TITLE, - 1, - 1);
When = "ISIR_CORRPIA05"
When = "PROFILE_DATA_05"
   DoModal(Panel.INAS_FED_EXT05_SEC, &TITLE, - 1, - 1);
When = "ISIR_CORRPIA06"
When = "PROFILE_DATA_06"
   DoModal(Panel.INAS_FED_EXT06_SEC, &TITLE, - 1, - 1);
When = "ISIR_CORRPIA07"
When = "PROFILE_DATA_07"
   DoModal(Panel.INAS_FED_EXT07_SEC, &TITLE, - 1, - 1);
When = "ISIR_CORRPIA08"
When = "PROFILE_DATA_08"
When = "ISIR_CORRPIA09"
When = "PROFILE_DATA_09"
   DoModal(Panel.INAS_FED_EXT08_SEC, &TITLE, - 1, - 1);
When-Other
   DoModal(Panel.INAS_FED_EXT1_SEC, &TITLE, - 1, - 1);
End-Evaluate;

PeopleCode (Record): DERIVED_SA.INAS_SIM_F_PB.FieldChange
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

&ROW1 = CurrentRowNumber(1);
&ROW2 = CurrentRowNumber(2);
&CUROW = 1;
/*----------------------------*/
/* Delete Old Simulation Rows */
/*----------------------------*/
DeleteRow(Record.INAS_SIM_STU, &CUROW);
DeleteRow(Record.INAS_SIM_PAR, &CUROW);
DeleteRow(Record.INAS_SIM_INT, &CUROW);
DeleteRow(Record.INAS_SIM_COMP, &CUROW);
/*----------------------------*/
/* Insert New Simulation Rows */
/*----------------------------*/
InsertRow(Record.INAS_SIM_STU, &CUROW);
InsertRow(Record.INAS_SIM_PAR, &CUROW);
InsertRow(Record.INAS_SIM_INT, &CUROW);
InsertRow(Record.INAS_SIM_COMP, &CUROW);
/*----------------------------------------*/
/* Load Student Simulation Data from ISIR */
/*----------------------------------------*/
CopyFields(2, Record.ISIR_CONTROL, &ROW1, Record.ISIR_STUDENT, &ROW2, 1, Record.INAS_SIM_STU, &CUROW);
/*----------------------------------------*/
/* Load Parent Simulation Data from ISIR  */
/*----------------------------------------*/
CopyFields(2, Record.ISIR_CONTROL, &ROW1, Record.ISIR_PARENT, &ROW2, 1, Record.INAS_SIM_PAR, &CUROW);
/*----------------------------------------------------*/
/* Load Override/Interpret Simulation Data from ISIR  */
/*----------------------------------------------------*/
CopyFields(2, Record.ISIR_CONTROL, &ROW1, Record.ISIR_INTERPRET, &ROW2, 1, Record.INAS_SIM_INT, &CUROW);
/*-----------------------------------------*/
/* Load Computed Simulation Data from ISIR */
/*-----------------------------------------*/
CopyFields(2, Record.ISIR_CONTROL, &ROW1, Record.ISIR_COMPUTED, &ROW2, 1, Record.INAS_SIM_COMP, &CUROW);
/*-----------------------------------------------------------*/
/* For 2003-2004 forward,                                    */
/* If Fed Extension exists, load Simulation Extension row    */
/*-----------------------------------------------------------*/
If %PanelGroup = PanelGroup.INAS_SIMULATION_04 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_05 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_06 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_07 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_08 Then
      %PanelGroup = PanelGroup.INAS_SIMULATION_08 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_09 Then
   DeleteRow(Record.INAS_SIM_FEDEX, &CUROW);
   &EXT_EMPLID = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_CONTROL.EMPLID);
   &EXT_INST = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_CONTROL.INSTITUTION);
   &EXT_YEAR = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_CONTROL.AID_YEAR);
   SQLExec("SELECT 'X' FROM PS_INAS_FED_EXT WHERE EMPLID=:1 AND INSTITUTION=:2 AND AID_YEAR=:3", &EXT_EMPLID, &EXT_INST, &EXT_YEAR, &EXT_IND);
   If All(&EXT_IND) Then
      WinMessage(MsgGet(14400, 129, "Fed Extension row found.  Populating Simulation Extension with Fed Extension Data."), 64);
      InsertRow(Record.INAS_SIM_FEDEX, &CUROW);
      CopyFields(1, Record.INAS_FED_EXT, CurrentRowNumber(), 1, Record.INAS_SIM_FEDEX, &CUROW);
      /* &ACAD_PRORTN = FetchValue(INAS_SIM_FEDEX.FM_EFC_PRORTN_ACAD, 1);
      WinMessage(" ACAD Prortn = " | &ACAD_PRORTN | " ", 64);
      If &ACAD_PRORTN = "2" Then
         UnHide(INAS_SIM_FEDEX.FM_EFC_PRORTN_NSTD);
      Else
         Hide(INAS_SIM_FEDEX.FM_EFC_PRORTN_NSTD);
      End-If; */
   End-If;
End-If;
/*--------------------------------------------------------------*/
/* For 2002-2003 forward,                                       */
/* Load Dependency Override, Correction Status, and EFC         */
/* Override Display Indicator from ISIR_CONTROL to INAS_SIM_INT */
/*--------------------------------------------------------------*/
If %PanelGroup = PanelGroup.INAS_SIMULATION_03 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_04 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_05 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_06 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_07 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_08 Then
      %PanelGroup = PanelGroup.INAS_SIMULATION_08 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_09 Then
   &DEP_OVRD = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_CONTROL.DEPNDNCY_OVERRIDE);
   &CORR_STAT = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_CONTROL.CORRECTION_STATUS);
   &FM_OVRD_IND = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_CONTROL.EFC_OVRD_DSPLAY_FM);
   &CORR_DOB = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_CONTROL.CORR_DOB);
   UpdateValue(INAS_SIM_INT.DEPNDNCY_OVERRIDE, 1, &DEP_OVRD);
   UpdateValue(INAS_SIM_INT.EFC_OVRD_DSPLAY_FM, 1, &FM_OVRD_IND);
   UpdateValue(INAS_SIM_INT.CORR_DOB, 1, &CORR_DOB);
   /*-----------------------------------------------------------*/
   /* For 2005-2006 forward,                                    */
   /* Load Citizenship Status Correction Flag from ISIR_CONTROL */
   /* to INAS_SIM_INT                                           */
   /*-----------------------------------------------------------*/
   If %PanelGroup = PanelGroup.INAS_SIMULATION_06 Or
         %PanelGroup = PanelGroup.INAS_SIMULATION_07 Or
         %PanelGroup = PanelGroup.INAS_SIMULATION_08 Then
         %PanelGroup = PanelGroup.INAS_SIMULATION_08 Or
         %PanelGroup = PanelGroup.INAS_SIMULATION_09 Then
      &CORR_CIT_STATUS = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_CONTROL.CORR_CIT_STATUS);
      UpdateValue(INAS_SIM_INT.CORR_CIT_STATUS, 1, &CORR_CIT_STATUS);
   End-If;
   /*-----------------------------------------------------------*/
   /* For 2005-2006 forward,                                    */
   /* Set Correction Status Flag to 'Pending', otherwise use    */
   /* value from ISIR                                           */
   /*-----------------------------------------------------------*/
   If %PanelGroup = PanelGroup.INAS_SIMULATION_06 Or
         %PanelGroup = PanelGroup.INAS_SIMULATION_07 Or
         %PanelGroup = PanelGroup.INAS_SIMULATION_08 Then
         %PanelGroup = PanelGroup.INAS_SIMULATION_08 Or
         %PanelGroup = PanelGroup.INAS_SIMULATION_09 Then
      UpdateValue(INAS_SIM_INT.CORRECTION_STATUS, 1, "1");
   Else
      UpdateValue(INAS_SIM_INT.CORRECTION_STATUS, 1, &CORR_STAT);
   End-If;
End-If;
/*---------------------------------------------------*/
/* Save newly-created/populated Simulation tables    */
/*---------------------------------------------------*/
DoSaveNow();
DERIVED_SA.FED_EFC = FetchValue(INAS_SIM_COMP.PRIMARY_EFC, &CUROW);
/*---------------------------------------------------*/
/* Gray/Ungray INAS push button for FM Delivery      */
/*---------------------------------------------------*/
/*
UnGray(INAS_SIM_USE_PB);
UnGray(ISIR_CONTROL.INAS_RFC_CALL, &ROW1);
*/
If %PanelGroup = PanelGroup.INAS_SIMULATION_05 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_06 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_07 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_08 Then
      %PanelGroup = PanelGroup.INAS_SIMULATION_08 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_09 Then
   UnGray(DERIVED_SA.INAS_SIM_USE_PB);
   UnGray(ISIR_CONTROL.INAS_RFC_CALL, &ROW1);
End-If;
/*---------------------------------------------------*/
&TAX_FORM = FetchValue(INAS_SIM_STU.TAX_FORM_FILED, &CUROW);
UpdateValue(INAS_SIM_STU.TAX_FORM_FILED00, 1, &TAX_FORM);
&PTAX_FORM = FetchValue(INAS_SIM_PAR.TAX_FORM_FILED, &CUROW);
UpdateValue(INAS_SIM_PAR.TAX_FORM_FILED00, 1, &PTAX_FORM);
&PMAR_STAT = FetchValue(INAS_SIM_PAR.MARITAL_STAT, &CUROW);
&SMAR_STAT = FetchValue(INAS_SIM_STU.MARITAL_STAT, &CUROW);
/*---------------------------------------------------*/
If %PanelGroup = PanelGroup.INAS_SIMULATION_02 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_03 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_04 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_05 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_06 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_07 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_08 Then
      %PanelGroup = PanelGroup.INAS_SIMULATION_08 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_09 Then
   &S_ELIG_1040EZ = FetchValue(INAS_SIM_STU.ELIG_FOR_1040A_EZ, &CUROW);
   &P_ELIG_1040EZ = FetchValue(INAS_SIM_PAR.ELIG_FOR_1040A_EZ, &CUROW);
   &CURR_GLVL = FetchValue(INAS_SIM_STU.CURRENT_GRADE_LVL, &CUROW);
   UpdateValue(DERIVED_SA_STU.ELIG_FOR_1040AEZ02, 1, &S_ELIG_1040EZ);
   UpdateValue(DERIVED_SA_PAR.ELIG_FOR_1040AEZ02, 1, &P_ELIG_1040EZ);
   UpdateValue(DERIVED_SA_STU.CURRENT_GRADE_02, 1, &CURR_GLVL);
   UpdateValue(DERIVED_SA_PAR.MARITAL_STAT_PAR00, 1, &PMAR_STAT);
   UpdateValue(DERIVED_SA_STU.MARITAL_STAT_STU00, 1, &SMAR_STAT);
End-If;
/*---------------------------------------------------*/
If %PanelGroup = PanelGroup.INAS_SIMULATION_00 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_01 Then
   UpdateValue(DERIVED_SA_PAR.MARITAL_STAT_PAR00, 1, &PMAR_STAT);
End-If;
/*----------------------------------------------------------*/
/* Logic supporting numeric fields with valid blank values  */
/*----------------------------------------------------------*/
If %PanelGroup = PanelGroup.INAS_SIMULATION_03 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_04 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_05 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_06 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_07 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_08 Then
      %PanelGroup = PanelGroup.INAS_SIMULATION_08 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_09 Then
   &BLK_TP_STU = FetchValue(INAS_SIM_STU.BLANK_TAXES_PAID, &CUROW);
   &BLK_TP_PAR = FetchValue(INAS_SIM_PAR.BLANK_TAXES_PAID, &CUROW);
   &TP_STU = FetchValue(INAS_SIM_STU.TAXES_PAID, &CUROW);
   &TP_PAR = FetchValue(INAS_SIM_PAR.TAXES_PAID, &CUROW);
   If &BLK_TP_STU = "Y" Then
      UpdateValue(DERIVED_SA_STU.CHAR_TAXES_PAID, 1, "");
      UpdateValue(INAS_SIM_STU.TAXES_PAID, 1, 0);
   Else
      &TAXES_PAID = Value(&TP_STU);
      &Value = Value(&TP_STU);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      UpdateValue(DERIVED_SA_STU.CHAR_TAXES_PAID, 1, &Char);
   End-If;
   If &BLK_TP_PAR = "Y" Then
      UpdateValue(DERIVED_SA_PAR.CHAR_TAXES_PAID, 1, "");
      UpdateValue(INAS_SIM_PAR.TAXES_PAID, 1, 0);
   Else
      &TAXES_PAID = Value(&TP_PAR);
      &Value = Value(&TP_PAR);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      UpdateValue(DERIVED_SA_PAR.CHAR_TAXES_PAID, 1, &Char);
   End-If;
   /* */
   &BLK_AGI_STU = FetchValue(INAS_SIM_STU.BLANK_AGI, &CUROW);
   &BLK_AGI_PAR = FetchValue(INAS_SIM_PAR.BLANK_AGI, &CUROW);
   &AGI_STU = FetchValue(INAS_SIM_STU.AGI, &CUROW);
   &AGI_PAR = FetchValue(INAS_SIM_PAR.AGI, &CUROW);
   If &BLK_AGI_STU = "Y" Then
      UpdateValue(DERIVED_SA_STU.CHAR_AGI, 1, "");
      UpdateValue(INAS_SIM_STU.AGI, 1, 0);
   Else
      &Value = Value(&AGI_STU);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      UpdateValue(DERIVED_SA_STU.CHAR_AGI, 1, &Char);
   End-If;
   If &BLK_AGI_PAR = "Y" Then
      UpdateValue(DERIVED_SA_PAR.CHAR_AGI, 1, "");
      UpdateValue(INAS_SIM_PAR.AGI, 1, 0);
   Else
      &Value = Value(&AGI_PAR);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      UpdateValue(DERIVED_SA_PAR.CHAR_AGI, 1, &Char);
   End-If;
   /* */
   &BLK_EARN_STU = FetchValue(INAS_SIM_STU.BLANK_STD_EARN_INC, &CUROW);
   &BLK_EARN_FATH = FetchValue(INAS_SIM_PAR.BLANK_FATHER_INC, &CUROW);
   &EARN_STU = FetchValue(INAS_SIM_STU.STD_EARNED_INCOME, &CUROW);
   &EARN_FATH = FetchValue(INAS_SIM_PAR.FATHER_INCOME, &CUROW);
   If &BLK_EARN_STU = "Y" Then
      UpdateValue(DERIVED_SA_STU.CHAR_STD_EARN_INC, 1, "");
      UpdateValue(INAS_SIM_STU.STD_EARNED_INCOME, 1, 0);
   Else
      &Value = Value(&EARN_STU);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      UpdateValue(DERIVED_SA_STU.CHAR_STD_EARN_INC, 1, &Char);
   End-If;
   If &BLK_EARN_FATH = "Y" Then
      UpdateValue(DERIVED_SA_PAR.CHAR_FATHER_INC, 1, "");
      UpdateValue(INAS_SIM_PAR.FATHER_INCOME, 1, 0);
   Else
      &Value = Value(&EARN_FATH);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      UpdateValue(DERIVED_SA_PAR.CHAR_FATHER_INC, 1, &Char);
   End-If;
   /* */
   &BLK_EARN_SPS = FetchValue(INAS_SIM_STU.BLANK_SPS_EARN_INC, &CUROW);
   &BLK_EARN_MOTH = FetchValue(INAS_SIM_PAR.BLANK_MOTHER_INC, &CUROW);
   &EARN_SPS = FetchValue(INAS_SIM_STU.SPS_EARNED_INCOME, &CUROW);
   &EARN_MOTH = FetchValue(INAS_SIM_PAR.MOTHER_INCOME, &CUROW);
   If &BLK_EARN_SPS = "Y" Then
      UpdateValue(DERIVED_SA_STU.CHAR_SPS_EARN_INC, 1, "");
      UpdateValue(INAS_SIM_STU.SPS_EARNED_INCOME, 1, 0);
   Else
      &Value = Value(&EARN_SPS);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      UpdateValue(DERIVED_SA_STU.CHAR_SPS_EARN_INC, 1, &Char);
   End-If;
   If &BLK_EARN_MOTH = "Y" Then
      UpdateValue(DERIVED_SA_PAR.CHAR_MOTHER_INC, 1, "");
      UpdateValue(INAS_SIM_PAR.MOTHER_INCOME, 1, 0);
   Else
      &Value = Value(&EARN_MOTH);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      UpdateValue(DERIVED_SA_PAR.CHAR_MOTHER_INC, 1, &Char);
   End-If;
   /* */
   &BLK_WKA_STU = FetchValue(INAS_SIM_STU.BLANK_TOT_FROM_WKA, &CUROW);
   &BLK_WKA_PAR = FetchValue(INAS_SIM_PAR.BLANK_TOT_FROM_WKA, &CUROW);
   &WKA_STU = FetchValue(INAS_SIM_STU.TOTAL_FROM_WKA, &CUROW);
   &WKA_PAR = FetchValue(INAS_SIM_PAR.TOTAL_FROM_WKA, &CUROW);
   If &BLK_WKA_STU = "Y" Then
      UpdateValue(DERIVED_SA_STU.CHAR_TOT_FROM_WKA, 1, "");
      UpdateValue(INAS_SIM_STU.TOTAL_FROM_WKA, 1, 0);
   Else
      &Value = Value(&WKA_STU);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      UpdateValue(DERIVED_SA_STU.CHAR_TOT_FROM_WKA, 1, &Char);
   End-If;
   If &BLK_WKA_PAR = "Y" Then
      UpdateValue(DERIVED_SA_PAR.CHAR_TOT_FROM_WKA, 1, "");
      UpdateValue(INAS_SIM_PAR.TOTAL_FROM_WKA, 1, 0);
   Else
      &Value = Value(&WKA_PAR);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      UpdateValue(DERIVED_SA_PAR.CHAR_TOT_FROM_WKA, 1, &Char);
   End-If;
   /* */
   &BLK_WS3_STU = FetchValue(INAS_SIM_STU.BLANK_TOT_FROM_WS3, &CUROW);
   &BLK_WS3_PAR = FetchValue(INAS_SIM_PAR.BLANK_TOT_FROM_WS3, &CUROW);
   &WS3_STU = FetchValue(INAS_SIM_STU.TOTAL_FROM_WS3, &CUROW);
   &WS3_PAR = FetchValue(INAS_SIM_PAR.TOTAL_FROM_WS3, &CUROW);
   If &BLK_WS3_STU = "Y" Then
      UpdateValue(DERIVED_SA_STU.CHAR_TOT_FROM_WS3, 1, "");
      UpdateValue(INAS_SIM_STU.TOTAL_FROM_WS3, 1, 0);
   Else
      &Value = Value(&WS3_STU);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      UpdateValue(DERIVED_SA_STU.CHAR_TOT_FROM_WS3, 1, &Char);
   End-If;
   If &BLK_WS3_PAR = "Y" Then
      UpdateValue(DERIVED_SA_PAR.CHAR_TOT_FROM_WS3, 1, "");
      UpdateValue(INAS_SIM_PAR.TOTAL_FROM_WS3, 1, 0);
   Else
      &Value = Value(&WS3_PAR);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      UpdateValue(DERIVED_SA_PAR.CHAR_TOT_FROM_WS3, 1, &Char);
   End-If;
   /* */
   &BLK_INV_STU = FetchValue(INAS_SIM_STU.BLANK_INV_NET_WRTH, &CUROW);
   &BLK_INV_PAR = FetchValue(INAS_SIM_PAR.BLANK_INV_NET_WRTH, &CUROW);
   &INV_STU = FetchValue(INAS_SIM_STU.INV_NET_WORTH, &CUROW);
   &INV_PAR = FetchValue(INAS_SIM_PAR.INV_NET_WORTH, &CUROW);
   If &BLK_INV_STU = "Y" Then
      UpdateValue(DERIVED_SA_STU.CHAR_INV_NET_WORTH, 1, "");
      UpdateValue(INAS_SIM_STU.INV_NET_WORTH, 1, 0);
   Else
      &Value = Value(&INV_STU);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      UpdateValue(DERIVED_SA_STU.CHAR_INV_NET_WORTH, 1, &Char);
   End-If;
   If &BLK_INV_PAR = "Y" Then
      UpdateValue(DERIVED_SA_PAR.CHAR_INV_NET_WORTH, 1, "");
      UpdateValue(INAS_SIM_PAR.INV_NET_WORTH, 1, 0);
   Else
      &Value = Value(&INV_PAR);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      UpdateValue(DERIVED_SA_PAR.CHAR_INV_NET_WORTH, 1, &Char);
   End-If;
   /* */
   If %PanelGroup = PanelGroup.INAS_SIMULATION_06 Or
         %PanelGroup = PanelGroup.INAS_SIMULATION_07 Or
         %PanelGroup = PanelGroup.INAS_SIMULATION_08 Then
         %PanelGroup = PanelGroup.INAS_SIMULATION_08 Or
         %PanelGroup = PanelGroup.INAS_SIMULATION_09 Then
      &BLK_CASH_STU = FetchValue(INAS_SIM_STU.BLANK_CASH_SAV, &CUROW);
      &BLK_CASH_PAR = FetchValue(INAS_SIM_PAR.BLANK_CASH_SAV, &CUROW);
      &CASH_STU = FetchValue(INAS_SIM_STU.CASH_SAVINGS, &CUROW);
      &CASH_PAR = FetchValue(INAS_SIM_PAR.CASH_SAVINGS, &CUROW);
      If &BLK_CASH_STU = "Y" Then
         UpdateValue(DERIVED_SA_STU.CHAR_CASH_SAV, 1, "");
         UpdateValue(INAS_SIM_STU.CASH_SAVINGS, 1, 0);
      Else
         &Value = Value(&CASH_STU);
         &Char = String(&Value);
         ISIR_ADD_COMMA(&Char, &Value);
         UpdateValue(DERIVED_SA_STU.CHAR_CASH_SAV, 1, &Char);
      End-If;
      If &BLK_CASH_PAR = "Y" Then
         UpdateValue(DERIVED_SA_PAR.CHAR_CASH_SAV, 1, "");
         UpdateValue(INAS_SIM_PAR.CASH_SAVINGS, 1, 0);
      Else
         &Value = Value(&CASH_PAR);
         &Char = String(&Value);
         ISIR_ADD_COMMA(&Char, &Value);
         UpdateValue(DERIVED_SA_PAR.CHAR_CASH_SAV, 1, &Char);
      End-If;
   End-If;
End-If;

PeopleCode (Record): DERIVED_SA.INAS_SIM_USE_PB.FieldChange
Declare Function write_inas_sim_audit PeopleCode FUNCLIB_SA.INAS_SIM_AUDITS FieldFormula;

&RETURN = MessageBox(8483, "INAS Simulation", 14400, 60, "You are about to update ISIR data. Do you wish to continue?");
If &RETURN = 6 Then
   &AID_YEAR_IN = FetchValue(INAS_SIM_STU.AID_YEAR, 1);
   If &AID_YEAR_IN = "2006" Or
         &AID_YEAR_IN = "2007" Or
         &AID_YEAR_IN = "2008" Then
   If &AID_YEAR_IN = "2007" Or
         &AID_YEAR_IN = "2008" Or
         &AID_YEAR_IN = "2009" Then
      &ROW1 = CurrentRowNumber(1);
      &ROW2 = CurrentRowNumber(2);
      &EMPLID_IN = FetchValue(INAS_SIM_STU.EMPLID, 1);
      &INST_IN = FetchValue(INAS_SIM_STU.INSTITUTION, 1);
      /* 
Student - Married? 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.MARRIED, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.MARRIED, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0041";
         When = "2000"
            &FLDNUM = "0055";
         When = "2001"
            &FLDNUM = "0056";
         When = "2002"
            &FLDNUM = "0054";
         When = "2003"
            &FLDNUM = "0054";
         When = "2004"
            &FLDNUM = "0054";
         When = "2005"
         When = "2006"
         When = "2007"
         When = "2008"
         When = "2009"
            &FLDNUM = "0050";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - State Residence 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.STATE_RESIDENCE, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.STATE_RESIDENCE, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0011";
         When = "2000"
            &FLDNUM = "0025";
         When = "2001"
            &FLDNUM = "0025";
         When = "2002"
            &FLDNUM = "0024";
         When = "2003"
            &FLDNUM = "0024";
         When = "2004"
            &FLDNUM = "0024";
         When = "2005"
         When = "2006"
         When = "2007"
         When = "2008"
         When = "2009"
            &FLDNUM = "0018";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Residency Date 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.RESIDENCY_DT, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.RESIDENCY_DT, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0012";
         When = "2000"
            &FLDNUM = "0027";
         When = "2001"
            &FLDNUM = "0027";
         When = "2002"
            &FLDNUM = "0026";
         When = "2003"
            &FLDNUM = "0026";
         When = "2004"
            &FLDNUM = "0026";
         When = "2005"
         When = "2006"
         When = "2007"
         When = "2008"
         When = "2009"
            &FLDNUM = "0020";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Pay Number Dependents 
*/
      /*    If &AID_YEAR = "1998" Then 
         &NEWVAL = FetchValue(INAS_SIM_STU.PAY_NUM_DEPENDENTS, 1); 
         &OLDVAL = FetchValue(RECORD.ISIR_CONTROL, &ROW1, ISIR_STUDENT.PAY_NUM_DEPENDENTS, &ROW2); 
         If &NEWVAL <> &OLDVAL Then 
            &FLDNUM = "0037"; 
            write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL); 
         End-If; 
      End-If; 
*/
      /* 
Student - Number Family Members 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.NUM_FAMILY_MEMBERS, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.NUM_FAMILY_MEMBERS, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0044";
         When = "2000"
            &FLDNUM = "0059";
         When = "2001"
            &FLDNUM = "0086";
         When = "2002"
            &FLDNUM = "0084";
         When = "2003"
            &FLDNUM = "0084";
         When = "2004"
            &FLDNUM = "0085";
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0084";
         When = "2008"
         When = "2009"
            &FLDNUM = "0090";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Number In College 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.NUMBER_IN_COLLEGE, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.NUMBER_IN_COLLEGE, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0045";
         When = "2000"
            &FLDNUM = "0060";
         When = "2001"
            &FLDNUM = "0087";
         When = "2002"
            &FLDNUM = "0085";
         When = "2003"
            &FLDNUM = "0085";
         When = "2004"
            &FLDNUM = "0086";
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0085";
         When = "2008"
         When = "2009"
            &FLDNUM = "0091";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Tax Form File 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.TAX_FORM_FILED, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.TAX_FORM_FILED, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0051";
         When = "2000"
            &FLDNUM = "0039";
         When = "2001"
            &FLDNUM = "0038";
         When = "2002"
            &FLDNUM = "0037";
         When = "2003"
            &FLDNUM = "0037";
         When = "2004"
            &FLDNUM = "0037";
         When = "2005"
         When = "2006"
         When = "2007"
         When = "2008"
         When = "2009"
            &FLDNUM = "0033";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Number Exemptions 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.NUMBER_EXEMPTIONS, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.NUMBER_EXEMPTIONS, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0052";
         When = "2000"
            &FLDNUM = "0043";
         When = "2001"
            &FLDNUM = "0042";
         When = "2002"
            &FLDNUM = "0041";
         When = "2003"
            &FLDNUM = "0041";
         When = "2004"
            &FLDNUM = "0041";
         When = "2005"
         When = "2006"
         When = "2007"
         When = "2008"
         When = "2009"
            &FLDNUM = "0037";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Taxes Paid 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.TAXES_PAID, 1);
      &NEWBLK = FetchValue(INAS_SIM_STU.BLANK_TAXES_PAID, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.TAXES_PAID, &ROW2);
      &OLDBLK = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.BLANK_TAXES_PAID, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0054";
         When = "2000"
            &FLDNUM = "0042";
         When = "2001"
            &FLDNUM = "0041";
         When = "2002"
            &FLDNUM = "0040";
         When = "2003"
            &FLDNUM = "0040";
         When = "2004"
            &FLDNUM = "0040";
         When = "2005"
         When = "2006"
         When = "2007"
         When = "2008"
         When = "2009"
            &FLDNUM = "0036";
         End-Evaluate;
         If &AID_YEAR_IN = "2003" Or
               &AID_YEAR_IN = "2004" Or
               &AID_YEAR_IN = "2005" Or
               &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
         End-If;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      Else
         If &AID_YEAR_IN = "2003" Or
               &AID_YEAR_IN = "2004" Or
               &AID_YEAR_IN = "2005" Or
               &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            Evaluate &AID_YEAR_IN
            When = "2003"
               &FLDNUM = "0040";
            When = "2004"
               &FLDNUM = "0040";
            When = "2005"
            When = "2006"
            When = "2007"
            When = "2008"
            When = "2009"
               &FLDNUM = "0036";
            End-Evaluate;
            &BLK_CHG = "N";
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
               &BLK_CHG = "Y";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
                  &BLK_CHG = "Y";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
            If &BLK_CHG = "Y" Then
               write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
            End-If;
         End-If;
      End-If;
      /* 
Student - AGI 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.AGI, 1);
      &NEWBLK = FetchValue(INAS_SIM_STU.BLANK_AGI, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.AGI, &ROW2);
      &OLDBLK = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.BLANK_AGI, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0053";
         When = "2000"
            &FLDNUM = "0041";
         When = "2001"
            &FLDNUM = "0040";
         When = "2002"
            &FLDNUM = "0039";
         When = "2003"
            &FLDNUM = "0039";
         When = "2004"
            &FLDNUM = "0039";
         When = "2005"
         When = "2006"
         When = "2007"
         When = "2008"
         When = "2009"
            &FLDNUM = "0035";
         End-Evaluate;
         If &AID_YEAR_IN = "2003" Or
               &AID_YEAR_IN = "2004" Or
               &AID_YEAR_IN = "2005" Or
               &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
         End-If;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      Else
         If &AID_YEAR_IN = "2003" Or
               &AID_YEAR_IN = "2004" Or
               &AID_YEAR_IN = "2005" Or
               &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            Evaluate &AID_YEAR_IN
            When = "2003"
               &FLDNUM = "0039";
            When = "2004"
               &FLDNUM = "0039";
            When = "2005"
            When = "2006"
            When = "2007"
            When = "2008"
            When = "2009"
               &FLDNUM = "0035";
            End-Evaluate;
            &BLK_CHG = "N";
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
               &BLK_CHG = "Y";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
                  &BLK_CHG = "Y";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
            If &BLK_CHG = "Y" Then
               write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
            End-If;
         End-If;
      End-If;
      /* 
Student - Student Income 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.STD_EARNED_INCOME, 1);
      &NEWBLK = FetchValue(INAS_SIM_STU.BLANK_STD_EARN_INC, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.STD_EARNED_INCOME, &ROW2);
      &OLDBLK = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.BLANK_STD_EARN_INC, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0055";
         When = "2000"
            &FLDNUM = "0045";
         When = "2001"
            &FLDNUM = "0044";
         When = "2002"
            &FLDNUM = "0042";
         When = "2003"
            &FLDNUM = "0042";
         When = "2004"
            &FLDNUM = "0042";
         When = "2005"
         When = "2006"
         When = "2007"
         When = "2008"
         When = "2009"
            &FLDNUM = "0038";
         End-Evaluate;
         If &AID_YEAR_IN = "2003" Or
               &AID_YEAR_IN = "2004" Or
               &AID_YEAR_IN = "2005" Or
               &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
         End-If;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      Else
         If &AID_YEAR_IN = "2003" Or
               &AID_YEAR_IN = "2004" Or
               &AID_YEAR_IN = "2005" Or
               &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            Evaluate &AID_YEAR_IN
            When = "2003"
               &FLDNUM = "0042";
            When = "2004"
               &FLDNUM = "0042";
            When = "2005"
            When = "2006"
            When = "2007"
            When = "2008"
            When = "2009"
               &FLDNUM = "0038";
            End-Evaluate;
            &BLK_CHG = "N";
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
               &BLK_CHG = "Y";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
                  &BLK_CHG = "Y";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
            If &BLK_CHG = "Y" Then
               write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
            End-If;
         End-If;
      End-If;
      /* 
Student - Spouse Income 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.SPS_EARNED_INCOME, 1);
      &NEWBLK = FetchValue(INAS_SIM_STU.BLANK_SPS_EARN_INC, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.SPS_EARNED_INCOME, &ROW2);
      &OLDBLK = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.BLANK_SPS_EARN_INC, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0056";
         When = "2000"
            &FLDNUM = "0046";
         When = "2001"
            &FLDNUM = "0045";
         When = "2002"
            &FLDNUM = "0043";
         When = "2003"
            &FLDNUM = "0043";
         When = "2004"
            &FLDNUM = "0043";
         When = "2005"
         When = "2006"
         When = "2007"
         When = "2008"
         When = "2009"
            &FLDNUM = "0039";
         End-Evaluate;
         If &AID_YEAR_IN = "2003" Or
               &AID_YEAR_IN = "2004" Or
               &AID_YEAR_IN = "2005" Or
               &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
         End-If;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      Else
         If &AID_YEAR_IN = "2003" Or
               &AID_YEAR_IN = "2004" Or
               &AID_YEAR_IN = "2005" Or
               &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            Evaluate &AID_YEAR_IN
            When = "2003"
               &FLDNUM = "0043";
            When = "2004"
               &FLDNUM = "0043";
            When = "2005"
            When = "2006"
            When = "2007"
            When = "2008"
            When = "2009"
               &FLDNUM = "0039";
            End-Evaluate;
            &BLK_CHG = "N";
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
               &BLK_CHG = "Y";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
                  &BLK_CHG = "Y";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
            If &BLK_CHG = "Y" Then
               write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
            End-If;
         End-If;
      End-If;
      /* 
Student - SS Benefits 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.SOC_SEC_BENEFITS, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.SOC_SEC_BENEFITS, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0058";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - AFDC Benefits 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.AFDC_BENEFITS, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.AFDC_BENEFITS, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0059";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Child Support 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.CHILD_SUPPORT, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.CHILD_SUPPORT, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0060";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Untaxed Income 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.UNTAXED_INCOME, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.UNTAXED_INCOME, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0061";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Cash Savings 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.CASH_SAVINGS, 1);
      &NEWBLK = FetchValue(INAS_SIM_STU.BLANK_CASH_SAV, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.CASH_SAVINGS, &ROW2);
      &OLDBLK = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.BLANK_CASH_SAV, &ROW2);
      
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0075";
         When = "2000"
            &FLDNUM = "0049";
         When = "2001"
            &FLDNUM = "0048";
         When = "2002"
            &FLDNUM = "0049";
         When = "2003"
            &FLDNUM = "0049";
         When = "2004"
            &FLDNUM = "0049";
         When = "2005"
         When = "2006"
         When = "2007"
         When = "2008"
         When = "2009"
            &FLDNUM = "0043";
         End-Evaluate;
         
         If &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
         End-If;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      Else
         If &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            &FLDNUM = "0043";
            &BLK_CHG = "N";
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
               &BLK_CHG = "Y";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
                  &BLK_CHG = "Y";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
            If &BLK_CHG = "Y" Then
               write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
            End-If;
         End-If;
      End-If;
      /* 
Student - RE Invest Value 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.RE_INVEST_VALUE, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.RE_INVEST_VALUE, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0076";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - RE Invest Debt 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.RE_INVEST_DEBT, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.RE_INVEST_DEBT, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0077";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Business Value 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.BUSINESS_VALUE, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.BUSINESS_VALUE, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0078";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Business Debt 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.BUSINESS_DEBT, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.BUSINESS_DEBT, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0079";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Farm Value 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.FARM_VALUE, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.FARM_VALUE, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0080";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Farm Debt 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.FARM_DEBT, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.FARM_DEBT, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0081";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Total WS3 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.TOTAL_FROM_WS3, 1);
      &NEWBLK = FetchValue(INAS_SIM_STU.BLANK_TOT_FROM_WS3, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.TOTAL_FROM_WS3, &ROW2);
      &OLDBLK = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.BLANK_TOT_FROM_WS3, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0062";
         When = "2000"
            &FLDNUM = "0048";
         When = "2001"
            &FLDNUM = "0047";
         When = "2002"
            &FLDNUM = "0045";
         When = "2003"
            &FLDNUM = "0045";
         When = "2004"
            &FLDNUM = "0045";
         When = "2005"
         When = "2006"
         When = "2007"
         When = "2008"
         When = "2009"
            &FLDNUM = "0041";
         End-Evaluate;
         If &AID_YEAR_IN = "2003" Or
               &AID_YEAR_IN = "2004" Or
               &AID_YEAR_IN = "2005" Or
               &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
         End-If;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      Else
         If &AID_YEAR_IN = "2003" Or
               &AID_YEAR_IN = "2004" Or
               &AID_YEAR_IN = "2005" Or
               &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            Evaluate &AID_YEAR_IN
            When = "2003"
               &FLDNUM = "0045";
            When = "2004"
               &FLDNUM = "0045";
            When = "2005"
            When = "2006"
            When = "2007"
            When = "2008"
            When = "2009"
               &FLDNUM = "0041";
            End-Evaluate;
            &BLK_CHG = "N";
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
               &BLK_CHG = "Y";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
                  &BLK_CHG = "Y";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
            If &BLK_CHG = "Y" Then
               write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
            End-If;
         End-If;
      End-If;
      /* 
Student - Earned Income Credit 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.ERND_INC_CREDIT, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.ERND_INC_CREDIT, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0057";
         When = "2000"
            &FLDNUM = "0044";
         When = "2001"
            &FLDNUM = "0043";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Number Month Vet Ben 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.NUM_MONTH_VET_BEN, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.NUM_MONTH_VET_BEN, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0037";
         When = "2000"
            &FLDNUM = "0036";
         When = "2001"
            &FLDNUM = "0052";
         When = "2002"
            &FLDNUM = "0050";
         When = "2003"
            &FLDNUM = "0050";
         When = "2004"
            &FLDNUM = "0050";
         When = "2005"
         When = "2006"
         When = "2007"
         When = "2008"
         When = "2009"
            &FLDNUM = "0046";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Monthly Vet Ben 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.MONTHLY_VET_BEN, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.MONTHLY_VET_BEN, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0036";
         When = "2000"
            &FLDNUM = "0037";
         When = "2001"
            &FLDNUM = "0053";
         When = "2002"
            &FLDNUM = "0051";
         When = "2003"
            &FLDNUM = "0051";
         When = "2004"
            &FLDNUM = "0051";
         When = "2005"
         When = "2006"
         When = "2007"
         When = "2008"
         When = "2009"
            &FLDNUM = "0047";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Current Grade Lvl 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.CURRENT_GRADE_LVL, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.CURRENT_GRADE_LVL, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0031";
         When = "2000"
            &FLDNUM = "0031";
         When = "2001"
            &FLDNUM = "0032";
         When = "2002"
            &FLDNUM = "0030";
         When = "2003"
            &FLDNUM = "0030";
         When = "2004"
            &FLDNUM = "0030";
         When = "2005"
         When = "2006"
         When = "2007"
         When = "2008"
         When = "2009"
            &FLDNUM = "0024";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Dependents 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.DEPENDENTS, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.DEPENDENTS, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0043";
         When = "2000"
            &FLDNUM = "0058";
         When = "2001"
            &FLDNUM = "0057";
         When = "2002"
            &FLDNUM = "0056";
         When = "2003"
            &FLDNUM = "0056";
         When = "2004"
            &FLDNUM = "0056";
         When = "2005"
         When = "2006"
         When = "2007"
         When = "2008"
         When = "2009"
            &FLDNUM = "0052";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Orphan 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.ORPHAN, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.ORPHAN, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0042";
         When = "2000"
            &FLDNUM = "0056";
         When = "2001"
            &FLDNUM = "0058";
         When = "2002"
            &FLDNUM = "0057";
         When = "2003"
            &FLDNUM = "0057";
         When = "2004"
            &FLDNUM = "0057";
         When = "2005"
         When = "2006"
         When = "2007"
         When = "2008"
         When = "2009"
            &FLDNUM = "0053";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - DOB Prior 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.DOB_PRIOR, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.DOB_PRIOR, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0038";
         When = "2000"
            &FLDNUM = "0053";
         When = "2001"
            &FLDNUM = "0054";
         When = "2002"
            &FLDNUM = "0052";
         When = "2003"
            &FLDNUM = "0052";
         When = "2004"
            &FLDNUM = "0052";
         When = "2005"
         When = "2006"
         When = "2007"
         When = "2008"
         When = "2009"
            &FLDNUM = "0048";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Veteran 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.VETERAN, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.VETERAN, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0039";
         When = "2000"
            &FLDNUM = "0057";
         When = "2001"
            &FLDNUM = "0059";
         When = "2002"
            &FLDNUM = "0058";
         When = "2003"
            &FLDNUM = "0058";
         When = "2004"
            &FLDNUM = "0058";
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0054";
         When = "2008"
         When = "2009"
            &FLDNUM = "0055";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Active Duty in Armed Forces? 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.SFA_ACTIVE_DUTY, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.SFA_ACTIVE_DUTY, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2008"
         When = "2009"
            &FLDNUM = "0054";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Supplemental Security Income (SSI) Benefits? 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.SFA_SSI_INCOME, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.SFA_SSI_INCOME, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2008"
         When = "2009"
            &FLDNUM = "0092";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Food Stamps Benefits? 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.SFA_FOOD_STAMPS, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.SFA_FOOD_STAMPS, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2008"
         When = "2009"
            &FLDNUM = "0093";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - School Lunch Benefits? 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.SFA_SCHL_LUNCH_PRG, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.SFA_SCHL_LUNCH_PRG, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2008"
         When = "2009"
            &FLDNUM = "0094";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - TANF Benefits? 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.SFA_TANF_BENEFITS, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.SFA_TANF_BENEFITS, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2008"
         When = "2009"
            &FLDNUM = "0095";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - WIC Benefits? 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.SFA_WIC_BENEFITS, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.SFA_WIC_BENEFITS, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2008"
         When = "2009"
            &FLDNUM = "0096";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Interested in Work Study or Student Loans? 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.SFA_INTRSTD_IN_WSL, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.SFA_INTRSTD_IN_WSL, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2008"
         When = "2009"
            &FLDNUM = "0026";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Graduate Student 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.GRADUATE_STUDENT, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.GRADUATE_STUDENT, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0040";
         When = "2000"
            &FLDNUM = "0054";
         When = "2001"
            &FLDNUM = "0055";
         When = "2002"
            &FLDNUM = "0053";
         When = "2003"
            &FLDNUM = "0053";
         When = "2004"
            &FLDNUM = "0053";
         When = "2005"
         When = "2006"
         When = "2007"
         When = "2008"
         When = "2009"
            &FLDNUM = "0049";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - State Agency Release 
*/
      Evaluate &AID_YEAR_IN
      When = "1999"
         &NEWVAL = FetchValue(INAS_SIM_STU.STATE_AGNCY_RLSE, 1);
         &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.STATE_AGNCY_RLSE, &ROW2);
         If &NEWVAL <> &OLDVAL Then
            &FLDNUM = "0102";
            write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
         End-If;
      When-Other
         Break;
      End-Evaluate;
      /* 
Student - Selective Service 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.SEL_SERV_REGISTER, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.SEL_SERV_REGISTER, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0103";
         When = "2000"
            &FLDNUM = "0029";
         When = "2001"
            &FLDNUM = "0030";
         When = "2002"
            &FLDNUM = "0028";
         When = "2003"
            &FLDNUM = "0028";
         When = "2004"
            &FLDNUM = "0028";
         When = "2005"
         When = "2006"
         When = "2007"
         When = "2008"
         When = "2009"
            &FLDNUM = "0022";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - 1st Bach Degree by ? 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.FIRST_BACH_DEGREE, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.FIRST_BACH_DEGREE, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0019";
         When = "2000"
            &FLDNUM = "0033";
         When = "2001"
            &FLDNUM = "0034";
         When = "2002"
            &FLDNUM = "0032";
         When = "2003"
            &FLDNUM = "0032";
         When = "2004"
            &FLDNUM = "0032";
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0026";
         When = "2008"
         When = "2009"
            &FLDNUM = "0028";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Invest Net Worth 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.INV_NET_WORTH, 1);
      &NEWBLK = FetchValue(INAS_SIM_STU.BLANK_INV_NET_WRTH, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.INV_NET_WORTH, &ROW2);
      &OLDBLK = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.BLANK_INV_NET_WRTH, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2000"
            &FLDNUM = "0050";
         When = "2001"
            &FLDNUM = "0049";
         When = "2002"
            &FLDNUM = "0047";
         When = "2003"
            &FLDNUM = "0047";
         When = "2004"
            &FLDNUM = "0047";
         When = "2005"
         When = "2006"
         When = "2007"
         When = "2008"
         When = "2009"
            &FLDNUM = "0044";
         End-Evaluate;
         If &AID_YEAR_IN = "2003" Or
               &AID_YEAR_IN = "2004" Or
               &AID_YEAR_IN = "2005" Or
               &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
         End-If;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      Else
         If &AID_YEAR_IN = "2003" Or
               &AID_YEAR_IN = "2004" Or
               &AID_YEAR_IN = "2005" Or
               &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            Evaluate &AID_YEAR_IN
            When = "2003"
               &FLDNUM = "0047";
            When = "2004"
               &FLDNUM = "0047";
            When = "2005"
            When = "2006"
            When = "2007"
            When = "2008"
            When = "2009"
               &FLDNUM = "0044";
            End-Evaluate;
            &BLK_CHG = "N";
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
               &BLK_CHG = "Y";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
                  &BLK_CHG = "Y";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
            If &BLK_CHG = "Y" Then
               write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
            End-If;
         End-If;
      End-If;
      /* 
Student - Bus Net Worth 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.BUS_NET_WORTH, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.BUS_NET_WORTH, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2000"
            &FLDNUM = "0051";
         When = "2001"
            &FLDNUM = "0050";
         When = "2002"
            &FLDNUM = "0048";
         When = "2003"
            &FLDNUM = "0048";
         When = "2004"
            &FLDNUM = "0048";
         When = "2005"
         When = "2006"
         When = "2007"
         When = "2008"
         When = "2009"
            &FLDNUM = "0045";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Farm Net Worth 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.FARM_NET_WORTH, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.FARM_NET_WORTH, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2000"
            &FLDNUM = "0052";
         When = "2001"
            &FLDNUM = "0051";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Legal Res Prior  
*/
      If &AID_YEAR_IN > "2000" Then
         &NEWVAL = FetchValue(INAS_SIM_STU.LEGAL_RES_PRIOR, 1);
         &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.LEGAL_RES_PRIOR, &ROW2);
      Else
         &NEWVAL = FetchValue(INAS_SIM_STU.LEGAL_RES_PRI_94, 1);
         &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.LEGAL_RES_PRI_94, &ROW2);
      End-If;
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2000"
            &FLDNUM = "0026";
         When = "2001"
            &FLDNUM = "0026";
         When = "2002"
            &FLDNUM = "0025";
         When = "2003"
            &FLDNUM = "0025";
         When = "2004"
            &FLDNUM = "0025";
         When = "2005"
         When = "2006"
         When = "2007"
         When = "2008"
         When = "2009"
            &FLDNUM = "0019";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Tax Return Filed 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.TAX_RETURN_FILED, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.TAX_RETURN_FILED, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2000"
            &FLDNUM = "0038";
         When = "2001"
            &FLDNUM = "0037";
         When = "2002"
            &FLDNUM = "0036";
         When = "2003"
            &FLDNUM = "0036";
         When = "2004"
            &FLDNUM = "0036";
         When = "2005"
         When = "2006"
         When = "2007"
         When = "2008"
         When = "2009"
            &FLDNUM = "0032";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Elig For 1040A EZ 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.ELIG_FOR_1040A_EZ, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.ELIG_FOR_1040A_EZ, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2000"
            &FLDNUM = "0040";
         When = "2001"
            &FLDNUM = "0039";
         When = "2002"
            &FLDNUM = "0038";
         When = "2003"
            &FLDNUM = "0038";
         When = "2004"
            &FLDNUM = "0038";
         When = "2005"
         When = "2006"
         When = "2007"
         When = "2008"
         When = "2009"
            &FLDNUM = "0034";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      
      /* 
Student - Total From WKA 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.TOTAL_FROM_WKA, 1);
      &NEWBLK = FetchValue(INAS_SIM_STU.BLANK_TOT_FROM_WKA, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.TOTAL_FROM_WKA, &ROW2);
      &OLDBLK = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.BLANK_TOT_FROM_WKA, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2000"
            &FLDNUM = "0047";
         When = "2001"
            &FLDNUM = "0046";
         When = "2002"
            &FLDNUM = "0044";
         When = "2003"
            &FLDNUM = "0044";
         When = "2004"
            &FLDNUM = "0044";
         When = "2005"
         When = "2006"
         When = "2007"
         When = "2008"
         When = "2009"
            &FLDNUM = "0040";
         End-Evaluate;
         If &AID_YEAR_IN = "2003" Or
               &AID_YEAR_IN = "2004" Or
               &AID_YEAR_IN = "2005" Or
               &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
         End-If;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      Else
         If &AID_YEAR_IN = "2003" Or
               &AID_YEAR_IN = "2004" Or
               &AID_YEAR_IN = "2005" Or
               &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            Evaluate &AID_YEAR_IN
            When = "2003"
               &FLDNUM = "0044";
            When = "2004"
               &FLDNUM = "0044";
            When = "2005"
            When = "2006"
            When = "2007"
            When = "2008"
            When = "2009"
               &FLDNUM = "0040";
            End-Evaluate;
            &BLK_CHG = "N";
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
               &BLK_CHG = "Y";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
                  &BLK_CHG = "Y";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
            If &BLK_CHG = "Y" Then
               write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
            End-If;
         End-If;
      End-If;
      /* 
Student - Total From WKC 
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.TOTAL_FROM_WKC, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.TOTAL_FROM_WKC, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2002"
            &FLDNUM = "0046";
         When = "2003"
            &FLDNUM = "0046";
         When = "2004"
            &FLDNUM = "0046";
         When = "2005"
         When = "2006"
         When = "2007"
         When = "2008"
         When = "2009"
            &FLDNUM = "0042";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Student Male 
Student - Student Male / Student Gender
*/
      If &AID_YEAR_IN >= "2009" Then
         &NEWVAL = FetchValue(INAS_SIM_STU.SFA_STDNT_GENDER, 1);
         &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.SFA_STDNT_GENDER, &ROW2);
      Else
         &NEWVAL = FetchValue(INAS_SIM_STU.STUDENT_MALE, 1);
         &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.STUDENT_MALE, &ROW2);
      End-If;
      
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2000"
            &FLDNUM = "0028";
         When = "2001"
            &FLDNUM = "0029";
         When = "2002"
            &FLDNUM = "0027";
         When = "2003"
            &FLDNUM = "0027";
         When = "2004"
            &FLDNUM = "0027";
         When = "2005"
         When = "2006"
         When = "2007"
         When = "2008"
         When = "2009"
            &FLDNUM = "0021";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Student - Enrollment Status  
*/
      &NEWVAL = FetchValue(INAS_SIM_STU.ISIR_STU_ENRL_STAT, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.ISIR_STU_ENRL_STAT, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0098";
         When = "2008"
         When = "2009"
            &FLDNUM = "0025";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - Marital Status 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.MARITAL_STAT, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.MARITAL_STAT, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0046";
         When = "2000"
            &FLDNUM = "0076";
         When = "2001"
            &FLDNUM = "0060";
         When = "2002"
            &FLDNUM = "0059";
         When = "2003"
            &FLDNUM = "0059";
         When = "2004"
            &FLDNUM = "0059";
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0055";
         When = "2008"
         When = "2009"
            &FLDNUM = "0056";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - Legal Residence 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.LEGAL_RESIDENCE, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.LEGAL_RESIDENCE, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0047";
         When = "2000"
            &FLDNUM = "0079";
         When = "2001"
            &FLDNUM = "0067";
         When = "2002"
            &FLDNUM = "0066";
         When = "2003"
            &FLDNUM = "0066";
         When = "2004"
            &FLDNUM = "0067";
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0067";
         When = "2008"
         When = "2009"
            &FLDNUM = "0068";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - Date Legal Residence 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.DT_LEGAL_RES, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.DT_LEGAL_RES, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0048";
         When = "2000"
            &FLDNUM = "0081";
         When = "2001"
            &FLDNUM = "0069";
         When = "2002"
            &FLDNUM = "0068";
         When = "2003"
            &FLDNUM = "0068";
         When = "2004"
            &FLDNUM = "0069";
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0069";
         When = "2008"
         When = "2009"
            &FLDNUM = "0070";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      
      /* 
Parent - Supplemental Security Income (SSI) Benefits? 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.SFA_SSI_INCOME, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.SFA_SSI_INCOME, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2008"
         When = "2009"
            &FLDNUM = "0071";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - Food Stamps Benefits? 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.SFA_FOOD_STAMPS, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.SFA_FOOD_STAMPS, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2008"
         When = "2009"
            &FLDNUM = "0072";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - School Lunch Benefits? 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.SFA_SCHL_LUNCH_PRG, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.SFA_SCHL_LUNCH_PRG, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2008"
         When = "2009"
            &FLDNUM = "0073";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - TANF Benefits? 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.SFA_TANF_BENEFITS, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.SFA_TANF_BENEFITS, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2008"
         When = "2009"
            &FLDNUM = "0074";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - WIC Benefits? 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.SFA_WIC_BENEFITS, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.SFA_WIC_BENEFITS, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2008"
         When = "2009"
            &FLDNUM = "0075";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      
      /* 
Parent - Age Older Parent 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.AGE_OLDER_PARENT, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.AGE_OLDER_PARENT, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0082";
         When = "2000"
            &FLDNUM = "0082";
         When = "2001"
            &FLDNUM = "0070";
         When = "2002"
            &FLDNUM = "0069";
         When = "2003"
            &FLDNUM = "0069";
         When = "2004"
            &FLDNUM = "0070";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - Father Initial of First Name 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.FATHER_1ST_NM_INIT, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.FATHER_1ST_NM_INIT, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0059";
         When = "2008"
         When = "2009"
            &FLDNUM = "0060";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
      /* 
Parent - Father Date of Birth 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.FATHER_DOB, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.FATHER_DOB, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0060";
         When = "2008"
         When = "2009"
            &FLDNUM = "0061";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - Mother Initial of First Name 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.MOTHER_1ST_NM_INIT, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.MOTHER_1ST_NM_INIT, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0063";
         When = "2008"
         When = "2009"
            &FLDNUM = "0064";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - Mother Date of Birth 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.MOTHER_DOB, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.MOTHER_DOB, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0064";
         When = "2008"
         When = "2009"
            &FLDNUM = "0065";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - Number In Family 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.NUMBER_IN_FAMILY, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.NUMBER_IN_FAMILY, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0049";
         When = "2000"
            &FLDNUM = "0077";
         When = "2001"
            &FLDNUM = "0065";
         When = "2002"
            &FLDNUM = "0064";
         When = "2003"
            &FLDNUM = "0064";
         When = "2004"
            &FLDNUM = "0065";
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0065";
         When = "2008"
         When = "2009"
            &FLDNUM = "0066";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - Number In College 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.NUM_IN_COLLEGE, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.NUM_IN_COLLEGE, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0050";
         When = "2000"
            &FLDNUM = "0078";
         When = "2001"
            &FLDNUM = "0066";
         When = "2002"
            &FLDNUM = "0065";
         When = "2003"
            &FLDNUM = "0065";
         When = "2004"
            &FLDNUM = "0066";
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0066";
         When = "2008"
         When = "2009"
            &FLDNUM = "0067";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - Tax Form Filed 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.TAX_FORM_FILED, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.TAX_FORM_FILED, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0063";
         When = "2000"
            &FLDNUM = "0062";
         When = "2001"
            &FLDNUM = "0072";
         When = "2002"
            &FLDNUM = "0071";
         When = "2003"
            &FLDNUM = "0071";
         When = "2004"
            &FLDNUM = "0072";
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0071";
         When = "2008"
         When = "2009"
            &FLDNUM = "0077";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - Number Exemptions 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.NUMBER_EXEMPTIONS, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.NUMBER_EXEMPTIONS, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0064";
         When = "2000"
            &FLDNUM = "0066";
         When = "2001"
            &FLDNUM = "0076";
         When = "2002"
            &FLDNUM = "0075";
         When = "2003"
            &FLDNUM = "0075";
         When = "2004"
            &FLDNUM = "0076";
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0075";
         When = "2008"
         When = "2009"
            &FLDNUM = "0081";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - Taxes Paid 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.TAXES_PAID, 1);
      &NEWBLK = FetchValue(INAS_SIM_PAR.BLANK_TAXES_PAID, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.TAXES_PAID, &ROW2);
      &OLDBLK = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.BLANK_TAXES_PAID, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0066";
         When = "2000"
            &FLDNUM = "0065";
         When = "2001"
            &FLDNUM = "0075";
         When = "2002"
            &FLDNUM = "0074";
         When = "2003"
            &FLDNUM = "0074";
         When = "2004"
            &FLDNUM = "0075";
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0074";
         When = "2008"
         When = "2009"
            &FLDNUM = "0080";
         End-Evaluate;
         If &AID_YEAR_IN = "2003" Or
               &AID_YEAR_IN = "2004" Or
               &AID_YEAR_IN = "2005" Or
               &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
         End-If;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      Else
         If &AID_YEAR_IN = "2003" Or
               &AID_YEAR_IN = "2004" Or
               &AID_YEAR_IN = "2005" Or
               &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            Evaluate &AID_YEAR_IN
            When = "2003"
               &FLDNUM = "0074";
            When = "2004"
               &FLDNUM = "0075";
            When = "2005"
            When = "2006"
            When = "2007"
               &FLDNUM = "0074";
            When = "2008"
            When = "2009"
               &FLDNUM = "0080";
            End-Evaluate;
            &BLK_CHG = "N";
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
               &BLK_CHG = "Y";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
                  &BLK_CHG = "Y";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
            If &BLK_CHG = "Y" Then
               write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
            End-If;
         End-If;
      End-If;
      /* 
Parent - AGI 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.AGI, 1);
      &NEWBLK = FetchValue(INAS_SIM_PAR.BLANK_AGI, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.AGI, &ROW2);
      &OLDBLK = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.BLANK_AGI, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0065";
         When = "2000"
            &FLDNUM = "0064";
         When = "2001"
            &FLDNUM = "0074";
         When = "2002"
            &FLDNUM = "0073";
         When = "2003"
            &FLDNUM = "0073";
         When = "2004"
            &FLDNUM = "0074";
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0073";
         When = "2008"
         When = "2009"
            &FLDNUM = "0079";
         End-Evaluate;
         If &AID_YEAR_IN = "2003" Or
               &AID_YEAR_IN = "2004" Or
               &AID_YEAR_IN = "2005" Or
               &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
         End-If;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      Else
         If &AID_YEAR_IN = "2003" Or
               &AID_YEAR_IN = "2004" Or
               &AID_YEAR_IN = "2005" Or
               &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            Evaluate &AID_YEAR_IN
            When = "2003"
               &FLDNUM = "0073";
            When = "2004"
               &FLDNUM = "0074";
            When = "2005"
            When = "2006"
            When = "2007"
               &FLDNUM = "0073";
            When = "2008"
            When = "2009"
               &FLDNUM = "0079";
            End-Evaluate;
            &BLK_CHG = "N";
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
               &BLK_CHG = "Y";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
                  &BLK_CHG = "Y";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
            If &BLK_CHG = "Y" Then
               write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
            End-If;
         End-If;
      End-If;
      /* 
Parent - Father Income 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.FATHER_INCOME, 1);
      &NEWBLK = FetchValue(INAS_SIM_PAR.BLANK_FATHER_INC, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.FATHER_INCOME, &ROW2);
      &OLDBLK = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.BLANK_FATHER_INC, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0067";
         When = "2000"
            &FLDNUM = "0068";
         When = "2001"
            &FLDNUM = "0078";
         When = "2002"
            &FLDNUM = "0076";
         When = "2003"
            &FLDNUM = "0076";
         When = "2004"
            &FLDNUM = "0077";
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0076";
         When = "2008"
         When = "2009"
            &FLDNUM = "0082";
         End-Evaluate;
         If &AID_YEAR_IN = "2003" Or
               &AID_YEAR_IN = "2004" Or
               &AID_YEAR_IN = "2005" Or
               &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
         End-If;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      Else
         If &AID_YEAR_IN = "2003" Or
               &AID_YEAR_IN = "2004" Or
               &AID_YEAR_IN = "2005" Or
               &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            Evaluate &AID_YEAR_IN
            When = "2003"
               &FLDNUM = "0076";
            When = "2004"
               &FLDNUM = "0077";
            When = "2005"
            When = "2006"
            When = "2007"
               &FLDNUM = "0076";
            When = "2008"
            When = "2009"
               &FLDNUM = "0082";
            End-Evaluate;
            &BLK_CHG = "N";
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
               &BLK_CHG = "Y";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
                  &BLK_CHG = "Y";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
            If &BLK_CHG = "Y" Then
               write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
            End-If;
         End-If;
      End-If;
      /* 
Parent - Mother Income 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.MOTHER_INCOME, 1);
      &NEWBLK = FetchValue(INAS_SIM_PAR.BLANK_MOTHER_INC, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.MOTHER_INCOME, &ROW2);
      &OLDBLK = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.BLANK_MOTHER_INC, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0068";
         When = "2000"
            &FLDNUM = "0069";
         When = "2001"
            &FLDNUM = "0079";
         When = "2002"
            &FLDNUM = "0077";
         When = "2003"
            &FLDNUM = "0077";
         When = "2004"
            &FLDNUM = "0078";
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0077";
         When = "2008"
         When = "2009"
            &FLDNUM = "0083";
         End-Evaluate;
         If &AID_YEAR_IN = "2003" Or
               &AID_YEAR_IN = "2004" Or
               &AID_YEAR_IN = "2005" Or
               &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
         End-If;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      Else
         If &AID_YEAR_IN = "2003" Or
               &AID_YEAR_IN = "2004" Or
               &AID_YEAR_IN = "2005" Or
               &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            Evaluate &AID_YEAR_IN
            When = "2003"
               &FLDNUM = "0077";
            When = "2004"
               &FLDNUM = "0078";
            When = "2005"
            When = "2006"
            When = "2007"
               &FLDNUM = "0077";
            When = "2008"
            When = "2009"
               &FLDNUM = "0083";
            End-Evaluate;
            &BLK_CHG = "N";
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
               &BLK_CHG = "Y";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
                  &BLK_CHG = "Y";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
            If &BLK_CHG = "Y" Then
               write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
            End-If;
         End-If;
      End-If;
      /* 
Parent - Soc Sec Ben 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.SOC_SEC_BENEFITS, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.SOC_SEC_BENEFITS, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0070";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - AFDC Ben 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.AFDC_BENEFITS, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.AFDC_BENEFITS, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0071";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - Child Support 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.CHILD_SUPPORT, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.CHILD_SUPPORT, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0072";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - Untaxed Income 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.UNTAXED_INCOME, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.UNTAXED_INCOME, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0073";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - Cash Savings 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.CASH_SAVINGS, 1);
      &NEWBLK = FetchValue(INAS_SIM_PAR.BLANK_CASH_SAV, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.CASH_SAVINGS, &ROW2);
      &OLDBLK = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.BLANK_CASH_SAV, &ROW2);
      
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0083";
         When = "2000"
            &FLDNUM = "0072";
         When = "2001"
            &FLDNUM = "0082";
         When = "2002"
            &FLDNUM = "0083";
         When = "2003"
            &FLDNUM = "0083";
         When = "2004"
            &FLDNUM = "0084";
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0081";
         When = "2008"
         When = "2009"
            &FLDNUM = "0087";
         End-Evaluate;
         
         If &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
         End-If;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      Else
         If &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            Evaluate &AID_YEAR_IN
            When = "2006"
            When = "2007"
               &FLDNUM = "0081";
            When = "2008"
            When = "2009"
               &FLDNUM = "0087";
            End-Evaluate;
            &BLK_CHG = "N";
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
               &BLK_CHG = "Y";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
                  &BLK_CHG = "Y";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
            If &BLK_CHG = "Y" Then
               write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
            End-If;
         End-If;
      End-If;
      /* 
Parent - RE Invest Value 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.RE_INVEST_VALUE, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.RE_INVEST_VALUE, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0084";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - RE Invest Debt 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.RE_INVEST_DEBT, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.RE_INVEST_DEBT, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0085";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - Business Value 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.BUSINESS_VALUE, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.BUSINESS_VALUE, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0086";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - Business Debt 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.BUSINESS_DEBT, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.BUSINESS_DEBT, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0087";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - Farm Value 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.FARM_VALUE, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.FARM_VALUE, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0088";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - Farm Debt 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.FARM_DEBT, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.FARM_DEBT, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0089";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - Earned Inc Credit 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.ERND_INC_CREDIT, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.ERND_INC_CREDIT, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0069";
         When = "2000"
            &FLDNUM = "0067";
         When = "2001"
            &FLDNUM = "0077";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - Total From Worksheet B (formerly WS3) 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.TOTAL_FROM_WS3, 1);
      &NEWBLK = FetchValue(INAS_SIM_PAR.BLANK_TOT_FROM_WS3, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.TOTAL_FROM_WS3, &ROW2);
      &OLDBLK = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.BLANK_TOT_FROM_WS3, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "1999"
            &FLDNUM = "0074";
         When = "2000"
            &FLDNUM = "0071";
         When = "2001"
            &FLDNUM = "0081";
         When = "2002"
            &FLDNUM = "0079";
         When = "2003"
            &FLDNUM = "0079";
         When = "2004"
            &FLDNUM = "0080";
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0079";
         When = "2008"
         When = "2009"
            &FLDNUM = "0085";
         End-Evaluate;
         If &AID_YEAR_IN = "2003" Or
               &AID_YEAR_IN = "2004" Or
               &AID_YEAR_IN = "2005" Or
               &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
         End-If;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      Else
         If &AID_YEAR_IN = "2003" Or
               &AID_YEAR_IN = "2004" Or
               &AID_YEAR_IN = "2005" Or
               &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            Evaluate &AID_YEAR_IN
            When = "2003"
               &FLDNUM = "0079";
            When = "2004"
               &FLDNUM = "0080";
            When = "2005"
            When = "2006"
            When = "2007"
               &FLDNUM = "0079";
            When = "2008"
            When = "2009"
               &FLDNUM = "0085";
            End-Evaluate;
            &BLK_CHG = "N";
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
               &BLK_CHG = "Y";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
                  &BLK_CHG = "Y";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
            If &BLK_CHG = "Y" Then
               write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
            End-If;
         End-If;
      End-If;
      /* 
Parent - Invest Net Worth 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.INV_NET_WORTH, 1);
      &NEWBLK = FetchValue(INAS_SIM_PAR.BLANK_INV_NET_WRTH, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.INV_NET_WORTH, &ROW2);
      &OLDBLK = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.BLANK_INV_NET_WRTH, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2000"
            &FLDNUM = "0073";
         When = "2001"
            &FLDNUM = "0083";
         When = "2002"
            &FLDNUM = "0081";
         When = "2003"
            &FLDNUM = "0081";
         When = "2004"
            &FLDNUM = "0082";
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0082";
         When = "2008"
         When = "2009"
            &FLDNUM = "0088";
         End-Evaluate;
         If &AID_YEAR_IN = "2003" Or
               &AID_YEAR_IN = "2004" Or
               &AID_YEAR_IN = "2005" Or
               &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
         End-If;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      Else
         If &AID_YEAR_IN = "2003" Or
               &AID_YEAR_IN = "2004" Or
               &AID_YEAR_IN = "2005" Or
               &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            Evaluate &AID_YEAR_IN
            When = "2003"
               &FLDNUM = "0081";
            When = "2004"
               &FLDNUM = "0082";
            When = "2005"
            When = "2006"
            When = "2007"
               &FLDNUM = "0082";
            When = "2008"
            When = "2009"
               &FLDNUM = "0088";
            End-Evaluate;
            &BLK_CHG = "N";
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
               &BLK_CHG = "Y";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
                  &BLK_CHG = "Y";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
            If &BLK_CHG = "Y" Then
               write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
            End-If;
         End-If;
      End-If;
      /* 
Parent - Bus Net Worth 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.BUS_NET_WORTH, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.BUS_NET_WORTH, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2000"
            &FLDNUM = "0074";
         When = "2001"
            &FLDNUM = "0084";
         When = "2002"
            &FLDNUM = "0082";
         When = "2003"
            &FLDNUM = "0082";
         When = "2004"
            &FLDNUM = "0083";
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0083";
         When = "2008"
         When = "2009"
            &FLDNUM = "0089";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - Farm Net Worth 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.FARM_NET_WORTH, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.FARM_NET_WORTH, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2000"
            &FLDNUM = "0075";
         When = "2001"
            &FLDNUM = "0085";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - Legal Res Prior  
*/
      If &AID_YEAR_IN > "2000" Then
         &NEWVAL = FetchValue(INAS_SIM_PAR.LEGAL_RES_PRIOR, 1);
         &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.LEGAL_RES_PRIOR, &ROW2);
      Else
         &NEWVAL = FetchValue(INAS_SIM_PAR.LEGAL_RES_PRI_94, 1);
         &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.LEGAL_RES_PRI_94, &ROW2);
      End-If;
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2000"
            &FLDNUM = "0080";
         When = "2001"
            &FLDNUM = "0068";
         When = "2002"
            &FLDNUM = "0067";
         When = "2003"
            &FLDNUM = "0067";
         When = "2004"
            &FLDNUM = "0068";
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0068";
         When = "2008"
         When = "2009"
            &FLDNUM = "0069";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - Tax Return Filed 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.TAX_RETURN_FILED, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.TAX_RETURN_FILED, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2000"
            &FLDNUM = "0061";
         When = "2001"
            &FLDNUM = "0071";
         When = "2002"
            &FLDNUM = "0070";
         When = "2003"
            &FLDNUM = "0070";
         When = "2004"
            &FLDNUM = "0071";
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0070";
         When = "2008"
         When = "2009"
            &FLDNUM = "0076";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - Elig For 1040A EZ 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.ELIG_FOR_1040A_EZ, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.ELIG_FOR_1040A_EZ, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2000"
            &FLDNUM = "0063";
         When = "2001"
            &FLDNUM = "0073";
         When = "2002"
            &FLDNUM = "0072";
         When = "2003"
            &FLDNUM = "0072";
         When = "2004"
            &FLDNUM = "0073";
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0072";
         When = "2008"
         When = "2009"
            &FLDNUM = "0078";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Parent - Total From WKA 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.TOTAL_FROM_WKA, 1);
      &NEWBLK = FetchValue(INAS_SIM_PAR.BLANK_TOT_FROM_WKA, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.TOTAL_FROM_WKA, &ROW2);
      &OLDBLK = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.BLANK_TOT_FROM_WKA, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2000"
            &FLDNUM = "0070";
         When = "2001"
            &FLDNUM = "0080";
         When = "2002"
            &FLDNUM = "0078";
         When = "2003"
            &FLDNUM = "0078";
         When = "2004"
            &FLDNUM = "0079";
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0078";
         When = "2008"
         When = "2009"
            &FLDNUM = "0084";
         End-Evaluate;
         If &AID_YEAR_IN = "2003" Or
               &AID_YEAR_IN = "2004" Or
               &AID_YEAR_IN = "2005" Or
               &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
         End-If;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      Else
         If &AID_YEAR_IN = "2003" Or
               &AID_YEAR_IN = "2004" Or
               &AID_YEAR_IN = "2005" Or
               &AID_YEAR_IN = "2006" Or
               &AID_YEAR_IN = "2007" Or
               &AID_YEAR_IN = "2008" Then
               &AID_YEAR_IN = "2008" Or
               &AID_YEAR_IN = "2009" Then
            Evaluate &AID_YEAR_IN
            When = "2003"
               &FLDNUM = "0078";
            When = "2004"
               &FLDNUM = "0079";
            When = "2005"
            When = "2006"
            When = "2007"
               &FLDNUM = "0078";
            When = "2008"
            When = "2009"
               &FLDNUM = "0084";
            End-Evaluate;
            &BLK_CHG = "N";
            If &NEWBLK = "Y" And
                  &OLDBLK = "N" Then
               &NEWVAL = " ";
               &BLK_CHG = "Y";
            Else
               If &NEWBLK = "N" And
                     &OLDBLK = "Y" Then
                  &OLDVAL = " ";
                  &BLK_CHG = "Y";
               Else
                  If &NEWBLK = "Y" And
                        &OLDBLK = "Y" Then
                     &NEWVAL = " ";
                     &OLDVAL = " ";
                  End-If;
               End-If;
            End-If;
            If &BLK_CHG = "Y" Then
               write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
            End-If;
         End-If;
      End-If;
      /* 
Parent - Total From WKC 
*/
      &NEWVAL = FetchValue(INAS_SIM_PAR.TOTAL_FROM_WKC, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_PARENT.TOTAL_FROM_WKC, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         Evaluate &AID_YEAR_IN
         When = "2002"
            &FLDNUM = "0080";
         When = "2003"
            &FLDNUM = "0080";
         When = "2004"
            &FLDNUM = "0081";
         When = "2005"
         When = "2006"
         When = "2007"
            &FLDNUM = "0080";
         When = "2008"
         When = "2009"
            &FLDNUM = "0086";
         End-Evaluate;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Interpret - Reject Ovrd Student Tax Paid GT Zero and GE Student AGI 
Interpret - Reject Ovrd 2 - Mother SSN all zeros and Tax filer 
*/
      If &AID_YEAR_IN >= "2008" Then
         &NEWVAL = FetchValue(INAS_SIM_INT.SFA_REJ_OVR_NO_TAX, 1);
         &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_INTERPRET.SFA_REJ_OVR_NO_TAX, &ROW2);
         If &NEWVAL <> &OLDVAL Then
            &FLDNUM = "0919";
            write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
         End-If;
      End-If;
      /* 
Interpret - Reject Ovrd 3 - Student Tax Paid GT Zero and GE Student AGI 
*/
      If &AID_YEAR_IN >= "2006" Then
         &NEWVAL = FetchValue(INAS_SIM_INT.SFA_REJ_OVR_TX_STU, 1);
         &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_INTERPRET.SFA_REJ_OVR_TX_STU, &ROW2);
         If &NEWVAL <> &OLDVAL Then
            &FLDNUM = "0914";
            write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
         End-If;
      End-If;
      /* 
Interpret - Reject Ovrd Parent Tax Paid GT Zero and GE Parent AGI 
Interpret - Reject Ovrd 4 - Mother SSN all zeros and Tax filer 
*/
      If &AID_YEAR_IN >= "2008" Then
         &NEWVAL = FetchValue(INAS_SIM_INT.SFA_REJ_OVR_MR_STU, 1);
         &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_INTERPRET.SFA_REJ_OVR_MR_STU, &ROW2);
         If &NEWVAL <> &OLDVAL Then
            &FLDNUM = "0918";
            write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
         End-If;
      End-If;
      /* 
Interpret - Reject Ovrd 12 - Parent Tax Paid GT Zero and GE Parent AGI 
*/
      If &AID_YEAR_IN >= "2006" Then
         &NEWVAL = FetchValue(INAS_SIM_INT.SFA_REJ_OVR_TX_PAR, 1);
         &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_INTERPRET.SFA_REJ_OVR_TX_PAR, &ROW2);
         If &NEWVAL <> &OLDVAL Then
            &FLDNUM = "0915";
            write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
         End-If;
      End-If;
      /* 
Interpret - Reject Ovrd Father SSN all zeros and Tax filer 
Interpret - Reject Ovrd J - Father SSN all zeros and Tax filer 
*/
      If &AID_YEAR_IN >= "2006" Then
         &NEWVAL = FetchValue(INAS_SIM_INT.SFA_REJ_OVR_DADSSN, 1);
         &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_INTERPRET.SFA_REJ_OVR_DADSSN, &ROW2);
         If &NEWVAL <> &OLDVAL Then
            &FLDNUM = "0916";
            write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
         End-If;
      End-If;
      /* 
Interpret - Reject Ovrd Mother SSN all zeros and Tax filer 
Interpret - Reject Ovrd K - Mother SSN all zeros and Tax filer 
*/
      If &AID_YEAR_IN >= "2006" Then
         &NEWVAL = FetchValue(INAS_SIM_INT.SFA_REJ_OVR_MOMSSN, 1);
         &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_INTERPRET.SFA_REJ_OVR_MOMSSN, &ROW2);
         If &NEWVAL <> &OLDVAL Then
            &FLDNUM = "0917";
            write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
         End-If;
      End-If;
      /* 
Interpret - Reject Ovrd Tax Range 
Interpret - Reject Ovrd C - Tax Range 
*/
      If &AID_YEAR_IN >= "2004" Then
         &NEWVAL = FetchValue(INAS_SIM_INT.REJ_OVR_TAX_RANGE, 1);
         &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_INTERPRET.REJ_OVR_TAX_RANGE, &ROW2);
         If &NEWVAL <> &OLDVAL Then
            &FLDNUM = "0900";
            write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
         End-If;
      End-If;
      /* 
Interpret - Reject Dependent Ovrd Tax Range 
Interpret - Reject Ovrd G - Dependent Tax Range 
*/
      If &AID_YEAR_IN >= "2005" Then
         &NEWVAL = FetchValue(INAS_SIM_INT.REJ_OVR_TAXRNG_DEP, 1);
         &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_INTERPRET.REJ_OVR_TAXRNG_DEP, &ROW2);
         If &NEWVAL <> &OLDVAL Then
            &FLDNUM = "0913";
            write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
         End-If;
      End-If;
      /* 
Interpret - Reject Ovrd Ind Student 
Interpret - Reject Ovrd B - Ind Student 
*/
      &NEWVAL = FetchValue(INAS_SIM_INT.REJ_OVR_IND_STDNT, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_INTERPRET.REJ_OVR_IND_STDNT, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         &FLDNUM = "0901";
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Interpret - Reject Ovrd Investment Debt 
*/
      If &AID_YEAR_IN <= "2000" Then
         &NEWVAL = FetchValue(INAS_SIM_INT.REJ_OVR_INV_DEBT, 1);
         &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_INTERPRET.REJ_OVR_INV_DEBT, &ROW2);
         If &NEWVAL <> &OLDVAL Then
            &FLDNUM = "0904";
            write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
         End-If;
      End-If;
      /* 
Interpret - Reject Ovrd Birth Year 
Interpret - Reject Ovrd A - Birth Year 
*/
      If &AID_YEAR_IN >= "2004" Then
         &NEWVAL = FetchValue(INAS_SIM_INT.REJ_OVR_BIRTH_YEAR, 1);
         &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_INTERPRET.REJ_OVR_BIRTH_YEAR, &ROW2);
         If &NEWVAL <> &OLDVAL Then
            &FLDNUM = "0902";
            write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
         End-If;
      End-If;
      /* 
Interpret - Reject Ovrd Dep Student 
*/
      If &AID_YEAR_IN <= "2000" Then
         &NEWVAL = FetchValue(INAS_SIM_INT.REJ_OVR_DEP_STDNT, 1);
         &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_INTERPRET.REJ_OVR_DEP_STDNT, &ROW2);
         If &NEWVAL <> &OLDVAL Then
            &FLDNUM = "0902";
            write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
         End-If;
      End-If;
      /* 
Interpret - Reject Ovrd Student Name 
Interpret - Reject Ovrd N - Student Name 
*/
      &NEWVAL = FetchValue(INAS_SIM_INT.REJ_OVR_STDNT_NAME, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_INTERPRET.REJ_OVR_STDNT_NAME, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         &FLDNUM = "0903";
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Interpret - Reject Ovrd Invest Debt 
*/
      If &AID_YEAR_IN <= "2000" Then
         &NEWVAL = FetchValue(INAS_SIM_INT.REJ_OVR_INV_DEBT, 1);
         &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_INTERPRET.REJ_OVR_INV_DEBT, &ROW2);
         If &NEWVAL <> &OLDVAL Then
            &FLDNUM = "0904";
            write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
         End-If;
      End-If;
      /* 
Interpret - Reject Ovrd Big Family 
Interpret - Reject Ovrd W - Big Family 
*/
      &NEWVAL = FetchValue(INAS_SIM_INT.REJ_OVR_BIG_FAMILY, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_INTERPRET.REJ_OVR_BIG_FAMILY, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         &FLDNUM = "0905";
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Interpret - Assumption Ovrd Family Member 
*/
      If &AID_YEAR_IN <= "2000" Then
         &NEWVAL = FetchValue(INAS_SIM_INT.ASMPTN_OVR_FAM_MEM, 1);
         &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_INTERPRET.ASMPTN_OVR_FAM_MEM, &ROW2);
         If &NEWVAL <> &OLDVAL Then
            &FLDNUM = "0906";
            write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
         End-If;
      End-If;
      /* 
Interpret - Assumption Ovrd Parent College 
Interpret - Assumption Ovrd 1 - Parent College 
*/
      &NEWVAL = FetchValue(INAS_SIM_INT.ASMPTN_OVR_COL_P, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_INTERPRET.ASMPTN_OVR_COL_P, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         If &AID_YEAR_IN >= "2001" Then
            &FLDNUM = "0906";
         Else
            &FLDNUM = "0907";
         End-If;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Interpret - Assumption Ovrd Parent AGI 
Interpret - Assumption Ovrd 2 - Parent AGI 
*/
      &NEWVAL = FetchValue(INAS_SIM_INT.ASMPTN_OVR_AGI_P, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_INTERPRET.ASMPTN_OVR_AGI_P, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         If &AID_YEAR_IN >= "2001" Then
            &FLDNUM = "0907";
         Else
            &FLDNUM = "0908";
         End-If;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Interpret - Assumption Ovrd Student College 
Interpret - Assumption Ovrd 3 - Student College 
*/
      &NEWVAL = FetchValue(INAS_SIM_INT.ASMPTN_OVR_COL_S, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_INTERPRET.ASMPTN_OVR_COL_S, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         If &AID_YEAR_IN >= "2001" Then
            &FLDNUM = "0908";
         Else
            &FLDNUM = "0909";
         End-If;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Interpret - Assumption Ovrd Student AGI 
Interpret - Assumption Ovrd 4 - Student AGI 
*/
      &NEWVAL = FetchValue(INAS_SIM_INT.ASMPTN_OVR_AGI_S, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_INTERPRET.ASMPTN_OVR_AGI_S, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         If &AID_YEAR_IN >= "2001" Then
            &FLDNUM = "0909";
         Else
            &FLDNUM = "0910";
         End-If;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Interpret - Assumption Ovrd SSN Ben 
*/
      If &AID_YEAR_IN <= "1999" Then
         &NEWVAL = FetchValue(INAS_SIM_INT.ASMPTN_OVR_SSN_BEN, 1);
         &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_INTERPRET.ASMPTN_OVR_SSN_BEN, &ROW2);
         If &NEWVAL <> &OLDVAL Then
            &FLDNUM = "0911";
            write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
         End-If;
      End-If;
      /* 
Interpret - Assumption Ovrd Worksheet B (formerly WS3) Parent 
Interpret - Assumption Ovrd 5 - Worksheet B (formerly WS3) Parent 
*/
      &NEWVAL = FetchValue(INAS_SIM_INT.ASMPTN_OVR_WS3_P, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_INTERPRET.ASMPTN_OVR_WS3_P, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         If &AID_YEAR_IN >= "2001" Then
            &FLDNUM = "0910";
         Else
            &FLDNUM = "0912";
         End-If;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Interpret - Assumption Ovrd Worksheet B (formerly WS3) Student 
Interpret - Assumption Ovrd 6 - Worksheet B (formerly WS3) Student 
*/
      &NEWVAL = FetchValue(INAS_SIM_INT.ASMPTN_OVR_WS3_S, 1);
      &OLDVAL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_INTERPRET.ASMPTN_OVR_WS3_S, &ROW2);
      If &NEWVAL <> &OLDVAL Then
         If &AID_YEAR_IN >= "2001" Then
            &FLDNUM = "0912";
         Else
            &FLDNUM = "0913";
         End-If;
         write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
      End-If;
      /* 
Control - Dependency Override
*/
      &NEWVAL = FetchValue(INAS_SIM_INT.DEPNDNCY_OVERRIDE, 1);
      &OLDVAL = FetchValue(ISIR_CONTROL.DEPNDNCY_OVERRIDE, 1);
      If &AID_YEAR_IN >= "2003" And
            &AID_YEAR_IN <= "2007" Then
      If &AID_YEAR_IN >= "2003" Then
         If &NEWVAL <> &OLDVAL Then
            Evaluate &AID_YEAR_IN
            When = "2003"
               &FLDNUM = "0104";
            When = "2004"
               &FLDNUM = "0106";
            When = "2005"
            When = "2006"
            When = "2007"
               &FLDNUM = "0106";
            When = "2008"
               &FLDNUM = "0116";
            When = "2009"
               &FLDNUM = "0124";
            End-Evaluate;
            write_inas_sim_audit(&FLDNUM, &OLDVAL, &NEWVAL);
         End-If;
      End-If;
      /* 
Remote Call 
*/
      DoSaveNow();
      rem;
      If &AID_YEAR_IN < "2002" Then
         RemoteCall("PSRCCBL", "PSCOBOLPROG", "FAPINASS", "EMPLID", &EMPLID_IN, "INSTITUTION", &INST_IN, "AIDYEAR", &AID_YEAR_IN, "RC", &RTN_CODE);
      Else
         RemoteCall("PSRCCBL", "PSCOBOLPROG", "FAPINSS2", "EMPLID", &EMPLID_IN, "INSTITUTION", &INST_IN, "AIDYEAR", &AID_YEAR_IN, "RC", &RTN_CODE);
      End-If;
      rem;
      Evaluate &RTN_CODE
      When 0
         Break;
      When 50
         MessageBox(48, "INAS Edit", 14400, 50, "Setup a Local Policy for the Institution and Aid Year.");
         Break;
      When 51
         MessageBox(48, "INAS Edit", 14400, 51, "No row was found on ISIR_STUDENT.");
         Break;
      When 52
         MessageBox(48, "INAS Edit", 14400, 52, "No row was found ISIR_PARENT.");
         Break;
      When 53
         MessageBox(48, "INAS Edit", 14400, 53, "No row was found on STUDENT_AID.");
         Break;
      When 54
         MessageBox(48, "INAS Edit", 14400, 54, "No row was found on PERSONAL_DATA.");
         Break;
      When 55
         MessageBox(48, "INAS Edit", 14400, 55, "No row was found on INST_CONTROL.");
         Break;
      When 56
         MessageBox(48, "INAS Edit", 14400, 56, "No row was found on INST_STUDENT");
         Break;
      When 57
         MessageBox(48, "INAS Edit", 14400, 57, "No row was found on INST_PARENT.");
         Break;
      When 61
         MessageBox(48, "INAS Edit", 14400, 61, "No row was found on INAS_SIM_STU.");
         Break;
      When 62
         MessageBox(48, "INAS Edit", 14400, 62, "No row was found on INAS_SIM_PAR.");
         Break;
      When 63
         MessageBox(48, "INAS Edit", 14400, 63, "Budgeted number of weeks for the Academic award period not equal base number of weeks.");
         Break;
      When 64
         MessageBox(48, "INAS Edit", 14400, 64, "Budgeted number of weeks for the Non Standard award period not equal base number of weeks.");
         Break;
      When 65
         MessageBox(48, "INAS Edit", 14400, 65, "Budgeted number of weeks for both the Academic and Non-Standard award periods not equal to Base weeks in Installation FA.");
         Break;
      When 66
         MessageBox(48, "INAS Edit", 14400, 66, "No row was found on INAS_SIM_INT.");
         Break;
      When 67
         MessageBox(48, "INAS Edit", 14400, 67, "No row was found on INAS_SIM_COMP.");
         Break;
      When 68
         MessageBox(48, "INAS Edit", 14400, 68, "No row was found on STDNT_AWD_PER.");
         Break;
      When 130
         MessageBox(48, "INAS Edit", 14400, 130, "Simulation Data being pushed has no Simulation Extension row.  Deleting current Fed Extension row.");
      When 160
         MessageBox(48, "INAS Edit", 14400, 160, "Student's leading term for the Aid Year in question is a Non-Standard term, but the specified Non-Standard FM Budget Duration is equal to zero.  INAS Calc assumed leading term to be an 'Academic' term.");
         Break;
      When 163
         MessageBox(48, "INAS Edit", 14400, 163, "Student's leading term for the Aid Year in question is an Academic term, but the specified Academic FM Budget Duration is equal to zero.  INAS Calc assumed leading term to be a Non-Standard term.");
         Break;
      When 170
         MessageBox(48, "INAS Edit", 14400, 170, "FM Budget Duration is Zero months.  INAS Calc assumed FM Duration of 9 months.");
         Break;
      When 186
         MessageBox(48, "INAS Edit", 14400, 186, "The 'Use Monthly EFC' Proration Method calculated an EFC greater than the monthly ISIR EFC for the student in question.  If you do not wish to use the calculated EFC, please select another EFC Proration Method from Local Policy Options or Simulation Extension.");
         Break;
      When-Other
         If &AID_YEAR_IN < "2002" Then
            &SIMPROG = "FAPINASS";
         Else
            &SIMPROG = "FAPINSS2";
         End-If;
         Error (MsgGet(14400, 27, "Non-Zero return code from INAS Simulation Update.", &SIMPROG, &RTN_CODE));
      End-Evaluate;
      rem;
   Else
      MessageBox(16, "ISIR Audits", 14440, 10, "Aid Year Not Active.", &AID_YEAR_IN);
   End-If;
End-If;

PeopleCode (Record): DERIVED_SA.ISIR_SUMRY_PB.FieldChange
If %PanelGroup = PanelGroup.FAFSA_DATA Or
      %PanelGroup = PanelGroup.FAFSA_DATA_00 Or
      %PanelGroup = PanelGroup.ISIR_CORRECTIONS01 Or
      %PanelGroup = PanelGroup.ISIR_CORRECTIONS00 Or
      %PanelGroup = PanelGroup.ISIR_CORRECTIONS02 Or
      %PanelGroup = PanelGroup.ISIR_CORRPIA02 Or
      %PanelGroup = PanelGroup.ISIR_CORRPIA03 Or
      %PanelGroup = PanelGroup.ISIR_CORRPIA04 Or
      %PanelGroup = PanelGroup.ISIR_CORRPIA05 Or
      %PanelGroup = PanelGroup.ISIR_CORRPIA06 Or
      %PanelGroup = PanelGroup.ISIR_CORRPIA07 Or
      %PanelGroup = PanelGroup.ISIR_CORRPIA08 Or
      %PanelGroup = PanelGroup.ISIR_CORRPIA09 Or
      %PanelGroup = PanelGroup.ISIR_CORRECTIONS Or
      %PanelGroup = PanelGroup.EFC_ASSMPTN_FAA_DB Or
      %PanelGroup = PanelGroup.ISIR_EFC_SUMRY_DET Or
      %PanelGroup = PanelGroup.ISIR_EFC_SMRY_DT01 Or
      %PanelGroup = PanelGroup.ISIR_EFC_SMRY_DT02 Or
      %PanelGroup = PanelGroup.ISIR_EFC_SMRY_DT03 Or
      %PanelGroup = PanelGroup.ISIR_EFC_SMRY_DT04 Or
      %PanelGroup = PanelGroup.ISIR_EFC_SMRY_DT05 Or
      %PanelGroup = PanelGroup.ISIR_EFC_SMRY_DT06 Or
      %PanelGroup = PanelGroup.ISIR_EFC_SMRY_DT07 Or
      %PanelGroup = PanelGroup.ISIR_EFC_SMRY_DT08 Or
      %PanelGroup = PanelGroup.ISIR_EFC_SMRY_DT09 Or
      %PanelGroup = PanelGroup.INAS_SUMMARY Or
      %Panel = Panel.STDNT_AID_PACKAGE Then
   &TITLE = "ISIR Information Summary";
   DoModal(Panel.ISIR_INFO_SMRY_SEC, &TITLE, - 1, - 1);
End-If;

PeopleCode (Record): DERIVED_SA.NEED_SUMRY_PB.FieldChange
If %PanelGroup = PanelGroup.EFC_ASSMPTN_FAA_DB Or
      %PanelGroup = PanelGroup.ISIR_CORRPIA01 Or
      %PanelGroup = PanelGroup.ISIR_CORRPIA02 Or
      %PanelGroup = PanelGroup.ISIR_CORRPIA03 Or
      %PanelGroup = PanelGroup.ISIR_CORRPIA04 Or
      %PanelGroup = PanelGroup.ISIR_CORRPIA05 Or
      %PanelGroup = PanelGroup.ISIR_CORRPIA06 Or
      %PanelGroup = PanelGroup.ISIR_CORRPIA07 Or
      %PanelGroup = PanelGroup.ISIR_CORRPIA08 Or
      %PanelGroup = PanelGroup.ISIR_CORRPIA09 Or
      %PanelGroup = PanelGroup.ISIR_CORR_HISTORY Then
   /*ScrollFlush(RECORD.ISIR_CONTROL, CurrentRowNumber(), RECORD.ISIR_NEED_VW); 
   ScrollSelect(2, RECORD.ISIR_CONTROL, RECORD.ISIR_NEED_VW, RECORD.ISIR_NEED_VW, "WHERE EMPLID =:1 AND INSTITUTION =:2 AND AID_YEAR =:3 AND EFFDT = %datein(:4) AND EFFSEQ =:5", ISIR_CONTROL.EMPLID, ISIR_CONTROL.INSTITUTION, ISIR_CONTROL.AID_YEAR, ISIR_CONTROL.EFFDT, ISIR_CONTROL.EFFSEQ); 
ScrollFlush(RECORD.ISIR_CONTROL, CurrentRowNumber(), RECORD.STDNT_AP_ISR_VW); 
   ScrollSelect(2, RECORD.ISIR_CONTROL, RECORD.STDNT_AP_ISR_VW, RECORD.STDNT_AP_ISR_VW, "WHERE EMPLID =:1 AND INSTITUTION =:2 AND AID_YEAR =:3", ISIR_CONTROL.EMPLID, ISIR_CONTROL.INSTITUTION, ISIR_CONTROL.AID_YEAR);*/
   &TITLE = MsgGetText(14400, 99, "Need Summary");
   DoModal(Panel.NEED_SUMMARY_SEC, &TITLE, - 1, - 1);
End-If;
/*--*/
If %Panel = Panel.STDNT_AID_PACKAGE Then
   /*ScrollFlush(RECORD.ISIR_NEED_VW1); 
   ScrollSelect(1, RECORD.ISIR_NEED_VW1, RECORD.ISIR_NEED_VW1, "WHERE EMPLID =:1 AND INSTITUTION =:2 AND AID_YEAR =:3 ORDER BY AWARD_PERIOD", STDNT_AID_SRCH.EMPLID, STDNT_AID_SRCH.INSTITUTION, STDNT_AID_SRCH.AID_YEAR);*/
   &TITLE = MsgGetText(14400, 99, "Need Summary");
   DoModal(Panel.NEED_SUMMARY_SEC, &TITLE, - 1, - 1);
End-If;
/*--*/
If %PanelGroup = PanelGroup.INAS_SIMULATION Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_00 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_01 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_02 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_03 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_04 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_05 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_06 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_07 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_08 Then
      %PanelGroup = PanelGroup.INAS_SIMULATION_08 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_09 Then
   /*&ROW = CurrentRowNumber(); 
   &EMPLID = FetchValue(INAS_SIM_STU.EMPLID, &ROW); 
   &INST = FetchValue(INAS_SIM_STU.INSTITUTION, &ROW); 
   &AIDYEAR = FetchValue(INAS_SIM_STU.AID_YEAR, &ROW); 
   ScrollFlush(RECORD.STDNT_AWD_PER); 
   ScrollSelect(1, RECORD.STDNT_AWD_PER, RECORD.STDNT_AWD_PER, "WHERE EMPLID =:1 AND INSTITUTION =:2 AND AID_YEAR =:3", &EMPLID, &INST, &AIDYEAR);*/
   &TITLE = MsgGetText(14400, 100, "Federal Need Summary");
   DoModal(Panel.NEED_INAS_SIM_SEC, &TITLE, - 1, - 1);
End-If;

PeopleCode (Record): DERIVED_SA_PAR.CHAR_AGI.FieldChange
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;
Declare Function ISIR_CHECK_FOR_E PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.ISIR_CORRPIA03 Or
      %Component = Component.ISIR_CORRPIA04 Or
      %Component = Component.ISIR_CORRPIA05 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Or
      %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If DERIVED_SA_PAR.CHAR_AGI <> "" Then
      &Char = (DERIVED_SA_PAR.CHAR_AGI);
      ISIR_CHECK_FOR_E(&Char);
      &Value = Value(DERIVED_SA_PAR.CHAR_AGI);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      DERIVED_SA_PAR.CHAR_AGI = &Char;
   End-If;
End-If;

If %Component = Component.ISIR_CORRPIA03 Or
      %Component = Component.ISIR_CORRPIA04 Or
      %Component = Component.ISIR_CORRPIA05 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Then
   ISIR_PARENT.DFLT_AGI_IND = "R";
   If DERIVED_SA_PAR.CHAR_AGI = "" Then
      ISIR_PARENT.BLANK_AGI = "Y";
      ISIR_PARENT.AGI = 0;
   Else
      ISIR_PARENT.BLANK_AGI = "N";
      ISIR_PARENT.AGI = Value(DERIVED_SA_PAR.CHAR_AGI);
   End-If;
End-If;

If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   INAS_SIM_PAR.DFLT_AGI_IND = "S";
   If DERIVED_SA_PAR.CHAR_AGI = "" Then
      /*make field property IsChanged = Y so field will be audited*/
      If INAS_SIM_PAR.AGI = 0 Then
         INAS_SIM_PAR.AGI = 1;
      End-If;
      INAS_SIM_PAR.BLANK_AGI = "Y";
      INAS_SIM_PAR.AGI = 0;
   Else
      /*make field property IsChanged = Y so field will be audited*/
      If DERIVED_SA_PAR.CHAR_AGI = "0" And
            INAS_SIM_PAR.AGI = 0 Then
         INAS_SIM_PAR.AGI = 1;
      End-If;
      INAS_SIM_PAR.BLANK_AGI = "N";
      INAS_SIM_PAR.AGI = Value(DERIVED_SA_PAR.CHAR_AGI);
   End-If;
End-If;

PeopleCode (Record): DERIVED_SA_PAR.CHAR_AGI.FieldEdit
&Value = Value(DERIVED_SA_PAR.CHAR_AGI);
If (%Component = Component.ISIR_CORRPIA03 Or
         %Component = Component.ISIR_CORRPIA04 Or
         %Component = Component.ISIR_CORRPIA05 Or
         %Component = Component.ISIR_CORRPIA06 Or
         %Component = Component.ISIR_CORRPIA07 Or
         %Component = Component.ISIR_CORRPIA08 Or
         %Component = Component.ISIR_CORRPIA09 Or
         %Component = Component.INAS_SIMULATION_03 Or
         %Component = Component.INAS_SIMULATION_04 Or
         %Component = Component.INAS_SIMULATION_05 Or
         %Component = Component.INAS_SIMULATION_06 Or
         %Component = Component.INAS_SIMULATION_07 Or
         %Component = Component.INAS_SIMULATION_08) And
         %Component = Component.INAS_SIMULATION_08 Or
         %Component = Component.INAS_SIMULATION_09) And
      (&Value > 999999 Or
         &Value < - 999999) Then
   Error MsgGet(14440, 9060, "AGI cannot be greater than 999,999");
End-If;

PeopleCode (Record): DERIVED_SA_PAR.CHAR_CASH_SAV.FieldChange
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;
Declare Function ISIR_CHECK_FOR_E PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Then
   If DERIVED_SA_PAR.CHAR_CASH_SAV <> "" Then
      &Char = (DERIVED_SA_PAR.CHAR_CASH_SAV);
      ISIR_CHECK_FOR_E(&Char);
      &Value = Value(DERIVED_SA_PAR.CHAR_CASH_SAV);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      DERIVED_SA_PAR.CHAR_CASH_SAV = &Char;
   End-If;
End-If;

If %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Then
   
   If DERIVED_SA_PAR.CHAR_CASH_SAV = "" Then
      ISIR_PARENT.BLANK_CASH_SAV = "Y";
      ISIR_PARENT.CASH_SAVINGS = 0;
   Else
      ISIR_PARENT.BLANK_CASH_SAV = "N";
      ISIR_PARENT.CASH_SAVINGS = Value(DERIVED_SA_PAR.CHAR_CASH_SAV);
   End-If;
End-If;

If %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If DERIVED_SA_PAR.CHAR_CASH_SAV = "" Then
      INAS_SIM_PAR.BLANK_CASH_SAV = "Y";
      INAS_SIM_PAR.CASH_SAVINGS = 0;
   Else
      INAS_SIM_PAR.BLANK_CASH_SAV = "N";
      INAS_SIM_PAR.CASH_SAVINGS = Value(DERIVED_SA_PAR.CHAR_CASH_SAV);
   End-If;
End-If;

PeopleCode (Record): DERIVED_SA_PAR.CHAR_FATHER_INC.FieldChange
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;
Declare Function ISIR_CHECK_FOR_E PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.ISIR_CORRPIA03 Or
      %Component = Component.ISIR_CORRPIA04 Or
      %Component = Component.ISIR_CORRPIA05 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Or
      %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If DERIVED_SA_PAR.CHAR_FATHER_INC <> "" Then
      &Char = (DERIVED_SA_PAR.CHAR_FATHER_INC);
      ISIR_CHECK_FOR_E(&Char);
      &Value = Value(DERIVED_SA_PAR.CHAR_FATHER_INC);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      DERIVED_SA_PAR.CHAR_FATHER_INC = &Char;
   End-If;
End-If;

If %Component = Component.ISIR_CORRPIA03 Or
      %Component = Component.ISIR_CORRPIA04 Or
      %Component = Component.ISIR_CORRPIA05 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Then
   ISIR_PARENT.DFLT_DAD_INC_IND = "R";
   If DERIVED_SA_PAR.CHAR_FATHER_INC = "" Then
      ISIR_PARENT.BLANK_FATHER_INC = "Y";
      ISIR_PARENT.FATHER_INCOME = 0;
   Else
      ISIR_PARENT.BLANK_FATHER_INC = "N";
      ISIR_PARENT.FATHER_INCOME = Value(DERIVED_SA_PAR.CHAR_FATHER_INC);
   End-If;
End-If;

If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   INAS_SIM_PAR.DFLT_DAD_INC_IND = "S";
   If DERIVED_SA_PAR.CHAR_FATHER_INC = "" Then
      /*make field property IsChanged = Y so field will be audited*/
      If INAS_SIM_PAR.FATHER_INCOME = 0 Then
         INAS_SIM_PAR.FATHER_INCOME = 1;
      End-If;
      INAS_SIM_PAR.BLANK_FATHER_INC = "Y";
      INAS_SIM_PAR.FATHER_INCOME = 0;
   Else
      /*make field property IsChanged = Y so field will be audited*/
      If DERIVED_SA_PAR.CHAR_FATHER_INC = "0" And
            INAS_SIM_PAR.FATHER_INCOME = 0 Then
         INAS_SIM_PAR.FATHER_INCOME = 1;
      End-If;
      INAS_SIM_PAR.BLANK_FATHER_INC = "N";
      INAS_SIM_PAR.FATHER_INCOME = Value(DERIVED_SA_PAR.CHAR_FATHER_INC);
   End-If;
End-If;

PeopleCode (Record): DERIVED_SA_PAR.CHAR_FATHER_INC.FieldEdit
&Value = Value(DERIVED_SA_PAR.CHAR_FATHER_INC);
If (%Component = Component.ISIR_CORRPIA03 Or
         %Component = Component.ISIR_CORRPIA04 Or
         %Component = Component.ISIR_CORRPIA05 Or
         %Component = Component.ISIR_CORRPIA06 Or
         %Component = Component.ISIR_CORRPIA07 Or
         %Component = Component.ISIR_CORRPIA08 Or
         %Component = Component.ISIR_CORRPIA09 Or
         %Component = Component.INAS_SIMULATION_03 Or
         %Component = Component.INAS_SIMULATION_04 Or
         %Component = Component.INAS_SIMULATION_05 Or
         %Component = Component.INAS_SIMULATION_06 Or
         %Component = Component.INAS_SIMULATION_07 Or
         %Component = Component.INAS_SIMULATION_08) And
         %Component = Component.INAS_SIMULATION_08 Or
         %Component = Component.INAS_SIMULATION_09) And
      (&Value > 999999 Or
         &Value < - 999999) Then
   Error MsgGet(14440, 9066, "Father Income cannot be greater than 999,999");
End-If;

PeopleCode (Record): DERIVED_SA_PAR.CHAR_INV_NET_WORTH.FieldChange
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;
Declare Function ISIR_CHECK_FOR_E PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.ISIR_CORRPIA03 Or
      %Component = Component.ISIR_CORRPIA04 Or
      %Component = Component.ISIR_CORRPIA05 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Or
      %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If DERIVED_SA_PAR.CHAR_INV_NET_WORTH <> "" Then
      &Char = (DERIVED_SA_PAR.CHAR_INV_NET_WORTH);
      ISIR_CHECK_FOR_E(&Char);
      &Value = Value(DERIVED_SA_PAR.CHAR_INV_NET_WORTH);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      DERIVED_SA_PAR.CHAR_INV_NET_WORTH = &Char;
   End-If;
End-If;

If %Component = Component.ISIR_CORRPIA03 Or
      %Component = Component.ISIR_CORRPIA04 Or
      %Component = Component.ISIR_CORRPIA05 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Then
   If DERIVED_SA_PAR.CHAR_INV_NET_WORTH = "" Then
      ISIR_PARENT.BLANK_INV_NET_WRTH = "Y";
      ISIR_PARENT.INV_NET_WORTH = 0;
   Else
      ISIR_PARENT.BLANK_INV_NET_WRTH = "N";
      ISIR_PARENT.INV_NET_WORTH = Value(DERIVED_SA_PAR.CHAR_INV_NET_WORTH);
   End-If;
   
End-If;

If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If DERIVED_SA_PAR.CHAR_INV_NET_WORTH = "" Then
      /*make field property IsChanged = Y so field will be audited*/
      If INAS_SIM_PAR.INV_NET_WORTH = 0 Then
         INAS_SIM_PAR.INV_NET_WORTH = 1;
      End-If;
      INAS_SIM_PAR.BLANK_INV_NET_WRTH = "Y";
      INAS_SIM_PAR.INV_NET_WORTH = 0;
   Else
      /*make field property IsChanged = Y so field will be audited*/
      If DERIVED_SA_PAR.CHAR_INV_NET_WORTH = "0" And
            INAS_SIM_PAR.INV_NET_WORTH = 0 Then
         INAS_SIM_PAR.INV_NET_WORTH = 1;
      End-If;
      INAS_SIM_PAR.BLANK_INV_NET_WRTH = "N";
      INAS_SIM_PAR.INV_NET_WORTH = Value(DERIVED_SA_PAR.CHAR_INV_NET_WORTH);
   End-If;
   
End-If;

PeopleCode (Record): DERIVED_SA_PAR.CHAR_INV_NET_WORTH.FieldEdit
&Char1 = Substring(DERIVED_SA_PAR.CHAR_INV_NET_WORTH, 1, 1);
If &Char1 = "-" Then
   Error MsgGet(14440, 9058, "Investment Net Worth can't be negative.");
End-If;

&Value = Value(DERIVED_SA_PAR.CHAR_INV_NET_WORTH);
If (%Component = Component.ISIR_CORRPIA03 Or
         %Component = Component.ISIR_CORRPIA04 Or
         %Component = Component.ISIR_CORRPIA05 Or
         %Component = Component.ISIR_CORRPIA06 Or
         %Component = Component.ISIR_CORRPIA07 Or
         %Component = Component.ISIR_CORRPIA08 Or
         %Component = Component.ISIR_CORRPIA09 Or
         %Component = Component.INAS_SIMULATION_03 Or
         %Component = Component.INAS_SIMULATION_04 Or
         %Component = Component.INAS_SIMULATION_05 Or
         %Component = Component.INAS_SIMULATION_06 Or
         %Component = Component.INAS_SIMULATION_07 Or
         %Component = Component.INAS_SIMULATION_08) And
         %Component = Component.INAS_SIMULATION_08 Or
         %Component = Component.INAS_SIMULATION_09) And
      (&Value > 999999 Or
         &Value < - 999999) Then
   Error MsgGet(14440, 9061, "Investment Net Worth cannot be greater than 999,999");
End-If;

PeopleCode (Record): DERIVED_SA_PAR.CHAR_MOTHER_INC.FieldChange
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;
Declare Function ISIR_CHECK_FOR_E PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.ISIR_CORRPIA03 Or
      %Component = Component.ISIR_CORRPIA04 Or
      %Component = Component.ISIR_CORRPIA05 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Or
      %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If DERIVED_SA_PAR.CHAR_MOTHER_INC <> "" Then
      &Char = (DERIVED_SA_PAR.CHAR_MOTHER_INC);
      ISIR_CHECK_FOR_E(&Char);
      &Value = Value(DERIVED_SA_PAR.CHAR_MOTHER_INC);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      DERIVED_SA_PAR.CHAR_MOTHER_INC = &Char;
   End-If;
End-If;

If %Component = Component.ISIR_CORRPIA03 Or
      %Component = Component.ISIR_CORRPIA04 Or
      %Component = Component.ISIR_CORRPIA05 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Then
   ISIR_PARENT.DFLT_MOM_INC_IND = "R";
   If DERIVED_SA_PAR.CHAR_MOTHER_INC = "" Then
      ISIR_PARENT.BLANK_MOTHER_INC = "Y";
      ISIR_PARENT.MOTHER_INCOME = 0;
   Else
      ISIR_PARENT.BLANK_MOTHER_INC = "N";
      ISIR_PARENT.MOTHER_INCOME = Value(DERIVED_SA_PAR.CHAR_MOTHER_INC);
   End-If;
End-If;

If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   INAS_SIM_PAR.DFLT_MOM_INC_IND = "S";
   If DERIVED_SA_PAR.CHAR_MOTHER_INC = "" Then
      /*make field property IsChanged = Y so field will be audited*/
      If INAS_SIM_PAR.MOTHER_INCOME = 0 Then
         INAS_SIM_PAR.MOTHER_INCOME = 1;
      End-If;
      INAS_SIM_PAR.BLANK_MOTHER_INC = "Y";
      INAS_SIM_PAR.MOTHER_INCOME = 0;
   Else
      /*make field property IsChanged = Y so field will be audited*/
      If DERIVED_SA_PAR.CHAR_MOTHER_INC = "0" And
            INAS_SIM_PAR.MOTHER_INCOME = 0 Then
         INAS_SIM_PAR.MOTHER_INCOME = 1;
      End-If;
      INAS_SIM_PAR.BLANK_MOTHER_INC = "N";
      INAS_SIM_PAR.MOTHER_INCOME = Value(DERIVED_SA_PAR.CHAR_MOTHER_INC);
   End-If;
End-If;

PeopleCode (Record): DERIVED_SA_PAR.CHAR_MOTHER_INC.FieldEdit
&Value = Value(DERIVED_SA_PAR.CHAR_MOTHER_INC);
If (%Component = Component.ISIR_CORRPIA03 Or
         %Component = Component.ISIR_CORRPIA04 Or
         %Component = Component.ISIR_CORRPIA05 Or
         %Component = Component.ISIR_CORRPIA06 Or
         %Component = Component.ISIR_CORRPIA07 Or
         %Component = Component.ISIR_CORRPIA08 Or
         %Component = Component.ISIR_CORRPIA09 Or
         %Component = Component.INAS_SIMULATION_03 Or
         %Component = Component.INAS_SIMULATION_04 Or
         %Component = Component.INAS_SIMULATION_05 Or
         %Component = Component.INAS_SIMULATION_06 Or
         %Component = Component.INAS_SIMULATION_07 Or
         %Component = Component.INAS_SIMULATION_08) And
         %Component = Component.INAS_SIMULATION_08 Or
         %Component = Component.INAS_SIMULATION_09) And
      (&Value > 999999 Or
         &Value < - 999999) Then
   Error MsgGet(14440, 9067, "Mother Income cannot be greater than 999,999");
End-If;

PeopleCode (Record): DERIVED_SA_PAR.CHAR_TAXES_PAID.FieldChange
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;
Declare Function ISIR_CHECK_FOR_E PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.ISIR_CORRPIA03 Or
      %Component = Component.ISIR_CORRPIA04 Or
      %Component = Component.ISIR_CORRPIA05 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Or
      %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If DERIVED_SA_PAR.CHAR_TAXES_PAID <> "" Then
      &Char = (DERIVED_SA_PAR.CHAR_TAXES_PAID);
      ISIR_CHECK_FOR_E(&Char);
      &Value = Value(DERIVED_SA_PAR.CHAR_TAXES_PAID);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      DERIVED_SA_PAR.CHAR_TAXES_PAID = &Char;
   End-If;
End-If;

If %Component = Component.ISIR_CORRPIA03 Or
      %Component = Component.ISIR_CORRPIA04 Or
      %Component = Component.ISIR_CORRPIA05 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Then
   ISIR_PARENT.DFLT_TAXES_PD_IND = "R";
   If DERIVED_SA_PAR.CHAR_TAXES_PAID = "" Then
      ISIR_PARENT.BLANK_TAXES_PAID = "Y";
      ISIR_PARENT.TAXES_PAID = 0;
   Else
      ISIR_PARENT.BLANK_TAXES_PAID = "N";
      ISIR_PARENT.TAXES_PAID = Value(DERIVED_SA_PAR.CHAR_TAXES_PAID);
   End-If;
End-If;

If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   INAS_SIM_PAR.DFLT_TAXES_PD_IND = "S";
   If DERIVED_SA_PAR.CHAR_TAXES_PAID = "" Then
      /*make field property IsChanged = Y so field will be audited*/
      If INAS_SIM_PAR.TAXES_PAID = 0 Then
         INAS_SIM_PAR.TAXES_PAID = 1;
      End-If;
      INAS_SIM_PAR.BLANK_TAXES_PAID = "Y";
      INAS_SIM_PAR.TAXES_PAID = 0;
   Else
      /*make field property IsChanged = Y so field will be audited*/
      If DERIVED_SA_PAR.CHAR_TAXES_PAID = "0" And
            INAS_SIM_PAR.TAXES_PAID = 0 Then
         INAS_SIM_PAR.TAXES_PAID = 1;
      End-If;
      INAS_SIM_PAR.BLANK_TAXES_PAID = "N";
      INAS_SIM_PAR.TAXES_PAID = Value(DERIVED_SA_PAR.CHAR_TAXES_PAID);
   End-If;
End-If;

PeopleCode (Record): DERIVED_SA_PAR.CHAR_TAXES_PAID.FieldEdit
&Value = Value(DERIVED_SA_PAR.CHAR_TAXES_PAID);
If (%Component = Component.ISIR_CORRPIA03 Or
         %Component = Component.ISIR_CORRPIA04 Or
         %Component = Component.ISIR_CORRPIA05 Or
         %Component = Component.ISIR_CORRPIA06 Or
         %Component = Component.ISIR_CORRPIA07 Or
         %Component = Component.ISIR_CORRPIA08 Or
         %Component = Component.ISIR_CORRPIA09 Or
         %Component = Component.INAS_SIMULATION_03 Or
         %Component = Component.INAS_SIMULATION_04 Or
         %Component = Component.INAS_SIMULATION_05 Or
         %Component = Component.INAS_SIMULATION_06 Or
         %Component = Component.INAS_SIMULATION_07 Or
         %Component = Component.INAS_SIMULATION_08) And
         %Component = Component.INAS_SIMULATION_08 Or
         %Component = Component.INAS_SIMULATION_09) And
      (&Value > 999999 Or
         &Value < - 999999) Then
   Error MsgGet(14440, 9064, "Taxes Paid cannot be greater than 999,999");
End-If;

PeopleCode (Record): DERIVED_SA_PAR.CHAR_TOT_FROM_WKA.FieldChange
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;
Declare Function ISIR_CHECK_FOR_E PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.ISIR_CORRPIA03 Or
      %Component = Component.ISIR_CORRPIA04 Or
      %Component = Component.ISIR_CORRPIA05 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Or
      %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If DERIVED_SA_PAR.CHAR_TOT_FROM_WKA <> "" Then
      &Char = (DERIVED_SA_PAR.CHAR_TOT_FROM_WKA);
      ISIR_CHECK_FOR_E(&Char);
      &Value = Value(DERIVED_SA_PAR.CHAR_TOT_FROM_WKA);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      &Length = Len(&Char);
      If &Length = 7 Then
         DERIVED_SA_PAR.CHAR_TOT_FROM_WKA = Substring(&Char, 2, 6);
      Else
         DERIVED_SA_PAR.CHAR_TOT_FROM_WKA = &Char;
      End-If
   End-If;
End-If;

If %Component = Component.ISIR_CORRPIA03 Or
      %Component = Component.ISIR_CORRPIA04 Or
      %Component = Component.ISIR_CORRPIA05 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Then
   ISIR_PARENT.DFLT_WSA_TOT_IND = "R";
   If DERIVED_SA_PAR.CHAR_TOT_FROM_WKA = "" Then
      ISIR_PARENT.BLANK_TOT_FROM_WKA = "Y";
      ISIR_PARENT.TOTAL_FROM_WKA = 0;
   Else
      ISIR_PARENT.BLANK_TOT_FROM_WKA = "N";
      ISIR_PARENT.TOTAL_FROM_WKA = Value(DERIVED_SA_PAR.CHAR_TOT_FROM_WKA);
   End-If;
End-If;

If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   INAS_SIM_PAR.DFLT_WSA_TOT_IND = "S";
   If DERIVED_SA_PAR.CHAR_TOT_FROM_WKA = "" Then
      /*make field property IsChanged = Y so field will be audited*/
      If INAS_SIM_PAR.TOTAL_FROM_WKA = 0 Then
         INAS_SIM_PAR.TOTAL_FROM_WKA = 1;
      End-If;
      INAS_SIM_PAR.BLANK_TOT_FROM_WKA = "Y";
      INAS_SIM_PAR.TOTAL_FROM_WKA = 0;
   Else
      /*make field property IsChanged = Y so field will be audited*/
      If DERIVED_SA_PAR.CHAR_TOT_FROM_WKA = "0" And
            INAS_SIM_PAR.TOTAL_FROM_WKA = 0 Then
         INAS_SIM_PAR.TOTAL_FROM_WKA = 1;
      End-If;
      INAS_SIM_PAR.BLANK_TOT_FROM_WKA = "N";
      INAS_SIM_PAR.TOTAL_FROM_WKA = Value(DERIVED_SA_PAR.CHAR_TOT_FROM_WKA);
   End-If;
End-If;

PeopleCode (Record): DERIVED_SA_PAR.CHAR_TOT_FROM_WKA.FieldEdit
&Char1 = Substring(DERIVED_SA_PAR.CHAR_TOT_FROM_WKA, 1, 1);
If &Char1 = "-" Then
   Error MsgGet(14440, 9059, "Worksheet B can't be negative.");
End-If;

&Value = Value(DERIVED_SA_PAR.CHAR_TOT_FROM_WKA);
If (%Component = Component.ISIR_CORRPIA03 Or
         %Component = Component.ISIR_CORRPIA04 Or
         %Component = Component.ISIR_CORRPIA05 Or
         %Component = Component.ISIR_CORRPIA06 Or
         %Component = Component.ISIR_CORRPIA07 Or
         %Component = Component.ISIR_CORRPIA08 Or
         %Component = Component.ISIR_CORRPIA09 Or
         %Component = Component.INAS_SIMULATION_03 Or
         %Component = Component.INAS_SIMULATION_04 Or
         %Component = Component.INAS_SIMULATION_05 Or
         %Component = Component.INAS_SIMULATION_06 Or
         %Component = Component.INAS_SIMULATION_07 Or
         %Component = Component.INAS_SIMULATION_08) And
         %Component = Component.INAS_SIMULATION_08 Or
         %Component = Component.INAS_SIMULATION_09) And
      &Value > 99999 Then
   Error MsgGet(14440, 9065, "Worksheet A cannot be greater than 99,999");
End-If;

PeopleCode (Record): DERIVED_SA_PAR.CHAR_TOT_FROM_WS3.FieldChange
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;
Declare Function ISIR_CHECK_FOR_E PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.ISIR_CORRPIA03 Or
      %Component = Component.ISIR_CORRPIA04 Or
      %Component = Component.ISIR_CORRPIA05 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Or
      %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If DERIVED_SA_PAR.CHAR_TOT_FROM_WS3 <> "" Then
      &Char = (DERIVED_SA_PAR.CHAR_TOT_FROM_WS3);
      ISIR_CHECK_FOR_E(&Char);
      &Value = Value(DERIVED_SA_PAR.CHAR_TOT_FROM_WS3);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      DERIVED_SA_PAR.CHAR_TOT_FROM_WS3 = &Char;
   End-If;
End-If;

If %Component = Component.ISIR_CORRPIA03 Or
      %Component = Component.ISIR_CORRPIA04 Or
      %Component = Component.ISIR_CORRPIA05 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Then
   ISIR_PARENT.DFLT_WS3_TOT_IND = "R";
   If DERIVED_SA_PAR.CHAR_TOT_FROM_WS3 = "" Then
      ISIR_PARENT.BLANK_TOT_FROM_WS3 = "Y";
      ISIR_PARENT.TOTAL_FROM_WS3 = 0;
   Else
      ISIR_PARENT.BLANK_TOT_FROM_WS3 = "N";
      ISIR_PARENT.TOTAL_FROM_WS3 = Value(DERIVED_SA_PAR.CHAR_TOT_FROM_WS3);
   End-If;
End-If;

If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   INAS_SIM_PAR.DFLT_WS3_TOT_IND = "S";
   If DERIVED_SA_PAR.CHAR_TOT_FROM_WS3 = "" Then
      /*make field property IsChanged = Y so field will be audited*/
      If INAS_SIM_PAR.TOTAL_FROM_WS3 = 0 Then
         INAS_SIM_PAR.TOTAL_FROM_WS3 = 1;
      End-If;
      INAS_SIM_PAR.BLANK_TOT_FROM_WS3 = "Y";
      INAS_SIM_PAR.TOTAL_FROM_WS3 = 0;
   Else
      /*make field property IsChanged = Y so field will be audited*/
      If DERIVED_SA_PAR.CHAR_TOT_FROM_WS3 = "0" And
            INAS_SIM_PAR.TOTAL_FROM_WS3 = 0 Then
         INAS_SIM_PAR.TOTAL_FROM_WS3 = 1;
      End-If;
      INAS_SIM_PAR.BLANK_TOT_FROM_WS3 = "N";
      INAS_SIM_PAR.TOTAL_FROM_WS3 = Value(DERIVED_SA_PAR.CHAR_TOT_FROM_WS3);
   End-If;
End-If;

PeopleCode (Record): DERIVED_SA_PAR.CHAR_TOT_FROM_WS3.FieldEdit
&Value = Value(DERIVED_SA_PAR.CHAR_TOT_FROM_WS3);
If (%Component = Component.ISIR_CORRPIA03 Or
         %Component = Component.ISIR_CORRPIA04 Or
         %Component = Component.ISIR_CORRPIA05 Or
         %Component = Component.ISIR_CORRPIA06 Or
         %Component = Component.ISIR_CORRPIA07 Or
         %Component = Component.ISIR_CORRPIA08 Or
         %Component = Component.ISIR_CORRPIA09 Or
         %Component = Component.INAS_SIMULATION_03 Or
         %Component = Component.INAS_SIMULATION_04 Or
         %Component = Component.INAS_SIMULATION_05 Or
         %Component = Component.INAS_SIMULATION_06 Or
         %Component = Component.INAS_SIMULATION_07 Or
         %Component = Component.INAS_SIMULATION_08) And
         %Component = Component.INAS_SIMULATION_08 Or
         %Component = Component.INAS_SIMULATION_09) And
      (&Value > 99999 Or
         &Value < - 99999) Then
   Error MsgGet(14440, 3050, "Worksheet B cannot be greater than 99,999");
End-If;

PeopleCode (Record): DERIVED_SA_PAR.ELIG_FOR_1040AEZ02.FieldChange
If %PanelGroup = PanelGroup.INAS_SIMULATION_00 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_01 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_02 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_03 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_04 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_05 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_06 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_07 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_08 Then
      %PanelGroup = PanelGroup.INAS_SIMULATION_08 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_09 Then
   INAS_SIM_PAR.ELIG_FOR_1040A_EZ = DERIVED_SA_PAR.ELIG_FOR_1040AEZ02;
Else
   &PANELGROUP = Substring(%PanelGroup, 1, 9);
   If &PANELGROUP = "ISIR_CORR" Then
      ISIR_PARENT.ELIG_FOR_1040A_EZ = DERIVED_SA_PAR.ELIG_FOR_1040AEZ02;
   End-If;
End-If;

PeopleCode (Record): DERIVED_SA_PAR.ELIG_FOR_1040AEZ02.RowInit
If %PanelGroup = PanelGroup.INAS_SIMULATION_02 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_03 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_04 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_05 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_06 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_07 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_08 Then
      %PanelGroup = PanelGroup.INAS_SIMULATION_08 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_09 Then
   DERIVED_SA_PAR.ELIG_FOR_1040AEZ02 = INAS_SIM_PAR.ELIG_FOR_1040A_EZ;
Else
   DERIVED_SA_PAR.ELIG_FOR_1040AEZ02 = ISIR_PARENT.ELIG_FOR_1040A_EZ;
End-If;

PeopleCode (Record): DERIVED_SA_STU.CHAR_AGI.FieldChange
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;
Declare Function ISIR_CHECK_FOR_E PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.ISIR_CORRPIA03 Or
      %Component = Component.ISIR_CORRPIA04 Or
      %Component = Component.ISIR_CORRPIA05 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Or
      %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If DERIVED_SA_STU.CHAR_AGI <> "" Then
      &Char = (DERIVED_SA_STU.CHAR_AGI);
      ISIR_CHECK_FOR_E(&Char);
      &Value = Value(DERIVED_SA_STU.CHAR_AGI);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      DERIVED_SA_STU.CHAR_AGI = &Char;
   End-If;
End-If;

If %Component = Component.ISIR_CORRPIA03 Or
      %Component = Component.ISIR_CORRPIA04 Or
      %Component = Component.ISIR_CORRPIA05 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Then
   ISIR_STUDENT.DFLT_AGI_IND = "R";
   If DERIVED_SA_STU.CHAR_AGI = "" Then
      ISIR_STUDENT.BLANK_AGI = "Y";
      ISIR_STUDENT.AGI = 0;
   Else
      ISIR_STUDENT.BLANK_AGI = "N";
      ISIR_STUDENT.AGI = Value(DERIVED_SA_STU.CHAR_AGI);
   End-If;
   /*12/21/01 EXPERIMENT THAT DID NOT WORK - 
   If AGI = 0 And
         ISIR_STUDENT.AGI = 0 Then
      If BLANK_AGI <> ISIR_STUDENT.BLANK_AGI Then
         make field property IsChanged = Y so field will be audited
         ISIR_STUDENT.AGI = 1;
         ISIR_STUDENT.AGI = 0;
      End-If;
   End-If;
*/
End-If;

If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   INAS_SIM_STU.DFLT_AGI_IND = "S";
   If DERIVED_SA_STU.CHAR_AGI = "" Then
      /*make field property IsChanged = Y so field will be audited*/
      If INAS_SIM_STU.AGI = 0 Then
         INAS_SIM_STU.AGI = 1;
      End-If;
      INAS_SIM_STU.BLANK_AGI = "Y";
      INAS_SIM_STU.AGI = 0;
   Else
      /*make field property IsChanged = Y so field will be audited*/
      If DERIVED_SA_STU.CHAR_AGI = "0" And
            INAS_SIM_STU.AGI = 0 Then
         INAS_SIM_STU.AGI = 1;
      End-If;
      INAS_SIM_STU.BLANK_AGI = "N";
      INAS_SIM_STU.AGI = Value(DERIVED_SA_STU.CHAR_AGI);
   End-If;
End-If;

PeopleCode (Record): DERIVED_SA_STU.CHAR_AGI.FieldEdit
&Value = Value(DERIVED_SA_STU.CHAR_AGI);
If (%Component = Component.ISIR_CORRPIA03 Or
         %Component = Component.ISIR_CORRPIA04 Or
         %Component = Component.ISIR_CORRPIA05 Or
         %Component = Component.ISIR_CORRPIA06 Or
         %Component = Component.ISIR_CORRPIA07 Or
         %Component = Component.ISIR_CORRPIA08 Or
         %Component = Component.ISIR_CORRPIA09 Or
         %Component = Component.INAS_SIMULATION_03 Or
         %Component = Component.INAS_SIMULATION_04 Or
         %Component = Component.INAS_SIMULATION_05 Or
         %Component = Component.INAS_SIMULATION_06 Or
         %Component = Component.INAS_SIMULATION_07 Or
         %Component = Component.INAS_SIMULATION_08) And
         %Component = Component.INAS_SIMULATION_08 Or
         %Component = Component.INAS_SIMULATION_09) And
      (&Value > 999999 Or
         &Value < - 999999) Then
   Error MsgGet(14440, 9060, "AGI cannot be greater than 999,999");
End-If;

PeopleCode (Record): DERIVED_SA_STU.CHAR_CASH_SAV.FieldChange
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;
Declare Function ISIR_CHECK_FOR_E PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Then
   If DERIVED_SA_STU.CHAR_CASH_SAV <> "" Then
      &Char = (DERIVED_SA_STU.CHAR_CASH_SAV);
      ISIR_CHECK_FOR_E(&Char);
      &Value = Value(DERIVED_SA_STU.CHAR_CASH_SAV);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      DERIVED_SA_STU.CHAR_CASH_SAV = &Char;
   End-If;
End-If;

If %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Then
   If DERIVED_SA_STU.CHAR_CASH_SAV = "" Then
      
      ISIR_STUDENT.BLANK_CASH_SAV = "Y";
      ISIR_STUDENT.CASH_SAVINGS = 0;
   Else
      ISIR_STUDENT.BLANK_CASH_SAV = "N";
      ISIR_STUDENT.CASH_SAVINGS = Value(DERIVED_SA_STU.CHAR_CASH_SAV);
   End-If;
   
End-If;

If %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If DERIVED_SA_STU.CHAR_CASH_SAV = "" Then
      INAS_SIM_STU.BLANK_CASH_SAV = "Y";
      INAS_SIM_STU.CASH_SAVINGS = 0;
   Else
      INAS_SIM_STU.BLANK_CASH_SAV = "N";
      INAS_SIM_STU.CASH_SAVINGS = Value(DERIVED_SA_STU.CHAR_CASH_SAV);
   End-If;
   
End-If;

PeopleCode (Record): DERIVED_SA_STU.CHAR_INV_NET_WORTH.FieldChange
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;
Declare Function ISIR_CHECK_FOR_E PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.ISIR_CORRPIA03 Or
      %Component = Component.ISIR_CORRPIA04 Or
      %Component = Component.ISIR_CORRPIA05 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Or
      %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If DERIVED_SA_STU.CHAR_INV_NET_WORTH <> "" Then
      &Char = (DERIVED_SA_STU.CHAR_INV_NET_WORTH);
      ISIR_CHECK_FOR_E(&Char);
      &Value = Value(DERIVED_SA_STU.CHAR_INV_NET_WORTH);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      DERIVED_SA_STU.CHAR_INV_NET_WORTH = &Char;
   End-If;
End-If;

If %Component = Component.ISIR_CORRPIA03 Or
      %Component = Component.ISIR_CORRPIA04 Or
      %Component = Component.ISIR_CORRPIA05 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Then
   If DERIVED_SA_STU.CHAR_INV_NET_WORTH = "" Then
      ISIR_STUDENT.BLANK_INV_NET_WRTH = "Y";
      ISIR_STUDENT.INV_NET_WORTH = 0;
   Else
      ISIR_STUDENT.BLANK_INV_NET_WRTH = "N";
      ISIR_STUDENT.INV_NET_WORTH = Value(DERIVED_SA_STU.CHAR_INV_NET_WORTH);
   End-If;
End-If;

If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If DERIVED_SA_STU.CHAR_INV_NET_WORTH = "" Then
      /*make field property IsChanged = Y so field will be audited*/
      If INAS_SIM_STU.INV_NET_WORTH = 0 Then
         INAS_SIM_STU.INV_NET_WORTH = 1;
      End-If;
      INAS_SIM_STU.BLANK_INV_NET_WRTH = "Y";
      INAS_SIM_STU.INV_NET_WORTH = 0;
   Else
      /*make field property IsChanged = Y so field will be audited*/
      If DERIVED_SA_STU.CHAR_INV_NET_WORTH = "0" And
            INAS_SIM_STU.INV_NET_WORTH = 0 Then
         INAS_SIM_STU.INV_NET_WORTH = 1;
      End-If;
      INAS_SIM_STU.BLANK_INV_NET_WRTH = "N";
      INAS_SIM_STU.INV_NET_WORTH = Value(DERIVED_SA_STU.CHAR_INV_NET_WORTH);
   End-If;
   
End-If;

PeopleCode (Record): DERIVED_SA_STU.CHAR_INV_NET_WORTH.FieldEdit
&Char1 = Substring(DERIVED_SA_STU.CHAR_INV_NET_WORTH, 1, 1);
If &Char1 = "-" Then
   Error MsgGet(14440, 9058, "Investment Net Worth can't be negative.");
End-If;

&Value = Value(DERIVED_SA_STU.CHAR_INV_NET_WORTH);

If (%Component = Component.ISIR_CORRPIA03 Or
         %Component = Component.ISIR_CORRPIA04 Or
         %Component = Component.ISIR_CORRPIA05 Or
         %Component = Component.ISIR_CORRPIA06 Or
         %Component = Component.ISIR_CORRPIA07 Or
         %Component = Component.ISIR_CORRPIA08 Or
         %Component = Component.ISIR_CORRPIA09 Or
         %Component = Component.INAS_SIMULATION_03 Or
         %Component = Component.INAS_SIMULATION_04 Or
         %Component = Component.INAS_SIMULATION_05 Or
         %Component = Component.INAS_SIMULATION_06 Or
         %Component = Component.INAS_SIMULATION_07 Or
         %Component = Component.INAS_SIMULATION_08) And
         %Component = Component.INAS_SIMULATION_08 Or
         %Component = Component.INAS_SIMULATION_09) And
      &Value > 999999 Then
   Error MsgGet(14440, 9061, "Investment Net Worth cannot be greater than 999,999");
End-If;

PeopleCode (Record): DERIVED_SA_STU.CHAR_SPS_EARN_INC.FieldChange
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;
Declare Function ISIR_CHECK_FOR_E PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.ISIR_CORRPIA03 Or
      %Component = Component.ISIR_CORRPIA04 Or
      %Component = Component.ISIR_CORRPIA05 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Or
      %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If DERIVED_SA_STU.CHAR_SPS_EARN_INC <> "" Then
      &Char = (DERIVED_SA_STU.CHAR_SPS_EARN_INC);
      ISIR_CHECK_FOR_E(&Char);
      &Value = Value(DERIVED_SA_STU.CHAR_SPS_EARN_INC);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      DERIVED_SA_STU.CHAR_SPS_EARN_INC = &Char;
   End-If;
End-If;

If %Component = Component.ISIR_CORRPIA03 Or
      %Component = Component.ISIR_CORRPIA04 Or
      %Component = Component.ISIR_CORRPIA05 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Then
   ISIR_STUDENT.DFLT_SPS_INC_IND = "R";
   If DERIVED_SA_STU.CHAR_SPS_EARN_INC = "" Then
      ISIR_STUDENT.BLANK_SPS_EARN_INC = "Y";
      ISIR_STUDENT.SPS_EARNED_INCOME = 0;
   Else
      ISIR_STUDENT.BLANK_SPS_EARN_INC = "N";
      ISIR_STUDENT.SPS_EARNED_INCOME = Value(DERIVED_SA_STU.CHAR_SPS_EARN_INC);
   End-If;
End-If;

If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   INAS_SIM_STU.DFLT_SPS_INC_IND = "S";
   If DERIVED_SA_STU.CHAR_SPS_EARN_INC = "" Then
      /*make field property IsChanged = Y so field will be audited*/
      If INAS_SIM_STU.SPS_EARNED_INCOME = 0 Then
         INAS_SIM_STU.SPS_EARNED_INCOME = 1;
      End-If;
      INAS_SIM_STU.BLANK_SPS_EARN_INC = "Y";
      INAS_SIM_STU.SPS_EARNED_INCOME = 0;
   Else
      /*make field property IsChanged = Y so field will be audited*/
      If DERIVED_SA_STU.CHAR_SPS_EARN_INC = "0" And
            INAS_SIM_STU.SPS_EARNED_INCOME = 0 Then
         INAS_SIM_STU.SPS_EARNED_INCOME = 1;
      End-If;
      INAS_SIM_STU.BLANK_SPS_EARN_INC = "N";
      INAS_SIM_STU.SPS_EARNED_INCOME = Value(DERIVED_SA_STU.CHAR_SPS_EARN_INC);
   End-If;
End-If;

PeopleCode (Record): DERIVED_SA_STU.CHAR_SPS_EARN_INC.FieldEdit
&Value = Value(DERIVED_SA_STU.CHAR_SPS_EARN_INC);
If (%Component = Component.ISIR_CORRPIA03 Or
         %Component = Component.ISIR_CORRPIA04 Or
         %Component = Component.ISIR_CORRPIA05 Or
         %Component = Component.ISIR_CORRPIA06 Or
         %Component = Component.ISIR_CORRPIA07 Or
         %Component = Component.ISIR_CORRPIA08 Or
         %Component = Component.ISIR_CORRPIA09 Or
         %Component = Component.INAS_SIMULATION_03 Or
         %Component = Component.INAS_SIMULATION_04 Or
         %Component = Component.INAS_SIMULATION_05 Or
         %Component = Component.INAS_SIMULATION_06 Or
         %Component = Component.INAS_SIMULATION_07 Or
         %Component = Component.INAS_SIMULATION_08) And
         %Component = Component.INAS_SIMULATION_08 Or
         %Component = Component.INAS_SIMULATION_09) And
      (&Value > 999999 Or
         &Value < - 999999) Then
   Error MsgGet(14440, 9062, "Spouse Income cannot be greater than 999,999");
End-If;

PeopleCode (Record): DERIVED_SA_STU.CHAR_STD_EARN_INC.FieldChange
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;
Declare Function ISIR_CHECK_FOR_E PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.ISIR_CORRPIA03 Or
      %Component = Component.ISIR_CORRPIA04 Or
      %Component = Component.ISIR_CORRPIA05 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Or
      %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If DERIVED_SA_STU.CHAR_STD_EARN_INC <> "" Then
      &Char = (DERIVED_SA_STU.CHAR_STD_EARN_INC);
      ISIR_CHECK_FOR_E(&Char);
      &Value = Value(DERIVED_SA_STU.CHAR_STD_EARN_INC);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      DERIVED_SA_STU.CHAR_STD_EARN_INC = &Char;
   End-If;
End-If;

If %Component = Component.ISIR_CORRPIA03 Or
      %Component = Component.ISIR_CORRPIA04 Or
      %Component = Component.ISIR_CORRPIA05 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Then
   ISIR_STUDENT.DFLT_STD_INC_IND = "R";
   If DERIVED_SA_STU.CHAR_STD_EARN_INC = "" Then
      ISIR_STUDENT.BLANK_STD_EARN_INC = "Y";
      ISIR_STUDENT.STD_EARNED_INCOME = 0;
   Else
      ISIR_STUDENT.BLANK_STD_EARN_INC = "N";
      ISIR_STUDENT.STD_EARNED_INCOME = Value(DERIVED_SA_STU.CHAR_STD_EARN_INC);
   End-If;
End-If;

If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   INAS_SIM_STU.DFLT_STD_INC_IND = "S";
   If DERIVED_SA_STU.CHAR_STD_EARN_INC = "" Then
      /*make field property IsChanged = Y so field will be audited*/
      If INAS_SIM_STU.STD_EARNED_INCOME = 0 Then
         INAS_SIM_STU.STD_EARNED_INCOME = 1;
      End-If;
      INAS_SIM_STU.BLANK_STD_EARN_INC = "Y";
      INAS_SIM_STU.STD_EARNED_INCOME = 0;
   Else
      /*make field property IsChanged = Y so field will be audited*/
      If DERIVED_SA_STU.CHAR_STD_EARN_INC = "0" And
            INAS_SIM_STU.STD_EARNED_INCOME = 0 Then
         INAS_SIM_STU.STD_EARNED_INCOME = 1;
      End-If;
      INAS_SIM_STU.BLANK_STD_EARN_INC = "N";
      INAS_SIM_STU.STD_EARNED_INCOME = Value(DERIVED_SA_STU.CHAR_STD_EARN_INC);
   End-If;
End-If;

PeopleCode (Record): DERIVED_SA_STU.CHAR_STD_EARN_INC.FieldEdit
&Value = Value(DERIVED_SA_STU.CHAR_STD_EARN_INC);
If (%Component = Component.ISIR_CORRPIA03 Or
         %Component = Component.ISIR_CORRPIA04 Or
         %Component = Component.ISIR_CORRPIA05 Or
         %Component = Component.ISIR_CORRPIA06 Or
         %Component = Component.ISIR_CORRPIA07 Or
         %Component = Component.ISIR_CORRPIA08 Or
         %Component = Component.ISIR_CORRPIA09 Or
         %Component = Component.INAS_SIMULATION_03 Or
         %Component = Component.INAS_SIMULATION_04 Or
         %Component = Component.INAS_SIMULATION_05 Or
         %Component = Component.INAS_SIMULATION_06 Or
         %Component = Component.INAS_SIMULATION_07 Or
         %Component = Component.INAS_SIMULATION_08) And
         %Component = Component.INAS_SIMULATION_08 Or
         %Component = Component.INAS_SIMULATION_09) And
      (&Value > 999999 Or
         &Value < - 999999) Then
   Error MsgGet(14440, 9063, "Student Income cannot be greater than 999,999");
End-If;

PeopleCode (Record): DERIVED_SA_STU.CHAR_TAXES_PAID.FieldChange
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;
Declare Function ISIR_CHECK_FOR_E PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.ISIR_CORRPIA03 Or
      %Component = Component.ISIR_CORRPIA04 Or
      %Component = Component.ISIR_CORRPIA05 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Or
      %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If DERIVED_SA_STU.CHAR_TAXES_PAID <> "" Then
      &Char = (DERIVED_SA_STU.CHAR_TAXES_PAID);
      ISIR_CHECK_FOR_E(&Char);
      &Value = Value(DERIVED_SA_STU.CHAR_TAXES_PAID);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      DERIVED_SA_STU.CHAR_TAXES_PAID = &Char;
   End-If;
End-If;

If %Component = Component.ISIR_CORRPIA03 Or
      %Component = Component.ISIR_CORRPIA04 Or
      %Component = Component.ISIR_CORRPIA05 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Then
   ISIR_STUDENT.DFLT_TAXES_PD_IND = "R";
   If DERIVED_SA_STU.CHAR_TAXES_PAID = "" Then
      ISIR_STUDENT.BLANK_TAXES_PAID = "Y";
      ISIR_STUDENT.TAXES_PAID = 0;
   Else
      ISIR_STUDENT.BLANK_TAXES_PAID = "N";
      ISIR_STUDENT.TAXES_PAID = Value(DERIVED_SA_STU.CHAR_TAXES_PAID);
   End-If;
End-If;

If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   INAS_SIM_STU.DFLT_TAXES_PD_IND = "S";
   If DERIVED_SA_STU.CHAR_TAXES_PAID = "" Then
      /*make field property IsChanged = Y so field will be audited*/
      If INAS_SIM_STU.TAXES_PAID = 0 Then
         INAS_SIM_STU.TAXES_PAID = 1;
      End-If;
      INAS_SIM_STU.BLANK_TAXES_PAID = "Y";
      INAS_SIM_STU.TAXES_PAID = 0;
   Else
      /*make field property IsChanged = Y so field will be audited*/
      If DERIVED_SA_STU.CHAR_TAXES_PAID = "0" And
            INAS_SIM_STU.TAXES_PAID = 0 Then
         INAS_SIM_STU.TAXES_PAID = 1;
      End-If;
      INAS_SIM_STU.BLANK_TAXES_PAID = "N";
      INAS_SIM_STU.TAXES_PAID = Value(DERIVED_SA_STU.CHAR_TAXES_PAID);
   End-If;
End-If;

PeopleCode (Record): DERIVED_SA_STU.CHAR_TAXES_PAID.FieldEdit
&Value = Value(DERIVED_SA_STU.CHAR_TAXES_PAID);
If (%Component = Component.ISIR_CORRPIA03 Or
         %Component = Component.ISIR_CORRPIA04 Or
         %Component = Component.ISIR_CORRPIA05 Or
         %Component = Component.ISIR_CORRPIA06 Or
         %Component = Component.ISIR_CORRPIA07 Or
         %Component = Component.ISIR_CORRPIA08 Or
         %Component = Component.ISIR_CORRPIA09 Or
         %Component = Component.INAS_SIMULATION_03 Or
         %Component = Component.INAS_SIMULATION_04 Or
         %Component = Component.INAS_SIMULATION_05 Or
         %Component = Component.INAS_SIMULATION_06 Or
         %Component = Component.INAS_SIMULATION_07 Or
         %Component = Component.INAS_SIMULATION_08) And
         %Component = Component.INAS_SIMULATION_08 Or
         %Component = Component.INAS_SIMULATION_09) And
      (&Value > 999999 Or
         &Value < - 999999) Then
   Error MsgGet(14440, 9064, "Taxes Paid cannot be greater than 999,999");
End-If;

PeopleCode (Record): DERIVED_SA_STU.CHAR_TOT_FROM_WKA.FieldChange
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;
Declare Function ISIR_CHECK_FOR_E PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.ISIR_CORRPIA03 Or
      %Component = Component.ISIR_CORRPIA04 Or
      %Component = Component.ISIR_CORRPIA05 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Or
      %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If DERIVED_SA_STU.CHAR_TOT_FROM_WKA <> "" Then
      &Char = (DERIVED_SA_STU.CHAR_TOT_FROM_WKA);
      ISIR_CHECK_FOR_E(&Char);
      &Value = Value(DERIVED_SA_STU.CHAR_TOT_FROM_WKA);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      &Length = Len(&Char);
      If &Length = 7 Then
         DERIVED_SA_STU.CHAR_TOT_FROM_WKA = Substring(&Char, 2, 6)
      Else
         DERIVED_SA_STU.CHAR_TOT_FROM_WKA = &Char;
      End-If;
   End-If;
End-If;

If %Component = Component.ISIR_CORRPIA03 Or
      %Component = Component.ISIR_CORRPIA04 Or
      %Component = Component.ISIR_CORRPIA05 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Then
   If DERIVED_SA_STU.CHAR_TOT_FROM_WKA = "" Then
      ISIR_STUDENT.BLANK_TOT_FROM_WKA = "Y";
      ISIR_STUDENT.TOTAL_FROM_WKA = 0;
   Else
      ISIR_STUDENT.BLANK_TOT_FROM_WKA = "N";
      ISIR_STUDENT.TOTAL_FROM_WKA = Value(DERIVED_SA_STU.CHAR_TOT_FROM_WKA);
   End-If;
End-If;

If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If DERIVED_SA_STU.CHAR_TOT_FROM_WKA = "" Then
      /*make field property IsChanged = Y so field will be audited*/
      If INAS_SIM_STU.TOTAL_FROM_WKA = 0 Then
         INAS_SIM_STU.TOTAL_FROM_WKA = 1;
      End-If;
      INAS_SIM_STU.BLANK_TOT_FROM_WKA = "Y";
      INAS_SIM_STU.TOTAL_FROM_WKA = 0;
   Else
      /*make field property IsChanged = Y so field will be audited*/
      If DERIVED_SA_STU.CHAR_TOT_FROM_WKA = "0" And
            INAS_SIM_STU.TOTAL_FROM_WKA = 0 Then
         INAS_SIM_STU.TOTAL_FROM_WKA = 1;
      End-If;
      INAS_SIM_STU.BLANK_TOT_FROM_WKA = "N";
      INAS_SIM_STU.TOTAL_FROM_WKA = Value(DERIVED_SA_STU.CHAR_TOT_FROM_WKA);
   End-If;
End-If;

PeopleCode (Record): DERIVED_SA_STU.CHAR_TOT_FROM_WKA.FieldEdit
&Char1 = Substring(DERIVED_SA_STU.CHAR_TOT_FROM_WKA, 1, 1);
If &Char1 = "-" Then
   Error MsgGet(14440, 9059, "Worksheet A can't be negative.");
End-If;

&Value = Value(DERIVED_SA_STU.CHAR_TOT_FROM_WKA);
If (%Component = Component.ISIR_CORRPIA03 Or
         %Component = Component.ISIR_CORRPIA04 Or
         %Component = Component.ISIR_CORRPIA05 Or
         %Component = Component.ISIR_CORRPIA06 Or
         %Component = Component.ISIR_CORRPIA07 Or
         %Component = Component.ISIR_CORRPIA08 Or
         %Component = Component.ISIR_CORRPIA09 Or
         %Component = Component.INAS_SIMULATION_03 Or
         %Component = Component.INAS_SIMULATION_04 Or
         %Component = Component.INAS_SIMULATION_05 Or
         %Component = Component.INAS_SIMULATION_06 Or
         %Component = Component.INAS_SIMULATION_07 Or
         %Component = Component.INAS_SIMULATION_08) And
         %Component = Component.INAS_SIMULATION_08 Or
         %Component = Component.INAS_SIMULATION_09) And
      &Value > 99999 Then
   Error MsgGet(14440, 9065, "Woksheet A cannot be greater than 99,999");
End-If;

PeopleCode (Record): DERIVED_SA_STU.CHAR_TOT_FROM_WS3.FieldChange
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;
Declare Function ISIR_CHECK_FOR_E PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.ISIR_CORRPIA03 Or
      %Component = Component.ISIR_CORRPIA04 Or
      %Component = Component.ISIR_CORRPIA05 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Or
      %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If DERIVED_SA_STU.CHAR_TOT_FROM_WS3 <> "" Then
      &Char = (DERIVED_SA_STU.CHAR_TOT_FROM_WS3);
      ISIR_CHECK_FOR_E(&Char);
      &Value = Value(DERIVED_SA_STU.CHAR_TOT_FROM_WS3);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      DERIVED_SA_STU.CHAR_TOT_FROM_WS3 = &Char;
   End-If;
End-If;

If %Component = Component.ISIR_CORRPIA03 Or
      %Component = Component.ISIR_CORRPIA04 Or
      %Component = Component.ISIR_CORRPIA05 Or
      %Component = Component.ISIR_CORRPIA06 Or
      %Component = Component.ISIR_CORRPIA07 Or
      %Component = Component.ISIR_CORRPIA08 Or
      %Component = Component.ISIR_CORRPIA09 Then
   If DERIVED_SA_STU.CHAR_TOT_FROM_WS3 = "" Then
      ISIR_STUDENT.BLANK_TOT_FROM_WS3 = "Y";
      ISIR_STUDENT.TOTAL_FROM_WS3 = 0;
   Else
      ISIR_STUDENT.BLANK_TOT_FROM_WS3 = "N";
      ISIR_STUDENT.TOTAL_FROM_WS3 = Value(DERIVED_SA_STU.CHAR_TOT_FROM_WS3);
   End-If;
End-If;

If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If DERIVED_SA_STU.CHAR_TOT_FROM_WS3 = "" Then
      /*make field property IsChanged = Y so field will be audited*/
      If INAS_SIM_STU.TOTAL_FROM_WS3 = 0 Then
         INAS_SIM_STU.TOTAL_FROM_WS3 = 1;
      End-If;
      INAS_SIM_STU.BLANK_TOT_FROM_WS3 = "Y";
      INAS_SIM_STU.TOTAL_FROM_WS3 = 0;
   Else
      /*make field property IsChanged = Y so field will be audited*/
      If DERIVED_SA_STU.CHAR_TOT_FROM_WS3 = "0" And
            INAS_SIM_STU.TOTAL_FROM_WS3 = 0 Then
         INAS_SIM_STU.TOTAL_FROM_WS3 = 1;
      End-If;
      INAS_SIM_STU.BLANK_TOT_FROM_WS3 = "N";
      INAS_SIM_STU.TOTAL_FROM_WS3 = Value(DERIVED_SA_STU.CHAR_TOT_FROM_WS3);
   End-If;
End-If;

PeopleCode (Record): DERIVED_SA_STU.CHAR_TOT_FROM_WS3.FieldEdit
&Value = Value(DERIVED_SA_STU.CHAR_TOT_FROM_WS3);
If (%Component = Component.ISIR_CORRPIA03 Or
         %Component = Component.ISIR_CORRPIA04 Or
         %Component = Component.ISIR_CORRPIA05 Or
         %Component = Component.ISIR_CORRPIA06 Or
         %Component = Component.ISIR_CORRPIA07 Or
         %Component = Component.ISIR_CORRPIA08 Or
         %Component = Component.ISIR_CORRPIA09 Or
         %Component = Component.INAS_SIMULATION_03 Or
         %Component = Component.INAS_SIMULATION_04 Or
         %Component = Component.INAS_SIMULATION_05 Or
         %Component = Component.INAS_SIMULATION_06 Or
         %Component = Component.INAS_SIMULATION_07 Or
         %Component = Component.INAS_SIMULATION_08) And
         %Component = Component.INAS_SIMULATION_08 Or
         %Component = Component.INAS_SIMULATION_09) And
      (&Value > 99999 Or
         &Value < - 99999) Then
   Error MsgGet(14440, 3050, "Worksheet B cannot be greater than 99,999");
End-If;

PeopleCode (Record): DERIVED_SA_STU.CURRENT_GRADE_02.FieldChange
If %Component = PanelGroup.INAS_SIMULATION_02 Or
      %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   INAS_SIM_STU.CURRENT_GRADE_LVL = DERIVED_SA_STU.CURRENT_GRADE_02;
Else
   ISIR_STUDENT.CURRENT_GRADE_LVL = DERIVED_SA_STU.CURRENT_GRADE_02;
   
End-If;

PeopleCode (Record): DERIVED_SA_STU.CURRENT_GRADE_02.RowInit
SetDefault(DERIVED_SA_STU.CURRENT_GRADE_02);
If %Component = Component.INAS_SIMULATION_02 Or
      %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   DERIVED_SA_STU.CURRENT_GRADE_02 = INAS_SIM_STU.CURRENT_GRADE_LVL;
Else
   &PANELGROUP = Substring(%PanelGroup, 1, 9);
   If &PANELGROUP = "ISIR_CORR" Then
      DERIVED_SA_STU.CURRENT_GRADE_02 = ISIR_STUDENT.CURRENT_GRADE_LVL;
   End-If;
End-If;

PeopleCode (Record): DERIVED_SA_STU.ELIG_FOR_1040AEZ02.FieldChange
If %PanelGroup = PanelGroup.INAS_SIMULATION_00 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_01 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_02 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_03 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_04 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_05 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_06 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_07 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_08 Then
      %PanelGroup = PanelGroup.INAS_SIMULATION_08 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_09 Then
   INAS_SIM_STU.ELIG_FOR_1040A_EZ = DERIVED_SA_STU.ELIG_FOR_1040AEZ02;
Else
   ISIR_STUDENT.ELIG_FOR_1040A_EZ = DERIVED_SA_STU.ELIG_FOR_1040AEZ02;
End-If;

PeopleCode (Record): DERIVED_SA_STU.ELIG_FOR_1040AEZ02.RowInit
If %PanelGroup = PanelGroup.INAS_SIMULATION_00 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_01 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_02 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_03 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_04 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_05 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_06 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_07 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_08 Then
      %PanelGroup = PanelGroup.INAS_SIMULATION_08 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_09 Then
   DERIVED_SA_STU.ELIG_FOR_1040AEZ02 = INAS_SIM_STU.ELIG_FOR_1040A_EZ
Else
   DERIVED_SA_STU.ELIG_FOR_1040AEZ02 = ISIR_STUDENT.ELIG_FOR_1040A_EZ
End-If;

PeopleCode (Record): DERIVED_SA_STU.MARITAL_STAT_STU00.FieldChange
If %PanelGroup = PanelGroup.INAS_SIMULATION_00 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_01 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_02 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_03 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_04 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_05 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_06 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_07 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_08 Then
      %PanelGroup = PanelGroup.INAS_SIMULATION_08 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_09 Then
   INAS_SIM_STU.MARITAL_STAT = DERIVED_SA_STU.MARITAL_STAT_STU00;
   UpdateValue(INAS_SIM_STU.DFLT_MAR_STAT_IND, 1, "S");
Else
   &OLDVAL = ISIR_STUDENT.MARITAL_STAT;
   If %Mode = "C" Then
      ISIR_STUDENT.MARITAL_STAT = DERIVED_SA_STU.MARITAL_STAT_STU00;
   Else
      &CURRENTROW1 = CurrentRowNumber();
      For &I = 1 To ActiveRowCount(ISIR_CONTROL.EFFDT, CurrentRowNumber(), ISIR_STUDENT.EFFDT)
         &FETCH_DATE = FetchValue(ISIR_CONTROL.EFFDT, &CURRENTROW1, ISIR_STUDENT.EFFDT, &I);
         If &FETCH_DATE > %Date Or
               RecordNew(Record.ISIR_STUDENT) Then
            ISIR_STUDENT.MARITAL_STAT = DERIVED_SA_STU.MARITAL_STAT_STU00;
         Else
            DERIVED_SA_STU.MARITAL_STAT_STU00 = &OLDVAL;
            MessageBox(64, "Warning", 15, 1, "Cannot change current or history records unless in Correction mode.");
         End-If;
      End-For;
   End-If;
End-If;

PeopleCode (Record): DERIVED_SA_STU.MARITAL_STAT_STU00.RowInit
SetDefault(DERIVED_SA_STU.MARITAL_STAT_STU00);
&PANELGROUP = Substring(%PanelGroup, 1, 9);
If &PANELGROUP = "ISIR_CORR" Then
   DERIVED_SA_STU.MARITAL_STAT_STU00 = ISIR_STUDENT.MARITAL_STAT;
End-If;
If %PanelGroup = PanelGroup.INAS_SIMULATION_00 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_01 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_02 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_03 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_04 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_05 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_06 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_07 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_08 Then
      %PanelGroup = PanelGroup.INAS_SIMULATION_08 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_09 Then
   DERIVED_SA_STU.MARITAL_STAT_STU00 = INAS_SIM_STU.MARITAL_STAT;
End-If;

PeopleCode (Record): DERIVED_TRCR.CLEAR_PB.FieldChange
Evaluate %aeGop=-! TRNS_CRSE_DTL.CRSE_ID = "" TRNS_CRSE_DTL.CRSE_OFFER_NBR = 0;
Evaluate %PanelGroup
When PanelGroup.TRNS_CRSE
When PanelGroup.TRNS_CRSE_MNL
   TRNS_CRSE_DTL.CRSE_ID = "";
   TRNS_CRSE_DTL.CRSE_OFFER_NBR = 0;
   TRNS_CRSE_DTL.UNT_TRNSFR = 0;
   TRNS_CRSE_DTL.GRD_PTS_PER_UNIT = 0;
   TRNS_CRSE_DTL.GRADING_SCHEME = "" TRNS_CRSE_DTL.GRADING_BASIS = "" TRNS_CRSE_DTL.CRSE_GRADE_OFF = "" TRNS_CRSE_DTL.EARN_CREDIT = "NNN" TRNS_CRSE_DTL.RQMNT_DESIGNTN = ""
   TRNS_CRSE_DTL.GRADING_SCHEME = "";
   TRNS_CRSE_DTL.GRADING_BASIS = "";
   TRNS_CRSE_DTL.CRSE_GRADE_OFF = "";
   TRNS_CRSE_DTL.EARN_CREDIT = "N";
   TRNS_CRSE_DTL.INCLUDE_IN_GPA = "N";
   TRNS_CRSE_DTL.UNITS_ATTEMPTED = "N";
   TRNS_CRSE_DTL.REPEAT_CODE = "";
   TRNS_CRSE_DTL.RQMNT_DESIGNTN = "";
   TRNS_CRSE_DTL.SSR_FAWI_INCL = "N";
When PanelGroup.TRNS_TEST
When PanelGroup.TRNS_TEST_MNL
   TRNS_TEST_DTL.CRSE_ID = "" TRNS_TEST_DTL.CRSE_OFFER_NBR = 0;
   TRNS_TEST_DTL.CRSE_ID = "";
   TRNS_TEST_DTL.CRSE_OFFER_NBR = 0;
   TRNS_TEST_DTL.UNT_TRNSFR = 0;
   TRNS_TEST_DTL.GRD_PTS_PER_UNIT = 0;
   TRNS_TEST_DTL.GRADING_SCHEME = "" TRNS_TEST_DTL.GRADING_BASIS = "" TRNS_TEST_DTL.CRSE_GRADE_OFF = "" TRNS_TEST_DTL.EARN_CREDIT = "NNN" TRNS_TEST_DTL.RQMNT_DESIGNTN = ""
   TRNS_TEST_DTL.GRADING_SCHEME = "";
   TRNS_TEST_DTL.GRADING_BASIS = "";
   TRNS_TEST_DTL.CRSE_GRADE_OFF = "";
   TRNS_TEST_DTL.EARN_CREDIT = "N";
   TRNS_TEST_DTL.INCLUDE_IN_GPA = "N";
   TRNS_TEST_DTL.UNITS_ATTEMPTED = "N";
   TRNS_TEST_DTL.REPEAT_CODE = "";
   TRNS_TEST_DTL.RQMNT_DESIGNTN = "";
   TRNS_TEST_DTL.SSR_FAWI_INCL = "N";
When PanelGroup.TRNS_OTHR
   TRNS_OTHR_DTL.CRSE_ID = "" TRNS_OTHR_DTL.CRSE_OFFER_NBR = 0;
   TRNS_OTHR_DTL.CRSE_ID = "";
   TRNS_OTHR_DTL.CRSE_OFFER_NBR = 0;
   TRNS_OTHR_DTL.UNT_TRNSFR = 0;
   TRNS_OTHR_DTL.GRD_PTS_PER_UNIT = 0;
   TRNS_OTHR_DTL.GRADING_SCHEME = "" TRNS_OTHR_DTL.GRADING_BASIS = "" TRNS_OTHR_DTL.CRSE_GRADE_OFF = "" TRNS_OTHR_DTL.EARN_CREDIT = "N&N'N(" TRNS_OTHR_DTL.RQMNT_DESIGNTN = ""
   TRNS_OTHR_DTL.GRADING_SCHEME = "";
   TRNS_OTHR_DTL.GRADING_BASIS = "";
   TRNS_OTHR_DTL.CRSE_GRADE_OFF = "";
   TRNS_OTHR_DTL.EARN_CREDIT = "N";
   TRNS_OTHR_DTL.INCLUDE_IN_GPA = "N";
   TRNS_OTHR_DTL.UNITS_ATTEMPTED = "N";
   TRNS_OTHR_DTL.REPEAT_CODE = "";
   TRNS_OTHR_DTL.RQMNT_DESIGNTN = "";
   TRNS_OTHR_DTL.SSR_FAWI_INCL = "N";
End-Evaluate;

PeopleCode (Record): DERIVED_TRCR.FUNC_REJ_EXT.FieldChange
&O1CretoNme 1)
&ROW1 = CurrentRowNumber(1);
&ROW2 = CurrentRowNumber(2);
&ROW3 = CurrentRowNumber(3);
Evaluate %PanelGroup
When PanelGroup.TRNS_CRSE
   &RECNAME1 = "TRNS_CRSE_SCH";
   &RECNAME2 = "TRNS_CRSE_TERM";
   &RECNAME3 = "TRNS_CRSE_DTL";
When PanelGroup.TRNS_TEST
   &RECNAME1 = "TRNS_TEST_MODEL";
   &RECNAME2 = "TRNS_TEST_TERM";
   &RECNAME3 = "TRNS_TEST_DTL";
When PanelGroup.TRNS_OTHR
   &RECNAME1 = "TRNS_OTHR_MODEL";
   &RECNAME2 = "TRNS_OTHR_TERM";
   &RECNAME3 = "TRNS_OTHR_DTL";
End-Evaluate;
&REC1 = "RECORD." | &RECNAME1;
&REC2 = "RECORD." | &RECNAME2;
&REC3 = "RECORD." | &RECNAME3;
&ROW3_CNT = ActiveRowCount(@&REC1, &ROW1, @&REC2, &ROW2, @&REC3);
&CURR_GRP = FetchValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | ".TRNSFR_EQVLNCY_GRP"), &ROW3);
/* 
   count external courses in group 
*/
&EXT_CNT = 0;
For &I = 1 To &ROW3_CNT
   &GRP = FetchValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | ".TRNSFR_EQVLNCY_GRP"), &I);
   If &GRP = &CURR_GRP Then
      Evaluate %PanelGroup
      When PanelGroup.TRNS_CRSE
         If TRNS_CRSE_SCH.TRNSFR_SRC_TYPE = "E" Then
            &EXT = FetchValue(@&REC1, &ROW1, @&REC2, &ROW2, TRNS_CRSE_DTL.EXT_COURSE_NBR, &I);
         Else
            &EXT = FetchValue(@&REC1, &ROW1, @&REC2, &ROW2, TRNS_CRSE_DTL.SRC_CLASS_NBR, &I);
         End-If;
      When PanelGroup.TRNS_TEST
         &EXT = FetchValue(@&REC1, &ROW1, @&REC2, &ROW2, TRNS_TEST_DTL.TEST_ID, &I);
      When PanelGroup.TRNS_OTHR
      End-Evaluate;
      If All(&EXT) Then
         &EXT_CNT = &EXT_CNT + 1;
      End-If;
   End-If;
End-For;
/* 
   if there is only one external course, space out the internal course details in the record, and delete all succeeding records 
*/
If &EXT_CNT = 1 Then
   For &I = 1 To &ROW3_CNT
      &GRP = FetchValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | ".TRNSFR_EQVLNCY_GRP"), &I);
      If &GRP = &CURR_GRP Then
         Evaluate %PanelGroup
         When PanelGroup.TRNS_CRSE
            If TRNS_CRSE_SCH.TRNSFR_SRC_TYPE = "E" Then
               &EXT = FetchValue(@&REC1, &ROW1, @&REC2, &ROW2, TRNS_CRSE_DTL.EXT_COURSE_NBR, &I);
            Else
               &EXT = FetchValue(@&REC1, &ROW1, @&REC2, &ROW2, TRNS_CRSE_DTL.SRC_CLASS_NBR, &I);
            End-If;
         When PanelGroup.TRNS_TEST
            &EXT = FetchValue(@&REC1, &ROW1, @&REC2, &ROW2, TRNS_TEST_DTL.TEST_ID, &I);
         When PanelGroup.TRNS_OTHR
         End-Evaluate;
         If All(&EXT) Then
            Hide(@&REC1, &ROW1, @&REC2, &ROW2, DERIVED_TRCR.FUNC_REJ_EXT, &I);
            UpdateValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | ".TRNSFR_STAT"), &I, "N");
            UpdateValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | ".CRSE_ID"), &I, "");
            UpdateValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | ".CRSE_OFFER_NBR"), &I, 0);
            UpdateValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | ".UNT_TRNSFR"), &I, 0);
            UpdateValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | ".GRADING_SCHEME"), &I, "");
            UpdateValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | ".GRADING_BASIS"), &I, "");
            UpdateValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | ".CRSE_GRADE_OFF"), &I, "");
            UpdateValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | ".GRD_PTS_PER_UNIT"), &I, 0);
            UpdateValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | ".EARN_CREDIT"), &I, "N");
            UpdateValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | ".INCLUDE_IN_GPA"), &I, "N");
            UpdateValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | ".UNITS_ATTEMPTED"), &I, "N");
            UpdateValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | ".REPEAT_CODE"), &I, "");
            UpdateValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | ".RQMNT_DESIGNTN"), &I, "");
            UpdateValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | ".SSR_INCL_FA_WI"), &I, "N");
         Else
            /* 
                delete rows in the same group 
           */
            UpdateValue(@&REC1, &ROW1, @&REC2, &ROW2, DERIVED_TRCR.TRNSFR_PROCESS, &I, "D");
         End-If;
      End-If;
   End-For;
Else
   /* 
        if there are more than one external courses, tag the current row for exclusion 
   */
   UpdateValue(@&REC1, &ROW1, @&REC2, &ROW2, DERIVED_TRCR.TRNSFR_PROCESS, &ROW3, "E");
End-If;
DERIVED_TRCR.TRNSFR_FL = "";

PeopleCode (Record): DERIVED_VERIF.APPLY_CHGS_BTN.FieldChange
Local string &PARM1;
Local string &PARM2;
Local string &PARM3;
Local number &PARM4;
Local string &PARM5;
Local string &PARM6;
Local string &PARM7;
Local string &PARM8;
Local string &PARM9;

&RETURNCODE = - 1;
&HOLDROW = CurrentRowNumber(1);
&PARM1 = VERIF_COMP_HDR.EMPLID;
&PARM2 = VERIF_COMP_HDR.INSTITUTION;
&PARM3 = VERIF_COMP_HDR.AID_YEAR;
&PARM4 = VERIF_COMP_HDR.VERIF_SEQ_NBR;
&PARM5 = VERIF_COMP_HDR.VERIF_TARGET;
&PARM6 = VERIF_COMP_HDR.APP_SOURCE_CODE;
&PARM7 = VERIF_COMP_HDR.SPECIAL_PROCESSING;
&PARM8 = VERIF_COMP_HDR.UPDATE_ISIR_STATUS;
&PARM9 = VERIF_COMP_HDR.VERIF_SOURCE;
&PARM10 = VERIF_COMP_HDR.MARK_AS_VERIFIED;
&REMOTECOBOLPGM = "FAPVUSHL";
DoSaveNow();
If &PARM3 = "2006" Or
      &PARM3 = "2007" Or
      &PARM3 = "2008" Then
      &PARM3 = "2008" Or
      &PARM3 = "2009" Then
   RemoteCall("PSRCCBL", "PSCOBOLPROG", "FAPVUSHL", "EMPLID", &PARM1, "INSTITUTION", &PARM2, "AID-YEAR", &PARM3, "VERIF-NBR", &PARM4, "TARGET-ID", &PARM5, "APP-SRC-CD", &PARM6, "SPECIAL-PROCESSING", &PARM7, "SEND-ISIR-SW", &PARM8, "SOURCE-ID", &PARM9, "MARK-AS-VERIFIED", &PARM10, "RETURNCODE", &RETURNCODE, "MESSAGETEXT1", &MSGTEXT1, "MESSAGETEXT2", &MSGTEXT2);
   If &RETURNCODE <> 0 Then
      Evaluate &RETURNCODE
      When 50
         MessageBox(48, "INAS Edit", 14400, 50, "Setup a Local Policy row for the Institution, Aid Year and INAS Rule Set.");
         Break;
      When 51
         MessageBox(48, "INAS Edit", 14400, 51, "No row was found on ISIR_STUDENT.");
         Break;
      When 52
         MessageBox(48, "INAS Edit", 14400, 52, "No row was found ISIR_PARENT.");
         Break;
      When 53
         MessageBox(48, "INAS Edit", 14400, 53, "No row was found on STUDENT_AID.");
         Break;
      When 54
         MessageBox(48, "INAS Edit", 14400, 54, "No row was found on PERSONAL_DATA.");
         Break;
      When 55
         MessageBox(48, "INAS Edit", 14400, 55, "No row was found on INST_CONTROL.");
         Break;
      When 56
         MessageBox(48, "INAS Edit", 14400, 56, "No row was found on INST_STUDENT");
         Break;
      When 57
         MessageBox(48, "INAS Edit", 14400, 57, "No row was found on INST_PARENT.");
         Break;
      When-Other
         Error (MsgGet(14408, 61, "Non-Zero return code from FAPVUSHL/INAS. RC: ", &RTN_CODE));
      End-Evaluate;
   End-If;
Else
   Warning (MsgGet(14400, 19, "INAS cannot be invoked for the Aid Year you selected."));
End-If;
If &RETURNCODE <> 0 Then
   /*MessageBox(16, "RETURN CODE", 0, 0, "ERROR:  " | &MSGTEXT1);*/
Else
   SQLExec("Select 'X' from ps_verif_comp_dtl where emplid = :1 and institution = :2 and aid_year = :3 and verif_seq_nbr = :4", &PARM1, &PARM2, &PARM3, &PARM4, &EXIST);
   If &EXIST = "X" Then
      DERIVED_VERIF.VIEW_SUMMARY.Visible = True;
      DERIVED_VERIF.VERIF_FIELD_DIFF.Visible = False;
   Else
      DERIVED_VERIF.VIEW_SUMMARY.Visible = False;
      DERIVED_VERIF.VERIF_FIELD_DIFF.Visible = True;
   End-If;
   ScrollFlush(Record.VERIF_COMP_HDR);
   ScrollSelect(1, Record.VERIF_COMP_HDR, Record.VERIF_COMP_HDR, "where emplid = :1 and institution = :2 AND AID_YEAR = :3 ORDER BY VERIF_SEQ_NBR", &PARM1, &PARM2, &PARM3);
   SetCursorPos(Panel.VERIF_COMP_DTL, VERIF_COMP_HDR.VERIF_SEQ_NBR, &HOLDROW);
   ScrollFlush(Record.STDNT_AID_ATRBT);
   ScrollSelect(1, Record.STDNT_AID_ATRBT, Record.STDNT_AID_ATRBT, "where emplid = :1 and institution = :2 AND AID_YEAR = :3 AND TABLE_ID = '1'", &PARM1, &PARM2, &PARM3);
End-If;

PeopleCode (Record): FUNCLIB_CS.TRNSFR_FL.FieldFormula
Declare Function roll_cum PeopleCode FUNCLIB_CS.TOT_CUMULATIVE FieldFormula;

Function get_recname(&RECNAME1, &REC1, &RECNAME2, &REC2, &RECNAME3, &REC3);
   Evaluate %PanelGroup
   When PanelGroup.TRNS_CRSE
   When PanelGroup.TRNS_CRSE_MNL
      &RECNAME1 = "TRNS_CRSE_SCH";
      &RECNAME2 = "TRNS_CRSE_TERM";
      &RECNAME3 = "TRNS_CRSE_DTL";
   When PanelGroup.TRNS_TEST
   When PanelGroup.TRNS_TEST_MNL
      &RECNAME1 = "TRNS_TEST_MODEL";
      &RECNAME2 = "TRNS_TEST_TERM";
      &RECNAME3 = "TRNS_TEST_DTL";
   When PanelGroup.TRNS_OTHR
      &RECNAME1 = "TRNS_OTHR_MODEL";
      &RECNAME2 = "TRNS_OTHR_TERM";
      &RECNAME3 = "TRNS_OTHR_DTL";
   When-Other
   End-Evaluate;
   &REC1 = "RECORD." | &RECNAME1;
   &REC2 = "RECORD." | &RECNAME2;
   &REC3 = "RECORD." | &RECNAME3;
End-Function;

/* 
     check if there is already a model existing with the same source and target information 
*/
Function chk_dup_prog();
   &MATCH_MODEL = 0;
   Evaluate %PanelGroup
   When PanelGroup.TRNS_CRSE
   When PanelGroup.TRNS_CRSE_MNL
      &REC_CNT = ActiveRowCount(Record.TRNS_CRSE_SCH);
      For &I = 1 To &REC_CNT
         &CURR_PROG = FetchValue(TRNS_CRSE_SCH.ACAD_PROG, &I);
         &CURR_PLAN = FetchValue(TRNS_CRSE_SCH.ACAD_PLAN, &I);
         &CURR_SRC = FetchValue(TRNS_CRSE_SCH.TRNSFR_SRC_TYPE, &I);
         For &J = &I + 1 To &REC_CNT
            If Not RecordDeleted(TRNS_CRSE_SCH.MODEL_NBR, &J) Then
               &PROG = FetchValue(TRNS_CRSE_SCH.ACAD_PROG, &J);
               &PLAN = FetchValue(TRNS_CRSE_SCH.ACAD_PLAN, &J);
               &SRC = FetchValue(TRNS_CRSE_SCH.TRNSFR_SRC_TYPE, &J);
               If &PROG = &CURR_PROG And
                     &PLAN = &CURR_PLAN And
                     &SRC = &CURR_SRC Then
                  Evaluate &SRC
                  When "E"
                     &CURR_EXT_ORG = FetchValue(TRNS_CRSE_SCH.EXT_ORG_ID, &I);
                     &CURR_DATA_SRC = FetchValue(TRNS_CRSE_SCH.LS_DATA_SOURCE, &I);
                     &EXT_ORG = FetchValue(TRNS_CRSE_SCH.EXT_ORG_ID, &J);
                     &DATA_SRC = FetchValue(TRNS_CRSE_SCH.LS_DATA_SOURCE, &J);
                     If &EXT_ORG = &CURR_EXT_ORG And
                           &DATA_SRC = &CURR_DATA_SRC Then
                        &CURR_MODEL = FetchValue(TRNS_CRSE_SCH.MODEL_NBR, &I);
                        &MATCH_MODEL = FetchValue(TRNS_CRSE_SCH.MODEL_NBR, &J);
                     End-If;
                  When "I"
                     &CURR_SRC_CAR = FetchValue(TRNS_CRSE_SCH.SRC_CAREER, &I);
                     &CURR_SRC_INST = FetchValue(TRNS_CRSE_SCH.SRC_INSTITUTION, &I);
                     &SRC_CAR = FetchValue(TRNS_CRSE_SCH.SRC_CAREER, &J);
                     &SRC_INST = FetchValue(TRNS_CRSE_SCH.SRC_INSTITUTION, &J);
                     If &SRC_CAR = &CURR_SRC_CAR And
                           &SRC_INST = &CURR_SRC_INST Then
                        &CURR_MODEL = FetchValue(TRNS_CRSE_SCH.MODEL_NBR, &I);
                        &MATCH_MODEL = FetchValue(TRNS_CRSE_SCH.MODEL_NBR, &J);
                     End-If;
                  When "M"
                     &CURR_SRC_ORG = FetchValue(TRNS_CRSE_SCH.SRC_ORG_NAME, &I);
                     &SRC_ORG = FetchValue(TRNS_CRSE_SCH.SRC_ORG_NAME, &J);
                     If &SRC_ORG = &CURR_SRC_ORG Then
                        &CURR_MODEL = FetchValue(TRNS_CRSE_SCH.MODEL_NBR, &I);
                        &MATCH_MODEL = FetchValue(TRNS_CRSE_SCH.MODEL_NBR, &J);
                     End-If;
                  End-Evaluate;
               End-If;
            End-If;
         End-For;
      End-For;
      If &MATCH_MODEL <> 0 Then
         Error MsgGet(14600, 298, "Models %1 and %2 are duplicates.", &CURR_MODEL, &MATCH_MODEL);
      End-If;
      Break;
   When PanelGroup.TRNS_TEST
   When PanelGroup.TRNS_TEST_MNL
      &REC_CNT = ActiveRowCount(Record.TRNS_TEST_MODEL);
      For &I = 1 To &REC_CNT
         &CURR_PROG = FetchValue(TRNS_TEST_MODEL.ACAD_PROG, &I);
         &CURR_PLAN = FetchValue(TRNS_TEST_MODEL.ACAD_PLAN, &I);
         For &J = &I + 1 To &REC_CNT
            If Not RecordDeleted(TRNS_TEST_MODEL.MODEL_NBR, &J) Then
               &PROG = FetchValue(TRNS_TEST_MODEL.ACAD_PROG, &J);
               &PLAN = FetchValue(TRNS_TEST_MODEL.ACAD_PLAN, &J);
               If &PROG = &CURR_PROG And
                     &PLAN = &CURR_PLAN Then
                  &CURR_MODEL = FetchValue(TRNS_TEST_MODEL.MODEL_NBR, &I);
                  &MATCH_MODEL = FetchValue(TRNS_TEST_MODEL.MODEL_NBR, &J);
                  Break;
               End-If;
            End-If;
         End-For;
      End-For;
   When PanelGroup.TRNS_OTHR
      &REC_CNT = ActiveRowCount(Record.TRNS_OTHR_MODEL);
      For &I = 1 To &REC_CNT
         &CURR_PROG = FetchValue(TRNS_OTHR_MODEL.ACAD_PROG, &I);
         &CURR_PLAN = FetchValue(TRNS_OTHR_MODEL.ACAD_PLAN, &I);
         For &J = &I + 1 To &REC_CNT
            If Not RecordDeleted(TRNS_OTHR_MODEL.MODEL_NBR, &J) Then
               &PROG = FetchValue(TRNS_OTHR_MODEL.ACAD_PROG, &J);
               &PLAN = FetchValue(TRNS_OTHR_MODEL.ACAD_PLAN, &J);
               If &PROG = &CURR_PROG And
                     &PLAN = &CURR_PLAN Then
                  &CURR_MODEL = FetchValue(TRNS_OTHR_MODEL.MODEL_NBR, &I);
                  &MATCH_MODEL = FetchValue(TRNS_OTHR_MODEL.MODEL_NBR, &J);
               End-If;
            End-If;
         End-For;
      End-For;
   End-Evaluate;
   If &MATCH_MODEL <> 0 Then
      Error MsgGet(14600, 515, "Models %1 and %2 are duplicates.", &CURR_MODEL, &MATCH_MODEL);
   End-If;
End-Function;

Function get_min_seq(&TARGET_GRP, &MIN_SEQ, &RECNUM);
   get_recname(&RECNAME1, &REC1, &RECNAME2, &REC2, &RECNAME3, &REC3);
   &ROW01 = CurrentRowNumber(1);
   &ROW02 = CurrentRowNumber(2);
   &MIN_SEQ = 999;
   &RECNUM = 0;
   For &K = 1 To ActiveRowCount(@&REC1, &ROW01, @&REC2, &ROW02, @&REC3)
      &GRP = FetchValue(@&REC1, &ROW01, @&REC2, &ROW02, @(&RECNAME3 | "." | Field.TRNSFR_EQVLNCY_GRP), &K);
      If &GRP = &TARGET_GRP Then
         &SEQ = FetchValue(@&REC1, &ROW01, @&REC2, &ROW02, @(&RECNAME3 | "." | Field.TRNSFR_EQVLNCY_SEQ), &K);
         If &SEQ < &MIN_SEQ Then
            &MIN_SEQ = &SEQ;
            &RECNUM = &K;
         End-If;
      End-If;
   End-For;
End-Function;

Function get_max_seq(&TARGET_GRP, &MAX_SEQ);
   get_recname(&RECNAME1, &REC1, &RECNAME2, &REC2, &RECNAME3, &REC3);
   &ROW01 = CurrentRowNumber(1);
   &ROW02 = CurrentRowNumber(2);
   &MAX_SEQ = 0;
   For &K = 1 To ActiveRowCount(@&REC1, &ROW01, @&REC2, &ROW02, @&REC3)
      &GRP = FetchValue(@&REC1, &ROW01, @&REC2, &ROW02, @(&RECNAME3 | "." | Field.TRNSFR_EQVLNCY_GRP), &K);
      If &GRP = &TARGET_GRP Then
         &SEQ = FetchValue(@&REC1, &ROW01, @&REC2, &ROW02, @(&RECNAME3 | "." | Field.TRNSFR_EQVLNCY_SEQ), &K);
         If &SEQ > &MAX_SEQ Then
            &MAX_SEQ = &SEQ;
         End-If;
      End-If;
   End-For;
End-Function;

Function get_max_grp(&MAX_GRP);
   get_recname(&RECNAME1, &REC1, &RECNAME2, &REC2, &RECNAME3, &REC3);
   &ROW01 = CurrentRowNumber(1);
   &ROW02 = CurrentRowNumber(2);
   &MAX_GRP = 0;
   For &K = 1 To ActiveRowCount(@&REC1, &ROW01, @&REC2, &ROW02, @&REC3)
      &GRP = FetchValue(@&REC1, &ROW01, @&REC2, &ROW02, @(&RECNAME3 | "." | Field.TRNSFR_EQVLNCY_GRP), &K);
      If &MAX_GRP < &GRP Then
         &MAX_GRP = &GRP;
      End-If;
   End-For;
End-Function;

Function chk_dup_int(&CRSE_ID, &CRSE_OFFER) Returns boolean;
   &ROW01 = CurrentRowNumber(1);
   &ROW02 = CurrentRowNumber(2);
   &ROW03_CNT = ActiveRowCount(Record.TRNS_CRSE_SCH, &ROW01, Record.TRNS_CRSE_TERM, &ROW02, Record.TRNS_CRSE_DTL);
   For &K = 1 To &ROW02_CNT
      If &K = &ROW03 Then
      Else
         &ID = FetchValue(Record.TRNS_CRSE_SCH, &ROW01, Record.TRNS_CRSE_TERM, &ROW02, TRNS_CRSE_DTL.CRSE_ID, &K);
         &OFFER = FetchValue(Record.TRNS_CRSE_SCH, &ROW01, Record.TRNS_CRSE_TERM, &ROW02, TRNS_CRSE_DTL.CRSE_OFFER_NBR, &K);
         If &CRSE_ID = &ID And
               &CRSE_OFFER = &OFFER Then
            Return True;
         End-If;
      End-If;
   End-For;
   Return False;
End-Function;

Function init_sec_panel();
   Evaluate %PanelGroup
   When PanelGroup.TRNS_CRSE
   When PanelGroup.TRNS_CRSE_MNL
      DERIVED_TRCR_IN.SRC_SETID = TRNS_CRSE_SCH.SRC_INSTITUTION;
      DERIVED_TRCR_IN.SRC_TERM_TYPE = GetRelField(TRNS_CRSE_SCH.SRC_CAREER, ACAD_CAR_TRVW.TERM_TYPE);
      DERIVED_TRCR_IN.TERM_TYPE = GetRelField(TRNS_CRSE_SCH.ACAD_CAREER, ACAD_CAR_TBL.TERM_TYPE);
      Evaluate TRNS_CRSE_SCH.TRNSFR_SRC_TYPE
      When "E"
         If None(TRNS_CRSE_DTL.EXT_COURSE_NBR) Then
            &CURR_GRP = TRNS_CRSE_DTL.TRNSFR_EQVLNCY_GRP;
            get_min_seq(&CURR_GRP, &MIN_SEQ, &RECNUM);
            DERIVED_TRCR_IN.SUBJECT = FetchValue(Record.TRNS_CRSE_SCH, &ROW1, Record.TRNS_CRSE_TERM, &ROW2, EXT_COURSE.SCHOOL_SUBJECT, &RECNUM);
            DERIVED_TRCR_IN.CATALOG_NBR = FetchValue(Record.TRNS_CRSE_SCH, &ROW1, Record.TRNS_CRSE_TERM, &ROW2, EXT_COURSE.SCHOOL_CRSE_NBR, &RECNUM);
            &TERM1 = FetchValue(Record.TRNS_CRSE_SCH, &ROW1, Record.TRNS_CRSE_TERM, &ROW2, EXT_COURSE.TERM_YEAR, &RECNUM);
            &TERM2 = FetchValue(Record.TRNS_CRSE_SCH, &ROW1, Record.TRNS_CRSE_TERM, &ROW2, EXT_COURSE.EXT_TERM, &RECNUM);
            DERIVED_TRCR_IN.UNT_TAKEN = FetchValue(Record.TRNS_CRSE_SCH, &ROW1, Record.TRNS_CRSE_TERM, &ROW2, TRNS_CRSE_DTL.UNT_TAKEN, &RECNUM);
            DERIVED_TRCR_IN.CRSE_GRADE_INPUT = FetchValue(Record.TRNS_CRSE_SCH, &ROW1, Record.TRNS_CRSE_TERM, &ROW2, TRNS_CRSE_DTL.CRSE_GRADE_INPUT, &RECNUM);
            DERIVED_TRCR_IN.COURSE_LEVEL = FetchValue(Record.TRNS_CRSE_SCH, &ROW1, Record.TRNS_CRSE_TERM, &ROW2, EXT_COURSE.COURSE_LEVEL, &RECNUM);
            DERIVED_TRCR_IN.EXT_TERM = FetchValue(Record.TRNS_CRSE_SCH, &ROW1, Record.TRNS_CRSE_TERM, &ROW2, EXT_COURSE.EXT_TERM, &RECNUM);
            DERIVED_TRCR_IN.EXT_TERM_TYPE = FetchValue(Record.TRNS_CRSE_SCH, &ROW1, Record.TRNS_CRSE_TERM, &ROW2, EXT_COURSE.EXT_TERM_TYPE, &RECNUM);
            DERIVED_TRCR_IN.DESCR = FetchValue(Record.TRNS_CRSE_SCH, &ROW1, Record.TRNS_CRSE_TERM, &ROW2, EXT_COURSE.DESCR, &RECNUM);
         Else
            DERIVED_TRCR_IN.SUBJECT = EXT_COURSE.SCHOOL_SUBJECT;
            DERIVED_TRCR_IN.CATALOG_NBR = EXT_COURSE.SCHOOL_CRSE_NBR;
            &TERM1 = EXT_COURSE.TERM_YEAR;
            &TERM2 = EXT_COURSE.EXT_TERM;
            DERIVED_TRCR_IN.UNT_TAKEN = TRNS_CRSE_DTL.UNT_TAKEN;
            DERIVED_TRCR_IN.CRSE_GRADE_INPUT = TRNS_CRSE_DTL.CRSE_GRADE_INPUT;
            DERIVED_TRCR_IN.COURSE_LEVEL = EXT_COURSE.COURSE_LEVEL;
            DERIVED_TRCR_IN.EXT_TERM = EXT_COURSE.EXT_TERM;
            DERIVED_TRCR_IN.EXT_TERM_TYPE = EXT_COURSE.EXT_TERM_TYPE;
            DERIVED_TRCR_IN.DESCR = EXT_COURSE.DESCR;
            DERIVED_TRCR_IN.COURSE_LEVEL = TRNS_CRSE_DTL.COURSE_LEVEL;
         End-If;
         DERIVED_TRCR_IN.INP_TERM = &TERM1 | " " | &TERM2;
      When "I"
         If None(TRNS_CRSE_DTL.SRC_CLASS_NBR) Then
            &CURR_GRP = TRNS_CRSE_DTL.TRNSFR_EQVLNCY_GRP;
            get_min_seq(&CURR_GRP, &MIN_SEQ, &RECNUM);
            DERIVED_TRCR_IN.SUBJECT = FetchValue(Record.TRNS_CRSE_SCH, &ROW1, Record.TRNS_CRSE_TERM, &ROW2, STDNT_ENR2_TCVW.SUBJECT, &RECNUM);
            DERIVED_TRCR_IN.CATALOG_NBR = FetchValue(Record.TRNS_CRSE_SCH, &ROW1, Record.TRNS_CRSE_TERM, &ROW2, STDNT_ENR2_TCVW.CATALOG_NBR, &RECNUM);
            DERIVED_TRCR_IN.INP_TERM = FetchValue(Record.TRNS_CRSE_SCH, &ROW1, Record.TRNS_CRSE_TERM, &ROW2, STDNT_ENR2_TCVW.DESCRSHORT, &RECNUM);
            DERIVED_TRCR_IN.UNT_TAKEN = FetchValue(Record.TRNS_CRSE_SCH, &ROW1, Record.TRNS_CRSE_TERM, &ROW2, TRNS_CRSE_DTL.UNT_TAKEN, &RECNUM);
            DERIVED_TRCR_IN.CRSE_GRADE_INPUT = FetchValue(Record.TRNS_CRSE_SCH, &ROW1, Record.TRNS_CRSE_TERM, &ROW2, TRNS_CRSE_DTL.CRSE_GRADE_INPUT, &RECNUM);
            DERIVED_TRCR_IN.SRC_SETID = FetchValue(Record.TRNS_CRSE_SCH, &ROW1, Record.TRNS_CRSE_TERM, &ROW2, STDNT_ENR2_TCVW.SRC_INSTITUTION, &RECNUM);
            DERIVED_TRCR_IN.SRC_TERM_TYPE = GetRelField(TRNS_CRSE_SCH.SRC_CAREER, ACAD_CAR_TRVW.TERM_TYPE);
            DERIVED_TRCR_IN.DESCR = FetchValue(Record.TRNS_CRSE_SCH, &ROW1, Record.TRNS_CRSE_TERM, &ROW2, STDNT_ENR2_TCVW.DESCR, &RECNUM);
         Else
            DERIVED_TRCR_IN.SUBJECT = STDNT_ENR2_TCVW.SUBJECT;
            DERIVED_TRCR_IN.CATALOG_NBR = STDNT_ENR2_TCVW.CATALOG_NBR;
            DERIVED_TRCR_IN.INP_TERM = STDNT_ENR2_TCVW.DESCRSHORT;
            DERIVED_TRCR_IN.UNT_TAKEN = TRNS_CRSE_DTL.UNT_TAKEN;
            DERIVED_TRCR_IN.CRSE_GRADE_INPUT = TRNS_CRSE_DTL.CRSE_GRADE_INPUT;
            DERIVED_TRCR_IN.DESCR = STDNT_ENR2_TCVW.DESCR;
         End-If;
         Hide(DERIVED_TRCR_IN.COURSE_LEVEL);
      When "M"
         DERIVED_TRCR_IN.SUBJECT = TRNS_CRSE_DTL.SCHOOL_SUBJECT;
         DERIVED_TRCR_IN.CATALOG_NBR = TRNS_CRSE_DTL.SCHOOL_CRSE_NBR;
         &TERM1 = TRNS_CRSE_DTL.TERM_YEAR;
         &TERM2 = TRNS_CRSE_DTL.EXT_TERM;
         If None(&TERM1, &TERM2) Then
            DERIVED_TRCR_IN.INP_TERM = "";
         Else
            DERIVED_TRCR_IN.INP_TERM = &TERM1 | " " | &TERM2;
         End-If;
         DERIVED_TRCR_IN.UNT_TAKEN = TRNS_CRSE_DTL.UNT_TAKEN;
         DERIVED_TRCR_IN.CRSE_GRADE_INPUT = TRNS_CRSE_DTL.CRSE_GRADE_INPUT;
         DERIVED_TRCR_IN.DESCR = TRNS_CRSE_DTL.DESCR;
         DERIVED_TRCR_IN.COURSE_LEVEL = TRNS_CRSE_DTL.COURSE_LEVEL;
         /*         Hide(DERIVED_TRCR_IN.COURSE_LEVEL); */
      End-Evaluate;
   When PanelGroup.TRNS_TEST
      If None(TRNS_TEST_DTL.TEST_ID) Then
         &CURR_GRP = TRNS_TEST_DTL.TRNSFR_EQVLNCY_GRP;
         get_min_seq(&CURR_GRP, &MIN_SEQ, &RECNUM);
         DERIVED_TRCR_IN.TEST_ID = FetchValue(Record.TRNS_TEST_MODEL, &ROW1, Record.TRNS_TEST_TERM, &ROW2, TRNS_TEST_DTL.TEST_ID, &RECNUM);
         DERIVED_TRCR_IN.TEST_COMPONENT = FetchValue(Record.TRNS_TEST_MODEL, &ROW1, Record.TRNS_TEST_TERM, &ROW2, TRNS_TEST_DTL.TEST_COMPONENT, &RECNUM);
         DERIVED_TRCR_IN.TEST_DT = FetchValue(Record.TRNS_TEST_MODEL, &ROW1, Record.TRNS_TEST_TERM, &ROW2, TRNS_TEST_DTL.TEST_DT, &RECNUM);
         DERIVED_TRCR_IN.LS_DATA_SOURCE = FetchValue(Record.TRNS_TEST_MODEL, &ROW1, Record.TRNS_TEST_TERM, &ROW2, TRNS_TEST_DTL.LS_DATA_SOURCE, &RECNUM);
         DERIVED_TRCR_IN.SCORE = FetchValue(Record.TRNS_TEST_MODEL, &ROW1, Record.TRNS_TEST_TERM, &ROW2, TRNS_TEST_DTL.SCORE, &RECNUM);
         DERIVED_TRCR_IN.PERCENTILE = FetchValue(Record.TRNS_TEST_MODEL, &ROW1, Record.TRNS_TEST_TERM, &ROW2, TRNS_TEST_DTL.PERCENTILE, &RECNUM);
      Else
         DERIVED_TRCR_IN.TEST_ID = TRNS_TEST_DTL.TEST_ID;
         DERIVED_TRCR_IN.TEST_COMPONENT = TRNS_TEST_DTL.TEST_COMPONENT;
         DERIVED_TRCR_IN.TEST_DT = TRNS_TEST_DTL.TEST_DT;
         DERIVED_TRCR_IN.LS_DATA_SOURCE = TRNS_TEST_DTL.LS_DATA_SOURCE;
         DERIVED_TRCR_IN.SCORE = TRNS_TEST_DTL.SCORE;
         DERIVED_TRCR_IN.PERCENTILE = TRNS_TEST_DTL.PERCENTILE;
      End-If;
   When PanelGroup.TRNS_TEST_MNL
   When PanelGroup.TRNS_OTHR
      DERIVED_TRCR.GRADING_SCHEME = ACAD_PROG_TBL.GRADING_SCHEME;
      DERIVED_TRCR.GRADING_BASIS = ACAD_PROG_TBL.GRADING_BASIS;
      DERIVED_TRCR.GRADE_TRANSFER = ACAD_PROG_TBL.GRADE_TRANSFER;
   End-Evaluate;
End-Function;

Function edit_int_crse();
   &ROW1 = CurrentRowNumber(1);
   &ROW2 = CurrentRowNumber(2);
   &ROW3 = CurrentRowNumber(3);
   get_recname(&RECNAME1, &REC1, &RECNAME2, &REC2, &RECNAME3, &REC3);
   DERIVED_TRCR.UPDATE_FL = "";
   init_sec_panel();
   /* 
       display secondary panel 
   */
   Evaluate %PanelGroup
   When PanelGroup.TRNS_CRSE
      DoModal(Panel.TRNS_CRSE_INT_SEC, MsgGetText(14600, 558, "Equivalent Course Information"), - 1, - 1, 3, @&REC1, &ROW1, @&REC2, &ROW2, @&REC3, &ROW3);
   When PanelGroup.TRNS_TEST
      DoModal(Panel.TRNS_TEST_INT_SEC, MsgGetText(14600, 558, "Equivalent Course Information"), - 1, - 1, 3, @&REC1, &ROW1, @&REC2, &ROW2, @&REC3, &ROW3);
   When PanelGroup.TRNS_TEST_MNL
      DoModal(Panel.TRNS_TEST_EDIT_SEC, MsgGetText(14600, 558, "Equivalent Course Information"), - 1, - 1, 3, @&REC1, &ROW1, @&REC2, &ROW2, @&REC3, &ROW3);
   When PanelGroup.TRNS_OTHR
      DoModal(Panel.TRNS_OTHR_EDIT_SEC, MsgGetText(14600, 558, "Equivalent Course Information"), - 1, - 1, 3, @&REC1, &ROW1, @&REC2, &ROW2, @&REC3, &ROW3);
   End-Evaluate;
   &TERM_STAT = FetchValue(@&REC1, &ROW1, @(&RECNAME2 | "." | Field.MODEL_STATUS), &ROW2);
   If &TERM_STAT = "P" Or
         &TERM_STAT = "C" Then
      Return;
   End-If;
   If DERIVED_TRCR.UPDATE_FL = "Y" Then
      &STAT1 = FetchValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | "." | Field.TRNSFR_STAT), &ROW3);
      If &STAT1 = "C" Then
         UpdateValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | "." | Field.TRNSFR_STAT), &ROW3, "Y");
         Hide(@&REC1, &ROW1, @&REC2, &ROW2, DERIVED_TRCR.ACCEPT_PB, &ROW3);
         UnHide(@&REC1, &ROW1, @&REC2, &ROW2, DERIVED_TRCR.OK_PB, &ROW3);
         &GRP = FetchValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | "." | Field.TRNSFR_EQVLNCY_GRP), &ROW3);
         &DTL_CNT = ActiveRowCount(@&REC1, &ROW1, @&REC2, &ROW2, @&REC3);
         For &I = 1 To &DTL_CNT
            If &I <> &ROW3 Then
               &CURR_GRP = FetchValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | "." | Field.TRNSFR_EQVLNCY_GRP), &I);
               If &CURR_GRP = &GRP Then
                  UpdateValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | "." | Field.TRNSFR_STAT), &I, "Y");
                  Hide(@&REC1, &ROW1, @&REC2, &ROW2, DERIVED_TRCR.ACCEPT_PB, &I);
                  UnHide(@&REC1, &ROW1, @&REC2, &ROW2, DERIVED_TRCR.OK_PB, &I);
               End-If;
            End-If;
         End-For;
      Else
         UpdateValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | "." | Field.TRNSFR_STAT), &ROW3, "Y");
      End-If;
      /* 
            if the equivalent course was spaced out, check if there is at least one row in the group with an equivalent course specified 
      */
      &INT_CRSE = FetchValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | "." | Field.CRSE_ID), &ROW3);
      &GRP = FetchValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | "." | Field.TRNSFR_EQVLNCY_GRP), &ROW3);
      If None(&INT_CRSE) Then
         &DTL_CNT = ActiveRowCount(@&REC1, &ROW1, @&REC2, &ROW2, @&REC3);
         &EQUIV_EXISTS = False;
         For &I = 1 To &DTL_CNT
            If &I <> &ROW3 Then
               &CURR_GRP = FetchValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | "." | Field.TRNSFR_EQVLNCY_GRP), &I);
               If &CURR_GRP = &GRP Then
                  &CURR_CRSE = FetchValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | "." | Field.CRSE_ID), &I);
                  If All(&CURR_CRSE) Then
                     &EQUIV_EXISTS = True;
                  End-If;
               End-If;
            End-If;
         End-For;
         /* 
              if there is no equivalent course for the group, update their TRNSFR_STAT to "N" 
         */
         If Not &EQUIV_EXISTS Then
            For &I = 1 To &DTL_CNT
               &CURR_GRP = FetchValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | "." | Field.TRNSFR_EQVLNCY_GRP), &I);
               If &CURR_GRP = &GRP Then
                  UpdateValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | "." | Field.TRNSFR_STAT), &I, "N");
                  If &I <> &ROW3 Then
                     get_max_grp(&MAX_GRP);
                     UpdateValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | "." | Field.TRNSFR_EQVLNCY_GRP), &I, &MAX_GRP + 1);
                     UpdateValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | "." | Field.TRNSFR_EQVLNCY_SEQ), &I, 1);
                  End-If;
               End-If;
            End-For;
         End-If;
      End-If;
      If %PanelGroup = PanelGroup.TRNS_TEST_MNL Or
            %PanelGroup = PanelGroup.TRNS_OTHR Then
         DERIVED_TRCR.SUBJ_CATLG_INT = CRSE_OFFER.SUBJECT | " " | CRSE_OFFER.CATALOG_NBR;
      Else
         DERIVED_TRCR.TRNSFR_FL = "";
      End-If;
   End-If;
End-Function;

Function chk_target_grp(&PRIOR_GRP, &TARGET_GRP) Returns boolean;
   &ROW1 = CurrentRowNumber(1);
   &ROW2 = CurrentRowNumber(2);
   &ROW3 = CurrentRowNumber(3);
   get_recname(&RECNAME1, &REC1, &RECNAME2, &REC2, &RECNAME3, &REC3);
   &F_EQVLNCY_GRP = Field.TRNSFR_EQVLNCY_GRP;
   If &TARGET_GRP = &PRIOR_GRP Then
      Error MsgGet(14600, 294, "Please select a valid equivalency group.");
   Else
      &ROW3_CNT = ActiveRowCount(@&REC1, &ROW1, @&REC2, &ROW2, @&REC3);
      &FOUND = False;
      For &I = 1 To &ROW3_CNT
         If &I <> &ROW3 Then
            &GRP = FetchValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | "." | &F_EQVLNCY_GRP), &I);
            If &GRP = &TARGET_GRP Then
               &FOUND = True;
               &STAT = FetchValue(@&REC1, &ROW1, @&REC2, &ROW2, @(&RECNAME3 | "." | Field.TRNSFR_STAT), &I);
               If &STAT = "Y" Then
                  Return True;
               Else
                  Return False;
               End-If;
            End-If;
         End-If;
      End-For;
      If &FOUND Then
         Return True;
      Else
         Return False;
      End-If;
   End-If;
End-Function;

/* 
     Update the Transfer Term Unit buckets 
*/
Function sum_units();
   &T_GPA = 0;
   &T_NOGPA = 0;
   &P_GPA = 0;
   &P_NOGPA = 0;
   &GP = 0;
   &TOT_TAKEN = 0;
   &TOT_TRANS = 0;
   &TRF_GPA = 0;
   
   &ROW1 = CurrentRowNumber(1);
   &ROW2 = CurrentRowNumber(2);
   
   &FAWI_T_GPA = 0;
   &FAWI_T_NOGPA = 0;
   &FAWI_P_GPA = 0;
   &FAWI_P_NOGPA = 0;
   &FAWI_GP = 0;
   &FAWI_TOT_TAKEN = 0;
   &FAWI_TOT_TRANS = 0;
   &FAWI_TRF_GPA = 0;
   
   Evaluate %PanelGroup
   When PanelGroup.TRNS_CRSE
   When PanelGroup.TRNS_CRSE_MNL
      &DTL_CNT = ActiveRowCount(Record.TRNS_CRSE_SCH, &ROW1, Record.TRNS_CRSE_TERM, &ROW2, Record.TRNS_CRSE_DTL);
      For &I = 1 To &DTL_CNT;
         If Not RecordDeleted(Record.TRNS_CRSE_SCH, &ROW1, Record.TRNS_CRSE_TERM, &ROW2, TRNS_CRSE_DTL.TRNSFR_EQVLNCY_SEQ, &I) Then
            &TRNS_STAT = FetchValue(Record.TRNS_CRSE_SCH, &ROW1, Record.TRNS_CRSE_TERM, &ROW2, TRNS_CRSE_DTL.TRNSFR_STAT, &I);
            If &TRNS_STAT = "Y" Or
                  &TRNS_STAT = "P" Then
               &TAKEN = FetchValue(Record.TRNS_CRSE_SCH, &ROW1, Record.TRNS_CRSE_TERM, &ROW2, TRNS_CRSE_DTL.UNT_TAKEN, &I);
               &TRANS = FetchValue(Record.TRNS_CRSE_SCH, &ROW1, Record.TRNS_CRSE_TERM, &ROW2, TRNS_CRSE_DTL.UNT_TRNSFR, &I);
               &GRD_PTS = FetchValue(Record.TRNS_CRSE_SCH, &ROW1, Record.TRNS_CRSE_TERM, &ROW2, TRNS_CRSE_DTL.GRD_PTS_PER_UNIT, &I);
               &UNITS_ATT = FetchValue(Record.TRNS_CRSE_SCH, &ROW1, Record.TRNS_CRSE_TERM, &ROW2, TRNS_CRSE_DTL.UNITS_ATTEMPTED, &I);
               &INCL_IN_GPA = FetchValue(Record.TRNS_CRSE_SCH, &ROW1, Record.TRNS_CRSE_TERM, &ROW2, TRNS_CRSE_DTL.INCLUDE_IN_GPA, &I);
               &EARN_CREDIT = FetchValue(Record.TRNS_CRSE_SCH, &ROW1, Record.TRNS_CRSE_TERM, &ROW2, TRNS_CRSE_DTL.EARN_CREDIT, &I);
               If TRNS_CRSE_SCH.TRNSFR_SRC_TYPE = "I" Or
                     ORG_INST_TC_VW.TRNSFR_CR_INCL_GPA = "Y" Or
                     TRNS_CRSE_SCH.INCLUDE_IN_GPA = "Y" Then
                  If &UNITS_ATT = "Y" Then
                  If &INCL_IN_GPA = "Y" Then
                     &T_GPA = &T_GPA + &TRANS;
                     If &UNITS_ATT = "Y" Then
                        &GP = &GP + (&GRD_PTS * &TRANS);
                        If &EARN_CREDIT = "Y" Then
                           &P_GPA = &P_GPA + &TRANS;
                        End-If;
                     End-If;
                  Else
                     &T_NOGPA = &T_NOGPA + &TRANS;
                     If &UNITS_ATT = "Y" Then
                        If &EARN_CREDIT = "Y" Then
                           &P_NOGPA = &P_NOGPA + &TRANS;
                        End-If;
                     End-If;
                  End-If;
               Else
                  &TOT_TAKEN = &TOT_TAKEN + &TAKEN;
                  If &UNITS_ATT = "Y" Then
                     If &EARN_CREDIT = "Y" Then
                        &TOT_TRANS = &TOT_TRANS + &TRANS;
                     End-If;
                  End-If;
               End-If;
               
               /*  Financial Aid Weeks of Instruction units  */
               &Incl_FA_WI = FetchValue(Record.TRNS_CRSE_SCH, &ROW1, Record.TRNS_CRSE_TERM, &ROW2, TRNS_CRSE_DTL.SSR_FAWI_INCL, &I);
               If &Incl_FA_WI = "Y" Then
                  If TRNS_CRSE_SCH.TRNSFR_SRC_TYPE = "I" Or
                        ORG_INST_TC_VW.TRNSFR_CR_INCL_GPA = "Y" Or
                        TRNS_CRSE_SCH.INCLUDE_IN_GPA = "Y" Then
                     If &INCL_IN_GPA = "Y" Then
                        &FAWI_T_GPA = &FAWI_T_GPA + &TRANS;
                        If &UNITS_ATT = "Y" Then
                           &FAWI_GP = &FAWI_GP + (&GRD_PTS * &TRANS);
                           If &EARN_CREDIT = "Y" Then
                              &FAWI_P_GPA = &FAWI_P_GPA + &TRANS;
                           End-If;
                        End-If;
                     Else
                        &FAWI_T_NOGPA = &FAWI_T_NOGPA + &TRANS;
                        If &UNITS_ATT = "Y" Then
                           If &EARN_CREDIT = "Y" Then
                              &FAWI_P_NOGPA = &FAWI_P_NOGPA + &TRANS;
                           End-If;
                        End-If;
                     End-If;
                  Else
                     &FAWI_TOT_TAKEN = &FAWI_TOT_TAKEN + &TAKEN;
                     If &UNITS_ATT = "Y" Then
                        If &EARN_CREDIT = "Y" Then
                           &FAWI_TOT_TRANS = &FAWI_TOT_TRANS + &TRANS;
                        End-If;
                     End-If;
                  End-If;
               End-If;
            End-If;
         End-If;
      End-For;
      UpdateValue(Record.TRNS_CRSE_SCH, &ROW1, TRNS_CRSE_TERM.TRF_TAKEN_GPA, &ROW2, &T_GPA);
      UpdateValue(Record.TRNS_CRSE_SCH, &ROW1, TRNS_CRSE_TERM.TRF_TAKEN_NOGPA, &ROW2, &T_NOGPA);
      UpdateValue(Record.TRNS_CRSE_SCH, &ROW1, TRNS_CRSE_TERM.TRF_PASSED_GPA, &ROW2, &P_GPA);
      UpdateValue(Record.TRNS_CRSE_SCH, &ROW1, TRNS_CRSE_TERM.TRF_PASSED_NOGPA, &ROW2, &P_NOGPA);
      UpdateValue(Record.TRNS_CRSE_SCH, &ROW1, TRNS_CRSE_TERM.UNT_TAKEN, &ROW2, &TOT_TAKEN);
      UpdateValue(Record.TRNS_CRSE_SCH, &ROW1, TRNS_CRSE_TERM.UNT_TRNSFR, &ROW2, &TOT_TRANS);
      UpdateValue(Record.TRNS_CRSE_SCH, &ROW1, TRNS_CRSE_TERM.TRF_GRADE_POINTS, &ROW2, &GP);
      If &T_GPA > 0 Then
         &TRF_GPA = &GP / &T_GPA;
         UpdateValue(Record.TRNS_CRSE_SCH, &ROW1, TRNS_CRSE_TERM.TRF_GPA, &ROW2, &TRF_GPA);
      Else
         UpdateValue(Record.TRNS_CRSE_SCH, &ROW1, TRNS_CRSE_TERM.TRF_GPA, &ROW2, 0);
      End-If;
      
      /*  Financial Aid Weeks of Instruction units  */
      UpdateValue(Record.TRNS_CRSE_SCH, &ROW1, TRNS_CRSE_TERM.SSR_FAWI_TKN_GPA, &ROW2, &FAWI_T_GPA);
      UpdateValue(Record.TRNS_CRSE_SCH, &ROW1, TRNS_CRSE_TERM.SSR_FAWI_TKN_NOGPA, &ROW2, &FAWI_T_NOGPA);
      UpdateValue(Record.TRNS_CRSE_SCH, &ROW1, TRNS_CRSE_TERM.SSR_FAWI_PSD_GPA, &ROW2, &FAWI_P_GPA);
      UpdateValue(Record.TRNS_CRSE_SCH, &ROW1, TRNS_CRSE_TERM.SSR_FAWI_PSD_NOGPA, &ROW2, &FAWI_P_NOGPA);
      UpdateValue(Record.TRNS_CRSE_SCH, &ROW1, TRNS_CRSE_TERM.SSR_FAWI_TKN, &ROW2, &FAWI_TOT_TAKEN);
      UpdateValue(Record.TRNS_CRSE_SCH, &ROW1, TRNS_CRSE_TERM.SSR_FAWI_PSD, &ROW2, &FAWI_TOT_TRANS);
      UpdateValue(Record.TRNS_CRSE_SCH, &ROW1, TRNS_CRSE_TERM.SSR_FAWI_GRADE_PTS, &ROW2, &FAWI_GP);
      If &FAWI_T_GPA > 0 Then
         &FAWI_TRF_GPA = &FAWI_GP / &FAWI_T_GPA;
         UpdateValue(Record.TRNS_CRSE_SCH, &ROW1, TRNS_CRSE_TERM.SSR_FAWI_GPA, &ROW2, &FAWI_TRF_GPA);
      Else
         UpdateValue(Record.TRNS_CRSE_SCH, &ROW1, TRNS_CRSE_TERM.SSR_FAWI_GPA, &ROW2, 0);
      End-If;

   When PanelGroup.TRNS_TEST
   When PanelGroup.TRNS_TEST_MNL
      &DTL_CNT = ActiveRowCount(Record.TRNS_TEST_MODEL, &ROW1, Record.TRNS_TEST_TERM, &ROW2, Record.TRNS_TEST_DTL);
      For &I = 1 To &DTL_CNT;
         If Not RecordDeleted(Record.TRNS_TEST_MODEL, &ROW1, Record.TRNS_TEST_TERM, &ROW2, TRNS_TEST_DTL.TRNSFR_EQVLNCY_SEQ, &I) Then
            &TRNS_STAT = FetchValue(Record.TRNS_TEST_MODEL, &ROW1, Record.TRNS_TEST_TERM, &ROW2, TRNS_TEST_DTL.TRNSFR_STAT, &I);
            If &TRNS_STAT = "Y" Or
                  &TRNS_STAT = "P" Then
               &EARN_CREDIT = FetchValue(Record.TRNS_TEST_MODEL, &ROW1, Record.TRNS_TEST_TERM, &ROW2, TRNS_TEST_DTL.EARN_CREDIT, &I);
               &TRANS = FetchValue(Record.TRNS_TEST_MODEL, &ROW1, Record.TRNS_TEST_TERM, &ROW2, TRNS_TEST_DTL.UNT_TRNSFR, &I);
               &GRD_PTS = FetchValue(Record.TRNS_TEST_MODEL, &ROW1, Record.TRNS_TEST_TERM, &ROW2, TRNS_TEST_DTL.GRD_PTS_PER_UNIT, &I);
               &UNITS_ATT = FetchValue(Record.TRNS_TEST_MODEL, &ROW1, Record.TRNS_TEST_TERM, &ROW2, TRNS_TEST_DTL.UNITS_ATTEMPTED, &I);
               &INCL_IN_GPA = FetchValue(Record.TRNS_TEST_MODEL, &ROW1, Record.TRNS_TEST_TERM, &ROW2, TRNS_TEST_DTL.INCLUDE_IN_GPA, &I);
               If TRNS_TEST_MODEL.INCLUDE_IN_GPA = "Y" Then
                  If &UNITS_ATT = "Y" Then
                  If &INCL_IN_GPA = "Y" Then
                     &T_GPA = &T_GPA + &TRANS;
                     If &UNITS_ATT = "Y" Then
                        &GP = &GP + (&GRD_PTS * &TRANS);
                        If &EARN_CREDIT = "Y" Then
                           &P_GPA = &P_GPA + &TRANS;
                        End-If;
                     End-If;
                  Else
                     &T_NOGPA = &T_NOGPA + &TRANS;
                     If &UNITS_ATT = "Y" Then
                        If &EARN_CREDIT = "Y" Then
                           &P_NOGPA = &P_NOGPA + &TRANS;
                        End-If;
                     End-If;
                  End-If;
               Else
                  If &UNITS_ATT = "Y" Then
                     If &EARN_CREDIT = "Y" Then
                        &TOT_TRANS = &TOT_TRANS + &TRANS;
                     End-If;
                  End-If;
               End-If;
               
               /*  Financial Aid Weeks of Instruction units  */
               &Incl_FA_WI = FetchValue(Record.TRNS_TEST_MODEL, &ROW1, Record.TRNS_TEST_TERM, &ROW2, TRNS_TEST_DTL.SSR_FAWI_INCL, &I);
               If &Incl_FA_WI = "Y" Then
                  If TRNS_TEST_MODEL.INCLUDE_IN_GPA = "Y" Then
                     If &INCL_IN_GPA = "Y" Then
                        &FAWI_T_GPA = &FAWI_T_GPA + &TRANS;
                        If &UNITS_ATT = "Y" Then
                           &FAWI_GP = &FAWI_GP + (&GRD_PTS * &TRANS);
                           If &EARN_CREDIT = "Y" Then
                              &FAWI_P_GPA = &FAWI_P_GPA + &TRANS;
                           End-If;
                        End-If;
                     Else
                        &FAWI_T_NOGPA = &FAWI_T_NOGPA + &TRANS;
                        If &UNITS_ATT = "Y" Then
                           If &EARN_CREDIT = "Y" Then
                              &FAWI_P_NOGPA = &FAWI_P_NOGPA + &TRANS;
                           End-If;
                        End-If;
                     End-If;
                  Else
                     If &UNITS_ATT = "Y" Then
                        If &EARN_CREDIT = "Y" Then
                           &FAWI_TOT_TRANS = &FAWI_TOT_TRANS + &TRANS;
                        End-If;
                     End-If;
                  End-If;
               End-If;
               
            End-If;
         End-If;
      End-For;
      UpdateValue(Record.TRNS_TEST_MODEL, &ROW1, TRNS_TEST_TERM.TRF_TAKEN_GPA, &ROW2, &T_GPA);
      UpdateValue(Record.TRNS_TEST_MODEL, &ROW1, TRNS_TEST_TERM.TRF_TAKEN_NOGPA, &ROW2, &T_NOGPA);
      UpdateValue(Record.TRNS_TEST_MODEL, &ROW1, TRNS_TEST_TERM.UNT_TRNSFR, &ROW2, &TOT_TRANS);
      UpdateValue(Record.TRNS_TEST_MODEL, &ROW1, TRNS_TEST_TERM.TRF_PASSED_GPA, &ROW2, &P_GPA);
      UpdateValue(Record.TRNS_TEST_MODEL, &ROW1, TRNS_TEST_TERM.TRF_PASSED_NOGPA, &ROW2, &P_NOGPA);
      UpdateValue(Record.TRNS_TEST_MODEL, &ROW1, TRNS_TEST_TERM.TRF_GRADE_POINTS, &ROW2, &GP);
      If &T_GPA > 0 Then
         &TRF_GPA = &GP / &T_GPA;
         UpdateValue(Record.TRNS_TEST_MODEL, &ROW1, TRNS_TEST_TERM.TRF_GPA, &ROW2, &TRF_GPA);
      Else
         UpdateValue(Record.TRNS_TEST_MODEL, &ROW1, TRNS_TEST_TERM.TRF_GPA, &ROW2, 0);
      End-If;
      
      /*  Financial Aid Weeks of Instruction units  */
      UpdateValue(Record.TRNS_TEST_MODEL, &ROW1, TRNS_TEST_TERM.SSR_FAWI_PSD, &ROW2, &FAWI_TOT_TRANS);
      UpdateValue(Record.TRNS_TEST_MODEL, &ROW1, TRNS_TEST_TERM.SSR_FAWI_TKN_GPA, &ROW2, &FAWI_T_GPA);
      UpdateValue(Record.TRNS_TEST_MODEL, &ROW1, TRNS_TEST_TERM.SSR_FAWI_TKN_NOGPA, &ROW2, &FAWI_T_NOGPA);
      UpdateValue(Record.TRNS_TEST_MODEL, &ROW1, TRNS_TEST_TERM.SSR_FAWI_PSD_GPA, &ROW2, &FAWI_P_GPA);
      UpdateValue(Record.TRNS_TEST_MODEL, &ROW1, TRNS_TEST_TERM.SSR_FAWI_PSD_NOGPA, &ROW2, &FAWI_P_NOGPA);
      UpdateValue(Record.TRNS_TEST_MODEL, &ROW1, TRNS_TEST_TERM.SSR_FAWI_GRADE_PTS, &ROW2, &FAWI_GP);
      If &FAWI_T_GPA > 0 Then
         &FAWI_TRF_GPA = &FAWI_GP / &FAWI_T_GPA;
         UpdateValue(Record.TRNS_TEST_MODEL, &ROW1, TRNS_TEST_TERM.SSR_FAWI_GPA, &ROW2, &FAWI_TRF_GPA);
      Else
         UpdateValue(Record.TRNS_TEST_MODEL, &ROW1, TRNS_TEST_TERM.SSR_FAWI_GPA, &ROW2, 0);
      End-If;

   When PanelGroup.TRNS_OTHR
      &DTL_CNT = ActiveRowCount(Record.TRNS_OTHR_MODEL, &ROW1, Record.TRNS_OTHR_TERM, &ROW2, Record.TRNS_OTHR_DTL);
      For &I = 1 To &DTL_CNT;
         If Not RecordDeleted(Record.TRNS_OTHR_MODEL, &ROW1, Record.TRNS_OTHR_TERM, &ROW2, TRNS_OTHR_DTL.TRNSFR_EQVLNCY_SEQ, &I) Then
            &TRNS_STAT = FetchValue(Record.TRNS_OTHR_MODEL, &ROW1, Record.TRNS_OTHR_TERM, &ROW2, TRNS_OTHR_DTL.TRNSFR_STAT, &I);
            If &TRNS_STAT = "Y" Or
                  &TRNS_STAT = "P" Then
               &EARN_CREDIT = FetchValue(Record.TRNS_OTHR_MODEL, &ROW1, Record.TRNS_OTHR_TERM, &ROW2, TRNS_OTHR_DTL.EARN_CREDIT, &I);
               &TRANS = FetchValue(Record.TRNS_OTHR_MODEL, &ROW1, Record.TRNS_OTHR_TERM, &ROW2, TRNS_OTHR_DTL.UNT_TRNSFR, &I);
               &GRD_PTS = FetchValue(Record.TRNS_OTHR_MODEL, &ROW1, Record.TRNS_OTHR_TERM, &ROW2, TRNS_OTHR_DTL.GRD_PTS_PER_UNIT, &I);
               &UNITS_ATT = FetchValue(Record.TRNS_OTHR_MODEL, &ROW1, Record.TRNS_OTHR_TERM, &ROW2, TRNS_OTHR_DTL.UNITS_ATTEMPTED, &I);
               &INCL_IN_GPA = FetchValue(Record.TRNS_OTHR_MODEL, &ROW1, Record.TRNS_OTHR_TERM, &ROW2, TRNS_OTHR_DTL.INCLUDE_IN_GPA, &I);
               
               If TRNS_OTHR_MODEL.INCLUDE_IN_GPA = "Y" Then
                  If &UNITS_ATT = "Y" Then
                  If &INCL_IN_GPA = "Y" Then
                     &T_GPA = &T_GPA + &TRANS;
                     If &UNITS_ATT = "Y" Then
                        &GP = &GP + (&GRD_PTS * &TRANS);
                        If &EARN_CREDIT = "Y" Then
                           &P_GPA = &P_GPA + &TRANS;
                        End-If;
                     End-If;
                  Else
                     &T_NOGPA = &T_NOGPA + &TRANS;
                     If &UNITS_ATT = "Y" Then
                        If &EARN_CREDIT = "Y" Then
                           &P_NOGPA = &P_NOGPA + &TRANS;
                        End-If;
                     End-If;
                  End-If;
               Else
                  If &UNITS_ATT = "Y" Then
                     If &EARN_CREDIT = "Y" Then
                        &TOT_TRANS = &TOT_TRANS + &TRANS;
                     End-If;
                  End-If;
               End-If;
               
               /*  Financial Aid Weeks of Instruction units  */
               &Incl_FA_WI = FetchValue(Record.TRNS_OTHR_MODEL, &ROW1, Record.TRNS_OTHR_TERM, &ROW2, TRNS_OTHR_DTL.SSR_FAWI_INCL, &I);
               If &Incl_FA_WI = "Y" Then
                  If TRNS_OTHR_MODEL.INCLUDE_IN_GPA = "Y" Then
                     If &INCL_IN_GPA = "Y" Then
                        &FAWI_T_GPA = &FAWI_T_GPA + &TRANS;
                        If &UNITS_ATT = "Y" Then
                           &FAWI_GP = &FAWI_GP + (&GRD_PTS * &TRANS);
                           If &EARN_CREDIT = "Y" Then
                              &FAWI_P_GPA = &FAWI_P_GPA + &TRANS;
                           End-If;
                        End-If;
                     Else
                        &FAWI_T_NOGPA = &FAWI_T_NOGPA + &TRANS;
                        If &UNITS_ATT = "Y" Then
                           If &EARN_CREDIT = "Y" Then
                              &FAWI_P_NOGPA = &FAWI_P_NOGPA + &TRANS;
                           End-If;
                        End-If;
                     End-If;
                  Else
                     If &UNITS_ATT = "Y" Then
                        If &EARN_CREDIT = "Y" Then
                           &FAWI_TOT_TRANS = &FAWI_TOT_TRANS + &TRANS;
                        End-If;
                     End-If;
                  End-If;
               End-If;
               
            End-If;
         End-If;
      End-For;
      UpdateValue(Record.TRNS_OTHR_MODEL, &ROW1, TRNS_OTHR_TERM.TRF_TAKEN_GPA, &ROW2, &T_GPA);
      UpdateValue(Record.TRNS_OTHR_MODEL, &ROW1, TRNS_OTHR_TERM.TRF_TAKEN_NOGPA, &ROW2, &T_NOGPA);
      UpdateValue(Record.TRNS_OTHR_MODEL, &ROW1, TRNS_OTHR_TERM.UNT_TRNSFR, &ROW2, &TOT_TRANS);
      UpdateValue(Record.TRNS_OTHR_MODEL, &ROW1, TRNS_OTHR_TERM.TRF_PASSED_GPA, &ROW2, &P_GPA);
      UpdateValue(Record.TRNS_OTHR_MODEL, &ROW1, TRNS_OTHR_TERM.TRF_PASSED_NOGPA, &ROW2, &P_NOGPA);
      UpdateValue(Record.TRNS_OTHR_MODEL, &ROW1, TRNS_OTHR_TERM.TRF_GRADE_POINTS, &ROW2, &GP);
      If &T_GPA > 0 Then
         &TRF_GPA = &GP / &T_GPA;
         UpdateValue(Record.TRNS_OTHR_MODEL, &ROW1, TRNS_OTHR_TERM.TRF_GPA, &ROW2, &TRF_GPA);
      Else
         UpdateValue(Record.TRNS_OTHR_MODEL, &ROW1, TRNS_OTHR_TERM.TRF_GPA, &ROW2, 0);
      End-If;
      
      /*  Financial Aid Weeks of Instruction units  */
      UpdateValue(Record.TRNS_OTHR_MODEL, &ROW1, TRNS_OTHR_TERM.SSR_FAWI_PSD, &ROW2, &FAWI_TOT_TRANS);
      UpdateValue(Record.TRNS_OTHR_MODEL, &ROW1, TRNS_OTHR_TERM.SSR_FAWI_TKN_GPA, &ROW2, &FAWI_T_GPA);
      UpdateValue(Record.TRNS_OTHR_MODEL, &ROW1, TRNS_OTHR_TERM.SSR_FAWI_TKN_NOGPA, &ROW2, &FAWI_T_NOGPA);
      UpdateValue(Record.TRNS_OTHR_MODEL, &ROW1, TRNS_OTHR_TERM.SSR_FAWI_PSD_GPA, &ROW2, &FAWI_P_GPA);
      UpdateValue(Record.TRNS_OTHR_MODEL, &ROW1, TRNS_OTHR_TERM.SSR_FAWI_PSD_NOGPA, &ROW2, &FAWI_P_NOGPA);
      UpdateValue(Record.TRNS_OTHR_MODEL, &ROW1, TRNS_OTHR_TERM.SSR_FAWI_GRADE_PTS, &ROW2, &FAWI_GP);
      If &FAWI_T_GPA > 0 Then
         &FAWI_TRF_GPA = &FAWI_GP / &FAWI_T_GPA;
         UpdateValue(Record.TRNS_OTHR_MODEL, &ROW1, TRNS_OTHR_TERM.SSR_FAWI_GPA, &ROW2, &FAWI_TRF_GPA);
      Else
         UpdateValue(Record.TRNS_OTHR_MODEL, &ROW1, TRNS_OTHR_TERM.SSR_FAWI_GPA, &ROW2, 0);
      End-If;
      
   End-Evaluate;
End-Function;

/* 
     Update STDNT_CAR_TERM with the transfer stats 
*/
Function updt_stats(&EMPLID, &ACAD_CAREER, &INSTITUTION, &TERM);
   ScrollFlush(Record.STDNT_CAREER);
   RowScrollSelect(2, Record.STDNT_CAREER, 1, Record.STDNT_CAR_TERM, Record.STDNT_CAR_TERM, "where EMPLID = :1 and ACAD_CAREER = :2 and INSTITUTION = :3 and STRM >= :4 order by STRM", &EMPLID, &ACAD_CAREER, &INSTITUTION, &TERM);
   &CAR_TERM_CNT = ActiveRowCount(Record.STDNT_CAREER, 1, Record.STDNT_CAR_TERM);
   Evaluate %PanelGroup
   When PanelGroup.TRNS_CRSE
   When PanelGroup.TRNS_CRSE_MNL
      For &I = 1 To ActiveRowCount(Record.TRNS_CRSE_SCH);
         &TERM_CNT = ActiveRowCount(Record.TRNS_CRSE_SCH, &I, Record.TRNS_CRSE_TERM);
         For &J = 1 To &TERM_CNT;
            &POST = FetchValue(Record.TRNS_CRSE_SCH, &I, DERIVED_TRCR.POST_PB, &J);
            If &POST = "Y" Then
               UnGray(Record.TRNS_CRSE_SCH, &I, DERIVED_TRCR.UNPOST_PB, &J);
               UpdateValue(Record.TRNS_CRSE_SCH, &I, DERIVED_TRCR.POST_PB, &J, "N");
            End-If;
            &UNPOST = FetchValue(Record.TRNS_CRSE_SCH, &I, DERIVED_TRCR.UNPOST_PB, &J);
            If &UNPOST = "Y" Then
               UnGray(Record.TRNS_CRSE_SCH, &I, DERIVED_TRCR.POST_PB, &J);
               UpdateValue(Record.TRNS_CRSE_SCH, &I, DERIVED_TRCR.UNPOST_PB, &J, "N");
            End-If;
            If &POST = "Y" Or
                  &UNPOST = "Y" Then
               UpdateValue(Record.TRNS_CRSE_SCH, &I, DERIVED_TRCR.TRNSFR_FL, &J, "");
               &ARTICULATION_TERM = FetchValue(Record.TRNS_CRSE_SCH, &I, TRNS_CRSE_TERM.ARTICULATION_TERM, &J);
               /*  
                      find the matching STDNT_CAR_TERM record 
               */
               For &K = 1 To &CAR_TERM_CNT
                  &CAR_TERM = FetchValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.STRM, &K);
                  If &CAR_TERM = &ARTICULATION_TERM Then
                     /*  
                            update UNT_TRNSFR 
                     */
                     &CURR_UNT_TRNSFR = FetchValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.UNT_TRNSFR, &K);
                     &TRF_UNT_TRNSFR = FetchValue(Record.TRNS_CRSE_SCH, &I, TRNS_CRSE_TERM.UNT_TRNSFR, &J);
                     If &POST = "Y" Then
                        &UPDT_UNT_TRNSFR = &CURR_UNT_TRNSFR + &TRF_UNT_TRNSFR;
                     End-If;
                     If &UNPOST = "Y" Then
                        &UPDT_UNT_TRNSFR = &CURR_UNT_TRNSFR - &TRF_UNT_TRNSFR;
                     End-If;
                     UpdateValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.UNT_TRNSFR, &K, &UPDT_UNT_TRNSFR);
                     /*  
                            update TRF_TAKEN_GPA 
                     */
                     &CURR_TAKEN_GPA = FetchValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_TAKEN_GPA, &K);
                     &TRF_TAKEN_GPA = FetchValue(Record.TRNS_CRSE_SCH, &I, TRNS_CRSE_TERM.TRF_TAKEN_GPA, &J);
                     If &POST = "Y" Then
                        &UPDT_TAKEN_GPA = &CURR_TAKEN_GPA + &TRF_TAKEN_GPA;
                     End-If;
                     If &UNPOST = "Y" Then
                        &UPDT_TAKEN_GPA = &CURR_TAKEN_GPA - &TRF_TAKEN_GPA;
                     End-If;
                     UpdateValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_TAKEN_GPA, &K, &UPDT_TAKEN_GPA);
                     /*  
                            update TRF_TAKEN_NOGPA 
                     */
                     &CURR_TAKEN_NOGPA = FetchValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_TAKEN_NOGPA, &K);
                     &TRF_TAKEN_NOGPA = FetchValue(Record.TRNS_CRSE_SCH, &I, TRNS_CRSE_TERM.TRF_TAKEN_NOGPA, &J);
                     If &POST = "Y" Then
                        &UPDT_TAKEN_NOGPA = &CURR_TAKEN_NOGPA + &TRF_TAKEN_NOGPA;
                     End-If;
                     If &UNPOST = "Y" Then
                        &UPDT_TAKEN_NOGPA = &CURR_TAKEN_NOGPA - &TRF_TAKEN_NOGPA;
                     End-If;
                     UpdateValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_TAKEN_NOGPA, &K, &UPDT_TAKEN_NOGPA);
                     /*  
                            update TRF_PASSED_GPA 
                     */
                     &CURR_PASSED_GPA = FetchValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_PASSED_GPA, &K);
                     &TRF_PASSED_GPA = FetchValue(Record.TRNS_CRSE_SCH, &I, TRNS_CRSE_TERM.TRF_PASSED_GPA, &J);
                     If &POST = "Y" Then
                        &UPDT_PASSED_GPA = &CURR_PASSED_GPA + &TRF_PASSED_GPA;
                     End-If;
                     If &UNPOST = "Y" Then
                        &UPDT_PASSED_GPA = &CURR_PASSED_GPA - &TRF_PASSED_GPA;
                     End-If;
                     UpdateValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_PASSED_GPA, &K, &UPDT_PASSED_GPA);
                     /*  
                            update TRF_PASSED_NOGPA 
                     */
                     &CURR_PASSED_NOGPA = FetchValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_PASSED_NOGPA, &K);
                     &TRF_PASSED_NOGPA = FetchValue(Record.TRNS_CRSE_SCH, &I, TRNS_CRSE_TERM.TRF_PASSED_NOGPA, &J);
                     If &POST = "Y" Then
                        &UPDT_PASSED_NOGPA = &CURR_PASSED_NOGPA + &TRF_PASSED_NOGPA;
                     End-If;
                     If &UNPOST = "Y" Then
                        &UPDT_PASSED_NOGPA = &CURR_PASSED_NOGPA - &TRF_PASSED_NOGPA;
                     End-If;
                     UpdateValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_PASSED_NOGPA, &K, &UPDT_PASSED_NOGPA);
                     /*  
                            update TRF_GRADE_POINTS 
                     */
                     &CURR_GRADE_POINTS = FetchValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_GRADE_POINTS, &K);
                     &TRF_GRADE_POINTS = FetchValue(Record.TRNS_CRSE_SCH, &I, TRNS_CRSE_TERM.TRF_GRADE_POINTS, &J);
                     If &POST = "Y" Then
                        &UPDT_GRADE_POINTS = &CURR_GRADE_POINTS + &TRF_GRADE_POINTS;
                     End-If;
                     If &UNPOST = "Y" Then
                        &UPDT_GRADE_POINTS = &CURR_GRADE_POINTS - &TRF_GRADE_POINTS;
                     End-If;
                     UpdateValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_GRADE_POINTS, &K, &UPDT_GRADE_POINTS);
                  End-If;
               End-For;
            End-If;
            /* 
                       unGray the equivalent course fields for unposted records 
            */
            &DTL_CNT = ActiveRowCount(Record.TRNS_CRSE_SCH, &I, Record.TRNS_CRSE_TERM, &J, Record.TRNS_CRSE_DTL);
            If &UNPOST = "Y" Then
               For &K = 1 To &DTL_CNT
                  UnGray(Record.TRNS_CRSE_SCH, &I, Record.TRNS_CRSE_TERM, &J, TRNS_CRSE_DTL.CRSE_ID, &K);
                  UnGray(Record.TRNS_CRSE_SCH, &I, Record.TRNS_CRSE_TERM, &J, TRNS_CRSE_DTL.CRSE_OFFER_NBR, &K);
                  UnGray(Record.TRNS_CRSE_SCH, &I, Record.TRNS_CRSE_TERM, &J, TRNS_CRSE_DTL.UNT_TRNSFR, &K);
                  UnGray(Record.TRNS_CRSE_SCH, &I, Record.TRNS_CRSE_TERM, &J, TRNS_CRSE_DTL.GRADING_SCHEME, &K);
                  UnGray(Record.TRNS_CRSE_SCH, &I, Record.TRNS_CRSE_TERM, &J, TRNS_CRSE_DTL.GRADING_BASIS, &K);
                  UnGray(Record.TRNS_CRSE_SCH, &I, Record.TRNS_CRSE_TERM, &J, TRNS_CRSE_DTL.CRSE_GRADE_OFF, &K);
                  UnGray(Record.TRNS_CRSE_SCH, &I, Record.TRNS_CRSE_TERM, &J, TRNS_CRSE_DTL.REPEAT_CODE, &K);
                  /* 
                         update the DETAIL Transfer Status 
                  */
                  &STAT = FetchValue(Record.TRNS_CRSE_SCH, &I, Record.TRNS_CRSE_TERM, &J, TRNS_CRSE_DTL.TRNSFR_STAT, &K);
                  If &STAT = "P" Then
                     UpdateValue(Record.TRNS_CRSE_SCH, &I, Record.TRNS_CRSE_TERM, &J, TRNS_CRSE_DTL.TRNSFR_STAT, &K, "Y");
                     UnGray(Record.TRNS_CRSE_SCH, &I, Record.TRNS_CRSE_TERM, &J, TRNS_CRSE_DTL.FREEZE_REC_FL, &K);
                     UnGray(Record.TRNS_CRSE_SCH, &I, Record.TRNS_CRSE_TERM, &J, DERIVED_TRCR.CLEAR_PB, &K);
                  End-If;
               End-For;
            End-If;
            If &POST = "Y" Then
               For &K = 1 To &DTL_CNT
                  &STAT = FetchValue(Record.TRNS_CRSE_SCH, &I, Record.TRNS_CRSE_TERM, &J, TRNS_CRSE_DTL.TRNSFR_STAT, &K);
                  If &STAT = "Y" Then
                     UpdateValue(Record.TRNS_CRSE_SCH, &I, Record.TRNS_CRSE_TERM, &J, TRNS_CRSE_DTL.TRNSFR_STAT, &K, "P");
                     Gray(Record.TRNS_CRSE_SCH, &I, Record.TRNS_CRSE_TERM, &J, DERIVED_TRCR.CLEAR_PB, &K);
                     UpdateValue(Record.TRNS_CRSE_SCH, &I, Record.TRNS_CRSE_TERM, &J, TRNS_CRSE_DTL.FREEZE_REC_FL, &K, "Y");
                     Gray(Record.TRNS_CRSE_SCH, &I, Record.TRNS_CRSE_TERM, &J, TRNS_CRSE_DTL.FREEZE_REC_FL, &K);
                     Gray(Record.TRNS_CRSE_SCH, &I, Record.TRNS_CRSE_TERM, &J, DERIVED_TRCR.CLEAR_PB, &K);
                  End-If;
               End-For;
            End-If;
         End-For;
      End-For;
      
   When PanelGroup.TRNS_TEST
   When PanelGroup.TRNS_TEST_MNL
      For &I = 1 To ActiveRowCount(Record.TRNS_TEST_MODEL);
         &TERM_CNT = ActiveRowCount(Record.TRNS_TEST_MODEL, &I, Record.TRNS_TEST_TERM);
         For &J = 1 To &TERM_CNT;
            &POST = FetchValue(Record.TRNS_TEST_MODEL, &I, DERIVED_TRCR.POST_PB, &J);
            If &POST = "Y" Then
               UnGray(Record.TRNS_TEST_MODEL, &I, DERIVED_TRCR.UNPOST_PB, &J);
               UpdateValue(Record.TRNS_TEST_MODEL, &I, DERIVED_TRCR.POST_PB, &J, "N");
            End-If;
            &UNPOST = FetchValue(Record.TRNS_TEST_MODEL, &I, DERIVED_TRCR.UNPOST_PB, &J);
            If &UNPOST = "Y" Then
               UnGray(Record.TRNS_TEST_MODEL, &I, DERIVED_TRCR.POST_PB, &J);
               UpdateValue(Record.TRNS_TEST_MODEL, &I, DERIVED_TRCR.UNPOST_PB, &J, "N");
            End-If;
            If &POST = "Y" Or
                  &UNPOST = "Y" Then
               UpdateValue(Record.TRNS_TEST_MODEL, &I, DERIVED_TRCR.TRNSFR_FL, &J, "");
               &ARTICULATION_TERM = FetchValue(Record.TRNS_TEST_MODEL, &I, TRNS_TEST_TERM.ARTICULATION_TERM, &J);
               /*  
                       find the matching STDNT_CAR_TERM record 
               */
               For &K = 1 To &CAR_TERM_CNT
                  &CAR_TERM = FetchValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.STRM, &K);
                  If &CAR_TERM = &ARTICULATION_TERM Then
                     /*  
                            update TRF_TAKEN_GPA 
                     */
                     &CURR_TAKEN_GPA = FetchValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_TAKEN_GPA, &K);
                     &TRF_TAKEN_GPA = FetchValue(Record.TRNS_TEST_MODEL, &I, TRNS_TEST_TERM.TRF_TAKEN_GPA, &J);
                     If &POST = "Y" Then
                        &UPDT_TAKEN_GPA = &CURR_TAKEN_GPA + &TRF_TAKEN_GPA;
                     End-If;
                     If &UNPOST = "Y" Then
                        &UPDT_TAKEN_GPA = &CURR_TAKEN_GPA - &TRF_TAKEN_GPA;
                     End-If;
                     UpdateValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_TAKEN_GPA, &K, &UPDT_TAKEN_GPA);
                     /*  
                            update TRF_TAKEN_NOGPA 
                     */
                     &CURR_TAKEN_NOGPA = FetchValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_TAKEN_NOGPA, &K);
                     &TRF_TAKEN_NOGPA = FetchValue(Record.TRNS_TEST_MODEL, &I, TRNS_TEST_TERM.TRF_TAKEN_NOGPA, &J);
                     If &POST = "Y" Then
                        &UPDT_TAKEN_NOGPA = &CURR_TAKEN_NOGPA + &TRF_TAKEN_NOGPA;
                     End-If;
                     If &UNPOST = "Y" Then
                        &UPDT_TAKEN_NOGPA = &CURR_TAKEN_NOGPA - &TRF_TAKEN_NOGPA;
                     End-If;
                     UpdateValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_TAKEN_NOGPA, &K, &UPDT_TAKEN_NOGPA);
                     /*  
                             update UNT_TEST_CREDIT 
                     */
                     &CURR_UNT_TRNSFR = FetchValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.UNT_TEST_CREDIT, &K);
                     &TRF_UNT_TRNSFR = FetchValue(Record.TRNS_TEST_MODEL, &I, TRNS_TEST_TERM.UNT_TRNSFR, &J);
                     If &POST = "Y" Then
                        &UPDT_UNT_TRNSFR = &CURR_UNT_TRNSFR + &TRF_UNT_TRNSFR;
                     End-If;
                     If &UNPOST = "Y" Then
                        &UPDT_UNT_TRNSFR = &CURR_UNT_TRNSFR - &TRF_UNT_TRNSFR;
                     End-If;
                     UpdateValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.UNT_TEST_CREDIT, &K, &UPDT_UNT_TRNSFR);
                     
                     /*  
                            update TRF_PASSED_GPA 
                     */
                     &CURR_PASSED_GPA = FetchValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_PASSED_GPA, &K);
                     &TRF_PASSED_GPA = FetchValue(Record.TRNS_TEST_MODEL, &I, TRNS_TEST_TERM.TRF_PASSED_GPA, &J);
                     If &POST = "Y" Then
                        &UPDT_PASSED_GPA = &CURR_PASSED_GPA + &TRF_PASSED_GPA;
                     End-If;
                     If &UNPOST = "Y" Then
                        &UPDT_PASSED_GPA = &CURR_PASSED_GPA - &TRF_PASSED_GPA;
                     End-If;
                     UpdateValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_PASSED_GPA, &K, &UPDT_PASSED_GPA);
                     /*  
                            update TRF_PASSED_NOGPA 
                     */
                     &CURR_PASSED_NOGPA = FetchValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_PASSED_NOGPA, &K);
                     &TRF_PASSED_NOGPA = FetchValue(Record.TRNS_TEST_MODEL, &I, TRNS_TEST_TERM.TRF_PASSED_NOGPA, &J);
                     If &POST = "Y" Then
                        &UPDT_PASSED_NOGPA = &CURR_PASSED_NOGPA + &TRF_PASSED_NOGPA;
                     End-If;
                     If &UNPOST = "Y" Then
                        &UPDT_PASSED_NOGPA = &CURR_PASSED_NOGPA - &TRF_PASSED_NOGPA;
                     End-If;
                     UpdateValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_PASSED_NOGPA, &K, &UPDT_PASSED_NOGPA);
                     /*  
                            update TRF_GRADE_POINTS 
                     */
                     &CURR_GRADE_POINTS = FetchValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_GRADE_POINTS, &K);
                     &TRF_GRADE_POINTS = FetchValue(Record.TRNS_TEST_MODEL, &I, TRNS_TEST_TERM.TRF_GRADE_POINTS, &J);
                     If &POST = "Y" Then
                        &UPDT_GRADE_POINTS = &CURR_GRADE_POINTS + &TRF_GRADE_POINTS;
                     End-If;
                     If &UNPOST = "Y" Then
                        &UPDT_GRADE_POINTS = &CURR_GRADE_POINTS - &TRF_GRADE_POINTS;
                     End-If;
                     UpdateValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_GRADE_POINTS, &K, &UPDT_GRADE_POINTS);
                     
                  End-If;
               End-For;
            End-If;
            /* 
                   unGray the equivalent course fields for unposted records 
            */
            &DTL_CNT = ActiveRowCount(Record.TRNS_TEST_MODEL, &I, Record.TRNS_TEST_TERM, &J, Record.TRNS_TEST_DTL);
            If &UNPOST = "Y" Then
               For &K = 1 To &DTL_CNT
                  UnGray(Record.TRNS_TEST_MODEL, &I, Record.TRNS_TEST_TERM, &J, TRNS_TEST_DTL.CRSE_ID, &K);
                  UnGray(Record.TRNS_TEST_MODEL, &I, Record.TRNS_TEST_TERM, &J, TRNS_TEST_DTL.CRSE_OFFER_NBR, &K);
                  UnGray(Record.TRNS_TEST_MODEL, &I, Record.TRNS_TEST_TERM, &J, TRNS_TEST_DTL.UNT_TRNSFR, &K);
                  UnGray(Record.TRNS_TEST_MODEL, &I, Record.TRNS_TEST_TERM, &J, TRNS_TEST_DTL.GRADING_SCHEME, &K);
                  UnGray(Record.TRNS_TEST_MODEL, &I, Record.TRNS_TEST_TERM, &J, TRNS_TEST_DTL.GRADING_BASIS, &K);
                  UnGray(Record.TRNS_TEST_MODEL, &I, Record.TRNS_TEST_TERM, &J, TRNS_TEST_DTL.CRSE_GRADE_OFF, &K);
                  UnGray(Record.TRNS_TEST_MODEL, &I, Record.TRNS_TEST_TERM, &J, TRNS_TEST_DTL.REPEAT_CODE, &K);
                  &STAT = FetchValue(Record.TRNS_TEST_MODEL, &I, Record.TRNS_TEST_TERM, &J, TRNS_TEST_DTL.TRNSFR_STAT, &K);
                  If &STAT = "P" Then
                     UpdateValue(Record.TRNS_TEST_MODEL, &I, Record.TRNS_TEST_TERM, &J, TRNS_TEST_DTL.TRNSFR_STAT, &K, "Y");
                     UnGray(Record.TRNS_TEST_MODEL, &I, Record.TRNS_TEST_TERM, &J, DERIVED_TRCR.CLEAR_PB, &K);
                     UnGray(Record.TRNS_TEST_MODEL, &I, Record.TRNS_TEST_TERM, &J, TRNS_TEST_DTL.FREEZE_REC_FL, &K);
                  End-If;
               End-For;
            End-If;
            If &POST = "Y" Then
               For &K = 1 To &DTL_CNT
                  &STAT = FetchValue(Record.TRNS_TEST_MODEL, &I, Record.TRNS_TEST_TERM, &J, TRNS_TEST_DTL.TRNSFR_STAT, &K);
                  If &STAT = "Y" Then
                     UpdateValue(Record.TRNS_TEST_MODEL, &I, Record.TRNS_TEST_TERM, &J, TRNS_TEST_DTL.TRNSFR_STAT, &K, "P");
                     UpdateValue(Record.TRNS_TEST_MODEL, &I, Record.TRNS_TEST_TERM, &J, TRNS_TEST_DTL.FREEZE_REC_FL, &K, "Y");
                     Gray(Record.TRNS_TEST_MODEL, &I, Record.TRNS_TEST_TERM, &J, TRNS_TEST_DTL.FREEZE_REC_FL, &K);
                     Gray(Record.TRNS_TEST_MODEL, &I, Record.TRNS_TEST_TERM, &J, DERIVED_TRCR.CLEAR_PB, &K);
                  End-If;
               End-For;
            End-If;
         End-For;
      End-For;
      
   When PanelGroup.TRNS_OTHR
      For &I = 1 To ActiveRowCount(Record.TRNS_OTHR_MODEL);
         &TERM_CNT = ActiveRowCount(Record.TRNS_OTHR_MODEL, &I, Record.TRNS_OTHR_TERM);
         For &J = 1 To &TERM_CNT;
            &POST = FetchValue(Record.TRNS_OTHR_MODEL, &I, DERIVED_TRCR.POST_PB, &J);
            If &POST = "Y" Then
               UnGray(Record.TRNS_OTHR_MODEL, &I, DERIVED_TRCR.UNPOST_PB, &J);
               UpdateValue(Record.TRNS_OTHR_MODEL, &I, DERIVED_TRCR.POST_PB, &J, "N");
            End-If;
            &UNPOST = FetchValue(Record.TRNS_OTHR_MODEL, &I, DERIVED_TRCR.UNPOST_PB, &J);
            If &UNPOST = "Y" Then
               UnGray(Record.TRNS_OTHR_MODEL, &I, DERIVED_TRCR.POST_PB, &J);
               UpdateValue(Record.TRNS_OTHR_MODEL, &I, DERIVED_TRCR.UNPOST_PB, &J, "N");
            End-If;
            If &POST = "Y" Or
                  &UNPOST = "Y" Then
               UpdateValue(Record.TRNS_OTHR_MODEL, &I, DERIVED_TRCR.TRNSFR_FL, &J, "");
               &ARTICULATION_TERM = FetchValue(Record.TRNS_OTHR_MODEL, &I, TRNS_OTHR_TERM.ARTICULATION_TERM, &J);
               /*  
                       find the matching STDNT_CAR_TERM record 
               */
               For &K = 1 To &CAR_TERM_CNT
                  &CAR_TERM = FetchValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.STRM, &K);
                  If &CAR_TERM = &ARTICULATION_TERM Then
                     /*  
                            update TRF_TAKEN_GPA 
                     */
                     &CURR_TAKEN_GPA = FetchValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_TAKEN_GPA, &K);
                     &TRF_TAKEN_GPA = FetchValue(Record.TRNS_OTHR_MODEL, &I, TRNS_OTHR_TERM.TRF_TAKEN_GPA, &J);
                     If &POST = "Y" Then
                        &UPDT_TAKEN_GPA = &CURR_TAKEN_GPA + &TRF_TAKEN_GPA;
                     End-If;
                     If &UNPOST = "Y" Then
                        &UPDT_TAKEN_GPA = &CURR_TAKEN_GPA - &TRF_TAKEN_GPA;
                     End-If;
                     UpdateValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_TAKEN_GPA, &K, &UPDT_TAKEN_GPA);
                     /*  
                            update TRF_TAKEN_NOGPA 
                     */
                     &CURR_TAKEN_NOGPA = FetchValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_TAKEN_NOGPA, &K);
                     &TRF_TAKEN_NOGPA = FetchValue(Record.TRNS_OTHR_MODEL, &I, TRNS_OTHR_TERM.TRF_TAKEN_NOGPA, &J);
                     If &POST = "Y" Then
                        &UPDT_TAKEN_NOGPA = &CURR_TAKEN_NOGPA + &TRF_TAKEN_NOGPA;
                     End-If;
                     If &UNPOST = "Y" Then
                        &UPDT_TAKEN_NOGPA = &CURR_TAKEN_NOGPA - &TRF_TAKEN_NOGPA;
                     End-If;
                     UpdateValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_TAKEN_NOGPA, &K, &UPDT_TAKEN_NOGPA);
                     /*  
                             update UNT_TEST_CREDIT 
                     */
                     &CURR_UNT_TRNSFR = FetchValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.UNT_OTHER, &K);
                     &TRF_UNT_TRNSFR = FetchValue(Record.TRNS_OTHR_MODEL, &I, TRNS_OTHR_TERM.UNT_TRNSFR, &J);
                     If &POST = "Y" Then
                        &UPDT_UNT_TRNSFR = &CURR_UNT_TRNSFR + &TRF_UNT_TRNSFR;
                     End-If;
                     If &UNPOST = "Y" Then
                        &UPDT_UNT_TRNSFR = &CURR_UNT_TRNSFR - &TRF_UNT_TRNSFR;
                     End-If;
                     UpdateValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.UNT_OTHER, &K, &UPDT_UNT_TRNSFR);
                     /*  
                            update TRF_PASSED_GPA 
                     */
                     &CURR_PASSED_GPA = FetchValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_PASSED_GPA, &K);
                     &TRF_PASSED_GPA = FetchValue(Record.TRNS_OTHR_MODEL, &I, TRNS_OTHR_TERM.TRF_PASSED_GPA, &J);
                     If &POST = "Y" Then
                        &UPDT_PASSED_GPA = &CURR_PASSED_GPA + &TRF_PASSED_GPA;
                     End-If;
                     If &UNPOST = "Y" Then
                        &UPDT_PASSED_GPA = &CURR_PASSED_GPA - &TRF_PASSED_GPA;
                     End-If;
                     UpdateValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_PASSED_GPA, &K, &UPDT_PASSED_GPA);
                     /*  
                            update TRF_PASSED_NOGPA 
                     */
                     &CURR_PASSED_NOGPA = FetchValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_PASSED_NOGPA, &K);
                     &TRF_PASSED_NOGPA = FetchValue(Record.TRNS_OTHR_MODEL, &I, TRNS_OTHR_TERM.TRF_PASSED_NOGPA, &J);
                     If &POST = "Y" Then
                        &UPDT_PASSED_NOGPA = &CURR_PASSED_NOGPA + &TRF_PASSED_NOGPA;
                     End-If;
                     If &UNPOST = "Y" Then
                        &UPDT_PASSED_NOGPA = &CURR_PASSED_NOGPA - &TRF_PASSED_NOGPA;
                     End-If;
                     UpdateValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_PASSED_NOGPA, &K, &UPDT_PASSED_NOGPA);
                     /*  
                            update TRF_GRADE_POINTS 
                     */
                     &CURR_GRADE_POINTS = FetchValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_GRADE_POINTS, &K);
                     &TRF_GRADE_POINTS = FetchValue(Record.TRNS_OTHR_MODEL, &I, TRNS_OTHR_TERM.TRF_GRADE_POINTS, &J);
                     If &POST = "Y" Then
                        &UPDT_GRADE_POINTS = &CURR_GRADE_POINTS + &TRF_GRADE_POINTS;
                     End-If;
                     If &UNPOST = "Y" Then
                        &UPDT_GRADE_POINTS = &CURR_GRADE_POINTS - &TRF_GRADE_POINTS;
                     End-If;
                     UpdateValue(Record.STDNT_CAREER, 1, STDNT_CAR_TERM.TRF_GRADE_POINTS, &K, &UPDT_GRADE_POINTS);
                     
                  End-If;
               End-For;
            End-If;
            /* 
                   unGray the equivalent course fields for unposted records 
            */
            &DTL_CNT = ActiveRowCount(Record.TRNS_OTHR_MODEL, &I, Record.TRNS_OTHR_TERM, &J, Record.TRNS_OTHR_DTL);
            If &UNPOST = "Y" Then
               For &K = 1 To &DTL_CNT
                  UnGray(Record.TRNS_OTHR_MODEL, &I, Record.TRNS_OTHR_TERM, &J, TRNS_OTHR_DTL.CRSE_ID, &K);
                  UnGray(Record.TRNS_OTHR_MODEL, &I, Record.TRNS_OTHR_TERM, &J, TRNS_OTHR_DTL.CRSE_OFFER_NBR, &K);
                  UnGray(Record.TRNS_OTHR_MODEL, &I, Record.TRNS_OTHR_TERM, &J, TRNS_OTHR_DTL.UNT_TRNSFR, &K);
                  UnGray(Record.TRNS_OTHR_MODEL, &I, Record.TRNS_OTHR_TERM, &J, TRNS_OTHR_DTL.GRADING_SCHEME, &K);
                  UnGray(Record.TRNS_OTHR_MODEL, &I, Record.TRNS_OTHR_TERM, &J, TRNS_OTHR_DTL.GRADING_BASIS, &K);
                  UnGray(Record.TRNS_OTHR_MODEL, &I, Record.TRNS_OTHR_TERM, &J, TRNS_OTHR_DTL.CRSE_GRADE_OFF, &K);
                  UnGray(Record.TRNS_OTHR_MODEL, &I, Record.TRNS_OTHR_TERM, &J, TRNS_OTHR_DTL.REPEAT_CODE, &K);
                  &STAT = FetchValue(Record.TRNS_OTHR_MODEL, &I, Record.TRNS_OTHR_TERM, &J, TRNS_OTHR_DTL.TRNSFR_STAT, &K);
                  If &STAT = "P" Then
                     UpdateValue(Record.TRNS_OTHR_MODEL, &I, Record.TRNS_OTHR_TERM, &J, TRNS_OTHR_DTL.TRNSFR_STAT, &K, "Y");
                     UnGray(Record.TRNS_OTHR_MODEL, &I, Record.TRNS_OTHR_TERM, &J, TRNS_OTHR_DTL.FREEZE_REC_FL, &K);
                     UnGray(Record.TRNS_OTHR_MODEL, &I, Record.TRNS_OTHR_TERM, &J, DERIVED_TRCR.CLEAR_PB, &K);
                  End-If;
               End-For;
            End-If;
            If &POST = "Y" Then
               For &K = 1 To &DTL_CNT
                  &STAT = FetchValue(Record.TRNS_OTHR_MODEL, &I, Record.TRNS_OTHR_TERM, &J, TRNS_OTHR_DTL.TRNSFR_STAT, &K);
                  If &STAT = "Y" Then
                     UpdateValue(Record.TRNS_OTHR_MODEL, &I, Record.TRNS_OTHR_TERM, &J, TRNS_OTHR_DTL.TRNSFR_STAT, &K, "P");
                     UpdateValue(Record.TRNS_OTHR_MODEL, &I, Record.TRNS_OTHR_TERM, &J, TRNS_OTHR_DTL.FREEZE_REC_FL, &K, "Y");
                     Gray(Record.TRNS_OTHR_MODEL, &I, Record.TRNS_OTHR_TERM, &J, TRNS_OTHR_DTL.FREEZE_REC_FL, &K);
                     Gray(Record.TRNS_OTHR_MODEL, &I, Record.TRNS_OTHR_TERM, &J, DERIVED_TRCR.CLEAR_PB, &K);
                  End-If;
               End-For;
            End-If;
         End-For;
      End-For;
   End-Evaluate;
   roll_cum(&EMPLID, &ACAD_CAREER, &INSTITUTION, &TERM);
End-Function;

PeopleCode (Record): FUNCLIB_FA.FILE_PROC_PC.FieldFormula
Global File &FAI_FILE;
Global number &FAI_HeaderCount;
Global number &FAI_TrailerCount;
Global number &FAI_DetailCount1, &FAI_DetailCount2, &FAI_DetailCount3;
Global number &FAI_DetailCount4, &FAI_DetailCount5;
Global string &Req_Title_Flag;
Local string &BatchID;

/*****************************************************************************/
/* GetMessageClass                                                           */
/*****************************************************************************/

Function GetMessageClass(&Filename As string, &Award_Year As string, &FA_Feature As string) Returns string;
   
   &MessageClass = "";
   &Award_Year = "";
   
   If FileExists(&Filename, %FilePath_Absolute) Then
      &FAI_FILE = GetFile(&Filename, "R", %FilePath_Absolute);
   Else
      MessageBox(0, "", 14412, 1, "Filename specified not found.", &Filename);
      Return &MessageClass;
      /*      MessageBox(0, "", 18022, 22, "Message not found in message catalog. ", &Filename);
      Exit (1); */
   End-If;
   
   &Result = &FAI_FILE.ReadLine(&filestring);
   &Temptemp = RTrim(Substring(&filestring, 1, 10), " ");
   
   If &Temptemp = "ASG HEADER" Then
      &MessageClass = "SFAASG01";
      &Award_Year = "2006";
      &FA_Feature = "OTHER";
   End-If;
   
   If &Temptemp = "ELG HEADER" Then
      &MessageClass = "SFAASG02";
      &Award_Year = "2007";
      &FA_Feature = "OTHER";
   End-If;
   
   If &Temptemp = "DL HEADER" Then
      &MessageClass = Substring(&filestring, 15, 8);
      &Award_Year = "20" | Substring(&filestring, 19, 2);
      &FA_Feature = "DL";
   End-If;
   
   /* Check for ISIR file with header - valid through 2003-2004 */
   If &Temptemp = "CPS HEADER" Then
      &TempYear = Substring(&filestring, 55, 2);
      &MessageClass = "CPS_ISIR_20" | &TempYear;
      &Award_Year = "20" | &TempYear;
      &FA_Feature = "ISIR";
   End-If;
   
   /* PELL Processing */
   /* ACG/SMART Processing */
   
   If &Temptemp = "GRANT HDR" Then
      &LRECL = Substring(&filestring, 11, 4);
      &TempYear = Substring(&filestring, 17, 4);
      &Award_Year = &TempYear;
      rem &FA_Feature = "PELL";
      &BatchID = Substring(&filestring, 15, 2);
      /* 2004 - 2005 */
      &YearDigit = Substring(&filestring, 19, 2);
      
      /* PELL Orig Ack
         2002 Rec Length 355, 2003 and after - Rec Length 450 
         Need Record length to distinguish from Outbound files */
      
      If (&BatchID = "#O" Or
               &BatchID = "#P") Then
         &FA_Feature = "PELL";
         If &TempYear = "2002" And
               &LRECL = "0355" Then
            &MessageClass = "PGOA02OP"
         Else
            If &LRECL = "0450" Then
               &MessageClass = "PGOA" | &YearDigit | "OP";
            End-If;
         End-If;
      End-If;
      
      /* PELL Disb Ack 
         Need Record length to distinguish from Outbound files */
      
      If (&BatchID = "#D" Or
               &BatchID = "#G" Or
               &BatchID = "#W") Then
         &FA_Feature = "PELL";
         If &LRECL = "0200" Then
            &MessageClass = "PGDA" | &YearDigit | "OP";
         End-If;
      End-If;
      
      /* PELL Statement of Account Records */
      
      If &BatchID = "#A" Then
         &FA_Feature = "PELL";
         &MessageClass = "PGAS" | &YearDigit | "OP";
      End-If;
      
      /* PELL Multiple Reporting Records */
      
      If &BatchID = "#M" Then
         &FA_Feature = "PELL";
         &MessageClass = "PGMR" | &YearDigit | "OP"
      End-If;
      
      /* PELL Reconciliation Record */
      
      If &BatchID = "#C" Then
         &FA_Feature = "PELL";
         &MessageClass = "PGRC" | &YearDigit | "OP"
      End-If;
      
      /* PELL YTD Records */
      
      If &BatchID = "#Y" Then
         &FA_Feature = "PELL";
         &MessageClass = "PGYR" | &YearDigit | "OP";
      End-If;
      
      /* ACG Statement of Account Records */
      
      If &BatchID = "AA" Then
         &FA_Feature = "ASG";
         &MessageClass = "AGAS" | &YearDigit | "OP";
      End-If;
      
      /* SMART Statement of Account Records */
      
      If &BatchID = "SA" Then
         &FA_Feature = "ASG";
         &MessageClass = "SGAS" | &YearDigit | "OP";
      End-If;
      
      /* ACG Multiple Reporting Records */
      
      If &BatchID = "AM" Then
         &FA_Feature = "ASG";
         &MessageClass = "AGMR" | &YearDigit | "OP"
      End-If;
      
      /* SMART Multiple Reporting Records */
      
      If &BatchID = "SM" Then
         &FA_Feature = "ASG";
         &MessageClass = "SGMR" | &YearDigit | "OP"
      End-If;
      
      /* ACG Reconciliation Record */
      
      If &BatchID = "AC" Then
         &FA_Feature = "ASG";
         &MessageClass = "AGRC" | &YearDigit | "OP"
      End-If;
      
      /* SMART Reconciliation Record */
      
      If &BatchID = "SC" Then
         &FA_Feature = "ASG";
         &MessageClass = "SGRC" | &YearDigit | "OP"
      End-If;
      
      /* ACG YTD Records */
      
      If &BatchID = "AY" Then
         &FA_Feature = "ASG";
         &MessageClass = "AGYR" | &YearDigit | "OP";
      End-If;
      
      /* SMART YTD Records */
      
      If &BatchID = "SY" Then
         &FA_Feature = "ASG";
         &MessageClass = "SGYR" | &YearDigit | "OP";
      End-If;
      
   End-If;
   
   /* NSLDS Transfer Alert File */
   If Upper(&Temptemp) = "0TSM ALERT" Then
      &MessageClass = "TRALRTOP";
      &Award_Year = "2004+";
      &FA_Feature = "FAT";
   End-If;
   
   /* NSLDS History File */
   If Upper(&Temptemp) = "0FAH HEADE" Then
      &MessageClass = "FAHEXTOP";
      &Award_Year = "2004+";
      &FA_Feature = "FAH";
   End-If;
   
   If &MessageClass = "" And
         &Award_Year = "" Then
      /* Check for headerless ISIR file - valid starting with 2004-2005 */
      /* Check for first character value and record length */
      &TempChar1 = Substring(&Temptemp, 1, 1);
      /* ISIR 0708 */
      
      /* Regs1 0809 */
      Evaluate &TempChar1
      When = 9
         &TempChar2 = Substring(&filestring, 572, 1);
      When = 8
         &TempChar2 = Substring(&filestring, 544, 1);
      When-Other
         &TempChar2 = Substring(&filestring, 534, 1);
      End-Evaluate;
      /* Regs1 0809 */

      /* ISIR 0708  - Commented for 0809
      If &TempChar1 > 7 Then
         &TempChar2 = Substring(&filestring, 544, 1);
      Else
         &TempChar2 = Substring(&filestring, 534, 1);
      End-If;
      End-If; */
      
      &Reclength = Len(&filestring);
      /* Regs1 0708 - Added  &Reclength = 2975 */
      /* Regs1 0809 - Added  &Reclength = 3175 */
      If (&Reclength = 2600 Or
               &Reclength = 2975 Or
               &Reclength = 3175) And
            &TempChar2 = " " Then
         &Req_Title_Flag = "Y"
      End-If;
      /* REGS1 0708 */

      /* 2004-2005 ISIR specifications for files without request title*/
      If &Req_Title_Flag = "N" And
            &Reclength = 2600 And
            &TempChar1 = "5" Then
         
         &MessageClass = "CPS_ISIR_2005";
         &Award_Year = "2005";
         &FA_Feature = "ISIR";
      End-If;
      /* 2005-2006 ISIR specifications for files without request title*/
      If &Req_Title_Flag = "N" And
            &Reclength = 2600 And
            &TempChar1 = "6" Then
         
         &MessageClass = "CPS_ISIR_2006";
         &Award_Year = "2006";
         &FA_Feature = "ISIR";
      End-If;
      /* 2006-2007 ISIR specifications for files without request title*/
      If &Req_Title_Flag = "N" And
            &Reclength = 2600 And
            &TempChar1 = "7" Then
         
         &MessageClass = "CPS_ISIR_2007";
         &Award_Year = "2007";
         &FA_Feature = "ISIR";
      End-If;
      
      /* 2007-2008 ISIR specifications for files without request title*/
      If &Req_Title_Flag = "N" And
            &Reclength = 2975 And
            &TempChar1 = "8" Then
         
         &MessageClass = "CPS_ISIR_2008";
         &Award_Year = "2008";
         &FA_Feature = "ISIR";
      End-If;
      
      /*2008-2009 ISIR specifications for files without request title*/
      If &Req_Title_Flag = "N" And
            &Reclength = 3175 And
            &TempChar1 = "9" Then
         &MessageClass = "CPS_ISIR_2009";
         &Award_Year = "2009";
         &FA_Feature = "ISIR";
      End-If;
      
      /* ISIR specifications for files with request title*/
      If &Req_Title_Flag = "Y" Then
         &Req_title_file_res = &FAI_FILE.ReadLine(&filestring);
         If &Req_title_file_res Then
            &TempChar3 = Substring(&filestring, 1, 1);
            /* For 2005-2006 */
            If &TempChar3 = "6" Then
               &MessageClass = "CPS_ISIR_2006";
               &Award_Year = "2006";
               &FA_Feature = "ISIR";
            End-If;
            /* For 2006-2007 */
            If &TempChar3 = "7" Then
               &MessageClass = "CPS_ISIR_2007";
               &Award_Year = "2007";
               &FA_Feature = "ISIR";
            End-If;
            /* For 2007-2008 */
            If &TempChar3 = "8" Then
               &MessageClass = "CPS_ISIR_2008";
               &Award_Year = "2008";
               &FA_Feature = "ISIR";
            End-If;
            /* For 2008-2009 */
            If &TempChar3 = "9" Then
               &MessageClass = "CPS_ISIR_2009";
               &Award_Year = "2009";
               &FA_Feature = "ISIR";
            End-If;
            
         End-If;
      End-If;
      
   End-If;
   
   &FAI_FILE.Close();
   &FAI_FILE.Open(&Filename, "R", %FilePath_Absolute);
   
   Return &MessageClass
End-Function;

/*****************************************************************************/
/* GetFileLayoutName                                                         */
/*****************************************************************************/

Function GetFileLayoutName(&MessageClass As string) Returns string;
   
   Evaluate &MessageClass
   When = "ED1202OP"
      Return "DL_732_02";
      Break;
   When = "ED1302OP"
      Return "DL_732C_02";
      Break;
   When = "CPS_ISIR_2003"
      Return "ISIR03OP";
      Break;
   When = "TRALRTOP"
      Return "TRALRTOP_03";
      Break;
      
      /* DL 2003 Message Classes */
      
   When = "DIOC03OP"
      Return "DL_CHGACK_03";
      Break;
   When = "DIOD03OP"
      Return "DL_DSBACK_03";
      Break;
   When = "DIPF03OP"
      Return "DL_ORGACK_03";
      Break;
   When = "DISF03OP"
      Return "DL_ORGACK_03";
      Break;
   When = "DIPC03OP"
      Return "DL_CRDACK_03";
      Break;
   When = "DIPA03OP"
      Return "DL_PNTACK_03";
      Break;
   When = "DSDF03OP"
      Return "DL_DSDF_03";
      Break;
   When = "DSLF03OP"
      Return "DL_DSLF_03";
      Break;
      
      /* DL 2002 Message Classes */
      
   When = "DIOC02OP"
      Return "DL_CHGACK_02";
      Break;
   When = "DIOD02OP"
      Return "DL_DSBACK_02";
      Break;
   When = "DIPF02OP"
      Return "DL_ORGACK_02";
      Break;
   When = "DISF02OP"
      Return "DL_ORGACK_02";
      Break;
   When = "DIPC02OP"
      Return "DL_CRDACK_02";
      Break;
   When = "DIPA02OP"
      Return "DL_PNTACK_02";
      Break;
   When = "DSAS02OP"
      Return "DL_DLSAS_02";
      Break;
      
      /* PELL 2002 Message Classes */
      
   When = "PGDA02OP"
      Return "PG_DACK_02";
      Break;
   When = "PGMR02OP"
      Return "PG_MR_02";
      Break;
   When = "PGOA02OP"
      Return "PG_OACK_02";
      Break;
   When = "PGRC02OP"
      Return "PG_REC_02";
      Break;
   When = "PGAS02OP"
      Return "PG_SOA_02";
      Break;
   When = "PGYR02OP"
      Return "PG_YTD_02";
      Break;
      
      /* PELL 2003 Message Classes */
      
   When = "PGDA03OP"
      Return "PG_DACK_03";
      Break;
   When = "PGMR03OP"
      Return "PG_MR_03";
      Break;
   When = "PGOA03OP"
      Return "PG_OACK_03";
      Break;
   When = "PGRC03OP"
      Return "PG_REC_03";
      Break;
   When = "PGAS03OP"
      Return "PG_SOA_03";
      Break;
   When = "PGYR03OP"
      Return "PG_YTD_03";
      Break;
      
   End-Evaluate;
   
End-Function;

/*****************************************************************************/
/* UpdateECQueueInstance                                                     */
/*****************************************************************************/

Function UpdateECQueueInstance(&MessageClass As string, &ECInOutSw As string) Returns number;
   
   &ECQUEUEINST_REC = CreateRecord(Record.ECQUEUEINST);
   
   &Select_SQL = CreateSQL("%SelectAll(:1) where ECTRANSID = :2 and ECTRANSINOUTSW = :3");
   &Select_SQL.BulkMode = True;
   
   &Update_SQL = CreateSQL("Update PS_ECQUEUEINST SET ECQUEUEINSTANCE = :1 where ECTRANSID =  :2 and ECTRANSINOUTSW = :3");
   &Update_SQL.BulkMode = True;
   
   &Insert_SQL = CreateSQL("%Insert(:1)");
   &Insert_SQL.BulkMode = True;
   
   &Select_SQL.Execute(&ECQUEUEINST_REC, &MessageClass, &ECInOutSw);
   &Result = &Select_SQL.Fetch(&ECQUEUEINST_REC);
   
   &Max_from_ECQUEUE = 0;
   
   &Result2 = SQLExec("SELECT MAX(ECQUEUEINSTANCE) FROM PS_ECQUEUE WHERE ECTRANSID = :1 and ECTRANSINOUTSW = :2", &MessageClass, &ECInOutSw, &Max_from_ECQUEUE);
   
   If &Result Then
      If All(&Max_from_ECQUEUE) Then
         If &Max_from_ECQUEUE > &ECQUEUEINST_REC.ECQUEUEINSTANCE.Value Then
            &ecqueueinstance = &Max_from_ECQUEUE + 1;
         Else
            &ecqueueinstance = &ECQUEUEINST_REC.ECQUEUEINSTANCE.Value + 1;
         End-If;
         &Result = &Update_SQL.Execute(&ecqueueinstance, &MessageClass, &ECInOutSw);
      Else
         &ecqueueinstance = &ECQUEUEINST_REC.ECQUEUEINSTANCE.Value + 1;
         &Result = &Update_SQL.Execute(&ecqueueinstance, &MessageClass, &ECInOutSw);
      End-If;
   Else
      &ECQUEUEINST_REC.ECTRANSID.Value = &MessageClass;
      &ECQUEUEINST_REC.ECTRANSINOUTSW.Value = &ECInOutSw;
      
      If All(&Max_from_ECQUEUE) Then
         &ECQUEUEINST_REC.ECQUEUEINSTANCE.Value = &Max_from_ECQUEUE + 1;
         &ecqueueinstance = &Max_from_ECQUEUE + 1;
      Else
         &ECQUEUEINST_REC.ECQUEUEINSTANCE.Value = 1;
         &ecqueueinstance = 1;
      End-If;
      
      &Result = &Insert_SQL.Execute(&ECQUEUEINST_REC);
   End-If;
   Return &ecqueueinstance;
   
End-Function;

/*****************************************************************************/
/* InsertECQueue                                                             */
/*****************************************************************************/
Function InsertECQueue(&MessageClass As string, &ECQueueInst As number, &ECInOutSw As string, &ECBusDocID As number, &ECQueueStatus As string) Returns boolean;
   
   &ECQUEUE_REC = CreateRecord(Record.ECQUEUE);
   
   &Insert_SQL = CreateSQL("%Insert(:1)");
   &Insert_SQL.BulkMode = True;
   
   &ECQUEUE_REC.ECTRANSID.Value = &MessageClass;
   &ECQUEUE_REC.ECQUEUEINSTANCE.Value = &ECQueueInst;
   &ECQUEUE_REC.ECTRANSINOUTSW.Value = &ECInOutSw;
   &ECQUEUE_REC.ECBUSDOCID.Value = &ECBusDocID;
   &ECQUEUE_REC.ECQUEUESTATUS.Value = &ECQueueStatus;
   &ECQUEUE_REC.ECDRIVERDTTM.Value = %Datetime;
   
   &Result = &Insert_SQL.Execute(&ECQUEUE_REC);
   
   Return &Result;
   
End-Function;

/*****************************************************************************/
/* UpdateECQueue                                                             */
/*****************************************************************************/
Function UpdateECQueue(&MessageClass As string, &ECQueueInst As number, &ECInOutSw As string, &ECBusDocID As number, &ECQueueStatus As string, &EC_Queue_Cntl_Nbr As string) Returns boolean;
   
   &ECQUEUE_REC = CreateRecord(Record.ECQUEUE);
   
   &Update_SQL = CreateSQL("%Update(:1)");
   &Update_SQL.BulkMode = True;
   
   &ECQUEUE_REC.ECTRANSID.Value = &MessageClass;
   &ECQUEUE_REC.ECQUEUEINSTANCE.Value = &ECQueueInst;
   &ECQUEUE_REC.ECTRANSINOUTSW.Value = &ECInOutSw;
   &ECQUEUE_REC.ECBUSDOCID.Value = &ECBusDocID;
   &ECQUEUE_REC.ECQUEUESTATUS.Value = &ECQueueStatus;
   &ECQUEUE_REC.ECDRIVERDTTM.Value = %Datetime;
   If &ECInOutSw = "I" Then
      &ECQUEUE_REC.EC_QUEUE_CNTL_NBR.Value = &EC_Queue_Cntl_Nbr;
   End-If;
   
   &Result = &Update_SQL.Execute(&ECQUEUE_REC);
   
   Return &Result;
   
End-Function;

/*****************************************************************************/
/* BuildHeaderSpecificFields                                                 */
/*****************************************************************************/
Function BuildHeaderSpecificFields(&Rec_Name As string, &hdr_rec As Record) Returns Record;
   
   &Header_Type = Substring(&Rec_Name, 1, 4);
   Evaluate &Header_Type
   When = "DL_H"
      &hdr_rec.LN_HEADER_NBR.Value = &FAI_HeaderCount;
      &hdr_rec.LOAN_TRANS_DTTM.Value = %Datetime;
      &hdr_rec.PROCESS_INSTANCE.Value = FA_INBOUND_AET.PROCESS_INSTANCE;
      &hdr_rec.OPRID.Value = %UserId;
      Break;
   When = "PG_H"
      &hdr_rec.PROCESS_INSTANCE.Value = FA_INBOUND_AET.PROCESS_INSTANCE;
      &hdr_rec.OPRID.Value = %UserId;
      &hdr_rec.PELL_TRANS_DTTM.Value = %Datetime;
      Break;
   When = "ISIR"
      &hdr_rec.ISIR_LOAD_DTTM.Value = %Datetime;
      Break;
   When = "NSLD"
      &hdr_rec.NSLDS_HEADER_NBR.Value = &FAI_HeaderCount;
      &hdr_rec.LOAN_TRANS_DTTM.Value = %Datetime;
      Break;
   End-Evaluate;
   
   /* ACG/SMART Header  - need more the 4 characters to determine header type */
   If &Rec_Name = "SFA_ASG_HDR_EC" Then
      &hdr_rec.PROCESS_INSTANCE.Value = FA_INBOUND_AET.PROCESS_INSTANCE;
      &hdr_rec.OPRID.Value = %UserId;
      &hdr_rec.PELL_TRANS_DTTM.Value = %Datetime;
   End-If;

   Return &hdr_rec;
   
End-Function;

/*****************************************************************************/
/* BuildHeaderRecord                                                         */
/*****************************************************************************/
Function BuildHeaderRecord(&Rec_Name As string, &MessageClass As string, &ECQueueInst As number, &ECInOutSw As string) Returns Record;
   
   &hdr_rec = CreateRecord(@("Record." | &Rec_Name));
   &hdr_rec.SetDefault();
   &hdr_rec.ECTRANSID.Value = &MessageClass;
   &hdr_rec.ECQUEUEINSTANCE.Value = &ECQueueInst;
   &hdr_rec.ECTRANSINOUTSW.Value = &ECInOutSw;
   
   &hdr_rec = BuildHeaderSpecificFields(&Rec_Name, &hdr_rec);
   
   Return &hdr_rec;
   
End-Function;

/*****************************************************************************/
/* strGetFileExtension                                                       */
/*****************************************************************************/
/* Determine File Extension                                  */
/* Assumes that the a valid file will have .XXX in the last  */
/* 4 bytes of the File Name with XXX being a numeric value.  */
/* If not, the file name is invalid and skipped.             */
/*************************************************************/
Function intGetLastFileExtension(&strFilePath As string, &strSearchCondition As string) Returns number;
   
   &arrFindFileNames = FindFiles((&strFilePath | &strSearchCondition | ".*"), %FilePath_Absolute);
   
   &intFileExtension = 0;
   
   While &arrFindFileNames.Len > 0
      
      &strTempName = &arrFindFileNames.Shift();
      
      If Len(&strTempName) >= 5 Then
         &strTempName = Right(&strTempName, 4);
         If Left(&strTempName, 1) = "." Then
            &intPos = Find(Substring(&strTempName, 2, 1), "0123456789");
            If &intPos > 0 Then
               &intPos = Find(Substring(&strTempName, 3, 1), "0123456789");
               If &intPos > 0 Then
                  &intPos = Find(Substring(&strTempName, 4, 1), "0123456789");
                  If &intPos > 0 Then
                     &strFileExtension = Right(&strTempName, 3);
                     If Value(&strFileExtension) > &intFileExtension Then
                        &intFileExtension = Value(&strFileExtension);
                     End-If;
                  End-If;
               End-If;
            End-If;
         End-If;
      End-If;
   End-While;
   
   Return(&intFileExtension);
   
End-Function;

/*****************************************************************************/
/* arrGetFileInFolder - Returns results in an array                          */
/*****************************************************************************/
/*************************************************************/
/* Get Files In Folders                                      */
/*************************************************************/
Function arrGetFileInFolder(&strFilePath As string, &strSearchCondition As string) Returns array of string;
   
   &arrFileNames = CreateArrayRept("", 0);
   
   &arrFindFileNames = FindFiles((&strFilePath | &strSearchCondition), %FilePath_Absolute);
   
   While &arrFindFileNames.Len > 0
      
      &strTempName = &arrFindFileNames.Shift();
      &strOrigName = &strTempName;
      
      Repeat
         &intLenFileName = Len(&strTempName);
         &intPos = Find("\", &strTempName);
         If &intLenFileName > &intPos Then
            &strTempName = Substring(&strTempName, (&intPos + 1), &intLenFileName - &intPos + 1);
         End-If;
         
      Until &intPos = 0;
      
      If Len(&strTempName) = 1 And
            &strTempName <> "." Then
         &arrFileNames.Push(&strOrigName);
      End-If;
      
      If Len(&strTempName) = 2 And
            &strTempName <> ".." Then
         &arrFileNames.Push(&strOrigName);
      End-If;
      
      If Len(&strTempName) > 2 Then
         &arrFileNames.Push(&strOrigName);
      End-If;
      
   End-While;
   
   Return &arrFileNames;
   
End-Function;

/*****************************************************************************/
/* arrGetTableName - Returns results in an arry                              */
/*****************************************************************************/
/*  &arrTableNames[1] = Header Name     */
/*  &arrTableNames[2] = Detail Name     */
/*  Optional: additional rows...        */
/*  &arrTableNames[n] = Trailer Name    */
/*  n = 3 in most cases                 */
/*  Returns X's if Type not found       */
/****************************************/
Function arrGetTableName(&strOutbound_Type As string, &strYear As string) Returns array of string;
   
   &arrTableNames = CreateArrayRept("", 0);
   
   Evaluate &strOutbound_Type
   When "CORR"
      &arrTableNames [1] = "Record.ISIR_EX_HEAD_EC";
      &arrTableNames [2] = "Record.ISIR_EX_CORR_EC";
      &arrTableNames [3] = "Record.ISIR_EX_DUPR_EC";
      &arrTableNames [4] = "Record.ISIR_EX_TRAL_EC";
      Break;
   When "DESC"
      &arrTableNames [1] = "Record.DL_HDR_" | &strYear | "_EC";
      &arrTableNames [2] = "Record.DL_CHG_" | &strYear | "_EC";
      &arrTableNames [3] = "Record.DL_TRL_" | &strYear | "_EC";
      Break;
   When "DESD"
      &arrTableNames [1] = "Record.DL_HDR_" | &strYear | "_EC";
      &arrTableNames [2] = "Record.DL_DISB_" | &strYear | "_EC";
      &arrTableNames [3] = "Record.DL_TRL_" | &strYear | "_EC";
      Break;
   When "DEPF"
   When "DESF"
      &arrTableNames [1] = "Record.DL_HDR_" | &strYear | "_EC";
      &arrTableNames [2] = "Record.DL_ORIG_" | &strYear | "_EC";
      &arrTableNames [3] = "Record.DL_TRL_" | &strYear | "_EC";
      Break;
   When "PGDR"
      &arrTableNames [1] = "Record.PG_HDR_00_EC";
      &arrTableNames [2] = "Record.PG_DISB_00_EC";
      &arrTableNames [3] = "Record.PG_TRLR_00_EC";
      Break;
   When "PGOR"
      &arrTableNames [1] = "Record.PG_HDR_00_EC";
      &arrTableNames [2] = "Record.PG_ORIG_00_EC";
      &arrTableNames [3] = "Record.PG_TRLR_00_EC";
      Break;
   When "PGRQ"
      &arrTableNames [1] = "Record.PG_HDR_00_EC";
      &arrTableNames [2] = "Record.PG_DREQ_00_EC";
      &arrTableNames [3] = "Record.PG_TRLR_00_EC";
      Break;
      
      /* Bundle #18 8SP1/ Bundle #9 8.9/ Bundle #2/ 9.0  Start */
   When "AGRQ"
   When "SGRQ"
      &arrTableNames [1] = "Record.SFA_ASG_HDR_EC";
      &arrTableNames [2] = "Record.SFA_ASG_DREQ_EC";
      &arrTableNames [3] = "Record.SFA_ASG_TRLR_EC";
      Break;
      /* Bundle #18 8SP1/ Bundle #9 8.9/ Bundle #2/ 9.0  End */
      
   When "SIGS"
      &arrTableNames [1] = "Record.ISIR_EX_HEAD_EC";
      &arrTableNames [2] = "Record.ISIR_EX_SIGN_EC";
      &arrTableNames [3] = "Record.ISIR_EX_TRAL_EC";
      Break;
   When-Other
      &arrTableNames [1] = "X";
      &arrTableNames [2] = "XX";
      &arrTableNames [3] = "XXX";
   End-Evaluate;
   
   Return &arrTableNames;
   
End-Function;

/*****************************************************************************/
/* DeleteFile                                                                */
/*****************************************************************************/
Function DeleteFile(&strFileName As string);
   
   If FileExists(&strFileName, %FilePath_Absolute) Then
      &MyFile = GetFile(&strFileName, "R", %FilePath_Absolute);
      &MyFile.delete();
   End-If;
   
End-Function;

/*****************************************************************************/
/* booCODParticipant                                                         */
/*****************************************************************************/
Function booCODParticipant(&strTrailer As string, &strTransId As string, &intECQInstance As number, &strAwardYear As string, &strInstitution As string) Returns boolean;
   
   &recTrailer = CreateRecord(@&strTrailer);
   &sqlTrailer = CreateSQL("%Selectall(:1) where ECTRANSID = :2 AND ECQUEUEINSTANCE = :3", &recTrailer, &strTransId, &intECQInstance);
   
   While &sqlTrailer.Fetch(&recTrailer);
      &strSchoolCode = Substring(&recTrailer.PG_BATCH_ID_00.Value, 7, 6);
   End-While;
   
   &recPellOption = CreateRecord(Record.PELL_PMT_OPTION);
   &sqlPellOption = CreateSQL("%Selectall(:1) where INSTITUTION =:2 AND AID_YEAR =:3 AND TIV_SCHOOL_CODE =:4", &recPellOption, &strInstitution, &strAwardYear, &strSchoolCode);
   
   While &sqlPellOption.Fetch(&recPellOption);
      If &recPellOption.COD_PARTICIPANT.value = "Y" Then
         Return True;
      Else
         Return False;
      End-If;
      Break;
   End-While;
   
   Return False;
   
End-Function;

PeopleCode (Record): FUNCLIB_FA_COD.COD_DL_CHANGE_PROC.FieldFormula
/* Updated: 05/11/2004 */
/***************************************************************************************************/
/* DL CHANGE PROCESS                                                                               */
/***************************************************************************************************/
Declare Function strFormatDate PeopleCode FUNCLIB_FA_COD.COD_COM_FUNC FieldFormula;
Declare Function Build_Document_Record PeopleCode FUNCLIB_FA_COD.COD_COM_FUNC FieldFormula;
Declare Function Build_Rpt_School_Record PeopleCode FUNCLIB_FA_COD.COD_COM_FUNC FieldFormula;
Declare Function Build_Att_School_Record PeopleCode FUNCLIB_FA_COD.COD_COM_FUNC FieldFormula;
Declare Function booGetCommonIdRpt PeopleCode FUNCLIB_FA_COD.COD_COM_FUNC FieldFormula;
Declare Function codGetBorrIdInfo PeopleCode FUNCLIB_FA_COD.COD_COM_FUNC FieldFormula;
Declare Function codGetStudentInfo PeopleCode FUNCLIB_FA_COD.COD_COM_FUNC FieldFormula;
Declare Function codGetSSNDOBLast PeopleCode FUNCLIB_FA_COD.COD_COM_FUNC FieldFormula;
Declare Function codGetEmplId PeopleCode FUNCLIB_FA_COD.COD_COM_FUNC FieldFormula;
Declare Function booFindOverRide PeopleCode FUNCLIB_FA_COD.COD_COM_FUNC FieldFormula;
Declare Function GetLoanOrigDtlKeys PeopleCode FUNCLIB_FA_COD.COD_COM_FUNC FieldFormula;
Declare Function Update_Rptd_Summ_Rec PeopleCode FUNCLIB_FA_COD.COD_COM_FUNC FieldFormula;
/* Regs1 2006 - 07/ Bundle 11   ICE 1322639000 Set up Address Foreign Indicator START */
Declare Function SelectCountry PeopleCode FUNCLIB_FA_COD.COD_COM_FUNC FieldFormula;
/* Regs1 2006 - 07/ Bundle 11   ICE 1322639000 Set up Address Foreign Indicator END */
Declare Function arrGetTableName PeopleCode FUNCLIB_FA.FILE_PROC_PC FieldFormula;

Global SQL &COD_DOCUMENT_SQL;
Global SQL &COD_DOCUMENT_2_SQL;
Global SQL &COD_RPTSCHL_SQL;
Global SQL &COD_RPTD_SUMM_SQL;
Global SQL &COD_ATTSCHL_SQL;

Global SQL &COD_STUDENT_SQL;
Global SQL &COD_ADDRESS_SQL;
Global SQL &COD_PHONE_SQL;
Global SQL &COD_LOAN_INFO_SQL;
Global SQL &COD_LOAN_INFO_2_SQL;
Global SQL &COD_AWARD_SQL;
Global SQL &COD_BORROWER_SQL;
Global SQL &COD_BORR_ADDR_SQL;
Global SQL &COD_BORR_PHONE_SQL;
Global SQL &COD_DISB_SQL;

Local Record &COD_Document_Rec;
Local Record &COD_RptSchl_Rec;
Local Record &COD_Rptd_Summ_Rec;
Local Record &COD_AttSchl_Rec;

Local Record &COD_Student_Rec;
Local Record &COD_Address_Rec;
Local Record &COD_Phone_Rec;
Local Record &COD_Loan_Info_Rec;
Local Record &COD_Award_Rec;
Local Record &COD_Borrower_Rec;
Local Record &COD_Borr_Addr_Rec;
Local Record &COD_Borr_Phone_Rec;
Local Record &COD_Disb_Rec;
Local Record &Loan_Address_Rec;

Local SQL &LOAN_ADDRESS_SQL;

Local boolean &Result;
Local number &Previous_Award_Amount;
Local number &Previous_Disb_Amount;
Local number &Rptd_Summ_Award_Amount;
Local number &Rptd_Summ_Award_Disb_Amount;

/*****************************************************************************/
/* GetHighestLoanKeyNumber                                                   */
/*****************************************************************************/
Function GetHighestLoanKeyNumber() Returns number
   
   &COD_Loan_Info_Rec.SetDefault();
   &intLoanKey = 0;
   
   &Result = &COD_LOAN_INFO_SQL.Execute(&COD_Loan_Info_Rec, &strDocId, &strRptCommonId, &strAttCommonId, &strEmplId);
   
   While &COD_LOAN_INFO_SQL.Fetch(&COD_Loan_Info_Rec)
      &COD_Loan_Key_Num = Value(&COD_Loan_Info_Rec.COD_LOAN_KEY.Value);
      If &COD_Loan_Key_Num > &intLoanKey Then
         &intLoanKey = &COD_Loan_Key_Num;
      End-If;
   End-While;
   
   &COD_Loan_Info_Rec.SetDefault();
   
   Return &intLoanKey;
   
End-Function;

/*****************************************************************************/
/* GetLoanDisbArrayIndex                                                     */
/*****************************************************************************/
Function GetLoanDisbArrayIndex(&ant_disb_num As string, &Loan_Disb_Array As array of Record) Returns number
   
   &arr_index = 0;
   &i = 0;
   
   While &Loan_Disb_Array.Next(&i)
      If &Loan_Disb_Array [&i].LN_EXT_ANT_ID.Value = &ant_disb_num Then
         &arr_index = &i;
         Break;
      End-If;
   End-While;
   
   Return &arr_index;
   
End-Function;

/*****************************************************************************/
/* GetDisbIDArrayIndex                                                       */
/*****************************************************************************/
Function GetDisbIDArrayIndex(&Disb_ID As string, &Disb_ID_Array As array of string) Returns number
   
   &arr_index = 0;
   &i = 0;
   
   While &Disb_ID_Array.Next(&i)
      If &Disb_ID_Array [&i] = &Disb_ID Then
         &arr_index = &i;
         Break;
      End-If;
   End-While;
   
   Return &arr_index;
   
End-Function;

/*****************************************************************************/
/* LoadLoanDisbArray                                                         */
/*****************************************************************************/
Function LoadLoanDisbArray(&Emplid As string, &Institution As string, &Aid_Year As string, &Acad_Career As string, &Loan_Type As string, &LN_Appl_Seq As number, &Item_Type As string, &Loan_Disbmnt_Rec As Record, &COD_Disb_ID_Array As array, &COD_Loan_Disb_Array As array)
   
   For &i = 1 To 20
      &COD_Disb_ID_Array [&i] = "";
   End-For;
   
   While &COD_Loan_Disb_Array.Len > 0
      &COD_Loan_Disb_Array.Pop();
   End-While;
   
   &LOAN_DISB_SQL = CreateSQL("%Selectall(:1) where EMPLID = :2 AND INSTITUTION = :3 AND AID_YEAR = :4 AND ACAD_CAREER = :5 AND LOAN_TYPE = :6 AND LN_APPL_SEQ = :7 AND ITEM_TYPE = :8 ORDER BY LOAN_DISB_DATE", &Loan_Disbmnt_Rec, &Emplid, &Institution, &Aid_Year, &Acad_Career, &Loan_Type, &LN_Appl_Seq, &Item_Type);
   
   While &LOAN_DISB_SQL.Fetch(&Loan_Disbmnt_Rec)
      &Temp_Loan_Disbmnt_Rec = CreateRecord(Record.LOAN_DISBMNT);
      &Loan_Disbmnt_Rec.CopyFieldsTo(&Temp_Loan_Disbmnt_Rec);
      &COD_Loan_Disb_Array.Push(&Temp_Loan_Disbmnt_Rec);
      
      &Temp_Disb_Num_String = &Temp_Loan_Disbmnt_Rec.LN_EXT_ACT_ID.value;
      If All(&Temp_Disb_Num_String) Then
         &COD_Disb_ID_Array [Value(&Temp_Disb_Num_String)] = &Temp_Loan_Disbmnt_Rec.DISBURSEMENT_ID.value;
      End-If;
   End-While;
   
   &i = 0;
   While &COD_Loan_Disb_Array.Next(&i)
      &Temp_Loan_Disbmnt_Rec = &COD_Loan_Disb_Array [&i];
      If None(&Temp_Loan_Disbmnt_Rec.LN_EXT_ACT_ID.value) Then
         
         &j = 0;
         
         While &COD_Disb_ID_Array.Next(&j)
            If None(&COD_Disb_ID_Array [&j]) Then
               &COD_Disb_ID_Array [&j] = &Temp_Loan_Disbmnt_Rec.DISBURSEMENT_ID.value;
               Break;
            End-If;
         End-While;
         
      End-If
   End-While;
   
   &LOAN_DISB_SQL.Close();
   
End-Function;

/*****************************************************************************/
/* Build_Student_Block                                                       */
/*****************************************************************************/
Function Build_Student_Block(&Fieldname As string, &FieldValue As string, &Update_Flag As boolean)
   
   &COD_Student_Rec.SetDefault();
   
   &Result = &COD_STUDENT_SQL.Execute(&COD_Student_Rec, &strDocId, &strRptCommonId, &strAttCommonId, &strEmplId);
   
   &Student_Rec_Exists = &COD_STUDENT_SQL.Fetch(&COD_Student_Rec);
   
   If Not &Student_Rec_Exists Then
      &COD_Student_Rec.SetDefault();
      &COD_Student_Rec.COD_DOCUMENT_ID.Value = &strDocId;
      &COD_Student_Rec.COD_RPT_SCHL_ID.Value = &strRptCommonId;
      &COD_Student_Rec.COD_ATT_SCHL_ID.Value = &strAttCommonId;
      &COD_Student_Rec.EMPLID.Value = &strEmplId;
      
      &COD_Student_Rec.COD_ID_SSN.Value = &strCurrSSN;
      &COD_Student_Rec.COD_ID_DOB.Value = &strDOB;
      &COD_Student_Rec.COD_ID_LAST_NAME.Value = &strLastName;
      
      &COD_Student_Rec.COD_SCHOOL_USE.Value = &strEmplId;
   End-If;
   
   If &Update_Flag Then
      If &strChangeFieldNum = "S016" Or
            &strChangeFieldNum = "P006" Then
         &COD_Student_Rec.GetField(@("FIELD." | &Fieldname)).Value = strFormatDate(&FieldValue, "CCYYMMDD", "CCYY-MM-DD");
      Else
         &COD_Student_Rec.GetField(@("FIELD." | &Fieldname)).Value = Upper(&FieldValue);
      End-If;
   End-If;
   
   If &Student_Rec_Exists Then
      If &Update_Flag Then
         &Result = &COD_Student_Rec.Update();
      End-If;
   Else
      &Result = &COD_Student_Rec.Insert();
   End-If;
   
End-Function;

/*****************************************************************************/
/* Build_Award_Block                                                         */
/*****************************************************************************/
Function Build_Award_Block(&Fieldname As string, &FieldValue As string, &Update_Flag As boolean)
   
   &COD_Award_Rec.SetDefault();
   &Previous_Award_Amount = 0;
   
   &Result = &COD_AWARD_SQL.Execute(&COD_Award_Rec, &strDocId, &strRptCommonId, &strAttCommonId, &strEmplId, &strAwardName, &strAwardYear, &strAwardNum);
   
   &Award_Rec_Exists = &COD_AWARD_SQL.Fetch(&COD_Award_Rec);
   
   If Not &Award_Rec_Exists Then
      &COD_Award_Rec.SetDefault();
      &COD_Award_Rec.COD_DOCUMENT_ID.Value = &strDocId;
      &COD_Award_Rec.COD_RPT_SCHL_ID.Value = &strRptCommonId;
      &COD_Award_Rec.COD_ATT_SCHL_ID.Value = &strAttCommonId;
      &COD_Award_Rec.EMPLID.Value = &strEmplId;
      &COD_Award_Rec.COD_AWARD_NAME.Value = &strAwardName;
      &COD_Award_Rec.COD_AWARD_YEAR.Value = &strAwardYear;
      &COD_Award_Rec.COD_AWARD_NUM.Value = &strAwardNum;
      &COD_Award_Rec.COD_AWARD_ID.Value = &recDetail.DL_LOAN_ID.Value;
   End-If;
   If &Update_Flag Then
      
      If All(&COD_Award_Rec.COD_AWARD_AMT.Value) Then
         &Previous_Award_Amount = Value(&COD_Award_Rec.COD_AWARD_AMT.Value);
      End-If;
      
      If &strChangeFieldNum = "S029" Then /* Loan Amount Approved */
         &COD_Award_Rec.GetField(@("FIELD." | &Fieldname)).Value = Value(&FieldValue) | ".00";
      Else
         If &strChangeFieldNum = "S110" Then /* HPPA Indicator */
            If All(&FieldValue) Then
               &COD_Award_Rec.GetField(@("FIELD." | &Fieldname)).Value = "true";
            Else
               &COD_Award_Rec.GetField(@("FIELD." | &Fieldname)).Value = "false";
            End-If;
         Else
            &COD_Award_Rec.GetField(@("FIELD." | &Fieldname)).Value = &FieldValue;
         End-If;
      End-If;
      
      If &strChangeFieldNum = "S022" Or
            &strChangeFieldNum = "P009" Then
         &COD_Award_Rec.COD_LN_DEF_APPLY.Value = "S";
      End-If;
      /*REGS-0708*/
      If &strChangeFieldNum = "S210" Then /* Pre Professional Course work Indicator*/
         If (&strChangeValue = "Y") Then
            &COD_Award_Rec.SFA_CR_PPCRWRK_IND.Value = "true";
         Else
            &COD_Award_Rec.SFA_CR_PPCRWRK_IND.Value = "false";
         End-If;
      End-If;
      /*REGS-0708*/
      /*REGS-0809*/
      If &strChangeFieldNum = "S123" Then /* AdditionalUnsubsidizedIndicator*/
         If (&strChangeValue = "Y") Then
            &COD_Award_Rec.SFA_CR_ADDUSUB_IND.Value = "true";
         Else
            &COD_Award_Rec.SFA_CR_ADDUSUB_IND.Value = "false";
         End-If;
      End-If;
      /*REGS-0809*/
   End-If;

   If &Award_Rec_Exists Then
      If &Update_Flag Then
         &Result = &COD_Award_Rec.Update();
      End-If;
   Else
      &Result = &COD_Award_Rec.Insert();
   End-If;
End-Function;

/*****************************************************************************/
/* Build_Borrower_Block                                                      */
/*****************************************************************************/
Function Build_Borrower_Block(&Fieldname As string, &FieldValue As string, &Update_Flag As boolean)
   
   &COD_Borrower_Rec.SetDefault();
   
   &Result = &COD_BORROWER_SQL.Execute(&COD_Borrower_Rec, &strDocId, &strRptCommonId, &strAttCommonId, &strEmplId, &strAwardName, &strAwardYear, &strAwardNum, &strBorrEmplId);
   
   &Borrower_Rec_Exists = &COD_BORROWER_SQL.Fetch(&COD_Borrower_Rec);
   
   If Not &Borrower_Rec_Exists Then
      &COD_Borrower_Rec.SetDefault();
      &COD_Borrower_Rec.COD_DOCUMENT_ID.Value = &strDocId;
      &COD_Borrower_Rec.COD_RPT_SCHL_ID.Value = &strRptCommonId;
      &COD_Borrower_Rec.COD_ATT_SCHL_ID.Value = &strAttCommonId;
      &COD_Borrower_Rec.EMPLID.Value = &strEmplId;
      &COD_Borrower_Rec.COD_AWARD_NAME.Value = &strAwardName;
      &COD_Borrower_Rec.COD_AWARD_YEAR.Value = &strAwardYear;
      &COD_Borrower_Rec.COD_AWARD_NUM.Value = &strAwardNum;
      &COD_Borrower_Rec.BORR_EMPLID.Value = &strBorrEmplId;
      &COD_Borrower_Rec.COD_SCHOOL_USE.Value = &strBorrEmplId;
      
      /* Get Borrower ID fields */
      codGetBorrIdInfo(&strInstitution, &strAwardYear, &recDetail.DL_LOAN_ID.value, &strBorrIDSSN, &strBorrIDDOB, &strBorrIDLastName);
      
      &COD_Borrower_Rec.COD_ID_BR_SSN.Value = &strBorrIDSSN;
      &COD_Borrower_Rec.COD_ID_BR_DOB.Value = &strBorrIDDOB;
      &COD_Borrower_Rec.COD_ID_BR_LASTNAME.Value = &strBorrIDLastName;
   End-If;
   
   If &Update_Flag Then
      If &strChangeFieldNum = "S016" Then
         &COD_Borrower_Rec.GetField(@("FIELD." | &Fieldname)).Value = strFormatDate(&FieldValue, "CCYYMMDD", "CCYY-MM-DD");
      Else
         &COD_Borrower_Rec.GetField(@("FIELD." | &Fieldname)).Value = Upper(&FieldValue);
      End-If;
      
      If &strChangeFieldNum = "S022" Then
         &COD_Borrower_Rec.COD_LN_DEF_APPLY.Value = "B";
      End-If;
      
   End-If;
   
   If &Borrower_Rec_Exists Then
      If &Update_Flag Then
         &Result = &COD_Borrower_Rec.Update();
      End-If;
   Else
      &Result = &COD_Borrower_Rec.Insert();
   End-If;
   
End-Function;

/***************************************************************************************************/
/* DL CHANGE PROCESS                                                                               */
/***************************************************************************************************/
/*************************************************************/
/* booProcDLChange - Process DL Change Records               */
/*************************************************************/
Function booProcDLChange(&strTransId As string, &intECQInstance As number, &strDateTime As string, &arrOverRideRec As array of Record) Returns boolean
   
   &strRptCommonId = "";
   &strInstitution = "";
   &intArrayIndex = 0;
   
   /* 2003-04 Regs 3 */
   &LOAN_ORIG_DTL_REC = CreateRecord(Record.LOAN_ORIG_DTL);
   &Loan_Disbmnt_Rec = CreateRecord(Record.LOAN_DISBMNT);
   &COD_Loan_Disb_Array = CreateArrayRept(&Loan_Disbmnt_Rec, 0);
   &COD_Disb_ID_Array = CreateArrayRept("", 20);
   /* 2003-04 Regs 3 end */
   
   /* 2004-05 Regs 1 */
   &Deleted_Loan_Disbmnt_Rec = CreateRecord(Record.LOAN_DISBMNT);
   &Deleted_Loan_Disbmnt_Rec.SetDefault();
   /* 2004-05 Regs 1 end */
   
   &COD_Document_Rec = CreateRecord(Record.COD_DOCUMENT);
   &COD_RptSchl_Rec = CreateRecord(Record.COD_RPTSCHL);
   &COD_Rptd_Summ_Rec = CreateRecord(Record.COD_RPTD_SUMMRY);
   &COD_AttSchl_Rec = CreateRecord(Record.COD_ATTSCHL);
   
   &COD_Student_Rec = CreateRecord(Record.COD_STUDENT);
   &COD_Address_Rec = CreateRecord(Record.COD_ADDRESS);
   &COD_Phone_Rec = CreateRecord(Record.COD_PHONE);
   &COD_Loan_Info_Rec = CreateRecord(Record.COD_LOAN_INFO);
   &COD_Award_Rec = CreateRecord(Record.COD_AWARD);
   &COD_Borrower_Rec = CreateRecord(Record.COD_BORROWER);
   &COD_Borr_Addr_Rec = CreateRecord(Record.COD_BORR_ADDR);
   &COD_Borr_Phone_Rec = CreateRecord(Record.COD_BORR_PHONE);
   &COD_Disb_Rec = CreateRecord(Record.COD_DISB);
   
   &Loan_Address_Rec = CreateRecord(Record.LOAN_ADDRESS);
   
   &LOAN_ADDRESS_SQL = CreateSQL("%Selectall(:1) WHERE EMPLID = :2 AND INSTITUTION = :3 AND AID_YEAR = :4 AND ACAD_CAREER = :5 AND LOAN_TYPE = :6 AND LN_APPL_SEQ = :7 AND LN_ADDR_TYPE = :8");
   
   &arrTableNames = arrGetTableName(Left(&strTransId, 4), Substring(&strTransId, 5, 2));
   
   If &arrTableNames [1] <> "X" Then
      /*************************************************************/
      /* Read Header Record                                        */
      /*************************************************************/
      &strSQLHeader = "SELECT DL_BATCH_ID_00 FROM PS_" | Right(&arrTableNames [1], Len(&arrTableNames [1]) - 7) | "  WHERE ECTRANSID = :1 AND ECQUEUEINSTANCE = :2";
      SQLExec(&strSQLHeader, &strTransId, &intECQInstance, &strBatchId);
      
      /*************************************************************/
      /* Shared Common Fields - Determined using Header Record     */
      /*************************************************************/
      &strReportSchool = Substring(&strBatchId, 4, 6);
      &strAwardYear = "20" | Substring(&strTransId, 5, 2);
      
      If Not booGetCommonIdRpt(&strReportSchool, &strAwardYear, &strRptCommonId, &strInstitution, "DL") Then
         /* Stop Processing - Not a Cod Participant */
         Return False;
      End-If;
      
      /*************************************************************/
      /* Set Document Id                                           */
      /*************************************************************/
      Build_Document_Record(&COD_Document_Rec, &strDateTime, &strRptCommonId);
      &strDocId = &COD_Document_Rec.COD_DOCUMENT_ID.Value;
      
      /*************************************************************/
      /* Reporting School Record                                   */
      /*************************************************************/
      Build_Rpt_School_Record(&COD_RptSchl_Rec, &strDocId, &strRptCommonId);
      
      /*************************************************************/
      /* Attending School Record                                   */
      /* Assume Attending School Id = Reporting School Id          */
      /*************************************************************/
      &strAttendSchool = &strReportSchool;
      &strAttCommonId = &strRptCommonId;
      Build_Att_School_Record(&COD_AttSchl_Rec, &strDocId, &strRptCommonId, &strAttCommonId);
      
      /*************************************************************/
      /* Initialize Variables                                      */
      /*************************************************************/
      &arrGetSSNDOBLast = CreateArrayRept("", 0); /* Holds Current SSN, DOB, Last Name, ISIR TxnNum */
      
      /* 2003-04 Regs 3 */
      &LAST_COD_AWARD_ID = "";
      /* 2003-04 Regs 3 end */
      /* 2004-05 Bundle 3 - 699579001 */
      &LAST_ADDR_AWARD_ID = "";
      &LAST_BADR_AWARD_ID = "";
      &LAST_DISB_AWARD_ID = "";
      /* 2004-05 Bundle 3 - 699579001 end */
      
      /*************************************************************/
      /* Read Detail Record                                        */
      /*************************************************************/
      &recDetail = CreateRecord(@&arrTableNames [2]);
      &sqlDetail = CreateSQL("%Selectall(:1) where ECTRANSID = :2 AND ECQUEUEINSTANCE = :3", &recDetail, &strTransId, &intECQInstance);
      
      While &sqlDetail.Fetch(&recDetail);
         /*************************************************************/
         /* Initialize Variables                                      */
         /*************************************************************/
         &Rptd_Summ_Award_Amount = 0; /* Reported Summary Award Amount Total for this Award */
         &Rptd_Summ_Award_Disb_Amount = 0; /* Reported Summary Disb Amount Total for this Award's Disbursements*/
         
         /*************************************************************/
         /* Shared Common Fields - EmplId & Borrower EmplId           */
         /*************************************************************/
         codGetEmplId(&strInstitution, &strAwardYear, &recDetail.DL_LOAN_ID.value, &strEmplId, &strBorrEmplId);
         
         &strAwardNum = LTrim(Right(&recDetail.DL_LOAN_ID.value, 3), "0");
         &COD_AWARD_ID = &recDetail.DL_LOAN_ID.Value;
         
         /*************************************************************/
         /* Determine Award Type                                      */
         /*************************************************************/
         Evaluate Substring(&recDetail.DL_LOAN_ID.value, 10, 1)
         When "S" /* Sub */
            &strAwardName = "DLSubsidized";
            Break;
         When "U" /* Unsub */
            &strAwardName = "DLUnsubsidized";
            Break;
         When "P" /* PLUS */
            &strAwardName = "DLPLUS";
         End-Evaluate;
         
         /*************************************************************/
         /* Current SSN, DOB, and Last Name                           */
         /*************************************************************/
         If booFindOverRide(&strEmplId, &arrOverRideRec, &intArrayIndex) Then
            &strCurrSSN = &arrOverRideRec [&intArrayIndex].SSN.Value;
            &strDOB = DateTimeToLocalizedString(&arrOverRideRec [&intArrayIndex].BIRTHDATE.Value, "yyyy-MM-dd");
            &strLastName = Upper(&arrOverRideRec [&intArrayIndex].COD_ID_LAST_NAME.Value);
            &strCPSTransNum = String(&arrOverRideRec [&intArrayIndex].ISIR_TXN_NBR.Value);
         Else
            /* Regs3 2005-2006/Bundle 8 ICE 1140655000 
      added &strFirstName,&strMiddleInit to codGetSSNDOBLast to use these values to send out to COD */
            codGetSSNDOBLast(&strEmplId, &strInstitution, &strAwardYear, &arrGetSSNDOBLast, &strFirstName, &strMiddleInit);
            /* 2004-05 Regs 1 - Handle PLUS Loans where no ISIR is on file */
            If &strAwardName = "DLPLUS" And
                  &arrGetSSNDOBLast [1] = "NONE" Then
               codGetStudentInfo(&strInstitution, &strAwardYear, &recDetail.DL_LOAN_ID.value, &strStudentIDSSN, &strStudentIDDOB, &strStudentIDLastName);
               &strCurrSSN = &strStudentIDSSN;
               &strDOB = &strStudentIDDOB;
               &strLastName = &strStudentIDLastName;
               &strCPSTransNum = "";
            Else
               &strCurrSSN = &arrGetSSNDOBLast [1];
               &strDOB = &arrGetSSNDOBLast [2];
               &strLastName = &arrGetSSNDOBLast [3];
               &strCPSTransNum = &arrGetSSNDOBLast [4];
            End-If;
            /* 2004-05 Regs 1 end */
         End-If;
         
         /*************************************************************/
         /* Find the Changed Fields                                   */
         /*************************************************************/
         
         For &intCount = 1 To 10
            
            If &intCount = 10 Then
               &strPosition = String(&intCount);
            Else
               &strPosition = "0" | String(&intCount);
            End-If;
            
            &strChangeFieldNum = &recDetail.GetField(@("FIELD." | "DL_CHG_FLD_" | &strPosition)).Value;
            
            If All(&strChangeFieldNum) Then
               &strChangeValue = &recDetail.GetField(@("FIELD." | "DL_CHG_VALUE_" | &strPosition | "_02")).Value;
               
               If &strAwardName = "DLPLUS" Then
                  SQLExec("SELECT COD_PS_RECNAME, COD_PS_FIELDNAME, COD_FIELD_TAG FROM PS_COD_LOOKUP WHERE DL_CHG_FLD = :1 AND COD_SCHEMA_VERSION = :2", &strChangeFieldNum, FA_COD_OUT_AET.COD_SCHEMA_VERSION, &strCODRecName, &strCODFieldName, &strCODFieldTag);
               Else
                  SQLExec("SELECT COD_PS_RECNAME, COD_PS_FIELDNAME, COD_FIELD_TAG FROM PS_COD_LOOKUP WHERE DL_CHG_FIELD_NBR = :1 AND COD_SCHEMA_VERSION = :2", &strChangeFieldNum, FA_COD_OUT_AET.COD_SCHEMA_VERSION, &strCODRecName, &strCODFieldName, &strCODFieldTag);
               End-If;
               
               Evaluate &strCODRecName
                  /*************************************************************/
                  /* Student Record                                            */
                  /*************************************************************/
               When "COD_STUDENT"
                  Build_Student_Block(&strCODFieldName, &strChangeValue, True);
                  
                  /* Need to also send Award Block with Award ID */
                  Build_Award_Block(&strCODFieldName, &strChangeValue, False);
                  
                  /* Add Borrower Block for PLUS Loans */
                  If &strAwardName = "DLPLUS" Then
                     Build_Borrower_Block(&strCODFieldName, &strChangeValue, False);
                  End-If;
                  
                  Break;
                  /*************************************************************/
                  /* Loan Information Record                                   */
                  /*************************************************************/
               When "COD_LOAN_INFO"
                  Build_Student_Block(&strCODFieldName, &strChangeValue, False);
                  
                  Evaluate &strChangeFieldNum
                  When "S121"
                  When "S122"
                  When "S032"
                  When "S033"
                     &strChangeValue = strFormatDate(&strChangeValue, "CCYYMMDD", "CCYY-MM-DD");
                     Break;
                  When "S193"
                  When "S116"
                     &strChangeValue = LTrim(Left(&strChangeValue, 2), "0") | "." | Substring(&strChangeValue, 3, 2) | RTrim(Right(&strChangeValue, 1), "0");
                     Break;
                     
                     /* 2003-04 Regs 3 */
                     /* COD Values: S, R, O, V, Z  DL Values: S, R, F, V, Z */
                  When "S083"
                     /*If &strChangeValue = "F" And
                           &strChangeValue = "O" Then
                        &strChangeValue = "";
                     End-If;*/
                     
                     If &strChangeValue = "F" Then
                        &strChangeValue = "O"
                     End-If;
                     Break;
                     
                     /* Disclosure Statement Indicator COD Values: Y, R, S  DL Values: Y, Z, Blank */
                  When "S115"
                     If None(&strChangeValue) Then
                        &strChangeValue = "S";
                     Else
                        Evaluate &strChangeValue
                        When "Z"
                           &strChangeValue = "R";
                           Break;
                        End-Evaluate;
                     End-If;
                     Break;
                     /* 2003-04 Regs 3 end */
                  End-Evaluate;
                  
                  /* Need to also send Award Block with Award ID */
                  /* 2003-04 Regs 3 */
                  &COD_Award_Rec.SetDefault();
                  
                  &Result = &COD_AWARD_SQL.Execute(&COD_Award_Rec, &strDocId, &strRptCommonId, &strAttCommonId, &strEmplId, &strAwardName, &strAwardYear, &strAwardNum);
                  
                  &Award_Rec_Exists = &COD_AWARD_SQL.Fetch(&COD_Award_Rec);
                  
                  If Not &Award_Rec_Exists Then
                     
                     &COD_Award_Rec.SetDefault();
                     
                     &New_Loan_Key = GetHighestLoanKeyNumber();
                     &New_Loan_Key = &New_Loan_Key + 1;
                     
                     &COD_Award_Rec.COD_DOCUMENT_ID.Value = &strDocId;
                     &COD_Award_Rec.COD_RPT_SCHL_ID.Value = &strRptCommonId;
                     &COD_Award_Rec.COD_ATT_SCHL_ID.Value = &strAttCommonId;
                     &COD_Award_Rec.EMPLID.Value = &strEmplId;
                     &COD_Award_Rec.COD_AWARD_NAME.Value = &strAwardName;
                     &COD_Award_Rec.COD_AWARD_YEAR.Value = &strAwardYear;
                     &COD_Award_Rec.COD_AWARD_NUM.Value = &strAwardNum;
                     &COD_Award_Rec.COD_AWARD_ID.Value = &recDetail.DL_LOAN_ID.value;
                     &COD_Award_Rec.COD_LOAN_KEY.Value = &New_Loan_Key; /* Assign Loan Key */
                     &Result = &COD_Award_Rec.Insert();
                  Else
                     If None(&COD_Award_Rec.COD_LOAN_KEY.Value) Then
                        &New_Loan_Key = GetHighestLoanKeyNumber();
                        &New_Loan_Key = &New_Loan_Key + 1;
                        &COD_Award_Rec.COD_LOAN_KEY.Value = &New_Loan_Key; /* Assign Loan Key */
                        &Result = &COD_Award_Rec.Update();
                     Else
                        &New_Loan_Key = &COD_Award_Rec.COD_LOAN_KEY.Value;
                     End-If;
                     
                  End-If;
                  
                  /* Add Borrower Block for PLUS Loans */
                  If &strAwardName = "DLPLUS" Then
                     Build_Borrower_Block(&strCODFieldName, &strChangeValue, False);
                  End-If;
                  
                  &COD_Loan_Info_Rec.SetDefault();
                  
                  &Result = &COD_LOAN_INFO_2_SQL.Execute(&COD_Loan_Info_Rec, &strDocId, &strRptCommonId, &strAttCommonId, &strEmplId, &New_Loan_Key);
                  
                  &Loan_Info_Exists = &COD_LOAN_INFO_2_SQL.Fetch(&COD_Loan_Info_Rec);
                  
                  If Not &Loan_Info_Exists Then
                     &COD_Loan_Info_Rec.SetDefault();
                     &COD_Loan_Info_Rec.COD_DOCUMENT_ID.Value = &strDocId;
                     &COD_Loan_Info_Rec.COD_RPT_SCHL_ID.Value = &strRptCommonId;
                     &COD_Loan_Info_Rec.COD_ATT_SCHL_ID.Value = &strAttCommonId;
                     &COD_Loan_Info_Rec.EMPLID.Value = &strEmplId;
                     &COD_Loan_Info_Rec.COD_LOAN_KEY.Value = &New_Loan_Key;
                  End-If;
                  
                  &COD_Loan_Info_Rec.GetField(@("FIELD." | &strCODFieldName)).Value = &strChangeValue;
                  
                  If &Loan_Info_Exists Then
                     &Result = &COD_Loan_Info_Rec.Update();
                  Else
                     &Result = &COD_Loan_Info_Rec.Insert();
                  End-If;
                  
                  /* 2003-04 Regs 3 end */
                  
                  Break;
                  /*************************************************************/
                  /* Student Phone Record                                      */
                  /*************************************************************/
               When "COD_PHONE"
                  Build_Student_Block(&strCODFieldName, &strChangeValue, False);
                  
                  /* Need to also send Award Block with Award ID */
                  Build_Award_Block(&strCODFieldName, &strChangeValue, False);
                  
                  /* Add Borrower Block for PLUS Loans */
                  If &strAwardName = "DLPLUS" Then
                     Build_Borrower_Block(&strCODFieldName, &strChangeValue, False);
                  End-If;
                  
                  &strPhoneNumber = &strChangeValue;
                  &COD_Phone_Rec.SetDefault();
                  
                  &Result = &COD_PHONE_SQL.Execute(&COD_Phone_Rec, &strDocId, &strRptCommonId, &strAttCommonId, &strEmplId, &strPhoneNumber);
                  
                  &Phone_Rec_Exists = &COD_PHONE_SQL.Fetch(&COD_Phone_Rec);
                  
                  If Not &Phone_Rec_Exists Then
                     
                     &COD_Phone_Rec.SetDefault();
                     
                     &intSeqNum = 0;
                     SQLExec("SELECT MAX(COD_PHONE_SEQ) FROM PS_COD_PHONE WHERE COD_DOCUMENT_ID = :1 AND COD_RPT_SCHL_ID = :2 AND COD_ATT_SCHL_ID = :3 AND EMPLID = :4", &strDocId, &strRptCommonId, &strAttCommonId, &strEmplId, &intSeqNum);
                     
                     If &intSeqNum < 3 Then
                        &COD_Phone_Rec.COD_DOCUMENT_ID.Value = &strDocId;
                        &COD_Phone_Rec.COD_RPT_SCHL_ID.Value = &strRptCommonId;
                        &COD_Phone_Rec.COD_ATT_SCHL_ID.Value = &strAttCommonId;
                        &COD_Phone_Rec.EMPLID.Value = &strEmplId;
                        &COD_Phone_Rec.COD_PHONE_SEQ.Value = &intSeqNum + 1;
                        &COD_Phone_Rec.COD_PHONE_NUMBER.Value = &strPhoneNumber;
                        
                        &Result = &COD_Phone_Rec.Insert();
                     End-If;
                     
                  End-If;
                  
                  Break;
                  
                  /*************************************************************/
                  /* Student Address Record                                    */
                  /*************************************************************/
               When "COD_ADDRESS"
                  Build_Student_Block(&strCODFieldName, &strChangeValue, False);
                  
                  If Right(&strCODFieldTag, 4) = "TEMP" Then
                     &strAddressType = "T";
                     &AddrTypeFlag = "M";
                  Else
                     &strAddressType = "P";
                     &AddrTypeFlag = "P";
                  End-If;
                  
                  /* 2004-05 Bundle 3 - 699579001 */
                  If &COD_AWARD_ID <> &LAST_ADDR_AWARD_ID Then
                     /* 2004-05 Bundle 3 - 699579001 end */
                     &tmpAcad_Career = " ";
                     &tmpLoan_Type = " ";
                     &tmpLN_Appl_Seq = 0;
                     &tmpItem_Type = " ";
                     
                     &Result = GetLoanOrigDtlKeys(&strEmplId, &strInstitution, &strAwardYear, &COD_AWARD_ID, &tmpAcad_Career, &tmpLoan_Type, &tmpLN_Appl_Seq, &tmpItem_Type, &LOAN_ORIG_DTL_REC);
                     
                     /* 2004-05 Bundle 3 - 699579001 */
                     &LAST_ADDR_AWARD_ID = &COD_AWARD_ID;
                     /* 2004-05 Bundle 3 - 699579001 end */
                  End-If;
                  
                  &Loan_Address_Rec.SetDefault();
                  
                  &Result = &LOAN_ADDRESS_SQL.Execute(&Loan_Address_Rec, &strEmplId, &strInstitution, &strAwardYear, &tmpAcad_Career, &tmpLoan_Type, &tmpLN_Appl_Seq, &AddrTypeFlag);
                  
                  &Result = &LOAN_ADDRESS_SQL.Fetch(&Loan_Address_Rec);
                  
                  &COD_Address_Rec.SetDefault();
                  
                  &Result = &COD_ADDRESS_SQL.Execute(&COD_Address_Rec, &strDocId, &strRptCommonId, &strAttCommonId, &strEmplId, &strAddressType);
                  
                  &Address_Exists = &COD_ADDRESS_SQL.Fetch(&COD_Address_Rec);
                  
                  If Not &Address_Exists Then
                     &COD_Address_Rec.SetDefault();
                     &COD_Address_Rec.COD_DOCUMENT_ID.Value = &strDocId;
                     &COD_Address_Rec.COD_RPT_SCHL_ID.Value = &strRptCommonId;
                     &COD_Address_Rec.COD_ATT_SCHL_ID.Value = &strAttCommonId;
                     &COD_Address_Rec.EMPLID.Value = &strEmplId;
                     
                     &intSeqNum = 0;
                     SQLExec("SELECT MAX(COD_ADDR_SEQ) FROM PS_COD_ADDRESS WHERE COD_DOCUMENT_ID = :1 AND COD_RPT_SCHL_ID = :2 AND COD_ATT_SCHL_ID = :3 AND EMPLID = :4", &strDocId, &strRptCommonId, &strAttCommonId, &strEmplId, &intSeqNum);
                     
                     &COD_Address_Rec.COD_ADDR_SEQ.Value = &intSeqNum + 1;
                     &COD_Address_Rec.COD_TEMP_ADDR.Value = &strAddressType;
                  End-If;
                  
                  &COD_Address_Rec.COD_ADDR1.Value = Upper(&Loan_Address_Rec.ADDRESS1.Value);
                  &COD_Address_Rec.COD_CITY.Value = Upper(&Loan_Address_Rec.CITY.Value);
                  
                  /* Regs1 2006 - 07/ Bundle 11   ICE 1322639000 Set up Address Foreign Indicator START */
                  
                  &strCountry = " ";
                  &strState = " ";
                  If Upper(&Loan_Address_Rec.STATE.Value) = "FC" Then
                     &COD_Address_Rec.COD_FOREIGN_ADDR.Value = "true";
                     SelectCountry(&strEmplId, &strCountry, &strState);
                     &COD_Address_Rec.COD_COUNTRY.Value = &strCountry;
                  End-If;
                  
                  If &strCountry = "CAN" Then
                     &COD_Address_Rec.COD_STATE_PROV.Value = Upper(&strState);
                  Else
                     &COD_Address_Rec.COD_STATE_PROV.Value = Upper(&Loan_Address_Rec.STATE.Value);
                  End-If;
                  
                  /* Regs1 2006 - 07/ Bundle 11   ICE 1322639000 Set up Address Foreign Indicator END */
                  
                  If Len(&Loan_Address_Rec.POSTAL.Value) = 9 And
                        Right(&Loan_Address_Rec.POSTAL.Value, 4) = "0000" Then
                     &COD_Address_Rec.COD_POSTAL_CD.Value = Left(&Loan_Address_Rec.POSTAL.Value, 5);
                  Else
                     &COD_Address_Rec.COD_POSTAL_CD.Value = &Loan_Address_Rec.POSTAL.Value;
                     &COD_Address_Rec.COD_POSTAL_CD.Value = Substitute(&Loan_Address_Rec.POSTAL.Value, "-", "");
                  End-If;
                  
                  If &Address_Exists Then
                     &Result = &COD_Address_Rec.Update()
                  Else
                     If &COD_Address_Rec.COD_ADDR_SEQ.Value < 3 Then
                        &Result = &COD_Address_Rec.Insert();
                     End-If;
                  End-If;
                  
                  /* Need to also send Award Block with Award ID */
                  Build_Award_Block(&strCODFieldName, &strChangeValue, False);
                  
                  /* Add Borrower Block for PLUS Loans */
                  If &strAwardName = "DLPLUS" Then
                     Build_Borrower_Block(&strCODFieldName, &strChangeValue, False);
                  End-If;
                  
                  Break;
                  
                  /*************************************************************/
                  /* Award Record                                              */
                  /*************************************************************/
               When "COD_AWARD"
                  Build_Student_Block(&strCODFieldName, &strChangeValue, False);
                  
                  Build_Award_Block(&strCODFieldName, &strChangeValue, True);
                  
                  /* Add Borrower Block for PLUS Loans */
                  If &strAwardName = "DLPLUS" Then
                     Build_Borrower_Block(&strCODFieldName, &strChangeValue, False);
                  End-If;
                  
                  If &strChangeFieldNum = "S029" Then /* Loan Amount Approved */
                     &tempAwardAmount = Value(&strChangeValue) | ".00";
                     &Rptd_Summ_Award_Amount = &tempAwardAmount - &Previous_Award_Amount;
                  End-If;
                  
                  Break;
                  /*************************************************************/
                  /* Disbursement Record                                       */
                  /*************************************************************/
               When "COD_DISB"
                  
                  /* 2003-04 Regs 3 */
                  /* 2004-05 Bundle 3 - 699579001 */
                  If &COD_AWARD_ID <> &LAST_DISB_AWARD_ID Then
                     /* 2004-05 Bundle 3 - 699579001 end */
                     &tmpAcad_Career = " ";
                     &tmpLoan_Type = " ";
                     &tmpLN_Appl_Seq = 0;
                     &tmpItem_Type = " ";
                     
                     &Result = GetLoanOrigDtlKeys(&strEmplId, &strInstitution, &strAwardYear, &COD_AWARD_ID, &tmpAcad_Career, &tmpLoan_Type, &tmpLN_Appl_Seq, &tmpItem_Type, &LOAN_ORIG_DTL_REC);
                     
                     LoadLoanDisbArray(&strEmplId, &strInstitution, &strAwardYear, &tmpAcad_Career, &tmpLoan_Type, &tmpLN_Appl_Seq, &tmpItem_Type, &Loan_Disbmnt_Rec, &COD_Disb_ID_Array, &COD_Loan_Disb_Array);
                     
                     /* 2004-05 Bundle 3 - 699579001 */
                     &LAST_DISB_AWARD_ID = &COD_AWARD_ID;
                     /* 2004-05 Bundle 3 - 699579001 end */
                  End-If;
                  
                  If &COD_Loan_Disb_Array.Len > 0 Then
                     &field_disb_num = Right(&strCODFieldName, 2);
                     &Loan_Disb_Array_Index = GetLoanDisbArrayIndex(&field_disb_num, &COD_Loan_Disb_Array);
                     
                     /* 2004-05 Regs 1 */
                     /*&Loan_Disbmnt_Rec = &COD_Loan_Disb_Array[&Loan_Disb_Array_Index];
       &Disb_ID = &Loan_Disbmnt_Rec.DISBURSEMENT_ID.value;
       &Disb_ID_Array_Index = GetDisbIDArrayIndex(&Disb_ID, &COD_Disb_ID_Array);*/
                     
                     If &Loan_Disb_Array_Index > 0 Then
                        &Loan_Disbmnt_Rec = &COD_Loan_Disb_Array [&Loan_Disb_Array_Index];
                        &Disb_ID = &Loan_Disbmnt_Rec.DISBURSEMENT_ID.value;
                        &Disb_ID_Array_Index = GetDisbIDArrayIndex(&Disb_ID, &COD_Disb_ID_Array);
                     Else /* For DL Changes where the Loan Disb record no longer exists */
                        &Loan_Disbmnt_Rec = &Deleted_Loan_Disbmnt_Rec;
                        &Disb_ID_Array_Index = Value(&field_disb_num);
                     End-If;
                     /* 2004-05 Regs 1 end */
                     
                     /* If Not &Actual_Disb_Exists Then*/
                     If None(&Loan_Disbmnt_Rec.LN_EXT_ACT_ID.value) Then
                        
                        Build_Student_Block(&strCODFieldName, &strChangeValue, False);
                        
                        Build_Award_Block(&strCODFieldName, &strChangeValue, False);
                        
                        &strDisbNum = String(&Disb_ID_Array_Index);
                        
                        &COD_Disb_Rec.SetDefault();
                        
                        &COD_DISB_SQL.Execute(&COD_Disb_Rec, &strDocId, &strRptCommonId, &strAttCommonId, &strEmplId, &strAwardName, &strAwardYear, &strAwardNum, &strDisbNum);
                        
                        &Disb_Rec_Exists = &COD_DISB_SQL.Fetch(&COD_Disb_Rec);
                        
                        If Not &Disb_Rec_Exists Then
                           &COD_Disb_Rec.SetDefault();
                           &COD_Disb_Rec.COD_DOCUMENT_ID.Value = &strDocId;
                           &COD_Disb_Rec.COD_RPT_SCHL_ID.Value = &strRptCommonId;
                           &COD_Disb_Rec.COD_ATT_SCHL_ID.Value = &strAttCommonId;
                           &COD_Disb_Rec.EMPLID.Value = &strEmplId;
                           &COD_Disb_Rec.COD_AWARD_NAME.Value = &strAwardName;
                           &COD_Disb_Rec.COD_AWARD_YEAR.Value = &strAwardYear;
                           &COD_Disb_Rec.COD_AWARD_NUM.Value = &strAwardNum;
                           &COD_Disb_Rec.COD_DISB_NUM.Value = &strDisbNum;
                        End-If;
                        
                        If Upper(&COD_Disb_Rec.COD_PMT_TRGR_FLAG.Value) <> "TRUE" Then
                           
                           If All(&COD_Disb_Rec.COD_DISB_AMT.Value) Then
                              &Previous_Disb_Amount = Value(&COD_Disb_Rec.COD_DISB_AMT.Value);
                           Else
                              &Previous_Disb_Amount = 0;
                           End-If;
                           
                           &COD_Disb_Rec.COD_PMT_TRGR_FLAG.Value = "false";
                           &COD_Disb_Rec.COD_DISB_NUM_SEQ.Value = "01";
                           &COD_Disb_Rec.COD_DISB_AMT.Value = &Loan_Disbmnt_Rec.LN_ANTIC_GROSS.value | ".00";
                           &COD_Disb_Rec.COD_DISB_NET_AMT.Value = &Loan_Disbmnt_Rec.LN_ANTIC_NET.value | ".00";
                           &COD_Disb_Rec.COD_DISB_FEE_AMT.Value = &Loan_Disbmnt_Rec.LN_ANTIC_FEES.value | ".00";
                           &COD_Disb_Rec.COD_DISB_REB_AMT.Value = &Loan_Disbmnt_Rec.LN_ANTIC_REBATE.value | ".00";
                           &COD_Disb_Rec.COD_DISB_DT.Value = &Loan_Disbmnt_Rec.LN_ANTIC_DATE.value;
                           
                           &COD_Disb_Rec.COD_SCHOOL_USE.Value = Right(&strCODFieldName, 2);
                           
                           &Rptd_Summ_Award_Disb_Amount = &Rptd_Summ_Award_Disb_Amount + (Value(&COD_Disb_Rec.COD_DISB_AMT.Value) - &Previous_Disb_Amount);
                           
                           If &Disb_Rec_Exists Then
                              &Result = &COD_Disb_Rec.Update();
                           Else
                              &Result = &COD_Disb_Rec.Insert();
                           End-If;
                           
                        End-If;
                        
                        /* Add Borrower Block for PLUS Loans */
                        If &strAwardName = "DLPLUS" Then
                           Build_Borrower_Block(&strCODFieldName, &strChangeValue, False);
                        End-If;
                        
                     End-If;
                  End-If;
                  /* 2003-04 Regs 3 end */
                  
                  Break;
                  
                  /*************************************************************/
                  /* Borrower Record                                           */
                  /*************************************************************/
               When "COD_BORROWER"
                  Build_Student_Block(&strCODFieldName, &strChangeValue, False);
                  
                  Build_Award_Block(&strCODFieldName, &strChangeValue, False);
                  
                  Build_Borrower_Block(&strCODFieldName, &strChangeValue, True);
                  Break;
                  
                  /*************************************************************/
                  /* Borrower Address Record                                   */
                  /*************************************************************/
               When "COD_BORR_ADDR"
                  Build_Student_Block(&strCODFieldName, &strChangeValue, False);
                  
                  &AddrTypeFlag = "P";
                  
                  /* 2004-05 Bundle 3 - 699579001 */
                  If &COD_AWARD_ID <> &LAST_BADR_AWARD_ID Then
                     /* 2004-05 Bundle 3 - 699579001 end */
                     &tmpAcad_Career = " ";
                     &tmpLoan_Type = " ";
                     &tmpLN_Appl_Seq = 0;
                     &tmpItem_Type = " ";
                     
                     &Result = GetLoanOrigDtlKeys(&strEmplId, &strInstitution, &strAwardYear, &COD_AWARD_ID, &tmpAcad_Career, &tmpLoan_Type, &tmpLN_Appl_Seq, &tmpItem_Type, &LOAN_ORIG_DTL_REC);
                     
                     /* 2004-05 Bundle 3 - 699579001 */
                     &LAST_BADR_AWARD_ID = &COD_AWARD_ID;
                     /* 2004-05 Bundle 3 - 699579001 end */
                  End-If;
                  
                  &Loan_Address_Rec.SetDefault();
                  
                  &Result = &LOAN_ADDRESS_SQL.Execute(&Loan_Address_Rec, &strEmplId, &strInstitution, &strAwardYear, &tmpAcad_Career, &tmpLoan_Type, &tmpLN_Appl_Seq, &AddrTypeFlag);
                  
                  &Result = &LOAN_ADDRESS_SQL.Fetch(&Loan_Address_Rec);
                  
                  Build_Award_Block(&strCODFieldName, &strChangeValue, False);
                  
                  Build_Borrower_Block(&strCODFieldName, &strChangeValue, False);
                  
                  &COD_Borr_Addr_Rec.SetDefault();
                  &strAddressType = "P";
                  
                  &Result = &COD_BORR_ADDR_SQL.Execute(&COD_Borr_Addr_Rec, &strDocId, &strRptCommonId, &strAttCommonId, &strEmplId, &strAwardName, &strAwardYear, &strAwardNum, &strBorrEmplId, &strAddressType);
                  &Borr_Perm_Address_Exists = &COD_BORR_ADDR_SQL.Fetch(&COD_Borr_Addr_Rec);
                  
                  If Not &Borr_Perm_Address_Exists Then
                     &COD_Borr_Addr_Rec.SetDefault();
                     &COD_Borr_Addr_Rec.COD_DOCUMENT_ID.Value = &strDocId;
                     &COD_Borr_Addr_Rec.COD_RPT_SCHL_ID.Value = &strRptCommonId;
                     &COD_Borr_Addr_Rec.COD_ATT_SCHL_ID.Value = &strAttCommonId;
                     &COD_Borr_Addr_Rec.EMPLID.Value = &strEmplId;
                     &COD_Borr_Addr_Rec.COD_AWARD_NAME.Value = &strAwardName;
                     &COD_Borr_Addr_Rec.COD_AWARD_YEAR.Value = &strAwardYear;
                     &COD_Borr_Addr_Rec.COD_AWARD_NUM.Value = &strAwardNum;
                     &COD_Borr_Addr_Rec.BORR_EMPLID.Value = &strBorrEmplId;
                     
                     &intSeqNum = 0;
                     SQLExec("SELECT MAX(COD_ADDR_SEQ) FROM PS_COD_BORR_ADDR WHERE COD_DOCUMENT_ID = :1 AND COD_RPT_SCHL_ID = :2 AND COD_ATT_SCHL_ID = :3 AND EMPLID = :4 AND COD_AWARD_NAME = :5 AND COD_AWARD_YEAR = :6 AND COD_AWARD_NUM = :7 AND BORR_EMPLID = :8", &strDocId, &strRptCommonId, &strAttCommonId, &strEmplId, &strAwardName, &strAwardYear, &strAwardNum, &strBorrEmplId, &intSeqNum);
                     
                     &COD_Borr_Addr_Rec.COD_ADDR_SEQ.Value = &intSeqNum + 1;
                     &COD_Borr_Addr_Rec.COD_TEMP_ADDR.Value = &strAddressType;
                  End-If;
                  
                  &COD_Borr_Addr_Rec.COD_ADDR1.Value = Upper(&Loan_Address_Rec.ADDRESS1.Value);
                  &COD_Borr_Addr_Rec.COD_CITY.Value = Upper(&Loan_Address_Rec.CITY.Value);
                  
                  /* Regs1 2006 - 07/ Bundle 11   ICE 1322639000 Set up Address Foreign Indicator START */
                  
                  &strCountry = " ";
                  &strState = " ";
                  If Upper(&Loan_Address_Rec.STATE.Value) = "FC" Then
                     &COD_Borr_Addr_Rec.COD_FOREIGN_ADDR.Value = "true";
                     SelectCountry(&strEmplId, &strCountry, &strState);
                     &COD_Borr_Addr_Rec.COD_COUNTRY.Value = &strCountry;
                  End-If;
                  
                  If &strCountry = "CAN" Then
                     &COD_Borr_Addr_Rec.COD_STATE_PROV.Value = Upper(&strState);
                  Else
                     &COD_Borr_Addr_Rec.COD_STATE_PROV.Value = Upper(&Loan_Address_Rec.STATE.Value);
                  End-If;
                  
                  /* Regs1 2006 - 07/ Bundle 11   ICE 1322639000 Set up Address Foreign Indicator END */
                  
                  If Len(&Loan_Address_Rec.POSTAL.Value) = 9 And
                        Right(&Loan_Address_Rec.POSTAL.Value, 4) = "0000" Then
                     &COD_Borr_Addr_Rec.COD_POSTAL_CD.Value = Left(&Loan_Address_Rec.POSTAL.Value, 5);
                  Else
                     &COD_Borr_Addr_Rec.COD_POSTAL_CD.Value = &Loan_Address_Rec.POSTAL.Value;
                     &COD_Borr_Addr_Rec.COD_POSTAL_CD.Value = Substitute(&Loan_Address_Rec.POSTAL.Value, "-", "");
                  End-If;
                  
                  If &Borr_Perm_Address_Exists Then
                     &Result = &COD_Borr_Addr_Rec.Update()
                  Else
                     If &COD_Borr_Addr_Rec.COD_ADDR_SEQ.Value < 3 Then
                        &Result = &COD_Borr_Addr_Rec.Insert();
                     End-If;
                  End-If;
                  
                  Break;
                  
                  /*************************************************************/
                  /* Borrower Phone Record                                     */
                  /*************************************************************/
               When "COD_BORR_PHONE"
                  Build_Student_Block(&strCODFieldName, &strChangeValue, False);
                  
                  Build_Award_Block(&strCODFieldName, &strChangeValue, False);
                  
                  Build_Borrower_Block(&strCODFieldName, &strChangeValue, False);
                  
                  &strBorrPhoneNumber = &strChangeValue;
                  
                  &COD_Borr_Phone_Rec.SetDefault();
                  
                  &Result = &COD_BORR_PHONE_SQL.Execute(&COD_Borr_Phone_Rec, &strDocId, &strRptCommonId, &strAttCommonId, &strEmplId, &strAwardName, &strAwardYear, &strAwardNum, &strBorrEmplId, &strBorrPhoneNumber);
                  
                  &Borr_Phone_Rec_Exists = &COD_BORR_PHONE_SQL.Fetch(&COD_Borr_Phone_Rec);
                  
                  If Not &Borr_Phone_Rec_Exists Then
                     
                     &COD_Borr_Phone_Rec.SetDefault();
                     
                     &intSeqNum = 0;
                     SQLExec("SELECT MAX(COD_PHONE_SEQ) FROM PS_COD_BORR_PHONE WHERE COD_DOCUMENT_ID = :1 AND COD_RPT_SCHL_ID = :2 AND COD_ATT_SCHL_ID = :3 AND EMPLID = :4 AND COD_AWARD_NAME = :5 AND COD_AWARD_YEAR = :6 AND COD_AWARD_NUM = :7 AND BORR_EMPLID =:8", &strDocId, &strRptCommonId, &strAttCommonId, &strEmplId, &strAwardName, &strAwardYear, &strAwardNum, &strBorrEmplId, &intSeqNum);
                     
                     If &intSeqNum < 3 Then
                        &COD_Borr_Phone_Rec.COD_DOCUMENT_ID.Value = &strDocId;
                        &COD_Borr_Phone_Rec.COD_RPT_SCHL_ID.Value = &strRptCommonId;
                        &COD_Borr_Phone_Rec.COD_ATT_SCHL_ID.Value = &strAttCommonId;
                        &COD_Borr_Phone_Rec.EMPLID.Value = &strEmplId;
                        &COD_Borr_Phone_Rec.COD_AWARD_NAME.Value = &strAwardName;
                        &COD_Borr_Phone_Rec.COD_AWARD_YEAR.Value = &strAwardYear;
                        &COD_Borr_Phone_Rec.COD_AWARD_NUM.Value = &strAwardNum;
                        &COD_Borr_Phone_Rec.BORR_EMPLID.Value = &strBorrEmplId;
                        &COD_Borr_Phone_Rec.COD_PHONE_SEQ.Value = &intSeqNum + 1;
                        &COD_Borr_Phone_Rec.COD_PHONE_NUMBER.Value = &strBorrPhoneNumber;
                        
                        &Result = &COD_Borr_Phone_Rec.Insert();
                     End-If;
                     
                  End-If;
                  
                  Break;
               End-Evaluate;
               
            Else
               Break; /* Stop For Loop - No More Data */
            End-If;
         End-For;
         
         /*************************************************************/
         /* Update Report Summary Information                         */
         /*************************************************************/
         Update_Rptd_Summ_Rec(&COD_Rptd_Summ_Rec, &strDocId, &strRptCommonId, &strAwardName, &strAwardYear, &Rptd_Summ_Award_Amount, &Rptd_Summ_Award_Disb_Amount);
         
      End-While; /* Reading Detail */
      Return True;
   Else
      Return False;
   End-If; /* If to see if Record Names were found */
End-Function;

PeopleCode (Record): FUNCLIB_FA_NSLD.AID_YEAR.FieldFormula
Declare Function BuildHeaderRecord PeopleCode FUNCLIB_FA.FILE_PROC_PC FieldFormula;
Declare Function InsertECQueue PeopleCode FUNCLIB_FA.FILE_PROC_PC FieldFormula;
Declare Function UpdateECQueue PeopleCode FUNCLIB_FA.FILE_PROC_PC FieldFormula;
Declare Function UpdateECQueueInstance PeopleCode FUNCLIB_FA.FILE_PROC_PC FieldFormula;

Global File &FAI_FILE;
Global SQL &SQL1;

Global number &FAI_DetailCount1;
Global number &FAI_DetailCount2;
Global number &FAI_DetailCount3;
Global number &FAI_DetailCount4;
Global number &FAI_DetailCount5;
Global number &FAI_HeaderCount;
Global number &FAI_TrailerCount;

Local boolean &Result;

Local number &ecqueueinstance;
Local Record &Header_Rec;
Local Record &Target_Record;

Local Rowset &FRS;

Local string &Current_RecName;
Local string &ECQ_Control_Nbr;
Local string &File_Layout_Name;
Local string &Header_Rec_Name;

Function Process_NSLDS_File(&Message_Class As string, &FAFeature As string) Returns boolean
   
   &File_Layout_Name = "TRALRTOP_03";
   &Result = &FAI_FILE.SetFileLayout(@("FileLayout." | &File_Layout_Name));
   
   If Not &Result Then
      MessageBox(0, "", 14412, 7, "File Layout " | &File_Layout_Name | " not found.", &File_Layout_Name);
      &FAI_FILE.Close();
      Return False;
   Else
      
      MessageBox(0, "", 14412, 5, "Processing file: " | &FAI_FILE.Name, &FAI_FILE.Name);
      
      &ecqueueinstance = UpdateECQueueInstance(&Message_Class, "I");
      
      &Result = InsertECQueue(&Message_Class, &ecqueueinstance, "I", 0, "E");
      
      &FRS = &FAI_FILE.ReadRowset();
      &FAI_HeaderCount = 0;
      &FAI_TrailerCount = 0;
      &FAI_DetailCount1 = 0;
      &FAI_DetailCount2 = 0;
      &FAI_DetailCount3 = 0;
      &FAI_DetailCount4 = 0;
      &FAI_DetailCount5 = 0;
      
      While &FRS <> Null
         
         For &J = 1 To &FRS.GetRow(1).RecordCount
            
            If &FRS.GetRow(1).GetRecord(&J).IsDeleted = False Then
               
               If &J = 1 Then
                  &FAI_HeaderCount = &FAI_HeaderCount + 1;
                  &FAI_DetailCount1 = 0;
                  &FAI_DetailCount2 = 0;
                  &FAI_DetailCount3 = 0;
                  &FAI_DetailCount4 = 0;
                  &FAI_DetailCount5 = 0;
                  &Header_Rec_Name = &FRS.GetRow(1).GetRecord(1).Name;
                  &Header_Rec = BuildHeaderRecord(&Header_Rec_Name, &Message_Class, &ecqueueinstance, "I");
                  &FRS.GetRow(1).GetRecord(1).CopyFieldsTo(&Header_Rec);
                  &ECQ_Control_Nbr = " ";
                  &Result = &SQL1.Execute(&Header_Rec);
               Else
                  &Current_RecName = &FRS.GetRow(1).GetRecord(&J).Name;
                  &Target_Record = CreateRecord(@("Record." | &Current_RecName));
                  &Target_Record.SetDefault();
                  &Header_Rec.CopyFieldsTo(&Target_Record);
                  &FRS.GetRow(1).GetRecord(&J).CopyFieldsTo(&Target_Record);
                  
                  &Rec_Type = &FRS.GetRow(1).GetRecord(&J).GetField(Field.NSLDS_REC_TYPE).Value;
                  
                  Evaluate &Rec_Type
                  When = "1"
                     &FAI_DetailCount1 = &FAI_DetailCount1 + 1;
                     &Target_Record.NSLDS_DTL_NBR.Value = &FAI_DetailCount1;
                     /* Mark FA History records so that they do not appear in */
                     /* the list of records needing review.                   */
                     If &FAFeature = "FAH" Then
                        &Target_Record.NSLDS_REVIEW_STAT.Value = "Y";
                        &Target_Record.NSLDS_UPDT_SOURCE.Value = "H";
                     End-If;
                  When = "2"
                     &FAI_DetailCount2 = &FAI_DetailCount2 + 1;
                     &Target_Record.NSLDS_DTL_NBR.Value = &FAI_DetailCount2;
                  When = "3"
                     &FAI_DetailCount3 = &FAI_DetailCount3 + 1;
                     &Target_Record.NSLDS_DTL_NBR.Value = &FAI_DetailCount3;
                  When = "4"
                     &FAI_DetailCount4 = &FAI_DetailCount4 + 1;
                     &Target_Record.NSLDS_DTL_NBR.Value = &FAI_DetailCount4;
                     &Target_Record.NSLDS_PELL_PRCNT.Value = &Target_Record.NSLDS_PELL_PRCNT.Value / 10000;
                     /*Sairamesh-- Critical fix */
                     &Target_Record.SFA_NSG_LVL_PCTUSD.Value = &Target_Record.SFA_NSG_LVL_PCTUSD.Value / 10000;
                     
                  When = "5"
                     &FAI_DetailCount5 = &FAI_DetailCount5 + 1;
                     &Target_Record.NSLDS_DTL_NBR.Value = &FAI_DetailCount5;
                  When = "9"
                     &FAI_TrailerCount = &FAI_TrailerCount + 1;
                     &Target_Record.NSLDS_TRAILER_NBR.Value = &FAI_TrailerCount;
                     &Target_Record.NSLDS_STDNT_COUNT.Value = &FAI_DetailCount1;
                  End-Evaluate;
                  
                  &Result = &SQL1.Execute(&Target_Record);
                  
               End-If;
               
            End-If;
            
         End-For;
         
         &FRS = &FAI_FILE.ReadRowset();
         
      End-While;
      
   End-If;
   &FAI_FILE.Close();
   &Result = UpdateECQueue(&Message_Class, &ecqueueinstance, "I", 0, "L", &ECQ_Control_Nbr);
   
   Return True;
   
End-Function;

PeopleCode (Record): FUNCLIB_ISIR.ISIR09_WARN_STDNT.FieldFormula
Function ISIR09_WARN_STUDENT();
   /*------------------------------------------------------------------------*/
   /*------------------------  ISIR CORRECTION EDITS  -----------------------*/
   /*------------------------------------------------------------------------*/
   If %PanelGroup = PanelGroup.ISIR_CORRPIA08 Then
   If %PanelGroup = PanelGroup.ISIR_CORRPIA09 Then
      &ROW1 = CurrentRowNumber(1);
      &ROW2 = CurrentRowNumber(2);
      &SMTL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.MARITAL_STAT, &ROW2);
      &SMTL = Value(&SMTL);
      &SMAR = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.MARRIED, &ROW2);
      &SMAR = Value(&SMAR);
      &SFAM = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.NUM_FAMILY_MEMBERS, &ROW2);
      &SFAM = Value(&SFAM);
      &SCOL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.NUMBER_IN_COLLEGE, &ROW2);
      &SCOL = Value(&SCOL);
      &DPND = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.DEPNDNCY_STAT, &ROW2);
      &SDEP = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.DEPENDENTS, &ROW2);
      &SSPS = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.SPS_EARNED_INCOME, &ROW2);
      &SSTD = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.STD_EARNED_INCOME, &ROW2);
      &STAX = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.TAX_RETURN_FILED, &ROW2);
      &STAX_FORM = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.TAX_FORM_FILED, &ROW2);
      &SAGI = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.AGI, &ROW2);
      &SORP = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.ORPHAN, &ROW2);
      &SVET = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.VETERAN, &ROW2);
      /*Regs1 0708 */
      &SACT = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.SFA_ACTIVE_DUTY, &ROW2);
      /*Regs1 0708 */
      &SGRD = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.GRADUATE_STUDENT, &ROW2);
      &SDOB = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.DOB_PRIOR, &ROW2);
      &SADM = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.EARLY_ADMISSION, &ROW2);
      &SDEG = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.FIRST_BACH_DEGREE, &ROW2);
      &SLVL = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.CURRENT_GRADE_LVL, &ROW2);
      &RESDT = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.RESIDENCY_DT, &ROW2);
      &SCOL_ASM = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_INTERPRET.ASMPTN_OVR_COL_S, &ROW2);
      &SAGI_ASM = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_INTERPRET.ASMPTN_OVR_AGI_S, &ROW2);
      &SCHOOL_1 = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.SCHOOL_CHOICE_1, &ROW2);
      &OVRD = FetchValue(ISIR_CONTROL.DEPNDNCY_OVERRIDE, &ROW1);
      &CORST = FetchValue(ISIR_CONTROL.CORRECTION_STATUS, &ROW1);
      &CITY = FetchValue(ADDRESSES_EFFVW.CITY, &ROW1);
      &STATE = FetchValue(ADDRESSES_EFFVW.STATE, &ROW1);
      &COUNTRY = FetchValue(ADDRESSES_EFFVW.COUNTRY, &ROW1);
      &STATE_RES = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.STATE_RESIDENCE, &ROW2);
      &CORR_ADDR = FetchValue(ISIR_CONTROL.CORR_ADDRESS, &ROW1);
      &SSN = SEC_A_PD_VW.NATIONAL_ID;
      &TEMP_DOB = SEC_A_PD_VW.BIRTHDATE;
      &CHILDRN = FetchValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.CHILDREN, &ROW2);
      If None(&TEMP_DOB) Then
         &PDOB = 0;
      Else;
         &PDOB = Days(&TEMP_DOB);
      End-If;
      /* Commented for ICE 1743605000
      &TEMP_DATE_1 = DateValue("09/01/1983");
      &DATE_1 = Days(&TEMP_DATE_1);
      &TEMP_DATE_2 = DateValue("01/01/1984");
      &DATE_1 = Days(&TEMP_DATE_1); */
      &TEMP_DATE_2 = DateValue("01/01/1985");
      &DATE_2 = Days(&TEMP_DATE_2);
      &BORN_BEFORE_DT_STR = "01/01/1984";
      &BORN_BEFORE_DT_STR = "01/01/1985";
      &CITIZEN = ISIR_CITIZEN_VW.CITIZENSHIP_STATUS;
      &MAR_STAT = PERSONAL_DATA.MAR_STATUS;
      &ALIEN_REG = ALIEN_REG_VW.VISA_WRKPMT_NBR;
      /*------------------------------------------- */
      /* Tweak Marital Status to convert PS to CPS */
      Evaluate &MAR_STAT
      When = "W"
         &MAR_STAT_CONV = "5";
         Break;
      When = "D"
         &MAR_STAT_CONV = "4";
         Break;
      When = "E"
         &MAR_STAT_CONV = "3";
         Break;
      When = "M"
      When = "C"
         &MAR_STAT_CONV = "2";
         Break;
      When = "S"
      When = "U"
      When = "H"
         &MAR_STAT_CONV = "1";
      End-Evaluate;
      REM;
      /*----- Edit# 906a -----*/
      If (&SMTL = 2 Or
               &SMTL = 3) And
            (&SMAR <> 1) Then
         DERIVED_SA.ISIR_EDIT_CNTR = DERIVED_SA.ISIR_EDIT_CNTR + 1;
         MessageBox(48, "ISIR Edits", 14440, 906, "Marital status does not match value reported on 'Student Married'?.");
      End-If;
      /*----- Edit# 906b -----*/
      If (&SMTL = 1) And
            (&SMAR <> 2) Then
         DERIVED_SA.ISIR_EDIT_CNTR = DERIVED_SA.ISIR_EDIT_CNTR + 1;
         MessageBox(48, "ISIR Edits", 14440, 906, "Marital status does not match value reported value on 'Student Married'?.");
      End-If;
      /*----- Edit# 907 -----*/
      If &MAR_STAT_CONV <> &SMTL Then
         MessageBox(64, "Warning", 14440, 907, "Marital Status does not match value in Personal Data.");
      End-If;
      /*----- Edit# 908 -----*/
      If None(&MAR_STAT_CONV) Then
         MessageBox(64, "Warning", 14440, 908, "Marital Status in Personal Data is blank.");
      End-If;
      /*----- Edit# 909 -----*/
      If &SMTL = 4 Or
            &SMTL = 5 Then
         &SMTL = 1;
         UpdateValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.MARITAL_STAT, &ROW2, "1");
         MessageBox(64, "Warning", 14440, 909, "Re-setting student's marital status to 'Single' per 99/00 FAFSA definition.");
      End-If;
      /*----- Edit# 3049 -----*/
      If None(&STATE_RES) Then
         DERIVED_SA.ISIR_EDIT_CNTR = DERIVED_SA.ISIR_EDIT_CNTR + 1;
         MessageBox(48, "ISIR Edits", 14440, 3049, "Student's state of residence cannot be blank.");
      End-If;
      /*----- Edit# 9002 -----*/
      If None(&SSN) Or
            &SSN = "999999999" Then
         DERIVED_SA.ISIR_EDIT_CNTR = DERIVED_SA.ISIR_EDIT_CNTR + 1;
         MessageBox(48, "ISIR Edits", 14440, 9002, "SSN cannot be blank.");
      End-If;
      /*----- Edit# 9003 -----*/
      /*--COMMENTED OUT REGS 2, 2004 - INAS KNOWS HOW TO DERIVE THE CIT STATUS.     
      If None(&CITIZEN) Or
            &CITIZEN = "N" Then
         DERIVED_SA.ISIR_EDIT_CNTR = DERIVED_SA.ISIR_EDIT_CNTR + 1;
         MessageBox(48, "ISIR Edits", 14440, 9003, "Citizenship status cannot be blank.");
      End-If;*/
      /*----- Edit# 9004 -----*/
      If (&CITIZEN = "3" Or
               &CITIZEN = "4") And
            None(&ALIEN_REG) And
            (&STATE <> "CN" And
               &STATE <> "FM" And
               &STATE <> "MH" And
               &STATE <> "PW") Then
         DERIVED_SA.ISIR_EDIT_CNTR = DERIVED_SA.ISIR_EDIT_CNTR + 1;
         MessageBox(48, "ISIR Edits", 14440, 9004, "Alien Registration number is missing.");
      End-If;
      /*----- Edit# 9006 -----*/
      If None(&SDEG) Then
         DERIVED_SA.ISIR_EDIT_CNTR = DERIVED_SA.ISIR_EDIT_CNTR + 1;
         MessageBox(48, "ISIR Edits", 14440, 9006, "Student's First Bachelor Degree cannot be blank.");
      End-If;
      /*----- Edit# 9007 -----*/
      If None(&SLVL) Then
         DERIVED_SA.ISIR_EDIT_CNTR = DERIVED_SA.ISIR_EDIT_CNTR + 1;
         MessageBox(48, "ISIR Edits", 14440, 9007, "Student's Grade Level in College cannot be blank.");
      End-If;
      /*----- Edit# 9016----- */
      If FieldChanged(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.SCHOOL_CHOICE_1, &ROW2) And
            None(&SCHOOL_1) Then
         DERIVED_SA.ISIR_EDIT_CNTR = DERIVED_SA.ISIR_EDIT_CNTR + 1;
         MessageBox(48, "ISIR Edits", 14440, 9016, "Student's First College Choice cannot be blank.");
      End-If;
      /*----- Edit# 9017 -----*/
      If None(&CITY) And
            &CORR_ADDR = "Y" Then
         DERIVED_SA.ISIR_EDIT_CNTR = DERIVED_SA.ISIR_EDIT_CNTR + 1;
         MessageBox(48, "ISIR Edits", 14440, 9017, "City cannot be blank.");
      End-If;
      /*----- Edit# 9024 -----*/
      If None(&STATE) And
            &COUNTRY = "USA" And
            &CORR_ADDR = "Y" Then
         DERIVED_SA.ISIR_EDIT_CNTR = DERIVED_SA.ISIR_EDIT_CNTR + 1;
         MessageBox(48, "ISIR Edits", 14440, 9024, "State cannot be blank.");
      End-If;
      /*----- Edit# 9027 -----*/
      If &RESDT > %Date Then
         MessageBox(48, "ISIR Edits", 14440, 9027, "Student's residency date cannot be in the future.");
      End-If;
      /*New Check of Birthday and Born Before Indicator for Regs 2B 2003*/
      If &SDOB = "1" Then
         If &PDOB > &DATE_2 Then
            Warning MsgGet(14440, 9071, "Student's birthdate conflicts with the value reported on Born before date.", &BORN_BEFORE_DT_STR);
         End-If;
      Else
         If &PDOB < &DATE_2 Then
            Warning MsgGet(14440, 9072, "Student's birthdate conflicts with the value reported on Born before date.", &BORN_BEFORE_DT_STR);
         End-If;
      End-If;
      /*----- Edit# 1004 -----*/
      If &OVRD = "1" Then
         &DPND = "I";
         UpdateValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.DEPNDNCY_STAT, &ROW2, "I");
         MessageBox(48, "ISIR Edits", 14440, 1004, "Dependency status set to Independent.");
      Else
         Evaluate &DPND
         When = "D"
            /*--- Edit# 1002 ---*/
            If (&SDOB = "1" Or
                     &SVET = "1" Or
                     &SACT = "1" Or
                     &SGRD = "1" Or
                     &SMAR = "1" Or
                     &SORP = "1" Or
                     &SDEP = "1" Or
                     &CHILDRN = "1") Then
               &DPND = "I";
               UpdateValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.DEPNDNCY_STAT, &ROW2, "I");
               MessageBox(48, "ISIR Edits", 14440, 1002, "Dependency status set to Independent.");
            End-If;
            Break;
         When = "I"
            /*--- Edit# 1003 ---*/
            If Not (&SDOB = "1" Or
                     &SVET = "1" Or
                     &SACT = "1" Or
                     &SGRD = "1" Or
                     &SMAR = "1" Or
                     &SORP = "1" Or
                     &SDEP = "1" Or
                     &CHILDRN = "1") Then
               &DPND = "D";
               UpdateValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.DEPNDNCY_STAT, &ROW2, "D");
               MessageBox(48, "ISIR Edits", 14440, 1003, "Dependency status set to Dependent.");
            End-If;
            Break;
         When = ""
            If (&SDOB = "1" Or
                     &SVET = "1" Or
                     &SACT = "1" Or
                     &SGRD = "1" Or
                     &SMAR = "1" Or
                     &SORP = "1" Or
                     &SDEP = "1") Then
               &DPND = "I";
               UpdateValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.DEPNDNCY_STAT, &ROW2, "I");
               MessageBox(48, "ISIR Edits", 14440, 1002, "Dependency status set to Independent.");
            Else
               &DPND = "D";
               UpdateValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.DEPNDNCY_STAT, &ROW2, "D");
               MessageBox(48, "ISIR Edits", 14440, 1003, "Dependency status set to Dependent.");
            End-If;
         End-Evaluate;
      End-If;
      /* */
      Evaluate &DPND
      When = "I"
         /*----- Edit# 904 -----*/
         If (&SCOL > &SFAM) Then
            DERIVED_SA.ISIR_EDIT_CNTR = DERIVED_SA.ISIR_EDIT_CNTR + 1;
            MessageBox(48, "ISIR Edits", 14440, 904, "Student's Number in College cannot be greater than Student's Number in Household.");
         End-If;
         /*----- Edit# 9025 -----*/
         If (&SFAM = 0) Then
            DERIVED_SA.ISIR_EDIT_CNTR = DERIVED_SA.ISIR_EDIT_CNTR + 1;
            MessageBox(48, "ISIR Edits", 14440, 9025, "The Number of Family Members cannot be 0.");
         End-If;
         /*----- Edit# 9026 -----*/
         If (&SCOL = 0) Then
            MessageBox(48, "ISIR Edits", 14440, 9026, "The Number in College cannot be 0.");
         End-If;
         /*----- Edit# 1001 -----*/
         If (&SDEP = "1" And
                  (&SFAM = 0 Or
                     &SFAM = 1)) Then
            &SDEP = "2";
            UpdateValue(Record.ISIR_CONTROL, &ROW1, ISIR_STUDENT.DEPENDENTS, &ROW2, "2");
            MessageBox(48, "ISIR Edits", 14440, 1001, "Assuming 'No' for Students legal dependents based on values from Students number in family and legal dependents = 'Yes'.");
         End-If;
         /*----- Edit# 2022 -----*/
         If (&SFAM = &SCOL) And
               (&SFAM > 2 And
                  &SCOL > 2) And
               (&SCOL_ASM <> "1") Then
            MessageBox(48, "ISIR Edits", 14440, 2022, "Students number in college is equal to number of family members.");
         End-If;
      End-Evaluate;
   End-If;
End-Function;

PeopleCode (Record): INAS_LCL_PLCY.INAS_CALC_TYPE.RowInit
&PNL_GRP = Substring(%PanelGroup, 1, 15);
If &PNL_GRP = "LOCAL_POLICY_PT" Then
   If INAS_LCL_PLCY.AID_YEAR > "2008" Then
      /*--------------------------------------------------------*/
      /*-- When starting a new Aid Year, activate this code   --*/
      /*-- for Regs1 (IM) and deactivate it for FM delivery.  --*/
      /*--------------------------------------------------------*/
      Hide(INAS_LCL_PLCY.INAS_CALC_TYPE);
      /*
      Hide(INAS_CALC_TYPE);
      UnHide(DERIVED_FA.INAS_CALC_TYPE_IM);
      */
      /*--------------------------------------------------------*/
      /*-- When starting a new Aid Year, deactivate this code --*/
      /*-- for Regs1 (IM) and activate it for FM delivery.    --*/
      /*--------------------------------------------------------*/
      /*
      UnHide(INAS_CALC_TYPE);
      UnHide(INAS_LCL_PLCY.INAS_CALC_TYPE);
      Hide(DERIVED_FA.INAS_CALC_TYPE_IM);
      */
   Else
      UnHide(INAS_LCL_PLCY.INAS_CALC_TYPE);
      Hide(DERIVED_FA.INAS_CALC_TYPE_IM);
   End-If;
   /*-----------------------------------------------------*/
   If RecordNew(INAS_LCL_PLCY.INAS_RULE_SET) Then
      Evaluate INAS_LCL_PLCY.AID_YEAR
      When = "2001"
         INAS_LCL_PLCY.INAS_CALC_TYPE = "F";
      When = "2002"
         INAS_LCL_PLCY.INAS_CALC_TYPE = "F";
      When = "2003"
         INAS_LCL_PLCY.INAS_CALC_TYPE = "F";
      When = "2004"
         INAS_LCL_PLCY.INAS_CALC_TYPE = "F";
      When = "2005"
         INAS_LCL_PLCY.INAS_CALC_TYPE = "F";
      When = "2006"
         INAS_LCL_PLCY.INAS_CALC_TYPE = "F";
      When = "2007"
         INAS_LCL_PLCY.INAS_CALC_TYPE = "F";
      When = "2008"
         INAS_LCL_PLCY.INAS_CALC_TYPE = "F";
      When = "2009"
         /*--------------------------------------------------------*/
         /*-- When starting a new Aid Year, activate this code   --*/
         /*-- for Regs1 (IM) and deactivate it for FM delivery.  --*/
         /*--------------------------------------------------------*/
         INAS_LCL_PLCY.INAS_CALC_TYPE = "I";
         /*
         INAS_CALC_TYPE = "I";
         Break;
         */
         /*--------------------------------------------------------*/
         /*-- When starting a new Aid Year, deactivate this code --*/
         /*-- for Regs1 (IM) and activate it for FM delivery.    --*/
         /*--------------------------------------------------------*/
         /*
         INAS_CALC_TYPE = "F";
         */
         INAS_LCL_PLCY.INAS_CALC_TYPE = "F";
      End-Evaluate;
   End-If;
End-If;

PeopleCode (Record): INAS_LCL_PLCY.INAS_DATA_TYPE.RowInit
&PNL_GRP = Substring(%PanelGroup, 1, 15);
If &PNL_GRP = "LOCAL_POLICY_PT" Then
   If INAS_LCL_PLCY.AID_YEAR > "2008" Then
      /*--------------------------------------------------------*/
      /*-- When starting a new Aid Year, activate this code   --*/
      /*-- for Regs1 (IM) and deactivate it for FM delivery.  --*/
      /*--------------------------------------------------------*/
      Hide(INAS_LCL_PLCY.INAS_DATA_TYPE);
      /*
      Hide(INAS_DATA_TYPE);
      UnHide(DERIVED_FA.INAS_DATA_TYPE_IM);
      */
      /*--------------------------------------------------------*/
      /*-- When starting a new Aid Year, deactivate this code --*/
      /*-- for Regs1 (IM) and activate it for FM delivery.    --*/
      /*--------------------------------------------------------*/
      /*
      UnHide(INAS_DATA_TYPE);
      UnHide(INAS_LCL_PLCY.INAS_DATA_TYPE);
      Hide(DERIVED_FA.INAS_DATA_TYPE_IM);
      */
   Else
      UnHide(INAS_LCL_PLCY.INAS_DATA_TYPE);
      Hide(DERIVED_FA.INAS_DATA_TYPE_IM);
   End-If;
   /*-----------------------------------------------------*/
   If RecordNew(INAS_LCL_PLCY.INAS_RULE_SET) Then
      Evaluate INAS_LCL_PLCY.AID_YEAR
      When = "2001"
         INAS_LCL_PLCY.INAS_DATA_TYPE = "F";
      When = "2002"
         INAS_LCL_PLCY.INAS_DATA_TYPE = "F";
      When = "2003"
         INAS_LCL_PLCY.INAS_DATA_TYPE = "F";
      When = "2004"
         INAS_LCL_PLCY.INAS_DATA_TYPE = "F";
      When = "2005"
         INAS_LCL_PLCY.INAS_DATA_TYPE = "F";
      When = "2006"
         INAS_LCL_PLCY.INAS_DATA_TYPE = "F";
      When = "2007"
         INAS_LCL_PLCY.INAS_DATA_TYPE = "F";
      When = "2008"
         INAS_LCL_PLCY.INAS_DATA_TYPE = "F";
      When = "2009"
         /*--------------------------------------------------------*/
         /*-- When starting a new Aid Year, activate this code   --*/
         /*-- for Regs1 (IM) and deactivate it for FM delivery.  --*/
         /*--------------------------------------------------------*/
         INAS_LCL_PLCY.INAS_DATA_TYPE = "I";
         /*
         INAS_DATA_TYPE = "I";
         */
         /*--------------------------------------------------------*/
         /*-- When starting a new Aid Year, deactivate this code --*/
         /*-- for Regs1 (IM) and activate it for FM delivery.    --*/
         /*--------------------------------------------------------*/
         /*
         INAS_DATA_TYPE = "F";
         */
         INAS_LCL_PLCY.INAS_DATA_TYPE = "F";
      End-Evaluate;
   End-If;
End-If;

PeopleCode (Record): INAS_LCL_PLCY.INAS_DATA_TYPE.SaveEdit
&PNL_GRP = Substring(%PanelGroup, 1, 15);
If &PNL_GRP = "LOCAL_POLICY_PT" Then
   &AID_YEAR = INAS_LCL_PLCY.AID_YEAR;
   If INAS_LCL_PLCY.INAS_DATA_TYPE <> "F" Then
      If INAS_LCL_PLCY.INST_APP_SOURCE = "" Or
            INAS_LCL_PLCY.INST_APP_SOURCE = " " Then
         MessageBox(48, "INAS Edit", 14400, 26, "Institutional Application Source cannot be blank.");
         /*-----------------------------------------------------*/
         /*-- When starting a new Aid Year, activate this     --*/
         /*-- code for Regs1 and then deactivate it for FM    --*/
         /*-----------------------------------------------------*/
         /*
         If &AID_YEAR > "2008" Then
            INAS_LCL_PLCY.INAS_DATA_TYPE = "I";
            INAS_DATA_TYPE = "I";
         Else
            INAS_LCL_PLCY.INAS_DATA_TYPE = "F";
            INAS_DATA_TYPE = "F";
         End-If;
         */
         /*-----------------------------------------------------*/
         /*-- When starting a new Aid Year, deactivate this   --*/
         /*-- code for Regs1 and then activate it for FM      --*/
         /*-----------------------------------------------------*/
         /*
         INAS_DATA_TYPE = "F";
         */
         INAS_LCL_PLCY.INAS_DATA_TYPE = "F";
      End-If;
   End-If;
End-If;

PeopleCode (Record): INAS_SIM_09_VW.AID_YEAR.SearchInit
INAS_SIM_09_VW.AID_YEAR = "2009";
Gray(INAS_SIM_09_VW.AID_YEAR);

PeopleCode (Record): INAS_SIM_09_VW.EMPLID.SearchInit
Declare Function check_carry PeopleCode FUNCLIB_CS.CARRY_ID FieldFormula;

If %Mode <> "A" Then
   check_carry(&EMPLID);
   If All(&EMPLID) Then
      INAS_SIM_09_VW.EMPLID = &EMPLID;
   End-If;
Else
   SetDefault(INAS_SIM_09_VW.EMPLID);
End-If;

PeopleCode (Record): INAS_SIM_09_VW.INSTITUTION.SearchInit
SetSearchEdit(INAS_SIM_09_VW.INSTITUTION);
SetSearchDefault(INAS_SIM_09_VW.INSTITUTION);

PeopleCode (Record): INAS_SIM_FEDEX.INAS_RULE_SET.FieldChange
&ROW1 = CurrentRowNumber(1);
&CUROW = 1;

If %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   
   SQLExec("SELECT EMPLID, INAS_RULE_SET FROM PS_INAS_FED_EXT WHERE EMPLID=:1 AND INSTITUTION=:2 AND AID_YEAR=:3", INAS_SIM_FEDEX.EMPLID, INAS_SIM_FEDEX.INSTITUTION, INAS_SIM_FEDEX.AID_YEAR, &FEDEX_EMPLID, &FEDEX_RULE);
   /* WinMessage(" Fed Ext Emplid/Rule Set = " | &FEDEX_EMPLID | "-" | &FEDEX_RULE | " ", 64); */
   
   If All(&FEDEX_EMPLID) And
         (INAS_SIM_FEDEX.INAS_RULE_SET = &FEDEX_RULE) Then
      /*-----------------------------------------------------------------------*/
      /*  If matching Fed Extension row exists, populate Simulation Extension  */
      /*  fields with Fed Extension field values                               */
      /*-----------------------------------------------------------------------*/
      WinMessage(MsgGet(14400, 126, "Populating Simulation Extension row with values from matching Federal Extension row."), 64);
      INAS_SIM_FEDEX.INAS_DATA_TYPE = FetchValue(INAS_FED_EXT.INAS_DATA_TYPE, CurrentRowNumber());
      INAS_SIM_FEDEX.INAS_CALC_TYPE = FetchValue(INAS_FED_EXT.INAS_CALC_TYPE, CurrentRowNumber());
      INAS_SIM_FEDEX.DEPENDENCY_OVERIDE = FetchValue(INAS_FED_EXT.DEPENDENCY_OVERIDE, CurrentRowNumber());
      INAS_SIM_FEDEX.CALC_FED_TAX_S_FM = FetchValue(INAS_FED_EXT.CALC_FED_TAX_S_FM, CurrentRowNumber());
      INAS_SIM_FEDEX.CALC_FED_TAX_P_FM = FetchValue(INAS_FED_EXT.CALC_FED_TAX_P_FM, CurrentRowNumber());
      INAS_SIM_FEDEX.CALC_PC_FOR_IND = FetchValue(INAS_FED_EXT.CALC_PC_FOR_IND, CurrentRowNumber());
      INAS_SIM_FEDEX.ALWNC_TUIT_S = FetchValue(INAS_FED_EXT.ALWNC_TUIT_S, CurrentRowNumber());
      INAS_SIM_FEDEX.ALWNC_MED_DENT_S = FetchValue(INAS_FED_EXT.ALWNC_MED_DENT_S, CurrentRowNumber());
      INAS_SIM_FEDEX.ALWNC_OTHER_S = FetchValue(INAS_FED_EXT.ALWNC_OTHER_S, CurrentRowNumber());
      INAS_SIM_FEDEX.ASSET_ALWNC_S = FetchValue(INAS_FED_EXT.ASSET_ALWNC_S, CurrentRowNumber());
      INAS_SIM_FEDEX.ASSET_OTHER = FetchValue(INAS_FED_EXT.ASSET_OTHER, CurrentRowNumber());
      INAS_SIM_FEDEX.ALWNC_TUIT_P = FetchValue(INAS_FED_EXT.ALWNC_TUIT_P, CurrentRowNumber());
      INAS_SIM_FEDEX.ALWNC_MED_DENT_P = FetchValue(INAS_FED_EXT.ALWNC_MED_DENT_P, CurrentRowNumber());
      INAS_SIM_FEDEX.ALWNC_OTHER_P = FetchValue(INAS_FED_EXT.ALWNC_OTHER_P, CurrentRowNumber());
      INAS_SIM_FEDEX.ASSET_ALWNC_P = FetchValue(INAS_FED_EXT.ASSET_ALWNC_P, CurrentRowNumber());
      INAS_SIM_FEDEX.ASSET_OTHER_P = FetchValue(INAS_FED_EXT.ASSET_OTHER_P, CurrentRowNumber());
      INAS_SIM_FEDEX.ADJ_EFC_AMT = FetchValue(INAS_FED_EXT.ADJ_EFC_AMT, CurrentRowNumber());
      INAS_SIM_FEDEX.EIC_OVERRIDE_S = FetchValue(INAS_FED_EXT.EIC_OVERRIDE_S, CurrentRowNumber());
      INAS_SIM_FEDEX.EIC_OVERRIDE_P = FetchValue(INAS_FED_EXT.EIC_OVERRIDE_P, CurrentRowNumber());
      INAS_SIM_FEDEX.PAR_NO_CLG_OVRRD = FetchValue(INAS_FED_EXT.PAR_NO_CLG_OVRRD, CurrentRowNumber());
      INAS_SIM_FEDEX.BIRTH_YR_REJ_OVRRD = FetchValue(INAS_FED_EXT.BIRTH_YR_REJ_OVRRD, CurrentRowNumber());
      INAS_SIM_FEDEX.BUDGET_DURATION = FetchValue(INAS_FED_EXT.BUDGET_DURATION, CurrentRowNumber());
      INAS_SIM_FEDEX.BUDGET_DURATION_A = FetchValue(INAS_FED_EXT.BUDGET_DURATION_A, CurrentRowNumber());
      INAS_SIM_FEDEX.BUDGET_DURATION_N = FetchValue(INAS_FED_EXT.BUDGET_DURATION_N, CurrentRowNumber());
      INAS_SIM_FEDEX.OVRD_SC_AMT_A = FetchValue(INAS_FED_EXT.OVRD_SC_AMT_A, CurrentRowNumber());
      INAS_SIM_FEDEX.OVRD_SC_AMT_N = FetchValue(INAS_FED_EXT.OVRD_SC_AMT_N, CurrentRowNumber());
      INAS_SIM_FEDEX.OVRD_SC_AMT = FetchValue(INAS_FED_EXT.OVRD_SC_AMT, CurrentRowNumber());
      INAS_SIM_FEDEX.OVRD_PC_AMT_A = FetchValue(INAS_FED_EXT.OVRD_PC_AMT_A, CurrentRowNumber());
      INAS_SIM_FEDEX.OVRD_PC_AMT_N = FetchValue(INAS_FED_EXT.OVRD_PC_AMT_N, CurrentRowNumber());
      INAS_SIM_FEDEX.OVRD_PC_AMT = FetchValue(INAS_FED_EXT.OVRD_PC_AMT, CurrentRowNumber());
      INAS_SIM_FEDEX.OVRD_EFC_AMT_A = FetchValue(INAS_FED_EXT.OVRD_EFC_AMT_A, CurrentRowNumber());
      INAS_SIM_FEDEX.OVRD_EFC_AMT_N = FetchValue(INAS_FED_EXT.OVRD_EFC_AMT_N, CurrentRowNumber());
      INAS_SIM_FEDEX.OVRD_EFC_AMT = FetchValue(INAS_FED_EXT.OVRD_EFC_AMT, CurrentRowNumber());
      INAS_SIM_FEDEX.USE_EFC_OVERRIDE = FetchValue(INAS_FED_EXT.USE_EFC_OVERRIDE, CurrentRowNumber());
      INAS_SIM_FEDEX.FM_EFC_PRORTN_ACAD = FetchValue(INAS_FED_EXT.FM_EFC_PRORTN_ACAD, CurrentRowNumber());
      INAS_SIM_FEDEX.FM_EFC_PRORTN_NSTD = FetchValue(INAS_FED_EXT.FM_EFC_PRORTN_NSTD, CurrentRowNumber());
      INAS_SIM_FEDEX.SSN_NO_DOB_REJ_OVR = FetchValue(INAS_FED_EXT.SSN_NO_DOB_REJ_OVR, CurrentRowNumber());
      INAS_SIM_FEDEX.SSN_D_NAME_REJ_OVR = FetchValue(INAS_FED_EXT.SSN_D_NAME_REJ_OVR, CurrentRowNumber());
      INAS_SIM_FEDEX.SSN_M_NAME_REJ_OVR = FetchValue(INAS_FED_EXT.SSN_M_NAME_REJ_OVR, CurrentRowNumber());
      INAS_SIM_FEDEX.SSN_NONM_REJ_OVR = FetchValue(INAS_FED_EXT.SSN_NONM_REJ_OVR, CurrentRowNumber());
      INAS_SIM_FEDEX.SSN_D_NONM_REJ_OVR = FetchValue(INAS_FED_EXT.SSN_D_NONM_REJ_OVR, CurrentRowNumber());
      INAS_SIM_FEDEX.SSN_M_NONM_REJ_OVR = FetchValue(INAS_FED_EXT.SSN_M_NONM_REJ_OVR, CurrentRowNumber());
      If INAS_SIM_FEDEX.FM_EFC_PRORTN_ACAD = "2" Then
         UnHide(INAS_SIM_FEDEX.FM_EFC_PRORTN_NSTD);
      Else
         Hide(INAS_SIM_FEDEX.FM_EFC_PRORTN_NSTD);
      End-If;
   Else
      /*-----------------------------------------------------------------------*/
      /*  If a matching Fed Extension row does not exist, populate Simulation  */
      /*  Extension fields with Local Policy Option field values               */
      /*-----------------------------------------------------------------------*/
      WinMessage(MsgGet(14400, 127, "No matching Fed Extension row. Populating Simulation Extension row from Local Policy Options."), 64);
      
      ScrollFlush(Record.INAS_LCL_PLCY);
      REM;
      ScrollSelect(1, Record.INAS_LCL_PLCY, Record.INAS_LCL_PLCY, "where institution = :1 and aid_year = :2 and inas_rule_set = :3", INAS_SIM_FEDEX.INSTITUTION, INAS_SIM_FEDEX.AID_YEAR, INAS_SIM_FEDEX.INAS_RULE_SET);
      /*-------------------------------------------------------------------*/
      /*---        Retrieve EFC Components from STDNT_AWD_PER table     ---*/
      /*-------------------------------------------------------------------*/
      SQLExec("SELECT INST_PARENT_CONTRB, INST_STDNT_CONTRB, INST_EFC, PRORATED_PAR_CNTRB, PRORATED_STU_CNTRB, PRORATED_EFC FROM PS_STDNT_AWD_PER WHERE EMPLID=:1 AND INSTITUTION=:2 AND AID_YEAR=:3 AND AWARD_PERIOD=:4", INAS_SIM_FEDEX.EMPLID, INAS_SIM_FEDEX.INSTITUTION, INAS_SIM_FEDEX.AID_YEAR, "A", &INST_PC_A, &INST_SC_A, &INST_EFC_A, &PRO_PC_A, &PRO_SC_A, &PRO_EFC_A);
      /*-------------------------------------------------------------------*/
      SQLExec("SELECT INST_PARENT_CONTRB, INST_STDNT_CONTRB, INST_EFC, PRORATED_PAR_CNTRB, PRORATED_STU_CNTRB, PRORATED_EFC FROM PS_STDNT_AWD_PER WHERE EMPLID=:1 AND INSTITUTION=:2 AND AID_YEAR=:3 AND AWARD_PERIOD=:4", INAS_SIM_FEDEX.EMPLID, INAS_SIM_FEDEX.INSTITUTION, INAS_SIM_FEDEX.AID_YEAR, "N", &INST_PC_N, &INST_SC_N, &INST_EFC_N, &PRO_PC_N, &PRO_SC_N, &PRO_EFC_N);
      /*-------------------------------------------------------------------*/
      /*---      Retrieve Dependency Status from STUDENT_AID table      ---*/
      /*-------------------------------------------------------------------*/
      SQLExec("SELECT FED_DEPEND_STAT, INST_DEPEND_STAT FROM PS_STUDENT_AID WHERE EMPLID=:1 AND INSTITUTION=:2 AND AID_YEAR=:3", INAS_SIM_FEDEX.EMPLID, INAS_SIM_FEDEX.INSTITUTION, INAS_SIM_FEDEX.AID_YEAR, &FDEP, &IDEP);
      If None(&FDEP) Then
         If None(&IDEP) Then
            &FDEP = "D";
         Else
            &FDEP = &IDEP;
         End-If;
      End-If;
      /*-------------------------------------------------------------------*/
      INAS_SIM_FEDEX.INAS_DATA_TYPE = FetchValue(INAS_LCL_PLCY.INAS_DATA_TYPE, CurrentRowNumber());
      INAS_SIM_FEDEX.INAS_CALC_TYPE = FetchValue(INAS_LCL_PLCY.INAS_CALC_TYPE, CurrentRowNumber());
      INAS_SIM_FEDEX.CALC_FED_TAX_S_FM = FetchValue(INAS_LCL_PLCY.CALC_FED_TAX_S_FM, CurrentRowNumber());
      INAS_SIM_FEDEX.CALC_FED_TAX_P_FM = FetchValue(INAS_LCL_PLCY.CALC_FED_TAX_P_FM, CurrentRowNumber());
      INAS_SIM_FEDEX.CALC_PC_FOR_IND = FetchValue(INAS_LCL_PLCY.CALC_PC_IND_FM, CurrentRowNumber());
      
      If &FDEP = "D" Then
         INAS_SIM_FEDEX.BUDGET_DURATION = FetchValue(INAS_LCL_PLCY.DEP_BDGT_DUR_FM, CurrentRowNumber());
         INAS_SIM_FEDEX.BUDGET_DURATION_A = FetchValue(INAS_LCL_PLCY.DEP_BDGT_DUR_FM_A, CurrentRowNumber());
         INAS_SIM_FEDEX.BUDGET_DURATION_N = FetchValue(INAS_LCL_PLCY.DEP_BDGT_DUR_FM_N, CurrentRowNumber());
      Else
         INAS_SIM_FEDEX.BUDGET_DURATION = FetchValue(INAS_LCL_PLCY.IND_BDGT_DUR_FM, CurrentRowNumber());
         INAS_SIM_FEDEX.BUDGET_DURATION_A = FetchValue(INAS_LCL_PLCY.IND_BDGT_DUR_FM_A, CurrentRowNumber());
         INAS_SIM_FEDEX.BUDGET_DURATION_N = FetchValue(INAS_LCL_PLCY.IND_BDGT_DUR_FM_N, CurrentRowNumber());
      End-If;
      
      INAS_SIM_FEDEX.OVRD_PC_AMT_A = &PRO_PC_A;
      INAS_SIM_FEDEX.OVRD_SC_AMT_A = &PRO_SC_A;
      INAS_SIM_FEDEX.OVRD_EFC_AMT_A = &PRO_EFC_A;
      INAS_SIM_FEDEX.OVRD_PC_AMT_N = &PRO_PC_N;
      INAS_SIM_FEDEX.OVRD_SC_AMT_N = &PRO_SC_N;
      INAS_SIM_FEDEX.OVRD_EFC_AMT_N = &PRO_EFC_N;
      INAS_SIM_FEDEX.OVRD_PC_AMT = &PRO_PC_A + &PRO_PC_N;
      If INAS_SIM_FEDEX.OVRD_PC_AMT > 99999 Then
         INAS_SIM_FEDEX.OVRD_PC_AMT = 99999;
      End-If;
      INAS_SIM_FEDEX.OVRD_SC_AMT = &PRO_SC_A + &PRO_SC_N;
      If INAS_SIM_FEDEX.OVRD_SC_AMT > 99999 Then
         INAS_SIM_FEDEX.OVRD_SC_AMT = 99999;
      End-If;
      &OVRD_EFC_AMT = &PRO_EFC_A + &PRO_EFC_N;
      If &OVRD_EFC_AMT > 99999 Then
         INAS_SIM_FEDEX.OVRD_EFC_AMT = 99999;
      Else
         INAS_SIM_FEDEX.OVRD_EFC_AMT = &OVRD_EFC_AMT;
      End-If;
      INAS_SIM_FEDEX.FM_EFC_PRORTN_ACAD = FetchValue(INAS_LCL_PLCY.FM_EFC_PRORTN_ACAD, CurrentRowNumber());
      INAS_SIM_FEDEX.FM_EFC_PRORTN_NSTD = FetchValue(INAS_LCL_PLCY.FM_EFC_PRORTN_NSTD, CurrentRowNumber());
      If INAS_SIM_FEDEX.FM_EFC_PRORTN_ACAD = "2" Then
         UnHide(INAS_SIM_FEDEX.FM_EFC_PRORTN_NSTD);
      Else
         Hide(INAS_SIM_FEDEX.FM_EFC_PRORTN_NSTD);
      End-If;
   End-If;
End-If;

PeopleCode (Record): INAS_SIM_INT.CORRECTION_STATUS.FieldChange
If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If INAS_SIM_INT.CORRECTION_STATUS = "3" Or
         INAS_SIM_INT.CORRECTION_STATUS = "4" Or
         INAS_SIM_INT.CORRECTION_STATUS = "5" Then
      Error (MsgGet(14400, 130, "Correction Status must be 'Send', 'Don't Send' or 'Pending' in Simulation mode."));
   End-If;
End-If;

PeopleCode (Record): INAS_SIM_INT.DEPNDNCY_OVERRIDE.FieldChange
If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If INAS_SIM_INT.DEPNDNCY_OVERRIDE = "3" Then
      Error (MsgGet(14400, 125, "Dependency Override Indicator cannot be set to 'Override Failed' in Simulation mode."));
   End-If;
End-If;

PeopleCode (Record): INAS_SIM_PAR.AGI.RowInit
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If INAS_SIM_PAR.BLANK_AGI = "Y" Then
      DERIVED_SA_PAR.CHAR_AGI = "";
      INAS_SIM_PAR.AGI = 0;
   Else
      &Value = Value(INAS_SIM_PAR.AGI);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      DERIVED_SA_PAR.CHAR_AGI = &Char;
   End-If;
End-If;

PeopleCode (Record): INAS_SIM_PAR.CASH_SAVINGS.RowInit
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If INAS_SIM_PAR.BLANK_CASH_SAV = "Y" Then
      DERIVED_SA_PAR.CHAR_CASH_SAV = "";
      INAS_SIM_PAR.CASH_SAVINGS = 0;
   Else
      &Value = Value(INAS_SIM_PAR.CASH_SAVINGS);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      DERIVED_SA_PAR.CHAR_CASH_SAV = &Char;
   End-If;
End-If;

PeopleCode (Record): INAS_SIM_PAR.FATHER_INCOME.RowInit
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If INAS_SIM_PAR.BLANK_FATHER_INC = "Y" Then
      DERIVED_SA_PAR.CHAR_FATHER_INC = "";
      INAS_SIM_PAR.FATHER_INCOME = 0;
   Else
      &Value = Value(INAS_SIM_PAR.FATHER_INCOME);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      DERIVED_SA_PAR.CHAR_FATHER_INC = &Char;
   End-If;
End-If;

PeopleCode (Record): INAS_SIM_PAR.INV_NET_WORTH.RowInit
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If INAS_SIM_PAR.BLANK_INV_NET_WRTH = "Y" Then
      DERIVED_SA_PAR.CHAR_INV_NET_WORTH = "";
      INAS_SIM_PAR.INV_NET_WORTH = 0;
   Else
      &Value = Value(INAS_SIM_PAR.INV_NET_WORTH);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      DERIVED_SA_PAR.CHAR_INV_NET_WORTH = &Char;
   End-If;
End-If;

PeopleCode (Record): INAS_SIM_PAR.MOTHER_INCOME.RowInit
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If INAS_SIM_PAR.BLANK_MOTHER_INC = "Y" Then
      DERIVED_SA_PAR.CHAR_MOTHER_INC = "";
      INAS_SIM_PAR.MOTHER_INCOME = 0;
   Else
      &Value = Value(INAS_SIM_PAR.MOTHER_INCOME);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      DERIVED_SA_PAR.CHAR_MOTHER_INC = &Char;
   End-If;
End-If;

PeopleCode (Record): INAS_SIM_PAR.TAXES_PAID.RowInit
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If INAS_SIM_PAR.BLANK_TAXES_PAID = "Y" Then
      DERIVED_SA_PAR.CHAR_TAXES_PAID = "";
      INAS_SIM_PAR.TAXES_PAID = 0;
   Else
      &Value = Value(INAS_SIM_PAR.TAXES_PAID);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      DERIVED_SA_PAR.CHAR_TAXES_PAID = &Char;
   End-If;
End-If;

PeopleCode (Record): INAS_SIM_PAR.TOTAL_FROM_WKA.RowInit
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If INAS_SIM_PAR.BLANK_TOT_FROM_WKA = "Y" Then
      DERIVED_SA_PAR.CHAR_TOT_FROM_WKA = "";
      INAS_SIM_PAR.TOTAL_FROM_WKA = 0;
   Else
      &Value = Value(INAS_SIM_PAR.TOTAL_FROM_WKA);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      If &Length = 7 Then
         DERIVED_SA_PAR.CHAR_TOT_FROM_WKA = Substring(&Char, 2, 5);
      Else
         DERIVED_SA_PAR.CHAR_TOT_FROM_WKA = &Char;
      End-If;
   End-If;
End-If;

PeopleCode (Record): INAS_SIM_PAR.TOTAL_FROM_WS3.RowInit
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If INAS_SIM_PAR.BLANK_TOT_FROM_WS3 = "Y" Then
      DERIVED_SA_PAR.CHAR_TOT_FROM_WS3 = "";
      INAS_SIM_PAR.TOTAL_FROM_WS3 = 0;
   Else
      &Value = Value(INAS_SIM_PAR.TOTAL_FROM_WS3);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      DERIVED_SA_PAR.CHAR_TOT_FROM_WS3 = &Char;
   End-If;
End-If;

PeopleCode (Record): INAS_SIM_STU.AGI.RowInit
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If INAS_SIM_STU.BLANK_AGI = "Y" Then
      DERIVED_SA_STU.CHAR_AGI = "";
      INAS_SIM_STU.AGI = 0;
   Else
      &Value = Value(INAS_SIM_STU.AGI);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      DERIVED_SA_STU.CHAR_AGI = &Char;
   End-If;
End-If;

PeopleCode (Record): INAS_SIM_STU.CASH_SAVINGS.RowInit
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If INAS_SIM_STU.BLANK_CASH_SAV = "Y" Then
      DERIVED_SA_STU.CHAR_CASH_SAV = "";
      INAS_SIM_STU.CASH_SAVINGS = 0;
   Else
      &Value = Value(INAS_SIM_STU.CASH_SAVINGS);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      DERIVED_SA_STU.CHAR_CASH_SAV = &Char;
   End-If;
End-If;

PeopleCode (Record): INAS_SIM_STU.INV_NET_WORTH.RowInit
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If INAS_SIM_STU.BLANK_INV_NET_WRTH = "Y" Then
      DERIVED_SA_STU.CHAR_INV_NET_WORTH = "";
      INAS_SIM_STU.INV_NET_WORTH = 0;
   Else
      &Value = Value(INAS_SIM_STU.INV_NET_WORTH);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      DERIVED_SA_STU.CHAR_INV_NET_WORTH = &Char;
   End-If;
End-If;

PeopleCode (Record): INAS_SIM_STU.SPS_EARNED_INCOME.RowInit
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If INAS_SIM_STU.BLANK_SPS_EARN_INC = "Y" Then
      DERIVED_SA_STU.CHAR_SPS_EARN_INC = "";
      INAS_SIM_STU.SPS_EARNED_INCOME = 0;
   Else
      &Value = Value(INAS_SIM_STU.SPS_EARNED_INCOME);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      DERIVED_SA_STU.CHAR_SPS_EARN_INC = &Char;
   End-If;
End-If;

PeopleCode (Record): INAS_SIM_STU.STD_EARNED_INCOME.RowInit
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If INAS_SIM_STU.BLANK_STD_EARN_INC = "Y" Then
      DERIVED_SA_STU.CHAR_STD_EARN_INC = "";
      INAS_SIM_STU.STD_EARNED_INCOME = 0;
   Else
      &Value = Value(INAS_SIM_STU.STD_EARNED_INCOME);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      DERIVED_SA_STU.CHAR_STD_EARN_INC = &Char;
   End-If;
End-If;

PeopleCode (Record): INAS_SIM_STU.TAXES_PAID.RowInit
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If INAS_SIM_STU.BLANK_TAXES_PAID = "Y" Then
      DERIVED_SA_STU.CHAR_TAXES_PAID = "";
      INAS_SIM_STU.TAXES_PAID = 0;
   Else
      &Value = Value(INAS_SIM_STU.TAXES_PAID);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      DERIVED_SA_STU.CHAR_TAXES_PAID = &Char;
   End-If;
End-If;

PeopleCode (Record): INAS_SIM_STU.TOTAL_FROM_WKA.RowInit
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If INAS_SIM_STU.BLANK_TOT_FROM_WKA = "Y" Then
      DERIVED_SA_STU.CHAR_TOT_FROM_WKA = "";
      INAS_SIM_STU.TOTAL_FROM_WKA = 0;
   Else
      &Value = Value(INAS_SIM_STU.TOTAL_FROM_WKA);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      &Length = Len(&Char);
      If &Length = 7 Then
         DERIVED_SA_STU.CHAR_TOT_FROM_WKA = Substring(&Char, 2, 5);
      Else
         DERIVED_SA_STU.CHAR_TOT_FROM_WKA = &Char;
      End-If;
   End-If;
End-If;

PeopleCode (Record): INAS_SIM_STU.TOTAL_FROM_WS3.FieldEdit
If (%PanelGroup = PanelGroup.INAS_SIMULATION_02 Or
         %PanelGroup = PanelGroup.INAS_SIMULATION_03 Or
         %PanelGroup = PanelGroup.INAS_SIMULATION_04 Or
         %PanelGroup = PanelGroup.INAS_SIMULATION_05 Or
         %PanelGroup = PanelGroup.INAS_SIMULATION_06 Or
         %PanelGroup = PanelGroup.INAS_SIMULATION_07 Or
         %PanelGroup = PanelGroup.INAS_SIMULATION_08) And
         %PanelGroup = PanelGroup.INAS_SIMULATION_08 Or
         %PanelGroup = PanelGroup.INAS_SIMULATION_09) And
      (INAS_SIM_STU.TOTAL_FROM_WS3 > 99999 Or
         INAS_SIM_STU.TOTAL_FROM_WS3 < - 99999) Then
   Error MsgGet(14440, 3050, "Worksheet B cannot be greater than 99,999");
End-If;

PeopleCode (Record): INAS_SIM_STU.TOTAL_FROM_WS3.RowInit
Declare Function ISIR_ADD_COMMA PeopleCode FUNCLIB_ISIR.ISIR_ADD_COMMA FieldFormula;

If %Component = Component.INAS_SIMULATION_03 Or
      %Component = Component.INAS_SIMULATION_04 Or
      %Component = Component.INAS_SIMULATION_05 Or
      %Component = Component.INAS_SIMULATION_06 Or
      %Component = Component.INAS_SIMULATION_07 Or
      %Component = Component.INAS_SIMULATION_08 Then
      %Component = Component.INAS_SIMULATION_08 Or
      %Component = Component.INAS_SIMULATION_09 Then
   If INAS_SIM_STU.BLANK_TOT_FROM_WS3 = "Y" Then
      DERIVED_SA_STU.CHAR_TOT_FROM_WS3 = "";
      INAS_SIM_STU.TOTAL_FROM_WS3 = 0;
   Else
      &Value = Value(INAS_SIM_STU.TOTAL_FROM_WS3);
      &Char = String(&Value);
      ISIR_ADD_COMMA(&Char, &Value);
      DERIVED_SA_STU.CHAR_TOT_FROM_WS3 = &Char;
   End-If;
End-If;

PeopleCode (Record): ISIR_COMPUTED.VALID_EFC_CALC.RowInit
&PANELGROUP = Substring(%PanelGroup, 1, 9);
If %PanelGroup = PanelGroup.ISIR_EFC_SUMRY_DET Or
      %PanelGroup = PanelGroup.ISIR_EFC_SMRY_DT01 Or
      %PanelGroup = PanelGroup.ISIR_EFC_SMRY_DT02 Or
      %PanelGroup = PanelGroup.ISIR_EFC_SMRY_DT03 Or
      %PanelGroup = PanelGroup.ISIR_EFC_SMRY_DT04 Or
      %PanelGroup = PanelGroup.ISIR_EFC_SMRY_DT05 Or
      %PanelGroup = PanelGroup.ISIR_EFC_SMRY_DT06 Or
      %PanelGroup = PanelGroup.ISIR_EFC_SMRY_DT07 Or
      %PanelGroup = PanelGroup.ISIR_EFC_SMRY_DT08 Or
      %PanelGroup = PanelGroup.ISIR_EFC_SMRY_DT09 Or
      %PanelGroup = PanelGroup.EFC_ASSMPTN_FAA_DB Or
      &PANELGROUP = "ISIR_CORR" Then
   If ISIR_COMPUTED.VALID_EFC_CALC = "Y" Then
      Hide(DERIVED_SA_COMP.NO_EFC_CALC);
      UnHide(ISIR_COMPUTED.PRIMARY_EFC);
      UnHide(ISIR_COMPUTED.PRORATED_EFC);
      UnHide(ISIR_COMPUTED.ISIR_CALC_EFC);
      UnHide(ISIR_COMPUTED.ISIR_CALC_PC);
      UnHide(ISIR_COMPUTED.ISIR_CALC_SC);
   Else
      Hide(ISIR_COMPUTED.PRIMARY_EFC);
      Hide(ISIR_COMPUTED.PRORATED_EFC);
      Hide(ISIR_COMPUTED.ISIR_CALC_EFC);
      Hide(ISIR_COMPUTED.ISIR_CALC_PC);
      Hide(ISIR_COMPUTED.ISIR_CALC_SC);
      UnHide(DERIVED_SA_COMP.NO_EFC_CALC);
   End-If;
End-If;

PeopleCode (Record): ISIR_CONTROL.INAS_RFC_CALL.FieldChange
&PANELGROUP = %PanelGroup;
&PANELGROUP = Substring(&PANELGROUP, 1, 12);
If &PANELGROUP = "ISIR_CORRPIA" And
      CurrentRowNumber(1) <> 1 Then
   ISIR_CONTROL.INAS_RFC_CALL.Enabled = False;
   MessageBox(1, "", 14400, 331, "INAS can only calculate an EFC for the current effective dated row.");

Else
   &PANELGROUP = Substring(%PanelGroup, 1, 9);
   If &PANELGROUP = "ISIR_CORR" Or
         %PanelGroup = PanelGroup.INAS_SIMULATION Or
         %PanelGroup = PanelGroup.INAS_SIMULATION_00 Or
         %PanelGroup = PanelGroup.INAS_SIMULATION_01 Or
         %PanelGroup = PanelGroup.INAS_SIMULATION_02 Or
         %PanelGroup = PanelGroup.INAS_SIMULATION_03 Or
         %PanelGroup = PanelGroup.INAS_SIMULATION_04 Or
         %PanelGroup = PanelGroup.INAS_SIMULATION_05 Or
         %PanelGroup = PanelGroup.INAS_SIMULATION_06 Or
         %PanelGroup = PanelGroup.INAS_SIMULATION_07 Or
         %PanelGroup = PanelGroup.INAS_SIMULATION_08 Or
         %PanelGroup = PanelGroup.INAS_SIMULATION_09 Or
         %PanelGroup = PanelGroup.EFC_ASSMPTN_FAA_DB Then
      If PanelGroupChanged() Then
         DERIVED_SA_INAS.NEED_INAS_CALC_IND = "N";
         DoSaveNow();
      End-If;
      &EMPLID_IN = ISIR_CONTROL.EMPLID;
      &INST_IN = ISIR_CONTROL.INSTITUTION;
      &AID_YEAR_IN = ISIR_CONTROL.AID_YEAR;
      If %PanelGroup = PanelGroup.INAS_SIMULATION Or
            %PanelGroup = PanelGroup.INAS_SIMULATION_00 Or
            %PanelGroup = PanelGroup.INAS_SIMULATION_01 Or
            %PanelGroup = PanelGroup.INAS_SIMULATION_02 Or
            %PanelGroup = PanelGroup.INAS_SIMULATION_03 Or
            %PanelGroup = PanelGroup.INAS_SIMULATION_04 Or
            %PanelGroup = PanelGroup.INAS_SIMULATION_05 Or
            %PanelGroup = PanelGroup.INAS_SIMULATION_06 Or
            %PanelGroup = PanelGroup.INAS_SIMULATION_07 Or
            %PanelGroup = PanelGroup.INAS_SIMULATION_08 Then
            %PanelGroup = PanelGroup.INAS_SIMULATION_08 Or
            %PanelGroup = PanelGroup.INAS_SIMULATION_09 Then
         &RUNTYPE = "S";
      Else
         &RUNTYPE = "R";
      End-If;
      rem;
      If &AID_YEAR_IN = "2007" Or
            &AID_YEAR_IN = "2008" Then
            &AID_YEAR_IN = "2008" Or
            &AID_YEAR_IN = "2009" Then
         &EFC_STAT = ISIR_CONTROL.EFC_STATUS;
         /* 
   Perform Remote Call of INAS if EFC Status of ISIR row is not 'Rejected' 
  */
         If &EFC_STAT <> "R" Then
            RemoteCall("PSRCCBL", "PSCOBOLPROG", "FAPINASR", "EMPLID", &EMPLID_IN, "INSTITUTION", &INST_IN, "AIDYEAR", &AID_YEAR_IN, "FEDEFC", &FED_EFC_OUT, "INSTEFC", &INST_EFC_OUT, "RC", &RTN_CODE, "RUNTYPE", &RUNTYPE);
            rem;
            /* 
         Refresh the EFC values after calling INAS - Only for ISIR Corrections. 
 */
            If &PANELGROUP = "ISIR_CORR" Then
               
               &EMPLID = ISIR_CONTROL.EMPLID;
               &INST = ISIR_CONTROL.INSTITUTION;
               &AIDYEAR = ISIR_CONTROL.AID_YEAR;
               &EFFDT = ISIR_CONTROL.EFFDT;
               &EFFSEQ = ISIR_CONTROL.EFFSEQ;
               ScrollFlush(Record.ISIR_CONTROL);
               ScrollSelect(1, Record.ISIR_CONTROL, Record.ISIR_CONTROL, "WHERE EMPLID =:1 AND INSTITUTION =:2 AND AID_YEAR =:3", &EMPLID, &INST, &AIDYEAR);
               /*
            ScrollFlush(Record.ISIR_CONTROL, CurrentRowNumber(1), Record.ISIR_COMPUTED);
            ScrollSelect(2, Record.ISIR_CONTROL, Record.ISIR_COMPUTED, Record.ISIR_COMPUTED, "WHERE EMPLID =:1 AND INSTITUTION =:2 AND AID_YEAR =:3 AND EFFDT = :4 AND EFFSEQ = :5", &EMPLID, &INST, &AIDYEAR, &EFFDT, &EFFSEQ);
            ScrollFlush(Record.ISIR_CONTROL, CurrentRowNumber(1), Record.ISIR_STUDENT);
            ScrollSelect(2, Record.ISIR_CONTROL, Record.ISIR_STUDENT, Record.ISIR_STUDENT, "WHERE EMPLID =:1 AND INSTITUTION =:2 AND AID_YEAR =:3 AND EFFDT = :4 AND EFFSEQ = :5", &EMPLID, &INST, &AIDYEAR, &EFFDT, &EFFSEQ);*/
               /*
            ScrollFlush(Record.ISIR_CONTROL, CurrentRowNumber(), Record.STDNT_AWD_PER);
            ScrollSelect(2, Record.ISIR_CONTROL, Record.STDNT_AWD_PER, Record.STDNT_AWD_PER, "WHERE EMPLID =:1 AND INSTITUTION =:2 AND AID_YEAR =:3", &EMPLID, &INST, &AIDYEAR);
*/
               ScrollFlush(Record.ISIR_CONTROL, CurrentRowNumber(), Record.STDNT_AWP_AIDVW);
               ScrollSelect(2, Record.ISIR_CONTROL, Record.STDNT_AWP_AIDVW, Record.STDNT_AWP_AIDVW, "WHERE EMPLID =:1 AND INSTITUTION =:2 AND AID_YEAR =:3", &EMPLID, &INST, &AIDYEAR);
            End-If;
            rem;
            Evaluate &RTN_CODE
            When 0
               DERIVED_SA.FED_EFC = &FED_EFC_OUT;
               DERIVED_SA.INST_EFC = &INST_EFC_OUT;
               If %PanelGroup = PanelGroup.INAS_SIMULATION Or
                     %PanelGroup = PanelGroup.INAS_SIMULATION_00 Or
                     %PanelGroup = PanelGroup.INAS_SIMULATION_01 Or
                     %PanelGroup = PanelGroup.INAS_SIMULATION_02 Or
                     %PanelGroup = PanelGroup.INAS_SIMULATION_03 Or
                     %PanelGroup = PanelGroup.INAS_SIMULATION_04 Or
                     %PanelGroup = PanelGroup.INAS_SIMULATION_05 Or
                     %PanelGroup = PanelGroup.INAS_SIMULATION_06 Or
                     %PanelGroup = PanelGroup.INAS_SIMULATION_07 Or
                     %PanelGroup = PanelGroup.INAS_SIMULATION_08 Then
                     %PanelGroup = PanelGroup.INAS_SIMULATION_08 Or
                     %PanelGroup = PanelGroup.INAS_SIMULATION_09 Then
                  ScrollFlush(Record.INAS_SIM_STU);
                  ScrollSelect(1, Record.INAS_SIM_STU, Record.INAS_SIM_STU);
                  ScrollFlush(Record.INAS_SIM_PAR);
                  ScrollSelect(1, Record.INAS_SIM_PAR, Record.INAS_SIM_PAR);
                  ScrollFlush(Record.INAS_SIM_INT);
                  ScrollSelect(1, Record.INAS_SIM_INT, Record.INAS_SIM_INT);
                  ScrollFlush(Record.INAS_SIM_COMP);
                  ScrollSelect(1, Record.INAS_SIM_COMP, Record.INAS_SIM_COMP);
                  UnGray(DERIVED_SA.INAS_SIM_USE_PB);
               End-If;
               Break;
            When 45
               MessageBox(48, "INAS Edit", 14400, 45, "FM Budget Duration is greater than 12 months.  INAS Calc assumed FM Duration of 9 months.");
               /* 
         When 46 
            MessageBox(48, "INAS Edit", 14400, 46, "IM Budget Duration is greater than 12.0 months.  INAS Calc assumed IM Duration of 9.0 months."); 
         When 47 
            MessageBox(48, "INAS Edit", 14400, 47, "FM and IM Budget Durations are both greater than 12 months.  INAS Calc assumed FM and IM Durations of 9 months."); 
*/
            When 48
               MessageBox(48, "INAS Edit", 14400, 48, "Age Older Parent Blank/Missing. Assumed 45.");
               DERIVED_SA.FED_EFC = &FED_EFC_OUT;
               DERIVED_SA.INST_EFC = &INST_EFC_OUT;
               If %PanelGroup = PanelGroup.INAS_SIMULATION Or
                     %PanelGroup = PanelGroup.INAS_SIMULATION_00 Or
                     %PanelGroup = PanelGroup.INAS_SIMULATION_01 Or
                     %PanelGroup = PanelGroup.INAS_SIMULATION_02 Or
                     %PanelGroup = PanelGroup.INAS_SIMULATION_03 Or
                     %PanelGroup = PanelGroup.INAS_SIMULATION_04 Or
                     %PanelGroup = PanelGroup.INAS_SIMULATION_05 Or
                     %PanelGroup = PanelGroup.INAS_SIMULATION_06 Or
                     %PanelGroup = PanelGroup.INAS_SIMULATION_07 Or
                     %PanelGroup = PanelGroup.INAS_SIMULATION_08 Then
                     %PanelGroup = PanelGroup.INAS_SIMULATION_08 Or
                     %PanelGroup = PanelGroup.INAS_SIMULATION_09 Then
                  ScrollFlush(Record.INAS_SIM_STU);
                  ScrollSelect(1, Record.INAS_SIM_STU, Record.INAS_SIM_STU);
                  ScrollFlush(Record.INAS_SIM_PAR);
                  ScrollSelect(1, Record.INAS_SIM_PAR, Record.INAS_SIM_PAR);
                  ScrollFlush(Record.INAS_SIM_INT);
                  ScrollSelect(1, Record.INAS_SIM_INT, Record.INAS_SIM_INT);
                  ScrollFlush(Record.INAS_SIM_COMP);
                  ScrollSelect(1, Record.INAS_SIM_COMP, Record.INAS_SIM_COMP);
                  UnGray(DERIVED_SA.INAS_SIM_USE_PB);
               End-If;
               Break;
            When 50
               MessageBox(48, "INAS Edit", 14400, 50, "Setup a Local Policy row for the Institution, Aid Year and INAS Rule Set.");
               Break;
            When 51
               MessageBox(48, "INAS Edit", 14400, 51, "No row was found on ISIR_STUDENT.");
               Break;
            When 52
               MessageBox(48, "INAS Edit", 14400, 52, "No row was found ISIR_PARENT.");
               Break;
            When 53
               MessageBox(48, "INAS Edit", 14400, 53, "No row was found on STUDENT_AID.");
               Break;
            When 54
               MessageBox(48, "INAS Edit", 14400, 54, "No row was found on PERSONAL_DATA.");
               Break;
            When 55
               MessageBox(48, "INAS Edit", 14400, 55, "No row was found on INST_CONTROL.");
               Break;
            When 56
               MessageBox(48, "INAS Edit", 14400, 56, "No row was found on INST_STUDENT");
               Break;
            When 57
               MessageBox(48, "INAS Edit", 14400, 57, "No row was found on INST_PARENT.");
               Break;
            When 61
               MessageBox(48, "INAS Edit", 14400, 61, "No row was found on INAS_SIM_STU.");
               Break;
            When 62
               MessageBox(48, "INAS Edit", 14400, 62, "No row was found on INAS_SIM_PAR.");
               Break;
            When 63
               MessageBox(48, "INAS Edit", 14400, 63, "Budgeted number of weeks for the Academic award period not equal base number of weeks.");
               Break;
            When 64
               MessageBox(48, "INAS Edit", 14400, 64, "Budgeted number of weeks for the Non Standard award period not equal base number of weeks.");
               Break;
            When 65
               MessageBox(48, "INAS Edit", 14400, 65, "Budgeted number of weeks for both the Acadademic and Non Standard award period not equal base weeks.");
               Break;
            When 66
               MessageBox(48, "INAS Edit", 14400, 66, "No row was found on INAS_SIM_INT.");
               Break;
            When 67
               MessageBox(48, "INAS Edit", 14400, 67, "No row was found on INAS_SIM_COMP.");
               Break;
            When 68
               MessageBox(48, "INAS Edit", 14400, 68, "No row was found on STDNT_AWD_PER.");
               Break;
            When 160
               MessageBox(48, "INAS Edit", 14400, 160, "Student's leading term for the Aid Year in question is a Non-Standard term, but the specified Non-Standard FM Budget Duration is equal to zero.  INAS Calc assumed leading term to be an 'Academic' term.");
               Break;
            When 161
               MessageBox(48, "INAS Edit", 14400, 161, "Student's leading term for the Aid Year in question is a Non-Standard term, but the specified Non-Standard IM Budget Duration is equal to zero.  INAS Calc assumed leading term to be an 'Academic' term.");
               Break;
            When 162
               MessageBox(48, "INAS Edit", 14400, 162, "Student's leading term for the Aid Year in question is a Non-Standard term, but the specified Non-Standard FM and IM Budget Durations both equal zero.  INAS Calc assumed leading term to be an 'Academic' term.");
               Break;
            When 163
               MessageBox(48, "INAS Edit", 14400, 163, "Student's leading term for the Aid Year in question is an Academic term, but the specified Academic FM Budget Duration is equal to zero.  INAS Calc assumed leading term to be a Non-Standard term.");
               Break;
            When 164
               MessageBox(48, "INAS Edit", 14400, 164, "Student's leading term for the Aid Year in question is an Academic term, but the specified Academic IM Budget Duration is equal to zero.  INAS Calc assumed leading term to be a Non-Standard term.");
               Break;
            When 165
               MessageBox(48, "INAS Edit", 14400, 165, "Student's leading term for the Aid Year in question is an Academic term, but the specified Academic FM and IM Budget Durations both equal zero.  INAS Calc assumed leading term to be a Non-Standard term.");
               Break;
            When 170
               MessageBox(48, "INAS Edit", 14400, 170, "FM Budget Duration is Zero months.  INAS Calc assumed FM Duration of 9 months.");
               Break;
            When 171
               MessageBox(48, "INAS Edit", 14400, 171, "IM Budget Duration is Zero months.  INAS Calc assumed IM Duration of 9.0 months.");
               Break;
            When 172
               MessageBox(48, "INAS Edit", 14400, 172, "FM and IM Budget Durations are both Zero months.  INAS Calc assumed FM and IM Durations of 9 months.");
               Break;
            When 180
               MessageBox(48, "INAS Edit", 14400, 180, "The Academic Budget Duration for one methodology is Zero months and the Non-Standard Budget Duration for the other methodology is also Zero months.  Verify that Zero Budget Durations appears the same for both FM and IM.");
               Break;
            When 185
               MessageBox(48, "INAS Edit", 14400, 185, "The 'Use Monthly EFC' Proration Method calculated an EFC greater than the monthly ISIR EFC for the student in question.  If you do not wish to use the calculated EFC, please select another EFC Proration Method from Local Policy Options or Federal Extension.");
               Break;
            When 332
               MessageBox(48, "INAS Edit", 14400, 332, "Neither an ISIR nor Institutional Application row was found for the ID in question.");
               Break;
            When-Other
               Error (MsgGet(14400, 20, "Non-Zero return code from FAPINASR/INAS. RC: ", &RTN_CODE));
            End-Evaluate;
         Else
            MessageBox(48, "INAS Edit", 14400, 150, "An INAS calc cannot be performed on an ISIR row with an EFC Status of 'Rejected'.  Insert a new ISIR row or scroll to an ISIR row whose status is not 'Rejected'. ");
         End-If;
      Else
         Warning (MsgGet(14400, 19, "INAS cannot be invoked for the Aid Year you selected."));
      End-If;
   End-If;
End-If;

PeopleCode (Record): ISIR_CONTROL.INAS_RFC_CALL.RowInit
If %PanelGroup = PanelGroup.INAS_SIMULATION Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_00 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_01 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_02 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_03 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_04 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_05 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_06 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_07 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_08 Then
      %PanelGroup = PanelGroup.INAS_SIMULATION_08 Or
      %PanelGroup = PanelGroup.INAS_SIMULATION_09 Then
   Gray(ISIR_CONTROL.INAS_RFC_CALL);
End-If;
rem;

&PANELGROUP = %PanelGroup;
&PANELGROUP = Substring(&PANELGROUP, 1, 12);
If &PANELGROUP = "ISIR_CORRPIA" Then
   If CurrentRowNumber(1) <> 1 Then
      ISIR_CONTROL.INAS_RFC_CALL.Enabled = False;
   End-If;
End-If;

PeopleCode (Record): TRNS_CRSE_DTL.CRSE_ID.FieldChange
TRNS_CRSE_DTL.CRSE_OFFER_NBR = 1;
TRNS_CRSE_DTL.GRADING_SCHEME = DERIVED_TRCR.GRADING_SCHEME;
TRNS_CRSE_DTL.GRADING_BASIS = DERIVED_TRCR.GRADING_BASIS;
If All(GRADE_TBL.GRADE_CONVERT) Then
   TRNS_CRSE_DTL.CRSE_GRADE_OFF = GRADE_TBL.GRADE_CONVERT;
Else
   If %PanelGroup = PanelGroup.TRNS_CRSE Then
      If All(DERIVED_TRCR_IN.CRSE_GRADE_INPUT) Then
         TRNS_CRSE_DTL.CRSE_GRADE_OFF = DERIVED_TRCR_IN.CRSE_GRADE_INPUT;
      Else
         TRNS_CRSE_DTL.CRSE_GRADE_OFF = DERIVED_TRCR.GRADE_TRANSFER;
      End-If;
   Else
      TRNS_CRSE_DTL.CRSE_GRADE_OFF = DERIVED_TRCR.GRADE_TRANSFER;
   End-If;
End-If;
If All(GRADE_TBL_TR_VW.DESCR) Then
   TRNS_CRSE_DTL.GRD_PTS_PER_UNIT = GRADE_TBL_TR_VW.GRADE_POINTS;
   SetDefault(TRNS_CRSE_DTL.EARN_CREDIT);
   SetDefault(TRNS_CRSE_DTL.INCLUDE_IN_GPA);
   SetDefault(TRNS_CRSE_DTL.UNITS_ATTEMPTED);
   SetDefault(TRNS_CRSE_DTL.VALID_ATTEMPT);
   SetDefault(TRNS_CRSE_DTL.GRADE_CATEGORY);
   /* 
   EARN_CREDIT = GRADE_TBL_TR_VW.EARN_CREDIT; 
   INCLUDE_IN_GPA = GRADE_TBL_TR_VW.INCLUDE_IN_GPA; 
   If GRADE_TBL_TR_VW.IN_PROGRESS_GRD = "Y" Then 
      UNITS_ATTEMPTED = "I"; 
   Else 
      UNITS_ATTEMPTED = "Y"; 
   End-If; 
   */
Else
   TRNS_CRSE_DTL.CRSE_GRADE_OFF = "";
End-If;
If None(TRNS_CRSE_DTL.UNT_TAKEN) And
      %PanelGroup = PanelGroup.TRNS_CRSE Then
   &UNITS = DERIVED_TRCR_IN.UNT_TAKEN;
Else
   &UNITS = TRNS_CRSE_DTL.UNT_TAKEN;
End-If;
If %PanelGroup = PanelGroup.TRNS_CRSE_MNL Then
   TRNS_CRSE_DTL.UNT_TRNSFR = &UNITS;
Else
   Evaluate TRNS_CRSE_SCH.TRNSFR_SRC_TYPE
   When "E"
      If All(EXT_TERM_CNVRSN.TERM_TYPE_MULT) And
            EXT_TERM_CNVRSN.TERM_TYPE_MULT <> 0 Then
         TRNS_CRSE_DTL.UNT_TRNSFR = &UNITS * EXT_TERM_CNVRSN.TERM_TYPE_MULT;
      Else
         TRNS_CRSE_DTL.UNT_TRNSFR = &UNITS;
      End-If;
   When "I"
      If All(UNIT_CONV_TRVW.UNIT_MULTIPLIER) And
            UNIT_CONV_TRVW.UNIT_MULTIPLIER <> 0 Then
         TRNS_CRSE_DTL.UNT_TRNSFR = &UNITS * UNIT_CONV_TRVW.UNIT_MULTIPLIER;
      Else
         TRNS_CRSE_DTL.UNT_TRNSFR = &UNITS;
      End-If;
   When "M"
      TRNS_CRSE_DTL.UNT_TRNSFR = &UNITS;
   End-Evaluate;
End-If;
TRNS_CRSE_DTL.RQMNT_DESIGNTN = CRSE_CATALOG.RQMNT_DESIGNTN;
SetDefault(TRNS_CRSE_DTL.REPEAT_CODE);
TRNS_CRSE_DTL.SSR_FAWI_INCL = "Y";

If %Component = Component.TRNS_CRSE_MNL Then
   If All(TRNS_CRSE_DTL.CRSE_ID) Then
      TRNS_CRSE_DTL.TRNSFR_STAT = "Y"
   Else
      SetDefault(TRNS_CRSE_DTL.TRNSFR_STAT);
   End-If;
End-If;