[Home] [Help]
73: -- This will insert a reversed expendtiure_item record and two new expenditure_items records into ADL table.
74: -- =========================================================================================================
75: PROCEDURE GMS_SPLIT (x_expenditure_item_id IN NUMBER ) IS
76:
77: adl_rec gms_award_distributions%ROWTYPE;
78: x_flag varchar2(1);
79: x_billable_flag varchar2(1); -- Bug 1756179
80: CURSOR rev_item(x_expenditure_item_id NUMBER ) IS
81: SELECT * from pa_expenditure_items_all
93: select DISTINCT award_id -- Fix for bug : 1786003
94: -- , bill_hold_flag -- Don't need to get bill_hold_flag
95: into source_award_id
96: -- ,x_flag
97: from gms_award_distributions adl
98: where adl.expenditure_item_id = x_expenditure_item_id
99: and adl.document_type = 'EXP'
100: and adl_status = 'A' ;
101:
346:
347: x_exp_item_id NUMBER ;
348:
349: CURSOR c1 is select ex.expenditure_item_id
350: from gms_award_distributions adl, pa_expenditure_items_all ex
351: where ex.expenditure_item_id = x_expenditure_item_id
352: and ex.expenditure_item_id = adl.expenditure_item_id
353: and ex.task_id = adl.task_id
354: and adl.award_id = source_award_id
358: --
359: -- 3628872 NMV View Perf issue was fixed.
360: -- and adl.award_set_id in
361: -- (select award_set_id
362: -- from gms_award_distributions adl
363: -- where award_id = source_award_id);
364: --
365:
366: BEGIN
540: PROCEDURE vert_ADJUST_ITEMS( X_CALLING_PROCESS IN VARCHAR2 ,
541: X_ROWS IN NUMBER,
542: X_status IN OUT NOCOPY NUMBER ) IS
543:
544: adl_rec gms_award_distributions%ROWTYPE;
545: x_exp_item_id NUMBER;
546: x_new_item_id NUMBER;
547: x_flag varchar2(1) ;
548: CURSOR rev_item(x_exp_item_id NUMBER ) IS
750: x_sob_id NUMBER ;
751: x_exp_org_id NUMBER ;
752: X_purgeable VARCHAR2(1) ;
753:
754: x_adl_rec gms_award_distributions%ROWTYPE ;
755:
756: -- New variables for performance :
757:
758: v_trx_src varchar2(30) := 'DUMMY';
794: -- -----------------------------
795: -- EXISTING ADL RECORD.
796: -- -----------------------------
797: CURSOR C_adlrec is
798: SELECT * from gms_award_distributions
799: where award_set_id = x_award_set_id
800: and adl_status = 'A' ;
801: -- ----------------------------------
802: -- GET max CDL line NUM.
1488: x_project_id IN NUMBER,
1489: x_task_id IN NUMBER,
1490: status IN OUT NOCOPY NUMBER ) IS
1491:
1492: x_rec gms_award_distributions%ROWTYPE ;
1493: x_invoice_distribution_id NUMBER ;
1494:
1495: BEGIN
1496:
1572: -- BUG : 2540841 - Reject supplier invoice dist lines having incorrect ADLS.
1573: -- =============================================================================
1574: cursor c_get_award is
1575: select adl.award_id
1576: from gms_award_distributions adl,
1577: ap_invoice_distributions_all apd
1578: where apd.award_id = adl.award_set_id
1579: and adl.adl_line_num = 1
1580: and adl.adl_status = 'A'
2085: -- bug : 2305048 ( Unable to interface AP to OGA.
2086: -- This is due to multiple active ADLs.
2087: cursor C1 is
2088: SELECT award_id
2089: FROM gms_award_distributions
2090: WHERE award_set_id = x_award_set_id
2091: AND adl_status = 'A'
2092: and adl_line_num = 1 ;
2093: --AND document_type = 'AP'
2106: -- =========================================================================
2107:
2108: cursor C_PO is
2109: SELECT award_id
2110: FROM gms_award_distributions
2111: WHERE award_set_id = x_award_set_id
2112: AND adl_status = 'A'
2113: AND document_type = 'PO'
2114: and adl_line_num = 1 ;
2280: --Query was based on invoice distribution ID stored in the l_system_reference5
2281: --
2282: select adl.award_id
2283: into l_award_id
2284: from gms_Award_distributions adl,
2285: ap_invoice_distributions_all apd
2286: where apd.invoice_id = l_system_reference2
2287: and apd.invoice_distribution_id = l_system_reference5
2288: and apd.invoice_id = adl.invoice_id
2312: END IF ;
2313: ELSE
2314: select adl.award_id
2315: into l_award_id
2316: from gms_Award_distributions adl
2317: where adl.expenditure_item_id = p_tran_item_id
2318: and adl.adl_status = 'A'
2319: and adl.document_type = 'EXP'
2320: and adl.adl_line_num = 1
2395: Begin
2396:
2397: select aw.status, aw.close_date
2398: into l_award_status ,l_close_date
2399: from gms_award_distributions adl ,gms_awards_all aw
2400: where adl.expenditure_item_id = x_expenditure_item_id
2401: and adl.adl_status = 'A'
2402: and adl.document_type = nvl(x_doc_type, 'EXP') --Bug 5726575
2403: and adl.award_id = aw.award_id
2439: l_award_id NUMBER := NULL; /* Bug 5194265 - Initialized to NULL */
2440:
2441: CURSOR C_AWARD_ID_CUR(p_expenditure_item_id NUMBER) IS
2442: SELECT AWARD_ID
2443: FROM GMS_AWARD_DISTRIBUTIONS
2444: WHERE EXPENDITURE_ITEM_ID = p_expenditure_item_id
2445: AND ADL_LINE_NUM = 1
2446: AND DOCUMENT_TYPE = 'EXP'
2447: AND ADL_STATUS = 'A';
2473: ELSE
2474: SELECT a.award_number
2475: INTO l_award_number
2476: FROM gms_awards_all a
2477: , gms_award_distributions adl
2478: WHERE adl.award_id = a.award_id
2479: AND adl.expenditure_item_id = p_expenditure_item_id
2480: AND adl.adl_line_num = 1
2481: AND adl.adl_status = 'A'