[Home] [Help]
60: denom_raw_cost,
61: acct_raw_cost,
62: acct_burdened_cost,
63: receipt_currency_amount
64: from gms_distributions
65: where NVL(dist_status,'X') <> 'FABA'
66: and document_header_id = x_doc_header_id
67: and document_type = x_doc_type;
68:
130: BEGIN
131: IF p_document_type = 'ENC' THEN
132: DELETE from gms_distribution_details A
133: WHERE document_type = p_document_type
134: and exists ( select 'X' from gms_distributions B
135: where A.document_header_id = b.document_distribution_id
136: and B.document_header_id = p_header_id
137: and b.document_type = p_document_type ) ;
138: ELSE
140: WHERE document_header_id = p_header_id
141: AND document_type = p_document_type ;
142: END IF ;
143:
144: DELETE from gms_distributions
145: WHERE document_header_id = p_header_id
146: AND document_type = p_document_type ;
147:
148: IF p_document_type = 'REQ' THEN
145: WHERE document_header_id = p_header_id
146: AND document_type = p_document_type ;
147:
148: IF p_document_type = 'REQ' THEN
149: INSERT INTO gms_distributions ( document_header_id,
150: document_distribution_id,
151: document_type,
152: gl_date,
153: project_id,
190:
191: l_count_rec := SQL%ROWCOUNT ;
192: ELSIF p_document_type = 'PO' THEN
193:
194: INSERT INTO gms_distributions ( document_header_id,
195: document_distribution_id,
196: document_type,
197: gl_date,
198: project_id,
235:
236: l_count_rec := SQL%ROWCOUNT ;
237: ELSIF p_document_type = 'AP' THEN
238:
239: INSERT INTO gms_distributions ( document_header_id,
240: document_distribution_id,
241: document_type,
242: gl_date,
243: project_id,
251: dist_status,
252: creation_date
253: )
254: -- ==========================================
255: -- R12 AP Lines Uptake: Insert into gms_distributions
256: -- got changed from picking distribution_line_number
257: -- to invoice_distribution_id for document type AP.
258: -- ==========================================
259: SELECT dst.invoice_id,
295:
296: L_COUNT_REC := SQL%ROWCOUNT ;
297: ELSIF p_document_type = 'ENC' THEN
298:
299: INSERT INTO gms_distributions ( document_header_id,
300: document_distribution_id,
301: document_type,
302: gl_date,
303: project_id,
342: ---- ********************* Fix for bug number : 1939601 start ****************----------
343:
344: ELSIF p_document_type = 'EXP' THEN
345:
346: INSERT INTO gms_distributions ( document_header_id,
347: document_distribution_id,
348: document_type,
349: gl_date,
350: project_id,
1223: -- ==== Create Distributions ========
1224: IF l_check_funds and l_tab_index > 0 then
1225: populate_dist_details(l_tab_index, p_doc_type);
1226:
1227: update gms_distributions
1228: set dist_status = 'FABA'
1229: where rowid = recs.rowid ;
1230:
1231: l_processed := l_processed + 1 ;
1237: -- ERR01 ( POETA Failed. )
1238:
1239: IF l_pattern_id <= 0 THEN
1240:
1241: update gms_distributions
1242: set dist_status = DECODE(l_pattern_id, -1, 'ERR01', 'ERR02' )
1243: where rowid = recs.rowid
1244: and document_header_id = p_doc_header_id
1245: and document_type = p_doc_type ;
1246:
1247: ELSIF NOT ( l_check_funds ) THEN
1248:
1249: -- ERR03 ( Check funds failed. )
1250: update gms_distributions
1251: set dist_status = 'ERR03'
1252: where rowid = recs.rowid
1253: and document_header_id = p_doc_header_id
1254: and document_type = p_doc_type ;
1265: end if;
1266:
1267: p_recs_processed := l_processed ;
1268: p_recs_rejected := l_rejected ;
1269: delete from gms_distributions
1270: where creation_date <= ( TRUNC(sysdate) -1 ) ;
1271:
1272: delete from gms_distribution_details
1273: where creation_date <= ( TRUNC(sysdate) -1 ) ;
1600: DELETE from GMS_DISTRIBUTION_DETAILS
1601: where document_header_id = p_xface_id ;
1602:
1603: pa_cc_utils.log_message(' No of GMS_DISTRIBUTION_DETAILS records deleted :'||to_char(SQL%ROWCOUNT));
1604: DELETE from GMS_DISTRIBUTIONS
1605: where document_header_id = p_xface_id ;
1606: pa_cc_utils.log_message(' No of GMS_DISTRIBUTIONS records deleted :'||to_char(SQL%ROWCOUNT));
1607: pa_cc_utils.reset_curr_function;
1608: EXCEPTION
1602:
1603: pa_cc_utils.log_message(' No of GMS_DISTRIBUTION_DETAILS records deleted :'||to_char(SQL%ROWCOUNT));
1604: DELETE from GMS_DISTRIBUTIONS
1605: where document_header_id = p_xface_id ;
1606: pa_cc_utils.log_message(' No of GMS_DISTRIBUTIONS records deleted :'||to_char(SQL%ROWCOUNT));
1607: pa_cc_utils.reset_curr_function;
1608: EXCEPTION
1609: When others then
1610: pa_cc_utils.log_message(' ERROR :'||SQLERRM);
2372:
2373: -- ========================================================================
2374: -- BUG: 1963556 ( ORA-1400 WHEN RUNNING PAXTRTRX FOR AWARD RELATED LABOR
2375: -- TRANSACTIONS ).
2376: -- Expenditure_organization_id is not null column in gms_distributions.
2377: -- This is required only for funds Check. For expenditures we don't have
2378: -- Funds check and afford to have it ZERO.
2379: -- ========================================================================
2380: V_exp_org_id(count_rec) := NVL(x_dummy,0) ;
2381: V_quantity(count_rec) := TrxRec.quantity ;
2382: -- = =================================================================
2383: -- = BUG: 3228565
2384: -- = Transaction import process is erroring out in pre import step.
2385: -- = gms_distributions.amount column is not null. Null value in
2386: -- = TrxRec.raw_cost is raising a ORA exception when inserting into
2387: -- = gms_distributions table.
2388: -- = Error is fixed by using NVL(TrxRec.raw_cost,0)
2389: -- = =================================================================
2383: -- = BUG: 3228565
2384: -- = Transaction import process is erroring out in pre import step.
2385: -- = gms_distributions.amount column is not null. Null value in
2386: -- = TrxRec.raw_cost is raising a ORA exception when inserting into
2387: -- = gms_distributions table.
2388: -- = Error is fixed by using NVL(TrxRec.raw_cost,0)
2389: -- = =================================================================
2390: V_amount(count_rec) := NVL(TrxRec.raw_cost ,0);
2391: V_exp_type(count_rec) := TrxRec.Expenditure_type ;
2411: -- Insert Records into Distribution Table.
2412: -- PLSQL Bulk operation
2413: -- =================================================
2414: FORALL indx in 1..count_rec
2415: INSERT INTO gms_distributions ( document_header_id,
2416: document_distribution_id,
2417: document_type,
2418: gl_date,
2419: project_id,
2455: SYSDATE
2456: ) ;
2457: END LOOP ;
2458:
2459: pa_cc_utils.log_message('Insert record into gms_distributions :'||to_char(count_rec));
2460: -- =====================================
2461: -- There is nothing to distribute.
2462: -- =====================================
2463: IF x_record_found = 0 THEN
2551: transaction_status_code = 'PR'
2552: WHERE A.transaction_source = P_transaction_source
2553: --AND A.batch_name = p_batch
2554: AND A.TXN_INTERFACE_ID IN ( SELECT B.document_distribution_id
2555: FROM GMS_DISTRIBUTIONS B
2556: WHERE B.document_header_id = P_Xface_id
2557: and B.document_type = 'EXP'
2558: and NVL(B.dist_status,'X') <> 'FABA' ) ;
2559: