APPS.PA_TRANSACTION_INTERFACE_T4 dependencies on PA_TXN_INT_TRIG_CTL

Line 18: If pa_txn_int_trig_ctl.G_TrxImport2 IS NULL Then

14: --ones are not rejected ('R' transaction status code) and remain as Pending ('P')
15: --Hence they get picked up again in the next loop of the processing and EI's get created
16: --for them. This is wrong and thus this trigger code (in the no data found) will be
17: --executed only when trx import is not running.
18: If pa_txn_int_trig_ctl.G_TrxImport2 IS NULL Then
19:
20: SELECT 1
21: INTO dummy
22: FROM dual

Line 29: pa_txn_int_trig_ctl.G_TrxImport2 := 1;

25: WHERE concurrent_program_name in ( 'PAXTRTRX' , 'PAAPIMP_SI', 'PAAPIMP')
26: AND concurrent_program_id = fnd_global.conc_program_id
27: AND application_id = 275) ;
28:
29: pa_txn_int_trig_ctl.G_TrxImport2 := 1;
30:
31: ElsIf pa_txn_int_trig_ctl.G_TrxImport2 = 0 Then
32:
33: RAISE NO_DATA_FOUND;

Line 31: ElsIf pa_txn_int_trig_ctl.G_TrxImport2 = 0 Then

27: AND application_id = 275) ;
28:
29: pa_txn_int_trig_ctl.G_TrxImport2 := 1;
30:
31: ElsIf pa_txn_int_trig_ctl.G_TrxImport2 = 0 Then
32:
33: RAISE NO_DATA_FOUND;
34:
35: End If;

Line 40: pa_txn_int_trig_ctl.G_TrxImport2 := 0;

36:
37: EXCEPTION
38: WHEN NO_DATA_FOUND THEN
39:
40: pa_txn_int_trig_ctl.G_TrxImport2 := 0;
41:
42: IF (pa_txn_int_trig_ctl.T4_Trig = TRUE ) THEN
43: pa_txn_int_trig_ctl.T4_Trig := FALSE ;
44: FOR v_index in 1 .. (pa_txn_int_trig_ctl.idx - 1 ) LOOP

Line 42: IF (pa_txn_int_trig_ctl.T4_Trig = TRUE ) THEN

38: WHEN NO_DATA_FOUND THEN
39:
40: pa_txn_int_trig_ctl.G_TrxImport2 := 0;
41:
42: IF (pa_txn_int_trig_ctl.T4_Trig = TRUE ) THEN
43: pa_txn_int_trig_ctl.T4_Trig := FALSE ;
44: FOR v_index in 1 .. (pa_txn_int_trig_ctl.idx - 1 ) LOOP
45: IF pa_txn_int_trig_ctl.expenditure_id(v_index) IS NOT NULL then
46: BEGIN

Line 43: pa_txn_int_trig_ctl.T4_Trig := FALSE ;

39:
40: pa_txn_int_trig_ctl.G_TrxImport2 := 0;
41:
42: IF (pa_txn_int_trig_ctl.T4_Trig = TRUE ) THEN
43: pa_txn_int_trig_ctl.T4_Trig := FALSE ;
44: FOR v_index in 1 .. (pa_txn_int_trig_ctl.idx - 1 ) LOOP
45: IF pa_txn_int_trig_ctl.expenditure_id(v_index) IS NOT NULL then
46: BEGIN
47: UPDATE pa_transaction_interface

Line 44: FOR v_index in 1 .. (pa_txn_int_trig_ctl.idx - 1 ) LOOP

40: pa_txn_int_trig_ctl.G_TrxImport2 := 0;
41:
42: IF (pa_txn_int_trig_ctl.T4_Trig = TRUE ) THEN
43: pa_txn_int_trig_ctl.T4_Trig := FALSE ;
44: FOR v_index in 1 .. (pa_txn_int_trig_ctl.idx - 1 ) LOOP
45: IF pa_txn_int_trig_ctl.expenditure_id(v_index) IS NOT NULL then
46: BEGIN
47: UPDATE pa_transaction_interface
48: SET transaction_status_code = 'P'

Line 45: IF pa_txn_int_trig_ctl.expenditure_id(v_index) IS NOT NULL then

41:
42: IF (pa_txn_int_trig_ctl.T4_Trig = TRUE ) THEN
43: pa_txn_int_trig_ctl.T4_Trig := FALSE ;
44: FOR v_index in 1 .. (pa_txn_int_trig_ctl.idx - 1 ) LOOP
45: IF pa_txn_int_trig_ctl.expenditure_id(v_index) IS NOT NULL then
46: BEGIN
47: UPDATE pa_transaction_interface
48: SET transaction_status_code = 'P'
49: WHERE expenditure_id = pa_txn_int_trig_ctl.expenditure_id(v_index)

