API创建员工Element

DECLARE
ln_element_link_id                  PAY_ELEMENT_LINKS_F.ELEMENT_LINK_ID%TYPE;
ld_effective_start_date            DATE;
ld_effective_end_date             DATE;
ln_element_entry_id                PAY_ELEMENT_ENTRIES_F.ELEMENT_ENTRY_ID%TYPE;
ln_object_version_number     PAY_ELEMENT_ENTRIES_F.OBJECT_VERSION_NUMBER %TYPE;
lb_create_warning                    BOOLEAN;
ln_input_value_id                    PAY_INPUT_VALUES_F.INPUT_VALUE_ID%TYPE;
ln_screen_entry_value            PAY_ELEMENT_ENTRY_VALUES_F.SCREEN_ENTRY_VALUE%TYPE;
ln_element_type_id                  PAY_ELEMENT_TYPES_F.ELEMENT_TYPE_ID%TYPE;

BEGIN
-- Get Element Link Id
-- ------------------------------
ln_element_link_id :=      hr_entry_api.get_link
(       p_assignment_id      => 33561,
p_element_type_id   => 50417,
p_session_date          => TO_DATE('23-JUN-2011')
);

dbms_output.put_line( '  API: Element Link Id: ' || ln_element_link_id );

-- Create Element Entry
-- ------------------------------
pay_element_entry_api.create_element_entry
(     -- Input data elements
-- -----------------------------
p_effective_date                     => TO_DATE('22-JUN-2011'),
p_business_group_id          => fnd_profile.value('PER_BUSINESS_GROUP_ID'),
p_assignment_id                   => 33561,
p_element_link_id                => ln_element_link_id,
p_entry_type                           => 'E',
p_input_value_id1               => 53726,
p_entry_value1                      => 2500,
-- Output data elements
-- --------------------------------
p_effective_start_date          => ld_effective_start_date,
p_effective_end_date           => ld_effective_end_date,
p_element_entry_id             => ln_element_entry_id,
p_object_version_number  => ln_object_version_number,
p_create_warning                 => lb_create_warning
);

dbms_output.put_line( '  API: pay_element_entry_api.create_element_entry successfull - Element Entry Id: ' || ln_element_entry_id );

COMMIT;

EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
dbms_output.put_line(SQLERRM);
END;