APPS.AHL_UC_UNITCONFIG_PVT dependencies on FND_API

Line 48: ELSIF (p_x_uc_header_rec.instance_number = FND_API.G_MISS_CHAR) THEN

44: IS
45: BEGIN
46: IF (p_x_uc_header_rec.instance_number IS NULL) THEN
47: p_x_uc_header_rec.instance_id := NULL;
48: ELSIF (p_x_uc_header_rec.instance_number = FND_API.G_MISS_CHAR) THEN
49: p_x_uc_header_rec.instance_id := FND_API.G_MISS_NUM;
50: END IF;
51: IF (p_x_uc_header_rec.mc_name IS NULL AND
52: p_x_uc_header_rec.mc_revision IS NULL) THEN

Line 49: p_x_uc_header_rec.instance_id := FND_API.G_MISS_NUM;

45: BEGIN
46: IF (p_x_uc_header_rec.instance_number IS NULL) THEN
47: p_x_uc_header_rec.instance_id := NULL;
48: ELSIF (p_x_uc_header_rec.instance_number = FND_API.G_MISS_CHAR) THEN
49: p_x_uc_header_rec.instance_id := FND_API.G_MISS_NUM;
50: END IF;
51: IF (p_x_uc_header_rec.mc_name IS NULL AND
52: p_x_uc_header_rec.mc_revision IS NULL) THEN
53: p_x_uc_header_rec.mc_header_id := NULL;

Line 54: ELSIF (p_x_uc_header_rec.mc_name = FND_API.G_MISS_CHAR AND

50: END IF;
51: IF (p_x_uc_header_rec.mc_name IS NULL AND
52: p_x_uc_header_rec.mc_revision IS NULL) THEN
53: p_x_uc_header_rec.mc_header_id := NULL;
54: ELSIF (p_x_uc_header_rec.mc_name = FND_API.G_MISS_CHAR AND
55: p_x_uc_header_rec.mc_revision = FND_API.G_MISS_CHAR) THEN
56: p_x_uc_header_rec.mc_header_id := FND_API.G_MISS_NUM;
57: END IF;
58: END clear_lov_attribute_ids;

Line 55: p_x_uc_header_rec.mc_revision = FND_API.G_MISS_CHAR) THEN

51: IF (p_x_uc_header_rec.mc_name IS NULL AND
52: p_x_uc_header_rec.mc_revision IS NULL) THEN
53: p_x_uc_header_rec.mc_header_id := NULL;
54: ELSIF (p_x_uc_header_rec.mc_name = FND_API.G_MISS_CHAR AND
55: p_x_uc_header_rec.mc_revision = FND_API.G_MISS_CHAR) THEN
56: p_x_uc_header_rec.mc_header_id := FND_API.G_MISS_NUM;
57: END IF;
58: END clear_lov_attribute_ids;
59:

Line 56: p_x_uc_header_rec.mc_header_id := FND_API.G_MISS_NUM;

52: p_x_uc_header_rec.mc_revision IS NULL) THEN
53: p_x_uc_header_rec.mc_header_id := NULL;
54: ELSIF (p_x_uc_header_rec.mc_name = FND_API.G_MISS_CHAR AND
55: p_x_uc_header_rec.mc_revision = FND_API.G_MISS_CHAR) THEN
56: p_x_uc_header_rec.mc_header_id := FND_API.G_MISS_NUM;
57: END IF;
58: END clear_lov_attribute_ids;
59:
60: -- Procedure to change G_MISS values to NULL in case they are passed during creation

Line 65: IF (p_x_uc_header_rec.active_uc_status_code = FND_API.G_MISS_CHAR) THEN

61: PROCEDURE nullify_attributes(
62: p_x_uc_header_rec IN OUT NOCOPY ahl_uc_instance_pvt.uc_header_rec_type)
63: IS
64: BEGIN
65: IF (p_x_uc_header_rec.active_uc_status_code = FND_API.G_MISS_CHAR) THEN
66: p_x_uc_header_rec.active_uc_status_code := null;
67: END IF;
68: IF (p_x_uc_header_rec.mc_header_id = FND_API.G_MISS_NUM) THEN
69: p_x_uc_header_rec.mc_header_id := null;

Line 68: IF (p_x_uc_header_rec.mc_header_id = FND_API.G_MISS_NUM) THEN

64: BEGIN
65: IF (p_x_uc_header_rec.active_uc_status_code = FND_API.G_MISS_CHAR) THEN
66: p_x_uc_header_rec.active_uc_status_code := null;
67: END IF;
68: IF (p_x_uc_header_rec.mc_header_id = FND_API.G_MISS_NUM) THEN
69: p_x_uc_header_rec.mc_header_id := null;
70: END IF;
71: IF (p_x_uc_header_rec.mc_name = FND_API.G_MISS_CHAR) THEN
72: p_x_uc_header_rec.mc_name := null;

Line 71: IF (p_x_uc_header_rec.mc_name = FND_API.G_MISS_CHAR) THEN

67: END IF;
68: IF (p_x_uc_header_rec.mc_header_id = FND_API.G_MISS_NUM) THEN
69: p_x_uc_header_rec.mc_header_id := null;
70: END IF;
71: IF (p_x_uc_header_rec.mc_name = FND_API.G_MISS_CHAR) THEN
72: p_x_uc_header_rec.mc_name := null;
73: END IF;
74: IF (p_x_uc_header_rec.mc_revision = FND_API.G_MISS_CHAR) THEN
75: p_x_uc_header_rec.mc_revision := null;

Line 74: IF (p_x_uc_header_rec.mc_revision = FND_API.G_MISS_CHAR) THEN

70: END IF;
71: IF (p_x_uc_header_rec.mc_name = FND_API.G_MISS_CHAR) THEN
72: p_x_uc_header_rec.mc_name := null;
73: END IF;
74: IF (p_x_uc_header_rec.mc_revision = FND_API.G_MISS_CHAR) THEN
75: p_x_uc_header_rec.mc_revision := null;
76: END IF;
77: IF (p_x_uc_header_rec.parent_uc_header_id = FND_API.G_MISS_NUM) THEN
78: p_x_uc_header_rec.parent_uc_header_id := null;

Line 77: IF (p_x_uc_header_rec.parent_uc_header_id = FND_API.G_MISS_NUM) THEN

73: END IF;
74: IF (p_x_uc_header_rec.mc_revision = FND_API.G_MISS_CHAR) THEN
75: p_x_uc_header_rec.mc_revision := null;
76: END IF;
77: IF (p_x_uc_header_rec.parent_uc_header_id = FND_API.G_MISS_NUM) THEN
78: p_x_uc_header_rec.parent_uc_header_id := null;
79: END IF;
80: IF (p_x_uc_header_rec.active_end_date = FND_API.G_MISS_DATE) THEN
81: p_x_uc_header_rec.active_end_date := null;

Line 80: IF (p_x_uc_header_rec.active_end_date = FND_API.G_MISS_DATE) THEN

76: END IF;
77: IF (p_x_uc_header_rec.parent_uc_header_id = FND_API.G_MISS_NUM) THEN
78: p_x_uc_header_rec.parent_uc_header_id := null;
79: END IF;
80: IF (p_x_uc_header_rec.active_end_date = FND_API.G_MISS_DATE) THEN
81: p_x_uc_header_rec.active_end_date := null;
82: END IF;
83: IF (p_x_uc_header_rec.attribute_category = FND_API.G_MISS_CHAR) THEN
84: p_x_uc_header_rec.attribute_category := null;

Line 83: IF (p_x_uc_header_rec.attribute_category = FND_API.G_MISS_CHAR) THEN

79: END IF;
80: IF (p_x_uc_header_rec.active_end_date = FND_API.G_MISS_DATE) THEN
81: p_x_uc_header_rec.active_end_date := null;
82: END IF;
83: IF (p_x_uc_header_rec.attribute_category = FND_API.G_MISS_CHAR) THEN
84: p_x_uc_header_rec.attribute_category := null;
85: END IF;
86: IF (p_x_uc_header_rec.attribute1 = FND_API.G_MISS_CHAR) THEN
87: p_x_uc_header_rec.attribute1 := null;

Line 86: IF (p_x_uc_header_rec.attribute1 = FND_API.G_MISS_CHAR) THEN

82: END IF;
83: IF (p_x_uc_header_rec.attribute_category = FND_API.G_MISS_CHAR) THEN
84: p_x_uc_header_rec.attribute_category := null;
85: END IF;
86: IF (p_x_uc_header_rec.attribute1 = FND_API.G_MISS_CHAR) THEN
87: p_x_uc_header_rec.attribute1 := null;
88: END IF;
89: IF (p_x_uc_header_rec.attribute2 = FND_API.G_MISS_CHAR) THEN
90: p_x_uc_header_rec.attribute2 := null;

Line 89: IF (p_x_uc_header_rec.attribute2 = FND_API.G_MISS_CHAR) THEN

85: END IF;
86: IF (p_x_uc_header_rec.attribute1 = FND_API.G_MISS_CHAR) THEN
87: p_x_uc_header_rec.attribute1 := null;
88: END IF;
89: IF (p_x_uc_header_rec.attribute2 = FND_API.G_MISS_CHAR) THEN
90: p_x_uc_header_rec.attribute2 := null;
91: END IF;
92: IF (p_x_uc_header_rec.attribute3 = FND_API.G_MISS_CHAR) THEN
93: p_x_uc_header_rec.attribute3 := null;

Line 92: IF (p_x_uc_header_rec.attribute3 = FND_API.G_MISS_CHAR) THEN

88: END IF;
89: IF (p_x_uc_header_rec.attribute2 = FND_API.G_MISS_CHAR) THEN
90: p_x_uc_header_rec.attribute2 := null;
91: END IF;
92: IF (p_x_uc_header_rec.attribute3 = FND_API.G_MISS_CHAR) THEN
93: p_x_uc_header_rec.attribute3 := null;
94: END IF;
95: IF (p_x_uc_header_rec.attribute4 = FND_API.G_MISS_CHAR) THEN
96: p_x_uc_header_rec.attribute4 := null;

Line 95: IF (p_x_uc_header_rec.attribute4 = FND_API.G_MISS_CHAR) THEN

91: END IF;
92: IF (p_x_uc_header_rec.attribute3 = FND_API.G_MISS_CHAR) THEN
93: p_x_uc_header_rec.attribute3 := null;
94: END IF;
95: IF (p_x_uc_header_rec.attribute4 = FND_API.G_MISS_CHAR) THEN
96: p_x_uc_header_rec.attribute4 := null;
97: END IF;
98: IF (p_x_uc_header_rec.attribute5 = FND_API.G_MISS_CHAR) THEN
99: p_x_uc_header_rec.attribute5 := null;

Line 98: IF (p_x_uc_header_rec.attribute5 = FND_API.G_MISS_CHAR) THEN

94: END IF;
95: IF (p_x_uc_header_rec.attribute4 = FND_API.G_MISS_CHAR) THEN
96: p_x_uc_header_rec.attribute4 := null;
97: END IF;
98: IF (p_x_uc_header_rec.attribute5 = FND_API.G_MISS_CHAR) THEN
99: p_x_uc_header_rec.attribute5 := null;
100: END IF;
101: IF (p_x_uc_header_rec.attribute6 = FND_API.G_MISS_CHAR) THEN
102: p_x_uc_header_rec.attribute6 := null;

Line 101: IF (p_x_uc_header_rec.attribute6 = FND_API.G_MISS_CHAR) THEN

97: END IF;
98: IF (p_x_uc_header_rec.attribute5 = FND_API.G_MISS_CHAR) THEN
99: p_x_uc_header_rec.attribute5 := null;
100: END IF;
101: IF (p_x_uc_header_rec.attribute6 = FND_API.G_MISS_CHAR) THEN
102: p_x_uc_header_rec.attribute6 := null;
103: END IF;
104: IF (p_x_uc_header_rec.attribute7 = FND_API.G_MISS_CHAR) THEN
105: p_x_uc_header_rec.attribute7 := null;

Line 104: IF (p_x_uc_header_rec.attribute7 = FND_API.G_MISS_CHAR) THEN

