DeleteFutureEnrollment

Delete Future Enrollment

Minor Business Rule

Object Name: N0800068

Parent DLL: CHRM

Location: Client/Server

Language: NER

Functional Description

Purpose
This will delete enrollment record and employee's dba instruction records from the tables.

Setup Notes and Prerequisites

Special Logic

Technical Specification

Select from f08330 with keys, AN8, PLAN, EFT >= Passed in date.
Fetch the Next record from F08330, EFT, DTDB.
While Fetch is successful
Delete Record from F08330
If Delete is Successful
//
// Get Plan DBAs
//
F08320.FetchSingle
If File_IO_Status is Successful
Set Option Flag = " "
//
// Get Plan Additional Option DBAs if applicable
//
If PlanAdditionalOption passed in <> Blank
F083202 Fetch DBAs associated with this option
If File_IO_Status is Successful
Option Flag = "1"
End If
End If
// *************************************************************
// Delete Employee Dollar DBA records
//***********************************************************
If Option Flag is equal to "1"
If Option EmployeeDbaId FDBA is not equal to
F06106.Delete Where = Plan Option FDBA
Else
If Plan EmployeeDbaId FDBA is not equal to
F06106.Delete Where = Plan FDBA
End If
End If
Else
If EmployeeDbaId FDBA is not equal to
F06106.Delete Where = Plan FDBA
End If
// end If OptionFlag = 1
End If
// ****************************************************************************
// Delete Employer Dollar DBA records
// ****************************************************************************
If Option Flag is equal to "1"
If Option DbaEmployerId SDBA is not equal to
F06106.Delete Where = Plan Option SDBA
Else
If DbaEmployerId SDBA is not equal to
F06106.Delete Where = Plan SDBA
End If
End If
Else
If DbaEmployerId SDBA is not equal to
F06106.Delete Where = Plan SDBA
End If
// end If OptionFlag = 1
End If
// ****************************************************************************
// Delete Employee Point DBA records
// ****************************************************************************
If Option Flag is equal to "1"
If PayrollDedPoints PDDP is not equal to
F06106.Delete Where = Plan Option PDDP
Else
If PayrollDedPoints PDDP is not equal to
F06106.Delete Where = Plan PDDP
End If
End If
Else
If PayrollDedPointsPDDP is not equal to
F06106.Delete Where = Plan PDDP
End If
// end If OptionFlag = 1
End If
// ****************************************************************************
// Delete Employer point DBA records
// ****************************************************************************
If Option Flag is equal to "1"
If PayrollCreditPoint PDCP is not equal to
F06106.Delete Where = Plan Option PDCP
Else
If PayrollCreditPoint PDCP is not equal to
F06106.Delete Where = Plan PDCP
End If
End If
Else
If PayrollCreditPoint PDCP is not equal to
F06106.Delete Where = Plan PDCP
End If
// end If OptionFlag = 1
End If
// endIf Fetch Single F08320 is successful
End If
// end If delete is successful
End If
//
F08330.FetchNext
End While

Data Structure

DN0800068 - Delete Future Enrollment

Parameter Name	Data Item	Data Type	Req/Opt	I/O/Both
mnAddressNumber	AN8	MATH_NUMERIC	REQ	INPUT
A number that identifies an entry in the Address Book system, such as employee, applicant, participant, customer, supplier, tenant, or location.
szPlanId	PLAN	char	REQ	INPUT
An abbreviation or number that identifies a specific employee benefit. Examples are: o Employee Health Insurance o Accidental Death and Dismemberment o Health Club Expense Reimbursement o Employee Stock Appreciation Rights A benefit plan typically is associated with a deduction, benefit, or accrual. For example, a medical plan is a benefit that might also require a deduction to withhold premiums from an employee's pay.
szPlanAdditionalOption	AOPT	char	OPT	INPUT
A code that identifies any additional options available for a benefit plan that have been defined in the Plan Additional Options table (F083202). Note: Additional options must have the same provider, policy number, and enrollment and eligibility rules as the benefit plan to which they are associated.
jdNewDateEffectiveRates	EFT	JDEDATE	REQ	INPUT
The date that identifies when a date is first valid. The effective date is used generically. It can be a lease effective date, a price or cost effective date, a currency effective date, a tax rate effective date, or whatever is appropriate.
cDltYN	DEL	char	OPT	OUTPUT
This code designates whether or not records should be deleted from the file. The default value is N.

Related Functions

None

Related Tables

None