1: PACKAGE BODY PA_PROJECT_VERIFY_PKG AS
2: /* $Header: PAXPRVRB.pls 120.4 2011/04/01 06:59:34 kkorrapo ship $ */
3:
4: PROCEDURE customer_exists
5: (x_project_id IN NUMBER,
30: dummy number;
31: begin
32: x_err_code := 0;
33: x_old_stack := x_err_stack;
34: x_err_stack := x_err_stack ||'->PA_PROJECT_VERIFY_PKG.client_exists';
35: x_err_msgname := NULL;
36: x_err_stage := 'Checking client exists...';
37:
38: OPEN get_top_task_cust_enbled;
85: dummy number;
86: begin
87: x_err_code := 0;
88: x_old_stack := x_err_stack;
89: x_err_stack := x_err_stack ||'->PA_PROJECT_VERIFY_PKG.contact_exists';
90: x_err_msgname := NULL;
91: x_err_stage := 'Checking contact exists...';
92: SELECT NULL
93: INTO dummy
221: -- that have the total 100 percent flag enabled, but whose defined
222: -- defined class codes do not actually total 100
223: x_err_code := 0;
224: x_old_stack := x_err_stack;
225: x_err_stack := x_err_stack ||'->PA_PROJECT_VERIFY_PKG.category_required';
226: x_err_msgname := NULL;
227: x_err_stage := 'Checking required category exists...';
228:
229: OPEN C11;
294: AND PROJECT_ROLE_TYPE = 'PROJECT MANAGER';
295: BEGIN
296: x_err_code := 0;
297: x_old_stack := x_err_stack;
298: x_err_stack := x_err_stack ||'->PA_PROJECT_VERIFY_PKG.manager_exists';
299: x_err_msgname := NULL;
300: x_err_stage := 'Checking manager exists...';
301:
302: OPEN c1 ;
364: dummy number;
365: begin
366: x_err_code := 0;
367: x_old_stack := x_err_stack;
368: x_err_stack := x_err_stack ||'->PA_PROJECT_VERIFY_PKG.revenue_budget';
369: x_err_msgname := NULL;
370: x_err_stage := 'Checking revenue budget exists...';
371: SELECT 'x' INTO dummy
372: FROM PA_BUDGET_VERSIONS bv,
394: dummy number;
395: begin
396: x_err_code := 0;
397: x_old_stack := x_err_stack;
398: x_err_stack := x_err_stack ||'->PA_PROJECT_VERIFY_PKG.cost_budget';
399: x_err_msgname := NULL;
400: x_err_stage := 'Checking cost budget exists...';
401: SELECT 'x' INTO dummy
402: FROM PA_BUDGET_VERSIONS bv,
426: dummy number;
427: begin
428: x_err_code := 0;
429: x_old_stack := x_err_stack;
430: x_err_stack := x_err_stack ||'->PA_PROJECT_VERIFY_PKG.billing_event';
431: x_err_msgname := NULL;
432: x_eamt_token_name := 'EAMT';
433: x_eamt_token_value := 0;
434: /* Commented out for now,since the code is incorrectly referencing
489: when others then
490: x_err_code := SQLCODE;
491: end billing_event;
492:
493: end PA_PROJECT_VERIFY_PKG;