100: END IF;
101: IF (p_x_uc_header_rec.attribute6 = FND_API.G_MISS_CHAR) THEN
102: p_x_uc_header_rec.attribute6 := null;
103: END IF;
104: IF (p_x_uc_header_rec.attribute7 = FND_API.G_MISS_CHAR) THEN
105: p_x_uc_header_rec.attribute7 := null;
106: END IF;
107: IF (p_x_uc_header_rec.attribute8 = FND_API.G_MISS_CHAR) THEN
108: p_x_uc_header_rec.attribute8 := null;

Line 107: IF (p_x_uc_header_rec.attribute8 = FND_API.G_MISS_CHAR) THEN

103: END IF;
104: IF (p_x_uc_header_rec.attribute7 = FND_API.G_MISS_CHAR) THEN
105: p_x_uc_header_rec.attribute7 := null;
106: END IF;
107: IF (p_x_uc_header_rec.attribute8 = FND_API.G_MISS_CHAR) THEN
108: p_x_uc_header_rec.attribute8 := null;
109: END IF;
110: IF (p_x_uc_header_rec.attribute9 = FND_API.G_MISS_CHAR) THEN
111: p_x_uc_header_rec.attribute9 := null;

Line 110: IF (p_x_uc_header_rec.attribute9 = FND_API.G_MISS_CHAR) THEN

106: END IF;
107: IF (p_x_uc_header_rec.attribute8 = FND_API.G_MISS_CHAR) THEN
108: p_x_uc_header_rec.attribute8 := null;
109: END IF;
110: IF (p_x_uc_header_rec.attribute9 = FND_API.G_MISS_CHAR) THEN
111: p_x_uc_header_rec.attribute9 := null;
112: END IF;
113: IF (p_x_uc_header_rec.attribute10 = FND_API.G_MISS_CHAR) THEN
114: p_x_uc_header_rec.attribute10 := null;

Line 113: IF (p_x_uc_header_rec.attribute10 = FND_API.G_MISS_CHAR) THEN

109: END IF;
110: IF (p_x_uc_header_rec.attribute9 = FND_API.G_MISS_CHAR) THEN
111: p_x_uc_header_rec.attribute9 := null;
112: END IF;
113: IF (p_x_uc_header_rec.attribute10 = FND_API.G_MISS_CHAR) THEN
114: p_x_uc_header_rec.attribute10 := null;
115: END IF;
116: IF (p_x_uc_header_rec.attribute11 = FND_API.G_MISS_CHAR) THEN
117: p_x_uc_header_rec.attribute11 := null;

Line 116: IF (p_x_uc_header_rec.attribute11 = FND_API.G_MISS_CHAR) THEN

112: END IF;
113: IF (p_x_uc_header_rec.attribute10 = FND_API.G_MISS_CHAR) THEN
114: p_x_uc_header_rec.attribute10 := null;
115: END IF;
116: IF (p_x_uc_header_rec.attribute11 = FND_API.G_MISS_CHAR) THEN
117: p_x_uc_header_rec.attribute11 := null;
118: END IF;
119: IF (p_x_uc_header_rec.attribute12 = FND_API.G_MISS_CHAR) THEN
120: p_x_uc_header_rec.attribute12 := null;

Line 119: IF (p_x_uc_header_rec.attribute12 = FND_API.G_MISS_CHAR) THEN

115: END IF;
116: IF (p_x_uc_header_rec.attribute11 = FND_API.G_MISS_CHAR) THEN
117: p_x_uc_header_rec.attribute11 := null;
118: END IF;
119: IF (p_x_uc_header_rec.attribute12 = FND_API.G_MISS_CHAR) THEN
120: p_x_uc_header_rec.attribute12 := null;
121: END IF;
122: IF (p_x_uc_header_rec.attribute13 = FND_API.G_MISS_CHAR) THEN
123: p_x_uc_header_rec.attribute13 := null;

Line 122: IF (p_x_uc_header_rec.attribute13 = FND_API.G_MISS_CHAR) THEN

118: END IF;
119: IF (p_x_uc_header_rec.attribute12 = FND_API.G_MISS_CHAR) THEN
120: p_x_uc_header_rec.attribute12 := null;
121: END IF;
122: IF (p_x_uc_header_rec.attribute13 = FND_API.G_MISS_CHAR) THEN
123: p_x_uc_header_rec.attribute13 := null;
124: END IF;
125: IF (p_x_uc_header_rec.attribute14 = FND_API.G_MISS_CHAR) THEN
126: p_x_uc_header_rec.attribute14 := null;

Line 125: IF (p_x_uc_header_rec.attribute14 = FND_API.G_MISS_CHAR) THEN

121: END IF;
122: IF (p_x_uc_header_rec.attribute13 = FND_API.G_MISS_CHAR) THEN
123: p_x_uc_header_rec.attribute13 := null;
124: END IF;
125: IF (p_x_uc_header_rec.attribute14 = FND_API.G_MISS_CHAR) THEN
126: p_x_uc_header_rec.attribute14 := null;
127: END IF;
128: IF (p_x_uc_header_rec.attribute15 = FND_API.G_MISS_CHAR) THEN
129: p_x_uc_header_rec.attribute15 := null;

Line 128: IF (p_x_uc_header_rec.attribute15 = FND_API.G_MISS_CHAR) THEN

124: END IF;
125: IF (p_x_uc_header_rec.attribute14 = FND_API.G_MISS_CHAR) THEN
126: p_x_uc_header_rec.attribute14 := null;
127: END IF;
128: IF (p_x_uc_header_rec.attribute15 = FND_API.G_MISS_CHAR) THEN
129: p_x_uc_header_rec.attribute15 := null;
130: END IF;
131: END nullify_attributes;
132:

Line 141: x_return_status := FND_API.G_RET_STS_SUCCESS;

137: x_return_status OUT NOCOPY VARCHAR2)
138: IS
139: l_old_uc_header_rec get_uc_header%ROWTYPE;
140: BEGIN
141: x_return_status := FND_API.G_RET_STS_SUCCESS;
142: OPEN get_uc_header( p_x_uc_header_rec.uc_header_id );
143: FETCH get_uc_header INTO l_old_uc_header_rec;
144: IF ( get_uc_header%NOTFOUND ) THEN
145: FND_MESSAGE.set_name('AHL', 'AHL_UC_HEADER_ID_INVALID');

Line 148: x_return_status := FND_API.G_RET_STS_ERROR;

144: IF ( get_uc_header%NOTFOUND ) THEN
145: FND_MESSAGE.set_name('AHL', 'AHL_UC_HEADER_ID_INVALID');
146: FND_MESSAGE.set_token('UC_HEADER_ID', p_x_uc_header_rec.uc_header_id);
147: FND_MSG_PUB.add;
148: x_return_status := FND_API.G_RET_STS_ERROR;
149: END IF;
150: IF ( l_old_uc_header_rec.object_version_number <>
151: p_x_uc_header_rec.object_version_number ) THEN
152: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');

Line 154: x_return_status := FND_API.G_RET_STS_ERROR;

150: IF ( l_old_uc_header_rec.object_version_number <>
151: p_x_uc_header_rec.object_version_number ) THEN
152: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');
153: FND_MSG_PUB.add;
154: x_return_status := FND_API.G_RET_STS_ERROR;
155: END IF;
156: CLOSE get_uc_header;
157:
158: IF (p_x_uc_header_rec.uc_name IS NULL) THEN

Line 160: ELSIF (p_x_uc_header_rec.uc_name = FND_API.G_MISS_CHAR) THEN

156: CLOSE get_uc_header;
157:
158: IF (p_x_uc_header_rec.uc_name IS NULL) THEN
159: p_x_uc_header_rec.uc_name := l_old_uc_header_rec.uc_name;
160: ELSIF (p_x_uc_header_rec.uc_name = FND_API.G_MISS_CHAR) THEN
161: p_x_uc_header_rec.uc_name := null;
162: END IF;
163: IF (p_x_uc_header_rec.mc_header_id IS NULL) THEN
164: p_x_uc_header_rec.mc_header_id := l_old_uc_header_rec.mc_header_id;

Line 165: ELSIF (p_x_uc_header_rec.mc_header_id = FND_API.G_MISS_NUM) THEN

161: p_x_uc_header_rec.uc_name := null;
162: END IF;
163: IF (p_x_uc_header_rec.mc_header_id IS NULL) THEN
164: p_x_uc_header_rec.mc_header_id := l_old_uc_header_rec.mc_header_id;
165: ELSIF (p_x_uc_header_rec.mc_header_id = FND_API.G_MISS_NUM) THEN
166: p_x_uc_header_rec.mc_header_id := null;
167: END IF;
168: IF (p_x_uc_header_rec.mc_name IS NULL) THEN
169: p_x_uc_header_rec.mc_name := l_old_uc_header_rec.mc_name;

Line 170: ELSIF (p_x_uc_header_rec.mc_name = FND_API.G_MISS_CHAR) THEN

166: p_x_uc_header_rec.mc_header_id := null;
167: END IF;
168: IF (p_x_uc_header_rec.mc_name IS NULL) THEN
169: p_x_uc_header_rec.mc_name := l_old_uc_header_rec.mc_name;
170: ELSIF (p_x_uc_header_rec.mc_name = FND_API.G_MISS_CHAR) THEN
171: p_x_uc_header_rec.mc_name := null;
172: END IF;
173: IF (p_x_uc_header_rec.mc_revision IS NULL) THEN
174: p_x_uc_header_rec.mc_revision := l_old_uc_header_rec.mc_revision;

Line 175: ELSIF (p_x_uc_header_rec.mc_revision = FND_API.G_MISS_CHAR) THEN

171: p_x_uc_header_rec.mc_name := null;
172: END IF;
173: IF (p_x_uc_header_rec.mc_revision IS NULL) THEN
174: p_x_uc_header_rec.mc_revision := l_old_uc_header_rec.mc_revision;
175: ELSIF (p_x_uc_header_rec.mc_revision = FND_API.G_MISS_CHAR) THEN
176: p_x_uc_header_rec.mc_revision := null;
177: END IF;
178: IF (p_x_uc_header_rec.instance_id IS NULL) THEN
179: p_x_uc_header_rec.instance_id := l_old_uc_header_rec.csi_instance_id;

Line 180: ELSIF (p_x_uc_header_rec.instance_id = FND_API.G_MISS_NUM) THEN

176: p_x_uc_header_rec.mc_revision := null;
177: END IF;
178: IF (p_x_uc_header_rec.instance_id IS NULL) THEN
179: p_x_uc_header_rec.instance_id := l_old_uc_header_rec.csi_instance_id;
180: ELSIF (p_x_uc_header_rec.instance_id = FND_API.G_MISS_NUM) THEN
181: p_x_uc_header_rec.instance_id := null;
182: END IF;
183: IF (p_x_uc_header_rec.instance_number IS NULL) THEN
184: p_x_uc_header_rec.instance_number := l_old_uc_header_rec.instance_number;

Line 185: ELSIF (p_x_uc_header_rec.instance_number = FND_API.G_MISS_CHAR) THEN

181: p_x_uc_header_rec.instance_id := null;
182: END IF;
183: IF (p_x_uc_header_rec.instance_number IS NULL) THEN
184: p_x_uc_header_rec.instance_number := l_old_uc_header_rec.instance_number;
185: ELSIF (p_x_uc_header_rec.instance_number = FND_API.G_MISS_CHAR) THEN
186: p_x_uc_header_rec.instance_number := null;
187: END IF;
188: IF (p_x_uc_header_rec.unit_config_status_code IS NULL) THEN
189: p_x_uc_header_rec.unit_config_status_code := l_old_uc_header_rec.uc_status_code;

Line 190: ELSIF (p_x_uc_header_rec.unit_config_status_code = FND_API.G_MISS_CHAR) THEN