Line 49: WHERE expenditure_id = pa_txn_int_trig_ctl.expenditure_id(v_index)

45: IF pa_txn_int_trig_ctl.expenditure_id(v_index) IS NOT NULL then
46: BEGIN
47: UPDATE pa_transaction_interface
48: SET transaction_status_code = 'P'
49: WHERE expenditure_id = pa_txn_int_trig_ctl.expenditure_id(v_index)
50: --Bug 4552319. Used pa_txn_int_trig_ctl.batch_name_tbl populated in pa_transaction_interface_t3
51: AND batch_name = pa_txn_int_trig_ctl.batch_name_tbl(v_index) -- added this for index
52: AND transaction_status_code = 'R'
53: AND transaction_rejection_code is NULL

Line 50: --Bug 4552319. Used pa_txn_int_trig_ctl.batch_name_tbl populated in pa_transaction_interface_t3

46: BEGIN
47: UPDATE pa_transaction_interface
48: SET transaction_status_code = 'P'
49: WHERE expenditure_id = pa_txn_int_trig_ctl.expenditure_id(v_index)
50: --Bug 4552319. Used pa_txn_int_trig_ctl.batch_name_tbl populated in pa_transaction_interface_t3
51: AND batch_name = pa_txn_int_trig_ctl.batch_name_tbl(v_index) -- added this for index
52: AND transaction_status_code = 'R'
53: AND transaction_rejection_code is NULL
54: AND NOT EXISTS (SELECT 'Y' /* Bug#2473239 */

Line 51: AND batch_name = pa_txn_int_trig_ctl.batch_name_tbl(v_index) -- added this for index

47: UPDATE pa_transaction_interface
48: SET transaction_status_code = 'P'
49: WHERE expenditure_id = pa_txn_int_trig_ctl.expenditure_id(v_index)
50: --Bug 4552319. Used pa_txn_int_trig_ctl.batch_name_tbl populated in pa_transaction_interface_t3
51: AND batch_name = pa_txn_int_trig_ctl.batch_name_tbl(v_index) -- added this for index
52: AND transaction_status_code = 'R'
53: AND transaction_rejection_code is NULL
54: AND NOT EXISTS (SELECT 'Y' /* Bug#2473239 */
55: FROM PA_TRANSACTION_INTERFACE_ALL

Line 56: WHERE EXPENDITURE_ID = pa_txn_int_trig_ctl.expenditure_id(v_index)

52: AND transaction_status_code = 'R'
53: AND transaction_rejection_code is NULL
54: AND NOT EXISTS (SELECT 'Y' /* Bug#2473239 */
55: FROM PA_TRANSACTION_INTERFACE_ALL
56: WHERE EXPENDITURE_ID = pa_txn_int_trig_ctl.expenditure_id(v_index)
57: AND TRANSACTION_STATUS_CODE = 'R'
58: AND TRANSACTION_REJECTION_CODE IS NOT NULL);
59:
60: EXCEPTION

Line 62: pa_txn_int_trig_ctl.T4_Trig := TRUE ;

58: AND TRANSACTION_REJECTION_CODE IS NOT NULL);
59:
60: EXCEPTION
61: WHEN OTHERS THEN
62: pa_txn_int_trig_ctl.T4_Trig := TRUE ;
63: pa_txn_int_trig_ctl.idx := 1 ;
64: END ;
65: END IF ;
66: END LOOP ;

Line 63: pa_txn_int_trig_ctl.idx := 1 ;

59:
60: EXCEPTION
61: WHEN OTHERS THEN
62: pa_txn_int_trig_ctl.T4_Trig := TRUE ;
63: pa_txn_int_trig_ctl.idx := 1 ;
64: END ;
65: END IF ;
66: END LOOP ;
67: END IF ;

Line 68: pa_txn_int_trig_ctl.T4_Trig := TRUE ;

64: END ;
65: END IF ;
66: END LOOP ;
67: END IF ;
68: pa_txn_int_trig_ctl.T4_Trig := TRUE ;
69: pa_txn_int_trig_ctl.idx := 1 ;
70: END ;

Line 69: pa_txn_int_trig_ctl.idx := 1 ;

65: END IF ;
66: END LOOP ;
67: END IF ;
68: pa_txn_int_trig_ctl.T4_Trig := TRUE ;
69: pa_txn_int_trig_ctl.idx := 1 ;
70: END ;