[Home] [Help]
PACKAGE BODY: APPS.WSH_ITM_CUSTOMIZE
Source
1 PACKAGE BODY WSH_ITM_CUSTOMIZE AS
2 /* $Header: WSHITCCB.pls 115.1 2003/06/19 00:06:02 sperera noship $ */
3
4
5 G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_ITM_CUSTOMIZE';
6
7
8 /*===========================================================================+
9 | PROCEDURE |
10 | ALTER_ITEM_SYNC |
11 | |
12 | DESCRIPTION |
13 | This is a stub procedure which is called when the Item |
14 | Synchronization Concurrent program is launched. |
15 | Additional filter conditions can be appended usning this |
16 | procedure. |
17 | |
18 +===========================================================================*/
19
20
21 PROCEDURE ALTER_ITEM_SYNC(p_Table IN OUT NOCOPY WSH_ITM_QUERY_CUSTOM.g_CondnValTableType) IS
22 l_Item_Condn1Tab WSH_ITM_QUERY_CUSTOM.g_ValueTableType;
23
24 --
25 l_debug_on BOOLEAN;
26 --
27 l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'ALTER_ITEM_SYNC';
28 --
29 BEGIN
30 --
31 l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
32 --
33 IF l_debug_on IS NULL
34 THEN
35 l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
36 END IF;
37 --
38 --
39 -- Debug Statements
40 --
41 IF l_debug_on THEN
42 WSH_DEBUG_SV.push(l_module_name);
43 END IF;
44 --
45 NULL;
46 --Adding a Condition
47 --l_Item_Condn1Tab(1).g_number_val := 1;
48 --l_Item_Condn1Tab(1).g_Bind_Literal := ':b_org_id';
49 --WSH_ITM_QUERY_CUSTOM.ADD_CONDITION(p_Table, ' AND B.ORG_ID = :b_org_id', l_Item_Condn1Tab, 'NUMBER');
50
51 --Editing a Condition
52 --l_Item_Condn1Tab(1).g_number_val := 208;
53 --WSH_ITM_QUERY_CUSTOM.EDIT_CONDITION(p_Table,' AND B.ORG_ID = :b_org_id', ' AND B.ORG_ID = :b_org_id', l_Item_Condn1Tab, 'NUMBER');
54
55 --Deleting a Condition
56 --WSH_ITM_QUERY_CUSTOM.DEL_CONDITION(p_Table, ' AND B.ORG_ID = :b_org_id');
57 --
58 -- Debug Statements
59 --
60 IF l_debug_on THEN
61 WSH_DEBUG_SV.pop(l_module_name);
62 END IF;
63 --
64 END;
65
66
67 /*===========================================================================+
68 | PROCEDURE |
69 | ALTER_PARTY_SYNC |
70 | |
71 | DESCRIPTION |
72 | This is a stub procedure which is called when the Party |
73 | Synchronization Concurrent program is launched. |
74 | Additional filter conditions can be appended usning this |
75 | procedure. |
76 | |
77 +===========================================================================*/
78
79 PROCEDURE ALTER_PARTY_SYNC(p_Table IN OUT NOCOPY WSH_ITM_QUERY_CUSTOM.g_CondnValTableType) IS
80
81 --
82 l_debug_on BOOLEAN;
83 --
84 l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'ALTER_PARTY_SYNC';
85 --
86 BEGIN
87 --
88 l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
89 --
90 IF l_debug_on IS NULL
91 THEN
92 l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
93 END IF;
94 --
95 --
96 -- Debug Statements
97 --
98 IF l_debug_on THEN
99 WSH_DEBUG_SV.push(l_module_name);
100 END IF;
101 --
102 NULL;
103 --
104 -- Debug Statements
105 --
106 IF l_debug_on THEN
107 WSH_DEBUG_SV.pop(l_module_name);
108 END IF;
109 --
110 END;
111
112
113
114 --
115 -- PROCEDURE ALTER_DELIVERY_MARK
116 -- DESCRIPTION This is a stub procedure that can be modified by the customer to
117 -- specify the deliveries that require ITM compliance screening by
118 -- appending filter conditions.
119
120
121 PROCEDURE ALTER_DELIVERY_MARK (p_Table IN OUT NOCOPY WSH_ITM_QUERY_CUSTOM.g_CondnValTableType,
122 x_return_status OUT NOCOPY VARCHAR2) IS
123
124 l_Item_Condn1Tab WSH_ITM_QUERY_CUSTOM.g_ValueTableType;
125 --
126 l_debug_on BOOLEAN;
127 --
128 l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'ALTER_DELIVERY_MARK';
129 --
130
131
132 BEGIN
133 l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
134 --
135 IF l_debug_on IS NULL
136 THEN
137 l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
138 END IF;
139 --
140 --
141 -- Debug Statements
142 --
143 IF l_debug_on THEN
144 WSH_DEBUG_SV.push(l_module_name);
145 END IF;
146 NULL;
147
148 --Adding a Condition
149 --l_Item_Condn1Tab(1).g_number_val := 1;
150 --l_Item_Condn1Tab(1).g_Bind_Literal := ':b_org_id';
151 --WSH_ITM_QUERY_CUSTOM.ADD_CONDITION(p_Table, ' AND WND.ORGANIZATION_ID = :b_org_id', l_Item_Condn1Tab, 'NUMBER');
152
153 --Editing a Condition
154 --l_Item_Condn1Tab(1).g_number_val := 208;
155 --WSH_ITM_QUERY_CUSTOM.EDIT_CONDITION(p_Table,' AND WND.ORGANIZATION_ID = :b_org_id', ' AND WND.ORG_ID = :b_org_id', l_Item_Condn1Tab, 'NUMBER');
156 --Deleting a Condition
157 --WSH_ITM_QUERY_CUSTOM.DEL_CONDITION(p_Table, ' AND WND.ORGANIZATION_ID = :b_org_id');
158
159 x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
160
161 IF l_debug_on THEN
162 WSH_DEBUG_SV.pop(l_module_name);
163 END IF;
164
165
166
167 EXCEPTION
168 WHEN Others THEN
169 wsh_util_core.default_handler('WSH_ITM_CUSTOMIZE.ALTER_DELIVERY_MARK');
170 x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
171
172 IF l_debug_on THEN
173 WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
174 WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
175 END IF;
176
177 END ALTER_DELIVERY_MARK;
178
179
180
181
182 END;