[Home] [Help]
1: PACKAGE BODY pa_gms_api AS
2: -- $Header: PAXGMS1B.pls 120.3 2006/08/26 11:22:54 asubrama noship $
3:
4: -- ---------------------------------------------------------
5: -- API for GMS to determine whether to allow adjustments or
15: -- Vertical application will override the code here.
16: -- If Grants is enabled then only execute grants call.
17: -- -------------------------------------------------
18: -- IF gms_install.enabled THEN -- bug 3002305.
19: IF pa_gms_api.vert_install THEN
20: x_return := gms_pa_api.vert_allow_adjustments (
21: x_expenditure_item_id);
22: END IF ;
23: RETURN x_return;
41: -- Vertical application will override the code here.
42: -- If Grants is enabled then only execute grants call.
43: -- -------------------------------------------------
44: -- IF gms_install.enabled THEN -- Bug 3002305
45: IF pa_gms_api.vert_install THEN
46: x_return := gms_pa_api.vert_transfer (
47: x_exp_item_id ,
48: x_error) ;
49: END IF ;
71: -- Vertical application will override the code here.
72: -- If Grants is enabled then only execute grants call.
73: -- -------------------------------------------------
74: -- IF gms_install.enabled THEN -- Bug 3002305
75: IF pa_gms_api.vert_install THEN
76: gms_pa_api.vert_adjust_items (x_calling_process,
77: x_rows,
78: x_status
79: );
95: -- Vertical application will override the code here.
96: -- If Grants is enabled then only execute grants call.
97: -- -------------------------------------------------
98: -- IF gms_install.enabled THEN -- Bug 3002305
99: IF pa_gms_api.vert_install THEN
100: x_return := gms_pa_api.vert_allow_action (x_adjust_action);
101: END IF ;
102: RETURN x_return;
103: EXCEPTION
123: x_gl_flag IN VARCHAR2
124: ) IS
125: BEGIN
126: -- IF NOT gms_install.enabled THEN -- Bug 3002305
127: IF NOT pa_gms_api.vert_install THEN
128: RETURN ;
129: END IF ;
130: -- -------------------------------------------------
131: -- Vertical application will override the code here.
155: status IN OUT NOCOPY NUMBER
156: ) IS
157: BEGIN
158: -- IF NOT gms_install.enabled THEN -- Bug 3002305
159: IF NOT pa_gms_api.vert_install THEN
160: RETURN ;
161: END IF ;
162: -- -------------------------------------------------
163: -- Vertical application will override the code here.
192: -- -------------------------------------------------
193: -- Vertical application will override the code here.
194: -- -------------------------------------------------
195: -- IF gms_install.enabled (x_org_id) -- do we need org here ? -- Bug 3002305
196: IF pa_gms_api.vert_install
197: OR NVL (x_org_id,
198: 0
199: ) = 0 THEN
200: gms_pa_api.vert_app_validate (x_transaction_source,
215: status IN OUT NOCOPY NUMBER
216: ) IS
217: BEGIN
218: -- IF NOT gms_install.enabled THEN -- Bug 3002305
219: IF NOT pa_gms_api.vert_install THEN
220: RETURN ;
221: END IF ;
222: -- -------------------------------------------------
223: -- Vertical application will override the code here.
237: RETURN BOOLEAN IS
238: x_return BOOLEAN;
239: BEGIN
240: x_return := FALSE;
241: IF pa_gms_api.vert_install THEN
242: x_return := gms_pa_api.is_sponsored_project (x_project_id
243: );
244: END IF;
245: RETURN x_return;
272: return l_award_id ;
273: END IF ;
274:
275: -- IF gms_install.enabled THEN -- bug 3002305
276: IF pa_gms_api.vert_install THEN
277: l_award_id := gms_pa_api.vert_get_award_id( x_award_set_id,
278: x_invoice_id,
279: x_distribution_line_number ) ;
280: ELSE
290:
291: /* R12 Changes Start */
292: PROCEDURE VERT_SET_ADJUST_ACTION(p_adjust_action IN VARCHAR2) IS
293: BEGIN
294: IF PA_GMS_API.VERT_INSTALL THEN
295: GMS_PA_API.SET_ADJUST_ACTION(p_adjust_action);
296: END IF;
297: END VERT_SET_ADJUST_ACTION;
298:
299: PROCEDURE VERT_SET_PROJECT_ID
300: ( p_source_project_id IN VARCHAR2
301: , p_dest_project_id IN VARCHAR2) IS
302: BEGIN
303: IF PA_GMS_API.VERT_INSTALL
304: AND (p_source_project_id IS NOT NULL
305: OR p_dest_project_id IS NOT NULL) THEN
306: GMS_PA_API.GMS_SET_PROJECT_ID(p_source_project_id, p_dest_project_id);
307: END IF;
310: PROCEDURE VERT_SET_AWARD_ID
311: ( p_source_award_id IN VARCHAR2
312: , p_dest_award_id IN VARCHAR2) IS
313: BEGIN
314: IF PA_GMS_API.VERT_INSTALL
315: AND (p_source_award_id IS NOT NULL
316: OR p_dest_award_id IS NOT NULL) THEN
317: GMS_PA_API.GMS_SET_AWARD(p_source_award_id, p_dest_award_id);
318: END IF;
321: PROCEDURE VERT_GET_SRC_DEST_AWARD_ID
322: ( X_source_award_id OUT NOCOPY VARCHAR2
323: , X_dest_award_id OUT NOCOPY VARCHAR2) IS
324: BEGIN
325: IF PA_GMS_API.VERT_INSTALL THEN
326: X_source_award_id := GMS_PA_API.SOURCE_AWARD_ID;
327: X_dest_award_id := GMS_PA_API.DEST_AWARD_ID;
328: END IF;
329: END VERT_GET_SRC_DEST_AWARD_ID;
330:
331: FUNCTION VERT_EI_AWD_EQUALS_SRC_AWD(p_expenditure_item_id NUMBER)
332: RETURN VARCHAR2 IS
333: BEGIN
334: IF PA_GMS_API.VERT_INSTALL THEN
335: IF GMS_PA_API.CHECK_ADJUST_ALLOWED(p_expenditure_item_id) THEN
336: RETURN 'Y';
337: ELSE
338: RETURN 'N';
344:
345: FUNCTION VERT_GET_EI_AWARD_ID(p_expenditure_item_id NUMBER)
346: RETURN NUMBER IS
347: BEGIN
348: IF PA_GMS_API.VERT_INSTALL THEN
349: RETURN GMS_PA_API.VERT_GET_EI_AWARD_ID(p_expenditure_item_id);
350: ELSE
351: RETURN NULL;
352: END IF;
362: FUNCTION VERT_GET_AWARD_NUMBER(
363: p_expenditure_item_id IN PA_EXPENDITURE_ITEMS_ALL.EXPENDITURE_ITEM_ID%TYPE
364: ) RETURN VARCHAR2 IS
365: BEGIN
366: IF NOT PA_GMS_API.VERT_INSTALL THEN
367: RETURN NULL;
368: ELSE
369: RETURN GMS_PA_API.VERT_GET_AWARD_NUMBER(
370: p_expenditure_item_id
391: ,p_from_award_number IN GMS_AWARDS_ALL.AWARD_NUMBER%TYPE DEFAULT NULL
392: ,p_to_award_number IN GMS_AWARDS_ALL.AWARD_NUMBER%TYPE DEFAULT NULL
393: ) RETURN VARCHAR2 IS
394: BEGIN
395: IF NOT PA_GMS_API.VERT_INSTALL THEN
396: RETURN 'Y';
397: ELSE
398: RETURN GMS_PA_API.VERT_IS_AWARD_WITHIN_RANGE(
399: p_expenditure_item_id
402: );
403: END IF;
404: END VERT_IS_AWARD_WITHIN_RANGE;
405:
406: END pa_gms_api;