186: p_x_uc_header_rec.instance_number := null;
187: END IF;
188: IF (p_x_uc_header_rec.unit_config_status_code IS NULL) THEN
189: p_x_uc_header_rec.unit_config_status_code := l_old_uc_header_rec.uc_status_code;
190: ELSIF (p_x_uc_header_rec.unit_config_status_code = FND_API.G_MISS_CHAR) THEN
191: p_x_uc_header_rec.unit_config_status_code := null;
192: END IF;
193: IF (p_x_uc_header_rec.active_start_date IS NULL) THEN
194: p_x_uc_header_rec.active_start_date := l_old_uc_header_rec.active_start_date;

Line 195: ELSIF (p_x_uc_header_rec.active_start_date = FND_API.G_MISS_DATE) THEN

191: p_x_uc_header_rec.unit_config_status_code := null;
192: END IF;
193: IF (p_x_uc_header_rec.active_start_date IS NULL) THEN
194: p_x_uc_header_rec.active_start_date := l_old_uc_header_rec.active_start_date;
195: ELSIF (p_x_uc_header_rec.active_start_date = FND_API.G_MISS_DATE) THEN
196: p_x_uc_header_rec.active_start_date := null;
197: END IF;
198: IF (p_x_uc_header_rec.active_end_date IS NULL) THEN
199: p_x_uc_header_rec.active_end_date := l_old_uc_header_rec.active_end_date;

Line 200: ELSIF (p_x_uc_header_rec.active_end_date = FND_API.G_MISS_DATE) THEN

196: p_x_uc_header_rec.active_start_date := null;
197: END IF;
198: IF (p_x_uc_header_rec.active_end_date IS NULL) THEN
199: p_x_uc_header_rec.active_end_date := l_old_uc_header_rec.active_end_date;
200: ELSIF (p_x_uc_header_rec.active_end_date = FND_API.G_MISS_DATE) THEN
201: p_x_uc_header_rec.active_end_date := null;
202: END IF;
203: IF (p_x_uc_header_rec.active_uc_status_code IS NULL) THEN
204: p_x_uc_header_rec.active_uc_status_code := l_old_uc_header_rec.active_uc_status_code;

Line 205: ELSIF (p_x_uc_header_rec.active_uc_status_code = FND_API.G_MISS_CHAR) THEN

201: p_x_uc_header_rec.active_end_date := null;
202: END IF;
203: IF (p_x_uc_header_rec.active_uc_status_code IS NULL) THEN
204: p_x_uc_header_rec.active_uc_status_code := l_old_uc_header_rec.active_uc_status_code;
205: ELSIF (p_x_uc_header_rec.active_uc_status_code = FND_API.G_MISS_CHAR) THEN
206: p_x_uc_header_rec.active_uc_status_code := null;
207: END IF;
208: IF (p_x_uc_header_rec.parent_uc_header_id IS NULL) THEN
209: p_x_uc_header_rec.parent_uc_header_id := l_old_uc_header_rec.parent_uc_header_id;

Line 210: ELSIF (p_x_uc_header_rec.parent_uc_header_id = FND_API.G_MISS_NUM) THEN

206: p_x_uc_header_rec.active_uc_status_code := null;
207: END IF;
208: IF (p_x_uc_header_rec.parent_uc_header_id IS NULL) THEN
209: p_x_uc_header_rec.parent_uc_header_id := l_old_uc_header_rec.parent_uc_header_id;
210: ELSIF (p_x_uc_header_rec.parent_uc_header_id = FND_API.G_MISS_NUM) THEN
211: p_x_uc_header_rec.parent_uc_header_id := null;
212: END IF;
213: IF (p_x_uc_header_rec.attribute_category IS NULL) THEN
214: p_x_uc_header_rec.attribute_category := l_old_uc_header_rec.attribute_category;

Line 215: ELSIF (p_x_uc_header_rec.attribute_category = FND_API.G_MISS_CHAR) THEN

211: p_x_uc_header_rec.parent_uc_header_id := null;
212: END IF;
213: IF (p_x_uc_header_rec.attribute_category IS NULL) THEN
214: p_x_uc_header_rec.attribute_category := l_old_uc_header_rec.attribute_category;
215: ELSIF (p_x_uc_header_rec.attribute_category = FND_API.G_MISS_CHAR) THEN
216: p_x_uc_header_rec.attribute_category := null;
217: END IF;
218: IF (p_x_uc_header_rec.attribute1 IS NULL) THEN
219: p_x_uc_header_rec.attribute1 := l_old_uc_header_rec.attribute1;

Line 220: ELSIF (p_x_uc_header_rec.attribute1 = FND_API.G_MISS_CHAR) THEN

216: p_x_uc_header_rec.attribute_category := null;
217: END IF;
218: IF (p_x_uc_header_rec.attribute1 IS NULL) THEN
219: p_x_uc_header_rec.attribute1 := l_old_uc_header_rec.attribute1;
220: ELSIF (p_x_uc_header_rec.attribute1 = FND_API.G_MISS_CHAR) THEN
221: p_x_uc_header_rec.attribute1 := null;
222: END IF;
223: IF (p_x_uc_header_rec.attribute2 IS NULL) THEN
224: p_x_uc_header_rec.attribute2 := l_old_uc_header_rec.attribute2;

Line 225: ELSIF (p_x_uc_header_rec.attribute2 = FND_API.G_MISS_CHAR) THEN

221: p_x_uc_header_rec.attribute1 := null;
222: END IF;
223: IF (p_x_uc_header_rec.attribute2 IS NULL) THEN
224: p_x_uc_header_rec.attribute2 := l_old_uc_header_rec.attribute2;
225: ELSIF (p_x_uc_header_rec.attribute2 = FND_API.G_MISS_CHAR) THEN
226: p_x_uc_header_rec.attribute2 := null;
227: END IF;
228: IF (p_x_uc_header_rec.attribute3 IS NULL) THEN
229: p_x_uc_header_rec.attribute3 := l_old_uc_header_rec.attribute3;

Line 230: ELSIF (p_x_uc_header_rec.attribute3 = FND_API.G_MISS_CHAR) THEN

226: p_x_uc_header_rec.attribute2 := null;
227: END IF;
228: IF (p_x_uc_header_rec.attribute3 IS NULL) THEN
229: p_x_uc_header_rec.attribute3 := l_old_uc_header_rec.attribute3;
230: ELSIF (p_x_uc_header_rec.attribute3 = FND_API.G_MISS_CHAR) THEN
231: p_x_uc_header_rec.attribute3 := null;
232: END IF;
233: IF (p_x_uc_header_rec.attribute4 IS NULL) THEN
234: p_x_uc_header_rec.attribute4 := l_old_uc_header_rec.attribute4;

Line 235: ELSIF (p_x_uc_header_rec.attribute4 = FND_API.G_MISS_CHAR) THEN

231: p_x_uc_header_rec.attribute3 := null;
232: END IF;
233: IF (p_x_uc_header_rec.attribute4 IS NULL) THEN
234: p_x_uc_header_rec.attribute4 := l_old_uc_header_rec.attribute4;
235: ELSIF (p_x_uc_header_rec.attribute4 = FND_API.G_MISS_CHAR) THEN
236: p_x_uc_header_rec.attribute4 := null;
237: END IF;
238: IF (p_x_uc_header_rec.attribute5 IS NULL) THEN
239: p_x_uc_header_rec.attribute5 := l_old_uc_header_rec.attribute5;

Line 240: ELSIF (p_x_uc_header_rec.attribute5 = FND_API.G_MISS_CHAR) THEN

236: p_x_uc_header_rec.attribute4 := null;
237: END IF;
238: IF (p_x_uc_header_rec.attribute5 IS NULL) THEN
239: p_x_uc_header_rec.attribute5 := l_old_uc_header_rec.attribute5;
240: ELSIF (p_x_uc_header_rec.attribute5 = FND_API.G_MISS_CHAR) THEN
241: p_x_uc_header_rec.attribute5 := null;
242: END IF;
243: IF (p_x_uc_header_rec.attribute6 IS NULL) THEN
244: p_x_uc_header_rec.attribute6 := l_old_uc_header_rec.attribute6;

Line 245: ELSIF (p_x_uc_header_rec.attribute6 = FND_API.G_MISS_CHAR) THEN

241: p_x_uc_header_rec.attribute5 := null;
242: END IF;
243: IF (p_x_uc_header_rec.attribute6 IS NULL) THEN
244: p_x_uc_header_rec.attribute6 := l_old_uc_header_rec.attribute6;
245: ELSIF (p_x_uc_header_rec.attribute6 = FND_API.G_MISS_CHAR) THEN
246: p_x_uc_header_rec.attribute6 := null;
247: END IF;
248: IF (p_x_uc_header_rec.attribute7 IS NULL) THEN
249: p_x_uc_header_rec.attribute7 := l_old_uc_header_rec.attribute7;

Line 250: ELSIF (p_x_uc_header_rec.attribute7 = FND_API.G_MISS_CHAR) THEN

246: p_x_uc_header_rec.attribute6 := null;
247: END IF;
248: IF (p_x_uc_header_rec.attribute7 IS NULL) THEN
249: p_x_uc_header_rec.attribute7 := l_old_uc_header_rec.attribute7;
250: ELSIF (p_x_uc_header_rec.attribute7 = FND_API.G_MISS_CHAR) THEN
251: p_x_uc_header_rec.attribute7 := null;
252: END IF;
253: IF (p_x_uc_header_rec.attribute8 IS NULL) THEN
254: p_x_uc_header_rec.attribute8 := l_old_uc_header_rec.attribute8;

Line 255: ELSIF (p_x_uc_header_rec.attribute8 = FND_API.G_MISS_CHAR) THEN

251: p_x_uc_header_rec.attribute7 := null;
252: END IF;
253: IF (p_x_uc_header_rec.attribute8 IS NULL) THEN
254: p_x_uc_header_rec.attribute8 := l_old_uc_header_rec.attribute8;
255: ELSIF (p_x_uc_header_rec.attribute8 = FND_API.G_MISS_CHAR) THEN
256: p_x_uc_header_rec.attribute8 := null;
257: END IF;
258: IF (p_x_uc_header_rec.attribute9 IS NULL) THEN
259: p_x_uc_header_rec.attribute9 := l_old_uc_header_rec.attribute9;

Line 260: ELSIF (p_x_uc_header_rec.attribute9 = FND_API.G_MISS_CHAR) THEN

256: p_x_uc_header_rec.attribute8 := null;
257: END IF;
258: IF (p_x_uc_header_rec.attribute9 IS NULL) THEN
259: p_x_uc_header_rec.attribute9 := l_old_uc_header_rec.attribute9;
260: ELSIF (p_x_uc_header_rec.attribute9 = FND_API.G_MISS_CHAR) THEN
261: p_x_uc_header_rec.attribute9 := null;
262: END IF;
263: IF (p_x_uc_header_rec.attribute10 IS NULL) THEN
264: p_x_uc_header_rec.attribute10 := l_old_uc_header_rec.attribute10;

Line 265: ELSIF (p_x_uc_header_rec.attribute10 = FND_API.G_MISS_CHAR) THEN

261: p_x_uc_header_rec.attribute9 := null;
262: END IF;
263: IF (p_x_uc_header_rec.attribute10 IS NULL) THEN
264: p_x_uc_header_rec.attribute10 := l_old_uc_header_rec.attribute10;
265: ELSIF (p_x_uc_header_rec.attribute10 = FND_API.G_MISS_CHAR) THEN
266: p_x_uc_header_rec.attribute10 := null;
267: END IF;
268: IF (p_x_uc_header_rec.attribute11 IS NULL) THEN
269: p_x_uc_header_rec.attribute11 := l_old_uc_header_rec.attribute11;

Line 270: ELSIF (p_x_uc_header_rec.attribute11 = FND_API.G_MISS_CHAR) THEN

266: p_x_uc_header_rec.attribute10 := null;
267: END IF;
268: IF (p_x_uc_header_rec.attribute11 IS NULL) THEN
269: p_x_uc_header_rec.attribute11 := l_old_uc_header_rec.attribute11;
270: ELSIF (p_x_uc_header_rec.attribute11 = FND_API.G_MISS_CHAR) THEN
271: p_x_uc_header_rec.attribute11 := null;
272: END IF;
273: IF (p_x_uc_header_rec.attribute12 IS NULL) THEN
274: p_x_uc_header_rec.attribute12 := l_old_uc_header_rec.attribute12;

