1: PACKAGE BODY igs_ad_ti_comp AS
2: /* $Header: IGSADA3B.pls 120.4 2006/04/25 04:17:09 rghosh ship $ */
3:
4: FUNCTION upd_trk_step_complete (
5: p_tracking_id igs_tr_step.tracking_id%TYPE,
508: END IF;
509:
510: -- Once all the Tracking Steps are completed successfull, then return the TRUE to the Calling Procedure and COMMIT the transactions.
511: -- If called from Job then commit , if called from SS skip commit
512: IF NVL( IGS_AD_TI_COMP.G_CALLED_FROM, 'J') = 'J' THEN
513: COMMIT;
514: END IF;
515: RETURN TRUE;
516:
1015: END IF;
1016:
1017: -- For all the successful transactions save the changes to the database
1018: -- If called from Job then commit , if called from SS skip commit
1019: IF NVL( IGS_AD_TI_COMP.G_CALLED_FROM, 'J') = 'J' THEN
1020: COMMIT;
1021: END IF;
1022:
1023: EXCEPTION
1022:
1023: EXCEPTION
1024: WHEN OTHERS THEN
1025: FND_MESSAGE.SET_NAME ( 'IGS', 'IGS_GE_UNHANDLED_EXP');
1026: FND_MESSAGE.SET_TOKEN ( 'NAME', ' igs_ad_ti_comp.upd_trk_itm_st');
1027: errbuf := FND_MESSAGE.GET_STRING ( 'IGS', FND_MESSAGE.GET);
1028: -- Rollback the transaction
1029: ROLLBACK;
1030: retcode := 2;
1030: retcode := 2;
1031: -- Handle the standard igs-message stack
1032: igs_ge_msg_stack.conc_exception_hndl;
1033: END upd_trk_itm_st;
1034: END igs_ad_ti_comp;