PACKAGE BODY: APPS.ASO_ORDER_FEEDBACK_UTIL

Source

1 PACKAGE BODY ASO_ORDER_FEEDBACK_UTIL AS
2 /* $Header: asouomfb.pls 115.3 2002/05/21 17:02:03 pkm ship      $ */
3 
4 -- ---------------------------------------------------------
5 -- Define global variables
6 -- ---------------------------------------------------------
7 G_PKG_NAME CONSTANT VARCHAR2(30) := 'ASO_ORDER_FEEDBACK_UTIL';
8 G_USER CONSTANT VARCHAR2(30) := FND_GLOBAL.USER_ID;
9 
10 
11 -- ---------------------------------------------------------
12 -- Define Procedures
13 -- ---------------------------------------------------------
14 
15 PROCEDURE Check_LookupCode
16 (
17    p_lookup_type     IN VARCHAR2,
18    p_lookup_code        IN VARCHAR2,
19    p_param_name      IN VARCHAR2,
20    p_api_name     IN VARCHAR2
21 ) IS
22 
23    l_dummy           VARCHAR2(1);
24    CURSOR c1 IS
25    SELECT 'x'
26    FROM aso_lookups
27    WHERE lookup_type = p_lookup_type
28    AND   lookup_code = p_lookup_code
29    AND enabled_flag = 'Y';
30 -- AND Trunc(Sysdate) BETWEEN Trunc(Nvl(start_date_active, Sysdate))
31 --    AND Trunc(Nvl(end_date_active, nvl(start_date_active,Sysdate)));
32 
33 
34 BEGIN
35    OPEN c1;
36    FETCH c1 INTO l_dummy;
37    IF c1%NOTFOUND THEN
38       CLOSE c1;
39       FND_MESSAGE.SET_NAME('ASO','ASO_API_ALL_LOOKUP_FAILURE');
40       FND_MESSAGE.SET_TOKEN('API_NAME',p_api_name);
41       FND_MESSAGE.SET_TOKEN('LOOKUP_CODE',p_lookup_code);
42       FND_MESSAGE.SET_TOKEN('LOOKUP_TYPE',p_lookup_type);
43       FND_MESSAGE.SET_TOKEN('PARAMETER',p_param_name);
44       FND_MSG_PUB.Add;
45       RAISE FND_API.G_EXC_ERROR;
46    END IF;
47 END Check_LookupCode;
48 
49 PROCEDURE Check_Reqd_Param
50 (
51    p_var1      IN NUMBER,
52    p_param_name   IN VARCHAR2,
53    p_api_name  IN VARCHAR2
54 ) IS
55 BEGIN
56    IF (NVL(p_var1,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM) THEN
57       FND_MESSAGE.SET_NAME('ASO','ASO_API_ALL_MISSING_PARAM');
58       FND_MESSAGE.SET_TOKEN('API_NAME',p_api_name);
59       FND_MESSAGE.SET_TOKEN('PARAMETER',p_param_name);
60       FND_MSG_PUB.Add;
61       RAISE FND_API.G_EXC_ERROR;
62    END IF;
63 END Check_Reqd_Param;
64 
65 
66 PROCEDURE Check_Reqd_Param
67 (
68    p_var1      IN VARCHAR2,
69    p_param_name   IN VARCHAR2,
70    p_api_name  IN VARCHAR2
71 ) IS
72 BEGIN
73    IF (NVL(p_var1,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR) THEN
74     FND_MESSAGE.SET_NAME('ASO','ASO_API_ALL_MISSING_PARAM');
75     FND_MESSAGE.SET_TOKEN('API_NAME',p_api_name);
76     FND_MESSAGE.SET_TOKEN('PARAMETER',p_param_name);
77     FND_MSG_PUB.Add;
78     RAISE FND_API.G_EXC_ERROR;
79    END IF;
80 END Check_Reqd_Param;
81 
82 PROCEDURE Check_Reqd_Param
83 (
84    p_var1      IN DATE,
85    p_param_name   IN VARCHAR2,
86    p_api_name  IN VARCHAR2
87 ) IS
88 BEGIN
89    IF (NVL(p_var1,FND_API.G_MISS_DATE) = FND_API.G_MISS_DATE) THEN
90       FND_MESSAGE.SET_NAME('ASO','ASO_API_ALL_MISSING_PARAM');
91       FND_MESSAGE.SET_TOKEN('API_NAME',p_api_name);
92       FND_MESSAGE.SET_TOKEN('PARAMETER',p_param_name);
93       FND_MSG_PUB.Add;
94       RAISE FND_API.G_EXC_ERROR;
95    END IF;
96 END Check_Reqd_Param;
97 
98 
99 END ASO_ORDER_FEEDBACK_UTIL;