[Home] [Help]
70: E - Error
71: U - Unexpected error
72: =============================================================================================*/
73: PROCEDURE fetch_all_resources (
74: p_resource_rec IN gme_resource_txns_gtmp%ROWTYPE
75: ,x_resource_tbl OUT NOCOPY gme_common_pvt.resource_transactions_tab
76: ,x_return_status OUT NOCOPY VARCHAR2
77: ,p_active_trans IN NUMBER DEFAULT 0 -- B3425554
78: )
117: END IF;
118:
119: IF l_cursor = 1 THEN
120: OPEN get_rsrc
121: FOR ' SELECT * FROM GME_RESOURCE_TXNS_GTMP
122: WHERE '
123: || l_where USING p_resource_rec.poc_trans_id;
124: ELSIF l_cursor = 2 THEN
125: OPEN get_rsrc
122: WHERE '
123: || l_where USING p_resource_rec.poc_trans_id;
124: ELSIF l_cursor = 2 THEN
125: OPEN get_rsrc
126: FOR ' SELECT * FROM GME_RESOURCE_TXNS_GTMP
127: WHERE '
128: || l_where USING p_resource_rec.doc_id;
129: END IF;
130:
177: E - Error
178: U - Unexpected error
179: =============================================================================================*/
180: PROCEDURE create_resource_trans (
181: p_tran_rec IN gme_resource_txns_gtmp%ROWTYPE
182: ,x_tran_rec OUT NOCOPY gme_resource_txns_gtmp%ROWTYPE
183: ,x_return_status OUT NOCOPY VARCHAR2)
184: IS
185: l_api_name CONSTANT VARCHAR2 (30) := 'CREATE_RESOURCE_TRANS';
178: U - Unexpected error
179: =============================================================================================*/
180: PROCEDURE create_resource_trans (
181: p_tran_rec IN gme_resource_txns_gtmp%ROWTYPE
182: ,x_tran_rec OUT NOCOPY gme_resource_txns_gtmp%ROWTYPE
183: ,x_return_status OUT NOCOPY VARCHAR2)
184: IS
185: l_api_name CONSTANT VARCHAR2 (30) := 'CREATE_RESOURCE_TRANS';
186: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
183: ,x_return_status OUT NOCOPY VARCHAR2)
184: IS
185: l_api_name CONSTANT VARCHAR2 (30) := 'CREATE_RESOURCE_TRANS';
186: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
187: l_gme_tran_rec gme_resource_txns_gtmp%ROWTYPE;
188: BEGIN
189: IF g_debug <= gme_debug.g_log_procedure THEN
190: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
191: || l_api_name);
200: END IF;
201:
202: l_gme_tran_rec.action_code := 'ADD';
203:
204: IF NOT gme_resource_txns_gtmp_dbl.insert_row
205: (p_resource_txns => l_gme_tran_rec
206: ,x_resource_txns => x_tran_rec) THEN
207: RAISE fnd_api.g_exc_error;
208: END IF;
243: E - Error
244: U - Unexpected error
245: =============================================================================================*/
246: PROCEDURE delete_resource_trans (
247: p_tran_rec IN gme_resource_txns_gtmp%ROWTYPE
248: ,x_return_status OUT NOCOPY VARCHAR2)
249: IS
250: l_gme_tran_rec gme_resource_txns_gtmp%ROWTYPE;
251: l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_RESOURCE_TRANS';
246: PROCEDURE delete_resource_trans (
247: p_tran_rec IN gme_resource_txns_gtmp%ROWTYPE
248: ,x_return_status OUT NOCOPY VARCHAR2)
249: IS
250: l_gme_tran_rec gme_resource_txns_gtmp%ROWTYPE;
251: l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_RESOURCE_TRANS';
252: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
253: BEGIN
254: IF g_debug <= gme_debug.g_log_procedure THEN
258:
259: l_gme_tran_rec := p_tran_rec;
260:
261: IF p_tran_rec.action_code = 'ADD' THEN
262: DELETE FROM gme_resource_txns_gtmp
263: WHERE poc_trans_id = p_tran_rec.poc_trans_id;
264: ELSE
265: l_gme_tran_rec.action_code := 'DEL';
266:
263: WHERE poc_trans_id = p_tran_rec.poc_trans_id;
264: ELSE
265: l_gme_tran_rec.action_code := 'DEL';
266:
267: IF NOT gme_resource_txns_gtmp_dbl.update_row
268: (p_resource_txns => l_gme_tran_rec) THEN
269: RAISE fnd_api.g_exc_error;
270: END IF;
271: END IF;
306: E - Error
307: U - Unexpected error
308: =============================================================================================*/
309: PROCEDURE update_resource_trans (
310: p_tran_rec IN gme_resource_txns_gtmp%ROWTYPE
311: ,x_return_status OUT NOCOPY VARCHAR2)
312: IS
313: l_api_name CONSTANT VARCHAR2 (30) := 'UPDATE_RESOURCE_TRANS';
314: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
311: ,x_return_status OUT NOCOPY VARCHAR2)
312: IS
313: l_api_name CONSTANT VARCHAR2 (30) := 'UPDATE_RESOURCE_TRANS';
314: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
315: l_gme_tran_rec gme_resource_txns_gtmp%ROWTYPE;
316: BEGIN
317: IF g_debug <= gme_debug.g_log_procedure THEN
318: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
319: || l_api_name);
330: gme_debug.put_line ( 'Calling UPDATE rec trans id:'
331: || TO_CHAR (p_tran_rec.poc_trans_id) );
332: END IF;
333:
334: IF NOT gme_resource_txns_gtmp_dbl.update_row
335: (p_resource_txns => l_gme_tran_rec) THEN
336: RAISE fnd_api.g_exc_error;
337: END IF;
338:
414: WHERE poc_trans_id = v_poc_id;
415:
416: l_debug VARCHAR2 (2000);
417: l_prev_rec cur_get_prev_rec%ROWTYPE;
418: l_resource_rec gme_resource_txns_gtmp%ROWTYPE;
419: l_tran_rec gme_resource_txns%ROWTYPE;
420: l_resource_tbl gme_common_pvt.resource_transactions_tab;
421: l_trans_date DATE;
422: l_hold_ib_date DATE;
853: p_tmp_rec The resource transaction rec of the temporary tblle
854: p_resource_rec The resource transaction rec.
855: =============================================================================================*/
856: PROCEDURE build_resource_tran (
857: p_tmp_rec IN gme_resource_txns_gtmp%ROWTYPE
858: ,p_resource_rec OUT NOCOPY gme_resource_txns%ROWTYPE)
859: IS
860: l_api_name CONSTANT VARCHAR2 (30) := 'build_resource_tran';
861: BEGIN
973: Added logic to process value ACTUAL_USAGE for parameter p_calling_mode. This will allow
974: us to fetch the resource transactions in a different order for negative IB.
975: =============================================================================================*/
976: PROCEDURE fetch_active_resources (
977: p_resource_rec IN gme_resource_txns_gtmp%ROWTYPE
978: ,p_calling_mode IN VARCHAR2 DEFAULT NULL --bug#5609683
979: ,x_resource_tbl OUT NOCOPY gme_common_pvt.resource_transactions_tab
980: ,x_return_status OUT NOCOPY VARCHAR2)
981: IS
1044: END IF;
1045:
1046: IF l_cursor = 1 THEN
1047: OPEN get_rsrc
1048: FOR ' SELECT * FROM GME_RESOURCE_TXNS_GTMP
1049: WHERE '
1050: || l_where USING p_resource_rec.poc_trans_id;
1051: ELSIF l_cursor = 2 THEN
1052: OPEN get_rsrc
1049: WHERE '
1050: || l_where USING p_resource_rec.poc_trans_id;
1051: ELSIF l_cursor = 2 THEN
1052: OPEN get_rsrc
1053: FOR ' SELECT * FROM GME_RESOURCE_TXNS_GTMP
1054: WHERE '
1055: || l_where USING p_resource_rec.line_id;
1056: ELSIF l_cursor = 3 THEN
1057: OPEN get_rsrc
1054: WHERE '
1055: || l_where USING p_resource_rec.line_id;
1056: ELSIF l_cursor = 3 THEN
1057: OPEN get_rsrc
1058: FOR ' SELECT * FROM GME_RESOURCE_TXNS_GTMP
1059: WHERE '
1060: || l_where USING p_resource_rec.doc_id;
1061: END IF;
1062:
1122: l_batch_header gme_batch_header%ROWTYPE;
1123: l_batch_step gme_batch_steps%ROWTYPE;
1124: l_step_activity gme_batch_step_activities%ROWTYPE;
1125: l_step_resources gme_batch_step_resources%ROWTYPE;
1126: l_resource_txns gme_resource_txns_gtmp%ROWTYPE;
1127: l_resource_tbl gme_common_pvt.resource_transactions_tab;
1128: l_return_status VARCHAR2 (1);
1129: l_rsrc_usage NUMBER;
1130: l_rsrc_count NUMBER;
1135:
1136: CURSOR cur_sum_usage (v_batchstep_resource_id NUMBER, v_completed NUMBER)
1137: IS
1138: SELECT NVL (SUM (resource_usage), 0)
1139: FROM gme_resource_txns_gtmp
1140: WHERE line_id = v_batchstep_resource_id
1141: AND completed_ind = v_completed
1142: AND (v_completed = 1 OR sequence_dependent_ind = 0);
1143:
1925: /* Bug 2651477 added delete_mark condition */
1926: CURSOR cur_get_usage (v_completed_ind NUMBER)
1927: IS
1928: SELECT SUM (resource_usage)
1929: FROM gme_resource_txns_gtmp
1930: WHERE line_id = p_step_resources_rec.batchstep_resource_id
1931: AND completed_ind = v_completed_ind
1932: AND (v_completed_ind = 1 OR sequence_dependent_ind = 0)
1933: AND action_code <> 'DEL'
2626: ,x_rsrc_txn_rec IN OUT NOCOPY gme_resource_txns%ROWTYPE
2627: ,x_return_status OUT NOCOPY VARCHAR2)
2628: IS
2629: l_api_name CONSTANT VARCHAR2 (30) := 'UPDATE_ACTUAL_RSRC_USAGE';
2630: l_resource_txns gme_resource_txns_gtmp%ROWTYPE;
2631: l_batch_header gme_batch_header%ROWTYPE;
2632: l_step_resources gme_batch_step_resources%ROWTYPE;
2633: l_resource_tbl gme_common_pvt.resource_transactions_tab;
2634: l_line_id NUMBER;
2641: l_resources VARCHAR2 (16);
2642: l_usage_uom VARCHAR2 (4);
2643: --Rishi Varma 02-09-2004 B3856541
2644: l_trans_date DATE;
2645: l_rsrc_txn_rec gme_resource_txns_gtmp%ROWTYPE;
2646: l_tran_rec gme_resource_txns_gtmp%ROWTYPE;
2647:
2648: CURSOR cur_fetch_resource_dtl (v_line_id NUMBER)
2649: IS
2642: l_usage_uom VARCHAR2 (4);
2643: --Rishi Varma 02-09-2004 B3856541
2644: l_trans_date DATE;
2645: l_rsrc_txn_rec gme_resource_txns_gtmp%ROWTYPE;
2646: l_tran_rec gme_resource_txns_gtmp%ROWTYPE;
2647:
2648: CURSOR cur_fetch_resource_dtl (v_line_id NUMBER)
2649: IS
2650: SELECT resources, usage_um
2828: l_rsrc_txn_rec.attribute28 := x_rsrc_txn_rec.attribute28;
2829: l_rsrc_txn_rec.attribute29 := x_rsrc_txn_rec.attribute29;
2830: l_rsrc_txn_rec.attribute30 := x_rsrc_txn_rec.attribute30;
2831: --END IF;
2832: IF NOT (gme_resource_txns_gtmp_dbl.insert_row (l_rsrc_txn_rec
2833: ,l_rsrc_txn_rec) ) THEN
2834: RAISE rsrc_txn_insert_err;
2835: END IF;
2836: