123: PROCEDURE get_trx_source
124: AS
125: BEGIN
126:
127: If (pa_txn_int_trig_ctl.G_UserTrxSrc3 = :NEW.user_transaction_source) then
128:
129: X_trx_src := pa_txn_int_trig_ctl.G_TrxSrc4;
130:
131: Else
125: BEGIN
126:
127: If (pa_txn_int_trig_ctl.G_UserTrxSrc3 = :NEW.user_transaction_source) then
128:
129: X_trx_src := pa_txn_int_trig_ctl.G_TrxSrc4;
130:
131: Else
132:
133: X_trx_src := NULL ;
135: INTO X_trx_src
136: FROM pa_transaction_sources
137: WHERE user_transaction_source = :NEW.user_transaction_source ;
138:
139: pa_txn_int_trig_ctl.G_TrxSrc4 := X_trx_src;
140: pa_txn_int_trig_ctl.G_UserTrxSrc3 := :NEW.user_transaction_source;
141:
142: End If;
143:
136: FROM pa_transaction_sources
137: WHERE user_transaction_source = :NEW.user_transaction_source ;
138:
139: pa_txn_int_trig_ctl.G_TrxSrc4 := X_trx_src;
140: pa_txn_int_trig_ctl.G_UserTrxSrc3 := :NEW.user_transaction_source;
141:
142: End If;
143:
144: :NEW.transaction_rejection_code := NULL ;
156: PROCEDURE get_system_linkage
157: AS
158: BEGIN
159:
160: If pa_txn_int_trig_ctl.G_TrxSrc5 = :NEW.transaction_source Then
161:
162: X_system_linkage := pa_txn_int_trig_ctl.G_SysLink2;
163:
164: Else
158: BEGIN
159:
160: If pa_txn_int_trig_ctl.G_TrxSrc5 = :NEW.transaction_source Then
161:
162: X_system_linkage := pa_txn_int_trig_ctl.G_SysLink2;
163:
164: Else
165:
166: X_system_linkage := NULL ;
168: INTO X_system_linkage
169: FROM pa_transaction_sources
170: WHERE transaction_source = :NEW.transaction_source ;
171:
172: pa_txn_int_trig_ctl.G_SysLink2 := X_system_linkage;
173: pa_txn_int_trig_ctl.G_TrxSrc5 := :NEW.transaction_source;
174:
175: End If;
176:
169: FROM pa_transaction_sources
170: WHERE transaction_source = :NEW.transaction_source ;
171:
172: pa_txn_int_trig_ctl.G_SysLink2 := X_system_linkage;
173: pa_txn_int_trig_ctl.G_TrxSrc5 := :NEW.transaction_source;
174:
175: End If;
176:
177: :NEW.transaction_rejection_code := NULL ;
673: :NEW.SC_XFER_CODE
674: ) ;
675:
676: --Bug 4686388,4552319)
677: pa_txn_int_trig_ctl.batch_name_tbl(pa_txn_int_trig_ctl.idx) := :OLD.batch_name;
678: pa_txn_int_trig_ctl.expenditure_id(pa_txn_int_trig_ctl.idx) := :OLD.expenditure_id ;
679: pa_txn_int_trig_ctl.idx := pa_txn_int_trig_ctl.idx+1 ;
680:
681: END;
674: ) ;
675:
676: --Bug 4686388,4552319)
677: pa_txn_int_trig_ctl.batch_name_tbl(pa_txn_int_trig_ctl.idx) := :OLD.batch_name;
678: pa_txn_int_trig_ctl.expenditure_id(pa_txn_int_trig_ctl.idx) := :OLD.expenditure_id ;
679: pa_txn_int_trig_ctl.idx := pa_txn_int_trig_ctl.idx+1 ;
680:
681: END;
675:
676: --Bug 4686388,4552319)
677: pa_txn_int_trig_ctl.batch_name_tbl(pa_txn_int_trig_ctl.idx) := :OLD.batch_name;
678: pa_txn_int_trig_ctl.expenditure_id(pa_txn_int_trig_ctl.idx) := :OLD.expenditure_id ;
679: pa_txn_int_trig_ctl.idx := pa_txn_int_trig_ctl.idx+1 ;
680:
681: END;