1: PACKAGE BODY GMS_OIE_INT_PKG AS
2: -- $Header: gmsoieib.pls 120.1 2005/07/26 14:38:11 appldev noship $
3:
4: PROCEDURE RaiseException(
5: p_calling_sequence IN VARCHAR2,
36: WHEN NO_DATA_FOUND THEN
37: RETURN FALSE;
38:
39: WHEN OTHERS THEN
40: GMS_OIE_INT_PKG.RaiseException( 'GetAwardNumber' );
41: APP_EXCEPTION.RAISE_EXCEPTION;
42: return FALSE;
43:
44: END GetAwardNumber;
62: WHEN NO_DATA_FOUND THEN
63: RETURN FALSE;
64:
65: WHEN OTHERS THEN
66: GMS_OIE_INT_PKG.RaiseException( 'GetAwardInfo' );
67: APP_EXCEPTION.RAISE_EXCEPTION;
68: return FALSE;
69:
70: END GetAwardInfo;
87: WHEN NO_DATA_FOUND THEN
88: RETURN FALSE;
89:
90: WHEN OTHERS THEN
91: GMS_OIE_INT_PKG.RaiseException( 'GetAwardID' );
92: APP_EXCEPTION.RAISE_EXCEPTION;
93: return FALSE;
94:
95: END GetAwardID;
116: WHEN NO_DATA_FOUND THEN
117: RETURN FALSE;
118:
119: WHEN OTHERS THEN
120: GMS_OIE_INT_PKG.RaiseException( 'IsSponsoredProject' );
121: APP_EXCEPTION.RAISE_EXCEPTION;
122: return FALSE;
123:
124: END IsSponsoredProject ;
154: WHEN NO_DATA_FOUND THEN
155: RETURN FALSE;
156:
157: WHEN OTHERS THEN
158: GMS_OIE_INT_PKG.RaiseException( 'IsAwardValid' );
159: APP_EXCEPTION.RAISE_EXCEPTION;
160: return FALSE;
161:
162: END IsAwardValid;
181: WHEN NO_DATA_FOUND THEN
182: RETURN FALSE;
183:
184: WHEN OTHERS THEN
185: GMS_OIE_INT_PKG.RaiseException( 'AwardFundingProject' );
186: APP_EXCEPTION.RAISE_EXCEPTION;
187: return FALSE;
188:
189: END AwardFundingProject;
223: end if;
224:
225: EXCEPTION
226: WHEN OTHERS THEN
227: GMS_OIE_INT_PKG.RaiseException( 'ValidateAward' );
228: APP_EXCEPTION.RAISE_EXCEPTION;
229: return FALSE;
230: END DoGrantsValidation;
231: --------------------------------------------------------------------------------
252: return v_adl_rec.award_set_id;
253:
254: EXCEPTION
255: WHEN OTHERS THEN
256: GMS_OIE_INT_PKG.RaiseException( 'CreateACGenADL' );
257: APP_EXCEPTION.RAISE_EXCEPTION;
258: END CreateACGenADL;
259: ----------------------------------------------------------------------------------
260: -- This function deletes the award distribution line created for Accounting purpose.
284: -- * Common processing for both the above sources is to create ADLs with document_type = 'AP'
285: -- and update the award_id column on AP_INVOICE_DISTRIBUTIONS_ALL table with award_set_id of the
286: -- new ADLs.
287: --
288: procedure create_award_distributions(p_invoice_id IN gms_oie_int_pkg.invoice_id_tab) is
289:
290: TYPE pt_award_set_id is table of number index by binary_integer;
291: TYPE pt_date is table of date index by binary_integer;
292: TYPE pt_varchar25 is table of varchar2(25) index by binary_integer;
576: end if;
577:
578: END GMS_ENABLED;
579: -----------------------------------------------------------------------------------
580: END GMS_OIE_INT_PKG;