[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:
409:
410: CURSOR cur_get_prev_rec (v_poc_id NUMBER)
411: IS
412: SELECT *
413: FROM gme_resource_txns
414: WHERE poc_trans_id = v_poc_id;
415:
416: l_debug VARCHAR2 (2000);
417: l_prev_rec cur_get_prev_rec%ROWTYPE;
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;
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;
423: l_org_id NUMBER;
422: l_hold_ib_date DATE;
423: l_org_id NUMBER;
424: l_period_id INTEGER;
425:
426: l_in_tran_rec gme_resource_txns%ROWTYPE;
427:
428: CURSOR cur_get_org_id (v_batch_id NUMBER)
429: IS
430: SELECT organization_id
514: END IF;
515: END IF;
516:
517: --Rishi Varma B3856541 02-09-2004 end
518: IF NOT gme_resource_txns_dbl.insert_row (l_tran_rec, l_tran_rec) THEN
519: RAISE insert_failure;
520: END IF;
521:
522: IF l_tran_rec.completed_ind = 1
590: l_prev_rec.trans_date := gme_common_pvt.g_timestamp;
591: END IF;
592:
593:
594: IF NOT gme_resource_txns_dbl.insert_row (l_prev_rec
595: ,l_prev_rec) THEN
596: RAISE insert_failure;
597: ELSE
598: --Bug#4917189 Susruth D. Added below updated to make sure only we update the reverse_id but not any
607: || ' UPD action code: poc_trans_id of the reversal txn is '
608: || l_prev_rec.poc_trans_id);
609: END IF;
610: /*
611: IF NOT gme_resource_txns_dbl.update_row (l_in_tran_rec) THEN
612: RAISE update_failure;
613: END IF;*/
614: UPDATE gme_resource_txns
615: SET reverse_id = l_prev_rec.poc_trans_id
610: /*
611: IF NOT gme_resource_txns_dbl.update_row (l_in_tran_rec) THEN
612: RAISE update_failure;
613: END IF;*/
614: UPDATE gme_resource_txns
615: SET reverse_id = l_prev_rec.poc_trans_id
616: WHERE poc_trans_id = l_in_tran_rec.poc_trans_id;
617:
618:
648: ,x_period_id => l_period_id) THEN
649: RAISE fnd_api.g_exc_error;
650: END IF;
651:
652: IF NOT gme_resource_txns_dbl.insert_row (l_tran_rec
653: ,l_tran_rec) THEN
654: RAISE insert_failure;
655: END IF;
656:
673: RAISE gmf_cost_failure;
674: END IF;
675: -- End Bug 5903208
676:
677: ELSIF NOT gme_resource_txns_dbl.update_row (l_tran_rec) THEN
678: RAISE update_failure;
679: END IF;
680: ELSIF (l_resource_rec.action_code = 'DEL') THEN
681: IF l_resource_rec.completed_ind = 1 THEN
681: IF l_resource_rec.completed_ind = 1 THEN
682: IF l_tran_rec.resource_usage = 0 THEN
683: l_tran_rec.delete_mark := 1;
684:
685: IF NOT gme_resource_txns_dbl.delete_row (l_tran_rec) THEN
686: RAISE update_failure;
687: END IF;
688: ELSE
689: l_tran_rec.resource_usage :=
756: l_tran_rec.trans_date := gme_common_pvt.g_timestamp;
757: END IF;
758: END IF;
759:
760: IF NOT gme_resource_txns_dbl.insert_row (l_tran_rec
761: ,l_tran_rec) THEN
762: RAISE insert_failure;
763: ELSE
764: --Bug#4917189 Susruth D. Added below updated to make sure only we update the reverse_id but not any
773: || ' DEL action code: poc_trans_id of the reversal txn is '
774: || l_tran_rec.poc_trans_id);
775: END IF;
776:
777: /*IF NOT gme_resource_txns_dbl.update_row (l_in_tran_rec) THEN
778: RAISE update_failure;
779: END IF;*/
780: UPDATE gme_resource_txns
781: SET reverse_id = l_tran_rec.poc_trans_id
776:
777: /*IF NOT gme_resource_txns_dbl.update_row (l_in_tran_rec) THEN
778: RAISE update_failure;
779: END IF;*/
780: UPDATE gme_resource_txns
781: SET reverse_id = l_tran_rec.poc_trans_id
782: WHERE poc_trans_id = l_in_tran_rec.poc_trans_id;
783:
784: --
802:
803: END IF;
804: END IF;
805: ELSE
806: IF NOT gme_resource_txns_dbl.delete_row (l_tran_rec) THEN
807: RAISE update_failure;
808: END IF;
809: END IF;
810: END IF;
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
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
862: IF g_debug <= gme_debug.g_log_procedure THEN
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'
2621: ,p_activity IN VARCHAR2 := NULL
2622: ,p_resource IN VARCHAR2 := NULL
2623: ,p_reason_name IN VARCHAR2,
2624: p_instance_no IN NUMBER
2625: ,p_rsrc_txn_rec IN gme_resource_txns%ROWTYPE
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';
2622: ,p_resource IN VARCHAR2 := NULL
2623: ,p_reason_name IN VARCHAR2,
2624: p_instance_no IN NUMBER
2625: ,p_rsrc_txn_rec IN gme_resource_txns%ROWTYPE
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;
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:
2918: ,p_activity IN VARCHAR2 := NULL
2919: ,p_resource IN VARCHAR2 := NULL
2920: ,p_reason_name IN VARCHAR2
2921: ,p_instance_no IN NUMBER
2922: ,p_rsrc_txn_rec IN gme_resource_txns%ROWTYPE
2923: ,x_rsrc_txn_rec IN OUT NOCOPY gme_resource_txns%ROWTYPE
2924: ,x_return_status OUT NOCOPY VARCHAR2)
2925: IS
2926: l_api_name CONSTANT VARCHAR2 (30)
2919: ,p_resource IN VARCHAR2 := NULL
2920: ,p_reason_name IN VARCHAR2
2921: ,p_instance_no IN NUMBER
2922: ,p_rsrc_txn_rec IN gme_resource_txns%ROWTYPE
2923: ,x_rsrc_txn_rec IN OUT NOCOPY gme_resource_txns%ROWTYPE
2924: ,x_return_status OUT NOCOPY VARCHAR2)
2925: IS
2926: l_api_name CONSTANT VARCHAR2 (30)
2927: := 'insert_incr_actual_rsrc_txn';
2924: ,x_return_status OUT NOCOPY VARCHAR2)
2925: IS
2926: l_api_name CONSTANT VARCHAR2 (30)
2927: := 'insert_incr_actual_rsrc_txn';
2928: l_resource_txns gme_resource_txns%ROWTYPE;
2929: l_batch_header gme_batch_header%ROWTYPE;
2930: l_step_resources gme_batch_step_resources%ROWTYPE;
2931: l_resource_tbl gme_common_pvt.resource_transactions_tab;
2932: l_step_status NUMBER;
2944: l_resources VARCHAR2 (16);
2945: l_usage_uom VARCHAR2 (4);
2946: --Rishi Varma B3856541 02-09-2004
2947: l_trans_date DATE;
2948: l_rsrc_txn_rec gme_resource_txns%ROWTYPE;
2949:
2950: CURSOR cur_fetch_resource_dtl (v_line_id NUMBER)
2951: IS
2952: ----SELECT resources,usage_uom
3075: END IF;
3076:
3077: l_rsrc_txn_rec.sequence_dependent_ind := 0;
3078:
3079: IF NOT (gme_resource_txns_dbl.insert_row (l_rsrc_txn_rec
3080: ,x_rsrc_txn_rec) ) THEN
3081: RAISE rsrc_txn_insert_err;
3082: END IF;
3083:
3083:
3084: l_rsrc_txn_rec := x_rsrc_txn_rec;
3085:
3086: -- Bug 9506856 - Fetch the record directly from the DB to get all column values.
3087: IF NOT (gme_resource_txns_dbl.fetch_row (l_rsrc_txn_rec, l_rsrc_txn_rec) ) THEN
3088: RAISE rsrc_txn_fetch_err;
3089: END IF;
3090:
3091: -- Bug 9506856 - Make call to GMF for actual costing
3207: ,p_activity IN VARCHAR2 := NULL
3208: ,p_resource IN VARCHAR2 := NULL
3209: ,p_reason_name IN VARCHAR2,
3210: p_instance_no IN NUMBER
3211: ,p_rsrc_txn_rec IN gme_resource_txns%ROWTYPE
3212: ,x_rsrc_txn_rec IN OUT NOCOPY gme_resource_txns%ROWTYPE
3213: ,x_return_status OUT NOCOPY VARCHAR2)
3214: IS
3215: l_api_name CONSTANT VARCHAR2 (30)
3208: ,p_resource IN VARCHAR2 := NULL
3209: ,p_reason_name IN VARCHAR2,
3210: p_instance_no IN NUMBER
3211: ,p_rsrc_txn_rec IN gme_resource_txns%ROWTYPE
3212: ,x_rsrc_txn_rec IN OUT NOCOPY gme_resource_txns%ROWTYPE
3213: ,x_return_status OUT NOCOPY VARCHAR2)
3214: IS
3215: l_api_name CONSTANT VARCHAR2 (30)
3216: := 'insert_timed_actual_rsrc_txn';
3213: ,x_return_status OUT NOCOPY VARCHAR2)
3214: IS
3215: l_api_name CONSTANT VARCHAR2 (30)
3216: := 'insert_timed_actual_rsrc_txn';
3217: l_resource_txns gme_resource_txns%ROWTYPE;
3218: l_batch_header gme_batch_header%ROWTYPE;
3219: l_step_resources gme_batch_step_resources%ROWTYPE;
3220: l_resource_tbl gme_common_pvt.resource_transactions_tab;
3221: l_line_id NUMBER;
3229: l_instance_id NUMBER;
3230: l_reason_id NUMBER;
3231: l_usage_time NUMBER;
3232: l_hour_um sy_uoms_mst.um_code%TYPE;
3233: l_rsrc_txn_rec gme_resource_txns%ROWTYPE;
3234:
3235:
3236: --Rishi Varma B3856541 02-09-2004
3237: l_trans_date DATE;
3407: END IF;
3408:
3409: l_rsrc_txn_rec.sequence_dependent_ind := 0;
3410:
3411: IF NOT (gme_resource_txns_dbl.insert_row (l_rsrc_txn_rec
3412: ,x_rsrc_txn_rec) ) THEN
3413: RAISE rsrc_txn_insert_err;
3414: END IF;
3415:
3415:
3416: l_rsrc_txn_rec := x_rsrc_txn_rec;
3417:
3418: -- Bug 9506856 - Fetch the record directly from the DB to get all column values.
3419: IF NOT (gme_resource_txns_dbl.fetch_row (l_rsrc_txn_rec, l_rsrc_txn_rec) ) THEN
3420: RAISE rsrc_txn_fetch_err;
3421: END IF;
3422:
3423: -- Bug 9506856 - Make call to GMF for actual costing
3530: ,p_activity IN VARCHAR2 := NULL
3531: ,p_resource IN VARCHAR2 := NULL
3532: ,p_reason_name IN VARCHAR2
3533: ,p_instance_no IN NUMBER
3534: ,p_rsrc_txn_rec IN gme_resource_txns%ROWTYPE
3535: ,x_rsrc_txn_rec IN OUT NOCOPY gme_resource_txns%ROWTYPE
3536: ,x_return_status OUT NOCOPY VARCHAR2)
3537: IS
3538: l_api_name CONSTANT VARCHAR2 (30) := 'start_cmplt_actual_rsrc_txn';
3531: ,p_resource IN VARCHAR2 := NULL
3532: ,p_reason_name IN VARCHAR2
3533: ,p_instance_no IN NUMBER
3534: ,p_rsrc_txn_rec IN gme_resource_txns%ROWTYPE
3535: ,x_rsrc_txn_rec IN OUT NOCOPY gme_resource_txns%ROWTYPE
3536: ,x_return_status OUT NOCOPY VARCHAR2)
3537: IS
3538: l_api_name CONSTANT VARCHAR2 (30) := 'start_cmplt_actual_rsrc_txn';
3539: l_resource_txns gme_resource_txns%ROWTYPE;
3535: ,x_rsrc_txn_rec IN OUT NOCOPY gme_resource_txns%ROWTYPE
3536: ,x_return_status OUT NOCOPY VARCHAR2)
3537: IS
3538: l_api_name CONSTANT VARCHAR2 (30) := 'start_cmplt_actual_rsrc_txn';
3539: l_resource_txns gme_resource_txns%ROWTYPE;
3540: l_batch_header gme_batch_header%ROWTYPE;
3541: l_line_id NUMBER;
3542: l_step_status NUMBER;
3543: l_return_status VARCHAR2 (2);
3545: l_usage_uom VARCHAR2 (4);
3546: l_instance_id NUMBER;
3547: l_reason_id NUMBER;
3548:
3549: l_rsrc_txn_rec gme_resource_txns%ROWTYPE;
3550:
3551: CURSOR cur_fetch_resource_dtl (v_line_id NUMBER)
3552: IS
3553: ---SELECT resources,usage_uom
3680: END IF;
3681:
3682: l_rsrc_txn_rec.sequence_dependent_ind := 0;
3683:
3684: IF NOT (gme_resource_txns_dbl.insert_row (l_rsrc_txn_rec
3685: ,x_rsrc_txn_rec) ) THEN
3686: RAISE rsrc_txn_insert_err;
3687: END IF;
3688:
3733: 14th March 2005 Punit kumar
3734: Convergence changes
3735: =============================================================================================*/
3736: PROCEDURE end_cmplt_actual_rsrc_txn (
3737: p_rsrc_txn_rec IN gme_resource_txns%ROWTYPE
3738: ,p_reason_name IN VARCHAR2
3739: ,p_instance_no IN NUMBER
3740: ,x_rsrc_txn_rec IN OUT NOCOPY gme_resource_txns%ROWTYPE
3741: ,x_return_status OUT NOCOPY VARCHAR2)
3736: PROCEDURE end_cmplt_actual_rsrc_txn (
3737: p_rsrc_txn_rec IN gme_resource_txns%ROWTYPE
3738: ,p_reason_name IN VARCHAR2
3739: ,p_instance_no IN NUMBER
3740: ,x_rsrc_txn_rec IN OUT NOCOPY gme_resource_txns%ROWTYPE
3741: ,x_return_status OUT NOCOPY VARCHAR2)
3742: IS
3743: l_api_name CONSTANT VARCHAR2 (30) := 'end_cmplt_actual_rsrc_txn';
3744: l_resource_txns gme_resource_txns%ROWTYPE;
3740: ,x_rsrc_txn_rec IN OUT NOCOPY gme_resource_txns%ROWTYPE
3741: ,x_return_status OUT NOCOPY VARCHAR2)
3742: IS
3743: l_api_name CONSTANT VARCHAR2 (30) := 'end_cmplt_actual_rsrc_txn';
3744: l_resource_txns gme_resource_txns%ROWTYPE;
3745: l_batch_header gme_batch_header%ROWTYPE;
3746: l_step_resources gme_batch_step_resources%ROWTYPE;
3747: l_resource_tbl gme_common_pvt.resource_transactions_tab;
3748: --Begin Bug# 3479669
3745: l_batch_header gme_batch_header%ROWTYPE;
3746: l_step_resources gme_batch_step_resources%ROWTYPE;
3747: l_resource_tbl gme_common_pvt.resource_transactions_tab;
3748: --Begin Bug# 3479669
3749: l_tran_rec gme_resource_txns%ROWTYPE;
3750: --End Bug# 3479669
3751: l_step_status NUMBER;
3752: l_return_status VARCHAR2 (2);
3753: l_txn_usage NUMBER;
3759: l_line_id NUMBER;
3760: l_rsrc_trans_count NUMBER;
3761: l_hour_um sy_uoms_mst.um_code%TYPE;
3762: l_trans_date DATE;
3763: l_rsrc_txn_rec gme_resource_txns%ROWTYPE;
3764:
3765: --siva added following variables
3766: x_trans_date DATE;
3767: x_reason_id NUMBER;
3769:
3770: CURSOR cur_validate_poc_trans_id (v_poc_trans_id NUMBER)
3771: IS
3772: SELECT 1
3773: FROM gme_resource_txns
3774: WHERE poc_trans_id = v_poc_trans_id;
3775:
3776: invalid_poc_trans_id EXCEPTION;
3777: validation_failure EXCEPTION;
3826: --END IF;
3827:
3828: l_rsrc_txn_rec.poc_trans_id := p_rsrc_txn_rec.poc_trans_id;
3829:
3830: IF NOT (gme_resource_txns_dbl.fetch_row (l_rsrc_txn_rec, l_rsrc_txn_rec) ) THEN
3831: RAISE rsrc_txn_fetch_err;
3832: END IF;
3833:
3834: IF ( (l_rsrc_txn_rec.resource_usage <> 0)
4006:
4007: IF l_rsrc_txn_rec.posted_ind = 1 THEN
4008: l_rsrc_txn_rec.posted_ind := 0;
4009:
4010: IF NOT (gme_resource_txns_dbl.insert_row (l_rsrc_txn_rec, l_tran_rec) ) THEN
4011: RAISE rsrc_txn_ins_err;
4012: END IF;
4013: x_rsrc_txn_rec := l_tran_rec ;
4014: ELSE
4013: x_rsrc_txn_rec := l_tran_rec ;
4014: ELSE
4015: --End Bug#3479669
4016:
4017: ---IF NOT (GME_RESOURCE_TXNS_DBL.update_row(l_resource_txns)) THEN
4018: IF NOT (gme_resource_txns_dbl.update_row (l_rsrc_txn_rec) ) THEN
4019: RAISE rsrc_txn_upd_err;
4020: END IF;
4021:
4014: ELSE
4015: --End Bug#3479669
4016:
4017: ---IF NOT (GME_RESOURCE_TXNS_DBL.update_row(l_resource_txns)) THEN
4018: IF NOT (gme_resource_txns_dbl.update_row (l_rsrc_txn_rec) ) THEN
4019: RAISE rsrc_txn_upd_err;
4020: END IF;
4021:
4022: x_rsrc_txn_rec := l_rsrc_txn_rec ;