[Home] [Help]
PACKAGE BODY: APPS.PQP_GET_DATE_MODE
Source
1 Package Body pqp_get_date_mode as
2 /* $Header: pqdtmode.pkb 115.1 2003/02/18 23:57:54 sshetty noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- |---------------------< Update Date Mode >---------------|
6 -- ----------------------------------------------------------------------------
7
8 Procedure find_dt_upd_modes
9 (p_effective_date in date
10 ,p_base_table_name in varchar2
11 ,p_base_key_column in varchar2
12 ,p_base_key_value in number
13 ,p_correction out nocopy number
14 ,p_update out nocopy number
15 ,p_update_override out nocopy number
16 ,p_update_change_insert out nocopy number
17 )
18
19 IS
20 l_correction BOOLEAN;
21 l_update BOOLEAN;
22 l_update_override BOOLEAN;
23 l_update_change_insert BOOLEAN;
24 BEGIN
25
26 dt_api.find_dt_upd_modes
27 (p_effective_date => p_effective_date
28 ,p_base_table_name => p_base_table_name
29 ,p_base_key_column => p_base_key_column
30 ,p_base_key_value => p_base_key_value
31 ,p_correction => l_correction
32 ,p_update => l_update
33 ,p_update_override => l_update_override
34 ,p_update_change_insert => l_update_change_insert
35 );
36
37 IF l_correction THEN
38 p_correction:=1;
39 ELSE
40 p_correction:=0;
41 END IF;
42
43
44 IF l_update THEN
45 p_update :=1;
46 ELSE
47 p_update :=0;
48 END IF;
49
50 IF l_update_override THEN
51 p_update_override :=1;
52 ELSE
53 p_update_override :=0;
54 END IF;
55
56 IF l_update_change_insert THEN
57 p_update_change_insert :=1;
58 ELSE
59 p_update_change_insert :=0;
60 END IF;
61 END;
62 --
63 --
64 -- ----------------------------------------------------------------------------
65 -- |------------------< Delete Date Mode >------------------|
66 -- ----------------------------------------------------------------------------
67
68
69 Procedure find_dt_del_modes
70 (p_effective_date in date
71 ,p_base_table_name in varchar2
72 ,p_base_key_column in varchar2
73 ,p_base_key_value in number
74 ,p_zap out nocopy number
75 ,p_delete out nocopy number
76 ,p_future_change out nocopy number
77 ,p_delete_next_change out nocopy number
78 )
79
80 IS
81 l_zap BOOLEAN;
82 l_delete BOOLEAN;
83 l_future_change BOOLEAN;
84 l_delete_next_change BOOLEAN;
85 BEGIN
86
87 dt_api.find_dt_del_modes
88 (p_effective_date => p_effective_date
89 ,p_base_table_name => p_base_table_name
90 ,p_base_key_column => p_base_key_column
91 ,p_base_key_value => p_base_key_value
92 ,p_zap => l_zap
93 ,p_delete => l_delete
94 ,p_future_change => l_future_change
95 ,p_delete_next_change => l_delete_next_change
96 );
97
98 IF l_zap THEN
99 p_zap:=1;
100 ELSE
101 p_zap:=0;
102 END IF;
103
104 IF l_delete THEN
105 p_delete:=1;
106 ELSE
107 p_delete:=0;
108 END IF;
109
110 IF l_future_change THEN
111 p_future_change:=0;
112 ELSE
113 p_future_change:=0;
114 END IF;
115
116 IF l_delete_next_change THEN
117 p_delete_next_change:=0;
118 ELSE
119 p_delete_next_change:=0;
120 END IF;
121 END;
122
123
124 end pqp_get_date_mode;