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');
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;
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:
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');
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;
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:
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');
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;
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:
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);
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;
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:
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');
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;
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:
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');
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;
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);
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;
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:
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');
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;
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:
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);
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;
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:
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);
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;
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: