7: PROCEDURE validate_id (p_tldv_rec IN tldv_rec_type,
8: x_return_status OUT NOCOPY VARCHAR2) IS
9:
10: BEGIN
11: x_return_status := Okl_api.G_RET_STS_SUCCESS;
12: --Check for Null
13: IF p_tldv_rec.id = Okl_api.G_MISS_NUM OR
14: p_tldv_rec.id IS NULL
15: THEN
9:
10: BEGIN
11: x_return_status := Okl_api.G_RET_STS_SUCCESS;
12: --Check for Null
13: IF p_tldv_rec.id = Okl_api.G_MISS_NUM OR
14: p_tldv_rec.id IS NULL
15: THEN
16:
17: x_return_status := Okl_api.G_RET_STS_ERROR;
13: IF p_tldv_rec.id = Okl_api.G_MISS_NUM OR
14: p_tldv_rec.id IS NULL
15: THEN
16:
17: x_return_status := Okl_api.G_RET_STS_ERROR;
18: --set error message in message stack
19: Okl_api.SET_MESSAGE(p_app_name => G_APP_NAME,
20: p_msg_name => G_REQUIRED_VALUE,
21: p_token1 => G_COL_NAME_TOKEN,
15: THEN
16:
17: x_return_status := Okl_api.G_RET_STS_ERROR;
18: --set error message in message stack
19: Okl_api.SET_MESSAGE(p_app_name => G_APP_NAME,
20: p_msg_name => G_REQUIRED_VALUE,
21: p_token1 => G_COL_NAME_TOKEN,
22: p_token1_value => 'id');
23: RAISE G_EXCEPTION_HALT_VALIDATION;
34:
35: PROCEDURE validate_org_id (p_tldv_rec IN tldv_rec_type,
36: x_return_status OUT NOCOPY VARCHAR2) IS
37: BEGIN
38: x_return_status := Okl_api.G_RET_STS_SUCCESS;
39: IF (p_tldv_rec.org_id IS NOT NULL) THEN
40: x_return_status := Okl_Util.check_org_id(p_tldv_rec.org_id);
41: END IF;
42: END validate_org_id;
47:
48: PROCEDURE validate_inventory_org_id (p_tldv_rec IN tldv_rec_type,
49: x_return_status OUT NOCOPY VARCHAR2) IS
50: BEGIN
51: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
52: IF (p_tldv_rec.inventory_org_id IS NOT NULL) THEN
53: x_return_status := Okl_Util.check_org_id(p_tldv_rec.inventory_org_id);
54: END IF;
55:
52: IF (p_tldv_rec.inventory_org_id IS NOT NULL) THEN
53: x_return_status := Okl_Util.check_org_id(p_tldv_rec.inventory_org_id);
54: END IF;
55:
56: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
57: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
58: p_msg_name => G_REQUIRED_VALUE,
59: p_token1 => G_COL_NAME_TOKEN,
60: p_token1_value => 'INVENTORY_ORG_ID');
53: x_return_status := Okl_Util.check_org_id(p_tldv_rec.inventory_org_id);
54: END IF;
55:
56: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
57: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
58: p_msg_name => G_REQUIRED_VALUE,
59: p_token1 => G_COL_NAME_TOKEN,
60: p_token1_value => 'INVENTORY_ORG_ID');
61: END IF;
69: PROCEDURE validate_object_version_number (p_tldv_rec IN tldv_rec_type,
70: x_return_status OUT NOCOPY VARCHAR2) IS
71:
72: BEGIN
73: x_return_status := Okl_api.G_RET_STS_SUCCESS;
74: --Check for Null
75: IF p_tldv_rec.id = Okl_api.G_MISS_NUM OR
76: p_tldv_rec.id IS NULL
77: THEN
71:
72: BEGIN
73: x_return_status := Okl_api.G_RET_STS_SUCCESS;
74: --Check for Null
75: IF p_tldv_rec.id = Okl_api.G_MISS_NUM OR
76: p_tldv_rec.id IS NULL
77: THEN
78:
79: x_return_status := Okl_api.G_RET_STS_ERROR;
75: IF p_tldv_rec.id = Okl_api.G_MISS_NUM OR
76: p_tldv_rec.id IS NULL
77: THEN
78:
79: x_return_status := Okl_api.G_RET_STS_ERROR;
80: --set error message in message stack
81: Okl_api.SET_MESSAGE(p_app_name => G_APP_NAME,
82: p_msg_name => G_REQUIRED_VALUE,
83: p_token1 => G_COL_NAME_TOKEN,
77: THEN
78:
79: x_return_status := Okl_api.G_RET_STS_ERROR;
80: --set error message in message stack
81: Okl_api.SET_MESSAGE(p_app_name => G_APP_NAME,
82: p_msg_name => G_REQUIRED_VALUE,
83: p_token1 => G_COL_NAME_TOKEN,
84: p_token1_value => 'object_version_number');
85: RAISE G_EXCEPTION_HALT_VALIDATION;
96: PROCEDURE validate_line_detail_number (p_tldv_rec IN tldv_rec_type,
97: x_return_status OUT NOCOPY VARCHAR2) IS
98:
99: BEGIN
100: x_return_status := Okl_api.G_RET_STS_SUCCESS;
101: --Check for Null
102: IF p_tldv_rec.line_detail_number = Okl_api.G_MISS_NUM OR
103: p_tldv_rec.line_detail_number IS NULL
104: THEN
98:
99: BEGIN
100: x_return_status := Okl_api.G_RET_STS_SUCCESS;
101: --Check for Null
102: IF p_tldv_rec.line_detail_number = Okl_api.G_MISS_NUM OR
103: p_tldv_rec.line_detail_number IS NULL
104: THEN
105:
106: x_return_status := Okl_api.G_RET_STS_ERROR;
102: IF p_tldv_rec.line_detail_number = Okl_api.G_MISS_NUM OR
103: p_tldv_rec.line_detail_number IS NULL
104: THEN
105:
106: x_return_status := Okl_api.G_RET_STS_ERROR;
107: --set error message in message stack
108: Okl_api.SET_MESSAGE(p_app_name => G_APP_NAME,
109: p_msg_name => G_REQUIRED_VALUE,
110: p_token1 => G_COL_NAME_TOKEN,
104: THEN
105:
106: x_return_status := Okl_api.G_RET_STS_ERROR;
107: --set error message in message stack
108: Okl_api.SET_MESSAGE(p_app_name => G_APP_NAME,
109: p_msg_name => G_REQUIRED_VALUE,
110: p_token1 => G_COL_NAME_TOKEN,
111: p_token1_value => 'line_detail_number');
112: RAISE G_EXCEPTION_HALT_VALIDATION;
128: WHERE id = p_tldv_rec.bch_id;
129:
130:
131: BEGIN
132: x_return_status := Okl_api.G_RET_STS_SUCCESS;
133:
134: IF (p_tldv_rec.bch_id IS NOT NULL) THEN
135: OPEN l_bch_id_csr;
136: FETCH l_bch_id_csr INTO l_dummy_var;
136: FETCH l_bch_id_csr INTO l_dummy_var;
137: CLOSE l_bch_id_csr;
138:
139: IF (l_dummy_var <> '1') THEN
140: x_return_status := Okl_api.G_RET_STS_ERROR;
141: Okl_api.SET_MESSAGE(p_app_name => G_APP_NAME,
142: p_msg_name => G_NO_PARENT_RECORD,
143: p_token1 => G_COL_NAME_TOKEN,
144: p_token1_value => 'BCH_ID_FOR',
137: CLOSE l_bch_id_csr;
138:
139: IF (l_dummy_var <> '1') THEN
140: x_return_status := Okl_api.G_RET_STS_ERROR;
141: Okl_api.SET_MESSAGE(p_app_name => G_APP_NAME,
142: p_msg_name => G_NO_PARENT_RECORD,
143: p_token1 => G_COL_NAME_TOKEN,
144: p_token1_value => 'BCH_ID_FOR',
145: p_token2 => G_CHILD_TABLE_TOKEN,
166: WHERE id = p_tldv_rec.bcl_id;
167:
168:
169: BEGIN
170: x_return_status := Okl_api.G_RET_STS_SUCCESS;
171:
172: IF (p_tldv_rec.bcl_id IS NOT NULL) THEN
173: OPEN l_bcl_id_csr;
174: FETCH l_bcl_id_csr INTO l_dummy_var;
174: FETCH l_bcl_id_csr INTO l_dummy_var;
175: CLOSE l_bcl_id_csr;
176:
177: IF (l_dummy_var <> '1') THEN
178: x_return_status := Okl_api.G_RET_STS_ERROR;
179: Okl_api.SET_MESSAGE(p_app_name => G_APP_NAME,
180: p_msg_name => G_NO_PARENT_RECORD,
181: p_token1 => G_COL_NAME_TOKEN,
182: p_token1_value => 'BCL_ID_FOR',
175: CLOSE l_bcl_id_csr;
176:
177: IF (l_dummy_var <> '1') THEN
178: x_return_status := Okl_api.G_RET_STS_ERROR;
179: Okl_api.SET_MESSAGE(p_app_name => G_APP_NAME,
180: p_msg_name => G_NO_PARENT_RECORD,
181: p_token1 => G_COL_NAME_TOKEN,
182: p_token1_value => 'BCL_ID_FOR',
183: p_token2 => G_CHILD_TABLE_TOKEN,
204: WHERE id = p_tldv_rec.bsl_id;
205:
206:
207: BEGIN
208: x_return_status := Okl_api.G_RET_STS_SUCCESS;
209:
210: IF (p_tldv_rec.bsl_id IS NOT NULL) THEN
211: OPEN l_bsl_id_csr;
212: FETCH l_bsl_id_csr INTO l_dummy_var;
212: FETCH l_bsl_id_csr INTO l_dummy_var;
213: CLOSE l_bsl_id_csr;
214:
215: IF (l_dummy_var <> '1') THEN
216: x_return_status := Okl_api.G_RET_STS_ERROR;
217: Okl_api.SET_MESSAGE(p_app_name => G_APP_NAME,
218: p_msg_name => G_NO_PARENT_RECORD,
219: p_token1 => G_COL_NAME_TOKEN,
220: p_token1_value => 'BSL_ID_FOR',
213: CLOSE l_bsl_id_csr;
214:
215: IF (l_dummy_var <> '1') THEN
216: x_return_status := Okl_api.G_RET_STS_ERROR;
217: Okl_api.SET_MESSAGE(p_app_name => G_APP_NAME,
218: p_msg_name => G_NO_PARENT_RECORD,
219: p_token1 => G_COL_NAME_TOKEN,
220: p_token1_value => 'BSL_ID_FOR',
221: p_token2 => G_CHILD_TABLE_TOKEN,
242: WHERE id = p_tldv_rec.bgh_id;
243:
244:
245: BEGIN
246: x_return_status := Okl_api.G_RET_STS_SUCCESS;
247:
248: IF (p_tldv_rec.bgh_id IS NOT NULL) THEN
249: OPEN l_bgh_id_csr;
250: FETCH l_bgh_id_csr INTO l_dummy_var;
250: FETCH l_bgh_id_csr INTO l_dummy_var;
251: CLOSE l_bgh_id_csr;
252:
253: IF (l_dummy_var <> '1') THEN
254: x_return_status := Okl_api.G_RET_STS_ERROR;
255: Okl_api.SET_MESSAGE(p_app_name => G_APP_NAME,
256: p_msg_name => G_NO_PARENT_RECORD,
257: p_token1 => G_COL_NAME_TOKEN,
258: p_token1_value => 'BGH_ID_FOR',
251: CLOSE l_bgh_id_csr;
252:
253: IF (l_dummy_var <> '1') THEN
254: x_return_status := Okl_api.G_RET_STS_ERROR;
255: Okl_api.SET_MESSAGE(p_app_name => G_APP_NAME,
256: p_msg_name => G_NO_PARENT_RECORD,
257: p_token1 => G_COL_NAME_TOKEN,
258: p_token1_value => 'BGH_ID_FOR',
259: p_token2 => G_CHILD_TABLE_TOKEN,
280: WHERE id = p_tldv_rec.idx_id;
281:
282:
283: BEGIN
284: x_return_status := Okl_api.G_RET_STS_SUCCESS;
285:
286: IF (p_tldv_rec.idx_id IS NOT NULL) THEN
287: OPEN l_idx_id_csr;
288: FETCH l_idx_id_csr INTO l_dummy_var;
288: FETCH l_idx_id_csr INTO l_dummy_var;
289: CLOSE l_idx_id_csr;
290:
291: IF (l_dummy_var <> '1') THEN
292: x_return_status := Okl_api.G_RET_STS_ERROR;
293: Okl_api.SET_MESSAGE(p_app_name => G_APP_NAME,
294: p_msg_name => G_NO_PARENT_RECORD,
295: p_token1 => G_COL_NAME_TOKEN,
296: p_token1_value => 'IDX_ID_FOR',
289: CLOSE l_idx_id_csr;
290:
291: IF (l_dummy_var <> '1') THEN
292: x_return_status := Okl_api.G_RET_STS_ERROR;
293: Okl_api.SET_MESSAGE(p_app_name => G_APP_NAME,
294: p_msg_name => G_NO_PARENT_RECORD,
295: p_token1 => G_COL_NAME_TOKEN,
296: p_token1_value => 'IDX_ID_FOR',
297: p_token2 => G_CHILD_TABLE_TOKEN,
318: WHERE id = p_tldv_rec.sel_id;
319:
320:
321: BEGIN
322: x_return_status := Okl_api.G_RET_STS_SUCCESS;
323:
324: IF (p_tldv_rec.sel_id IS NOT NULL) THEN
325: OPEN l_sel_id_csr;
326: FETCH l_sel_id_csr INTO l_dummy_var;
326: FETCH l_sel_id_csr INTO l_dummy_var;
327: CLOSE l_sel_id_csr;
328:
329: IF (l_dummy_var <> '1') THEN
330: x_return_status := Okl_api.G_RET_STS_ERROR;
331: Okl_api.SET_MESSAGE(p_app_name => G_APP_NAME,
332: p_msg_name => G_NO_PARENT_RECORD,
333: p_token1 => G_COL_NAME_TOKEN,
334: p_token1_value => 'SEL_ID_FOR',
327: CLOSE l_sel_id_csr;
328:
329: IF (l_dummy_var <> '1') THEN
330: x_return_status := Okl_api.G_RET_STS_ERROR;
331: Okl_api.SET_MESSAGE(p_app_name => G_APP_NAME,
332: p_msg_name => G_NO_PARENT_RECORD,
333: p_token1 => G_COL_NAME_TOKEN,
334: p_token1_value => 'SEL_ID_FOR',
335: p_token2 => G_CHILD_TABLE_TOKEN,
356: WHERE id = p_tldv_rec.sty_id;
357:
358:
359: BEGIN
360: x_return_status := Okl_api.G_RET_STS_SUCCESS;
361:
362: IF (p_tldv_rec.sty_id IS NOT NULL) THEN
363: OPEN l_sty_id_csr;
364: FETCH l_sty_id_csr INTO l_dummy_var;
364: FETCH l_sty_id_csr INTO l_dummy_var;
365: CLOSE l_sty_id_csr;
366:
367: IF (l_dummy_var <> '1') THEN
368: x_return_status := Okl_api.G_RET_STS_ERROR;
369: Okl_api.SET_MESSAGE(p_app_name => G_APP_NAME,
370: p_msg_name => G_NO_PARENT_RECORD,
371: p_token1 => G_COL_NAME_TOKEN,
372: p_token1_value => 'STY_ID_FOR',
365: CLOSE l_sty_id_csr;
366:
367: IF (l_dummy_var <> '1') THEN
368: x_return_status := Okl_api.G_RET_STS_ERROR;
369: Okl_api.SET_MESSAGE(p_app_name => G_APP_NAME,
370: p_msg_name => G_NO_PARENT_RECORD,
371: p_token1 => G_COL_NAME_TOKEN,
372: p_token1_value => 'STY_ID_FOR',
373: p_token2 => G_CHILD_TABLE_TOKEN,
395: WHERE id = p_tldv_rec.til_id_details;
396:
397:
398: BEGIN
399: x_return_status := Okl_api.G_RET_STS_SUCCESS;
400:
401: IF (p_tldv_rec.til_id_details IS NOT NULL) THEN
402: OPEN l_til_id_details_csr;
403: FETCH l_til_id_details_csr INTO l_dummy_var;
403: FETCH l_til_id_details_csr INTO l_dummy_var;
404: CLOSE l_til_id_details_csr;
405:
406: IF (l_dummy_var <> '1') THEN
407: x_return_status := Okl_api.G_RET_STS_ERROR;
408: Okl_api.SET_MESSAGE(p_app_name => G_APP_NAME,
409: p_msg_name => G_NO_PARENT_RECORD,
410: p_token1 => G_COL_NAME_TOKEN,
411: p_token1_value => 'TIL_ID_DETAILS_FOR',
404: CLOSE l_til_id_details_csr;
405:
406: IF (l_dummy_var <> '1') THEN
407: x_return_status := Okl_api.G_RET_STS_ERROR;
408: Okl_api.SET_MESSAGE(p_app_name => G_APP_NAME,
409: p_msg_name => G_NO_PARENT_RECORD,
410: p_token1 => G_COL_NAME_TOKEN,
411: p_token1_value => 'TIL_ID_DETAILS_FOR',
412: p_token2 => G_CHILD_TABLE_TOKEN,
434: WHERE id = p_tldv_rec.tld_id_reverses;
435:
436:
437: BEGIN
438: x_return_status := Okl_api.G_RET_STS_SUCCESS;
439:
440: IF (p_tldv_rec.tld_id_reverses IS NOT NULL) THEN
441: OPEN l_tld_id_reverses_csr;
442: FETCH l_tld_id_reverses_csr INTO l_dummy_var;
442: FETCH l_tld_id_reverses_csr INTO l_dummy_var;
443: CLOSE l_tld_id_reverses_csr;
444:
445: IF (l_dummy_var <> '1') THEN
446: x_return_status := Okl_api.G_RET_STS_ERROR;
447: Okl_api.SET_MESSAGE(p_app_name => G_APP_NAME,
448: p_msg_name => G_NO_PARENT_RECORD,
449: p_token1 => G_COL_NAME_TOKEN,
450: p_token1_value => 'TIL_ID_REVERSES_FOR',
443: CLOSE l_tld_id_reverses_csr;
444:
445: IF (l_dummy_var <> '1') THEN
446: x_return_status := Okl_api.G_RET_STS_ERROR;
447: Okl_api.SET_MESSAGE(p_app_name => G_APP_NAME,
448: p_msg_name => G_NO_PARENT_RECORD,
449: p_token1 => G_COL_NAME_TOKEN,
450: p_token1_value => 'TIL_ID_REVERSES_FOR',
451: p_token2 => G_CHILD_TABLE_TOKEN,
973: p_tldv_rec IN tldv_rec_type
974: ) RETURN tldv_rec_type IS
975: l_tldv_rec tldv_rec_type := p_tldv_rec;
976: BEGIN
977: IF (l_tldv_rec.object_version_number = Okl_api.G_MISS_NUM) THEN
978: l_tldv_rec.object_version_number := NULL;
979: END IF;
980: IF (l_tldv_rec.error_message = Okl_api.G_MISS_CHAR) THEN
981: l_tldv_rec.error_message := NULL;
976: BEGIN
977: IF (l_tldv_rec.object_version_number = Okl_api.G_MISS_NUM) THEN
978: l_tldv_rec.object_version_number := NULL;
979: END IF;
980: IF (l_tldv_rec.error_message = Okl_api.G_MISS_CHAR) THEN
981: l_tldv_rec.error_message := NULL;
982: END IF;
983: IF (l_tldv_rec.sfwt_flag = Okl_api.G_MISS_CHAR) THEN
984: l_tldv_rec.sfwt_flag := NULL;
979: END IF;
980: IF (l_tldv_rec.error_message = Okl_api.G_MISS_CHAR) THEN
981: l_tldv_rec.error_message := NULL;
982: END IF;
983: IF (l_tldv_rec.sfwt_flag = Okl_api.G_MISS_CHAR) THEN
984: l_tldv_rec.sfwt_flag := NULL;
985: END IF;
986: IF (l_tldv_rec.bch_id = Okl_api.G_MISS_NUM) THEN
987: l_tldv_rec.bch_id := NULL;
982: END IF;
983: IF (l_tldv_rec.sfwt_flag = Okl_api.G_MISS_CHAR) THEN
984: l_tldv_rec.sfwt_flag := NULL;
985: END IF;
986: IF (l_tldv_rec.bch_id = Okl_api.G_MISS_NUM) THEN
987: l_tldv_rec.bch_id := NULL;
988: END IF;
989: IF (l_tldv_rec.bgh_id = Okl_api.G_MISS_NUM) THEN
990: l_tldv_rec.bgh_id := NULL;
985: END IF;
986: IF (l_tldv_rec.bch_id = Okl_api.G_MISS_NUM) THEN
987: l_tldv_rec.bch_id := NULL;
988: END IF;
989: IF (l_tldv_rec.bgh_id = Okl_api.G_MISS_NUM) THEN
990: l_tldv_rec.bgh_id := NULL;
991: END IF;
992: IF (l_tldv_rec.idx_id = Okl_api.G_MISS_NUM) THEN
993: l_tldv_rec.idx_id := NULL;
988: END IF;
989: IF (l_tldv_rec.bgh_id = Okl_api.G_MISS_NUM) THEN
990: l_tldv_rec.bgh_id := NULL;
991: END IF;
992: IF (l_tldv_rec.idx_id = Okl_api.G_MISS_NUM) THEN
993: l_tldv_rec.idx_id := NULL;
994: END IF;
995: IF (l_tldv_rec.tld_id_reverses = Okl_api.G_MISS_NUM) THEN
996: l_tldv_rec.tld_id_reverses := NULL;
991: END IF;
992: IF (l_tldv_rec.idx_id = Okl_api.G_MISS_NUM) THEN
993: l_tldv_rec.idx_id := NULL;
994: END IF;
995: IF (l_tldv_rec.tld_id_reverses = Okl_api.G_MISS_NUM) THEN
996: l_tldv_rec.tld_id_reverses := NULL;
997: END IF;
998: IF (l_tldv_rec.sty_id = Okl_api.G_MISS_NUM) THEN
999: l_tldv_rec.sty_id := NULL;
994: END IF;
995: IF (l_tldv_rec.tld_id_reverses = Okl_api.G_MISS_NUM) THEN
996: l_tldv_rec.tld_id_reverses := NULL;
997: END IF;
998: IF (l_tldv_rec.sty_id = Okl_api.G_MISS_NUM) THEN
999: l_tldv_rec.sty_id := NULL;
1000: END IF;
1001: IF (l_tldv_rec.sel_id = Okl_api.G_MISS_NUM) THEN
1002: l_tldv_rec.sel_id := NULL;
997: END IF;
998: IF (l_tldv_rec.sty_id = Okl_api.G_MISS_NUM) THEN
999: l_tldv_rec.sty_id := NULL;
1000: END IF;
1001: IF (l_tldv_rec.sel_id = Okl_api.G_MISS_NUM) THEN
1002: l_tldv_rec.sel_id := NULL;
1003: END IF;
1004: IF (l_tldv_rec.til_id_details = Okl_api.G_MISS_NUM) THEN
1005: l_tldv_rec.til_id_details := NULL;
1000: END IF;
1001: IF (l_tldv_rec.sel_id = Okl_api.G_MISS_NUM) THEN
1002: l_tldv_rec.sel_id := NULL;
1003: END IF;
1004: IF (l_tldv_rec.til_id_details = Okl_api.G_MISS_NUM) THEN
1005: l_tldv_rec.til_id_details := NULL;
1006: END IF;
1007: IF (l_tldv_rec.bcl_id = Okl_api.G_MISS_NUM) THEN
1008: l_tldv_rec.bcl_id := NULL;
1003: END IF;
1004: IF (l_tldv_rec.til_id_details = Okl_api.G_MISS_NUM) THEN
1005: l_tldv_rec.til_id_details := NULL;
1006: END IF;
1007: IF (l_tldv_rec.bcl_id = Okl_api.G_MISS_NUM) THEN
1008: l_tldv_rec.bcl_id := NULL;
1009: END IF;
1010: IF (l_tldv_rec.bsl_id = Okl_api.G_MISS_NUM) THEN
1011: l_tldv_rec.bsl_id := NULL;
1006: END IF;
1007: IF (l_tldv_rec.bcl_id = Okl_api.G_MISS_NUM) THEN
1008: l_tldv_rec.bcl_id := NULL;
1009: END IF;
1010: IF (l_tldv_rec.bsl_id = Okl_api.G_MISS_NUM) THEN
1011: l_tldv_rec.bsl_id := NULL;
1012: END IF;
1013: IF (l_tldv_rec.amount = Okl_api.G_MISS_NUM) THEN
1014: l_tldv_rec.amount := NULL;
1009: END IF;
1010: IF (l_tldv_rec.bsl_id = Okl_api.G_MISS_NUM) THEN
1011: l_tldv_rec.bsl_id := NULL;
1012: END IF;
1013: IF (l_tldv_rec.amount = Okl_api.G_MISS_NUM) THEN
1014: l_tldv_rec.amount := NULL;
1015: END IF;
1016: IF (l_tldv_rec.line_detail_number = Okl_api.G_MISS_NUM) THEN
1017: l_tldv_rec.line_detail_number := NULL;
1012: END IF;
1013: IF (l_tldv_rec.amount = Okl_api.G_MISS_NUM) THEN
1014: l_tldv_rec.amount := NULL;
1015: END IF;
1016: IF (l_tldv_rec.line_detail_number = Okl_api.G_MISS_NUM) THEN
1017: l_tldv_rec.line_detail_number := NULL;
1018: END IF;
1019: IF (l_tldv_rec.receivables_invoice_id = Okl_api.G_MISS_NUM) THEN
1020: l_tldv_rec.receivables_invoice_id := NULL;
1015: END IF;
1016: IF (l_tldv_rec.line_detail_number = Okl_api.G_MISS_NUM) THEN
1017: l_tldv_rec.line_detail_number := NULL;
1018: END IF;
1019: IF (l_tldv_rec.receivables_invoice_id = Okl_api.G_MISS_NUM) THEN
1020: l_tldv_rec.receivables_invoice_id := NULL;
1021: END IF;
1022: IF (l_tldv_rec.late_charge_yn = Okl_api.G_MISS_CHAR) THEN
1023: l_tldv_rec.late_charge_yn := NULL;
1018: END IF;
1019: IF (l_tldv_rec.receivables_invoice_id = Okl_api.G_MISS_NUM) THEN
1020: l_tldv_rec.receivables_invoice_id := NULL;
1021: END IF;
1022: IF (l_tldv_rec.late_charge_yn = Okl_api.G_MISS_CHAR) THEN
1023: l_tldv_rec.late_charge_yn := NULL;
1024: END IF;
1025: IF (l_tldv_rec.description = Okl_api.G_MISS_CHAR) THEN
1026: l_tldv_rec.description := NULL;
1021: END IF;
1022: IF (l_tldv_rec.late_charge_yn = Okl_api.G_MISS_CHAR) THEN
1023: l_tldv_rec.late_charge_yn := NULL;
1024: END IF;
1025: IF (l_tldv_rec.description = Okl_api.G_MISS_CHAR) THEN
1026: l_tldv_rec.description := NULL;
1027: END IF;
1028: IF (l_tldv_rec.amount_applied = Okl_api.G_MISS_NUM) THEN
1029: l_tldv_rec.amount_applied := NULL;
1024: END IF;
1025: IF (l_tldv_rec.description = Okl_api.G_MISS_CHAR) THEN
1026: l_tldv_rec.description := NULL;
1027: END IF;
1028: IF (l_tldv_rec.amount_applied = Okl_api.G_MISS_NUM) THEN
1029: l_tldv_rec.amount_applied := NULL;
1030: END IF;
1031: IF (l_tldv_rec.date_calculation = Okl_api.G_MISS_DATE) THEN
1032: l_tldv_rec.date_calculation := NULL;
1027: END IF;
1028: IF (l_tldv_rec.amount_applied = Okl_api.G_MISS_NUM) THEN
1029: l_tldv_rec.amount_applied := NULL;
1030: END IF;
1031: IF (l_tldv_rec.date_calculation = Okl_api.G_MISS_DATE) THEN
1032: l_tldv_rec.date_calculation := NULL;
1033: END IF;
1034: IF (l_tldv_rec.fixed_rate_yn = Okl_api.G_MISS_CHAR) THEN
1035: l_tldv_rec.fixed_rate_yn := NULL;
1030: END IF;
1031: IF (l_tldv_rec.date_calculation = Okl_api.G_MISS_DATE) THEN
1032: l_tldv_rec.date_calculation := NULL;
1033: END IF;
1034: IF (l_tldv_rec.fixed_rate_yn = Okl_api.G_MISS_CHAR) THEN
1035: l_tldv_rec.fixed_rate_yn := NULL;
1036: END IF;
1037: -- Start changes on remarketing by fmiao on 10/18/04 --
1038: IF (l_tldv_rec.inventory_item_id = Okl_api.G_MISS_NUM) THEN
1034: IF (l_tldv_rec.fixed_rate_yn = Okl_api.G_MISS_CHAR) THEN
1035: l_tldv_rec.fixed_rate_yn := NULL;
1036: END IF;
1037: -- Start changes on remarketing by fmiao on 10/18/04 --
1038: IF (l_tldv_rec.inventory_item_id = Okl_api.G_MISS_NUM) THEN
1039: l_tldv_rec.inventory_item_id := NULL;
1040: END IF;
1041: -- End changes on remarketing by fmiao on 10/18/04 --
1042:
1040: END IF;
1041: -- End changes on remarketing by fmiao on 10/18/04 --
1042:
1043: --start: 30-Jan-07 cklee Billing R12 project |
1044: IF (l_tldv_rec.TXL_AR_LINE_NUMBER = Okl_api.G_MISS_NUM) THEN
1045: l_tldv_rec.TXL_AR_LINE_NUMBER := NULL;
1046: END IF;
1047:
1048: IF (l_tldv_rec.INVOICE_FORMAT_TYPE = Okl_api.G_MISS_CHAR) THEN
1044: IF (l_tldv_rec.TXL_AR_LINE_NUMBER = Okl_api.G_MISS_NUM) THEN
1045: l_tldv_rec.TXL_AR_LINE_NUMBER := NULL;
1046: END IF;
1047:
1048: IF (l_tldv_rec.INVOICE_FORMAT_TYPE = Okl_api.G_MISS_CHAR) THEN
1049: l_tldv_rec.INVOICE_FORMAT_TYPE := NULL;
1050: END IF;
1051:
1052: IF (l_tldv_rec.INVOICE_FORMAT_LINE_TYPE = Okl_api.G_MISS_CHAR) THEN
1048: IF (l_tldv_rec.INVOICE_FORMAT_TYPE = Okl_api.G_MISS_CHAR) THEN
1049: l_tldv_rec.INVOICE_FORMAT_TYPE := NULL;
1050: END IF;
1051:
1052: IF (l_tldv_rec.INVOICE_FORMAT_LINE_TYPE = Okl_api.G_MISS_CHAR) THEN
1053: l_tldv_rec.INVOICE_FORMAT_LINE_TYPE := NULL;
1054: END IF;
1055:
1056: IF (l_tldv_rec.LATE_CHARGE_ASSESS_DATE = Okl_api.G_MISS_DATE) THEN
1052: IF (l_tldv_rec.INVOICE_FORMAT_LINE_TYPE = Okl_api.G_MISS_CHAR) THEN
1053: l_tldv_rec.INVOICE_FORMAT_LINE_TYPE := NULL;
1054: END IF;
1055:
1056: IF (l_tldv_rec.LATE_CHARGE_ASSESS_DATE = Okl_api.G_MISS_DATE) THEN
1057: l_tldv_rec.LATE_CHARGE_ASSESS_DATE := NULL;
1058: END IF;
1059:
1060: IF (l_tldv_rec.LATE_INT_ASSESS_DATE = Okl_api.G_MISS_DATE) THEN
1056: IF (l_tldv_rec.LATE_CHARGE_ASSESS_DATE = Okl_api.G_MISS_DATE) THEN
1057: l_tldv_rec.LATE_CHARGE_ASSESS_DATE := NULL;
1058: END IF;
1059:
1060: IF (l_tldv_rec.LATE_INT_ASSESS_DATE = Okl_api.G_MISS_DATE) THEN
1061: l_tldv_rec.LATE_INT_ASSESS_DATE := NULL;
1062: END IF;
1063:
1064: IF (l_tldv_rec.LATE_CHARGE_ASS_YN = Okl_api.G_MISS_CHAR) THEN
1060: IF (l_tldv_rec.LATE_INT_ASSESS_DATE = Okl_api.G_MISS_DATE) THEN
1061: l_tldv_rec.LATE_INT_ASSESS_DATE := NULL;
1062: END IF;
1063:
1064: IF (l_tldv_rec.LATE_CHARGE_ASS_YN = Okl_api.G_MISS_CHAR) THEN
1065: l_tldv_rec.LATE_CHARGE_ASS_YN := NULL;
1066: END IF;
1067:
1068: IF (l_tldv_rec.LATE_INT_ASS_YN = Okl_api.G_MISS_CHAR) THEN
1064: IF (l_tldv_rec.LATE_CHARGE_ASS_YN = Okl_api.G_MISS_CHAR) THEN
1065: l_tldv_rec.LATE_CHARGE_ASS_YN := NULL;
1066: END IF;
1067:
1068: IF (l_tldv_rec.LATE_INT_ASS_YN = Okl_api.G_MISS_CHAR) THEN
1069: l_tldv_rec.LATE_INT_ASS_YN := NULL;
1070: END IF;
1071:
1072: IF (l_tldv_rec.INVESTOR_DISB_STATUS = Okl_api.G_MISS_CHAR) THEN
1068: IF (l_tldv_rec.LATE_INT_ASS_YN = Okl_api.G_MISS_CHAR) THEN
1069: l_tldv_rec.LATE_INT_ASS_YN := NULL;
1070: END IF;
1071:
1072: IF (l_tldv_rec.INVESTOR_DISB_STATUS = Okl_api.G_MISS_CHAR) THEN
1073: l_tldv_rec.INVESTOR_DISB_STATUS := NULL;
1074: END IF;
1075:
1076: IF (l_tldv_rec.INVESTOR_DISB_ERR_MG = Okl_api.G_MISS_CHAR) THEN
1072: IF (l_tldv_rec.INVESTOR_DISB_STATUS = Okl_api.G_MISS_CHAR) THEN
1073: l_tldv_rec.INVESTOR_DISB_STATUS := NULL;
1074: END IF;
1075:
1076: IF (l_tldv_rec.INVESTOR_DISB_ERR_MG = Okl_api.G_MISS_CHAR) THEN
1077: l_tldv_rec.INVESTOR_DISB_ERR_MG := NULL;
1078: END IF;
1079:
1080: IF (l_tldv_rec.DATE_DISBURSED = Okl_api.G_MISS_DATE) THEN
1076: IF (l_tldv_rec.INVESTOR_DISB_ERR_MG = Okl_api.G_MISS_CHAR) THEN
1077: l_tldv_rec.INVESTOR_DISB_ERR_MG := NULL;
1078: END IF;
1079:
1080: IF (l_tldv_rec.DATE_DISBURSED = Okl_api.G_MISS_DATE) THEN
1081: l_tldv_rec.DATE_DISBURSED := NULL;
1082: END IF;
1083:
1084: IF (l_tldv_rec.PAY_STATUS_CODE = Okl_api.G_MISS_CHAR) THEN
1080: IF (l_tldv_rec.DATE_DISBURSED = Okl_api.G_MISS_DATE) THEN
1081: l_tldv_rec.DATE_DISBURSED := NULL;
1082: END IF;
1083:
1084: IF (l_tldv_rec.PAY_STATUS_CODE = Okl_api.G_MISS_CHAR) THEN
1085: l_tldv_rec.PAY_STATUS_CODE := NULL;
1086: END IF;
1087:
1088: IF (l_tldv_rec.RBK_ORI_INVOICE_NUMBER = Okl_api.G_MISS_CHAR) THEN
1084: IF (l_tldv_rec.PAY_STATUS_CODE = Okl_api.G_MISS_CHAR) THEN
1085: l_tldv_rec.PAY_STATUS_CODE := NULL;
1086: END IF;
1087:
1088: IF (l_tldv_rec.RBK_ORI_INVOICE_NUMBER = Okl_api.G_MISS_CHAR) THEN
1089: l_tldv_rec.RBK_ORI_INVOICE_NUMBER := NULL;
1090: END IF;
1091:
1092: IF (l_tldv_rec.RBK_ORI_INVOICE_LINE_NUMBER = Okl_api.G_MISS_CHAR) THEN
1088: IF (l_tldv_rec.RBK_ORI_INVOICE_NUMBER = Okl_api.G_MISS_CHAR) THEN
1089: l_tldv_rec.RBK_ORI_INVOICE_NUMBER := NULL;
1090: END IF;
1091:
1092: IF (l_tldv_rec.RBK_ORI_INVOICE_LINE_NUMBER = Okl_api.G_MISS_CHAR) THEN
1093: l_tldv_rec.RBK_ORI_INVOICE_LINE_NUMBER := NULL;
1094: END IF;
1095:
1096: IF (l_tldv_rec.RBK_ADJUSTMENT_DATE = Okl_api.G_MISS_DATE) THEN
1092: IF (l_tldv_rec.RBK_ORI_INVOICE_LINE_NUMBER = Okl_api.G_MISS_CHAR) THEN
1093: l_tldv_rec.RBK_ORI_INVOICE_LINE_NUMBER := NULL;
1094: END IF;
1095:
1096: IF (l_tldv_rec.RBK_ADJUSTMENT_DATE = Okl_api.G_MISS_DATE) THEN
1097: l_tldv_rec.RBK_ADJUSTMENT_DATE := NULL;
1098: END IF;
1099:
1100: --start: 26-02-07 gkhuntet Invalid assignment.
1097: l_tldv_rec.RBK_ADJUSTMENT_DATE := NULL;
1098: END IF;
1099:
1100: --start: 26-02-07 gkhuntet Invalid assignment.
1101: IF (l_tldv_rec.KHR_ID = Okl_api.G_MISS_NUM) THEN
1102: l_tldv_rec.KHR_ID := NULL;
1103: END IF;
1104:
1105: IF (l_tldv_rec.KLE_ID = Okl_api.G_MISS_NUM) THEN
1101: IF (l_tldv_rec.KHR_ID = Okl_api.G_MISS_NUM) THEN
1102: l_tldv_rec.KHR_ID := NULL;
1103: END IF;
1104:
1105: IF (l_tldv_rec.KLE_ID = Okl_api.G_MISS_NUM) THEN
1106: l_tldv_rec.KLE_ID := NULL;
1107: END IF;
1108: --end: 26-02-07 gkhuntet
1109:
1106: l_tldv_rec.KLE_ID := NULL;
1107: END IF;
1108: --end: 26-02-07 gkhuntet
1109:
1110: IF (l_tldv_rec.TAX_AMOUNT = Okl_api.G_MISS_NUM) THEN
1111: l_tldv_rec.TAX_AMOUNT := NULL;
1112: END IF;
1113:
1114: --end: 30-Jan-07 cklee Billing R12 project |
1114: --end: 30-Jan-07 cklee Billing R12 project |
1115:
1116:
1117:
1118: IF (l_tldv_rec.attribute_category = Okl_api.G_MISS_CHAR) THEN
1119: l_tldv_rec.attribute_category := NULL;
1120: END IF;
1121: IF (l_tldv_rec.attribute1 = Okl_api.G_MISS_CHAR) THEN
1122: l_tldv_rec.attribute1 := NULL;
1117:
1118: IF (l_tldv_rec.attribute_category = Okl_api.G_MISS_CHAR) THEN
1119: l_tldv_rec.attribute_category := NULL;
1120: END IF;
1121: IF (l_tldv_rec.attribute1 = Okl_api.G_MISS_CHAR) THEN
1122: l_tldv_rec.attribute1 := NULL;
1123: END IF;
1124: IF (l_tldv_rec.attribute2 = Okl_api.G_MISS_CHAR) THEN
1125: l_tldv_rec.attribute2 := NULL;
1120: END IF;
1121: IF (l_tldv_rec.attribute1 = Okl_api.G_MISS_CHAR) THEN
1122: l_tldv_rec.attribute1 := NULL;
1123: END IF;
1124: IF (l_tldv_rec.attribute2 = Okl_api.G_MISS_CHAR) THEN
1125: l_tldv_rec.attribute2 := NULL;
1126: END IF;
1127: IF (l_tldv_rec.attribute3 = Okl_api.G_MISS_CHAR) THEN
1128: l_tldv_rec.attribute3 := NULL;
1123: END IF;
1124: IF (l_tldv_rec.attribute2 = Okl_api.G_MISS_CHAR) THEN
1125: l_tldv_rec.attribute2 := NULL;
1126: END IF;
1127: IF (l_tldv_rec.attribute3 = Okl_api.G_MISS_CHAR) THEN
1128: l_tldv_rec.attribute3 := NULL;
1129: END IF;
1130: IF (l_tldv_rec.attribute4 = Okl_api.G_MISS_CHAR) THEN
1131: l_tldv_rec.attribute4 := NULL;
1126: END IF;
1127: IF (l_tldv_rec.attribute3 = Okl_api.G_MISS_CHAR) THEN
1128: l_tldv_rec.attribute3 := NULL;
1129: END IF;
1130: IF (l_tldv_rec.attribute4 = Okl_api.G_MISS_CHAR) THEN
1131: l_tldv_rec.attribute4 := NULL;
1132: END IF;
1133: IF (l_tldv_rec.attribute5 = Okl_api.G_MISS_CHAR) THEN
1134: l_tldv_rec.attribute5 := NULL;
1129: END IF;
1130: IF (l_tldv_rec.attribute4 = Okl_api.G_MISS_CHAR) THEN
1131: l_tldv_rec.attribute4 := NULL;
1132: END IF;
1133: IF (l_tldv_rec.attribute5 = Okl_api.G_MISS_CHAR) THEN
1134: l_tldv_rec.attribute5 := NULL;
1135: END IF;
1136: IF (l_tldv_rec.attribute6 = Okl_api.G_MISS_CHAR) THEN
1137: l_tldv_rec.attribute6 := NULL;
1132: END IF;
1133: IF (l_tldv_rec.attribute5 = Okl_api.G_MISS_CHAR) THEN
1134: l_tldv_rec.attribute5 := NULL;
1135: END IF;
1136: IF (l_tldv_rec.attribute6 = Okl_api.G_MISS_CHAR) THEN
1137: l_tldv_rec.attribute6 := NULL;
1138: END IF;
1139: IF (l_tldv_rec.attribute7 = Okl_api.G_MISS_CHAR) THEN
1140: l_tldv_rec.attribute7 := NULL;
1135: END IF;
1136: IF (l_tldv_rec.attribute6 = Okl_api.G_MISS_CHAR) THEN
1137: l_tldv_rec.attribute6 := NULL;
1138: END IF;
1139: IF (l_tldv_rec.attribute7 = Okl_api.G_MISS_CHAR) THEN
1140: l_tldv_rec.attribute7 := NULL;
1141: END IF;
1142: IF (l_tldv_rec.attribute8 = Okl_api.G_MISS_CHAR) THEN
1143: l_tldv_rec.attribute8 := NULL;
1138: END IF;
1139: IF (l_tldv_rec.attribute7 = Okl_api.G_MISS_CHAR) THEN
1140: l_tldv_rec.attribute7 := NULL;
1141: END IF;
1142: IF (l_tldv_rec.attribute8 = Okl_api.G_MISS_CHAR) THEN
1143: l_tldv_rec.attribute8 := NULL;
1144: END IF;
1145: IF (l_tldv_rec.attribute9 = Okl_api.G_MISS_CHAR) THEN
1146: l_tldv_rec.attribute9 := NULL;
1141: END IF;
1142: IF (l_tldv_rec.attribute8 = Okl_api.G_MISS_CHAR) THEN
1143: l_tldv_rec.attribute8 := NULL;
1144: END IF;
1145: IF (l_tldv_rec.attribute9 = Okl_api.G_MISS_CHAR) THEN
1146: l_tldv_rec.attribute9 := NULL;
1147: END IF;
1148: IF (l_tldv_rec.attribute10 = Okl_api.G_MISS_CHAR) THEN
1149: l_tldv_rec.attribute10 := NULL;
1144: END IF;
1145: IF (l_tldv_rec.attribute9 = Okl_api.G_MISS_CHAR) THEN
1146: l_tldv_rec.attribute9 := NULL;
1147: END IF;
1148: IF (l_tldv_rec.attribute10 = Okl_api.G_MISS_CHAR) THEN
1149: l_tldv_rec.attribute10 := NULL;
1150: END IF;
1151: IF (l_tldv_rec.attribute11 = Okl_api.G_MISS_CHAR) THEN
1152: l_tldv_rec.attribute11 := NULL;
1147: END IF;
1148: IF (l_tldv_rec.attribute10 = Okl_api.G_MISS_CHAR) THEN
1149: l_tldv_rec.attribute10 := NULL;
1150: END IF;
1151: IF (l_tldv_rec.attribute11 = Okl_api.G_MISS_CHAR) THEN
1152: l_tldv_rec.attribute11 := NULL;
1153: END IF;
1154: IF (l_tldv_rec.attribute12 = Okl_api.G_MISS_CHAR) THEN
1155: l_tldv_rec.attribute12 := NULL;
1150: END IF;
1151: IF (l_tldv_rec.attribute11 = Okl_api.G_MISS_CHAR) THEN
1152: l_tldv_rec.attribute11 := NULL;
1153: END IF;
1154: IF (l_tldv_rec.attribute12 = Okl_api.G_MISS_CHAR) THEN
1155: l_tldv_rec.attribute12 := NULL;
1156: END IF;
1157: IF (l_tldv_rec.attribute13 = Okl_api.G_MISS_CHAR) THEN
1158: l_tldv_rec.attribute13 := NULL;
1153: END IF;
1154: IF (l_tldv_rec.attribute12 = Okl_api.G_MISS_CHAR) THEN
1155: l_tldv_rec.attribute12 := NULL;
1156: END IF;
1157: IF (l_tldv_rec.attribute13 = Okl_api.G_MISS_CHAR) THEN
1158: l_tldv_rec.attribute13 := NULL;
1159: END IF;
1160: IF (l_tldv_rec.attribute14 = Okl_api.G_MISS_CHAR) THEN
1161: l_tldv_rec.attribute14 := NULL;
1156: END IF;
1157: IF (l_tldv_rec.attribute13 = Okl_api.G_MISS_CHAR) THEN
1158: l_tldv_rec.attribute13 := NULL;
1159: END IF;
1160: IF (l_tldv_rec.attribute14 = Okl_api.G_MISS_CHAR) THEN
1161: l_tldv_rec.attribute14 := NULL;
1162: END IF;
1163: IF (l_tldv_rec.attribute15 = Okl_api.G_MISS_CHAR) THEN
1164: l_tldv_rec.attribute15 := NULL;
1159: END IF;
1160: IF (l_tldv_rec.attribute14 = Okl_api.G_MISS_CHAR) THEN
1161: l_tldv_rec.attribute14 := NULL;
1162: END IF;
1163: IF (l_tldv_rec.attribute15 = Okl_api.G_MISS_CHAR) THEN
1164: l_tldv_rec.attribute15 := NULL;
1165: END IF;
1166: IF (l_tldv_rec.request_id = Okl_api.G_MISS_NUM) THEN
1167: l_tldv_rec.request_id := NULL;
1162: END IF;
1163: IF (l_tldv_rec.attribute15 = Okl_api.G_MISS_CHAR) THEN
1164: l_tldv_rec.attribute15 := NULL;
1165: END IF;
1166: IF (l_tldv_rec.request_id = Okl_api.G_MISS_NUM) THEN
1167: l_tldv_rec.request_id := NULL;
1168: END IF;
1169: IF (l_tldv_rec.program_application_id = Okl_api.G_MISS_NUM) THEN
1170: l_tldv_rec.program_application_id := NULL;
1165: END IF;
1166: IF (l_tldv_rec.request_id = Okl_api.G_MISS_NUM) THEN
1167: l_tldv_rec.request_id := NULL;
1168: END IF;
1169: IF (l_tldv_rec.program_application_id = Okl_api.G_MISS_NUM) THEN
1170: l_tldv_rec.program_application_id := NULL;
1171: END IF;
1172: IF (l_tldv_rec.program_id = Okl_api.G_MISS_NUM) THEN
1173: l_tldv_rec.program_id := NULL;
1168: END IF;
1169: IF (l_tldv_rec.program_application_id = Okl_api.G_MISS_NUM) THEN
1170: l_tldv_rec.program_application_id := NULL;
1171: END IF;
1172: IF (l_tldv_rec.program_id = Okl_api.G_MISS_NUM) THEN
1173: l_tldv_rec.program_id := NULL;
1174: END IF;
1175: IF (l_tldv_rec.program_update_date = Okl_api.G_MISS_DATE) THEN
1176: l_tldv_rec.program_update_date := NULL;
1171: END IF;
1172: IF (l_tldv_rec.program_id = Okl_api.G_MISS_NUM) THEN
1173: l_tldv_rec.program_id := NULL;
1174: END IF;
1175: IF (l_tldv_rec.program_update_date = Okl_api.G_MISS_DATE) THEN
1176: l_tldv_rec.program_update_date := NULL;
1177: END IF;
1178:
1179: IF (l_tldv_rec.org_id = Okl_api.G_MISS_NUM) THEN
1175: IF (l_tldv_rec.program_update_date = Okl_api.G_MISS_DATE) THEN
1176: l_tldv_rec.program_update_date := NULL;
1177: END IF;
1178:
1179: IF (l_tldv_rec.org_id = Okl_api.G_MISS_NUM) THEN
1180: l_tldv_rec.org_id := NULL;
1181: END IF;
1182:
1183: IF (l_tldv_rec.inventory_org_id = Okl_api.G_MISS_NUM) THEN
1179: IF (l_tldv_rec.org_id = Okl_api.G_MISS_NUM) THEN
1180: l_tldv_rec.org_id := NULL;
1181: END IF;
1182:
1183: IF (l_tldv_rec.inventory_org_id = Okl_api.G_MISS_NUM) THEN
1184: l_tldv_rec.inventory_org_id := NULL;
1185: END IF;
1186:
1187: IF (l_tldv_rec.created_by = Okl_api.G_MISS_NUM) THEN
1183: IF (l_tldv_rec.inventory_org_id = Okl_api.G_MISS_NUM) THEN
1184: l_tldv_rec.inventory_org_id := NULL;
1185: END IF;
1186:
1187: IF (l_tldv_rec.created_by = Okl_api.G_MISS_NUM) THEN
1188:
1189: l_tldv_rec.created_by := NULL;
1190: END IF;
1191: IF (l_tldv_rec.creation_date = Okl_api.G_MISS_DATE) THEN
1187: IF (l_tldv_rec.created_by = Okl_api.G_MISS_NUM) THEN
1188:
1189: l_tldv_rec.created_by := NULL;
1190: END IF;
1191: IF (l_tldv_rec.creation_date = Okl_api.G_MISS_DATE) THEN
1192: l_tldv_rec.creation_date := NULL;
1193: END IF;
1194: IF (l_tldv_rec.last_updated_by = Okl_api.G_MISS_NUM) THEN
1195: l_tldv_rec.last_updated_by := NULL;
1190: END IF;
1191: IF (l_tldv_rec.creation_date = Okl_api.G_MISS_DATE) THEN
1192: l_tldv_rec.creation_date := NULL;
1193: END IF;
1194: IF (l_tldv_rec.last_updated_by = Okl_api.G_MISS_NUM) THEN
1195: l_tldv_rec.last_updated_by := NULL;
1196: END IF;
1197: IF (l_tldv_rec.last_update_date = Okl_api.G_MISS_DATE) THEN
1198: l_tldv_rec.last_update_date := NULL;
1193: END IF;
1194: IF (l_tldv_rec.last_updated_by = Okl_api.G_MISS_NUM) THEN
1195: l_tldv_rec.last_updated_by := NULL;
1196: END IF;
1197: IF (l_tldv_rec.last_update_date = Okl_api.G_MISS_DATE) THEN
1198: l_tldv_rec.last_update_date := NULL;
1199: END IF;
1200: IF (l_tldv_rec.last_update_login = Okl_api.G_MISS_NUM) THEN
1201: l_tldv_rec.last_update_login := NULL;
1196: END IF;
1197: IF (l_tldv_rec.last_update_date = Okl_api.G_MISS_DATE) THEN
1198: l_tldv_rec.last_update_date := NULL;
1199: END IF;
1200: IF (l_tldv_rec.last_update_login = Okl_api.G_MISS_NUM) THEN
1201: l_tldv_rec.last_update_login := NULL;
1202: END IF;
1203: RETURN(l_tldv_rec);
1204: END null_out_defaults;
1210: --------------------------------------------------
1211: FUNCTION Validate_Attributes (
1212: p_tldv_rec IN tldv_rec_type
1213: ) RETURN VARCHAR2 IS
1214: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
1215: -- Added 04/17/2001 -- Sunil Mathew
1216: x_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
1217: BEGIN
1218: -- Added 04/17/2001 -- Sunil Mathew
1212: p_tldv_rec IN tldv_rec_type
1213: ) RETURN VARCHAR2 IS
1214: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
1215: -- Added 04/17/2001 -- Sunil Mathew
1216: x_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
1217: BEGIN
1218: -- Added 04/17/2001 -- Sunil Mathew
1219: validate_bch_id(p_tldv_rec, x_return_status);
1220: IF (x_return_status <> Okl_api.G_RET_STS_SUCCESS) THEN
1216: x_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
1217: BEGIN
1218: -- Added 04/17/2001 -- Sunil Mathew
1219: validate_bch_id(p_tldv_rec, x_return_status);
1220: IF (x_return_status <> Okl_api.G_RET_STS_SUCCESS) THEN
1221: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1222: l_return_status := x_return_status;
1223: RAISE G_EXCEPTION_HALT_VALIDATION;
1224: ELSE
1217: BEGIN
1218: -- Added 04/17/2001 -- Sunil Mathew
1219: validate_bch_id(p_tldv_rec, x_return_status);
1220: IF (x_return_status <> Okl_api.G_RET_STS_SUCCESS) THEN
1221: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1222: l_return_status := x_return_status;
1223: RAISE G_EXCEPTION_HALT_VALIDATION;
1224: ELSE
1225: l_return_status := x_return_status; -- record that there was an error
1226: END IF;
1227: END IF;
1228:
1229: validate_bcl_id(p_tldv_rec, x_return_status);
1230: IF (x_return_status <> Okl_api.G_RET_STS_SUCCESS) THEN
1231: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1232: l_return_status := x_return_status;
1233: RAISE G_EXCEPTION_HALT_VALIDATION;
1234: ELSE
1227: END IF;
1228:
1229: validate_bcl_id(p_tldv_rec, x_return_status);
1230: IF (x_return_status <> Okl_api.G_RET_STS_SUCCESS) THEN
1231: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1232: l_return_status := x_return_status;
1233: RAISE G_EXCEPTION_HALT_VALIDATION;
1234: ELSE
1235: l_return_status := x_return_status; -- record that there was an error
1236: END IF;
1237: END IF;
1238:
1239: validate_bsl_id(p_tldv_rec, x_return_status);
1240: IF (x_return_status <> Okl_api.G_RET_STS_SUCCESS) THEN
1241: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1242: l_return_status := x_return_status;
1243: RAISE G_EXCEPTION_HALT_VALIDATION;
1244: ELSE
1237: END IF;
1238:
1239: validate_bsl_id(p_tldv_rec, x_return_status);
1240: IF (x_return_status <> Okl_api.G_RET_STS_SUCCESS) THEN
1241: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1242: l_return_status := x_return_status;
1243: RAISE G_EXCEPTION_HALT_VALIDATION;
1244: ELSE
1245: l_return_status := x_return_status; -- record that there was an error
1246: END IF;
1247: END IF;
1248:
1249: validate_bgh_id(p_tldv_rec, x_return_status);
1250: IF (x_return_status <> Okl_api.G_RET_STS_SUCCESS) THEN
1251: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1252: l_return_status := x_return_status;
1253: RAISE G_EXCEPTION_HALT_VALIDATION;
1254: ELSE
1247: END IF;
1248:
1249: validate_bgh_id(p_tldv_rec, x_return_status);
1250: IF (x_return_status <> Okl_api.G_RET_STS_SUCCESS) THEN
1251: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1252: l_return_status := x_return_status;
1253: RAISE G_EXCEPTION_HALT_VALIDATION;
1254: ELSE
1255: l_return_status := x_return_status; -- record that there was an error
1256: END IF;
1257: END IF;
1258:
1259: validate_idx_id(p_tldv_rec, x_return_status);
1260: IF (x_return_status <> Okl_api.G_RET_STS_SUCCESS) THEN
1261: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1262: l_return_status := x_return_status;
1263: RAISE G_EXCEPTION_HALT_VALIDATION;
1264: ELSE
1257: END IF;
1258:
1259: validate_idx_id(p_tldv_rec, x_return_status);
1260: IF (x_return_status <> Okl_api.G_RET_STS_SUCCESS) THEN
1261: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1262: l_return_status := x_return_status;
1263: RAISE G_EXCEPTION_HALT_VALIDATION;
1264: ELSE
1265: l_return_status := x_return_status; -- record that there was an error
1266: END IF;
1267: END IF;
1268:
1269: validate_sel_id(p_tldv_rec, x_return_status);
1270: IF (x_return_status <> Okl_api.G_RET_STS_SUCCESS) THEN
1271: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1272: l_return_status := x_return_status;
1273: RAISE G_EXCEPTION_HALT_VALIDATION;
1274: ELSE
1267: END IF;
1268:
1269: validate_sel_id(p_tldv_rec, x_return_status);
1270: IF (x_return_status <> Okl_api.G_RET_STS_SUCCESS) THEN
1271: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1272: l_return_status := x_return_status;
1273: RAISE G_EXCEPTION_HALT_VALIDATION;
1274: ELSE
1275: l_return_status := x_return_status; -- record that there was an error
1276: END IF;
1277: END IF;
1278:
1279: validate_sty_id(p_tldv_rec, x_return_status);
1280: IF (x_return_status <> Okl_api.G_RET_STS_SUCCESS) THEN
1281: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1282: l_return_status := x_return_status;
1283: RAISE G_EXCEPTION_HALT_VALIDATION;
1284: ELSE
1277: END IF;
1278:
1279: validate_sty_id(p_tldv_rec, x_return_status);
1280: IF (x_return_status <> Okl_api.G_RET_STS_SUCCESS) THEN
1281: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1282: l_return_status := x_return_status;
1283: RAISE G_EXCEPTION_HALT_VALIDATION;
1284: ELSE
1285: l_return_status := x_return_status; -- record that there was an error
1286: END IF;
1287: END IF;
1288:
1289: validate_til_id_details(p_tldv_rec, x_return_status);
1290: IF (x_return_status <> Okl_api.G_RET_STS_SUCCESS) THEN
1291: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1292: l_return_status := x_return_status;
1293: RAISE G_EXCEPTION_HALT_VALIDATION;
1294: ELSE
1287: END IF;
1288:
1289: validate_til_id_details(p_tldv_rec, x_return_status);
1290: IF (x_return_status <> Okl_api.G_RET_STS_SUCCESS) THEN
1291: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1292: l_return_status := x_return_status;
1293: RAISE G_EXCEPTION_HALT_VALIDATION;
1294: ELSE
1295: l_return_status := x_return_status; -- record that there was an error
1296: END IF;
1297: END IF;
1298:
1299: validate_tld_id_reverses(p_tldv_rec, x_return_status);
1300: IF (x_return_status <> Okl_api.G_RET_STS_SUCCESS) THEN
1301: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1302: l_return_status := x_return_status;
1303: RAISE G_EXCEPTION_HALT_VALIDATION;
1304: ELSE
1297: END IF;
1298:
1299: validate_tld_id_reverses(p_tldv_rec, x_return_status);
1300: IF (x_return_status <> Okl_api.G_RET_STS_SUCCESS) THEN
1301: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1302: l_return_status := x_return_status;
1303: RAISE G_EXCEPTION_HALT_VALIDATION;
1304: ELSE
1305: l_return_status := x_return_status; -- record that there was an error
1306: END IF;
1307: END IF;
1308:
1309: validate_id(p_tldv_rec, x_return_status);
1310: IF (x_return_status <> Okl_api.G_RET_STS_SUCCESS) THEN
1311: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1312: l_return_status := x_return_status;
1313: RAISE G_EXCEPTION_HALT_VALIDATION;
1314: ELSE
1307: END IF;
1308:
1309: validate_id(p_tldv_rec, x_return_status);
1310: IF (x_return_status <> Okl_api.G_RET_STS_SUCCESS) THEN
1311: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1312: l_return_status := x_return_status;
1313: RAISE G_EXCEPTION_HALT_VALIDATION;
1314: ELSE
1315: l_return_status := x_return_status; -- record that there was an error
1316: END IF;
1317: END IF;
1318:
1319: validate_object_version_number(p_tldv_rec, x_return_status);
1320: IF (x_return_status <> Okl_api.G_RET_STS_SUCCESS) THEN
1321: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1322: l_return_status := x_return_status;
1323: RAISE G_EXCEPTION_HALT_VALIDATION;
1324: ELSE
1317: END IF;
1318:
1319: validate_object_version_number(p_tldv_rec, x_return_status);
1320: IF (x_return_status <> Okl_api.G_RET_STS_SUCCESS) THEN
1321: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1322: l_return_status := x_return_status;
1323: RAISE G_EXCEPTION_HALT_VALIDATION;
1324: ELSE
1325: l_return_status := x_return_status; -- record that there was an error
1326: END IF;
1327: END IF;
1328:
1329: validate_line_detail_number(p_tldv_rec, x_return_status);
1330: IF (x_return_status <> Okl_api.G_RET_STS_SUCCESS) THEN
1331: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1332: l_return_status := x_return_status;
1333: RAISE G_EXCEPTION_HALT_VALIDATION;
1334: ELSE
1327: END IF;
1328:
1329: validate_line_detail_number(p_tldv_rec, x_return_status);
1330: IF (x_return_status <> Okl_api.G_RET_STS_SUCCESS) THEN
1331: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1332: l_return_status := x_return_status;
1333: RAISE G_EXCEPTION_HALT_VALIDATION;
1334: ELSE
1335: l_return_status := x_return_status; -- record that there was an error
1336: END IF;
1337: END IF;
1338:
1339: validate_org_id(p_tldv_rec, x_return_status);
1340: IF (x_return_status <> Okl_api.G_RET_STS_SUCCESS) THEN
1341: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1342: l_return_status := x_return_status;
1343: RAISE G_EXCEPTION_HALT_VALIDATION;
1344: ELSE
1337: END IF;
1338:
1339: validate_org_id(p_tldv_rec, x_return_status);
1340: IF (x_return_status <> Okl_api.G_RET_STS_SUCCESS) THEN
1341: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1342: l_return_status := x_return_status;
1343: RAISE G_EXCEPTION_HALT_VALIDATION;
1344: ELSE
1345: l_return_status := x_return_status; -- record that there was an error
1346: END IF;
1347: END IF;
1348:
1349: validate_inventory_org_id(p_tldv_rec, x_return_status);
1350: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1351: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1352: l_return_status := x_return_status;
1353: RAISE G_EXCEPTION_HALT_VALIDATION;
1354: ELSE
1347: END IF;
1348:
1349: validate_inventory_org_id(p_tldv_rec, x_return_status);
1350: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1351: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1352: l_return_status := x_return_status;
1353: RAISE G_EXCEPTION_HALT_VALIDATION;
1354: ELSE
1355: l_return_status := x_return_status; -- record that there was an error
1369: ----------------------------------------------
1370: FUNCTION Validate_Record (
1371: p_tldv_rec IN tldv_rec_type
1372: ) RETURN VARCHAR2 IS
1373: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
1374:
1375: BEGIN
1376: RETURN (l_return_status);
1377: END Validate_Record;
1575: p_tldv_rec IN tldv_rec_type) IS
1576:
1577: l_api_version CONSTANT NUMBER := 1;
1578: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1579: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
1580: l_tldv_rec tldv_rec_type := p_tldv_rec;
1581: l_tld_rec tld_rec_type;
1582: l_okl_txd_ar_ln_dtls_tl_rec okl_txd_ar_ln_dtls_tl_rec_type;
1583: BEGIN
1580: l_tldv_rec tldv_rec_type := p_tldv_rec;
1581: l_tld_rec tld_rec_type;
1582: l_okl_txd_ar_ln_dtls_tl_rec okl_txd_ar_ln_dtls_tl_rec_type;
1583: BEGIN
1584: l_return_status := Okl_api.START_ACTIVITY(l_api_name,
1585: G_PKG_NAME,
1586: p_init_msg_list,
1587: l_api_version,
1588: p_api_version,
1587: l_api_version,
1588: p_api_version,
1589: '_PVT',
1590: x_return_status);
1591: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
1592: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1593: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
1594: RAISE Okl_api.G_EXCEPTION_ERROR;
1595: END IF;
1588: p_api_version,
1589: '_PVT',
1590: x_return_status);
1591: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
1592: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1593: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
1594: RAISE Okl_api.G_EXCEPTION_ERROR;
1595: END IF;
1596: --- Validate all non-missing attributes (Item Level Validation)
1589: '_PVT',
1590: x_return_status);
1591: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
1592: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1593: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
1594: RAISE Okl_api.G_EXCEPTION_ERROR;
1595: END IF;
1596: --- Validate all non-missing attributes (Item Level Validation)
1597: l_return_status := Validate_Attributes(l_tldv_rec);
1590: x_return_status);
1591: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
1592: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1593: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
1594: RAISE Okl_api.G_EXCEPTION_ERROR;
1595: END IF;
1596: --- Validate all non-missing attributes (Item Level Validation)
1597: l_return_status := Validate_Attributes(l_tldv_rec);
1598: --- If any errors happen abort API
1595: END IF;
1596: --- Validate all non-missing attributes (Item Level Validation)
1597: l_return_status := Validate_Attributes(l_tldv_rec);
1598: --- If any errors happen abort API
1599: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
1600: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1601: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
1602: RAISE Okl_api.G_EXCEPTION_ERROR;
1603: END IF;
1596: --- Validate all non-missing attributes (Item Level Validation)
1597: l_return_status := Validate_Attributes(l_tldv_rec);
1598: --- If any errors happen abort API
1599: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
1600: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1601: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
1602: RAISE Okl_api.G_EXCEPTION_ERROR;
1603: END IF;
1604: l_return_status := Validate_Record(l_tldv_rec);
1597: l_return_status := Validate_Attributes(l_tldv_rec);
1598: --- If any errors happen abort API
1599: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
1600: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1601: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
1602: RAISE Okl_api.G_EXCEPTION_ERROR;
1603: END IF;
1604: l_return_status := Validate_Record(l_tldv_rec);
1605: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
1598: --- If any errors happen abort API
1599: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
1600: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1601: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
1602: RAISE Okl_api.G_EXCEPTION_ERROR;
1603: END IF;
1604: l_return_status := Validate_Record(l_tldv_rec);
1605: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
1606: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1601: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
1602: RAISE Okl_api.G_EXCEPTION_ERROR;
1603: END IF;
1604: l_return_status := Validate_Record(l_tldv_rec);
1605: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
1606: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1607: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
1608: RAISE Okl_api.G_EXCEPTION_ERROR;
1609: END IF;
1602: RAISE Okl_api.G_EXCEPTION_ERROR;
1603: END IF;
1604: l_return_status := Validate_Record(l_tldv_rec);
1605: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
1606: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1607: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
1608: RAISE Okl_api.G_EXCEPTION_ERROR;
1609: END IF;
1610: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1603: END IF;
1604: l_return_status := Validate_Record(l_tldv_rec);
1605: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
1606: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1607: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
1608: RAISE Okl_api.G_EXCEPTION_ERROR;
1609: END IF;
1610: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1611: EXCEPTION
1604: l_return_status := Validate_Record(l_tldv_rec);
1605: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
1606: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1607: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
1608: RAISE Okl_api.G_EXCEPTION_ERROR;
1609: END IF;
1610: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1611: EXCEPTION
1612: WHEN Okl_api.G_EXCEPTION_ERROR THEN
1606: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1607: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
1608: RAISE Okl_api.G_EXCEPTION_ERROR;
1609: END IF;
1610: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1611: EXCEPTION
1612: WHEN Okl_api.G_EXCEPTION_ERROR THEN
1613: x_return_status := Okl_api.HANDLE_EXCEPTIONS
1614: (
1608: RAISE Okl_api.G_EXCEPTION_ERROR;
1609: END IF;
1610: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1611: EXCEPTION
1612: WHEN Okl_api.G_EXCEPTION_ERROR THEN
1613: x_return_status := Okl_api.HANDLE_EXCEPTIONS
1614: (
1615: l_api_name,
1616: G_PKG_NAME,
1609: END IF;
1610: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1611: EXCEPTION
1612: WHEN Okl_api.G_EXCEPTION_ERROR THEN
1613: x_return_status := Okl_api.HANDLE_EXCEPTIONS
1614: (
1615: l_api_name,
1616: G_PKG_NAME,
1617: 'Okl_api.G_RET_STS_ERROR',
1613: x_return_status := Okl_api.HANDLE_EXCEPTIONS
1614: (
1615: l_api_name,
1616: G_PKG_NAME,
1617: 'Okl_api.G_RET_STS_ERROR',
1618: x_msg_count,
1619: x_msg_data,
1620: '_PVT'
1621: );
1618: x_msg_count,
1619: x_msg_data,
1620: '_PVT'
1621: );
1622: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1623: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
1624: (
1625: l_api_name,
1626: G_PKG_NAME,
1619: x_msg_data,
1620: '_PVT'
1621: );
1622: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1623: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
1624: (
1625: l_api_name,
1626: G_PKG_NAME,
1627: 'Okl_api.G_RET_STS_UNEXP_ERROR',
1623: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
1624: (
1625: l_api_name,
1626: G_PKG_NAME,
1627: 'Okl_api.G_RET_STS_UNEXP_ERROR',
1628: x_msg_count,
1629: x_msg_data,
1630: '_PVT'
1631: );
1629: x_msg_data,
1630: '_PVT'
1631: );
1632: WHEN OTHERS THEN
1633: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
1634: (
1635: l_api_name,
1636: G_PKG_NAME,
1637: 'OTHERS',
1652: p_tldv_tbl IN tldv_tbl_type) IS
1653:
1654: l_api_version CONSTANT NUMBER := 1;
1655: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1656: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
1657: -- Begin Post-Generation Change
1658: -- overall error status
1659: l_overall_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
1660: -- End Post-Generation Change
1655: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1656: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
1657: -- Begin Post-Generation Change
1658: -- overall error status
1659: l_overall_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
1660: -- End Post-Generation Change
1661:
1662: i NUMBER := 0;
1663: BEGIN
1660: -- End Post-Generation Change
1661:
1662: i NUMBER := 0;
1663: BEGIN
1664: Okl_api.init_msg_list(p_init_msg_list);
1665: -- Make sure PL/SQL table has records in it before passing
1666: IF (p_tldv_tbl.COUNT > 0) THEN
1667: i := p_tldv_tbl.FIRST;
1668: LOOP
1667: i := p_tldv_tbl.FIRST;
1668: LOOP
1669: validate_row (
1670: p_api_version => p_api_version,
1671: p_init_msg_list => Okl_api.G_FALSE,
1672: x_return_status => x_return_status,
1673: x_msg_count => x_msg_count,
1674: x_msg_data => x_msg_data,
1675: p_tldv_rec => p_tldv_tbl(i));
1675: p_tldv_rec => p_tldv_tbl(i));
1676:
1677: -- Begin Post-Generation Change
1678: -- store the highest degree of error
1679: IF x_return_status <> Okl_api.G_RET_STS_SUCCESS THEN
1680: IF l_overall_status <> Okl_api.G_RET_STS_UNEXP_ERROR THEN
1681: l_overall_status := x_return_status;
1682: END IF;
1683: END IF;
1676:
1677: -- Begin Post-Generation Change
1678: -- store the highest degree of error
1679: IF x_return_status <> Okl_api.G_RET_STS_SUCCESS THEN
1680: IF l_overall_status <> Okl_api.G_RET_STS_UNEXP_ERROR THEN
1681: l_overall_status := x_return_status;
1682: END IF;
1683: END IF;
1684: -- End Post-Generation Change
1690: x_return_status := l_overall_status;
1691: -- End Post-Generation Change
1692: END IF;
1693: EXCEPTION
1694: WHEN Okl_api.G_EXCEPTION_ERROR THEN
1695: x_return_status := Okl_api.HANDLE_EXCEPTIONS
1696: (
1697: l_api_name,
1698: G_PKG_NAME,
1691: -- End Post-Generation Change
1692: END IF;
1693: EXCEPTION
1694: WHEN Okl_api.G_EXCEPTION_ERROR THEN
1695: x_return_status := Okl_api.HANDLE_EXCEPTIONS
1696: (
1697: l_api_name,
1698: G_PKG_NAME,
1699: 'Okl_api.G_RET_STS_ERROR',
1695: x_return_status := Okl_api.HANDLE_EXCEPTIONS
1696: (
1697: l_api_name,
1698: G_PKG_NAME,
1699: 'Okl_api.G_RET_STS_ERROR',
1700: x_msg_count,
1701: x_msg_data,
1702: '_PVT'
1703: );
1700: x_msg_count,
1701: x_msg_data,
1702: '_PVT'
1703: );
1704: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1705: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
1706: (
1707: l_api_name,
1708: G_PKG_NAME,
1701: x_msg_data,
1702: '_PVT'
1703: );
1704: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1705: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
1706: (
1707: l_api_name,
1708: G_PKG_NAME,
1709: 'Okl_api.G_RET_STS_UNEXP_ERROR',
1705: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
1706: (
1707: l_api_name,
1708: G_PKG_NAME,
1709: 'Okl_api.G_RET_STS_UNEXP_ERROR',
1710: x_msg_count,
1711: x_msg_data,
1712: '_PVT'
1713: );
1711: x_msg_data,
1712: '_PVT'
1713: );
1714: WHEN OTHERS THEN
1715: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
1716: (
1717: l_api_name,
1718: G_PKG_NAME,
1719: 'OTHERS',
1738: x_tld_rec OUT NOCOPY tld_rec_type) IS
1739:
1740: l_api_version CONSTANT NUMBER := 1;
1741: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1742: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
1743: l_tld_rec tld_rec_type := p_tld_rec;
1744: l_def_tld_rec tld_rec_type;
1745: ---------------------------------------------
1746: -- Set_Attributes for:OKL_TXD_AR_LN_DTLS_B --
1748: FUNCTION Set_Attributes (
1749: p_tld_rec IN tld_rec_type,
1750: x_tld_rec OUT NOCOPY tld_rec_type
1751: ) RETURN VARCHAR2 IS
1752: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
1753: BEGIN
1754: x_tld_rec := p_tld_rec;
1755: RETURN(l_return_status);
1756: END Set_Attributes;
1754: x_tld_rec := p_tld_rec;
1755: RETURN(l_return_status);
1756: END Set_Attributes;
1757: BEGIN
1758: l_return_status := Okl_api.START_ACTIVITY(l_api_name,
1759: p_init_msg_list,
1760: '_PVT',
1761: x_return_status);
1762: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
1758: l_return_status := Okl_api.START_ACTIVITY(l_api_name,
1759: p_init_msg_list,
1760: '_PVT',
1761: x_return_status);
1762: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
1763: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1764: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
1765: RAISE Okl_api.G_EXCEPTION_ERROR;
1766: END IF;
1759: p_init_msg_list,
1760: '_PVT',
1761: x_return_status);
1762: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
1763: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1764: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
1765: RAISE Okl_api.G_EXCEPTION_ERROR;
1766: END IF;
1767: --- Setting item attributes
1760: '_PVT',
1761: x_return_status);
1762: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
1763: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1764: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
1765: RAISE Okl_api.G_EXCEPTION_ERROR;
1766: END IF;
1767: --- Setting item attributes
1768: l_return_status := Set_Attributes(
1761: x_return_status);
1762: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
1763: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1764: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
1765: RAISE Okl_api.G_EXCEPTION_ERROR;
1766: END IF;
1767: --- Setting item attributes
1768: l_return_status := Set_Attributes(
1769: p_tld_rec, -- IN
1768: l_return_status := Set_Attributes(
1769: p_tld_rec, -- IN
1770: l_tld_rec); -- OUT
1771: --- If any errors happen abort API
1772: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
1773: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1774: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
1775: RAISE Okl_api.G_EXCEPTION_ERROR;
1776: END IF;
1769: p_tld_rec, -- IN
1770: l_tld_rec); -- OUT
1771: --- If any errors happen abort API
1772: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
1773: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1774: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
1775: RAISE Okl_api.G_EXCEPTION_ERROR;
1776: END IF;
1777: INSERT INTO OKL_TXD_AR_LN_DTLS_B(
1770: l_tld_rec); -- OUT
1771: --- If any errors happen abort API
1772: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
1773: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1774: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
1775: RAISE Okl_api.G_EXCEPTION_ERROR;
1776: END IF;
1777: INSERT INTO OKL_TXD_AR_LN_DTLS_B(
1778: id,
1771: --- If any errors happen abort API
1772: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
1773: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1774: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
1775: RAISE Okl_api.G_EXCEPTION_ERROR;
1776: END IF;
1777: INSERT INTO OKL_TXD_AR_LN_DTLS_B(
1778: id,
1779: bch_id,
1915: l_tld_rec.last_update_date,
1916: l_tld_rec.last_update_login);
1917: -- Set OUT values
1918: x_tld_rec := l_tld_rec;
1919: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1920: EXCEPTION
1921: WHEN Okl_api.G_EXCEPTION_ERROR THEN
1922: x_return_status := Okl_api.HANDLE_EXCEPTIONS
1923: (
1917: -- Set OUT values
1918: x_tld_rec := l_tld_rec;
1919: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1920: EXCEPTION
1921: WHEN Okl_api.G_EXCEPTION_ERROR THEN
1922: x_return_status := Okl_api.HANDLE_EXCEPTIONS
1923: (
1924: l_api_name,
1925: G_PKG_NAME,
1918: x_tld_rec := l_tld_rec;
1919: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1920: EXCEPTION
1921: WHEN Okl_api.G_EXCEPTION_ERROR THEN
1922: x_return_status := Okl_api.HANDLE_EXCEPTIONS
1923: (
1924: l_api_name,
1925: G_PKG_NAME,
1926: 'Okl_api.G_RET_STS_ERROR',
1922: x_return_status := Okl_api.HANDLE_EXCEPTIONS
1923: (
1924: l_api_name,
1925: G_PKG_NAME,
1926: 'Okl_api.G_RET_STS_ERROR',
1927: x_msg_count,
1928: x_msg_data,
1929: '_PVT'
1930: );
1927: x_msg_count,
1928: x_msg_data,
1929: '_PVT'
1930: );
1931: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1932: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
1933: (
1934: l_api_name,
1935: G_PKG_NAME,
1928: x_msg_data,
1929: '_PVT'
1930: );
1931: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1932: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
1933: (
1934: l_api_name,
1935: G_PKG_NAME,
1936: 'Okl_api.G_RET_STS_UNEXP_ERROR',
1932: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
1933: (
1934: l_api_name,
1935: G_PKG_NAME,
1936: 'Okl_api.G_RET_STS_UNEXP_ERROR',
1937: x_msg_count,
1938: x_msg_data,
1939: '_PVT'
1940: );
1938: x_msg_data,
1939: '_PVT'
1940: );
1941: WHEN OTHERS THEN
1942: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
1943: (
1944: l_api_name,
1945: G_PKG_NAME,
1946: 'OTHERS',
1961: x_okl_txd_ar_ln_dtls_tl_rec OUT NOCOPY okl_txd_ar_ln_dtls_tl_rec_type) IS
1962:
1963: l_api_version CONSTANT NUMBER := 1;
1964: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1965: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
1966: l_okl_txd_ar_ln_dtls_tl_rec okl_txd_ar_ln_dtls_tl_rec_type := p_okl_txd_ar_ln_dtls_tl_rec;
1967: ldefokltxdarlndtlstlrec okl_txd_ar_ln_dtls_tl_rec_type;
1968: CURSOR get_languages IS
1969: SELECT *
1975: FUNCTION Set_Attributes (
1976: p_okl_txd_ar_ln_dtls_tl_rec IN okl_txd_ar_ln_dtls_tl_rec_type,
1977: x_okl_txd_ar_ln_dtls_tl_rec OUT NOCOPY okl_txd_ar_ln_dtls_tl_rec_type
1978: ) RETURN VARCHAR2 IS
1979: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
1980: BEGIN
1981: x_okl_txd_ar_ln_dtls_tl_rec := p_okl_txd_ar_ln_dtls_tl_rec;
1982: x_okl_txd_ar_ln_dtls_tl_rec.LANGUAGE := USERENV('LANG');
1983: x_okl_txd_ar_ln_dtls_tl_rec.SOURCE_LANG := USERENV('LANG');
1983: x_okl_txd_ar_ln_dtls_tl_rec.SOURCE_LANG := USERENV('LANG');
1984: RETURN(l_return_status);
1985: END Set_Attributes;
1986: BEGIN
1987: l_return_status := Okl_api.START_ACTIVITY(l_api_name,
1988: p_init_msg_list,
1989: '_PVT',
1990: x_return_status);
1991: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
1987: l_return_status := Okl_api.START_ACTIVITY(l_api_name,
1988: p_init_msg_list,
1989: '_PVT',
1990: x_return_status);
1991: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
1992: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1993: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
1994: RAISE Okl_api.G_EXCEPTION_ERROR;
1995: END IF;
1988: p_init_msg_list,
1989: '_PVT',
1990: x_return_status);
1991: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
1992: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1993: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
1994: RAISE Okl_api.G_EXCEPTION_ERROR;
1995: END IF;
1996: --- Setting item attributes
1989: '_PVT',
1990: x_return_status);
1991: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
1992: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1993: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
1994: RAISE Okl_api.G_EXCEPTION_ERROR;
1995: END IF;
1996: --- Setting item attributes
1997: l_return_status := Set_Attributes(
1990: x_return_status);
1991: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
1992: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1993: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
1994: RAISE Okl_api.G_EXCEPTION_ERROR;
1995: END IF;
1996: --- Setting item attributes
1997: l_return_status := Set_Attributes(
1998: p_okl_txd_ar_ln_dtls_tl_rec, -- IN
1997: l_return_status := Set_Attributes(
1998: p_okl_txd_ar_ln_dtls_tl_rec, -- IN
1999: l_okl_txd_ar_ln_dtls_tl_rec); -- OUT
2000: --- If any errors happen abort API
2001: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2002: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2003: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2004: RAISE Okl_api.G_EXCEPTION_ERROR;
2005: END IF;
1998: p_okl_txd_ar_ln_dtls_tl_rec, -- IN
1999: l_okl_txd_ar_ln_dtls_tl_rec); -- OUT
2000: --- If any errors happen abort API
2001: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2002: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2003: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2004: RAISE Okl_api.G_EXCEPTION_ERROR;
2005: END IF;
2006: FOR l_lang_rec IN get_languages LOOP
1999: l_okl_txd_ar_ln_dtls_tl_rec); -- OUT
2000: --- If any errors happen abort API
2001: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2002: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2003: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2004: RAISE Okl_api.G_EXCEPTION_ERROR;
2005: END IF;
2006: FOR l_lang_rec IN get_languages LOOP
2007: l_okl_txd_ar_ln_dtls_tl_rec.LANGUAGE := l_lang_rec.language_code;
2000: --- If any errors happen abort API
2001: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2002: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2003: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2004: RAISE Okl_api.G_EXCEPTION_ERROR;
2005: END IF;
2006: FOR l_lang_rec IN get_languages LOOP
2007: l_okl_txd_ar_ln_dtls_tl_rec.LANGUAGE := l_lang_rec.language_code;
2008: INSERT INTO OKL_TXD_AR_LN_DTLS_TL(
2031: l_okl_txd_ar_ln_dtls_tl_rec.last_update_login);
2032: END LOOP;
2033: -- Set OUT values
2034: x_okl_txd_ar_ln_dtls_tl_rec := l_okl_txd_ar_ln_dtls_tl_rec;
2035: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2036: EXCEPTION
2037: WHEN Okl_api.G_EXCEPTION_ERROR THEN
2038: x_return_status := Okl_api.HANDLE_EXCEPTIONS
2039: (
2033: -- Set OUT values
2034: x_okl_txd_ar_ln_dtls_tl_rec := l_okl_txd_ar_ln_dtls_tl_rec;
2035: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2036: EXCEPTION
2037: WHEN Okl_api.G_EXCEPTION_ERROR THEN
2038: x_return_status := Okl_api.HANDLE_EXCEPTIONS
2039: (
2040: l_api_name,
2041: G_PKG_NAME,
2034: x_okl_txd_ar_ln_dtls_tl_rec := l_okl_txd_ar_ln_dtls_tl_rec;
2035: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2036: EXCEPTION
2037: WHEN Okl_api.G_EXCEPTION_ERROR THEN
2038: x_return_status := Okl_api.HANDLE_EXCEPTIONS
2039: (
2040: l_api_name,
2041: G_PKG_NAME,
2042: 'Okl_api.G_RET_STS_ERROR',
2038: x_return_status := Okl_api.HANDLE_EXCEPTIONS
2039: (
2040: l_api_name,
2041: G_PKG_NAME,
2042: 'Okl_api.G_RET_STS_ERROR',
2043: x_msg_count,
2044: x_msg_data,
2045: '_PVT'
2046: );
2043: x_msg_count,
2044: x_msg_data,
2045: '_PVT'
2046: );
2047: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2048: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
2049: (
2050: l_api_name,
2051: G_PKG_NAME,
2044: x_msg_data,
2045: '_PVT'
2046: );
2047: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2048: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
2049: (
2050: l_api_name,
2051: G_PKG_NAME,
2052: 'Okl_api.G_RET_STS_UNEXP_ERROR',
2048: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
2049: (
2050: l_api_name,
2051: G_PKG_NAME,
2052: 'Okl_api.G_RET_STS_UNEXP_ERROR',
2053: x_msg_count,
2054: x_msg_data,
2055: '_PVT'
2056: );
2054: x_msg_data,
2055: '_PVT'
2056: );
2057: WHEN OTHERS THEN
2058: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
2059: (
2060: l_api_name,
2061: G_PKG_NAME,
2062: 'OTHERS',
2078: x_tldv_rec OUT NOCOPY tldv_rec_type) IS
2079:
2080: l_api_version CONSTANT NUMBER := 1;
2081: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
2082: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
2083: l_tldv_rec tldv_rec_type;
2084: l_def_tldv_rec tldv_rec_type;
2085: l_tld_rec tld_rec_type;
2086: lx_tld_rec tld_rec_type;
2107: FUNCTION Set_Attributes (
2108: p_tldv_rec IN tldv_rec_type,
2109: x_tldv_rec OUT NOCOPY tldv_rec_type
2110: ) RETURN VARCHAR2 IS
2111: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
2112: BEGIN
2113: x_tldv_rec := p_tldv_rec;
2114: x_tldv_rec.OBJECT_VERSION_NUMBER := 1;
2115: x_tldv_rec.SFWT_FLAG := 'N';
2113: x_tldv_rec := p_tldv_rec;
2114: x_tldv_rec.OBJECT_VERSION_NUMBER := 1;
2115: x_tldv_rec.SFWT_FLAG := 'N';
2116:
2117: IF (x_tldv_rec.request_id IS NULL OR x_tldv_rec.request_id = Okl_api.G_MISS_NUM) THEN
2118: SELECT
2119: DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,Fnd_Global.CONC_REQUEST_ID),
2120: DECODE(Fnd_Global.PROG_APPL_ID,-1,NULL,Fnd_Global.CONC_REQUEST_ID),
2121: DECODE(Fnd_Global.CONC_PROGRAM_ID,-1,NULL,Fnd_Global.CONC_PROGRAM_ID),
2130:
2131: RETURN(l_return_status);
2132: END Set_Attributes;
2133: BEGIN
2134: l_return_status := Okl_api.START_ACTIVITY(l_api_name,
2135: G_PKG_NAME,
2136: p_init_msg_list,
2137: l_api_version,
2138: p_api_version,
2137: l_api_version,
2138: p_api_version,
2139: '_PVT',
2140: x_return_status);
2141: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2142: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2143: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2144: RAISE Okl_api.G_EXCEPTION_ERROR;
2145: END IF;
2138: p_api_version,
2139: '_PVT',
2140: x_return_status);
2141: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2142: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2143: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2144: RAISE Okl_api.G_EXCEPTION_ERROR;
2145: END IF;
2146: l_tldv_rec := null_out_defaults(p_tldv_rec);
2139: '_PVT',
2140: x_return_status);
2141: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2142: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2143: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2144: RAISE Okl_api.G_EXCEPTION_ERROR;
2145: END IF;
2146: l_tldv_rec := null_out_defaults(p_tldv_rec);
2147: -- Set primary key value
2140: x_return_status);
2141: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2142: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2143: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2144: RAISE Okl_api.G_EXCEPTION_ERROR;
2145: END IF;
2146: l_tldv_rec := null_out_defaults(p_tldv_rec);
2147: -- Set primary key value
2148: l_tldv_rec.ID := get_seq_id;
2150: l_return_status := Set_Attributes(
2151: l_tldv_rec, -- IN
2152: l_def_tldv_rec); -- OUT
2153: --- If any errors happen abort API
2154: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2155: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2156: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2157: RAISE Okl_api.G_EXCEPTION_ERROR;
2158: END IF;
2151: l_tldv_rec, -- IN
2152: l_def_tldv_rec); -- OUT
2153: --- If any errors happen abort API
2154: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2155: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2156: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2157: RAISE Okl_api.G_EXCEPTION_ERROR;
2158: END IF;
2159: l_def_tldv_rec := fill_who_columns(l_def_tldv_rec);
2152: l_def_tldv_rec); -- OUT
2153: --- If any errors happen abort API
2154: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2155: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2156: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2157: RAISE Okl_api.G_EXCEPTION_ERROR;
2158: END IF;
2159: l_def_tldv_rec := fill_who_columns(l_def_tldv_rec);
2160: --- Validate all non-missing attributes (Item Level Validation)
2153: --- If any errors happen abort API
2154: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2155: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2156: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2157: RAISE Okl_api.G_EXCEPTION_ERROR;
2158: END IF;
2159: l_def_tldv_rec := fill_who_columns(l_def_tldv_rec);
2160: --- Validate all non-missing attributes (Item Level Validation)
2161: l_return_status := Validate_Attributes(l_def_tldv_rec);
2159: l_def_tldv_rec := fill_who_columns(l_def_tldv_rec);
2160: --- Validate all non-missing attributes (Item Level Validation)
2161: l_return_status := Validate_Attributes(l_def_tldv_rec);
2162: --- If any errors happen abort API
2163: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2164: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2165: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2166: RAISE Okl_api.G_EXCEPTION_ERROR;
2167: END IF;
2160: --- Validate all non-missing attributes (Item Level Validation)
2161: l_return_status := Validate_Attributes(l_def_tldv_rec);
2162: --- If any errors happen abort API
2163: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2164: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2165: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2166: RAISE Okl_api.G_EXCEPTION_ERROR;
2167: END IF;
2168: l_return_status := Validate_Record(l_def_tldv_rec);
2161: l_return_status := Validate_Attributes(l_def_tldv_rec);
2162: --- If any errors happen abort API
2163: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2164: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2165: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2166: RAISE Okl_api.G_EXCEPTION_ERROR;
2167: END IF;
2168: l_return_status := Validate_Record(l_def_tldv_rec);
2169: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2162: --- If any errors happen abort API
2163: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2164: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2165: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2166: RAISE Okl_api.G_EXCEPTION_ERROR;
2167: END IF;
2168: l_return_status := Validate_Record(l_def_tldv_rec);
2169: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2170: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2165: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2166: RAISE Okl_api.G_EXCEPTION_ERROR;
2167: END IF;
2168: l_return_status := Validate_Record(l_def_tldv_rec);
2169: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2170: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2171: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2172: RAISE Okl_api.G_EXCEPTION_ERROR;
2173: END IF;
2166: RAISE Okl_api.G_EXCEPTION_ERROR;
2167: END IF;
2168: l_return_status := Validate_Record(l_def_tldv_rec);
2169: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2170: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2171: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2172: RAISE Okl_api.G_EXCEPTION_ERROR;
2173: END IF;
2174: --------------------------------------
2167: END IF;
2168: l_return_status := Validate_Record(l_def_tldv_rec);
2169: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2170: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2171: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2172: RAISE Okl_api.G_EXCEPTION_ERROR;
2173: END IF;
2174: --------------------------------------
2175: -- Move VIEW record to "Child" records
2168: l_return_status := Validate_Record(l_def_tldv_rec);
2169: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2170: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2171: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2172: RAISE Okl_api.G_EXCEPTION_ERROR;
2173: END IF;
2174: --------------------------------------
2175: -- Move VIEW record to "Child" records
2176: --------------------------------------
2186: x_msg_data,
2187: l_tld_rec,
2188: lx_tld_rec
2189: );
2190: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2191: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2192: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
2193: RAISE Okl_api.G_EXCEPTION_ERROR;
2194: END IF;
2187: l_tld_rec,
2188: lx_tld_rec
2189: );
2190: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2191: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2192: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
2193: RAISE Okl_api.G_EXCEPTION_ERROR;
2194: END IF;
2195: migrate(lx_tld_rec, l_def_tldv_rec);
2188: lx_tld_rec
2189: );
2190: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2191: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2192: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
2193: RAISE Okl_api.G_EXCEPTION_ERROR;
2194: END IF;
2195: migrate(lx_tld_rec, l_def_tldv_rec);
2196: insert_row(
2189: );
2190: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2191: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2192: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
2193: RAISE Okl_api.G_EXCEPTION_ERROR;
2194: END IF;
2195: migrate(lx_tld_rec, l_def_tldv_rec);
2196: insert_row(
2197: p_init_msg_list,
2200: x_msg_data,
2201: l_okl_txd_ar_ln_dtls_tl_rec,
2202: lx_okl_txd_ar_ln_dtls_tl_rec
2203: );
2204: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2205: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2206: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
2207: RAISE Okl_api.G_EXCEPTION_ERROR;
2208: END IF;
2201: l_okl_txd_ar_ln_dtls_tl_rec,
2202: lx_okl_txd_ar_ln_dtls_tl_rec
2203: );
2204: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2205: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2206: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
2207: RAISE Okl_api.G_EXCEPTION_ERROR;
2208: END IF;
2209: migrate(lx_okl_txd_ar_ln_dtls_tl_rec, l_def_tldv_rec);
2202: lx_okl_txd_ar_ln_dtls_tl_rec
2203: );
2204: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2205: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2206: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
2207: RAISE Okl_api.G_EXCEPTION_ERROR;
2208: END IF;
2209: migrate(lx_okl_txd_ar_ln_dtls_tl_rec, l_def_tldv_rec);
2210: -- Set OUT values
2203: );
2204: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2205: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2206: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
2207: RAISE Okl_api.G_EXCEPTION_ERROR;
2208: END IF;
2209: migrate(lx_okl_txd_ar_ln_dtls_tl_rec, l_def_tldv_rec);
2210: -- Set OUT values
2211: x_tldv_rec := l_def_tldv_rec;
2208: END IF;
2209: migrate(lx_okl_txd_ar_ln_dtls_tl_rec, l_def_tldv_rec);
2210: -- Set OUT values
2211: x_tldv_rec := l_def_tldv_rec;
2212: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2213: EXCEPTION
2214: WHEN Okl_api.G_EXCEPTION_ERROR THEN
2215: x_return_status := Okl_api.HANDLE_EXCEPTIONS
2216: (
2210: -- Set OUT values
2211: x_tldv_rec := l_def_tldv_rec;
2212: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2213: EXCEPTION
2214: WHEN Okl_api.G_EXCEPTION_ERROR THEN
2215: x_return_status := Okl_api.HANDLE_EXCEPTIONS
2216: (
2217: l_api_name,
2218: G_PKG_NAME,
2211: x_tldv_rec := l_def_tldv_rec;
2212: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2213: EXCEPTION
2214: WHEN Okl_api.G_EXCEPTION_ERROR THEN
2215: x_return_status := Okl_api.HANDLE_EXCEPTIONS
2216: (
2217: l_api_name,
2218: G_PKG_NAME,
2219: 'Okl_api.G_RET_STS_ERROR',
2215: x_return_status := Okl_api.HANDLE_EXCEPTIONS
2216: (
2217: l_api_name,
2218: G_PKG_NAME,
2219: 'Okl_api.G_RET_STS_ERROR',
2220: x_msg_count,
2221: x_msg_data,
2222: '_PVT'
2223: );
2220: x_msg_count,
2221: x_msg_data,
2222: '_PVT'
2223: );
2224: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2225: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
2226: (
2227: l_api_name,
2228: G_PKG_NAME,
2221: x_msg_data,
2222: '_PVT'
2223: );
2224: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2225: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
2226: (
2227: l_api_name,
2228: G_PKG_NAME,
2229: 'Okl_api.G_RET_STS_UNEXP_ERROR',
2225: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
2226: (
2227: l_api_name,
2228: G_PKG_NAME,
2229: 'Okl_api.G_RET_STS_UNEXP_ERROR',
2230: x_msg_count,
2231: x_msg_data,
2232: '_PVT'
2233: );
2231: x_msg_data,
2232: '_PVT'
2233: );
2234: WHEN OTHERS THEN
2235: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
2236: (
2237: l_api_name,
2238: G_PKG_NAME,
2239: 'OTHERS',
2255: x_tldv_tbl OUT NOCOPY tldv_tbl_type) IS
2256:
2257: l_api_version CONSTANT NUMBER := 1;
2258: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2259: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
2260: -- Begin Post-Generation Change
2261: -- overall error status
2262: l_overall_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
2263: -- End Post-Generation Change
2258: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2259: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
2260: -- Begin Post-Generation Change
2261: -- overall error status
2262: l_overall_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
2263: -- End Post-Generation Change
2264:
2265: i NUMBER := 0;
2266: BEGIN
2263: -- End Post-Generation Change
2264:
2265: i NUMBER := 0;
2266: BEGIN
2267: Okl_api.init_msg_list(p_init_msg_list);
2268: -- Make sure PL/SQL table has records in it before passing
2269: IF (p_tldv_tbl.COUNT > 0) THEN
2270: i := p_tldv_tbl.FIRST;
2271: LOOP
2270: i := p_tldv_tbl.FIRST;
2271: LOOP
2272: insert_row (
2273: p_api_version => p_api_version,
2274: p_init_msg_list => Okl_api.G_FALSE,
2275: x_return_status => x_return_status,
2276: x_msg_count => x_msg_count,
2277: x_msg_data => x_msg_data,
2278: p_tldv_rec => p_tldv_tbl(i),
2278: p_tldv_rec => p_tldv_tbl(i),
2279: x_tldv_rec => x_tldv_tbl(i));
2280: -- Begin Post-Generation Change
2281: -- store the highest degree of error
2282: IF x_return_status <> Okl_api.G_RET_STS_SUCCESS THEN
2283: IF l_overall_status <> Okl_api.G_RET_STS_UNEXP_ERROR THEN
2284: l_overall_status := x_return_status;
2285: END IF;
2286: END IF;
2279: x_tldv_rec => x_tldv_tbl(i));
2280: -- Begin Post-Generation Change
2281: -- store the highest degree of error
2282: IF x_return_status <> Okl_api.G_RET_STS_SUCCESS THEN
2283: IF l_overall_status <> Okl_api.G_RET_STS_UNEXP_ERROR THEN
2284: l_overall_status := x_return_status;
2285: END IF;
2286: END IF;
2287: -- End Post-Generation Change
2293: x_return_status := l_overall_status;
2294: -- End Post-Generation Change
2295: END IF;
2296: EXCEPTION
2297: WHEN Okl_api.G_EXCEPTION_ERROR THEN
2298: x_return_status := Okl_api.HANDLE_EXCEPTIONS
2299: (
2300: l_api_name,
2301: G_PKG_NAME,
2294: -- End Post-Generation Change
2295: END IF;
2296: EXCEPTION
2297: WHEN Okl_api.G_EXCEPTION_ERROR THEN
2298: x_return_status := Okl_api.HANDLE_EXCEPTIONS
2299: (
2300: l_api_name,
2301: G_PKG_NAME,
2302: 'Okl_api.G_RET_STS_ERROR',
2298: x_return_status := Okl_api.HANDLE_EXCEPTIONS
2299: (
2300: l_api_name,
2301: G_PKG_NAME,
2302: 'Okl_api.G_RET_STS_ERROR',
2303: x_msg_count,
2304: x_msg_data,
2305: '_PVT'
2306: );
2303: x_msg_count,
2304: x_msg_data,
2305: '_PVT'
2306: );
2307: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2308: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
2309: (
2310: l_api_name,
2311: G_PKG_NAME,
2304: x_msg_data,
2305: '_PVT'
2306: );
2307: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2308: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
2309: (
2310: l_api_name,
2311: G_PKG_NAME,
2312: 'Okl_api.G_RET_STS_UNEXP_ERROR',
2308: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
2309: (
2310: l_api_name,
2311: G_PKG_NAME,
2312: 'Okl_api.G_RET_STS_UNEXP_ERROR',
2313: x_msg_count,
2314: x_msg_data,
2315: '_PVT'
2316: );
2314: x_msg_data,
2315: '_PVT'
2316: );
2317: WHEN OTHERS THEN
2318: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
2319: (
2320: l_api_name,
2321: G_PKG_NAME,
2322: 'OTHERS',
2353: FROM OKL_TXD_AR_LN_DTLS_B
2354: WHERE ID = p_tld_rec.id;
2355: l_api_version CONSTANT NUMBER := 1;
2356: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
2357: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
2358: l_object_version_number OKL_TXD_AR_LN_DTLS_B.OBJECT_VERSION_NUMBER%TYPE;
2359: lc_object_version_number OKL_TXD_AR_LN_DTLS_B.OBJECT_VERSION_NUMBER%TYPE;
2360: l_row_notfound BOOLEAN := FALSE;
2361: lc_row_notfound BOOLEAN := FALSE;
2359: lc_object_version_number OKL_TXD_AR_LN_DTLS_B.OBJECT_VERSION_NUMBER%TYPE;
2360: l_row_notfound BOOLEAN := FALSE;
2361: lc_row_notfound BOOLEAN := FALSE;
2362: BEGIN
2363: l_return_status := Okl_api.START_ACTIVITY(l_api_name,
2364: p_init_msg_list,
2365: '_PVT',
2366: x_return_status);
2367: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2363: l_return_status := Okl_api.START_ACTIVITY(l_api_name,
2364: p_init_msg_list,
2365: '_PVT',
2366: x_return_status);
2367: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2368: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2369: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2370: RAISE Okl_api.G_EXCEPTION_ERROR;
2371: END IF;
2364: p_init_msg_list,
2365: '_PVT',
2366: x_return_status);
2367: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2368: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2369: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2370: RAISE Okl_api.G_EXCEPTION_ERROR;
2371: END IF;
2372: BEGIN
2365: '_PVT',
2366: x_return_status);
2367: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2368: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2369: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2370: RAISE Okl_api.G_EXCEPTION_ERROR;
2371: END IF;
2372: BEGIN
2373: OPEN lock_csr(p_tld_rec);
2366: x_return_status);
2367: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2368: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2369: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2370: RAISE Okl_api.G_EXCEPTION_ERROR;
2371: END IF;
2372: BEGIN
2373: OPEN lock_csr(p_tld_rec);
2374: FETCH lock_csr INTO l_object_version_number;
2378: WHEN E_Resource_Busy THEN
2379: IF (lock_csr%ISOPEN) THEN
2380: CLOSE lock_csr;
2381: END IF;
2382: Okl_api.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2383: RAISE App_Exceptions.RECORD_LOCK_EXCEPTION;
2384: END;
2385:
2386: IF ( l_row_notfound ) THEN
2389: lc_row_notfound := lchk_csr%NOTFOUND;
2390: CLOSE lchk_csr;
2391: END IF;
2392: IF (lc_row_notfound) THEN
2393: Okl_api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2394: RAISE Okl_api.G_EXCEPTION_ERROR;
2395: ELSIF lc_object_version_number > p_tld_rec.object_version_number THEN
2396: Okl_api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2397: RAISE Okl_api.G_EXCEPTION_ERROR;
2390: CLOSE lchk_csr;
2391: END IF;
2392: IF (lc_row_notfound) THEN
2393: Okl_api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2394: RAISE Okl_api.G_EXCEPTION_ERROR;
2395: ELSIF lc_object_version_number > p_tld_rec.object_version_number THEN
2396: Okl_api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2397: RAISE Okl_api.G_EXCEPTION_ERROR;
2398: ELSIF lc_object_version_number <> p_tld_rec.object_version_number THEN
2392: IF (lc_row_notfound) THEN
2393: Okl_api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2394: RAISE Okl_api.G_EXCEPTION_ERROR;
2395: ELSIF lc_object_version_number > p_tld_rec.object_version_number THEN
2396: Okl_api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2397: RAISE Okl_api.G_EXCEPTION_ERROR;
2398: ELSIF lc_object_version_number <> p_tld_rec.object_version_number THEN
2399: Okl_api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2400: RAISE Okl_api.G_EXCEPTION_ERROR;
2393: Okl_api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2394: RAISE Okl_api.G_EXCEPTION_ERROR;
2395: ELSIF lc_object_version_number > p_tld_rec.object_version_number THEN
2396: Okl_api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2397: RAISE Okl_api.G_EXCEPTION_ERROR;
2398: ELSIF lc_object_version_number <> p_tld_rec.object_version_number THEN
2399: Okl_api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2400: RAISE Okl_api.G_EXCEPTION_ERROR;
2401: ELSIF lc_object_version_number = -1 THEN
2395: ELSIF lc_object_version_number > p_tld_rec.object_version_number THEN
2396: Okl_api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2397: RAISE Okl_api.G_EXCEPTION_ERROR;
2398: ELSIF lc_object_version_number <> p_tld_rec.object_version_number THEN
2399: Okl_api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2400: RAISE Okl_api.G_EXCEPTION_ERROR;
2401: ELSIF lc_object_version_number = -1 THEN
2402: Okl_api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2403: RAISE Okl_api.G_EXCEPTION_ERROR;
2396: Okl_api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2397: RAISE Okl_api.G_EXCEPTION_ERROR;
2398: ELSIF lc_object_version_number <> p_tld_rec.object_version_number THEN
2399: Okl_api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2400: RAISE Okl_api.G_EXCEPTION_ERROR;
2401: ELSIF lc_object_version_number = -1 THEN
2402: Okl_api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2403: RAISE Okl_api.G_EXCEPTION_ERROR;
2404: END IF;
2398: ELSIF lc_object_version_number <> p_tld_rec.object_version_number THEN
2399: Okl_api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2400: RAISE Okl_api.G_EXCEPTION_ERROR;
2401: ELSIF lc_object_version_number = -1 THEN
2402: Okl_api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2403: RAISE Okl_api.G_EXCEPTION_ERROR;
2404: END IF;
2405: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2406: EXCEPTION
2399: Okl_api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2400: RAISE Okl_api.G_EXCEPTION_ERROR;
2401: ELSIF lc_object_version_number = -1 THEN
2402: Okl_api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2403: RAISE Okl_api.G_EXCEPTION_ERROR;
2404: END IF;
2405: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2406: EXCEPTION
2407: WHEN Okl_api.G_EXCEPTION_ERROR THEN
2401: ELSIF lc_object_version_number = -1 THEN
2402: Okl_api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2403: RAISE Okl_api.G_EXCEPTION_ERROR;
2404: END IF;
2405: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2406: EXCEPTION
2407: WHEN Okl_api.G_EXCEPTION_ERROR THEN
2408: x_return_status := Okl_api.HANDLE_EXCEPTIONS
2409: (
2403: RAISE Okl_api.G_EXCEPTION_ERROR;
2404: END IF;
2405: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2406: EXCEPTION
2407: WHEN Okl_api.G_EXCEPTION_ERROR THEN
2408: x_return_status := Okl_api.HANDLE_EXCEPTIONS
2409: (
2410: l_api_name,
2411: G_PKG_NAME,
2404: END IF;
2405: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2406: EXCEPTION
2407: WHEN Okl_api.G_EXCEPTION_ERROR THEN
2408: x_return_status := Okl_api.HANDLE_EXCEPTIONS
2409: (
2410: l_api_name,
2411: G_PKG_NAME,
2412: 'Okl_api.G_RET_STS_ERROR',
2408: x_return_status := Okl_api.HANDLE_EXCEPTIONS
2409: (
2410: l_api_name,
2411: G_PKG_NAME,
2412: 'Okl_api.G_RET_STS_ERROR',
2413: x_msg_count,
2414: x_msg_data,
2415: '_PVT'
2416: );
2413: x_msg_count,
2414: x_msg_data,
2415: '_PVT'
2416: );
2417: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2418: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
2419: (
2420: l_api_name,
2421: G_PKG_NAME,
2414: x_msg_data,
2415: '_PVT'
2416: );
2417: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2418: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
2419: (
2420: l_api_name,
2421: G_PKG_NAME,
2422: 'Okl_api.G_RET_STS_UNEXP_ERROR',
2418: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
2419: (
2420: l_api_name,
2421: G_PKG_NAME,
2422: 'Okl_api.G_RET_STS_UNEXP_ERROR',
2423: x_msg_count,
2424: x_msg_data,
2425: '_PVT'
2426: );
2424: x_msg_data,
2425: '_PVT'
2426: );
2427: WHEN OTHERS THEN
2428: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
2429: (
2430: l_api_name,
2431: G_PKG_NAME,
2432: 'OTHERS',
2454: FOR UPDATE NOWAIT;
2455:
2456: l_api_version CONSTANT NUMBER := 1;
2457: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
2458: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
2459: l_lock_var lock_csr%ROWTYPE;
2460: l_row_notfound BOOLEAN := FALSE;
2461: lc_row_notfound BOOLEAN := FALSE;
2462: BEGIN
2459: l_lock_var lock_csr%ROWTYPE;
2460: l_row_notfound BOOLEAN := FALSE;
2461: lc_row_notfound BOOLEAN := FALSE;
2462: BEGIN
2463: l_return_status := Okl_api.START_ACTIVITY(l_api_name,
2464: p_init_msg_list,
2465: '_PVT',
2466: x_return_status);
2467: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2463: l_return_status := Okl_api.START_ACTIVITY(l_api_name,
2464: p_init_msg_list,
2465: '_PVT',
2466: x_return_status);
2467: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2468: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2469: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2470: RAISE Okl_api.G_EXCEPTION_ERROR;
2471: END IF;
2464: p_init_msg_list,
2465: '_PVT',
2466: x_return_status);
2467: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2468: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2469: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2470: RAISE Okl_api.G_EXCEPTION_ERROR;
2471: END IF;
2472: BEGIN
2465: '_PVT',
2466: x_return_status);
2467: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2468: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2469: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2470: RAISE Okl_api.G_EXCEPTION_ERROR;
2471: END IF;
2472: BEGIN
2473: OPEN lock_csr(p_okl_txd_ar_ln_dtls_tl_rec);
2466: x_return_status);
2467: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2468: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2469: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2470: RAISE Okl_api.G_EXCEPTION_ERROR;
2471: END IF;
2472: BEGIN
2473: OPEN lock_csr(p_okl_txd_ar_ln_dtls_tl_rec);
2474: FETCH lock_csr INTO l_lock_var;
2478: WHEN E_Resource_Busy THEN
2479: IF (lock_csr%ISOPEN) THEN
2480: CLOSE lock_csr;
2481: END IF;
2482: Okl_api.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2483: RAISE App_Exceptions.RECORD_LOCK_EXCEPTION;
2484: END;
2485:
2486: IF ( l_row_notfound ) THEN
2483: RAISE App_Exceptions.RECORD_LOCK_EXCEPTION;
2484: END;
2485:
2486: IF ( l_row_notfound ) THEN
2487: Okl_api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2488: RAISE Okl_api.G_EXCEPTION_ERROR;
2489: END IF;
2490: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2491: EXCEPTION
2484: END;
2485:
2486: IF ( l_row_notfound ) THEN
2487: Okl_api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2488: RAISE Okl_api.G_EXCEPTION_ERROR;
2489: END IF;
2490: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2491: EXCEPTION
2492: WHEN Okl_api.G_EXCEPTION_ERROR THEN
2486: IF ( l_row_notfound ) THEN
2487: Okl_api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2488: RAISE Okl_api.G_EXCEPTION_ERROR;
2489: END IF;
2490: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2491: EXCEPTION
2492: WHEN Okl_api.G_EXCEPTION_ERROR THEN
2493: x_return_status := Okl_api.HANDLE_EXCEPTIONS
2494: (
2488: RAISE Okl_api.G_EXCEPTION_ERROR;
2489: END IF;
2490: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2491: EXCEPTION
2492: WHEN Okl_api.G_EXCEPTION_ERROR THEN
2493: x_return_status := Okl_api.HANDLE_EXCEPTIONS
2494: (
2495: l_api_name,
2496: G_PKG_NAME,
2489: END IF;
2490: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2491: EXCEPTION
2492: WHEN Okl_api.G_EXCEPTION_ERROR THEN
2493: x_return_status := Okl_api.HANDLE_EXCEPTIONS
2494: (
2495: l_api_name,
2496: G_PKG_NAME,
2497: 'Okl_api.G_RET_STS_ERROR',
2493: x_return_status := Okl_api.HANDLE_EXCEPTIONS
2494: (
2495: l_api_name,
2496: G_PKG_NAME,
2497: 'Okl_api.G_RET_STS_ERROR',
2498: x_msg_count,
2499: x_msg_data,
2500: '_PVT'
2501: );
2498: x_msg_count,
2499: x_msg_data,
2500: '_PVT'
2501: );
2502: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2503: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
2504: (
2505: l_api_name,
2506: G_PKG_NAME,
2499: x_msg_data,
2500: '_PVT'
2501: );
2502: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2503: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
2504: (
2505: l_api_name,
2506: G_PKG_NAME,
2507: 'Okl_api.G_RET_STS_UNEXP_ERROR',
2503: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
2504: (
2505: l_api_name,
2506: G_PKG_NAME,
2507: 'Okl_api.G_RET_STS_UNEXP_ERROR',
2508: x_msg_count,
2509: x_msg_data,
2510: '_PVT'
2511: );
2509: x_msg_data,
2510: '_PVT'
2511: );
2512: WHEN OTHERS THEN
2513: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
2514: (
2515: l_api_name,
2516: G_PKG_NAME,
2517: 'OTHERS',
2532: p_tldv_rec IN tldv_rec_type) IS
2533:
2534: l_api_version CONSTANT NUMBER := 1;
2535: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2536: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
2537: l_tld_rec tld_rec_type;
2538: l_okl_txd_ar_ln_dtls_tl_rec okl_txd_ar_ln_dtls_tl_rec_type;
2539: BEGIN
2540: l_return_status := Okl_api.START_ACTIVITY(l_api_name,
2536: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
2537: l_tld_rec tld_rec_type;
2538: l_okl_txd_ar_ln_dtls_tl_rec okl_txd_ar_ln_dtls_tl_rec_type;
2539: BEGIN
2540: l_return_status := Okl_api.START_ACTIVITY(l_api_name,
2541: G_PKG_NAME,
2542: p_init_msg_list,
2543: l_api_version,
2544: p_api_version,
2543: l_api_version,
2544: p_api_version,
2545: '_PVT',
2546: x_return_status);
2547: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2548: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2549: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2550: RAISE Okl_api.G_EXCEPTION_ERROR;
2551: END IF;
2544: p_api_version,
2545: '_PVT',
2546: x_return_status);
2547: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2548: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2549: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2550: RAISE Okl_api.G_EXCEPTION_ERROR;
2551: END IF;
2552: --------------------------------------
2545: '_PVT',
2546: x_return_status);
2547: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2548: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2549: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2550: RAISE Okl_api.G_EXCEPTION_ERROR;
2551: END IF;
2552: --------------------------------------
2553: -- Move VIEW record to "Child" records
2546: x_return_status);
2547: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2548: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2549: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
2550: RAISE Okl_api.G_EXCEPTION_ERROR;
2551: END IF;
2552: --------------------------------------
2553: -- Move VIEW record to "Child" records
2554: --------------------------------------
2563: x_msg_count,
2564: x_msg_data,
2565: l_tld_rec
2566: );
2567: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2568: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2569: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
2570: RAISE Okl_api.G_EXCEPTION_ERROR;
2571: END IF;
2564: x_msg_data,
2565: l_tld_rec
2566: );
2567: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2568: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2569: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
2570: RAISE Okl_api.G_EXCEPTION_ERROR;
2571: END IF;
2572: lock_row(
2565: l_tld_rec
2566: );
2567: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2568: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2569: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
2570: RAISE Okl_api.G_EXCEPTION_ERROR;
2571: END IF;
2572: lock_row(
2573: p_init_msg_list,
2566: );
2567: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2568: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2569: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
2570: RAISE Okl_api.G_EXCEPTION_ERROR;
2571: END IF;
2572: lock_row(
2573: p_init_msg_list,
2574: x_return_status,
2575: x_msg_count,
2576: x_msg_data,
2577: l_okl_txd_ar_ln_dtls_tl_rec
2578: );
2579: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2580: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2581: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
2582: RAISE Okl_api.G_EXCEPTION_ERROR;
2583: END IF;
2576: x_msg_data,
2577: l_okl_txd_ar_ln_dtls_tl_rec
2578: );
2579: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2580: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2581: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
2582: RAISE Okl_api.G_EXCEPTION_ERROR;
2583: END IF;
2584: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2577: l_okl_txd_ar_ln_dtls_tl_rec
2578: );
2579: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2580: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2581: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
2582: RAISE Okl_api.G_EXCEPTION_ERROR;
2583: END IF;
2584: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2585: EXCEPTION
2578: );
2579: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
2580: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2581: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
2582: RAISE Okl_api.G_EXCEPTION_ERROR;
2583: END IF;
2584: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2585: EXCEPTION
2586: WHEN Okl_api.G_EXCEPTION_ERROR THEN
2580: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2581: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
2582: RAISE Okl_api.G_EXCEPTION_ERROR;
2583: END IF;
2584: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2585: EXCEPTION
2586: WHEN Okl_api.G_EXCEPTION_ERROR THEN
2587: x_return_status := Okl_api.HANDLE_EXCEPTIONS
2588: (
2582: RAISE Okl_api.G_EXCEPTION_ERROR;
2583: END IF;
2584: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2585: EXCEPTION
2586: WHEN Okl_api.G_EXCEPTION_ERROR THEN
2587: x_return_status := Okl_api.HANDLE_EXCEPTIONS
2588: (
2589: l_api_name,
2590: G_PKG_NAME,
2583: END IF;
2584: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2585: EXCEPTION
2586: WHEN Okl_api.G_EXCEPTION_ERROR THEN
2587: x_return_status := Okl_api.HANDLE_EXCEPTIONS
2588: (
2589: l_api_name,
2590: G_PKG_NAME,
2591: 'Okl_api.G_RET_STS_ERROR',
2587: x_return_status := Okl_api.HANDLE_EXCEPTIONS
2588: (
2589: l_api_name,
2590: G_PKG_NAME,
2591: 'Okl_api.G_RET_STS_ERROR',
2592: x_msg_count,
2593: x_msg_data,
2594: '_PVT'
2595: );
2592: x_msg_count,
2593: x_msg_data,
2594: '_PVT'
2595: );
2596: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2597: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
2598: (
2599: l_api_name,
2600: G_PKG_NAME,
2593: x_msg_data,
2594: '_PVT'
2595: );
2596: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2597: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
2598: (
2599: l_api_name,
2600: G_PKG_NAME,
2601: 'Okl_api.G_RET_STS_UNEXP_ERROR',
2597: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
2598: (
2599: l_api_name,
2600: G_PKG_NAME,
2601: 'Okl_api.G_RET_STS_UNEXP_ERROR',
2602: x_msg_count,
2603: x_msg_data,
2604: '_PVT'
2605: );
2603: x_msg_data,
2604: '_PVT'
2605: );
2606: WHEN OTHERS THEN
2607: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
2608: (
2609: l_api_name,
2610: G_PKG_NAME,
2611: 'OTHERS',
2626: p_tldv_tbl IN tldv_tbl_type) IS
2627:
2628: l_api_version CONSTANT NUMBER := 1;
2629: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2630: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
2631: -- Begin Post-Generation Change
2632: -- overall error status
2633: l_overall_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
2634: -- End Post-Generation Change
2629: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2630: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
2631: -- Begin Post-Generation Change
2632: -- overall error status
2633: l_overall_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
2634: -- End Post-Generation Change
2635: i NUMBER := 0;
2636: BEGIN
2637: Okl_api.init_msg_list(p_init_msg_list);
2633: l_overall_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
2634: -- End Post-Generation Change
2635: i NUMBER := 0;
2636: BEGIN
2637: Okl_api.init_msg_list(p_init_msg_list);
2638: -- Make sure PL/SQL table has records in it before passing
2639: IF (p_tldv_tbl.COUNT > 0) THEN
2640: i := p_tldv_tbl.FIRST;
2641: LOOP
2640: i := p_tldv_tbl.FIRST;
2641: LOOP
2642: lock_row (
2643: p_api_version => p_api_version,
2644: p_init_msg_list => Okl_api.G_FALSE,
2645: x_return_status => x_return_status,
2646: x_msg_count => x_msg_count,
2647: x_msg_data => x_msg_data,
2648: p_tldv_rec => p_tldv_tbl(i));
2647: x_msg_data => x_msg_data,
2648: p_tldv_rec => p_tldv_tbl(i));
2649: -- Begin Post-Generation Change
2650: -- store the highest degree of error
2651: IF x_return_status <> Okl_api.G_RET_STS_SUCCESS THEN
2652: IF l_overall_status <> Okl_api.G_RET_STS_UNEXP_ERROR THEN
2653: l_overall_status := x_return_status;
2654: END IF;
2655: END IF;
2648: p_tldv_rec => p_tldv_tbl(i));
2649: -- Begin Post-Generation Change
2650: -- store the highest degree of error
2651: IF x_return_status <> Okl_api.G_RET_STS_SUCCESS THEN
2652: IF l_overall_status <> Okl_api.G_RET_STS_UNEXP_ERROR THEN
2653: l_overall_status := x_return_status;
2654: END IF;
2655: END IF;
2656: -- End Post-Generation Change
2662: x_return_status := l_overall_status;
2663: -- End Post-Generation Change
2664: END IF;
2665: EXCEPTION
2666: WHEN Okl_api.G_EXCEPTION_ERROR THEN
2667: x_return_status := Okl_api.HANDLE_EXCEPTIONS
2668: (
2669: l_api_name,
2670: G_PKG_NAME,
2663: -- End Post-Generation Change
2664: END IF;
2665: EXCEPTION
2666: WHEN Okl_api.G_EXCEPTION_ERROR THEN
2667: x_return_status := Okl_api.HANDLE_EXCEPTIONS
2668: (
2669: l_api_name,
2670: G_PKG_NAME,
2671: 'Okl_api.G_RET_STS_ERROR',
2667: x_return_status := Okl_api.HANDLE_EXCEPTIONS
2668: (
2669: l_api_name,
2670: G_PKG_NAME,
2671: 'Okl_api.G_RET_STS_ERROR',
2672: x_msg_count,
2673: x_msg_data,
2674: '_PVT'
2675: );
2672: x_msg_count,
2673: x_msg_data,
2674: '_PVT'
2675: );
2676: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2677: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
2678: (
2679: l_api_name,
2680: G_PKG_NAME,
2673: x_msg_data,
2674: '_PVT'
2675: );
2676: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2677: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
2678: (
2679: l_api_name,
2680: G_PKG_NAME,
2681: 'Okl_api.G_RET_STS_UNEXP_ERROR',
2677: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
2678: (
2679: l_api_name,
2680: G_PKG_NAME,
2681: 'Okl_api.G_RET_STS_UNEXP_ERROR',
2682: x_msg_count,
2683: x_msg_data,
2684: '_PVT'
2685: );
2683: x_msg_data,
2684: '_PVT'
2685: );
2686: WHEN OTHERS THEN
2687: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
2688: (
2689: l_api_name,
2690: G_PKG_NAME,
2691: 'OTHERS',
2710: x_tld_rec OUT NOCOPY tld_rec_type) IS
2711:
2712: l_api_version CONSTANT NUMBER := 1;
2713: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
2714: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
2715: l_tld_rec tld_rec_type := p_tld_rec;
2716: l_def_tld_rec tld_rec_type;
2717: l_row_notfound BOOLEAN := TRUE;
2718: ----------------------------------
2723: x_tld_rec OUT NOCOPY tld_rec_type
2724: ) RETURN VARCHAR2 IS
2725: l_tld_rec tld_rec_type;
2726: l_row_notfound BOOLEAN := TRUE;
2727: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
2728: BEGIN
2729: x_tld_rec := p_tld_rec;
2730: -- Get current database values
2731: l_tld_rec := get_rec(p_tld_rec, l_row_notfound);
2729: x_tld_rec := p_tld_rec;
2730: -- Get current database values
2731: l_tld_rec := get_rec(p_tld_rec, l_row_notfound);
2732: IF (l_row_notfound) THEN
2733: l_return_status := Okl_api.G_RET_STS_UNEXP_ERROR;
2734: END IF;
2735: IF (x_tld_rec.id = Okl_api.G_MISS_NUM)
2736: THEN
2737: x_tld_rec.id := l_tld_rec.id;
2731: l_tld_rec := get_rec(p_tld_rec, l_row_notfound);
2732: IF (l_row_notfound) THEN
2733: l_return_status := Okl_api.G_RET_STS_UNEXP_ERROR;
2734: END IF;
2735: IF (x_tld_rec.id = Okl_api.G_MISS_NUM)
2736: THEN
2737: x_tld_rec.id := l_tld_rec.id;
2738: END IF;
2739: IF (x_tld_rec.bch_id = Okl_api.G_MISS_NUM)
2735: IF (x_tld_rec.id = Okl_api.G_MISS_NUM)
2736: THEN
2737: x_tld_rec.id := l_tld_rec.id;
2738: END IF;
2739: IF (x_tld_rec.bch_id = Okl_api.G_MISS_NUM)
2740: THEN
2741: x_tld_rec.bch_id := l_tld_rec.bch_id;
2742: END IF;
2743: IF (x_tld_rec.bcl_id = Okl_api.G_MISS_NUM)
2739: IF (x_tld_rec.bch_id = Okl_api.G_MISS_NUM)
2740: THEN
2741: x_tld_rec.bch_id := l_tld_rec.bch_id;
2742: END IF;
2743: IF (x_tld_rec.bcl_id = Okl_api.G_MISS_NUM)
2744: THEN
2745: x_tld_rec.bcl_id := l_tld_rec.bcl_id;
2746: END IF;
2747: IF (x_tld_rec.bsl_id = Okl_api.G_MISS_NUM)
2743: IF (x_tld_rec.bcl_id = Okl_api.G_MISS_NUM)
2744: THEN
2745: x_tld_rec.bcl_id := l_tld_rec.bcl_id;
2746: END IF;
2747: IF (x_tld_rec.bsl_id = Okl_api.G_MISS_NUM)
2748: THEN
2749: x_tld_rec.bsl_id := l_tld_rec.bsl_id;
2750: END IF;
2751: IF (x_tld_rec.bgh_id = Okl_api.G_MISS_NUM)
2747: IF (x_tld_rec.bsl_id = Okl_api.G_MISS_NUM)
2748: THEN
2749: x_tld_rec.bsl_id := l_tld_rec.bsl_id;
2750: END IF;
2751: IF (x_tld_rec.bgh_id = Okl_api.G_MISS_NUM)
2752: THEN
2753: x_tld_rec.bgh_id := l_tld_rec.bgh_id;
2754: END IF;
2755: IF (x_tld_rec.idx_id = Okl_api.G_MISS_NUM)
2751: IF (x_tld_rec.bgh_id = Okl_api.G_MISS_NUM)
2752: THEN
2753: x_tld_rec.bgh_id := l_tld_rec.bgh_id;
2754: END IF;
2755: IF (x_tld_rec.idx_id = Okl_api.G_MISS_NUM)
2756: THEN
2757: x_tld_rec.idx_id := l_tld_rec.idx_id;
2758: END IF;
2759: IF (x_tld_rec.sel_id = Okl_api.G_MISS_NUM)
2755: IF (x_tld_rec.idx_id = Okl_api.G_MISS_NUM)
2756: THEN
2757: x_tld_rec.idx_id := l_tld_rec.idx_id;
2758: END IF;
2759: IF (x_tld_rec.sel_id = Okl_api.G_MISS_NUM)
2760: THEN
2761: x_tld_rec.sel_id := l_tld_rec.sel_id;
2762: END IF;
2763: IF (x_tld_rec.sty_id = Okl_api.G_MISS_NUM)
2759: IF (x_tld_rec.sel_id = Okl_api.G_MISS_NUM)
2760: THEN
2761: x_tld_rec.sel_id := l_tld_rec.sel_id;
2762: END IF;
2763: IF (x_tld_rec.sty_id = Okl_api.G_MISS_NUM)
2764: THEN
2765: x_tld_rec.sty_id := l_tld_rec.sty_id;
2766: END IF;
2767: IF (x_tld_rec.til_id_details = Okl_api.G_MISS_NUM)
2763: IF (x_tld_rec.sty_id = Okl_api.G_MISS_NUM)
2764: THEN
2765: x_tld_rec.sty_id := l_tld_rec.sty_id;
2766: END IF;
2767: IF (x_tld_rec.til_id_details = Okl_api.G_MISS_NUM)
2768: THEN
2769: x_tld_rec.til_id_details := l_tld_rec.til_id_details;
2770: END IF;
2771: IF (x_tld_rec.tld_id_reverses = Okl_api.G_MISS_NUM)
2767: IF (x_tld_rec.til_id_details = Okl_api.G_MISS_NUM)
2768: THEN
2769: x_tld_rec.til_id_details := l_tld_rec.til_id_details;
2770: END IF;
2771: IF (x_tld_rec.tld_id_reverses = Okl_api.G_MISS_NUM)
2772: THEN
2773: x_tld_rec.tld_id_reverses := l_tld_rec.tld_id_reverses;
2774: END IF;
2775: IF (x_tld_rec.line_detail_number = Okl_api.G_MISS_NUM)
2771: IF (x_tld_rec.tld_id_reverses = Okl_api.G_MISS_NUM)
2772: THEN
2773: x_tld_rec.tld_id_reverses := l_tld_rec.tld_id_reverses;
2774: END IF;
2775: IF (x_tld_rec.line_detail_number = Okl_api.G_MISS_NUM)
2776: THEN
2777: x_tld_rec.line_detail_number := l_tld_rec.line_detail_number;
2778: END IF;
2779: IF (x_tld_rec.object_version_number = Okl_api.G_MISS_NUM)
2775: IF (x_tld_rec.line_detail_number = Okl_api.G_MISS_NUM)
2776: THEN
2777: x_tld_rec.line_detail_number := l_tld_rec.line_detail_number;
2778: END IF;
2779: IF (x_tld_rec.object_version_number = Okl_api.G_MISS_NUM)
2780: THEN
2781: x_tld_rec.object_version_number := l_tld_rec.object_version_number;
2782: END IF;
2783: IF (x_tld_rec.late_charge_yn = Okl_api.G_MISS_CHAR)
2779: IF (x_tld_rec.object_version_number = Okl_api.G_MISS_NUM)
2780: THEN
2781: x_tld_rec.object_version_number := l_tld_rec.object_version_number;
2782: END IF;
2783: IF (x_tld_rec.late_charge_yn = Okl_api.G_MISS_CHAR)
2784: THEN
2785: x_tld_rec.late_charge_yn := l_tld_rec.late_charge_yn;
2786: END IF;
2787: IF (x_tld_rec.date_calculation = Okl_api.G_MISS_DATE)
2783: IF (x_tld_rec.late_charge_yn = Okl_api.G_MISS_CHAR)
2784: THEN
2785: x_tld_rec.late_charge_yn := l_tld_rec.late_charge_yn;
2786: END IF;
2787: IF (x_tld_rec.date_calculation = Okl_api.G_MISS_DATE)
2788: THEN
2789: x_tld_rec.date_calculation := l_tld_rec.date_calculation;
2790: END IF;
2791: IF (x_tld_rec.fixed_rate_yn = Okl_api.G_MISS_CHAR)
2787: IF (x_tld_rec.date_calculation = Okl_api.G_MISS_DATE)
2788: THEN
2789: x_tld_rec.date_calculation := l_tld_rec.date_calculation;
2790: END IF;
2791: IF (x_tld_rec.fixed_rate_yn = Okl_api.G_MISS_CHAR)
2792: THEN
2793: x_tld_rec.fixed_rate_yn := l_tld_rec.fixed_rate_yn;
2794: END IF;
2795: IF (x_tld_rec.amount = Okl_api.G_MISS_NUM)
2791: IF (x_tld_rec.fixed_rate_yn = Okl_api.G_MISS_CHAR)
2792: THEN
2793: x_tld_rec.fixed_rate_yn := l_tld_rec.fixed_rate_yn;
2794: END IF;
2795: IF (x_tld_rec.amount = Okl_api.G_MISS_NUM)
2796: THEN
2797: x_tld_rec.amount := l_tld_rec.amount;
2798: END IF;
2799: IF (x_tld_rec.receivables_invoice_id = Okl_api.G_MISS_NUM)
2795: IF (x_tld_rec.amount = Okl_api.G_MISS_NUM)
2796: THEN
2797: x_tld_rec.amount := l_tld_rec.amount;
2798: END IF;
2799: IF (x_tld_rec.receivables_invoice_id = Okl_api.G_MISS_NUM)
2800: THEN
2801: x_tld_rec.receivables_invoice_id := l_tld_rec.receivables_invoice_id;
2802: END IF;
2803: IF (x_tld_rec.amount_applied = Okl_api.G_MISS_NUM)
2799: IF (x_tld_rec.receivables_invoice_id = Okl_api.G_MISS_NUM)
2800: THEN
2801: x_tld_rec.receivables_invoice_id := l_tld_rec.receivables_invoice_id;
2802: END IF;
2803: IF (x_tld_rec.amount_applied = Okl_api.G_MISS_NUM)
2804: THEN
2805: x_tld_rec.amount_applied := l_tld_rec.amount_applied;
2806: END IF;
2807: IF (x_tld_rec.request_id = Okl_api.G_MISS_NUM)
2803: IF (x_tld_rec.amount_applied = Okl_api.G_MISS_NUM)
2804: THEN
2805: x_tld_rec.amount_applied := l_tld_rec.amount_applied;
2806: END IF;
2807: IF (x_tld_rec.request_id = Okl_api.G_MISS_NUM)
2808: THEN
2809: x_tld_rec.request_id := l_tld_rec.request_id;
2810: END IF;
2811: IF (x_tld_rec.program_application_id = Okl_api.G_MISS_NUM)
2807: IF (x_tld_rec.request_id = Okl_api.G_MISS_NUM)
2808: THEN
2809: x_tld_rec.request_id := l_tld_rec.request_id;
2810: END IF;
2811: IF (x_tld_rec.program_application_id = Okl_api.G_MISS_NUM)
2812: THEN
2813: x_tld_rec.program_application_id := l_tld_rec.program_application_id;
2814: END IF;
2815: IF (x_tld_rec.program_id = Okl_api.G_MISS_NUM)
2811: IF (x_tld_rec.program_application_id = Okl_api.G_MISS_NUM)
2812: THEN
2813: x_tld_rec.program_application_id := l_tld_rec.program_application_id;
2814: END IF;
2815: IF (x_tld_rec.program_id = Okl_api.G_MISS_NUM)
2816: THEN
2817: x_tld_rec.program_id := l_tld_rec.program_id;
2818: END IF;
2819: IF (x_tld_rec.program_update_date = Okl_api.G_MISS_DATE)
2815: IF (x_tld_rec.program_id = Okl_api.G_MISS_NUM)
2816: THEN
2817: x_tld_rec.program_id := l_tld_rec.program_id;
2818: END IF;
2819: IF (x_tld_rec.program_update_date = Okl_api.G_MISS_DATE)
2820: THEN
2821: x_tld_rec.program_update_date := l_tld_rec.program_update_date;
2822: END IF;
2823: IF (x_tld_rec.org_id = Okl_api.G_MISS_NUM)
2819: IF (x_tld_rec.program_update_date = Okl_api.G_MISS_DATE)
2820: THEN
2821: x_tld_rec.program_update_date := l_tld_rec.program_update_date;
2822: END IF;
2823: IF (x_tld_rec.org_id = Okl_api.G_MISS_NUM)
2824: THEN
2825: x_tld_rec.org_id := l_tld_rec.org_id;
2826: END IF;
2827:
2824: THEN
2825: x_tld_rec.org_id := l_tld_rec.org_id;
2826: END IF;
2827:
2828: IF (x_tld_rec.inventory_org_id = Okl_api.G_MISS_NUM)
2829: THEN
2830: x_tld_rec.inventory_org_id := l_tld_rec.inventory_org_id;
2831: END IF;
2832: -- Start changes on remarketing by fmiao on 10/18/04 --
2829: THEN
2830: x_tld_rec.inventory_org_id := l_tld_rec.inventory_org_id;
2831: END IF;
2832: -- Start changes on remarketing by fmiao on 10/18/04 --
2833: IF (x_tld_rec.inventory_item_id = Okl_api.G_MISS_NUM)
2834: THEN
2835: x_tld_rec.inventory_item_id := l_tld_rec.inventory_item_id;
2836: END IF;
2837: -- End changes on remarketing by fmiao on 10/18/04 --
2837: -- End changes on remarketing by fmiao on 10/18/04 --
2838: --cklee
2839: --start: 30-Jan-07 cklee Billing R12 project |
2840: --gkhuntet 10-JUL_2007 Start
2841: IF (x_tld_rec.TXL_AR_LINE_NUMBER = Okl_api.G_MISS_NUM) THEN
2842: x_tld_rec.TXL_AR_LINE_NUMBER := l_tld_rec.TXL_AR_LINE_NUMBER;
2843: END IF;
2844:
2845: IF (x_tld_rec.INVOICE_FORMAT_TYPE = Okl_api.G_MISS_CHAR) THEN
2841: IF (x_tld_rec.TXL_AR_LINE_NUMBER = Okl_api.G_MISS_NUM) THEN
2842: x_tld_rec.TXL_AR_LINE_NUMBER := l_tld_rec.TXL_AR_LINE_NUMBER;
2843: END IF;
2844:
2845: IF (x_tld_rec.INVOICE_FORMAT_TYPE = Okl_api.G_MISS_CHAR) THEN
2846: x_tld_rec.INVOICE_FORMAT_TYPE := l_tld_rec.INVOICE_FORMAT_TYPE;
2847: END IF;
2848:
2849: IF (x_tld_rec.INVOICE_FORMAT_LINE_TYPE = Okl_api.G_MISS_CHAR) THEN
2845: IF (x_tld_rec.INVOICE_FORMAT_TYPE = Okl_api.G_MISS_CHAR) THEN
2846: x_tld_rec.INVOICE_FORMAT_TYPE := l_tld_rec.INVOICE_FORMAT_TYPE;
2847: END IF;
2848:
2849: IF (x_tld_rec.INVOICE_FORMAT_LINE_TYPE = Okl_api.G_MISS_CHAR) THEN
2850: x_tld_rec.INVOICE_FORMAT_LINE_TYPE := l_tld_rec.INVOICE_FORMAT_LINE_TYPE;
2851: END IF;
2852:
2853: IF (x_tld_rec.LATE_CHARGE_ASSESS_DATE = Okl_api.G_MISS_DATE) THEN
2849: IF (x_tld_rec.INVOICE_FORMAT_LINE_TYPE = Okl_api.G_MISS_CHAR) THEN
2850: x_tld_rec.INVOICE_FORMAT_LINE_TYPE := l_tld_rec.INVOICE_FORMAT_LINE_TYPE;
2851: END IF;
2852:
2853: IF (x_tld_rec.LATE_CHARGE_ASSESS_DATE = Okl_api.G_MISS_DATE) THEN
2854: x_tld_rec.LATE_CHARGE_ASSESS_DATE := l_tld_rec.LATE_CHARGE_ASSESS_DATE;
2855: END IF;
2856:
2857: IF (x_tld_rec.LATE_INT_ASSESS_DATE = Okl_api.G_MISS_DATE) THEN
2853: IF (x_tld_rec.LATE_CHARGE_ASSESS_DATE = Okl_api.G_MISS_DATE) THEN
2854: x_tld_rec.LATE_CHARGE_ASSESS_DATE := l_tld_rec.LATE_CHARGE_ASSESS_DATE;
2855: END IF;
2856:
2857: IF (x_tld_rec.LATE_INT_ASSESS_DATE = Okl_api.G_MISS_DATE) THEN
2858: x_tld_rec.LATE_INT_ASSESS_DATE := l_tld_rec.LATE_INT_ASSESS_DATE;
2859: END IF;
2860:
2861: IF (x_tld_rec.LATE_CHARGE_ASS_YN = Okl_api.G_MISS_CHAR) THEN
2857: IF (x_tld_rec.LATE_INT_ASSESS_DATE = Okl_api.G_MISS_DATE) THEN
2858: x_tld_rec.LATE_INT_ASSESS_DATE := l_tld_rec.LATE_INT_ASSESS_DATE;
2859: END IF;
2860:
2861: IF (x_tld_rec.LATE_CHARGE_ASS_YN = Okl_api.G_MISS_CHAR) THEN
2862: x_tld_rec.LATE_CHARGE_ASS_YN := l_tld_rec.LATE_CHARGE_ASS_YN;
2863: END IF;
2864:
2865: IF (x_tld_rec.LATE_INT_ASS_YN = Okl_api.G_MISS_CHAR) THEN
2861: IF (x_tld_rec.LATE_CHARGE_ASS_YN = Okl_api.G_MISS_CHAR) THEN
2862: x_tld_rec.LATE_CHARGE_ASS_YN := l_tld_rec.LATE_CHARGE_ASS_YN;
2863: END IF;
2864:
2865: IF (x_tld_rec.LATE_INT_ASS_YN = Okl_api.G_MISS_CHAR) THEN
2866: x_tld_rec.LATE_INT_ASS_YN := l_tld_rec.LATE_INT_ASS_YN;
2867: END IF;
2868:
2869: IF (x_tld_rec.INVESTOR_DISB_STATUS = Okl_api.G_MISS_CHAR) THEN
2865: IF (x_tld_rec.LATE_INT_ASS_YN = Okl_api.G_MISS_CHAR) THEN
2866: x_tld_rec.LATE_INT_ASS_YN := l_tld_rec.LATE_INT_ASS_YN;
2867: END IF;
2868:
2869: IF (x_tld_rec.INVESTOR_DISB_STATUS = Okl_api.G_MISS_CHAR) THEN
2870: x_tld_rec.INVESTOR_DISB_STATUS := l_tld_rec.INVESTOR_DISB_STATUS;
2871: END IF;
2872:
2873: IF (x_tld_rec.INVESTOR_DISB_ERR_MG = Okl_api.G_MISS_CHAR) THEN
2869: IF (x_tld_rec.INVESTOR_DISB_STATUS = Okl_api.G_MISS_CHAR) THEN
2870: x_tld_rec.INVESTOR_DISB_STATUS := l_tld_rec.INVESTOR_DISB_STATUS;
2871: END IF;
2872:
2873: IF (x_tld_rec.INVESTOR_DISB_ERR_MG = Okl_api.G_MISS_CHAR) THEN
2874: x_tld_rec.INVESTOR_DISB_ERR_MG := l_tld_rec.INVESTOR_DISB_ERR_MG;
2875: END IF;
2876:
2877: IF (x_tld_rec.DATE_DISBURSED = Okl_api.G_MISS_DATE) THEN
2873: IF (x_tld_rec.INVESTOR_DISB_ERR_MG = Okl_api.G_MISS_CHAR) THEN
2874: x_tld_rec.INVESTOR_DISB_ERR_MG := l_tld_rec.INVESTOR_DISB_ERR_MG;
2875: END IF;
2876:
2877: IF (x_tld_rec.DATE_DISBURSED = Okl_api.G_MISS_DATE) THEN
2878: x_tld_rec.DATE_DISBURSED := l_tld_rec.DATE_DISBURSED;
2879: END IF;
2880:
2881: IF (x_tld_rec.PAY_STATUS_CODE = Okl_api.G_MISS_CHAR) THEN
2877: IF (x_tld_rec.DATE_DISBURSED = Okl_api.G_MISS_DATE) THEN
2878: x_tld_rec.DATE_DISBURSED := l_tld_rec.DATE_DISBURSED;
2879: END IF;
2880:
2881: IF (x_tld_rec.PAY_STATUS_CODE = Okl_api.G_MISS_CHAR) THEN
2882: x_tld_rec.PAY_STATUS_CODE := l_tld_rec.PAY_STATUS_CODE;
2883: END IF;
2884:
2885: IF (x_tld_rec.RBK_ORI_INVOICE_NUMBER = Okl_api.G_MISS_CHAR) THEN
2881: IF (x_tld_rec.PAY_STATUS_CODE = Okl_api.G_MISS_CHAR) THEN
2882: x_tld_rec.PAY_STATUS_CODE := l_tld_rec.PAY_STATUS_CODE;
2883: END IF;
2884:
2885: IF (x_tld_rec.RBK_ORI_INVOICE_NUMBER = Okl_api.G_MISS_CHAR) THEN
2886: x_tld_rec.RBK_ORI_INVOICE_NUMBER := l_tld_rec.RBK_ORI_INVOICE_NUMBER;
2887: END IF;
2888:
2889: IF (x_tld_rec.RBK_ORI_INVOICE_LINE_NUMBER = Okl_api.G_MISS_CHAR) THEN
2885: IF (x_tld_rec.RBK_ORI_INVOICE_NUMBER = Okl_api.G_MISS_CHAR) THEN
2886: x_tld_rec.RBK_ORI_INVOICE_NUMBER := l_tld_rec.RBK_ORI_INVOICE_NUMBER;
2887: END IF;
2888:
2889: IF (x_tld_rec.RBK_ORI_INVOICE_LINE_NUMBER = Okl_api.G_MISS_CHAR) THEN
2890: x_tld_rec.RBK_ORI_INVOICE_LINE_NUMBER := l_tld_rec.RBK_ORI_INVOICE_LINE_NUMBER;
2891: END IF;
2892:
2893: IF (x_tld_rec.RBK_ADJUSTMENT_DATE = Okl_api.G_MISS_DATE) THEN
2889: IF (x_tld_rec.RBK_ORI_INVOICE_LINE_NUMBER = Okl_api.G_MISS_CHAR) THEN
2890: x_tld_rec.RBK_ORI_INVOICE_LINE_NUMBER := l_tld_rec.RBK_ORI_INVOICE_LINE_NUMBER;
2891: END IF;
2892:
2893: IF (x_tld_rec.RBK_ADJUSTMENT_DATE = Okl_api.G_MISS_DATE) THEN
2894: x_tld_rec.RBK_ADJUSTMENT_DATE := l_tld_rec.RBK_ADJUSTMENT_DATE;
2895: END IF;
2896:
2897: IF (x_tld_rec.KHR_ID = Okl_api.G_MISS_NUM) THEN
2893: IF (x_tld_rec.RBK_ADJUSTMENT_DATE = Okl_api.G_MISS_DATE) THEN
2894: x_tld_rec.RBK_ADJUSTMENT_DATE := l_tld_rec.RBK_ADJUSTMENT_DATE;
2895: END IF;
2896:
2897: IF (x_tld_rec.KHR_ID = Okl_api.G_MISS_NUM) THEN
2898: x_tld_rec.KHR_ID := l_tld_rec.KHR_ID;
2899: END IF;
2900:
2901: IF (x_tld_rec.KLE_ID = Okl_api.G_MISS_NUM) THEN
2897: IF (x_tld_rec.KHR_ID = Okl_api.G_MISS_NUM) THEN
2898: x_tld_rec.KHR_ID := l_tld_rec.KHR_ID;
2899: END IF;
2900:
2901: IF (x_tld_rec.KLE_ID = Okl_api.G_MISS_NUM) THEN
2902: x_tld_rec.KLE_ID := l_tld_rec.KLE_ID;
2903: END IF;
2904:
2905: IF (x_tld_rec.TAX_AMOUNT = Okl_api.G_MISS_NUM) THEN
2901: IF (x_tld_rec.KLE_ID = Okl_api.G_MISS_NUM) THEN
2902: x_tld_rec.KLE_ID := l_tld_rec.KLE_ID;
2903: END IF;
2904:
2905: IF (x_tld_rec.TAX_AMOUNT = Okl_api.G_MISS_NUM) THEN
2906: x_tld_rec.TAX_AMOUNT := l_tld_rec.TAX_AMOUNT;
2907: END IF;
2908:
2909: --gkhuntet 10-JUL_2007 End
2911:
2912:
2913:
2914:
2915: IF (x_tld_rec.attribute_category = Okl_api.G_MISS_CHAR)
2916: THEN
2917: x_tld_rec.attribute_category := l_tld_rec.attribute_category;
2918: END IF;
2919: IF (x_tld_rec.attribute1 = Okl_api.G_MISS_CHAR)
2915: IF (x_tld_rec.attribute_category = Okl_api.G_MISS_CHAR)
2916: THEN
2917: x_tld_rec.attribute_category := l_tld_rec.attribute_category;
2918: END IF;
2919: IF (x_tld_rec.attribute1 = Okl_api.G_MISS_CHAR)
2920: THEN
2921: x_tld_rec.attribute1 := l_tld_rec.attribute1;
2922: END IF;
2923: IF (x_tld_rec.attribute2 = Okl_api.G_MISS_CHAR)
2919: IF (x_tld_rec.attribute1 = Okl_api.G_MISS_CHAR)
2920: THEN
2921: x_tld_rec.attribute1 := l_tld_rec.attribute1;
2922: END IF;
2923: IF (x_tld_rec.attribute2 = Okl_api.G_MISS_CHAR)
2924: THEN
2925: x_tld_rec.attribute2 := l_tld_rec.attribute2;
2926: END IF;
2927: IF (x_tld_rec.attribute3 = Okl_api.G_MISS_CHAR)
2923: IF (x_tld_rec.attribute2 = Okl_api.G_MISS_CHAR)
2924: THEN
2925: x_tld_rec.attribute2 := l_tld_rec.attribute2;
2926: END IF;
2927: IF (x_tld_rec.attribute3 = Okl_api.G_MISS_CHAR)
2928: THEN
2929: x_tld_rec.attribute3 := l_tld_rec.attribute3;
2930: END IF;
2931: IF (x_tld_rec.attribute4 = Okl_api.G_MISS_CHAR)
2927: IF (x_tld_rec.attribute3 = Okl_api.G_MISS_CHAR)
2928: THEN
2929: x_tld_rec.attribute3 := l_tld_rec.attribute3;
2930: END IF;
2931: IF (x_tld_rec.attribute4 = Okl_api.G_MISS_CHAR)
2932: THEN
2933: x_tld_rec.attribute4 := l_tld_rec.attribute4;
2934: END IF;
2935: IF (x_tld_rec.attribute5 = Okl_api.G_MISS_CHAR)
2931: IF (x_tld_rec.attribute4 = Okl_api.G_MISS_CHAR)
2932: THEN
2933: x_tld_rec.attribute4 := l_tld_rec.attribute4;
2934: END IF;
2935: IF (x_tld_rec.attribute5 = Okl_api.G_MISS_CHAR)
2936: THEN
2937: x_tld_rec.attribute5 := l_tld_rec.attribute5;
2938: END IF;
2939: IF (x_tld_rec.attribute6 = Okl_api.G_MISS_CHAR)
2935: IF (x_tld_rec.attribute5 = Okl_api.G_MISS_CHAR)
2936: THEN
2937: x_tld_rec.attribute5 := l_tld_rec.attribute5;
2938: END IF;
2939: IF (x_tld_rec.attribute6 = Okl_api.G_MISS_CHAR)
2940: THEN
2941: x_tld_rec.attribute6 := l_tld_rec.attribute6;
2942: END IF;
2943: IF (x_tld_rec.attribute7 = Okl_api.G_MISS_CHAR)
2939: IF (x_tld_rec.attribute6 = Okl_api.G_MISS_CHAR)
2940: THEN
2941: x_tld_rec.attribute6 := l_tld_rec.attribute6;
2942: END IF;
2943: IF (x_tld_rec.attribute7 = Okl_api.G_MISS_CHAR)
2944: THEN
2945: x_tld_rec.attribute7 := l_tld_rec.attribute7;
2946: END IF;
2947: IF (x_tld_rec.attribute8 = Okl_api.G_MISS_CHAR)
2943: IF (x_tld_rec.attribute7 = Okl_api.G_MISS_CHAR)
2944: THEN
2945: x_tld_rec.attribute7 := l_tld_rec.attribute7;
2946: END IF;
2947: IF (x_tld_rec.attribute8 = Okl_api.G_MISS_CHAR)
2948: THEN
2949: x_tld_rec.attribute8 := l_tld_rec.attribute8;
2950: END IF;
2951: IF (x_tld_rec.attribute9 = Okl_api.G_MISS_CHAR)
2947: IF (x_tld_rec.attribute8 = Okl_api.G_MISS_CHAR)
2948: THEN
2949: x_tld_rec.attribute8 := l_tld_rec.attribute8;
2950: END IF;
2951: IF (x_tld_rec.attribute9 = Okl_api.G_MISS_CHAR)
2952: THEN
2953: x_tld_rec.attribute9 := l_tld_rec.attribute9;
2954: END IF;
2955: IF (x_tld_rec.attribute10 = Okl_api.G_MISS_CHAR)
2951: IF (x_tld_rec.attribute9 = Okl_api.G_MISS_CHAR)
2952: THEN
2953: x_tld_rec.attribute9 := l_tld_rec.attribute9;
2954: END IF;
2955: IF (x_tld_rec.attribute10 = Okl_api.G_MISS_CHAR)
2956: THEN
2957: x_tld_rec.attribute10 := l_tld_rec.attribute10;
2958: END IF;
2959: IF (x_tld_rec.attribute11 = Okl_api.G_MISS_CHAR)
2955: IF (x_tld_rec.attribute10 = Okl_api.G_MISS_CHAR)
2956: THEN
2957: x_tld_rec.attribute10 := l_tld_rec.attribute10;
2958: END IF;
2959: IF (x_tld_rec.attribute11 = Okl_api.G_MISS_CHAR)
2960: THEN
2961: x_tld_rec.attribute11 := l_tld_rec.attribute11;
2962: END IF;
2963: IF (x_tld_rec.attribute12 = Okl_api.G_MISS_CHAR)
2959: IF (x_tld_rec.attribute11 = Okl_api.G_MISS_CHAR)
2960: THEN
2961: x_tld_rec.attribute11 := l_tld_rec.attribute11;
2962: END IF;
2963: IF (x_tld_rec.attribute12 = Okl_api.G_MISS_CHAR)
2964: THEN
2965: x_tld_rec.attribute12 := l_tld_rec.attribute12;
2966: END IF;
2967: IF (x_tld_rec.attribute13 = Okl_api.G_MISS_CHAR)
2963: IF (x_tld_rec.attribute12 = Okl_api.G_MISS_CHAR)
2964: THEN
2965: x_tld_rec.attribute12 := l_tld_rec.attribute12;
2966: END IF;
2967: IF (x_tld_rec.attribute13 = Okl_api.G_MISS_CHAR)
2968: THEN
2969: x_tld_rec.attribute13 := l_tld_rec.attribute13;
2970: END IF;
2971: IF (x_tld_rec.attribute14 = Okl_api.G_MISS_CHAR)
2967: IF (x_tld_rec.attribute13 = Okl_api.G_MISS_CHAR)
2968: THEN
2969: x_tld_rec.attribute13 := l_tld_rec.attribute13;
2970: END IF;
2971: IF (x_tld_rec.attribute14 = Okl_api.G_MISS_CHAR)
2972: THEN
2973: x_tld_rec.attribute14 := l_tld_rec.attribute14;
2974: END IF;
2975: IF (x_tld_rec.attribute15 = Okl_api.G_MISS_CHAR)
2971: IF (x_tld_rec.attribute14 = Okl_api.G_MISS_CHAR)
2972: THEN
2973: x_tld_rec.attribute14 := l_tld_rec.attribute14;
2974: END IF;
2975: IF (x_tld_rec.attribute15 = Okl_api.G_MISS_CHAR)
2976: THEN
2977: x_tld_rec.attribute15 := l_tld_rec.attribute15;
2978: END IF;
2979: IF (x_tld_rec.created_by = Okl_api.G_MISS_NUM)
2975: IF (x_tld_rec.attribute15 = Okl_api.G_MISS_CHAR)
2976: THEN
2977: x_tld_rec.attribute15 := l_tld_rec.attribute15;
2978: END IF;
2979: IF (x_tld_rec.created_by = Okl_api.G_MISS_NUM)
2980: THEN
2981: x_tld_rec.created_by := l_tld_rec.created_by;
2982: END IF;
2983: IF (x_tld_rec.creation_date = Okl_api.G_MISS_DATE)
2979: IF (x_tld_rec.created_by = Okl_api.G_MISS_NUM)
2980: THEN
2981: x_tld_rec.created_by := l_tld_rec.created_by;
2982: END IF;
2983: IF (x_tld_rec.creation_date = Okl_api.G_MISS_DATE)
2984: THEN
2985: x_tld_rec.creation_date := l_tld_rec.creation_date;
2986: END IF;
2987: IF (x_tld_rec.last_updated_by = Okl_api.G_MISS_NUM)
2983: IF (x_tld_rec.creation_date = Okl_api.G_MISS_DATE)
2984: THEN
2985: x_tld_rec.creation_date := l_tld_rec.creation_date;
2986: END IF;
2987: IF (x_tld_rec.last_updated_by = Okl_api.G_MISS_NUM)
2988: THEN
2989: x_tld_rec.last_updated_by := l_tld_rec.last_updated_by;
2990: END IF;
2991: IF (x_tld_rec.last_update_date = Okl_api.G_MISS_DATE)
2987: IF (x_tld_rec.last_updated_by = Okl_api.G_MISS_NUM)
2988: THEN
2989: x_tld_rec.last_updated_by := l_tld_rec.last_updated_by;
2990: END IF;
2991: IF (x_tld_rec.last_update_date = Okl_api.G_MISS_DATE)
2992: THEN
2993: x_tld_rec.last_update_date := l_tld_rec.last_update_date;
2994: END IF;
2995: IF (x_tld_rec.last_update_login = Okl_api.G_MISS_NUM)
2991: IF (x_tld_rec.last_update_date = Okl_api.G_MISS_DATE)
2992: THEN
2993: x_tld_rec.last_update_date := l_tld_rec.last_update_date;
2994: END IF;
2995: IF (x_tld_rec.last_update_login = Okl_api.G_MISS_NUM)
2996: THEN
2997: x_tld_rec.last_update_login := l_tld_rec.last_update_login;
2998: END IF;
2999: RETURN(l_return_status);
3004: FUNCTION Set_Attributes (
3005: p_tld_rec IN tld_rec_type,
3006: x_tld_rec OUT NOCOPY tld_rec_type
3007: ) RETURN VARCHAR2 IS
3008: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
3009: BEGIN
3010: x_tld_rec := p_tld_rec;
3011: RETURN(l_return_status);
3012: END Set_Attributes;
3010: x_tld_rec := p_tld_rec;
3011: RETURN(l_return_status);
3012: END Set_Attributes;
3013: BEGIN
3014: l_return_status := Okl_api.START_ACTIVITY(l_api_name,
3015: p_init_msg_list,
3016: '_PVT',
3017: x_return_status);
3018: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3014: l_return_status := Okl_api.START_ACTIVITY(l_api_name,
3015: p_init_msg_list,
3016: '_PVT',
3017: x_return_status);
3018: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3019: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3020: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3021: RAISE Okl_api.G_EXCEPTION_ERROR;
3022: END IF;
3015: p_init_msg_list,
3016: '_PVT',
3017: x_return_status);
3018: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3019: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3020: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3021: RAISE Okl_api.G_EXCEPTION_ERROR;
3022: END IF;
3023: --- Setting item attributes
3016: '_PVT',
3017: x_return_status);
3018: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3019: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3020: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3021: RAISE Okl_api.G_EXCEPTION_ERROR;
3022: END IF;
3023: --- Setting item attributes
3024: l_return_status := Set_Attributes(
3017: x_return_status);
3018: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3019: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3020: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3021: RAISE Okl_api.G_EXCEPTION_ERROR;
3022: END IF;
3023: --- Setting item attributes
3024: l_return_status := Set_Attributes(
3025: p_tld_rec, -- IN
3024: l_return_status := Set_Attributes(
3025: p_tld_rec, -- IN
3026: l_tld_rec); -- OUT
3027: --- If any errors happen abort API
3028: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3029: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3030: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3031: RAISE Okl_api.G_EXCEPTION_ERROR;
3032: END IF;
3025: p_tld_rec, -- IN
3026: l_tld_rec); -- OUT
3027: --- If any errors happen abort API
3028: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3029: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3030: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3031: RAISE Okl_api.G_EXCEPTION_ERROR;
3032: END IF;
3033: l_return_status := populate_new_record(l_tld_rec, l_def_tld_rec);
3026: l_tld_rec); -- OUT
3027: --- If any errors happen abort API
3028: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3029: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3030: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3031: RAISE Okl_api.G_EXCEPTION_ERROR;
3032: END IF;
3033: l_return_status := populate_new_record(l_tld_rec, l_def_tld_rec);
3034: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3027: --- If any errors happen abort API
3028: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3029: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3030: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3031: RAISE Okl_api.G_EXCEPTION_ERROR;
3032: END IF;
3033: l_return_status := populate_new_record(l_tld_rec, l_def_tld_rec);
3034: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3035: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3030: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3031: RAISE Okl_api.G_EXCEPTION_ERROR;
3032: END IF;
3033: l_return_status := populate_new_record(l_tld_rec, l_def_tld_rec);
3034: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3035: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3036: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3037: RAISE Okl_api.G_EXCEPTION_ERROR;
3038: END IF;
3031: RAISE Okl_api.G_EXCEPTION_ERROR;
3032: END IF;
3033: l_return_status := populate_new_record(l_tld_rec, l_def_tld_rec);
3034: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3035: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3036: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3037: RAISE Okl_api.G_EXCEPTION_ERROR;
3038: END IF;
3039: UPDATE OKL_TXD_AR_LN_DTLS_B
3032: END IF;
3033: l_return_status := populate_new_record(l_tld_rec, l_def_tld_rec);
3034: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3035: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3036: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3037: RAISE Okl_api.G_EXCEPTION_ERROR;
3038: END IF;
3039: UPDATE OKL_TXD_AR_LN_DTLS_B
3040: SET BCH_ID = l_def_tld_rec.bch_id,
3033: l_return_status := populate_new_record(l_tld_rec, l_def_tld_rec);
3034: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3035: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3036: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3037: RAISE Okl_api.G_EXCEPTION_ERROR;
3038: END IF;
3039: UPDATE OKL_TXD_AR_LN_DTLS_B
3040: SET BCH_ID = l_def_tld_rec.bch_id,
3041: BCL_ID = l_def_tld_rec.bcl_id,
3107: LAST_UPDATE_LOGIN = l_def_tld_rec.last_update_login
3108: WHERE ID = l_def_tld_rec.id;
3109:
3110: x_tld_rec := l_def_tld_rec;
3111: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
3112: EXCEPTION
3113: WHEN Okl_api.G_EXCEPTION_ERROR THEN
3114: x_return_status := Okl_api.HANDLE_EXCEPTIONS
3115: (
3109:
3110: x_tld_rec := l_def_tld_rec;
3111: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
3112: EXCEPTION
3113: WHEN Okl_api.G_EXCEPTION_ERROR THEN
3114: x_return_status := Okl_api.HANDLE_EXCEPTIONS
3115: (
3116: l_api_name,
3117: G_PKG_NAME,
3110: x_tld_rec := l_def_tld_rec;
3111: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
3112: EXCEPTION
3113: WHEN Okl_api.G_EXCEPTION_ERROR THEN
3114: x_return_status := Okl_api.HANDLE_EXCEPTIONS
3115: (
3116: l_api_name,
3117: G_PKG_NAME,
3118: 'Okl_api.G_RET_STS_ERROR',
3114: x_return_status := Okl_api.HANDLE_EXCEPTIONS
3115: (
3116: l_api_name,
3117: G_PKG_NAME,
3118: 'Okl_api.G_RET_STS_ERROR',
3119: x_msg_count,
3120: x_msg_data,
3121: '_PVT'
3122: );
3119: x_msg_count,
3120: x_msg_data,
3121: '_PVT'
3122: );
3123: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3124: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
3125: (
3126: l_api_name,
3127: G_PKG_NAME,
3120: x_msg_data,
3121: '_PVT'
3122: );
3123: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3124: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
3125: (
3126: l_api_name,
3127: G_PKG_NAME,
3128: 'Okl_api.G_RET_STS_UNEXP_ERROR',
3124: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
3125: (
3126: l_api_name,
3127: G_PKG_NAME,
3128: 'Okl_api.G_RET_STS_UNEXP_ERROR',
3129: x_msg_count,
3130: x_msg_data,
3131: '_PVT'
3132: );
3130: x_msg_data,
3131: '_PVT'
3132: );
3133: WHEN OTHERS THEN
3134: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
3135: (
3136: l_api_name,
3137: G_PKG_NAME,
3138: 'OTHERS',
3153: x_okl_txd_ar_ln_dtls_tl_rec OUT NOCOPY okl_txd_ar_ln_dtls_tl_rec_type) IS
3154:
3155: l_api_version CONSTANT NUMBER := 1;
3156: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
3157: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
3158: l_okl_txd_ar_ln_dtls_tl_rec okl_txd_ar_ln_dtls_tl_rec_type := p_okl_txd_ar_ln_dtls_tl_rec;
3159: ldefokltxdarlndtlstlrec okl_txd_ar_ln_dtls_tl_rec_type;
3160: l_row_notfound BOOLEAN := TRUE;
3161: ----------------------------------
3166: x_okl_txd_ar_ln_dtls_tl_rec OUT NOCOPY okl_txd_ar_ln_dtls_tl_rec_type
3167: ) RETURN VARCHAR2 IS
3168: l_okl_txd_ar_ln_dtls_tl_rec okl_txd_ar_ln_dtls_tl_rec_type;
3169: l_row_notfound BOOLEAN := TRUE;
3170: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
3171: BEGIN
3172: x_okl_txd_ar_ln_dtls_tl_rec := p_okl_txd_ar_ln_dtls_tl_rec;
3173: -- Get current database values
3174: l_okl_txd_ar_ln_dtls_tl_rec := get_rec(p_okl_txd_ar_ln_dtls_tl_rec, l_row_notfound);
3172: x_okl_txd_ar_ln_dtls_tl_rec := p_okl_txd_ar_ln_dtls_tl_rec;
3173: -- Get current database values
3174: l_okl_txd_ar_ln_dtls_tl_rec := get_rec(p_okl_txd_ar_ln_dtls_tl_rec, l_row_notfound);
3175: IF (l_row_notfound) THEN
3176: l_return_status := Okl_api.G_RET_STS_UNEXP_ERROR;
3177: END IF;
3178: IF (x_okl_txd_ar_ln_dtls_tl_rec.id = Okl_api.G_MISS_NUM)
3179: THEN
3180: x_okl_txd_ar_ln_dtls_tl_rec.id := l_okl_txd_ar_ln_dtls_tl_rec.id;
3174: l_okl_txd_ar_ln_dtls_tl_rec := get_rec(p_okl_txd_ar_ln_dtls_tl_rec, l_row_notfound);
3175: IF (l_row_notfound) THEN
3176: l_return_status := Okl_api.G_RET_STS_UNEXP_ERROR;
3177: END IF;
3178: IF (x_okl_txd_ar_ln_dtls_tl_rec.id = Okl_api.G_MISS_NUM)
3179: THEN
3180: x_okl_txd_ar_ln_dtls_tl_rec.id := l_okl_txd_ar_ln_dtls_tl_rec.id;
3181: END IF;
3182: IF (x_okl_txd_ar_ln_dtls_tl_rec.LANGUAGE = Okl_api.G_MISS_CHAR)
3178: IF (x_okl_txd_ar_ln_dtls_tl_rec.id = Okl_api.G_MISS_NUM)
3179: THEN
3180: x_okl_txd_ar_ln_dtls_tl_rec.id := l_okl_txd_ar_ln_dtls_tl_rec.id;
3181: END IF;
3182: IF (x_okl_txd_ar_ln_dtls_tl_rec.LANGUAGE = Okl_api.G_MISS_CHAR)
3183: THEN
3184: x_okl_txd_ar_ln_dtls_tl_rec.LANGUAGE := l_okl_txd_ar_ln_dtls_tl_rec.LANGUAGE;
3185: END IF;
3186: IF (x_okl_txd_ar_ln_dtls_tl_rec.source_lang = Okl_api.G_MISS_CHAR)
3182: IF (x_okl_txd_ar_ln_dtls_tl_rec.LANGUAGE = Okl_api.G_MISS_CHAR)
3183: THEN
3184: x_okl_txd_ar_ln_dtls_tl_rec.LANGUAGE := l_okl_txd_ar_ln_dtls_tl_rec.LANGUAGE;
3185: END IF;
3186: IF (x_okl_txd_ar_ln_dtls_tl_rec.source_lang = Okl_api.G_MISS_CHAR)
3187: THEN
3188: x_okl_txd_ar_ln_dtls_tl_rec.source_lang := l_okl_txd_ar_ln_dtls_tl_rec.source_lang;
3189: END IF;
3190: IF (x_okl_txd_ar_ln_dtls_tl_rec.error_message = Okl_api.G_MISS_CHAR)
3186: IF (x_okl_txd_ar_ln_dtls_tl_rec.source_lang = Okl_api.G_MISS_CHAR)
3187: THEN
3188: x_okl_txd_ar_ln_dtls_tl_rec.source_lang := l_okl_txd_ar_ln_dtls_tl_rec.source_lang;
3189: END IF;
3190: IF (x_okl_txd_ar_ln_dtls_tl_rec.error_message = Okl_api.G_MISS_CHAR)
3191: THEN
3192: x_okl_txd_ar_ln_dtls_tl_rec.error_message := l_okl_txd_ar_ln_dtls_tl_rec.error_message;
3193: END IF;
3194: IF (x_okl_txd_ar_ln_dtls_tl_rec.sfwt_flag = Okl_api.G_MISS_CHAR)
3190: IF (x_okl_txd_ar_ln_dtls_tl_rec.error_message = Okl_api.G_MISS_CHAR)
3191: THEN
3192: x_okl_txd_ar_ln_dtls_tl_rec.error_message := l_okl_txd_ar_ln_dtls_tl_rec.error_message;
3193: END IF;
3194: IF (x_okl_txd_ar_ln_dtls_tl_rec.sfwt_flag = Okl_api.G_MISS_CHAR)
3195: THEN
3196: x_okl_txd_ar_ln_dtls_tl_rec.sfwt_flag := l_okl_txd_ar_ln_dtls_tl_rec.sfwt_flag;
3197: END IF;
3198: IF (x_okl_txd_ar_ln_dtls_tl_rec.description = Okl_api.G_MISS_CHAR)
3194: IF (x_okl_txd_ar_ln_dtls_tl_rec.sfwt_flag = Okl_api.G_MISS_CHAR)
3195: THEN
3196: x_okl_txd_ar_ln_dtls_tl_rec.sfwt_flag := l_okl_txd_ar_ln_dtls_tl_rec.sfwt_flag;
3197: END IF;
3198: IF (x_okl_txd_ar_ln_dtls_tl_rec.description = Okl_api.G_MISS_CHAR)
3199: THEN
3200: x_okl_txd_ar_ln_dtls_tl_rec.description := l_okl_txd_ar_ln_dtls_tl_rec.description;
3201: END IF;
3202: IF (x_okl_txd_ar_ln_dtls_tl_rec.created_by = Okl_api.G_MISS_NUM)
3198: IF (x_okl_txd_ar_ln_dtls_tl_rec.description = Okl_api.G_MISS_CHAR)
3199: THEN
3200: x_okl_txd_ar_ln_dtls_tl_rec.description := l_okl_txd_ar_ln_dtls_tl_rec.description;
3201: END IF;
3202: IF (x_okl_txd_ar_ln_dtls_tl_rec.created_by = Okl_api.G_MISS_NUM)
3203: THEN
3204: x_okl_txd_ar_ln_dtls_tl_rec.created_by := l_okl_txd_ar_ln_dtls_tl_rec.created_by;
3205: END IF;
3206: IF (x_okl_txd_ar_ln_dtls_tl_rec.creation_date = Okl_api.G_MISS_DATE)
3202: IF (x_okl_txd_ar_ln_dtls_tl_rec.created_by = Okl_api.G_MISS_NUM)
3203: THEN
3204: x_okl_txd_ar_ln_dtls_tl_rec.created_by := l_okl_txd_ar_ln_dtls_tl_rec.created_by;
3205: END IF;
3206: IF (x_okl_txd_ar_ln_dtls_tl_rec.creation_date = Okl_api.G_MISS_DATE)
3207: THEN
3208: x_okl_txd_ar_ln_dtls_tl_rec.creation_date := l_okl_txd_ar_ln_dtls_tl_rec.creation_date;
3209: END IF;
3210: IF (x_okl_txd_ar_ln_dtls_tl_rec.last_updated_by = Okl_api.G_MISS_NUM)
3206: IF (x_okl_txd_ar_ln_dtls_tl_rec.creation_date = Okl_api.G_MISS_DATE)
3207: THEN
3208: x_okl_txd_ar_ln_dtls_tl_rec.creation_date := l_okl_txd_ar_ln_dtls_tl_rec.creation_date;
3209: END IF;
3210: IF (x_okl_txd_ar_ln_dtls_tl_rec.last_updated_by = Okl_api.G_MISS_NUM)
3211: THEN
3212: x_okl_txd_ar_ln_dtls_tl_rec.last_updated_by := l_okl_txd_ar_ln_dtls_tl_rec.last_updated_by;
3213: END IF;
3214: IF (x_okl_txd_ar_ln_dtls_tl_rec.last_update_date = Okl_api.G_MISS_DATE)
3210: IF (x_okl_txd_ar_ln_dtls_tl_rec.last_updated_by = Okl_api.G_MISS_NUM)
3211: THEN
3212: x_okl_txd_ar_ln_dtls_tl_rec.last_updated_by := l_okl_txd_ar_ln_dtls_tl_rec.last_updated_by;
3213: END IF;
3214: IF (x_okl_txd_ar_ln_dtls_tl_rec.last_update_date = Okl_api.G_MISS_DATE)
3215: THEN
3216: x_okl_txd_ar_ln_dtls_tl_rec.last_update_date := l_okl_txd_ar_ln_dtls_tl_rec.last_update_date;
3217: END IF;
3218: IF (x_okl_txd_ar_ln_dtls_tl_rec.last_update_login = Okl_api.G_MISS_NUM)
3214: IF (x_okl_txd_ar_ln_dtls_tl_rec.last_update_date = Okl_api.G_MISS_DATE)
3215: THEN
3216: x_okl_txd_ar_ln_dtls_tl_rec.last_update_date := l_okl_txd_ar_ln_dtls_tl_rec.last_update_date;
3217: END IF;
3218: IF (x_okl_txd_ar_ln_dtls_tl_rec.last_update_login = Okl_api.G_MISS_NUM)
3219: THEN
3220: x_okl_txd_ar_ln_dtls_tl_rec.last_update_login := l_okl_txd_ar_ln_dtls_tl_rec.last_update_login;
3221: END IF;
3222: RETURN(l_return_status);
3227: FUNCTION Set_Attributes (
3228: p_okl_txd_ar_ln_dtls_tl_rec IN okl_txd_ar_ln_dtls_tl_rec_type,
3229: x_okl_txd_ar_ln_dtls_tl_rec OUT NOCOPY okl_txd_ar_ln_dtls_tl_rec_type
3230: ) RETURN VARCHAR2 IS
3231: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
3232: BEGIN
3233: x_okl_txd_ar_ln_dtls_tl_rec := p_okl_txd_ar_ln_dtls_tl_rec;
3234: x_okl_txd_ar_ln_dtls_tl_rec.LANGUAGE := USERENV('LANG');
3235: x_okl_txd_ar_ln_dtls_tl_rec.SOURCE_LANG := USERENV('LANG');
3235: x_okl_txd_ar_ln_dtls_tl_rec.SOURCE_LANG := USERENV('LANG');
3236: RETURN(l_return_status);
3237: END Set_Attributes;
3238: BEGIN
3239: l_return_status := Okl_api.START_ACTIVITY(l_api_name,
3240: p_init_msg_list,
3241: '_PVT',
3242: x_return_status);
3243: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3239: l_return_status := Okl_api.START_ACTIVITY(l_api_name,
3240: p_init_msg_list,
3241: '_PVT',
3242: x_return_status);
3243: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3244: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3245: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3246: RAISE Okl_api.G_EXCEPTION_ERROR;
3247: END IF;
3240: p_init_msg_list,
3241: '_PVT',
3242: x_return_status);
3243: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3244: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3245: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3246: RAISE Okl_api.G_EXCEPTION_ERROR;
3247: END IF;
3248: --- Setting item attributes
3241: '_PVT',
3242: x_return_status);
3243: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3244: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3245: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3246: RAISE Okl_api.G_EXCEPTION_ERROR;
3247: END IF;
3248: --- Setting item attributes
3249: l_return_status := Set_Attributes(
3242: x_return_status);
3243: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3244: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3245: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3246: RAISE Okl_api.G_EXCEPTION_ERROR;
3247: END IF;
3248: --- Setting item attributes
3249: l_return_status := Set_Attributes(
3250: p_okl_txd_ar_ln_dtls_tl_rec, -- IN
3249: l_return_status := Set_Attributes(
3250: p_okl_txd_ar_ln_dtls_tl_rec, -- IN
3251: l_okl_txd_ar_ln_dtls_tl_rec); -- OUT
3252: --- If any errors happen abort API
3253: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3254: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3255: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3256: RAISE Okl_api.G_EXCEPTION_ERROR;
3257: END IF;
3250: p_okl_txd_ar_ln_dtls_tl_rec, -- IN
3251: l_okl_txd_ar_ln_dtls_tl_rec); -- OUT
3252: --- If any errors happen abort API
3253: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3254: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3255: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3256: RAISE Okl_api.G_EXCEPTION_ERROR;
3257: END IF;
3258: l_return_status := populate_new_record(l_okl_txd_ar_ln_dtls_tl_rec, ldefokltxdarlndtlstlrec);
3251: l_okl_txd_ar_ln_dtls_tl_rec); -- OUT
3252: --- If any errors happen abort API
3253: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3254: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3255: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3256: RAISE Okl_api.G_EXCEPTION_ERROR;
3257: END IF;
3258: l_return_status := populate_new_record(l_okl_txd_ar_ln_dtls_tl_rec, ldefokltxdarlndtlstlrec);
3259: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3252: --- If any errors happen abort API
3253: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3254: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3255: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3256: RAISE Okl_api.G_EXCEPTION_ERROR;
3257: END IF;
3258: l_return_status := populate_new_record(l_okl_txd_ar_ln_dtls_tl_rec, ldefokltxdarlndtlstlrec);
3259: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3260: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3255: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3256: RAISE Okl_api.G_EXCEPTION_ERROR;
3257: END IF;
3258: l_return_status := populate_new_record(l_okl_txd_ar_ln_dtls_tl_rec, ldefokltxdarlndtlstlrec);
3259: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3260: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3261: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3262: RAISE Okl_api.G_EXCEPTION_ERROR;
3263: END IF;
3256: RAISE Okl_api.G_EXCEPTION_ERROR;
3257: END IF;
3258: l_return_status := populate_new_record(l_okl_txd_ar_ln_dtls_tl_rec, ldefokltxdarlndtlstlrec);
3259: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3260: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3261: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3262: RAISE Okl_api.G_EXCEPTION_ERROR;
3263: END IF;
3264: UPDATE OKL_TXD_AR_LN_DTLS_TL
3257: END IF;
3258: l_return_status := populate_new_record(l_okl_txd_ar_ln_dtls_tl_rec, ldefokltxdarlndtlstlrec);
3259: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3260: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3261: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3262: RAISE Okl_api.G_EXCEPTION_ERROR;
3263: END IF;
3264: UPDATE OKL_TXD_AR_LN_DTLS_TL
3265: SET DESCRIPTION = ldefokltxdarlndtlstlrec.description,
3258: l_return_status := populate_new_record(l_okl_txd_ar_ln_dtls_tl_rec, ldefokltxdarlndtlstlrec);
3259: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3260: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3261: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3262: RAISE Okl_api.G_EXCEPTION_ERROR;
3263: END IF;
3264: UPDATE OKL_TXD_AR_LN_DTLS_TL
3265: SET DESCRIPTION = ldefokltxdarlndtlstlrec.description,
3266: ERROR_MESSAGE = ldefokltxdarlndtlstlrec.error_message,
3278: WHERE ID = ldefokltxdarlndtlstlrec.id
3279: AND SOURCE_LANG <> USERENV('LANG');
3280:
3281: x_okl_txd_ar_ln_dtls_tl_rec := ldefokltxdarlndtlstlrec;
3282: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
3283: EXCEPTION
3284: WHEN Okl_api.G_EXCEPTION_ERROR THEN
3285: x_return_status := Okl_api.HANDLE_EXCEPTIONS
3286: (
3280:
3281: x_okl_txd_ar_ln_dtls_tl_rec := ldefokltxdarlndtlstlrec;
3282: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
3283: EXCEPTION
3284: WHEN Okl_api.G_EXCEPTION_ERROR THEN
3285: x_return_status := Okl_api.HANDLE_EXCEPTIONS
3286: (
3287: l_api_name,
3288: G_PKG_NAME,
3281: x_okl_txd_ar_ln_dtls_tl_rec := ldefokltxdarlndtlstlrec;
3282: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
3283: EXCEPTION
3284: WHEN Okl_api.G_EXCEPTION_ERROR THEN
3285: x_return_status := Okl_api.HANDLE_EXCEPTIONS
3286: (
3287: l_api_name,
3288: G_PKG_NAME,
3289: 'Okl_api.G_RET_STS_ERROR',
3285: x_return_status := Okl_api.HANDLE_EXCEPTIONS
3286: (
3287: l_api_name,
3288: G_PKG_NAME,
3289: 'Okl_api.G_RET_STS_ERROR',
3290: x_msg_count,
3291: x_msg_data,
3292: '_PVT'
3293: );
3290: x_msg_count,
3291: x_msg_data,
3292: '_PVT'
3293: );
3294: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3295: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
3296: (
3297: l_api_name,
3298: G_PKG_NAME,
3291: x_msg_data,
3292: '_PVT'
3293: );
3294: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3295: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
3296: (
3297: l_api_name,
3298: G_PKG_NAME,
3299: 'Okl_api.G_RET_STS_UNEXP_ERROR',
3295: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
3296: (
3297: l_api_name,
3298: G_PKG_NAME,
3299: 'Okl_api.G_RET_STS_UNEXP_ERROR',
3300: x_msg_count,
3301: x_msg_data,
3302: '_PVT'
3303: );
3301: x_msg_data,
3302: '_PVT'
3303: );
3304: WHEN OTHERS THEN
3305: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
3306: (
3307: l_api_name,
3308: G_PKG_NAME,
3309: 'OTHERS',
3325: x_tldv_rec OUT NOCOPY tldv_rec_type) IS
3326:
3327: l_api_version CONSTANT NUMBER := 1;
3328: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
3329: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
3330: l_tldv_rec tldv_rec_type := p_tldv_rec;
3331: l_def_tldv_rec tldv_rec_type;
3332: l_okl_txd_ar_ln_dtls_tl_rec okl_txd_ar_ln_dtls_tl_rec_type;
3333: lx_okl_txd_ar_ln_dtls_tl_rec okl_txd_ar_ln_dtls_tl_rec_type;
3354: x_tldv_rec OUT NOCOPY tldv_rec_type
3355: ) RETURN VARCHAR2 IS
3356: l_tldv_rec tldv_rec_type;
3357: l_row_notfound BOOLEAN := TRUE;
3358: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
3359: BEGIN
3360: x_tldv_rec := p_tldv_rec;
3361: -- Get current database values
3362: l_tldv_rec := get_rec(p_tldv_rec, l_row_notfound);
3360: x_tldv_rec := p_tldv_rec;
3361: -- Get current database values
3362: l_tldv_rec := get_rec(p_tldv_rec, l_row_notfound);
3363: IF (l_row_notfound) THEN
3364: l_return_status := Okl_api.G_RET_STS_UNEXP_ERROR;
3365: END IF;
3366: IF (x_tldv_rec.id = Okl_api.G_MISS_NUM)
3367: THEN
3368: x_tldv_rec.id := l_tldv_rec.id;
3362: l_tldv_rec := get_rec(p_tldv_rec, l_row_notfound);
3363: IF (l_row_notfound) THEN
3364: l_return_status := Okl_api.G_RET_STS_UNEXP_ERROR;
3365: END IF;
3366: IF (x_tldv_rec.id = Okl_api.G_MISS_NUM)
3367: THEN
3368: x_tldv_rec.id := l_tldv_rec.id;
3369: END IF;
3370: IF (x_tldv_rec.object_version_number = Okl_api.G_MISS_NUM)
3366: IF (x_tldv_rec.id = Okl_api.G_MISS_NUM)
3367: THEN
3368: x_tldv_rec.id := l_tldv_rec.id;
3369: END IF;
3370: IF (x_tldv_rec.object_version_number = Okl_api.G_MISS_NUM)
3371: THEN
3372: x_tldv_rec.object_version_number := l_tldv_rec.object_version_number;
3373: END IF;
3374: IF (x_tldv_rec.error_message = Okl_api.G_MISS_CHAR)
3370: IF (x_tldv_rec.object_version_number = Okl_api.G_MISS_NUM)
3371: THEN
3372: x_tldv_rec.object_version_number := l_tldv_rec.object_version_number;
3373: END IF;
3374: IF (x_tldv_rec.error_message = Okl_api.G_MISS_CHAR)
3375: THEN
3376: x_tldv_rec.error_message := l_tldv_rec.error_message;
3377: END IF;
3378: IF (x_tldv_rec.sfwt_flag = Okl_api.G_MISS_CHAR)
3374: IF (x_tldv_rec.error_message = Okl_api.G_MISS_CHAR)
3375: THEN
3376: x_tldv_rec.error_message := l_tldv_rec.error_message;
3377: END IF;
3378: IF (x_tldv_rec.sfwt_flag = Okl_api.G_MISS_CHAR)
3379: THEN
3380: x_tldv_rec.sfwt_flag := l_tldv_rec.sfwt_flag;
3381: END IF;
3382: IF (x_tldv_rec.bch_id = Okl_api.G_MISS_NUM)
3378: IF (x_tldv_rec.sfwt_flag = Okl_api.G_MISS_CHAR)
3379: THEN
3380: x_tldv_rec.sfwt_flag := l_tldv_rec.sfwt_flag;
3381: END IF;
3382: IF (x_tldv_rec.bch_id = Okl_api.G_MISS_NUM)
3383: THEN
3384: x_tldv_rec.bch_id := l_tldv_rec.bch_id;
3385: END IF;
3386: IF (x_tldv_rec.bgh_id = Okl_api.G_MISS_NUM)
3382: IF (x_tldv_rec.bch_id = Okl_api.G_MISS_NUM)
3383: THEN
3384: x_tldv_rec.bch_id := l_tldv_rec.bch_id;
3385: END IF;
3386: IF (x_tldv_rec.bgh_id = Okl_api.G_MISS_NUM)
3387: THEN
3388: x_tldv_rec.bgh_id := l_tldv_rec.bgh_id;
3389: END IF;
3390: IF (x_tldv_rec.idx_id = Okl_api.G_MISS_NUM)
3386: IF (x_tldv_rec.bgh_id = Okl_api.G_MISS_NUM)
3387: THEN
3388: x_tldv_rec.bgh_id := l_tldv_rec.bgh_id;
3389: END IF;
3390: IF (x_tldv_rec.idx_id = Okl_api.G_MISS_NUM)
3391: THEN
3392: x_tldv_rec.idx_id := l_tldv_rec.idx_id;
3393: END IF;
3394: IF (x_tldv_rec.tld_id_reverses = Okl_api.G_MISS_NUM)
3390: IF (x_tldv_rec.idx_id = Okl_api.G_MISS_NUM)
3391: THEN
3392: x_tldv_rec.idx_id := l_tldv_rec.idx_id;
3393: END IF;
3394: IF (x_tldv_rec.tld_id_reverses = Okl_api.G_MISS_NUM)
3395: THEN
3396: x_tldv_rec.tld_id_reverses := l_tldv_rec.tld_id_reverses;
3397: END IF;
3398: IF (x_tldv_rec.sty_id = Okl_api.G_MISS_NUM)
3394: IF (x_tldv_rec.tld_id_reverses = Okl_api.G_MISS_NUM)
3395: THEN
3396: x_tldv_rec.tld_id_reverses := l_tldv_rec.tld_id_reverses;
3397: END IF;
3398: IF (x_tldv_rec.sty_id = Okl_api.G_MISS_NUM)
3399: THEN
3400: x_tldv_rec.sty_id := l_tldv_rec.sty_id;
3401: END IF;
3402: IF (x_tldv_rec.sel_id = Okl_api.G_MISS_NUM)
3398: IF (x_tldv_rec.sty_id = Okl_api.G_MISS_NUM)
3399: THEN
3400: x_tldv_rec.sty_id := l_tldv_rec.sty_id;
3401: END IF;
3402: IF (x_tldv_rec.sel_id = Okl_api.G_MISS_NUM)
3403: THEN
3404: x_tldv_rec.sel_id := l_tldv_rec.sel_id;
3405: END IF;
3406: IF (x_tldv_rec.til_id_details = Okl_api.G_MISS_NUM)
3402: IF (x_tldv_rec.sel_id = Okl_api.G_MISS_NUM)
3403: THEN
3404: x_tldv_rec.sel_id := l_tldv_rec.sel_id;
3405: END IF;
3406: IF (x_tldv_rec.til_id_details = Okl_api.G_MISS_NUM)
3407: THEN
3408: x_tldv_rec.til_id_details := l_tldv_rec.til_id_details;
3409: END IF;
3410: IF (x_tldv_rec.bcl_id = Okl_api.G_MISS_NUM)
3406: IF (x_tldv_rec.til_id_details = Okl_api.G_MISS_NUM)
3407: THEN
3408: x_tldv_rec.til_id_details := l_tldv_rec.til_id_details;
3409: END IF;
3410: IF (x_tldv_rec.bcl_id = Okl_api.G_MISS_NUM)
3411: THEN
3412: x_tldv_rec.bcl_id := l_tldv_rec.bcl_id;
3413: END IF;
3414: IF (x_tldv_rec.bsl_id = Okl_api.G_MISS_NUM)
3410: IF (x_tldv_rec.bcl_id = Okl_api.G_MISS_NUM)
3411: THEN
3412: x_tldv_rec.bcl_id := l_tldv_rec.bcl_id;
3413: END IF;
3414: IF (x_tldv_rec.bsl_id = Okl_api.G_MISS_NUM)
3415: THEN
3416: x_tldv_rec.bsl_id := l_tldv_rec.bsl_id;
3417: END IF;
3418: IF (x_tldv_rec.amount = Okl_api.G_MISS_NUM)
3414: IF (x_tldv_rec.bsl_id = Okl_api.G_MISS_NUM)
3415: THEN
3416: x_tldv_rec.bsl_id := l_tldv_rec.bsl_id;
3417: END IF;
3418: IF (x_tldv_rec.amount = Okl_api.G_MISS_NUM)
3419: THEN
3420: x_tldv_rec.amount := l_tldv_rec.amount;
3421: END IF;
3422: IF (x_tldv_rec.line_detail_number = Okl_api.G_MISS_NUM)
3418: IF (x_tldv_rec.amount = Okl_api.G_MISS_NUM)
3419: THEN
3420: x_tldv_rec.amount := l_tldv_rec.amount;
3421: END IF;
3422: IF (x_tldv_rec.line_detail_number = Okl_api.G_MISS_NUM)
3423: THEN
3424: x_tldv_rec.line_detail_number := l_tldv_rec.line_detail_number;
3425: END IF;
3426: IF (x_tldv_rec.receivables_invoice_id = Okl_api.G_MISS_NUM)
3422: IF (x_tldv_rec.line_detail_number = Okl_api.G_MISS_NUM)
3423: THEN
3424: x_tldv_rec.line_detail_number := l_tldv_rec.line_detail_number;
3425: END IF;
3426: IF (x_tldv_rec.receivables_invoice_id = Okl_api.G_MISS_NUM)
3427: THEN
3428: x_tldv_rec.receivables_invoice_id := l_tldv_rec.receivables_invoice_id;
3429: END IF;
3430: IF (x_tldv_rec.late_charge_yn = Okl_api.G_MISS_CHAR)
3426: IF (x_tldv_rec.receivables_invoice_id = Okl_api.G_MISS_NUM)
3427: THEN
3428: x_tldv_rec.receivables_invoice_id := l_tldv_rec.receivables_invoice_id;
3429: END IF;
3430: IF (x_tldv_rec.late_charge_yn = Okl_api.G_MISS_CHAR)
3431: THEN
3432: x_tldv_rec.late_charge_yn := l_tldv_rec.late_charge_yn;
3433: END IF;
3434: IF (x_tldv_rec.description = Okl_api.G_MISS_CHAR)
3430: IF (x_tldv_rec.late_charge_yn = Okl_api.G_MISS_CHAR)
3431: THEN
3432: x_tldv_rec.late_charge_yn := l_tldv_rec.late_charge_yn;
3433: END IF;
3434: IF (x_tldv_rec.description = Okl_api.G_MISS_CHAR)
3435: THEN
3436: x_tldv_rec.description := l_tldv_rec.description;
3437: END IF;
3438: IF (x_tldv_rec.amount_applied = Okl_api.G_MISS_NUM)
3434: IF (x_tldv_rec.description = Okl_api.G_MISS_CHAR)
3435: THEN
3436: x_tldv_rec.description := l_tldv_rec.description;
3437: END IF;
3438: IF (x_tldv_rec.amount_applied = Okl_api.G_MISS_NUM)
3439: THEN
3440: x_tldv_rec.amount_applied := l_tldv_rec.amount_applied;
3441: END IF;
3442: IF (x_tldv_rec.date_calculation = Okl_api.G_MISS_DATE)
3438: IF (x_tldv_rec.amount_applied = Okl_api.G_MISS_NUM)
3439: THEN
3440: x_tldv_rec.amount_applied := l_tldv_rec.amount_applied;
3441: END IF;
3442: IF (x_tldv_rec.date_calculation = Okl_api.G_MISS_DATE)
3443: THEN
3444: x_tldv_rec.date_calculation := l_tldv_rec.date_calculation;
3445: END IF;
3446: IF (x_tldv_rec.fixed_rate_yn = Okl_api.G_MISS_CHAR)
3442: IF (x_tldv_rec.date_calculation = Okl_api.G_MISS_DATE)
3443: THEN
3444: x_tldv_rec.date_calculation := l_tldv_rec.date_calculation;
3445: END IF;
3446: IF (x_tldv_rec.fixed_rate_yn = Okl_api.G_MISS_CHAR)
3447: THEN
3448: x_tldv_rec.fixed_rate_yn := l_tldv_rec.fixed_rate_yn;
3449: END IF;
3450: -- Start changes on remarketing by fmiao on 10/18/04 --
3447: THEN
3448: x_tldv_rec.fixed_rate_yn := l_tldv_rec.fixed_rate_yn;
3449: END IF;
3450: -- Start changes on remarketing by fmiao on 10/18/04 --
3451: IF (x_tldv_rec.inventory_item_id = Okl_api.G_MISS_num)
3452: THEN
3453: x_tldv_rec.inventory_item_id := l_tldv_rec.inventory_item_id;
3454: END IF;
3455: -- End changes on remarketing by fmiao on 10/18/04 --
3455: -- End changes on remarketing by fmiao on 10/18/04 --
3456: --cklee
3457: --start: 30-Jan-07 cklee Billing R12 project |
3458: --gkhuntet 10-Jul-07 started . |
3459: IF (x_tldv_rec.TXL_AR_LINE_NUMBER = Okl_api.G_MISS_NUM) THEN
3460: x_tldv_rec.TXL_AR_LINE_NUMBER := l_tldv_rec.TXL_AR_LINE_NUMBER;
3461: END IF;
3462:
3463: IF (x_tldv_rec.INVOICE_FORMAT_TYPE = Okl_api.G_MISS_CHAR) THEN
3459: IF (x_tldv_rec.TXL_AR_LINE_NUMBER = Okl_api.G_MISS_NUM) THEN
3460: x_tldv_rec.TXL_AR_LINE_NUMBER := l_tldv_rec.TXL_AR_LINE_NUMBER;
3461: END IF;
3462:
3463: IF (x_tldv_rec.INVOICE_FORMAT_TYPE = Okl_api.G_MISS_CHAR) THEN
3464: x_tldv_rec.INVOICE_FORMAT_TYPE := l_tldv_rec.INVOICE_FORMAT_TYPE;
3465: END IF;
3466:
3467: IF (x_tldv_rec.INVOICE_FORMAT_LINE_TYPE = Okl_api.G_MISS_CHAR) THEN
3463: IF (x_tldv_rec.INVOICE_FORMAT_TYPE = Okl_api.G_MISS_CHAR) THEN
3464: x_tldv_rec.INVOICE_FORMAT_TYPE := l_tldv_rec.INVOICE_FORMAT_TYPE;
3465: END IF;
3466:
3467: IF (x_tldv_rec.INVOICE_FORMAT_LINE_TYPE = Okl_api.G_MISS_CHAR) THEN
3468: x_tldv_rec.INVOICE_FORMAT_LINE_TYPE := l_tldv_rec.INVOICE_FORMAT_LINE_TYPE;
3469: END IF;
3470:
3471: IF (x_tldv_rec.LATE_CHARGE_ASSESS_DATE = Okl_api.G_MISS_DATE) THEN
3467: IF (x_tldv_rec.INVOICE_FORMAT_LINE_TYPE = Okl_api.G_MISS_CHAR) THEN
3468: x_tldv_rec.INVOICE_FORMAT_LINE_TYPE := l_tldv_rec.INVOICE_FORMAT_LINE_TYPE;
3469: END IF;
3470:
3471: IF (x_tldv_rec.LATE_CHARGE_ASSESS_DATE = Okl_api.G_MISS_DATE) THEN
3472: x_tldv_rec.LATE_CHARGE_ASSESS_DATE := l_tldv_rec.LATE_CHARGE_ASSESS_DATE;
3473: END IF;
3474:
3475: IF (x_tldv_rec.LATE_INT_ASSESS_DATE = Okl_api.G_MISS_DATE) THEN
3471: IF (x_tldv_rec.LATE_CHARGE_ASSESS_DATE = Okl_api.G_MISS_DATE) THEN
3472: x_tldv_rec.LATE_CHARGE_ASSESS_DATE := l_tldv_rec.LATE_CHARGE_ASSESS_DATE;
3473: END IF;
3474:
3475: IF (x_tldv_rec.LATE_INT_ASSESS_DATE = Okl_api.G_MISS_DATE) THEN
3476: x_tldv_rec.LATE_INT_ASSESS_DATE := l_tldv_rec.LATE_INT_ASSESS_DATE;
3477: END IF;
3478:
3479: IF (x_tldv_rec.LATE_CHARGE_ASS_YN = Okl_api.G_MISS_CHAR) THEN
3475: IF (x_tldv_rec.LATE_INT_ASSESS_DATE = Okl_api.G_MISS_DATE) THEN
3476: x_tldv_rec.LATE_INT_ASSESS_DATE := l_tldv_rec.LATE_INT_ASSESS_DATE;
3477: END IF;
3478:
3479: IF (x_tldv_rec.LATE_CHARGE_ASS_YN = Okl_api.G_MISS_CHAR) THEN
3480: x_tldv_rec.LATE_CHARGE_ASS_YN := l_tldv_rec.LATE_CHARGE_ASS_YN;
3481: END IF;
3482:
3483: IF (x_tldv_rec.LATE_INT_ASS_YN = Okl_api.G_MISS_CHAR) THEN
3479: IF (x_tldv_rec.LATE_CHARGE_ASS_YN = Okl_api.G_MISS_CHAR) THEN
3480: x_tldv_rec.LATE_CHARGE_ASS_YN := l_tldv_rec.LATE_CHARGE_ASS_YN;
3481: END IF;
3482:
3483: IF (x_tldv_rec.LATE_INT_ASS_YN = Okl_api.G_MISS_CHAR) THEN
3484: x_tldv_rec.LATE_INT_ASS_YN := l_tldv_rec.LATE_INT_ASS_YN;
3485: END IF;
3486:
3487: IF (x_tldv_rec.INVESTOR_DISB_STATUS = Okl_api.G_MISS_CHAR) THEN
3483: IF (x_tldv_rec.LATE_INT_ASS_YN = Okl_api.G_MISS_CHAR) THEN
3484: x_tldv_rec.LATE_INT_ASS_YN := l_tldv_rec.LATE_INT_ASS_YN;
3485: END IF;
3486:
3487: IF (x_tldv_rec.INVESTOR_DISB_STATUS = Okl_api.G_MISS_CHAR) THEN
3488: x_tldv_rec.INVESTOR_DISB_STATUS := l_tldv_rec.INVESTOR_DISB_STATUS;
3489: END IF;
3490:
3491: IF (x_tldv_rec.INVESTOR_DISB_ERR_MG = Okl_api.G_MISS_CHAR) THEN
3487: IF (x_tldv_rec.INVESTOR_DISB_STATUS = Okl_api.G_MISS_CHAR) THEN
3488: x_tldv_rec.INVESTOR_DISB_STATUS := l_tldv_rec.INVESTOR_DISB_STATUS;
3489: END IF;
3490:
3491: IF (x_tldv_rec.INVESTOR_DISB_ERR_MG = Okl_api.G_MISS_CHAR) THEN
3492: x_tldv_rec.INVESTOR_DISB_ERR_MG := l_tldv_rec.INVESTOR_DISB_ERR_MG;
3493: END IF;
3494:
3495: IF (x_tldv_rec.DATE_DISBURSED = Okl_api.G_MISS_DATE) THEN
3491: IF (x_tldv_rec.INVESTOR_DISB_ERR_MG = Okl_api.G_MISS_CHAR) THEN
3492: x_tldv_rec.INVESTOR_DISB_ERR_MG := l_tldv_rec.INVESTOR_DISB_ERR_MG;
3493: END IF;
3494:
3495: IF (x_tldv_rec.DATE_DISBURSED = Okl_api.G_MISS_DATE) THEN
3496: x_tldv_rec.DATE_DISBURSED := l_tldv_rec.DATE_DISBURSED;
3497: END IF;
3498:
3499: IF (x_tldv_rec.PAY_STATUS_CODE = Okl_api.G_MISS_CHAR) THEN
3495: IF (x_tldv_rec.DATE_DISBURSED = Okl_api.G_MISS_DATE) THEN
3496: x_tldv_rec.DATE_DISBURSED := l_tldv_rec.DATE_DISBURSED;
3497: END IF;
3498:
3499: IF (x_tldv_rec.PAY_STATUS_CODE = Okl_api.G_MISS_CHAR) THEN
3500: x_tldv_rec.PAY_STATUS_CODE := l_tldv_rec.PAY_STATUS_CODE;
3501: END IF;
3502:
3503: IF (x_tldv_rec.RBK_ORI_INVOICE_NUMBER = Okl_api.G_MISS_CHAR) THEN
3499: IF (x_tldv_rec.PAY_STATUS_CODE = Okl_api.G_MISS_CHAR) THEN
3500: x_tldv_rec.PAY_STATUS_CODE := l_tldv_rec.PAY_STATUS_CODE;
3501: END IF;
3502:
3503: IF (x_tldv_rec.RBK_ORI_INVOICE_NUMBER = Okl_api.G_MISS_CHAR) THEN
3504: x_tldv_rec.RBK_ORI_INVOICE_NUMBER := l_tldv_rec.RBK_ORI_INVOICE_NUMBER;
3505: END IF;
3506:
3507: IF (x_tldv_rec.RBK_ORI_INVOICE_LINE_NUMBER = Okl_api.G_MISS_CHAR) THEN
3503: IF (x_tldv_rec.RBK_ORI_INVOICE_NUMBER = Okl_api.G_MISS_CHAR) THEN
3504: x_tldv_rec.RBK_ORI_INVOICE_NUMBER := l_tldv_rec.RBK_ORI_INVOICE_NUMBER;
3505: END IF;
3506:
3507: IF (x_tldv_rec.RBK_ORI_INVOICE_LINE_NUMBER = Okl_api.G_MISS_CHAR) THEN
3508: x_tldv_rec.RBK_ORI_INVOICE_LINE_NUMBER := l_tldv_rec.RBK_ORI_INVOICE_LINE_NUMBER;
3509: END IF;
3510:
3511: IF (x_tldv_rec.RBK_ADJUSTMENT_DATE = Okl_api.G_MISS_DATE) THEN
3507: IF (x_tldv_rec.RBK_ORI_INVOICE_LINE_NUMBER = Okl_api.G_MISS_CHAR) THEN
3508: x_tldv_rec.RBK_ORI_INVOICE_LINE_NUMBER := l_tldv_rec.RBK_ORI_INVOICE_LINE_NUMBER;
3509: END IF;
3510:
3511: IF (x_tldv_rec.RBK_ADJUSTMENT_DATE = Okl_api.G_MISS_DATE) THEN
3512: x_tldv_rec.RBK_ADJUSTMENT_DATE := l_tldv_rec.RBK_ADJUSTMENT_DATE;
3513: END IF;
3514:
3515: IF (x_tldv_rec.KHR_ID = Okl_api.G_MISS_NUM) THEN
3511: IF (x_tldv_rec.RBK_ADJUSTMENT_DATE = Okl_api.G_MISS_DATE) THEN
3512: x_tldv_rec.RBK_ADJUSTMENT_DATE := l_tldv_rec.RBK_ADJUSTMENT_DATE;
3513: END IF;
3514:
3515: IF (x_tldv_rec.KHR_ID = Okl_api.G_MISS_NUM) THEN
3516: x_tldv_rec.KHR_ID := l_tldv_rec.KHR_ID;
3517: END IF;
3518:
3519: IF (x_tldv_rec.KLE_ID = Okl_api.G_MISS_NUM) THEN
3515: IF (x_tldv_rec.KHR_ID = Okl_api.G_MISS_NUM) THEN
3516: x_tldv_rec.KHR_ID := l_tldv_rec.KHR_ID;
3517: END IF;
3518:
3519: IF (x_tldv_rec.KLE_ID = Okl_api.G_MISS_NUM) THEN
3520: x_tldv_rec.KLE_ID := l_tldv_rec.KLE_ID;
3521: END IF;
3522:
3523: IF (x_tldv_rec.TAX_AMOUNT = Okl_api.G_MISS_NUM) THEN
3519: IF (x_tldv_rec.KLE_ID = Okl_api.G_MISS_NUM) THEN
3520: x_tldv_rec.KLE_ID := l_tldv_rec.KLE_ID;
3521: END IF;
3522:
3523: IF (x_tldv_rec.TAX_AMOUNT = Okl_api.G_MISS_NUM) THEN
3524: x_tldv_rec.TAX_AMOUNT := l_tldv_rec.TAX_AMOUNT;
3525: END IF;
3526: --gkhuntet 10-Jul-07 Ended .
3527:
3527:
3528: --end: 30-Jan-07 cklee Billing R12 project |
3529:
3530:
3531: IF (x_tldv_rec.attribute_category = Okl_api.G_MISS_CHAR)
3532: THEN
3533: x_tldv_rec.attribute_category := l_tldv_rec.attribute_category;
3534: END IF;
3535: IF (x_tldv_rec.attribute1 = Okl_api.G_MISS_CHAR)
3531: IF (x_tldv_rec.attribute_category = Okl_api.G_MISS_CHAR)
3532: THEN
3533: x_tldv_rec.attribute_category := l_tldv_rec.attribute_category;
3534: END IF;
3535: IF (x_tldv_rec.attribute1 = Okl_api.G_MISS_CHAR)
3536: THEN
3537: x_tldv_rec.attribute1 := l_tldv_rec.attribute1;
3538: END IF;
3539: IF (x_tldv_rec.attribute2 = Okl_api.G_MISS_CHAR)
3535: IF (x_tldv_rec.attribute1 = Okl_api.G_MISS_CHAR)
3536: THEN
3537: x_tldv_rec.attribute1 := l_tldv_rec.attribute1;
3538: END IF;
3539: IF (x_tldv_rec.attribute2 = Okl_api.G_MISS_CHAR)
3540: THEN
3541: x_tldv_rec.attribute2 := l_tldv_rec.attribute2;
3542: END IF;
3543: IF (x_tldv_rec.attribute3 = Okl_api.G_MISS_CHAR)
3539: IF (x_tldv_rec.attribute2 = Okl_api.G_MISS_CHAR)
3540: THEN
3541: x_tldv_rec.attribute2 := l_tldv_rec.attribute2;
3542: END IF;
3543: IF (x_tldv_rec.attribute3 = Okl_api.G_MISS_CHAR)
3544: THEN
3545: x_tldv_rec.attribute3 := l_tldv_rec.attribute3;
3546: END IF;
3547: IF (x_tldv_rec.attribute4 = Okl_api.G_MISS_CHAR)
3543: IF (x_tldv_rec.attribute3 = Okl_api.G_MISS_CHAR)
3544: THEN
3545: x_tldv_rec.attribute3 := l_tldv_rec.attribute3;
3546: END IF;
3547: IF (x_tldv_rec.attribute4 = Okl_api.G_MISS_CHAR)
3548: THEN
3549: x_tldv_rec.attribute4 := l_tldv_rec.attribute4;
3550: END IF;
3551: IF (x_tldv_rec.attribute5 = Okl_api.G_MISS_CHAR)
3547: IF (x_tldv_rec.attribute4 = Okl_api.G_MISS_CHAR)
3548: THEN
3549: x_tldv_rec.attribute4 := l_tldv_rec.attribute4;
3550: END IF;
3551: IF (x_tldv_rec.attribute5 = Okl_api.G_MISS_CHAR)
3552: THEN
3553: x_tldv_rec.attribute5 := l_tldv_rec.attribute5;
3554: END IF;
3555: IF (x_tldv_rec.attribute6 = Okl_api.G_MISS_CHAR)
3551: IF (x_tldv_rec.attribute5 = Okl_api.G_MISS_CHAR)
3552: THEN
3553: x_tldv_rec.attribute5 := l_tldv_rec.attribute5;
3554: END IF;
3555: IF (x_tldv_rec.attribute6 = Okl_api.G_MISS_CHAR)
3556: THEN
3557: x_tldv_rec.attribute6 := l_tldv_rec.attribute6;
3558: END IF;
3559: IF (x_tldv_rec.attribute7 = Okl_api.G_MISS_CHAR)
3555: IF (x_tldv_rec.attribute6 = Okl_api.G_MISS_CHAR)
3556: THEN
3557: x_tldv_rec.attribute6 := l_tldv_rec.attribute6;
3558: END IF;
3559: IF (x_tldv_rec.attribute7 = Okl_api.G_MISS_CHAR)
3560: THEN
3561: x_tldv_rec.attribute7 := l_tldv_rec.attribute7;
3562: END IF;
3563: IF (x_tldv_rec.attribute8 = Okl_api.G_MISS_CHAR)
3559: IF (x_tldv_rec.attribute7 = Okl_api.G_MISS_CHAR)
3560: THEN
3561: x_tldv_rec.attribute7 := l_tldv_rec.attribute7;
3562: END IF;
3563: IF (x_tldv_rec.attribute8 = Okl_api.G_MISS_CHAR)
3564: THEN
3565: x_tldv_rec.attribute8 := l_tldv_rec.attribute8;
3566: END IF;
3567: IF (x_tldv_rec.attribute9 = Okl_api.G_MISS_CHAR)
3563: IF (x_tldv_rec.attribute8 = Okl_api.G_MISS_CHAR)
3564: THEN
3565: x_tldv_rec.attribute8 := l_tldv_rec.attribute8;
3566: END IF;
3567: IF (x_tldv_rec.attribute9 = Okl_api.G_MISS_CHAR)
3568: THEN
3569: x_tldv_rec.attribute9 := l_tldv_rec.attribute9;
3570: END IF;
3571: IF (x_tldv_rec.attribute10 = Okl_api.G_MISS_CHAR)
3567: IF (x_tldv_rec.attribute9 = Okl_api.G_MISS_CHAR)
3568: THEN
3569: x_tldv_rec.attribute9 := l_tldv_rec.attribute9;
3570: END IF;
3571: IF (x_tldv_rec.attribute10 = Okl_api.G_MISS_CHAR)
3572: THEN
3573: x_tldv_rec.attribute10 := l_tldv_rec.attribute10;
3574: END IF;
3575: IF (x_tldv_rec.attribute11 = Okl_api.G_MISS_CHAR)
3571: IF (x_tldv_rec.attribute10 = Okl_api.G_MISS_CHAR)
3572: THEN
3573: x_tldv_rec.attribute10 := l_tldv_rec.attribute10;
3574: END IF;
3575: IF (x_tldv_rec.attribute11 = Okl_api.G_MISS_CHAR)
3576: THEN
3577: x_tldv_rec.attribute11 := l_tldv_rec.attribute11;
3578: END IF;
3579: IF (x_tldv_rec.attribute12 = Okl_api.G_MISS_CHAR)
3575: IF (x_tldv_rec.attribute11 = Okl_api.G_MISS_CHAR)
3576: THEN
3577: x_tldv_rec.attribute11 := l_tldv_rec.attribute11;
3578: END IF;
3579: IF (x_tldv_rec.attribute12 = Okl_api.G_MISS_CHAR)
3580: THEN
3581: x_tldv_rec.attribute12 := l_tldv_rec.attribute12;
3582: END IF;
3583: IF (x_tldv_rec.attribute13 = Okl_api.G_MISS_CHAR)
3579: IF (x_tldv_rec.attribute12 = Okl_api.G_MISS_CHAR)
3580: THEN
3581: x_tldv_rec.attribute12 := l_tldv_rec.attribute12;
3582: END IF;
3583: IF (x_tldv_rec.attribute13 = Okl_api.G_MISS_CHAR)
3584: THEN
3585: x_tldv_rec.attribute13 := l_tldv_rec.attribute13;
3586: END IF;
3587: IF (x_tldv_rec.attribute14 = Okl_api.G_MISS_CHAR)
3583: IF (x_tldv_rec.attribute13 = Okl_api.G_MISS_CHAR)
3584: THEN
3585: x_tldv_rec.attribute13 := l_tldv_rec.attribute13;
3586: END IF;
3587: IF (x_tldv_rec.attribute14 = Okl_api.G_MISS_CHAR)
3588: THEN
3589: x_tldv_rec.attribute14 := l_tldv_rec.attribute14;
3590: END IF;
3591: IF (x_tldv_rec.attribute15 = Okl_api.G_MISS_CHAR)
3587: IF (x_tldv_rec.attribute14 = Okl_api.G_MISS_CHAR)
3588: THEN
3589: x_tldv_rec.attribute14 := l_tldv_rec.attribute14;
3590: END IF;
3591: IF (x_tldv_rec.attribute15 = Okl_api.G_MISS_CHAR)
3592: THEN
3593: x_tldv_rec.attribute15 := l_tldv_rec.attribute15;
3594: END IF;
3595: IF (x_tldv_rec.request_id = Okl_api.G_MISS_NUM)
3591: IF (x_tldv_rec.attribute15 = Okl_api.G_MISS_CHAR)
3592: THEN
3593: x_tldv_rec.attribute15 := l_tldv_rec.attribute15;
3594: END IF;
3595: IF (x_tldv_rec.request_id = Okl_api.G_MISS_NUM)
3596: THEN
3597: x_tldv_rec.request_id := l_tldv_rec.request_id;
3598: END IF;
3599: IF (x_tldv_rec.program_application_id = Okl_api.G_MISS_NUM)
3595: IF (x_tldv_rec.request_id = Okl_api.G_MISS_NUM)
3596: THEN
3597: x_tldv_rec.request_id := l_tldv_rec.request_id;
3598: END IF;
3599: IF (x_tldv_rec.program_application_id = Okl_api.G_MISS_NUM)
3600: THEN
3601: x_tldv_rec.program_application_id := l_tldv_rec.program_application_id;
3602: END IF;
3603: IF (x_tldv_rec.program_id = Okl_api.G_MISS_NUM)
3599: IF (x_tldv_rec.program_application_id = Okl_api.G_MISS_NUM)
3600: THEN
3601: x_tldv_rec.program_application_id := l_tldv_rec.program_application_id;
3602: END IF;
3603: IF (x_tldv_rec.program_id = Okl_api.G_MISS_NUM)
3604: THEN
3605: x_tldv_rec.program_id := l_tldv_rec.program_id;
3606: END IF;
3607: IF (x_tldv_rec.program_update_date = Okl_api.G_MISS_DATE)
3603: IF (x_tldv_rec.program_id = Okl_api.G_MISS_NUM)
3604: THEN
3605: x_tldv_rec.program_id := l_tldv_rec.program_id;
3606: END IF;
3607: IF (x_tldv_rec.program_update_date = Okl_api.G_MISS_DATE)
3608: THEN
3609: x_tldv_rec.program_update_date := l_tldv_rec.program_update_date;
3610: END IF;
3611: IF (x_tldv_rec.org_id = Okl_api.G_MISS_NUM)
3607: IF (x_tldv_rec.program_update_date = Okl_api.G_MISS_DATE)
3608: THEN
3609: x_tldv_rec.program_update_date := l_tldv_rec.program_update_date;
3610: END IF;
3611: IF (x_tldv_rec.org_id = Okl_api.G_MISS_NUM)
3612: THEN
3613: x_tldv_rec.org_id := l_tldv_rec.org_id;
3614: END IF;
3615:
3612: THEN
3613: x_tldv_rec.org_id := l_tldv_rec.org_id;
3614: END IF;
3615:
3616: IF (x_tldv_rec.inventory_org_id = Okl_api.G_MISS_NUM)
3617: THEN
3618: x_tldv_rec.inventory_org_id := l_tldv_rec.inventory_org_id;
3619: END IF;
3620:
3617: THEN
3618: x_tldv_rec.inventory_org_id := l_tldv_rec.inventory_org_id;
3619: END IF;
3620:
3621: IF (x_tldv_rec.created_by = Okl_api.G_MISS_NUM)
3622: THEN
3623: x_tldv_rec.created_by := l_tldv_rec.created_by;
3624: END IF;
3625: IF (x_tldv_rec.creation_date = Okl_api.G_MISS_DATE)
3621: IF (x_tldv_rec.created_by = Okl_api.G_MISS_NUM)
3622: THEN
3623: x_tldv_rec.created_by := l_tldv_rec.created_by;
3624: END IF;
3625: IF (x_tldv_rec.creation_date = Okl_api.G_MISS_DATE)
3626: THEN
3627: x_tldv_rec.creation_date := l_tldv_rec.creation_date;
3628: END IF;
3629: IF (x_tldv_rec.last_updated_by = Okl_api.G_MISS_NUM)
3625: IF (x_tldv_rec.creation_date = Okl_api.G_MISS_DATE)
3626: THEN
3627: x_tldv_rec.creation_date := l_tldv_rec.creation_date;
3628: END IF;
3629: IF (x_tldv_rec.last_updated_by = Okl_api.G_MISS_NUM)
3630: THEN
3631: x_tldv_rec.last_updated_by := l_tldv_rec.last_updated_by;
3632: END IF;
3633: IF (x_tldv_rec.last_update_date = Okl_api.G_MISS_DATE)
3629: IF (x_tldv_rec.last_updated_by = Okl_api.G_MISS_NUM)
3630: THEN
3631: x_tldv_rec.last_updated_by := l_tldv_rec.last_updated_by;
3632: END IF;
3633: IF (x_tldv_rec.last_update_date = Okl_api.G_MISS_DATE)
3634: THEN
3635: x_tldv_rec.last_update_date := l_tldv_rec.last_update_date;
3636: END IF;
3637: IF (x_tldv_rec.last_update_login = Okl_api.G_MISS_NUM)
3633: IF (x_tldv_rec.last_update_date = Okl_api.G_MISS_DATE)
3634: THEN
3635: x_tldv_rec.last_update_date := l_tldv_rec.last_update_date;
3636: END IF;
3637: IF (x_tldv_rec.last_update_login = Okl_api.G_MISS_NUM)
3638: THEN
3639: x_tldv_rec.last_update_login := l_tldv_rec.last_update_login;
3640: END IF;
3641: RETURN(l_return_status);
3646: FUNCTION Set_Attributes (
3647: p_tldv_rec IN tldv_rec_type,
3648: x_tldv_rec OUT NOCOPY tldv_rec_type
3649: ) RETURN VARCHAR2 IS
3650: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
3651: BEGIN
3652: x_tldv_rec := p_tldv_rec;
3653: x_tldv_rec.OBJECT_VERSION_NUMBER := NVL(x_tldv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
3654:
3651: BEGIN
3652: x_tldv_rec := p_tldv_rec;
3653: x_tldv_rec.OBJECT_VERSION_NUMBER := NVL(x_tldv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
3654:
3655: IF (x_tldv_rec.request_id IS NULL OR x_tldv_rec.request_id = Okl_api.G_MISS_NUM) THEN
3656:
3657: -- Begin Post-Generation Change
3658: SELECT
3659: NVL(DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,Fnd_Global.CONC_REQUEST_ID),
3677:
3678: RETURN(l_return_status);
3679: END Set_Attributes;
3680: BEGIN
3681: l_return_status := Okl_api.START_ACTIVITY(l_api_name,
3682: G_PKG_NAME,
3683: p_init_msg_list,
3684: l_api_version,
3685: p_api_version,
3684: l_api_version,
3685: p_api_version,
3686: '_PVT',
3687: x_return_status);
3688: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3689: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3690: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3691: RAISE Okl_api.G_EXCEPTION_ERROR;
3692: END IF;
3685: p_api_version,
3686: '_PVT',
3687: x_return_status);
3688: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3689: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3690: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3691: RAISE Okl_api.G_EXCEPTION_ERROR;
3692: END IF;
3693: --- Setting item attributes
3686: '_PVT',
3687: x_return_status);
3688: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3689: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3690: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3691: RAISE Okl_api.G_EXCEPTION_ERROR;
3692: END IF;
3693: --- Setting item attributes
3694: l_return_status := Set_Attributes(
3687: x_return_status);
3688: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3689: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3690: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3691: RAISE Okl_api.G_EXCEPTION_ERROR;
3692: END IF;
3693: --- Setting item attributes
3694: l_return_status := Set_Attributes(
3695: p_tldv_rec, -- IN
3694: l_return_status := Set_Attributes(
3695: p_tldv_rec, -- IN
3696: l_tldv_rec); -- OUT
3697: --- If any errors happen abort API
3698: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3699: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3700: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3701: RAISE Okl_api.G_EXCEPTION_ERROR;
3702: END IF;
3695: p_tldv_rec, -- IN
3696: l_tldv_rec); -- OUT
3697: --- If any errors happen abort API
3698: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3699: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3700: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3701: RAISE Okl_api.G_EXCEPTION_ERROR;
3702: END IF;
3703: l_return_status := populate_new_record(l_tldv_rec, l_def_tldv_rec);
3696: l_tldv_rec); -- OUT
3697: --- If any errors happen abort API
3698: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3699: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3700: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3701: RAISE Okl_api.G_EXCEPTION_ERROR;
3702: END IF;
3703: l_return_status := populate_new_record(l_tldv_rec, l_def_tldv_rec);
3704: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3697: --- If any errors happen abort API
3698: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3699: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3700: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3701: RAISE Okl_api.G_EXCEPTION_ERROR;
3702: END IF;
3703: l_return_status := populate_new_record(l_tldv_rec, l_def_tldv_rec);
3704: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3705: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3700: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3701: RAISE Okl_api.G_EXCEPTION_ERROR;
3702: END IF;
3703: l_return_status := populate_new_record(l_tldv_rec, l_def_tldv_rec);
3704: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3705: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3706: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3707: RAISE Okl_api.G_EXCEPTION_ERROR;
3708: END IF;
3701: RAISE Okl_api.G_EXCEPTION_ERROR;
3702: END IF;
3703: l_return_status := populate_new_record(l_tldv_rec, l_def_tldv_rec);
3704: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3705: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3706: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3707: RAISE Okl_api.G_EXCEPTION_ERROR;
3708: END IF;
3709: l_def_tldv_rec := fill_who_columns(l_def_tldv_rec);
3702: END IF;
3703: l_return_status := populate_new_record(l_tldv_rec, l_def_tldv_rec);
3704: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3705: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3706: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3707: RAISE Okl_api.G_EXCEPTION_ERROR;
3708: END IF;
3709: l_def_tldv_rec := fill_who_columns(l_def_tldv_rec);
3710: --- Validate all non-missing attributes (Item Level Validation)
3703: l_return_status := populate_new_record(l_tldv_rec, l_def_tldv_rec);
3704: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3705: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3706: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3707: RAISE Okl_api.G_EXCEPTION_ERROR;
3708: END IF;
3709: l_def_tldv_rec := fill_who_columns(l_def_tldv_rec);
3710: --- Validate all non-missing attributes (Item Level Validation)
3711: l_return_status := Validate_Attributes(l_def_tldv_rec);
3709: l_def_tldv_rec := fill_who_columns(l_def_tldv_rec);
3710: --- Validate all non-missing attributes (Item Level Validation)
3711: l_return_status := Validate_Attributes(l_def_tldv_rec);
3712: --- If any errors happen abort API
3713: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3714: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3715: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3716: RAISE Okl_api.G_EXCEPTION_ERROR;
3717: END IF;
3710: --- Validate all non-missing attributes (Item Level Validation)
3711: l_return_status := Validate_Attributes(l_def_tldv_rec);
3712: --- If any errors happen abort API
3713: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3714: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3715: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3716: RAISE Okl_api.G_EXCEPTION_ERROR;
3717: END IF;
3718: l_return_status := Validate_Record(l_def_tldv_rec);
3711: l_return_status := Validate_Attributes(l_def_tldv_rec);
3712: --- If any errors happen abort API
3713: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3714: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3715: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3716: RAISE Okl_api.G_EXCEPTION_ERROR;
3717: END IF;
3718: l_return_status := Validate_Record(l_def_tldv_rec);
3719: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3712: --- If any errors happen abort API
3713: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3714: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3715: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3716: RAISE Okl_api.G_EXCEPTION_ERROR;
3717: END IF;
3718: l_return_status := Validate_Record(l_def_tldv_rec);
3719: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3720: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3715: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3716: RAISE Okl_api.G_EXCEPTION_ERROR;
3717: END IF;
3718: l_return_status := Validate_Record(l_def_tldv_rec);
3719: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3720: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3721: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3722: RAISE Okl_api.G_EXCEPTION_ERROR;
3723: END IF;
3716: RAISE Okl_api.G_EXCEPTION_ERROR;
3717: END IF;
3718: l_return_status := Validate_Record(l_def_tldv_rec);
3719: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3720: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3721: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3722: RAISE Okl_api.G_EXCEPTION_ERROR;
3723: END IF;
3724:
3717: END IF;
3718: l_return_status := Validate_Record(l_def_tldv_rec);
3719: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3720: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3721: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3722: RAISE Okl_api.G_EXCEPTION_ERROR;
3723: END IF;
3724:
3725: --------------------------------------
3718: l_return_status := Validate_Record(l_def_tldv_rec);
3719: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3720: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3721: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3722: RAISE Okl_api.G_EXCEPTION_ERROR;
3723: END IF;
3724:
3725: --------------------------------------
3726: -- Move VIEW record to "Child" records
3737: x_msg_data,
3738: l_okl_txd_ar_ln_dtls_tl_rec,
3739: lx_okl_txd_ar_ln_dtls_tl_rec
3740: );
3741: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3742: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3743: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
3744: RAISE Okl_api.G_EXCEPTION_ERROR;
3745: END IF;
3738: l_okl_txd_ar_ln_dtls_tl_rec,
3739: lx_okl_txd_ar_ln_dtls_tl_rec
3740: );
3741: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3742: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3743: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
3744: RAISE Okl_api.G_EXCEPTION_ERROR;
3745: END IF;
3746: migrate(lx_okl_txd_ar_ln_dtls_tl_rec, l_def_tldv_rec);
3739: lx_okl_txd_ar_ln_dtls_tl_rec
3740: );
3741: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3742: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3743: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
3744: RAISE Okl_api.G_EXCEPTION_ERROR;
3745: END IF;
3746: migrate(lx_okl_txd_ar_ln_dtls_tl_rec, l_def_tldv_rec);
3747: update_row(
3740: );
3741: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3742: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3743: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
3744: RAISE Okl_api.G_EXCEPTION_ERROR;
3745: END IF;
3746: migrate(lx_okl_txd_ar_ln_dtls_tl_rec, l_def_tldv_rec);
3747: update_row(
3748: p_init_msg_list,
3751: x_msg_data,
3752: l_tld_rec,
3753: lx_tld_rec
3754: );
3755: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3756: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3757: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
3758: RAISE Okl_api.G_EXCEPTION_ERROR;
3759: END IF;
3752: l_tld_rec,
3753: lx_tld_rec
3754: );
3755: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3756: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3757: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
3758: RAISE Okl_api.G_EXCEPTION_ERROR;
3759: END IF;
3760: migrate(lx_tld_rec, l_def_tldv_rec);
3753: lx_tld_rec
3754: );
3755: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3756: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3757: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
3758: RAISE Okl_api.G_EXCEPTION_ERROR;
3759: END IF;
3760: migrate(lx_tld_rec, l_def_tldv_rec);
3761: x_tldv_rec := l_def_tldv_rec;
3754: );
3755: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3756: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3757: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
3758: RAISE Okl_api.G_EXCEPTION_ERROR;
3759: END IF;
3760: migrate(lx_tld_rec, l_def_tldv_rec);
3761: x_tldv_rec := l_def_tldv_rec;
3762: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
3758: RAISE Okl_api.G_EXCEPTION_ERROR;
3759: END IF;
3760: migrate(lx_tld_rec, l_def_tldv_rec);
3761: x_tldv_rec := l_def_tldv_rec;
3762: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
3763: EXCEPTION
3764: WHEN Okl_api.G_EXCEPTION_ERROR THEN
3765: x_return_status := Okl_api.HANDLE_EXCEPTIONS
3766: (
3760: migrate(lx_tld_rec, l_def_tldv_rec);
3761: x_tldv_rec := l_def_tldv_rec;
3762: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
3763: EXCEPTION
3764: WHEN Okl_api.G_EXCEPTION_ERROR THEN
3765: x_return_status := Okl_api.HANDLE_EXCEPTIONS
3766: (
3767: l_api_name,
3768: G_PKG_NAME,
3761: x_tldv_rec := l_def_tldv_rec;
3762: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
3763: EXCEPTION
3764: WHEN Okl_api.G_EXCEPTION_ERROR THEN
3765: x_return_status := Okl_api.HANDLE_EXCEPTIONS
3766: (
3767: l_api_name,
3768: G_PKG_NAME,
3769: 'Okl_api.G_RET_STS_ERROR',
3765: x_return_status := Okl_api.HANDLE_EXCEPTIONS
3766: (
3767: l_api_name,
3768: G_PKG_NAME,
3769: 'Okl_api.G_RET_STS_ERROR',
3770: x_msg_count,
3771: x_msg_data,
3772: '_PVT'
3773: );
3770: x_msg_count,
3771: x_msg_data,
3772: '_PVT'
3773: );
3774: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3775: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
3776: (
3777: l_api_name,
3778: G_PKG_NAME,
3771: x_msg_data,
3772: '_PVT'
3773: );
3774: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3775: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
3776: (
3777: l_api_name,
3778: G_PKG_NAME,
3779: 'Okl_api.G_RET_STS_UNEXP_ERROR',
3775: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
3776: (
3777: l_api_name,
3778: G_PKG_NAME,
3779: 'Okl_api.G_RET_STS_UNEXP_ERROR',
3780: x_msg_count,
3781: x_msg_data,
3782: '_PVT'
3783: );
3781: x_msg_data,
3782: '_PVT'
3783: );
3784: WHEN OTHERS THEN
3785: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
3786: (
3787: l_api_name,
3788: G_PKG_NAME,
3789: 'OTHERS',
3805: x_tldv_tbl OUT NOCOPY tldv_tbl_type) IS
3806:
3807: l_api_version CONSTANT NUMBER := 1;
3808: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3809: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
3810: -- Begin Post-Generation Change
3811: -- overall error status
3812: l_overall_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
3813: -- End Post-Generation Change
3808: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3809: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
3810: -- Begin Post-Generation Change
3811: -- overall error status
3812: l_overall_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
3813: -- End Post-Generation Change
3814: i NUMBER := 0;
3815: BEGIN
3816: Okl_api.init_msg_list(p_init_msg_list);
3812: l_overall_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
3813: -- End Post-Generation Change
3814: i NUMBER := 0;
3815: BEGIN
3816: Okl_api.init_msg_list(p_init_msg_list);
3817: -- Make sure PL/SQL table has records in it before passing
3818: IF (p_tldv_tbl.COUNT > 0) THEN
3819: i := p_tldv_tbl.FIRST;
3820: LOOP
3819: i := p_tldv_tbl.FIRST;
3820: LOOP
3821: update_row (
3822: p_api_version => p_api_version,
3823: p_init_msg_list => Okl_api.G_FALSE,
3824: x_return_status => x_return_status,
3825: x_msg_count => x_msg_count,
3826: x_msg_data => x_msg_data,
3827: p_tldv_rec => p_tldv_tbl(i),
3827: p_tldv_rec => p_tldv_tbl(i),
3828: x_tldv_rec => x_tldv_tbl(i));
3829: -- Begin Post-Generation Change
3830: -- store the highest degree of error
3831: IF x_return_status <> Okl_api.G_RET_STS_SUCCESS THEN
3832: IF l_overall_status <> Okl_api.G_RET_STS_UNEXP_ERROR THEN
3833: l_overall_status := x_return_status;
3834: END IF;
3835: END IF;
3828: x_tldv_rec => x_tldv_tbl(i));
3829: -- Begin Post-Generation Change
3830: -- store the highest degree of error
3831: IF x_return_status <> Okl_api.G_RET_STS_SUCCESS THEN
3832: IF l_overall_status <> Okl_api.G_RET_STS_UNEXP_ERROR THEN
3833: l_overall_status := x_return_status;
3834: END IF;
3835: END IF;
3836: -- End Post-Generation Change
3842: x_return_status := l_overall_status;
3843: -- End Post-Generation Change
3844: END IF;
3845: EXCEPTION
3846: WHEN Okl_api.G_EXCEPTION_ERROR THEN
3847: x_return_status := Okl_api.HANDLE_EXCEPTIONS
3848: (
3849: l_api_name,
3850: G_PKG_NAME,
3843: -- End Post-Generation Change
3844: END IF;
3845: EXCEPTION
3846: WHEN Okl_api.G_EXCEPTION_ERROR THEN
3847: x_return_status := Okl_api.HANDLE_EXCEPTIONS
3848: (
3849: l_api_name,
3850: G_PKG_NAME,
3851: 'Okl_api.G_RET_STS_ERROR',
3847: x_return_status := Okl_api.HANDLE_EXCEPTIONS
3848: (
3849: l_api_name,
3850: G_PKG_NAME,
3851: 'Okl_api.G_RET_STS_ERROR',
3852: x_msg_count,
3853: x_msg_data,
3854: '_PVT'
3855: );
3852: x_msg_count,
3853: x_msg_data,
3854: '_PVT'
3855: );
3856: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3857: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
3858: (
3859: l_api_name,
3860: G_PKG_NAME,
3853: x_msg_data,
3854: '_PVT'
3855: );
3856: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3857: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
3858: (
3859: l_api_name,
3860: G_PKG_NAME,
3861: 'Okl_api.G_RET_STS_UNEXP_ERROR',
3857: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
3858: (
3859: l_api_name,
3860: G_PKG_NAME,
3861: 'Okl_api.G_RET_STS_UNEXP_ERROR',
3862: x_msg_count,
3863: x_msg_data,
3864: '_PVT'
3865: );
3863: x_msg_data,
3864: '_PVT'
3865: );
3866: WHEN OTHERS THEN
3867: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
3868: (
3869: l_api_name,
3870: G_PKG_NAME,
3871: 'OTHERS',
3889: p_tld_rec IN tld_rec_type) IS
3890:
3891: l_api_version CONSTANT NUMBER := 1;
3892: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
3893: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
3894: l_tld_rec tld_rec_type:= p_tld_rec;
3895: l_row_notfound BOOLEAN := TRUE;
3896: BEGIN
3897: l_return_status := Okl_api.START_ACTIVITY(l_api_name,
3893: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
3894: l_tld_rec tld_rec_type:= p_tld_rec;
3895: l_row_notfound BOOLEAN := TRUE;
3896: BEGIN
3897: l_return_status := Okl_api.START_ACTIVITY(l_api_name,
3898: p_init_msg_list,
3899: '_PVT',
3900: x_return_status);
3901: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3897: l_return_status := Okl_api.START_ACTIVITY(l_api_name,
3898: p_init_msg_list,
3899: '_PVT',
3900: x_return_status);
3901: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3902: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3903: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3904: RAISE Okl_api.G_EXCEPTION_ERROR;
3905: END IF;
3898: p_init_msg_list,
3899: '_PVT',
3900: x_return_status);
3901: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3902: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3903: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3904: RAISE Okl_api.G_EXCEPTION_ERROR;
3905: END IF;
3906: DELETE FROM OKL_TXD_AR_LN_DTLS_B
3899: '_PVT',
3900: x_return_status);
3901: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3902: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3903: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3904: RAISE Okl_api.G_EXCEPTION_ERROR;
3905: END IF;
3906: DELETE FROM OKL_TXD_AR_LN_DTLS_B
3907: WHERE ID = l_tld_rec.id;
3900: x_return_status);
3901: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3902: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3903: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3904: RAISE Okl_api.G_EXCEPTION_ERROR;
3905: END IF;
3906: DELETE FROM OKL_TXD_AR_LN_DTLS_B
3907: WHERE ID = l_tld_rec.id;
3908:
3905: END IF;
3906: DELETE FROM OKL_TXD_AR_LN_DTLS_B
3907: WHERE ID = l_tld_rec.id;
3908:
3909: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
3910: EXCEPTION
3911: WHEN Okl_api.G_EXCEPTION_ERROR THEN
3912: x_return_status := Okl_api.HANDLE_EXCEPTIONS
3913: (
3907: WHERE ID = l_tld_rec.id;
3908:
3909: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
3910: EXCEPTION
3911: WHEN Okl_api.G_EXCEPTION_ERROR THEN
3912: x_return_status := Okl_api.HANDLE_EXCEPTIONS
3913: (
3914: l_api_name,
3915: G_PKG_NAME,
3908:
3909: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
3910: EXCEPTION
3911: WHEN Okl_api.G_EXCEPTION_ERROR THEN
3912: x_return_status := Okl_api.HANDLE_EXCEPTIONS
3913: (
3914: l_api_name,
3915: G_PKG_NAME,
3916: 'Okl_api.G_RET_STS_ERROR',
3912: x_return_status := Okl_api.HANDLE_EXCEPTIONS
3913: (
3914: l_api_name,
3915: G_PKG_NAME,
3916: 'Okl_api.G_RET_STS_ERROR',
3917: x_msg_count,
3918: x_msg_data,
3919: '_PVT'
3920: );
3917: x_msg_count,
3918: x_msg_data,
3919: '_PVT'
3920: );
3921: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3922: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
3923: (
3924: l_api_name,
3925: G_PKG_NAME,
3918: x_msg_data,
3919: '_PVT'
3920: );
3921: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3922: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
3923: (
3924: l_api_name,
3925: G_PKG_NAME,
3926: 'Okl_api.G_RET_STS_UNEXP_ERROR',
3922: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
3923: (
3924: l_api_name,
3925: G_PKG_NAME,
3926: 'Okl_api.G_RET_STS_UNEXP_ERROR',
3927: x_msg_count,
3928: x_msg_data,
3929: '_PVT'
3930: );
3928: x_msg_data,
3929: '_PVT'
3930: );
3931: WHEN OTHERS THEN
3932: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
3933: (
3934: l_api_name,
3935: G_PKG_NAME,
3936: 'OTHERS',
3950: p_okl_txd_ar_ln_dtls_tl_rec IN okl_txd_ar_ln_dtls_tl_rec_type) IS
3951:
3952: l_api_version CONSTANT NUMBER := 1;
3953: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3954: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
3955: l_okl_txd_ar_ln_dtls_tl_rec okl_txd_ar_ln_dtls_tl_rec_type:= p_okl_txd_ar_ln_dtls_tl_rec;
3956: l_row_notfound BOOLEAN := TRUE;
3957: ----------------------------------------------
3958: -- Set_Attributes for:OKL_TXD_AR_LN_DTLS_TL --
3960: FUNCTION Set_Attributes (
3961: p_okl_txd_ar_ln_dtls_tl_rec IN okl_txd_ar_ln_dtls_tl_rec_type,
3962: x_okl_txd_ar_ln_dtls_tl_rec OUT NOCOPY okl_txd_ar_ln_dtls_tl_rec_type
3963: ) RETURN VARCHAR2 IS
3964: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
3965: BEGIN
3966: x_okl_txd_ar_ln_dtls_tl_rec := p_okl_txd_ar_ln_dtls_tl_rec;
3967: x_okl_txd_ar_ln_dtls_tl_rec.LANGUAGE := USERENV('LANG');
3968: RETURN(l_return_status);
3967: x_okl_txd_ar_ln_dtls_tl_rec.LANGUAGE := USERENV('LANG');
3968: RETURN(l_return_status);
3969: END Set_Attributes;
3970: BEGIN
3971: l_return_status := Okl_api.START_ACTIVITY(l_api_name,
3972: p_init_msg_list,
3973: '_PVT',
3974: x_return_status);
3975: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3971: l_return_status := Okl_api.START_ACTIVITY(l_api_name,
3972: p_init_msg_list,
3973: '_PVT',
3974: x_return_status);
3975: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3976: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3977: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3978: RAISE Okl_api.G_EXCEPTION_ERROR;
3979: END IF;
3972: p_init_msg_list,
3973: '_PVT',
3974: x_return_status);
3975: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3976: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3977: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3978: RAISE Okl_api.G_EXCEPTION_ERROR;
3979: END IF;
3980: --- Setting item attributes
3973: '_PVT',
3974: x_return_status);
3975: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3976: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3977: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3978: RAISE Okl_api.G_EXCEPTION_ERROR;
3979: END IF;
3980: --- Setting item attributes
3981: l_return_status := Set_Attributes(
3974: x_return_status);
3975: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3976: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3977: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3978: RAISE Okl_api.G_EXCEPTION_ERROR;
3979: END IF;
3980: --- Setting item attributes
3981: l_return_status := Set_Attributes(
3982: p_okl_txd_ar_ln_dtls_tl_rec, -- IN
3981: l_return_status := Set_Attributes(
3982: p_okl_txd_ar_ln_dtls_tl_rec, -- IN
3983: l_okl_txd_ar_ln_dtls_tl_rec); -- OUT
3984: --- If any errors happen abort API
3985: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3986: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3987: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3988: RAISE Okl_api.G_EXCEPTION_ERROR;
3989: END IF;
3982: p_okl_txd_ar_ln_dtls_tl_rec, -- IN
3983: l_okl_txd_ar_ln_dtls_tl_rec); -- OUT
3984: --- If any errors happen abort API
3985: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3986: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3987: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3988: RAISE Okl_api.G_EXCEPTION_ERROR;
3989: END IF;
3990: DELETE FROM OKL_TXD_AR_LN_DTLS_TL
3983: l_okl_txd_ar_ln_dtls_tl_rec); -- OUT
3984: --- If any errors happen abort API
3985: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3986: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3987: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3988: RAISE Okl_api.G_EXCEPTION_ERROR;
3989: END IF;
3990: DELETE FROM OKL_TXD_AR_LN_DTLS_TL
3991: WHERE ID = l_okl_txd_ar_ln_dtls_tl_rec.id;
3984: --- If any errors happen abort API
3985: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
3986: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
3987: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
3988: RAISE Okl_api.G_EXCEPTION_ERROR;
3989: END IF;
3990: DELETE FROM OKL_TXD_AR_LN_DTLS_TL
3991: WHERE ID = l_okl_txd_ar_ln_dtls_tl_rec.id;
3992:
3989: END IF;
3990: DELETE FROM OKL_TXD_AR_LN_DTLS_TL
3991: WHERE ID = l_okl_txd_ar_ln_dtls_tl_rec.id;
3992:
3993: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
3994: EXCEPTION
3995: WHEN Okl_api.G_EXCEPTION_ERROR THEN
3996: x_return_status := Okl_api.HANDLE_EXCEPTIONS
3997: (
3991: WHERE ID = l_okl_txd_ar_ln_dtls_tl_rec.id;
3992:
3993: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
3994: EXCEPTION
3995: WHEN Okl_api.G_EXCEPTION_ERROR THEN
3996: x_return_status := Okl_api.HANDLE_EXCEPTIONS
3997: (
3998: l_api_name,
3999: G_PKG_NAME,
3992:
3993: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
3994: EXCEPTION
3995: WHEN Okl_api.G_EXCEPTION_ERROR THEN
3996: x_return_status := Okl_api.HANDLE_EXCEPTIONS
3997: (
3998: l_api_name,
3999: G_PKG_NAME,
4000: 'Okl_api.G_RET_STS_ERROR',
3996: x_return_status := Okl_api.HANDLE_EXCEPTIONS
3997: (
3998: l_api_name,
3999: G_PKG_NAME,
4000: 'Okl_api.G_RET_STS_ERROR',
4001: x_msg_count,
4002: x_msg_data,
4003: '_PVT'
4004: );
4001: x_msg_count,
4002: x_msg_data,
4003: '_PVT'
4004: );
4005: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4006: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
4007: (
4008: l_api_name,
4009: G_PKG_NAME,
4002: x_msg_data,
4003: '_PVT'
4004: );
4005: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4006: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
4007: (
4008: l_api_name,
4009: G_PKG_NAME,
4010: 'Okl_api.G_RET_STS_UNEXP_ERROR',
4006: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
4007: (
4008: l_api_name,
4009: G_PKG_NAME,
4010: 'Okl_api.G_RET_STS_UNEXP_ERROR',
4011: x_msg_count,
4012: x_msg_data,
4013: '_PVT'
4014: );
4012: x_msg_data,
4013: '_PVT'
4014: );
4015: WHEN OTHERS THEN
4016: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
4017: (
4018: l_api_name,
4019: G_PKG_NAME,
4020: 'OTHERS',
4035: p_tldv_rec IN tldv_rec_type) IS
4036:
4037: l_api_version CONSTANT NUMBER := 1;
4038: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
4039: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
4040: l_tldv_rec tldv_rec_type := p_tldv_rec;
4041: l_okl_txd_ar_ln_dtls_tl_rec okl_txd_ar_ln_dtls_tl_rec_type;
4042: l_tld_rec tld_rec_type;
4043: BEGIN
4040: l_tldv_rec tldv_rec_type := p_tldv_rec;
4041: l_okl_txd_ar_ln_dtls_tl_rec okl_txd_ar_ln_dtls_tl_rec_type;
4042: l_tld_rec tld_rec_type;
4043: BEGIN
4044: l_return_status := Okl_api.START_ACTIVITY(l_api_name,
4045: G_PKG_NAME,
4046: p_init_msg_list,
4047: l_api_version,
4048: p_api_version,
4047: l_api_version,
4048: p_api_version,
4049: '_PVT',
4050: x_return_status);
4051: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
4052: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
4053: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
4054: RAISE Okl_api.G_EXCEPTION_ERROR;
4055: END IF;
4048: p_api_version,
4049: '_PVT',
4050: x_return_status);
4051: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
4052: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
4053: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
4054: RAISE Okl_api.G_EXCEPTION_ERROR;
4055: END IF;
4056: --------------------------------------
4049: '_PVT',
4050: x_return_status);
4051: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
4052: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
4053: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
4054: RAISE Okl_api.G_EXCEPTION_ERROR;
4055: END IF;
4056: --------------------------------------
4057: -- Move VIEW record to "Child" records
4050: x_return_status);
4051: IF (l_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
4052: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
4053: ELSIF (l_return_status = Okl_api.G_RET_STS_ERROR) THEN
4054: RAISE Okl_api.G_EXCEPTION_ERROR;
4055: END IF;
4056: --------------------------------------
4057: -- Move VIEW record to "Child" records
4058: --------------------------------------
4067: x_msg_count,
4068: x_msg_data,
4069: l_okl_txd_ar_ln_dtls_tl_rec
4070: );
4071: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
4072: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
4073: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
4074: RAISE Okl_api.G_EXCEPTION_ERROR;
4075: END IF;
4068: x_msg_data,
4069: l_okl_txd_ar_ln_dtls_tl_rec
4070: );
4071: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
4072: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
4073: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
4074: RAISE Okl_api.G_EXCEPTION_ERROR;
4075: END IF;
4076: delete_row(
4069: l_okl_txd_ar_ln_dtls_tl_rec
4070: );
4071: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
4072: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
4073: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
4074: RAISE Okl_api.G_EXCEPTION_ERROR;
4075: END IF;
4076: delete_row(
4077: p_init_msg_list,
4070: );
4071: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
4072: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
4073: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
4074: RAISE Okl_api.G_EXCEPTION_ERROR;
4075: END IF;
4076: delete_row(
4077: p_init_msg_list,
4078: x_return_status,
4079: x_msg_count,
4080: x_msg_data,
4081: l_tld_rec
4082: );
4083: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
4084: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
4085: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
4086: RAISE Okl_api.G_EXCEPTION_ERROR;
4087: END IF;
4080: x_msg_data,
4081: l_tld_rec
4082: );
4083: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
4084: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
4085: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
4086: RAISE Okl_api.G_EXCEPTION_ERROR;
4087: END IF;
4088: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
4081: l_tld_rec
4082: );
4083: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
4084: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
4085: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
4086: RAISE Okl_api.G_EXCEPTION_ERROR;
4087: END IF;
4088: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
4089: EXCEPTION
4082: );
4083: IF (x_return_status = Okl_api.G_RET_STS_UNEXP_ERROR) THEN
4084: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
4085: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
4086: RAISE Okl_api.G_EXCEPTION_ERROR;
4087: END IF;
4088: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
4089: EXCEPTION
4090: WHEN Okl_api.G_EXCEPTION_ERROR THEN
4084: RAISE Okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
4085: ELSIF (x_return_status = Okl_api.G_RET_STS_ERROR) THEN
4086: RAISE Okl_api.G_EXCEPTION_ERROR;
4087: END IF;
4088: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
4089: EXCEPTION
4090: WHEN Okl_api.G_EXCEPTION_ERROR THEN
4091: x_return_status := Okl_api.HANDLE_EXCEPTIONS
4092: (
4086: RAISE Okl_api.G_EXCEPTION_ERROR;
4087: END IF;
4088: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
4089: EXCEPTION
4090: WHEN Okl_api.G_EXCEPTION_ERROR THEN
4091: x_return_status := Okl_api.HANDLE_EXCEPTIONS
4092: (
4093: l_api_name,
4094: G_PKG_NAME,
4087: END IF;
4088: Okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
4089: EXCEPTION
4090: WHEN Okl_api.G_EXCEPTION_ERROR THEN
4091: x_return_status := Okl_api.HANDLE_EXCEPTIONS
4092: (
4093: l_api_name,
4094: G_PKG_NAME,
4095: 'Okl_api.G_RET_STS_ERROR',
4091: x_return_status := Okl_api.HANDLE_EXCEPTIONS
4092: (
4093: l_api_name,
4094: G_PKG_NAME,
4095: 'Okl_api.G_RET_STS_ERROR',
4096: x_msg_count,
4097: x_msg_data,
4098: '_PVT'
4099: );
4096: x_msg_count,
4097: x_msg_data,
4098: '_PVT'
4099: );
4100: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4101: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
4102: (
4103: l_api_name,
4104: G_PKG_NAME,
4097: x_msg_data,
4098: '_PVT'
4099: );
4100: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4101: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
4102: (
4103: l_api_name,
4104: G_PKG_NAME,
4105: 'Okl_api.G_RET_STS_UNEXP_ERROR',
4101: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
4102: (
4103: l_api_name,
4104: G_PKG_NAME,
4105: 'Okl_api.G_RET_STS_UNEXP_ERROR',
4106: x_msg_count,
4107: x_msg_data,
4108: '_PVT'
4109: );
4107: x_msg_data,
4108: '_PVT'
4109: );
4110: WHEN OTHERS THEN
4111: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
4112: (
4113: l_api_name,
4114: G_PKG_NAME,
4115: 'OTHERS',
4130: p_tldv_tbl IN tldv_tbl_type) IS
4131:
4132: l_api_version CONSTANT NUMBER := 1;
4133: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
4134: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
4135: -- Begin Post-Generation Change
4136: -- overall error status
4137: l_overall_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
4138: -- End Post-Generation Change
4133: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
4134: l_return_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
4135: -- Begin Post-Generation Change
4136: -- overall error status
4137: l_overall_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
4138: -- End Post-Generation Change
4139: i NUMBER := 0;
4140: BEGIN
4141: Okl_api.init_msg_list(p_init_msg_list);
4137: l_overall_status VARCHAR2(1) := Okl_api.G_RET_STS_SUCCESS;
4138: -- End Post-Generation Change
4139: i NUMBER := 0;
4140: BEGIN
4141: Okl_api.init_msg_list(p_init_msg_list);
4142: -- Make sure PL/SQL table has records in it before passing
4143: IF (p_tldv_tbl.COUNT > 0) THEN
4144: i := p_tldv_tbl.FIRST;
4145: LOOP
4144: i := p_tldv_tbl.FIRST;
4145: LOOP
4146: delete_row (
4147: p_api_version => p_api_version,
4148: p_init_msg_list => Okl_api.G_FALSE,
4149: x_return_status => x_return_status,
4150: x_msg_count => x_msg_count,
4151: x_msg_data => x_msg_data,
4152: p_tldv_rec => p_tldv_tbl(i));
4151: x_msg_data => x_msg_data,
4152: p_tldv_rec => p_tldv_tbl(i));
4153: -- Begin Post-Generation Change
4154: -- store the highest degree of error
4155: IF x_return_status <> Okl_api.G_RET_STS_SUCCESS THEN
4156: IF l_overall_status <> Okl_api.G_RET_STS_UNEXP_ERROR THEN
4157: l_overall_status := x_return_status;
4158: END IF;
4159: END IF;
4152: p_tldv_rec => p_tldv_tbl(i));
4153: -- Begin Post-Generation Change
4154: -- store the highest degree of error
4155: IF x_return_status <> Okl_api.G_RET_STS_SUCCESS THEN
4156: IF l_overall_status <> Okl_api.G_RET_STS_UNEXP_ERROR THEN
4157: l_overall_status := x_return_status;
4158: END IF;
4159: END IF;
4160: -- End Post-Generation Change
4167: -- End Post-Generation Change
4168:
4169: END IF;
4170: EXCEPTION
4171: WHEN Okl_api.G_EXCEPTION_ERROR THEN
4172: x_return_status := Okl_api.HANDLE_EXCEPTIONS
4173: (
4174: l_api_name,
4175: G_PKG_NAME,
4168:
4169: END IF;
4170: EXCEPTION
4171: WHEN Okl_api.G_EXCEPTION_ERROR THEN
4172: x_return_status := Okl_api.HANDLE_EXCEPTIONS
4173: (
4174: l_api_name,
4175: G_PKG_NAME,
4176: 'Okl_api.G_RET_STS_ERROR',
4172: x_return_status := Okl_api.HANDLE_EXCEPTIONS
4173: (
4174: l_api_name,
4175: G_PKG_NAME,
4176: 'Okl_api.G_RET_STS_ERROR',
4177: x_msg_count,
4178: x_msg_data,
4179: '_PVT'
4180: );
4177: x_msg_count,
4178: x_msg_data,
4179: '_PVT'
4180: );
4181: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4182: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
4183: (
4184: l_api_name,
4185: G_PKG_NAME,
4178: x_msg_data,
4179: '_PVT'
4180: );
4181: WHEN Okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4182: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
4183: (
4184: l_api_name,
4185: G_PKG_NAME,
4186: 'Okl_api.G_RET_STS_UNEXP_ERROR',
4182: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
4183: (
4184: l_api_name,
4185: G_PKG_NAME,
4186: 'Okl_api.G_RET_STS_UNEXP_ERROR',
4187: x_msg_count,
4188: x_msg_data,
4189: '_PVT'
4190: );
4188: x_msg_data,
4189: '_PVT'
4190: );
4191: WHEN OTHERS THEN
4192: x_return_status :=Okl_api.HANDLE_EXCEPTIONS
4193: (
4194: l_api_name,
4195: G_PKG_NAME,
4196: 'OTHERS',