1 PACKAGE BODY hxc_self_service_timecard_api AS
2 /* $Header: hxctcmapi.pkb 115.11 2003/07/02 23:39:41 mvilrokx noship $ */
3
4 PROCEDURE execute_deposit_process (
5 p_validate IN BOOLEAN DEFAULT FALSE,
6 p_app_blocks IN OUT NOCOPY hxc_self_service_time_deposit.timecard_info,
7 p_app_attributes IN hxc_self_service_time_deposit.app_attributes_info,
8 p_messages OUT NOCOPY hxc_self_service_time_deposit.message_table,
9 p_mode VARCHAR2,
10 p_deposit_process VARCHAR2,
11 p_retrieval_process VARCHAR2 DEFAULT NULL,
12 p_timecard_id OUT NOCOPY hxc_time_building_blocks.time_building_block_id%TYPE,
13 p_timecard_ovn OUT NOCOPY hxc_time_building_blocks.object_version_number%TYPE
14 )
15 IS
16 BEGIN
17 timecard_pump (
18 p_validate=> p_validate,
19 p_app_blocks=> p_app_blocks,
20 p_app_attributes=> p_app_attributes,
21 p_messages=> p_messages,
22 p_mode=> p_mode,
23 p_deposit_process=> p_deposit_process,
24 p_retrieval_process=> p_retrieval_process,
25 p_timecard_id=> p_timecard_id,
26 p_timecard_ovn=> p_timecard_ovn
27 );
28 END execute_deposit_process;
29
30 PROCEDURE timecard_pump (
31 p_validate IN BOOLEAN DEFAULT FALSE,
32 p_app_blocks IN OUT NOCOPY hxc_self_service_time_deposit.timecard_info,
33 p_app_attributes IN hxc_self_service_time_deposit.app_attributes_info,
34 p_messages OUT NOCOPY hxc_self_service_time_deposit.message_table,
35 p_mode VARCHAR2,
36 p_deposit_process VARCHAR2,
37 p_retrieval_process VARCHAR2 DEFAULT NULL,
38 p_timecard_id OUT NOCOPY hxc_time_building_blocks.time_building_block_id%TYPE,
39 p_timecard_ovn OUT NOCOPY hxc_time_building_blocks.object_version_number%TYPE
40 )
41 IS
42 -- Need this declaration because p_app_attributes is NOT an OUT parameter
43 -- in this procedure but it is in the new API, so I cannot use
44 -- p_app_attributes directly to pass to the API and I do not want to
45 -- change the interface of this API to assure backwards compatitibility.
46 l_app_attributes hxc_self_service_time_deposit.app_attributes_info;
47 BEGIN
48 l_app_attributes := p_app_attributes;
49 hxc_timestore_deposit.execute_deposit_process (
50 p_validate=> p_validate,
51 p_mode=> p_mode,
52 p_deposit_process=> p_deposit_process,
53 p_retrieval_process=> p_retrieval_process,
54 p_app_attributes=> l_app_attributes,
55 p_app_blocks=> p_app_blocks,
56 p_messages=> p_messages,
57 p_timecard_id=> p_timecard_id,
58 p_timecard_ovn=> p_timecard_ovn
59 );
60 END timecard_pump;
61 END hxc_self_service_timecard_api;