Line 275: ELSIF (p_x_uc_header_rec.attribute12 = FND_API.G_MISS_CHAR) THEN

271: p_x_uc_header_rec.attribute11 := null;
272: END IF;
273: IF (p_x_uc_header_rec.attribute12 IS NULL) THEN
274: p_x_uc_header_rec.attribute12 := l_old_uc_header_rec.attribute12;
275: ELSIF (p_x_uc_header_rec.attribute12 = FND_API.G_MISS_CHAR) THEN
276: p_x_uc_header_rec.attribute12 := null;
277: END IF;
278: IF (p_x_uc_header_rec.attribute13 IS NULL) THEN
279: p_x_uc_header_rec.attribute13 := l_old_uc_header_rec.attribute13;

Line 280: ELSIF (p_x_uc_header_rec.attribute13 = FND_API.G_MISS_CHAR) THEN

276: p_x_uc_header_rec.attribute12 := null;
277: END IF;
278: IF (p_x_uc_header_rec.attribute13 IS NULL) THEN
279: p_x_uc_header_rec.attribute13 := l_old_uc_header_rec.attribute13;
280: ELSIF (p_x_uc_header_rec.attribute13 = FND_API.G_MISS_CHAR) THEN
281: p_x_uc_header_rec.attribute13 := null;
282: END IF;
283: IF (p_x_uc_header_rec.attribute14 IS NULL) THEN
284: p_x_uc_header_rec.attribute14 := l_old_uc_header_rec.attribute14;

Line 285: ELSIF (p_x_uc_header_rec.attribute14 = FND_API.G_MISS_CHAR) THEN

281: p_x_uc_header_rec.attribute13 := null;
282: END IF;
283: IF (p_x_uc_header_rec.attribute14 IS NULL) THEN
284: p_x_uc_header_rec.attribute14 := l_old_uc_header_rec.attribute14;
285: ELSIF (p_x_uc_header_rec.attribute14 = FND_API.G_MISS_CHAR) THEN
286: p_x_uc_header_rec.attribute14 := null;
287: END IF;
288: IF (p_x_uc_header_rec.attribute15 IS NULL) THEN
289: p_x_uc_header_rec.attribute15 := l_old_uc_header_rec.attribute15;

Line 290: ELSIF (p_x_uc_header_rec.attribute15 = FND_API.G_MISS_CHAR) THEN

286: p_x_uc_header_rec.attribute14 := null;
287: END IF;
288: IF (p_x_uc_header_rec.attribute15 IS NULL) THEN
289: p_x_uc_header_rec.attribute15 := l_old_uc_header_rec.attribute15;
290: ELSIF (p_x_uc_header_rec.attribute15 = FND_API.G_MISS_CHAR) THEN
291: p_x_uc_header_rec.attribute15 := null;
292: END IF;
293: END convert_attributes;
294:

Line 301: x_return_status := FND_API.G_RET_STS_SUCCESS;

297: p_uc_header_rec IN ahl_uc_instance_pvt.uc_header_rec_type,
298: x_return_status OUT NOCOPY VARCHAR2)
299: IS
300: BEGIN
301: x_return_status := FND_API.G_RET_STS_SUCCESS;
302: IF (p_uc_header_rec.mc_name IS NULL AND
303: p_uc_header_rec.mc_revision IS NOT NULL) OR
304: (p_uc_header_rec.mc_name IS NOT NULL AND
305: p_uc_header_rec.mc_revision IS NULL) THEN

Line 308: x_return_status := FND_API.G_RET_STS_ERROR;

304: (p_uc_header_rec.mc_name IS NOT NULL AND
305: p_uc_header_rec.mc_revision IS NULL) THEN
306: FND_MESSAGE.set_name( 'AHL','AHL_UC_MC_NAME_REV_INVALID' );
307: FND_MSG_PUB.add;
308: x_return_status := FND_API.G_RET_STS_ERROR;
309: END IF;
310: END;
311:
312: -- Procedure to validate mc_header

Line 344: x_return_status := FND_API.G_RET_STS_SUCCESS;

340: AND R.parent_relationship_id IS NULL
341: AND trunc(nvl(R.active_start_date,SYSDATE)) <= trunc(SYSDATE)
342: AND trunc(nvl(R.active_end_date, SYSDATE+1)) > trunc(SYSDATE);
343: BEGIN
344: x_return_status := FND_API.G_RET_STS_SUCCESS;
345: IF (p_mc_name IS NULL OR p_mc_revision IS NULL) AND
346: p_x_mc_header_id IS NULL THEN
347: x_return_status := FND_API.G_RET_STS_ERROR;
348: FND_MESSAGE.set_name('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');

Line 347: x_return_status := FND_API.G_RET_STS_ERROR;

