[Home] [Help]
PACKAGE BODY: APPS.PA_PJP_PVT
Source
1 package body PA_PJP_PVT as
2 /* $Header: PARPJPVB.pls 120.2 2009/02/04 00:40:56 sugupta noship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(200) := 'PA_PJP_PVT';
5 G_APP_NAME CONSTANT VARCHAR2(3) := 'FPA';
6 G_API_TYPE CONSTANT VARCHAR2(4) := '_PVT';
7 L_API_NAME CONSTANT VARCHAR2(35) := 'PJP';
8
9
10 PROCEDURE Submit_Project_Aw
11 (
12 p_api_version IN NUMBER,
13 p_init_msg_list IN VARCHAR2,
14 p_commit IN VARCHAR2,
15 p_project_id IN NUMBER,
16 x_return_status OUT NOCOPY VARCHAR2,
17 x_msg_count OUT NOCOPY NUMBER,
18 x_msg_data OUT NOCOPY VARCHAR2
19 ) IS
20
21 BEGIN
22
23 IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
24 FND_LOG.String(
25 FND_LOG.LEVEL_PROCEDURE,
26 'fpa.sql.PA_PJP_PVT.Submit_Project_Aw',
27 'Entering');
28 END IF;
29
30 x_return_status := 'E';
31
32 -- Checking for PJP license.
33 IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
34 FND_LOG.String(
35 FND_LOG.LEVEL_PROCEDURE,
36 'fpa.sql.PA_PJP_PVT.Submit_Project_Aw',
37 'Checking for PJP License');
38 END IF;
39
40 if (fnd_profile.value('PJP_PRODUCT_LICENSED')) = 'Y' then
41
42 IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
43 FND_LOG.String(
44 FND_LOG.LEVEL_PROCEDURE,
45 'fpa.sql.PA_PJP_PVT.Submit_Project_Aw',
46 'PJP is licensed');
47 END IF;
48
49 IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
50 FND_LOG.String(
51 FND_LOG.LEVEL_PROCEDURE,
52 'PJPTEST',
53 'before Parameters are : version: ' || P_API_VERSION || ', list: ' || P_INIT_MSG_LIST || ', commit: ' || P_COMMIT || ', id: ' || P_PROJECT_ID || ', return: ' || X_RETURN_STATUS || ', count: ' || X_MSG_COUNT || ', data: ' || X_MSG_DATA);
54 END IF;
55
56
57 EXECUTE IMMEDIATE
58 'BEGIN Fpa_Process_Pvt.Submit_Project_Aw(:1, :2, :3, :4, :5, :6, :7); END;'
59 USING P_API_VERSION,
60 P_INIT_MSG_LIST,
61 P_COMMIT,
62 P_PROJECT_ID,
63 OUT X_RETURN_STATUS,
64 OUT X_MSG_COUNT,
65 OUT X_MSG_DATA;
66
67 else
68
69 IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
70 FND_LOG.String(
71 FND_LOG.LEVEL_PROCEDURE,
72 'fpa.sql.PA_PJP_PVT.Submit_Project_Aw',
73 'PJP is NOT licensed');
74 END IF;
75
76 end if;
77
78 IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
79 FND_LOG.String(
80 FND_LOG.LEVEL_PROCEDURE,
81 'fpa.sql.PA_PJP_PVT.Submit_Project_Aw',
82 'Returning');
83 END IF;
84
85
86 EXCEPTION
87
88 WHEN OTHERS then
89 IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
90 FND_LOG.String
91 ( FND_LOG.LEVEL_ERROR,
92 'fpa.sql.FPA_PJP_PVT.Submit_Project_Aw',
93 'WHEN OTHERS '||SQLERRM);
94 END IF;
95
96 END Submit_Project_Aw;
97
98
99
100 FUNCTION proj_scorecard_link_enabled
101 ( p_function_name IN VARCHAR2,
102 p_project_id IN NUMBER)
103 RETURN VARCHAR2 IS
104
105 l_sql_stat VARCHAR2(2000);
106 l_return_flag VARCHAR2(1) := 'F';
107
108 BEGIN
109
110 IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
111 FND_LOG.String(
112 FND_LOG.LEVEL_PROCEDURE,
113 'fpa.sql.PA_PJP_PVT.proj_scorecard_link_enabled.Begin',
114 'Entering');
115 END IF;
116
117 L_SQL_STAT := 'BEGIN :1 := Fpa_Process_Pvt.proj_scorecard_link_enabled(:2, :3); END;';
118 EXECUTE IMMEDIATE
119 l_sql_stat
120 USING OUT L_RETURN_FLAG, IN P_FUNCTION_NAME, IN P_PROJECT_ID;
121
122 IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
123 FND_LOG.String(
124 FND_LOG.LEVEL_PROCEDURE,
125 'fpa.sql.PA_PJP_PVT.proj_scorecard_link_enabled.Begin',
126 'Returning l_return_flag '||l_return_flag);
127 END IF;
128
129 RETURN l_RETURN_FLAG;
130
131 EXCEPTION
132
133 WHEN OTHERS then
134 IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
135 FND_LOG.String
136 ( FND_LOG.LEVEL_ERROR,
137 'fpa.sql.FPA_PJP_PVT.proj_scorecard_link_enabled',
138 'WHEN OTHERS '||SQLERRM);
139 END IF;
140
141 RETURN l_return_flag;
142
143 END proj_scorecard_link_enabled;
144
145
146 END PA_PJP_PVT;