PACKAGE BODY: APPS.PA_PJP_PVT

Source

1 package body PA_PJP_PVT as
2  /* $Header: PARPJPVB.pls 120.0 2005/05/29 18:43:26 appldev 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     EXECUTE IMMEDIATE
33     'BEGIN Fpa_Process_Pvt.Submit_Project_Aw(:1, :2, :3, :4, :5, :6, :7); END;'
34     USING P_API_VERSION,
35           P_INIT_MSG_LIST,
36           P_COMMIT,
37           P_PROJECT_ID,
38           OUT X_RETURN_STATUS,
39           OUT X_MSG_COUNT,
40           OUT X_MSG_DATA;
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              'Returning');
47     END IF;
48 
49 
50 EXCEPTION
51 
52     WHEN OTHERS then
53         IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
54                  FND_LOG.String
55                  ( FND_LOG.LEVEL_ERROR,
56                  'fpa.sql.FPA_PJP_PVT.Submit_Project_Aw',
57                  'WHEN OTHERS '||SQLERRM);
58         END IF;
59 
60 END Submit_Project_Aw;
61 
62 
63 
64  FUNCTION proj_scorecard_link_enabled
65  (   p_function_name    IN  VARCHAR2,
66      p_project_id       IN  NUMBER)
67   RETURN VARCHAR2 IS
68 
69   l_sql_stat    VARCHAR2(2000);
70   l_return_flag VARCHAR2(1) := 'F';
71 
72   BEGIN
73 
74     IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
75        FND_LOG.String(
76           FND_LOG.LEVEL_PROCEDURE,
77           'fpa.sql.PA_PJP_PVT.proj_scorecard_link_enabled.Begin',
78           'Entering');
79     END IF;
80 
81     L_SQL_STAT := 'BEGIN :1 := Fpa_Process_Pvt.proj_scorecard_link_enabled(:2, :3); END;';
82     EXECUTE IMMEDIATE
83     l_sql_stat
84     USING OUT L_RETURN_FLAG, IN P_FUNCTION_NAME, IN P_PROJECT_ID;
85 
86     IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
87        FND_LOG.String(
88           FND_LOG.LEVEL_PROCEDURE,
89           'fpa.sql.PA_PJP_PVT.proj_scorecard_link_enabled.Begin',
90           'Returning l_return_flag '||l_return_flag);
91     END IF;
92 
93     RETURN l_RETURN_FLAG;
94 
95   EXCEPTION
96 
97      WHEN OTHERS then
98         IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
99                  FND_LOG.String
100                  ( FND_LOG.LEVEL_ERROR,
101                  'fpa.sql.FPA_PJP_PVT.proj_scorecard_link_enabled',
102                  'WHEN OTHERS '||SQLERRM);
103         END IF;
104 
105       RETURN l_return_flag;
106 
107 END proj_scorecard_link_enabled;
108 
109 
110 END PA_PJP_PVT;