343: BEGIN
344: x_return_status := FND_API.G_RET_STS_SUCCESS;
345: IF (p_mc_name IS NULL OR p_mc_revision IS NULL) AND
346: p_x_mc_header_id IS NULL THEN
347: x_return_status := FND_API.G_RET_STS_ERROR;
348: FND_MESSAGE.set_name('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
349: FND_MSG_PUB.add;
350: ELSIF (p_mc_name IS NULL OR p_mc_revision IS NULL) AND
351: p_x_mc_header_id IS NOT NULL THEN

Line 355: x_return_status := FND_API.G_RET_STS_ERROR;

351: p_x_mc_header_id IS NOT NULL THEN
352: OPEN get_rec_from_id(p_x_mc_header_id);
353: FETCH get_rec_from_id INTO l_mc_header_id, l_relationship_id;
354: IF get_rec_from_id%NOTFOUND THEN
355: x_return_status := FND_API.G_RET_STS_ERROR;
356: FND_MESSAGE.set_name('AHL', 'AHL_UC_MC_HEADER_ID_INVALID');
357: FND_MESSAGE.set_token('MC_HEADER_ID', p_x_mc_header_id);
358: FND_MSG_PUB.add;
359: ELSE

Line 371: x_return_status := FND_API.G_RET_STS_ERROR;

367: FETCH get_rec_from_value INTO l_mc_header_id, l_relationship_id;
368: EXIT WHEN get_rec_from_value%NOTFOUND;
369: END LOOP;
370: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
371: x_return_status := FND_API.G_RET_STS_ERROR;
372: FND_MESSAGE.set_name('AHL', 'AHL_UC_MC_HEADER_INVALID');
373: FND_MESSAGE.set_token('MC_NAME', p_mc_name);
374: FND_MESSAGE.set_token('MC_REV', p_mc_revision);
375: FND_MSG_PUB.add;

Line 380: x_return_status := FND_API.G_RET_STS_ERROR;

376: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
377: p_x_mc_header_id := l_mc_header_id;
378: x_relationship_id := l_relationship_id;
379: ELSE
380: x_return_status := FND_API.G_RET_STS_ERROR;
381: FND_MESSAGE.set_name('AHL', 'AHL_UC_MC_HEADER_INVALID');
382: FND_MESSAGE.set_token('MC_NAME', p_mc_name);
383: FND_MESSAGE.set_token('MC_REV', p_mc_revision);
384: FND_MSG_PUB.add;

Line 467: x_return_status := FND_API.G_RET_STS_SUCCESS;

463: FROM ahl_unit_config_headers H
464: WHERE H.csi_item_instance_id = C.instance_id
465: AND trunc(nvl(H.active_end_date, SYSDATE+1)) > trunc(SYSDATE));
466: BEGIN
467: x_return_status := FND_API.G_RET_STS_SUCCESS;
468: IF p_instance_num IS NULL AND p_x_instance_id IS NULL THEN
469: x_return_status := FND_API.G_RET_STS_ERROR;
470: FND_MESSAGE.set_name('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
471: FND_MSG_PUB.add;

Line 469: x_return_status := FND_API.G_RET_STS_ERROR;

465: AND trunc(nvl(H.active_end_date, SYSDATE+1)) > trunc(SYSDATE));
466: BEGIN
467: x_return_status := FND_API.G_RET_STS_SUCCESS;
468: IF p_instance_num IS NULL AND p_x_instance_id IS NULL THEN
469: x_return_status := FND_API.G_RET_STS_ERROR;
470: FND_MESSAGE.set_name('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
471: FND_MSG_PUB.add;
472: ELSIF p_instance_num IS NULL AND p_x_instance_id IS NOT NULL THEN
473: OPEN get_rec_from_id(p_x_instance_id, p_relationship_id);

Line 476: x_return_status := FND_API.G_RET_STS_ERROR;

472: ELSIF p_instance_num IS NULL AND p_x_instance_id IS NOT NULL THEN
473: OPEN get_rec_from_id(p_x_instance_id, p_relationship_id);
474: FETCH get_rec_from_id INTO l_instance_id;
475: IF get_rec_from_id%NOTFOUND THEN
476: x_return_status := FND_API.G_RET_STS_ERROR;
477: FND_MESSAGE.set_name('AHL', 'AHL_UC_CSII_INVALID');
478: FND_MESSAGE.set_token('CSII', p_x_instance_id);
479: FND_MSG_PUB.add;
480: END IF;

Line 489: x_return_status := FND_API.G_RET_STS_ERROR;

485: FETCH get_rec_from_value INTO l_instance_id;
486: EXIT WHEN get_rec_from_value%NOTFOUND;
487: END LOOP;
488: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
489: x_return_status := FND_API.G_RET_STS_ERROR;
490: FND_MESSAGE.set_name('AHL', 'AHL_UC_CSII_INVALID');
491: FND_MESSAGE.set_token('CSII', p_instance_num);
492: FND_MSG_PUB.add;
493: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN

Line 496: x_return_status := FND_API.G_RET_STS_ERROR;

492: FND_MSG_PUB.add;
493: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
494: p_x_instance_id := l_instance_id;
495: ELSE
496: x_return_status := FND_API.G_RET_STS_ERROR;
497: FND_MESSAGE.set_name('AHL', 'AHL_UC_CSII_INVALID');
498: FND_MESSAGE.set_token('CSII', p_instance_num);
499: FND_MSG_PUB.add;
500: END IF;

Line 528: x_return_status := FND_API.G_RET_STS_SUCCESS;

524: l_dummy varchar2(1);
525: l_name check_uc_name3%ROWTYPE;
526:
527: BEGIN
528: x_return_status := FND_API.G_RET_STS_SUCCESS;
529: -- Check if name is unique when creating or updating a UC header record
530: IF p_dml_operation = 'C' THEN
531: OPEN check_uc_name1(p_uc_header_rec.uc_name);
532: FETCH check_uc_name1 INTO l_dummy;

Line 537: x_return_status := FND_API.G_RET_STS_ERROR;

533: IF check_uc_name1%FOUND THEN
534: FND_MESSAGE.set_name( 'AHL','AHL_UC_NAME_DUPLICATE' );
535: FND_MESSAGE.set_token( 'NAME', p_uc_header_rec.uc_name );
536: FND_MSG_PUB.add;
537: x_return_status := FND_API.G_RET_STS_ERROR;
538: END IF;
539: CLOSE check_uc_name1;
540: ELSIF p_dml_operation = 'U' THEN
541: OPEN check_uc_name2(p_uc_header_rec.uc_name, p_uc_header_rec.uc_header_id);

Line 547: x_return_status := FND_API.G_RET_STS_ERROR;

543: IF check_uc_name2%FOUND THEN
544: FND_MESSAGE.set_name( 'AHL','AHL_UC_NAME_DUPLICATE' );
545: FND_MESSAGE.set_token( 'NAME', p_uc_header_rec.uc_name );
546: FND_MSG_PUB.add;
547: x_return_status := FND_API.G_RET_STS_ERROR;
548: END IF;
549: CLOSE check_uc_name2;
550:
551: -- UC name change is only allowed when the unit_config_status is DRAFT

Line 558: x_return_status := FND_API.G_RET_STS_ERROR;

554: FETCH check_uc_name3 INTO l_name;
555: IF check_uc_name3%FOUND AND (l_name.name <> p_uc_header_rec.uc_name) THEN
556: FND_MESSAGE.set_name( 'AHL','AHL_UC_NAME_CHANGE_UNALLOWED' );
557: FND_MSG_PUB.add;
558: x_return_status := FND_API.G_RET_STS_ERROR;
559: END IF;
560: CLOSE check_uc_name3;
561: END IF;
562: END IF;

Line 569: x_return_status := FND_API.G_RET_STS_ERROR;

565: -- and update.
566: IF p_uc_header_rec.uc_name is NULL THEN
567: FND_MESSAGE.set_name('AHL','AHL_UC_NAME_NULL');
568: FND_MSG_PUB.add;
569: x_return_status := FND_API.G_RET_STS_ERROR;
570: END IF;
571: -- The following checks are actually not really necessary.
572: -- Check if the master_config_id contains a null value.
573: IF p_uc_header_rec.mc_header_id IS NULL THEN

Line 577: x_return_status := FND_API.G_RET_STS_ERROR;

573: IF p_uc_header_rec.mc_header_id IS NULL THEN
574: FND_MESSAGE.set_name('AHL','AHL_MC_HEADER_ID_INVALID');
575: FND_MESSAGE.set_token('MC_HEADER_ID', p_uc_header_rec.mc_header_id);
576: FND_MSG_PUB.add;
577: x_return_status := FND_API.G_RET_STS_ERROR;
578: END IF;
579: -- Check if the csi_item_instance_id contains a null value.
580: IF p_uc_header_rec.instance_id IS NULL THEN
581: FND_MESSAGE.set_name('AHL','AHL_UC_INSTANCE_NULL');

Line 583: x_return_status := FND_API.G_RET_STS_ERROR;

579: -- Check if the csi_item_instance_id contains a null value.
580: IF p_uc_header_rec.instance_id IS NULL THEN
581: FND_MESSAGE.set_name('AHL','AHL_UC_INSTANCE_NULL');
582: FND_MSG_PUB.add;
583: x_return_status := FND_API.G_RET_STS_ERROR;
584: END IF;
585: -- Check if the unit_config_status_code contains a null value.
586: IF p_uc_header_rec.unit_config_status_code IS NULL THEN
587: FND_MESSAGE.set_name('AHL','AHL_UC_CONFIG_STATUS_NULL');

Line 589: x_return_status := FND_API.G_RET_STS_ERROR;

585: -- Check if the unit_config_status_code contains a null value.
586: IF p_uc_header_rec.unit_config_status_code IS NULL THEN
587: FND_MESSAGE.set_name('AHL','AHL_UC_CONFIG_STATUS_NULL');
588: FND_MSG_PUB.add;
589: x_return_status := FND_API.G_RET_STS_ERROR;
590: END IF;
591:
592: END validate_attributes;
593:

Line 598: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,

594: -- Define Procedure create_uc_header --
595: -- This API is used to create a UC header record in ahl_unit_config_headers
596: PROCEDURE create_uc_header(
597: p_api_version IN NUMBER := 1.0,
598: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
599: p_commit IN VARCHAR2 := FND_API.G_FALSE,
600: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
601: p_module_type IN VARCHAR2 := NULL,
602: x_return_status OUT NOCOPY VARCHAR2,

Line 599: p_commit IN VARCHAR2 := FND_API.G_FALSE,

595: -- This API is used to create a UC header record in ahl_unit_config_headers
596: PROCEDURE create_uc_header(
597: p_api_version IN NUMBER := 1.0,
598: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
599: p_commit IN VARCHAR2 := FND_API.G_FALSE,
600: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
601: p_module_type IN VARCHAR2 := NULL,
602: x_return_status OUT NOCOPY VARCHAR2,
603: x_msg_count OUT NOCOPY NUMBER,

Line 600: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,

596: PROCEDURE create_uc_header(
597: p_api_version IN NUMBER := 1.0,
598: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
599: p_commit IN VARCHAR2 := FND_API.G_FALSE,
600: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
601: p_module_type IN VARCHAR2 := NULL,
602: x_return_status OUT NOCOPY VARCHAR2,
603: x_msg_count OUT NOCOPY NUMBER,
604: x_msg_data OUT NOCOPY VARCHAR2,

Line 635: x_return_status := FND_API.G_RET_STS_SUCCESS;

631: AND trunc(nvl(active_start_date, SYSDATE)) <= trunc(SYSDATE)
632: AND trunc(nvl(active_end_date, SYSDATE+1)) > trunc(SYSDATE);
633: BEGIN
634: -- Initialize API return status to success
635: x_return_status := FND_API.G_RET_STS_SUCCESS;
636:
637: -- Standard Start of API savepoint
638: SAVEPOINT create_uc_header;
639:

Line 641: IF NOT FND_API.compatible_api_call(

637: -- Standard Start of API savepoint
638: SAVEPOINT create_uc_header;
639:
640: -- Standard call to check for call compatibility.
641: IF NOT FND_API.compatible_api_call(
642: l_api_version,
643: p_api_version,
644: l_api_name,
645: G_PKG_NAME)

Line 647: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

643: p_api_version,
644: l_api_name,
645: G_PKG_NAME)
646: THEN
647: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
648: END IF;
649:
650: -- Initialize message list if p_init_msg_list is set to TRUE.
651: IF FND_API.to_boolean( p_init_msg_list ) THEN

Line 651: IF FND_API.to_boolean( p_init_msg_list ) THEN

647: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
648: END IF;
649:
650: -- Initialize message list if p_init_msg_list is set to TRUE.
651: IF FND_API.to_boolean( p_init_msg_list ) THEN
652: FND_MSG_PUB.initialize;
653: END IF;
654:
655: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 677: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

673: ': after nullify_attributes');
674: END IF;
675:
676: validate_parameters(p_x_uc_header_rec, l_return_status);
677: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
678: RAISE FND_API.G_EXC_ERROR;
679: END IF;
680: validate_mc_header(p_x_uc_header_rec.mc_name,
681: p_x_uc_header_rec.mc_revision,

Line 678: RAISE FND_API.G_EXC_ERROR;

674: END IF;
675:
676: validate_parameters(p_x_uc_header_rec, l_return_status);
677: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
678: RAISE FND_API.G_EXC_ERROR;
679: END IF;
680: validate_mc_header(p_x_uc_header_rec.mc_name,
681: p_x_uc_header_rec.mc_revision,
682: p_x_uc_header_rec.mc_header_id,

Line 685: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

681: p_x_uc_header_rec.mc_revision,
682: p_x_uc_header_rec.mc_header_id,
683: l_relationship_id,
684: l_return_status);
685: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
686: RAISE FND_API.G_EXC_ERROR;
687: END IF;
688: --dbms_output.put_line('after mc_header validate and mc_name '|| p_x_uc_header_rec.mc_name);
689: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 686: RAISE FND_API.G_EXC_ERROR;

682: p_x_uc_header_rec.mc_header_id,
683: l_relationship_id,
684: l_return_status);
685: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
686: RAISE FND_API.G_EXC_ERROR;
687: END IF;
688: --dbms_output.put_line('after mc_header validate and mc_name '|| p_x_uc_header_rec.mc_name);
689: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
690: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,

Line 701: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

697: validate_csi_instance(p_x_uc_header_rec.instance_number,
698: p_x_uc_header_rec.instance_id,
699: l_relationship_id,
700: l_return_status);
701: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
702: RAISE FND_API.G_EXC_ERROR;
703: END IF;
704: --END IF;
705:

Line 702: RAISE FND_API.G_EXC_ERROR;

698: p_x_uc_header_rec.instance_id,
699: l_relationship_id,
700: l_return_status);
701: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
702: RAISE FND_API.G_EXC_ERROR;
703: END IF;
704: --END IF;
705:
706: -- Validate all attributes (Item level validation)

Line 707: IF ( p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN

703: END IF;
704: --END IF;
705:
706: -- Validate all attributes (Item level validation)
707: IF ( p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
708: validate_attributes(p_x_uc_header_rec, 'C', l_return_status);
709: -- If any severe error occurs, then, abort API.
710: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
711: RAISE FND_API.G_EXC_ERROR;

Line 710: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

706: -- Validate all attributes (Item level validation)
707: IF ( p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
708: validate_attributes(p_x_uc_header_rec, 'C', l_return_status);
709: -- If any severe error occurs, then, abort API.
710: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
711: RAISE FND_API.G_EXC_ERROR;
712: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
714: END IF;

Line 711: RAISE FND_API.G_EXC_ERROR;

707: IF ( p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
708: validate_attributes(p_x_uc_header_rec, 'C', l_return_status);
709: -- If any severe error occurs, then, abort API.
710: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
711: RAISE FND_API.G_EXC_ERROR;
712: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
714: END IF;
715: END IF;

Line 712: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

708: validate_attributes(p_x_uc_header_rec, 'C', l_return_status);
709: -- If any severe error occurs, then, abort API.
710: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
711: RAISE FND_API.G_EXC_ERROR;
712: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
714: END IF;
715: END IF;
716:

Line 713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

709: -- If any severe error occurs, then, abort API.
710: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
711: RAISE FND_API.G_EXC_ERROR;
712: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
714: END IF;
715: END IF;
716:
717: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 798: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

794:
795: -- Insert into the exactly same record into ahl_unit_config_headers_h
796: ahl_util_uc_pkg.copy_uc_header_to_history(p_x_uc_header_rec.uc_header_id, l_return_status);
797: --IF history copy failed, then don't raise exception, just add the message to the message stack
798: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
799: FND_MESSAGE.set_name('AHL', 'AHL_UC_HISTORY_COPY_FAILED');
800: FND_MSG_PUB.add;
801: END IF;
802:

Line 813: RAISE FND_API.G_EXC_ERROR;

809: IF get_serial_number%NOTFOUND THEN
810: FND_MESSAGE.set_name('AHL', 'AHL_UC_CSII_INVALID');
811: FND_MESSAGE.set_token('CSII', p_x_uc_header_rec.instance_id);
812: FND_MSG_PUB.add;
813: RAISE FND_API.G_EXC_ERROR;
814: CLOSE get_serial_number;
815: ELSE
816: CLOSE get_serial_number;
817: END IF;

Line 836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

832: END IF;
833: --Build CSI transaction record, first get transaction_type_id
834: AHL_Util_UC_Pkg.getcsi_transaction_id('UC_UPDATE', l_transaction_type_id, l_return_val);
835: IF NOT(l_return_val) THEN
836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
837: END IF;
838:
839: l_csi_transaction_rec.source_transaction_date := SYSDATE;
840: l_csi_transaction_rec.transaction_type_id := l_transaction_type_id;

Line 861: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN

857: x_return_status => l_return_status,
858: x_msg_count => l_msg_count,
859: x_msg_data => l_msg_data);
860:
861: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
862: RAISE FND_API.G_EXC_ERROR;
863: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
865: END IF;

Line 862: RAISE FND_API.G_EXC_ERROR;

858: x_msg_count => l_msg_count,
859: x_msg_data => l_msg_data);
860:
861: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
862: RAISE FND_API.G_EXC_ERROR;
863: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
865: END IF;
866: END IF;

Line 863: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN

859: x_msg_data => l_msg_data);
860:
861: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
862: RAISE FND_API.G_EXC_ERROR;
863: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
865: END IF;
866: END IF;
867: END IF;

Line 864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

860:
861: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
862: RAISE FND_API.G_EXC_ERROR;
863: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
865: END IF;
866: END IF;
867: END IF;
868:

Line 878: RAISE FND_API.G_EXC_ERROR;

874: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
875: l_msg_count := FND_MSG_PUB.count_msg;
876: IF l_msg_count > 0 THEN
877: x_msg_count := l_msg_count;
878: RAISE FND_API.G_EXC_ERROR;
879: END IF;
880: -- Perform the Commit (if requested)
881: IF FND_API.to_boolean( p_commit ) THEN
882: COMMIT;

Line 881: IF FND_API.to_boolean( p_commit ) THEN

877: x_msg_count := l_msg_count;
878: RAISE FND_API.G_EXC_ERROR;
879: END IF;
880: -- Perform the Commit (if requested)
881: IF FND_API.to_boolean( p_commit ) THEN
882: COMMIT;
883: END IF;
884: -- Count and Get messages (optional)
885: FND_MSG_PUB.count_and_get(

Line 886: p_encoded => FND_API.G_FALSE,

882: COMMIT;
883: END IF;
884: -- Count and Get messages (optional)
885: FND_MSG_PUB.count_and_get(
886: p_encoded => FND_API.G_FALSE,
887: p_count => x_msg_count,
888: p_data => x_msg_data);
889: EXCEPTION
890: WHEN FND_API.G_EXC_ERROR THEN

Line 890: WHEN FND_API.G_EXC_ERROR THEN

886: p_encoded => FND_API.G_FALSE,
887: p_count => x_msg_count,
888: p_data => x_msg_data);
889: EXCEPTION
890: WHEN FND_API.G_EXC_ERROR THEN
891: ROLLBACK TO create_uc_header;
892: x_return_status := FND_API.G_RET_STS_ERROR ;
893: FND_MSG_PUB.count_and_get(
894: p_encoded => FND_API.G_FALSE,

Line 892: x_return_status := FND_API.G_RET_STS_ERROR ;

888: p_data => x_msg_data);
889: EXCEPTION
890: WHEN FND_API.G_EXC_ERROR THEN
891: ROLLBACK TO create_uc_header;
892: x_return_status := FND_API.G_RET_STS_ERROR ;
893: FND_MSG_PUB.count_and_get(
894: p_encoded => FND_API.G_FALSE,
895: p_count => x_msg_count,
896: p_data => x_msg_data);

Line 894: p_encoded => FND_API.G_FALSE,

890: WHEN FND_API.G_EXC_ERROR THEN
891: ROLLBACK TO create_uc_header;
892: x_return_status := FND_API.G_RET_STS_ERROR ;
893: FND_MSG_PUB.count_and_get(
894: p_encoded => FND_API.G_FALSE,
895: p_count => x_msg_count,
896: p_data => x_msg_data);
897: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
898: ROLLBACK TO create_uc_header;

Line 897: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

893: FND_MSG_PUB.count_and_get(
894: p_encoded => FND_API.G_FALSE,
895: p_count => x_msg_count,
896: p_data => x_msg_data);
897: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
898: ROLLBACK TO create_uc_header;
899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
900: FND_MSG_PUB.count_and_get(
901: p_encoded => FND_API.G_FALSE,

Line 899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

895: p_count => x_msg_count,
896: p_data => x_msg_data);
897: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
898: ROLLBACK TO create_uc_header;
899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
900: FND_MSG_PUB.count_and_get(
901: p_encoded => FND_API.G_FALSE,
902: p_count => x_msg_count,
903: p_data => x_msg_data);

Line 901: p_encoded => FND_API.G_FALSE,

897: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
898: ROLLBACK TO create_uc_header;
899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
900: FND_MSG_PUB.count_and_get(
901: p_encoded => FND_API.G_FALSE,
902: p_count => x_msg_count,
903: p_data => x_msg_data);
904: WHEN OTHERS THEN
905: ROLLBACK TO create_uc_header;

Line 906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

902: p_count => x_msg_count,
903: p_data => x_msg_data);
904: WHEN OTHERS THEN
905: ROLLBACK TO create_uc_header;
906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
907: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
908: THEN
909: FND_MSG_PUB.add_exc_msg(
910: p_pkg_name => G_PKG_NAME,

Line 915: p_encoded => FND_API.G_FALSE,

911: p_procedure_name => l_api_name,
912: p_error_text => SUBSTRB(SQLERRM,1,240));
913: END IF;
914: FND_MSG_PUB.count_and_get(
915: p_encoded => FND_API.G_FALSE,
916: p_count => x_msg_count,
917: p_data => x_msg_data);
918: END create_uc_header;
919:

Line 925: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,

921: -- This API is used to update a UC header name or some attributes of the top node
922: -- instance of the UC.
923: PROCEDURE update_uc_header(
924: p_api_version IN NUMBER := 1.0,
925: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
926: p_commit IN VARCHAR2 := FND_API.G_FALSE,
927: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
928: p_module_type IN VARCHAR2 := NULL,
929: x_return_status OUT NOCOPY VARCHAR2,

Line 926: p_commit IN VARCHAR2 := FND_API.G_FALSE,

922: -- instance of the UC.
923: PROCEDURE update_uc_header(
924: p_api_version IN NUMBER := 1.0,
925: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
926: p_commit IN VARCHAR2 := FND_API.G_FALSE,
927: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
928: p_module_type IN VARCHAR2 := NULL,
929: x_return_status OUT NOCOPY VARCHAR2,
930: x_msg_count OUT NOCOPY NUMBER,

Line 927: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,

923: PROCEDURE update_uc_header(
924: p_api_version IN NUMBER := 1.0,
925: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
926: p_commit IN VARCHAR2 := FND_API.G_FALSE,
927: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
928: p_module_type IN VARCHAR2 := NULL,
929: x_return_status OUT NOCOPY VARCHAR2,
930: x_msg_count OUT NOCOPY NUMBER,
931: x_msg_data OUT NOCOPY VARCHAR2,

Line 942: x_return_status := FND_API.G_RET_STS_SUCCESS;

938: l_msg_count NUMBER;
939:
940: BEGIN
941: -- Initialize API return status to success
942: x_return_status := FND_API.G_RET_STS_SUCCESS;
943:
944: -- Standard Start of API savepoint
945: SAVEPOINT update_uc_header;
946:

Line 948: IF NOT FND_API.compatible_api_call(

944: -- Standard Start of API savepoint
945: SAVEPOINT update_uc_header;
946:
947: -- Standard call to check for call compatibility.
948: IF NOT FND_API.compatible_api_call(
949: l_api_version,
950: p_api_version,
951: l_api_name,
952: G_PKG_NAME)

Line 954: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

950: p_api_version,
951: l_api_name,
952: G_PKG_NAME)
953: THEN
954: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
955: END IF;
956:
957: -- Initialize message list if p_init_msg_list is set to TRUE.
958: IF FND_API.to_boolean( p_init_msg_list ) THEN

Line 958: IF FND_API.to_boolean( p_init_msg_list ) THEN

954: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
955: END IF;
956:
957: -- Initialize message list if p_init_msg_list is set to TRUE.
958: IF FND_API.to_boolean( p_init_msg_list ) THEN
959: FND_MSG_PUB.initialize;
960: END IF;
961:
962: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 970: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

966: END IF;
967:
968: -- Convert G_MISS values to NULL and NULL to OLD values
969: convert_attributes(p_x_uc_header_rec, l_return_status);
970: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
971: RAISE FND_API.G_EXC_ERROR;
972: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
973: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
974: END IF;

Line 971: RAISE FND_API.G_EXC_ERROR;

967:
968: -- Convert G_MISS values to NULL and NULL to OLD values
969: convert_attributes(p_x_uc_header_rec, l_return_status);
970: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
971: RAISE FND_API.G_EXC_ERROR;
972: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
973: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
974: END IF;
975:

Line 972: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

968: -- Convert G_MISS values to NULL and NULL to OLD values
969: convert_attributes(p_x_uc_header_rec, l_return_status);
970: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
971: RAISE FND_API.G_EXC_ERROR;
972: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
973: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
974: END IF;
975:
976: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 973: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

969: convert_attributes(p_x_uc_header_rec, l_return_status);
970: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
971: RAISE FND_API.G_EXC_ERROR;
972: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
973: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
974: END IF;
975:
976: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
977: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,

Line 983: IF (ahl_util_uc_pkg.IS_UNIT_QUARANTINED(p_unit_header_id => p_x_uc_header_rec.uc_header_id , p_instance_id => null) = FND_API.G_TRUE) THEN

979: ': after convert_attributes');
980: END IF;
981:
982: -- ACL :: Changes for R12
983: IF (ahl_util_uc_pkg.IS_UNIT_QUARANTINED(p_unit_header_id => p_x_uc_header_rec.uc_header_id , p_instance_id => null) = FND_API.G_TRUE) THEN
984: FND_MESSAGE.set_name( 'AHL','AHL_UC_INVALID_Q_ACTION' );
985: FND_MSG_PUB.add;
986: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
987: END IF;

Line 986: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

982: -- ACL :: Changes for R12
983: IF (ahl_util_uc_pkg.IS_UNIT_QUARANTINED(p_unit_header_id => p_x_uc_header_rec.uc_header_id , p_instance_id => null) = FND_API.G_TRUE) THEN
984: FND_MESSAGE.set_name( 'AHL','AHL_UC_INVALID_Q_ACTION' );
985: FND_MSG_PUB.add;
986: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
987: END IF;
988:
989: -- Validate all attributes (Item level validation)
990: IF ( p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN

Line 990: IF ( p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN

986: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
987: END IF;
988:
989: -- Validate all attributes (Item level validation)
990: IF ( p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
991: validate_attributes(p_x_uc_header_rec, 'U', l_return_status);
992: -- If any severe error occurs, then, abort API.
993: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
994: RAISE FND_API.G_EXC_ERROR;

Line 993: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

989: -- Validate all attributes (Item level validation)
990: IF ( p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
991: validate_attributes(p_x_uc_header_rec, 'U', l_return_status);
992: -- If any severe error occurs, then, abort API.
993: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
994: RAISE FND_API.G_EXC_ERROR;
995: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
996: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
997: END IF;

Line 994: RAISE FND_API.G_EXC_ERROR;

990: IF ( p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
991: validate_attributes(p_x_uc_header_rec, 'U', l_return_status);
992: -- If any severe error occurs, then, abort API.
993: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
994: RAISE FND_API.G_EXC_ERROR;
995: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
996: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
997: END IF;
998: END IF;

Line 995: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

991: validate_attributes(p_x_uc_header_rec, 'U', l_return_status);
992: -- If any severe error occurs, then, abort API.
993: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
994: RAISE FND_API.G_EXC_ERROR;
995: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
996: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
997: END IF;
998: END IF;
999: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 996: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

992: -- If any severe error occurs, then, abort API.
993: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
994: RAISE FND_API.G_EXC_ERROR;
995: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
996: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
997: END IF;
998: END IF;
999: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1000: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,

Line 1043: x_return_status := FND_API.G_RET_STS_ERROR;

1039: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': within API','ovn='||p_x_uc_header_rec.object_version_number);
1040: END IF;
1041: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');
1042: FND_MSG_PUB.add;
1043: x_return_status := FND_API.G_RET_STS_ERROR;
1044: RAISE FND_API.G_EXC_ERROR;
1045: END IF;
1046:
1047: ahl_util_uc_pkg.copy_uc_header_to_history(p_x_uc_header_rec.uc_header_id, l_return_status);

Line 1044: RAISE FND_API.G_EXC_ERROR;

1040: END IF;
1041: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');
1042: FND_MSG_PUB.add;
1043: x_return_status := FND_API.G_RET_STS_ERROR;
1044: RAISE FND_API.G_EXC_ERROR;
1045: END IF;
1046:
1047: ahl_util_uc_pkg.copy_uc_header_to_history(p_x_uc_header_rec.uc_header_id, l_return_status);
1048: --IF history copy failed, then don't raise exception, just add the message to the message stack

Line 1049: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1045: END IF;
1046:
1047: ahl_util_uc_pkg.copy_uc_header_to_history(p_x_uc_header_rec.uc_header_id, l_return_status);
1048: --IF history copy failed, then don't raise exception, just add the message to the message stack
1049: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1050: FND_MESSAGE.set_name('AHL', 'AHL_UC_HISTORY_COPY_FAILED');
1051: FND_MSG_PUB.add;
1052: END IF;
1053:

Line 1069: p_init_msg_list => FND_API.G_FALSE,

1065: --will be null.
1066: IF p_uc_instance_rec.instance_id IS NOT NULL THEN
1067: ahl_uc_instance_pvt.update_instance_attr(
1068: p_api_version => 1.0,
1069: p_init_msg_list => FND_API.G_FALSE,
1070: p_commit => FND_API.G_FALSE,
1071: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1072: x_return_status => x_return_status,
1073: x_msg_count => x_msg_count,

Line 1070: p_commit => FND_API.G_FALSE,

1066: IF p_uc_instance_rec.instance_id IS NOT NULL THEN
1067: ahl_uc_instance_pvt.update_instance_attr(
1068: p_api_version => 1.0,
1069: p_init_msg_list => FND_API.G_FALSE,
1070: p_commit => FND_API.G_FALSE,
1071: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1072: x_return_status => x_return_status,
1073: x_msg_count => x_msg_count,
1074: x_msg_data => x_msg_data,

Line 1071: p_validation_level => FND_API.G_VALID_LEVEL_FULL,

1067: ahl_uc_instance_pvt.update_instance_attr(
1068: p_api_version => 1.0,
1069: p_init_msg_list => FND_API.G_FALSE,
1070: p_commit => FND_API.G_FALSE,
1071: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1072: x_return_status => x_return_status,
1073: x_msg_count => x_msg_count,
1074: x_msg_data => x_msg_data,
1075: p_uc_header_id => p_x_uc_header_rec.uc_header_id,

Line 1088: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1084: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1085: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1086: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': within API','x_return_status='||x_return_status);
1087: END IF;
1088: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1089: RAISE FND_API.G_EXC_ERROR;
1090: END IF;
1091: END IF;
1092:

Line 1089: RAISE FND_API.G_EXC_ERROR;

1085: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1086: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': within API','x_return_status='||x_return_status);
1087: END IF;
1088: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1089: RAISE FND_API.G_EXC_ERROR;
1090: END IF;
1091: END IF;
1092:
1093: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 1102: RAISE FND_API.G_EXC_ERROR;

1098: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
1099: l_msg_count := FND_MSG_PUB.count_msg;
1100: IF l_msg_count > 0 THEN
1101: x_msg_count := l_msg_count;
1102: RAISE FND_API.G_EXC_ERROR;
1103: END IF;
1104:
1105: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1106: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,

Line 1111: IF FND_API.to_boolean( p_commit ) THEN

1107: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': within API', 'Before commit');
1108: END IF;
1109:
1110: -- Perform the Commit (if requested)
1111: IF FND_API.to_boolean( p_commit ) THEN
1112: COMMIT;
1113: END IF;
1114:
1115: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 1122: p_encoded => FND_API.G_FALSE,

1118: END IF;
1119:
1120: -- Count and Get messages (optional)
1121: FND_MSG_PUB.count_and_get(
1122: p_encoded => FND_API.G_FALSE,
1123: p_count => x_msg_count,
1124: p_data => x_msg_data);
1125:
1126: EXCEPTION

Line 1127: WHEN FND_API.G_EXC_ERROR THEN

1123: p_count => x_msg_count,
1124: p_data => x_msg_data);
1125:
1126: EXCEPTION
1127: WHEN FND_API.G_EXC_ERROR THEN
1128: ROLLBACK TO update_uc_header;
1129: x_return_status := FND_API.G_RET_STS_ERROR ;
1130: FND_MSG_PUB.count_and_get(
1131: p_encoded => FND_API.G_FALSE,

Line 1129: x_return_status := FND_API.G_RET_STS_ERROR ;

1125:
1126: EXCEPTION
1127: WHEN FND_API.G_EXC_ERROR THEN
1128: ROLLBACK TO update_uc_header;
1129: x_return_status := FND_API.G_RET_STS_ERROR ;
1130: FND_MSG_PUB.count_and_get(
1131: p_encoded => FND_API.G_FALSE,
1132: p_count => x_msg_count,
1133: p_data => x_msg_data);

Line 1131: p_encoded => FND_API.G_FALSE,

1127: WHEN FND_API.G_EXC_ERROR THEN
1128: ROLLBACK TO update_uc_header;
1129: x_return_status := FND_API.G_RET_STS_ERROR ;
1130: FND_MSG_PUB.count_and_get(
1131: p_encoded => FND_API.G_FALSE,
1132: p_count => x_msg_count,
1133: p_data => x_msg_data);
1134: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1135: ROLLBACK TO update_uc_header;

Line 1134: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1130: FND_MSG_PUB.count_and_get(
1131: p_encoded => FND_API.G_FALSE,
1132: p_count => x_msg_count,
1133: p_data => x_msg_data);
1134: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1135: ROLLBACK TO update_uc_header;
1136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1137: FND_MSG_PUB.count_and_get(
1138: p_encoded => FND_API.G_FALSE,

Line 1136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1132: p_count => x_msg_count,
1133: p_data => x_msg_data);
1134: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1135: ROLLBACK TO update_uc_header;
1136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1137: FND_MSG_PUB.count_and_get(
1138: p_encoded => FND_API.G_FALSE,
1139: p_count => x_msg_count,
1140: p_data => x_msg_data);

Line 1138: p_encoded => FND_API.G_FALSE,

1134: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1135: ROLLBACK TO update_uc_header;
1136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1137: FND_MSG_PUB.count_and_get(
1138: p_encoded => FND_API.G_FALSE,
1139: p_count => x_msg_count,
1140: p_data => x_msg_data);
1141: WHEN OTHERS THEN
1142: ROLLBACK TO update_uc_header;

Line 1143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1139: p_count => x_msg_count,
1140: p_data => x_msg_data);
1141: WHEN OTHERS THEN
1142: ROLLBACK TO update_uc_header;
1143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1144: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1145: THEN
1146: FND_MSG_PUB.add_exc_msg(
1147: p_pkg_name => G_PKG_NAME,

Line 1152: p_encoded => FND_API.G_FALSE,

1148: p_procedure_name => l_api_name,
1149: p_error_text => SUBSTRB(SQLERRM,1,240));
1150: END IF;
1151: FND_MSG_PUB.count_and_get(
1152: p_encoded => FND_API.G_FALSE,
1153: p_count => x_msg_count,
1154: p_data => x_msg_data);
1155: END update_uc_header;
1156:

Line 1161: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,

1157: -- Define Procedure delete_uc_header --
1158:
1159: PROCEDURE delete_uc_header(
1160: p_api_version IN NUMBER := 1.0,
1161: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1162: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1163: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1164: x_return_status OUT NOCOPY VARCHAR2,
1165: x_msg_count OUT NOCOPY NUMBER,

Line 1162: p_commit IN VARCHAR2 := FND_API.G_FALSE,

1158:
1159: PROCEDURE delete_uc_header(
1160: p_api_version IN NUMBER := 1.0,
1161: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1162: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1163: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1164: x_return_status OUT NOCOPY VARCHAR2,
1165: x_msg_count OUT NOCOPY NUMBER,
1166: x_msg_data OUT NOCOPY VARCHAR2,

Line 1163: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,

1159: PROCEDURE delete_uc_header(
1160: p_api_version IN NUMBER := 1.0,
1161: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1162: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1163: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1164: x_return_status OUT NOCOPY VARCHAR2,
1165: x_msg_count OUT NOCOPY NUMBER,
1166: x_msg_data OUT NOCOPY VARCHAR2,
1167: p_uc_header_id IN NUMBER,

Line 1223: x_return_status := FND_API.G_RET_STS_SUCCESS;

1219: AND trunc(nvl(active_start_date, SYSDATE)) <= trunc(SYSDATE)
1220: AND trunc(nvl(active_end_date, SYSDATE+1)) > trunc(SYSDATE);
1221: BEGIN
1222: -- Initialize API return status to success
1223: x_return_status := FND_API.G_RET_STS_SUCCESS;
1224:
1225: -- Standard Start of API savepoint
1226: SAVEPOINT delete_uc_header;
1227:

Line 1229: IF NOT FND_API.compatible_api_call(

1225: -- Standard Start of API savepoint
1226: SAVEPOINT delete_uc_header;
1227:
1228: -- Standard call to check for call compatibility.
1229: IF NOT FND_API.compatible_api_call(
1230: l_api_version,
1231: p_api_version,
1232: l_api_name,
1233: G_PKG_NAME)

Line 1235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1231: p_api_version,
1232: l_api_name,
1233: G_PKG_NAME)
1234: THEN
1235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1236: END IF;
1237:
1238: -- Initialize message list if p_init_msg_list is set to TRUE.
1239: IF FND_API.to_boolean( p_init_msg_list ) THEN

Line 1239: IF FND_API.to_boolean( p_init_msg_list ) THEN

1235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1236: END IF;
1237:
1238: -- Initialize message list if p_init_msg_list is set to TRUE.
1239: IF FND_API.to_boolean( p_init_msg_list ) THEN
1240: FND_MSG_PUB.initialize;
1241: END IF;
1242:
1243: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 1249: IF (p_uc_header_id IS NULL OR p_uc_header_id = FND_API.G_MISS_NUM OR

1245: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1246: 'At the start of the procedure');
1247: END IF;
1248:
1249: IF (p_uc_header_id IS NULL OR p_uc_header_id = FND_API.G_MISS_NUM OR
1250: p_object_version_number IS NULL OR p_object_version_number = FND_API.G_MISS_NUM OR
1251: p_csi_instance_ovn IS NULL OR p_csi_instance_ovn = FND_API.G_MISS_NUM ) THEN
1252: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
1253: FND_MSG_PUB.add;

Line 1250: p_object_version_number IS NULL OR p_object_version_number = FND_API.G_MISS_NUM OR

1246: 'At the start of the procedure');
1247: END IF;
1248:
1249: IF (p_uc_header_id IS NULL OR p_uc_header_id = FND_API.G_MISS_NUM OR
1250: p_object_version_number IS NULL OR p_object_version_number = FND_API.G_MISS_NUM OR
1251: p_csi_instance_ovn IS NULL OR p_csi_instance_ovn = FND_API.G_MISS_NUM ) THEN
1252: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
1253: FND_MSG_PUB.add;
1254: RAISE FND_API.G_EXC_ERROR;

Line 1251: p_csi_instance_ovn IS NULL OR p_csi_instance_ovn = FND_API.G_MISS_NUM ) THEN

1247: END IF;
1248:
1249: IF (p_uc_header_id IS NULL OR p_uc_header_id = FND_API.G_MISS_NUM OR
1250: p_object_version_number IS NULL OR p_object_version_number = FND_API.G_MISS_NUM OR
1251: p_csi_instance_ovn IS NULL OR p_csi_instance_ovn = FND_API.G_MISS_NUM ) THEN
1252: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
1253: FND_MSG_PUB.add;
1254: RAISE FND_API.G_EXC_ERROR;
1255: END IF;

Line 1254: RAISE FND_API.G_EXC_ERROR;

1250: p_object_version_number IS NULL OR p_object_version_number = FND_API.G_MISS_NUM OR
1251: p_csi_instance_ovn IS NULL OR p_csi_instance_ovn = FND_API.G_MISS_NUM ) THEN
1252: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
1253: FND_MSG_PUB.add;
1254: RAISE FND_API.G_EXC_ERROR;
1255: END IF;
1256:
1257: --In case p_uc_header_id is a subunit, then whether it can be expired depends on its ancestor
1258: --uc_header_id's status

Line 1267: RAISE FND_API.G_EXC_ERROR;

1263: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
1264: FND_MESSAGE.set_token('NAME', 'uc_header_id');
1265: FND_MESSAGE.set_token('VALUE', p_uc_header_id);
1266: FND_MSG_PUB.add;
1267: RAISE FND_API.G_EXC_ERROR;
1268: ELSIF (l_uc_status IS NULL OR l_uc_status NOT IN ('DRAFT', 'APPROVAL_REJECTED')) THEN
1269: CLOSE get_top_unit;
1270: FND_MESSAGE.set_name( 'AHL', 'AHL_UC_STATUS_NOT_DRAFT' );
1271: FND_MSG_PUB.add;

Line 1272: RAISE FND_API.G_EXC_ERROR;

1268: ELSIF (l_uc_status IS NULL OR l_uc_status NOT IN ('DRAFT', 'APPROVAL_REJECTED')) THEN
1269: CLOSE get_top_unit;
1270: FND_MESSAGE.set_name( 'AHL', 'AHL_UC_STATUS_NOT_DRAFT' );
1271: FND_MSG_PUB.add;
1272: RAISE FND_API.G_EXC_ERROR;
1273: END IF;
1274:
1275: --Get p_uc_header_id its own attribute from ahl_unit_config_headers_v
1276: OPEN get_uc_header(p_uc_header_id);

Line 1284: RAISE FND_API.G_EXC_ERROR;

1280: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
1281: FND_MESSAGE.set_token('NAME', 'uc_header_id');
1282: FND_MESSAGE.set_token('VALUE', p_uc_header_id);
1283: FND_MSG_PUB.add;
1284: RAISE FND_API.G_EXC_ERROR;
1285: ELSE
1286: CLOSE get_uc_header;
1287: END IF;
1288:

Line 1303: x_return_status := FND_API.G_RET_STS_ERROR;

1299:
1300: IF SQL%NOTFOUND THEN
1301: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');
1302: FND_MSG_PUB.add;
1303: x_return_status := FND_API.G_RET_STS_ERROR;
1304: RAISE FND_API.G_EXC_ERROR;
1305: END IF;
1306:
1307: ahl_util_uc_pkg.copy_uc_header_to_history(p_uc_header_id, l_return_status);

Line 1304: RAISE FND_API.G_EXC_ERROR;

1300: IF SQL%NOTFOUND THEN
1301: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');
1302: FND_MSG_PUB.add;
1303: x_return_status := FND_API.G_RET_STS_ERROR;
1304: RAISE FND_API.G_EXC_ERROR;
1305: END IF;
1306:
1307: ahl_util_uc_pkg.copy_uc_header_to_history(p_uc_header_id, l_return_status);
1308: --IF history copy failed, then don't raise exception, just add the message tothe message stack

Line 1309: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1305: END IF;
1306:
1307: ahl_util_uc_pkg.copy_uc_header_to_history(p_uc_header_id, l_return_status);
1308: --IF history copy failed, then don't raise exception, just add the message tothe message stack
1309: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1310: FND_MESSAGE.set_name('AHL', 'AHL_UC_HISTORY_COPY_FAILED');
1311: FND_MSG_PUB.add;
1312: END IF;
1313:

Line 1320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1316: --the relationship below the subunit are not expired.
1317: --First, get transaction_type_id.
1318: AHL_UTIL_UC_PKG.getcsi_transaction_id('UC_UPDATE',l_transaction_type_id, l_return_value);
1319: IF NOT l_return_value THEN
1320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1321: END IF;
1322: --Set the CSI transaction record
1323: l_csi_transaction_rec.source_transaction_date := SYSDATE;
1324: l_csi_transaction_rec.transaction_type_id := l_transaction_type_id;

Line 1339: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1335: IF (get_csi_obj_ver_num%NOTFOUND) THEN
1336: CLOSE get_csi_obj_ver_num;
1337: FND_MESSAGE.set_name('AHL','AHL_COM_RECORD_DELETED');
1338: FND_MSG_PUB.add;
1339: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1340: ELSIF (l_csi_instance_ovn <> p_csi_instance_ovn) THEN
1341: CLOSE get_csi_obj_ver_num;
1342: FND_MESSAGE.set_name('AHL','AHL_COM_RECORD_CHANGED');
1343: FND_MSG_PUB.add;

Line 1344: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1340: ELSIF (l_csi_instance_ovn <> p_csi_instance_ovn) THEN
1341: CLOSE get_csi_obj_ver_num;
1342: FND_MESSAGE.set_name('AHL','AHL_COM_RECORD_CHANGED');
1343: FND_MSG_PUB.add;
1344: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1345: END IF;
1346:
1347: IF l_uc_header_rec.parent_uc_header_id IS NOT NULL THEN
1348: --Means it is a subunit, need to expire the relationship with its parent (here we can also

Line 1357: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1353: CLOSE get_csi_ii_relationship;
1354: FND_MESSAGE.set_name('AHL','AHL_UC_CSI_REL_REC_INVALID');
1355: FND_MESSAGE.set_token('INSTANCE', l_uc_header_rec.csi_instance_id);
1356: FND_MSG_PUB.add;
1357: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1358: ELSE
1359: CLOSE get_csi_ii_relationship;
1360: END IF;
1361:

Line 1374: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN

1370: x_return_status => l_return_status,
1371: x_msg_count => l_msg_count,
1372: x_msg_data => l_msg_data);
1373:
1374: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1375: l_csi_instance_ovn := l_csi_instance_ovn + 1;
1376: ELSIF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
1377: RAISE FND_API.G_EXC_ERROR;
1378: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN

Line 1376: ELSIF(l_return_status = FND_API.G_RET_STS_ERROR) THEN

1372: x_msg_data => l_msg_data);
1373:
1374: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1375: l_csi_instance_ovn := l_csi_instance_ovn + 1;
1376: ELSIF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
1377: RAISE FND_API.G_EXC_ERROR;
1378: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1380: END IF;

Line 1377: RAISE FND_API.G_EXC_ERROR;

1373:
1374: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1375: l_csi_instance_ovn := l_csi_instance_ovn + 1;
1376: ELSIF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
1377: RAISE FND_API.G_EXC_ERROR;
1378: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1380: END IF;
1381: END IF;

Line 1378: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN

1374: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1375: l_csi_instance_ovn := l_csi_instance_ovn + 1;
1376: ELSIF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
1377: RAISE FND_API.G_EXC_ERROR;
1378: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1380: END IF;
1381: END IF;
1382:

Line 1379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1375: l_csi_instance_ovn := l_csi_instance_ovn + 1;
1376: ELSIF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
1377: RAISE FND_API.G_EXC_ERROR;
1378: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1380: END IF;
1381: END IF;
1382:
1383: --Call CSI API to expire the instance and all its descendants if exist

Line 1389: p_expire_children => FND_API.G_TRUE,

1385: l_csi_instance_rec.object_version_number := l_csi_instance_ovn;
1386: CSI_ITEM_INSTANCE_PUB.expire_item_instance(
1387: p_api_version => 1.0,
1388: p_instance_rec => l_csi_instance_rec,
1389: p_expire_children => FND_API.G_TRUE,
1390: p_txn_rec => l_csi_upd_transaction_rec,
1391: x_instance_id_lst => l_csi_instance_id_lst,
1392: x_return_status => l_return_status,
1393: x_msg_count => l_msg_count,

Line 1396: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN

1392: x_return_status => l_return_status,
1393: x_msg_count => l_msg_count,
1394: x_msg_data => l_msg_data);
1395: --dbms_output.put_line('l_msg_date='||l_msg_data);
1396: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1397: RAISE FND_API.G_EXC_ERROR;
1398: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1400: END IF;

Line 1397: RAISE FND_API.G_EXC_ERROR;

1393: x_msg_count => l_msg_count,
1394: x_msg_data => l_msg_data);
1395: --dbms_output.put_line('l_msg_date='||l_msg_data);
1396: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1397: RAISE FND_API.G_EXC_ERROR;
1398: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1400: END IF;
1401:

Line 1398: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN

1394: x_msg_data => l_msg_data);
1395: --dbms_output.put_line('l_msg_date='||l_msg_data);
1396: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1397: RAISE FND_API.G_EXC_ERROR;
1398: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1400: END IF;
1401:
1402: --Then expire all of the subunit headers. Here don't need to worry about the status of subunit.

Line 1399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1395: --dbms_output.put_line('l_msg_date='||l_msg_data);
1396: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1397: RAISE FND_API.G_EXC_ERROR;
1398: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1400: END IF;
1401:
1402: --Then expire all of the subunit headers. Here don't need to worry about the status of subunit.
1403: --because all the Draft units can only have Draft subunits and only separate units are allowed

Line 1417: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1413: --here no object_version_number check
1414:
1415: ahl_util_uc_pkg.copy_uc_header_to_history(l_subunits.unit_config_header_id,l_return_status);
1416: --IF history copy failed, then don't raise exception, just add the messageto the message stack
1417: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1418: FND_MESSAGE.set_name('AHL', 'AHL_UC_HISTORY_COPY_FAILED');
1419: FND_MSG_PUB.add;
1420: END IF;
1421: END LOOP;

Line 1429: IF FND_API.to_boolean( p_commit ) THEN

1425: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After normal execution','At the end of the procedure');
1426: END IF;
1427:
1428: -- Perform the Commit (if requested)
1429: IF FND_API.to_boolean( p_commit ) THEN
1430: COMMIT;
1431: END IF;
1432: -- Count and Get messages (optional)
1433: FND_MSG_PUB.count_and_get(

Line 1434: p_encoded => FND_API.G_FALSE,

1430: COMMIT;
1431: END IF;
1432: -- Count and Get messages (optional)
1433: FND_MSG_PUB.count_and_get(
1434: p_encoded => FND_API.G_FALSE,
1435: p_count => x_msg_count,
1436: p_data => x_msg_data);
1437:
1438: EXCEPTION

Line 1439: WHEN FND_API.G_EXC_ERROR THEN

1435: p_count => x_msg_count,
1436: p_data => x_msg_data);
1437:
1438: EXCEPTION
1439: WHEN FND_API.G_EXC_ERROR THEN
1440: ROLLBACK TO delete_uc_header;
1441: x_return_status := FND_API.G_RET_STS_ERROR ;
1442: FND_MSG_PUB.count_and_get(
1443: p_encoded => FND_API.G_FALSE,

Line 1441: x_return_status := FND_API.G_RET_STS_ERROR ;

1437:
1438: EXCEPTION
1439: WHEN FND_API.G_EXC_ERROR THEN
1440: ROLLBACK TO delete_uc_header;
1441: x_return_status := FND_API.G_RET_STS_ERROR ;
1442: FND_MSG_PUB.count_and_get(
1443: p_encoded => FND_API.G_FALSE,
1444: p_count => x_msg_count,
1445: p_data => x_msg_data);

Line 1443: p_encoded => FND_API.G_FALSE,

1439: WHEN FND_API.G_EXC_ERROR THEN
1440: ROLLBACK TO delete_uc_header;
1441: x_return_status := FND_API.G_RET_STS_ERROR ;
1442: FND_MSG_PUB.count_and_get(
1443: p_encoded => FND_API.G_FALSE,
1444: p_count => x_msg_count,
1445: p_data => x_msg_data);
1446: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1447: ROLLBACK TO delete_uc_header;

Line 1446: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1442: FND_MSG_PUB.count_and_get(
1443: p_encoded => FND_API.G_FALSE,
1444: p_count => x_msg_count,
1445: p_data => x_msg_data);
1446: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1447: ROLLBACK TO delete_uc_header;
1448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1449: FND_MSG_PUB.count_and_get(
1450: p_encoded => FND_API.G_FALSE,

Line 1448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1444: p_count => x_msg_count,
1445: p_data => x_msg_data);
1446: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1447: ROLLBACK TO delete_uc_header;
1448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1449: FND_MSG_PUB.count_and_get(
1450: p_encoded => FND_API.G_FALSE,
1451: p_count => x_msg_count,
1452: p_data => x_msg_data);

Line 1450: p_encoded => FND_API.G_FALSE,

1446: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1447: ROLLBACK TO delete_uc_header;
1448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1449: FND_MSG_PUB.count_and_get(
1450: p_encoded => FND_API.G_FALSE,
1451: p_count => x_msg_count,
1452: p_data => x_msg_data);
1453: WHEN OTHERS THEN
1454: ROLLBACK TO delete_uc_header;

Line 1455: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1451: p_count => x_msg_count,
1452: p_data => x_msg_data);
1453: WHEN OTHERS THEN
1454: ROLLBACK TO delete_uc_header;
1455: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1456: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1457: THEN
1458: FND_MSG_PUB.add_exc_msg(
1459: p_pkg_name => G_PKG_NAME,

Line 1464: p_encoded => FND_API.G_FALSE,

1460: p_procedure_name => l_api_name,
1461: p_error_text => SUBSTRB(SQLERRM,1,240));
1462: END IF;
1463: FND_MSG_PUB.count_and_get(
1464: p_encoded => FND_API.G_FALSE,
1465: p_count => x_msg_count,
1466: p_data => x_msg_data);
1467: END delete_uc_header;
1468: