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
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
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;
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
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
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:
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 ;