25: PROCEDURE Retrieve_Applications
26: ( p_api_version IN NUMBER
27: , x_Application_tbl OUT BIS_Application_PVT.Application_Tbl_Type
28: , x_return_status OUT VARCHAR2
29: , x_error_Tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
30: )
31: IS
32:
33: cursor app_cursor is
81: PROCEDURE Validate_Application
82: ( p_api_version IN NUMBER
83: , p_Application_Rec IN BIS_Application_PVT.Application_Rec_Type
84: , x_return_status OUT VARCHAR2
85: , x_error_Tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
86: )
87: IS
88:
89: l_dummy number;
97: x_return_status := FND_API.G_RET_STS_SUCCESS;
98:
99: if (p_Application_Rec.Application_id <>
100: BIS_Application_PVT.G_NO_APPLICATION_ID) then
101: if(BIS_UTILITIES_PUB.Value_Not_Missing(p_Application_Rec.Application_id)
102: =FND_API.G_TRUE) then
103: open chk_application;
104: fetch chk_application into l_dummy;
105: if (chk_application%NOTFOUND) then
108: BIS_UTILITIES_PVT.Add_Error_Message
109: ( p_error_msg_name => 'BIS_INVALID_APPLICAIOTN_ID'
110: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
111: , p_error_proc_name => G_PKG_NAME||'.Validate_Application'
112: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
113: );
114:
115: RAISE FND_API.G_EXC_ERROR;
116: end if;
149: ( p_api_version IN NUMBER
150: , p_Application_Rec IN BIS_Application_PVT.Application_Rec_Type
151: , x_Application_Rec OUT BIS_Application_PVT.Application_Rec_Type
152: , x_return_status OUT VARCHAR2
153: , x_error_Tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
154: )
155: IS
156:
157: BEGIN
194: , p_Application_Short_Name IN VARCHAR2
195: , p_Application_Name IN VARCHAR2
196: , x_Application_ID OUT NUMBER
197: , x_return_status OUT VARCHAR2
198: , x_error_Tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
199: )
200: IS
201:
202: BEGIN
201:
202: BEGIN
203: x_return_status := FND_API.G_RET_STS_SUCCESS;
204:
205: if (BIS_UTILITIES_PUB.Value_Not_Missing(p_Application_Short_Name)
206: = FND_API.G_TRUE) then
207: SELECT Application_id into x_Application_ID
208: FROM fnd_application_vl
209: WHERE Application_short_name = p_Application_Short_Name;
206: = FND_API.G_TRUE) then
207: SELECT Application_id into x_Application_ID
208: FROM fnd_application_vl
209: WHERE Application_short_name = p_Application_Short_Name;
210: elsif (BIS_UTILITIES_PUB.Value_Not_Missing(p_Application_Name)
211: = FND_API.G_TRUE) then
212: SELECT Application_id into x_Application_ID
213: FROM fnd_application_vl
214: WHERE Application_name = p_Application_Name;