27: -- Get created records
28:
29: i := oe_order_util.g_old_line_tbl.FIRST; -- get subscript of first element
30: WHILE i IS NOT NULL LOOP
31: if oe_order_util.g_old_line_tbl(i).operation = OE_GLOBALS.G_OPR_CREATE then
32: l_temp_table(l_temp_table.count + 1) := oe_order_util.g_old_line_tbl(i).line_id;
33: end if;
34: i := oe_order_util.g_old_line_tbl.NEXT(i); -- get subscript of next element
35: END LOOP;
42: end if;
43:
44: i := oe_order_util.g_old_header_adj_tbl.FIRST;
45: WHILE i IS NOT NULL LOOP
46: if oe_order_util.g_old_header_adj_tbl(i).operation = OE_GLOBALS.G_OPR_CREATE then
47: l_temp_table(l_temp_table.count + 1) := oe_order_util.g_old_header_adj_tbl(i).price_adjustment_id;
48: end if;
49: i := oe_order_util.g_old_header_adj_tbl.NEXT(i);
50: END LOOP;
50: END LOOP;
51:
52: i := oe_order_util.g_old_line_adj_tbl.FIRST;
53: WHILE i IS NOT NULL LOOP
54: if oe_order_util.g_old_line_adj_tbl(i).operation = OE_GLOBALS.G_OPR_CREATE then
55: l_temp_table(l_temp_table.count + 1) := oe_order_util.g_old_line_adj_tbl(i).price_adjustment_id;
56: end if;
57: i := oe_order_util.g_old_line_adj_tbl.NEXT(i);
58: END LOOP;
65: end if;
66:
67: i := oe_order_util.g_old_header_scredit_tbl.FIRST;
68: WHILE i IS NOT NULL LOOP
69: if oe_order_util.g_old_header_scredit_tbl(i).operation = OE_GLOBALS.G_OPR_CREATE then
70: l_temp_table(l_temp_table.count + 1) := oe_order_util.g_old_header_scredit_tbl(i).sales_credit_id;
71: end if;
72: i := oe_order_util.g_old_header_scredit_tbl.NEXT(i);
73: END LOOP;
73: END LOOP;
74:
75: i := oe_order_util.g_old_line_scredit_tbl.FIRST;
76: WHILE i IS NOT NULL LOOP
77: if oe_order_util.g_old_line_scredit_tbl(i).operation = OE_GLOBALS.G_OPR_CREATE then
78: l_temp_table(l_temp_table.count + 1) := oe_order_util.g_old_line_scredit_tbl(i).sales_credit_id;
79: end if;
80: i := oe_order_util.g_old_line_scredit_tbl.NEXT(i);
81: END LOOP;
125: END IF;
126:
127: l_return_status := FND_API.G_RET_STS_SUCCESS;
128:
129: IF OE_GLOBALS.G_ROLL_VERSION <> 'N' THEN
130: Perform_Versioning (p_header_id => p_header_id,
131: p_document_type => p_document_type,
132: p_changed_attribute => p_changed_attribute,
133: x_msg_count => x_msg_count,
201: IF l_debug_level > 0 THEN
202: oe_debug_pub.add('Entering Perform_Versioning ',1);
203: END IF;
204:
205: IF (OE_GLOBALS.G_ROLL_VERSION = 'PV') THEN
206: l_version_flag := 'Y';
207: l_phase_change_flag := 'Y';
208: IF (p_document_type <> 'BLANKETS') THEN
209: IF OE_ORDER_UTIL.g_old_header_rec.version_number IS NULL
212: ELSE
213: l_version_number := OE_ORDER_UTIL.g_old_header_rec.version_number;
214: END IF;
215: END IF;
216: ELSIF (OE_GLOBALS.G_ROLL_VERSION = 'P') THEN
217: l_version_flag := 'N';
218: l_phase_change_flag := 'Y';
219: ELSE
220: l_phase_change_flag := 'N';
256: FROM OE_BLANKET_HEADERS_ALL
257: WHERE HEADER_ID = p_header_id
258: );
259:
260: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
261: ELSIF l_version_number < OE_Blanket_Util.g_old_header_hist_rec.version_number THEN
262: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_INVALID_REVISION_NUM');
263: OE_MSG_PUB.ADD;
264:
266: END IF;
267: END IF;
268:
269: --Apply reason changes
270: IF OE_GLOBALS.G_CAPTURED_REASON = 'Y' AND
271: OE_GLOBALS.G_REASON_CODE <> FND_API.G_MISS_CHAR THEN
272: OE_Reasons_Util.Apply_Reason(
273: p_entity_code => 'BLANKET_HEADER',
274: p_entity_id => p_header_id,
267: END IF;
268:
269: --Apply reason changes
270: IF OE_GLOBALS.G_CAPTURED_REASON = 'Y' AND
271: OE_GLOBALS.G_REASON_CODE <> FND_API.G_MISS_CHAR THEN
272: OE_Reasons_Util.Apply_Reason(
273: p_entity_code => 'BLANKET_HEADER',
274: p_entity_id => p_header_id,
275: p_header_id => p_header_id,
274: p_entity_id => p_header_id,
275: p_header_id => p_header_id,
276: p_version_number => OE_Blanket_Util.g_old_header_hist_rec.version_number,
277: p_reason_type => 'CANCEL_CODE',
278: p_reason_code => OE_GLOBALS.G_REASON_CODE,
279: p_reason_comments => OE_GLOBALS.G_REASON_COMMENTS,
280: x_reason_id => l_reason_id,
281: x_return_status => l_return_status);
282:
275: p_header_id => p_header_id,
276: p_version_number => OE_Blanket_Util.g_old_header_hist_rec.version_number,
277: p_reason_type => 'CANCEL_CODE',
278: p_reason_code => OE_GLOBALS.G_REASON_CODE,
279: p_reason_comments => OE_GLOBALS.G_REASON_COMMENTS,
280: x_reason_id => l_reason_id,
281: x_return_status => l_return_status);
282:
283: UPDATE OE_BLANKET_HEADERS_HIST
286: AND version_flag = l_version_flag
287: AND version_number = OE_Blanket_Util.g_old_header_hist_rec.version_number --7312291;
288: AND HEADER_ID = p_header_id; --7312291
289:
290: ELSIF OE_GLOBALS.G_CAPTURED_REASON = 'V' THEN
291: FND_MESSAGE.SET_NAME('ONT','OE_AUDIT_REASON_RQD');
292: OE_MSG_PUB.ADD;
293:
294: RAISE FND_API.G_EXC_ERROR;
311:
312:
313: -- Return if header is created in same operation
314: -- add g_header_created check to fix bug 3700341
315: IF OE_Order_Util.g_header_rec.operation = OE_GLOBALS.G_OPR_CREATE OR
316: OE_GLOBALS.G_HEADER_CREATED THEN
317: IF l_debug_level > 0 THEN
318: oe_debug_pub.add('Not versioning because header was also created',1);
319: END IF;
312:
313: -- Return if header is created in same operation
314: -- add g_header_created check to fix bug 3700341
315: IF OE_Order_Util.g_header_rec.operation = OE_GLOBALS.G_OPR_CREATE OR
316: OE_GLOBALS.G_HEADER_CREATED THEN
317: IF l_debug_level > 0 THEN
318: oe_debug_pub.add('Not versioning because header was also created',1);
319: END IF;
320:
367:
368: l_return_status := Delete_Created_Records;
369:
370: IF IS_REASON_RQD <> 'N' THEN
371: IF OE_GLOBALS.G_REASON_CODE IS NULL OR
372: OE_GLOBALS.G_REASON_CODE = FND_API.G_MISS_CHAR THEN
373: -- Get stored reason in event of SYSTEM change
374: Get_Reason_Info(x_reason_code => OE_GLOBALS.G_REASON_CODE,
375: x_reason_comments => OE_GLOBALS.G_REASON_COMMENTS);
368: l_return_status := Delete_Created_Records;
369:
370: IF IS_REASON_RQD <> 'N' THEN
371: IF OE_GLOBALS.G_REASON_CODE IS NULL OR
372: OE_GLOBALS.G_REASON_CODE = FND_API.G_MISS_CHAR THEN
373: -- Get stored reason in event of SYSTEM change
374: Get_Reason_Info(x_reason_code => OE_GLOBALS.G_REASON_CODE,
375: x_reason_comments => OE_GLOBALS.G_REASON_COMMENTS);
376:
370: IF IS_REASON_RQD <> 'N' THEN
371: IF OE_GLOBALS.G_REASON_CODE IS NULL OR
372: OE_GLOBALS.G_REASON_CODE = FND_API.G_MISS_CHAR THEN
373: -- Get stored reason in event of SYSTEM change
374: Get_Reason_Info(x_reason_code => OE_GLOBALS.G_REASON_CODE,
375: x_reason_comments => OE_GLOBALS.G_REASON_COMMENTS);
376:
377: IF OE_GLOBALS.G_REASON_CODE IS NOT NULL OR
378: OE_GLOBALS.G_REASON_CODE = FND_API.G_MISS_CHAR THEN
371: IF OE_GLOBALS.G_REASON_CODE IS NULL OR
372: OE_GLOBALS.G_REASON_CODE = FND_API.G_MISS_CHAR THEN
373: -- Get stored reason in event of SYSTEM change
374: Get_Reason_Info(x_reason_code => OE_GLOBALS.G_REASON_CODE,
375: x_reason_comments => OE_GLOBALS.G_REASON_COMMENTS);
376:
377: IF OE_GLOBALS.G_REASON_CODE IS NOT NULL OR
378: OE_GLOBALS.G_REASON_CODE = FND_API.G_MISS_CHAR THEN
379: OE_GLOBALS.G_CAPTURED_REASON := 'Y';
373: -- Get stored reason in event of SYSTEM change
374: Get_Reason_Info(x_reason_code => OE_GLOBALS.G_REASON_CODE,
375: x_reason_comments => OE_GLOBALS.G_REASON_COMMENTS);
376:
377: IF OE_GLOBALS.G_REASON_CODE IS NOT NULL OR
378: OE_GLOBALS.G_REASON_CODE = FND_API.G_MISS_CHAR THEN
379: OE_GLOBALS.G_CAPTURED_REASON := 'Y';
380: END IF;
381: END IF;
374: Get_Reason_Info(x_reason_code => OE_GLOBALS.G_REASON_CODE,
375: x_reason_comments => OE_GLOBALS.G_REASON_COMMENTS);
376:
377: IF OE_GLOBALS.G_REASON_CODE IS NOT NULL OR
378: OE_GLOBALS.G_REASON_CODE = FND_API.G_MISS_CHAR THEN
379: OE_GLOBALS.G_CAPTURED_REASON := 'Y';
380: END IF;
381: END IF;
382: END IF;
375: x_reason_comments => OE_GLOBALS.G_REASON_COMMENTS);
376:
377: IF OE_GLOBALS.G_REASON_CODE IS NOT NULL OR
378: OE_GLOBALS.G_REASON_CODE = FND_API.G_MISS_CHAR THEN
379: OE_GLOBALS.G_CAPTURED_REASON := 'Y';
380: END IF;
381: END IF;
382: END IF;
383:
382: END IF;
383:
384: --Apply reason changes
385: IF (IS_REASON_RQD = 'Y' AND
386: OE_GLOBALS.G_REASON_CODE <> FND_API.G_MISS_CHAR) OR
387: (IS_REASON_RQD <> 'N' AND
388: OE_GLOBALS.G_DEFAULT_REASON) THEN
389:
390: IF OE_GLOBALS.G_DEFAULT_REASON THEN
384: --Apply reason changes
385: IF (IS_REASON_RQD = 'Y' AND
386: OE_GLOBALS.G_REASON_CODE <> FND_API.G_MISS_CHAR) OR
387: (IS_REASON_RQD <> 'N' AND
388: OE_GLOBALS.G_DEFAULT_REASON) THEN
389:
390: IF OE_GLOBALS.G_DEFAULT_REASON THEN
391: IF l_debug_level > 0 THEN
392: oe_debug_pub.add('Defaulting Versioning Reason if necessary');
386: OE_GLOBALS.G_REASON_CODE <> FND_API.G_MISS_CHAR) OR
387: (IS_REASON_RQD <> 'N' AND
388: OE_GLOBALS.G_DEFAULT_REASON) THEN
389:
390: IF OE_GLOBALS.G_DEFAULT_REASON THEN
391: IF l_debug_level > 0 THEN
392: oe_debug_pub.add('Defaulting Versioning Reason if necessary');
393: END IF;
394: OE_GLOBALS.G_REASON_CODE := nvl(OE_GLOBALS.G_REASON_CODE, 'SYSTEM');
390: IF OE_GLOBALS.G_DEFAULT_REASON THEN
391: IF l_debug_level > 0 THEN
392: oe_debug_pub.add('Defaulting Versioning Reason if necessary');
393: END IF;
394: OE_GLOBALS.G_REASON_CODE := nvl(OE_GLOBALS.G_REASON_CODE, 'SYSTEM');
395: END IF;
396:
397: IF l_debug_level > 0 THEN
398: oe_debug_pub.add('Calling Apply_Reason ' || OE_GLOBALS.G_REASON_CODE,1);
394: OE_GLOBALS.G_REASON_CODE := nvl(OE_GLOBALS.G_REASON_CODE, 'SYSTEM');
395: END IF;
396:
397: IF l_debug_level > 0 THEN
398: oe_debug_pub.add('Calling Apply_Reason ' || OE_GLOBALS.G_REASON_CODE,1);
399: END IF;
400:
401: OE_Reasons_Util.Apply_Reason(
402: p_entity_code => 'HEADER',
402: p_entity_code => 'HEADER',
403: p_entity_id => p_header_id,
404: p_header_id => p_header_id,
405: p_version_number => l_version_number,
406: p_reason_type => nvl(OE_GLOBALS.G_REASON_TYPE, 'CANCEL_CODE'),
407: p_reason_code => OE_GLOBALS.G_REASON_CODE,
408: p_reason_comments => OE_GLOBALS.G_REASON_COMMENTS,
409: x_reason_id => l_reason_id,
410: x_return_status => l_return_status);
403: p_entity_id => p_header_id,
404: p_header_id => p_header_id,
405: p_version_number => l_version_number,
406: p_reason_type => nvl(OE_GLOBALS.G_REASON_TYPE, 'CANCEL_CODE'),
407: p_reason_code => OE_GLOBALS.G_REASON_CODE,
408: p_reason_comments => OE_GLOBALS.G_REASON_COMMENTS,
409: x_reason_id => l_reason_id,
410: x_return_status => l_return_status);
411:
404: p_header_id => p_header_id,
405: p_version_number => l_version_number,
406: p_reason_type => nvl(OE_GLOBALS.G_REASON_TYPE, 'CANCEL_CODE'),
407: p_reason_code => OE_GLOBALS.G_REASON_CODE,
408: p_reason_comments => OE_GLOBALS.G_REASON_COMMENTS,
409: x_reason_id => l_reason_id,
410: x_return_status => l_return_status);
411:
412: UPDATE OE_ORDER_HEADER_HISTORY
464: END IF;
465: OE_ORDER_CACHE.g_header_rec.version_number := l_version_number + 1;
466: OE_ORDER_CACHE.g_header_rec.lock_control := l_lock_control + 1;
467:
468: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
469: ELSIF OE_ORDER_UTIL.G_HEADER_REC.VERSION_NUMBER < OE_ORDER_UTIL.G_OLD_HEADER_REC.VERSION_NUMBER THEN
470: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_INVALID_REVISION_NUM');
471: OE_MSG_PUB.ADD;
472:
664: END IF;
665:
666: --Update history with audit flag information gathered in global picture
667: IF OE_Order_Util.g_old_header_rec.header_id <> FND_API.G_MISS_NUM THEN
668: IF NOT OE_GLOBALS.Equal(OE_Order_Util.g_old_header_rec.operation, OE_GLOBALS.G_OPR_CREATE) AND
669: (p_version_flag = 'Y' OR p_phase_change_flag = 'Y' or
670: g_audit_header_hist_code IS NOT NULL) THEN
671:
672: IF g_audit_header_hist_code IS NOT NULL THEN
746:
747: --Update history for lines
748: i := oe_order_util.g_old_line_tbl.FIRST; -- get subscript of first element
749: WHILE i IS NOT NULL LOOP
750: IF NOT OE_GLOBALS.Equal(oe_order_util.g_old_line_tbl(i).operation, OE_GLOBALS.G_OPR_CREATE) AND
751: (p_version_flag = 'Y' OR p_phase_change_flag = 'Y' or
752: g_audit_line_id_tbl.exists(i)) THEN
753: IF g_audit_line_id_tbl.exists(i) THEN
754: l_audit_flag := 'Y';
845:
846: --Update history for header adj
847: i := oe_order_util.g_old_header_adj_tbl.FIRST; -- get subscript of first element
848: WHILE i IS NOT NULL LOOP
849: IF NOT OE_GLOBALS.Equal(oe_order_util.g_old_header_adj_tbl(i).operation, OE_GLOBALS.G_OPR_CREATE) AND
850: (p_version_flag = 'Y' OR p_phase_change_flag = 'Y' or
851: g_audit_header_adj_id_tbl.exists(i)) THEN
852: IF g_audit_header_adj_id_tbl.exists(i) THEN
853: l_audit_flag := 'Y';
892: OE_CHG_ORDER_PVT.RecordHPAdjHist
893: (p_header_adj_id => oe_order_util.g_old_header_adj_tbl(i).price_adjustment_id,
894: p_header_adj_rec => oe_order_util.g_old_header_adj_tbl(i),
895: p_hist_type_code => l_hist_type_code,
896: p_reason_code => oe_globals.g_reason_code,
897: p_comments => oe_globals.g_reason_comments,
898: p_audit_flag => l_audit_flag,
899: p_version_flag => p_version_flag,
900: p_phase_change_flag => p_phase_change_flag,
893: (p_header_adj_id => oe_order_util.g_old_header_adj_tbl(i).price_adjustment_id,
894: p_header_adj_rec => oe_order_util.g_old_header_adj_tbl(i),
895: p_hist_type_code => l_hist_type_code,
896: p_reason_code => oe_globals.g_reason_code,
897: p_comments => oe_globals.g_reason_comments,
898: p_audit_flag => l_audit_flag,
899: p_version_flag => p_version_flag,
900: p_phase_change_flag => p_phase_change_flag,
901: p_version_number => l_version_number,
930:
931: --Update history for header scredit
932: i := oe_order_util.g_old_header_scredit_tbl.FIRST; -- get subscript of first element
933: WHILE i IS NOT NULL LOOP
934: IF NOT OE_GLOBALS.Equal(oe_order_util.g_old_header_scredit_tbl(i).operation, OE_GLOBALS.G_OPR_CREATE) AND
935: (p_version_flag = 'Y' OR p_phase_change_flag = 'Y' or
936: g_audit_header_scredit_id_tbl.exists(i)) THEN
937: IF g_audit_header_scredit_id_tbl.exists(i) THEN
938: l_audit_flag := 'Y';
977: OE_CHG_ORDER_PVT.RecordHSCreditHist
978: (p_header_scredit_id => oe_order_util.g_old_header_scredit_tbl(i).sales_credit_id,
979: p_header_scredit_rec => oe_order_util.g_old_header_scredit_tbl(i),
980: p_hist_type_code => l_hist_type_code,
981: p_reason_code => oe_globals.g_reason_code,
982: p_comments => oe_globals.g_reason_comments,
983: p_audit_flag => l_audit_flag,
984: p_version_flag => p_version_flag,
985: p_phase_change_flag => p_phase_change_flag,
978: (p_header_scredit_id => oe_order_util.g_old_header_scredit_tbl(i).sales_credit_id,
979: p_header_scredit_rec => oe_order_util.g_old_header_scredit_tbl(i),
980: p_hist_type_code => l_hist_type_code,
981: p_reason_code => oe_globals.g_reason_code,
982: p_comments => oe_globals.g_reason_comments,
983: p_audit_flag => l_audit_flag,
984: p_version_flag => p_version_flag,
985: p_phase_change_flag => p_phase_change_flag,
986: p_version_number => l_version_number,
1012: END IF;
1013: --Update history for line adj
1014: i := oe_order_util.g_old_line_adj_tbl.FIRST; -- get subscript of first element
1015: WHILE i IS NOT NULL LOOP
1016: IF NOT OE_GLOBALS.Equal(oe_order_util.g_old_line_adj_tbl(i).operation, OE_GLOBALS.G_OPR_CREATE) AND
1017: (p_version_flag = 'Y' OR p_phase_change_flag = 'Y' or
1018: g_audit_line_adj_id_tbl.exists(i)) THEN
1019: IF g_audit_line_adj_id_tbl.exists(i) THEN
1020: l_audit_flag := 'Y';
1059: OE_CHG_ORDER_PVT.RecordLPAdjHist
1060: (p_line_adj_id => oe_order_util.g_old_line_adj_tbl(i).price_adjustment_id,
1061: p_line_adj_rec => oe_order_util.g_old_line_adj_tbl(i),
1062: p_hist_type_code => l_hist_type_code,
1063: p_reason_code => oe_globals.g_reason_code,
1064: p_comments => oe_globals.g_reason_comments,
1065: p_audit_flag => l_audit_flag,
1066: p_version_flag => p_version_flag,
1067: p_phase_change_flag => p_phase_change_flag,
1060: (p_line_adj_id => oe_order_util.g_old_line_adj_tbl(i).price_adjustment_id,
1061: p_line_adj_rec => oe_order_util.g_old_line_adj_tbl(i),
1062: p_hist_type_code => l_hist_type_code,
1063: p_reason_code => oe_globals.g_reason_code,
1064: p_comments => oe_globals.g_reason_comments,
1065: p_audit_flag => l_audit_flag,
1066: p_version_flag => p_version_flag,
1067: p_phase_change_flag => p_phase_change_flag,
1068: p_version_number => l_version_number,
1095: END IF;
1096: --Update history for line scredit
1097: i := oe_order_util.g_old_line_scredit_tbl.FIRST; -- get subscript of first element
1098: WHILE i IS NOT NULL LOOP
1099: IF NOT OE_GLOBALS.Equal(oe_order_util.g_old_line_scredit_tbl(i).operation, OE_GLOBALS.G_OPR_CREATE) AND
1100: (p_version_flag = 'Y' OR p_phase_change_flag = 'Y' or
1101: g_audit_line_scredit_id_tbl.exists(i)) THEN
1102: IF g_audit_line_scredit_id_tbl.exists(i) THEN
1103: l_audit_flag := 'Y';
1142: OE_CHG_ORDER_PVT.RecordLSCreditHist
1143: (p_line_scredit_id => oe_order_util.g_old_line_scredit_tbl(i).sales_credit_id,
1144: p_line_scredit_rec => oe_order_util.g_old_line_scredit_tbl(i),
1145: p_hist_type_code => l_hist_type_code,
1146: p_reason_code => oe_globals.g_reason_code,
1147: p_comments => oe_globals.g_reason_comments,
1148: p_audit_flag => l_audit_flag,
1149: p_version_flag => p_version_flag,
1150: p_phase_change_flag => p_phase_change_flag,
1143: (p_line_scredit_id => oe_order_util.g_old_line_scredit_tbl(i).sales_credit_id,
1144: p_line_scredit_rec => oe_order_util.g_old_line_scredit_tbl(i),
1145: p_hist_type_code => l_hist_type_code,
1146: p_reason_code => oe_globals.g_reason_code,
1147: p_comments => oe_globals.g_reason_comments,
1148: p_audit_flag => l_audit_flag,
1149: p_version_flag => p_version_flag,
1150: p_phase_change_flag => p_phase_change_flag,
1151: p_version_number => l_version_number,
1206: IF l_debug_level > 0 THEN
1207: oe_debug_pub.add(' OEXUVERB: reset_globals ',1);
1208: END IF;
1209:
1210: OE_GLOBALS.G_ROLL_VERSION := 'N';
1211: OE_GLOBALS.G_CAPTURED_REASON := 'N';
1212: OE_GLOBALS.G_REASON_CODE := NULL;
1213: OE_GLOBALS.G_REASON_COMMENTS := NULL;
1214: OE_GLOBALS.G_REASON_TYPE := NULL;
1207: oe_debug_pub.add(' OEXUVERB: reset_globals ',1);
1208: END IF;
1209:
1210: OE_GLOBALS.G_ROLL_VERSION := 'N';
1211: OE_GLOBALS.G_CAPTURED_REASON := 'N';
1212: OE_GLOBALS.G_REASON_CODE := NULL;
1213: OE_GLOBALS.G_REASON_COMMENTS := NULL;
1214: OE_GLOBALS.G_REASON_TYPE := NULL;
1215: G_Audit_Line_ID_Tbl.DELETE;
1208: END IF;
1209:
1210: OE_GLOBALS.G_ROLL_VERSION := 'N';
1211: OE_GLOBALS.G_CAPTURED_REASON := 'N';
1212: OE_GLOBALS.G_REASON_CODE := NULL;
1213: OE_GLOBALS.G_REASON_COMMENTS := NULL;
1214: OE_GLOBALS.G_REASON_TYPE := NULL;
1215: G_Audit_Line_ID_Tbl.DELETE;
1216: G_Audit_Header_Adj_ID_Tbl.DELETE;
1209:
1210: OE_GLOBALS.G_ROLL_VERSION := 'N';
1211: OE_GLOBALS.G_CAPTURED_REASON := 'N';
1212: OE_GLOBALS.G_REASON_CODE := NULL;
1213: OE_GLOBALS.G_REASON_COMMENTS := NULL;
1214: OE_GLOBALS.G_REASON_TYPE := NULL;
1215: G_Audit_Line_ID_Tbl.DELETE;
1216: G_Audit_Header_Adj_ID_Tbl.DELETE;
1217: G_Audit_Line_Adj_ID_Tbl.DELETE;
1210: OE_GLOBALS.G_ROLL_VERSION := 'N';
1211: OE_GLOBALS.G_CAPTURED_REASON := 'N';
1212: OE_GLOBALS.G_REASON_CODE := NULL;
1213: OE_GLOBALS.G_REASON_COMMENTS := NULL;
1214: OE_GLOBALS.G_REASON_TYPE := NULL;
1215: G_Audit_Line_ID_Tbl.DELETE;
1216: G_Audit_Header_Adj_ID_Tbl.DELETE;
1217: G_Audit_Line_Adj_ID_Tbl.DELETE;
1218: G_Audit_Header_Scredit_ID_Tbl.DELETE;
1237: END IF;
1238:
1239: -- added for bug 3518059
1240: -- add g_header_created check to fix bug 3700341
1241: if OE_Order_Util.g_header_rec.operation = OE_GLOBALS.G_OPR_CREATE OR
1242: OE_GLOBALS.G_HEADER_CREATED OR
1243: OE_Blanket_Util.g_header_rec.operation = OE_GLOBALS.G_OPR_CREATE then
1244: IF l_debug_level > 0 THEN
1245: oe_debug_pub.add(' OEXUVERB: header is created, do nothing',1);
1238:
1239: -- added for bug 3518059
1240: -- add g_header_created check to fix bug 3700341
1241: if OE_Order_Util.g_header_rec.operation = OE_GLOBALS.G_OPR_CREATE OR
1242: OE_GLOBALS.G_HEADER_CREATED OR
1243: OE_Blanket_Util.g_header_rec.operation = OE_GLOBALS.G_OPR_CREATE then
1244: IF l_debug_level > 0 THEN
1245: oe_debug_pub.add(' OEXUVERB: header is created, do nothing',1);
1246: END IF;
1239: -- added for bug 3518059
1240: -- add g_header_created check to fix bug 3700341
1241: if OE_Order_Util.g_header_rec.operation = OE_GLOBALS.G_OPR_CREATE OR
1242: OE_GLOBALS.G_HEADER_CREATED OR
1243: OE_Blanket_Util.g_header_rec.operation = OE_GLOBALS.G_OPR_CREATE then
1244: IF l_debug_level > 0 THEN
1245: oe_debug_pub.add(' OEXUVERB: header is created, do nothing',1);
1246: END IF;
1247: else
1247: else
1248: IF p_column_name = 'TRANSACTION_PHASE_CODE' AND
1249: OE_QUOTE_UTIL.G_COMPLETE_NEG = 'Y' THEN
1250: --if transaction_phase is changing
1251: IF OE_GLOBALS.G_ROLL_VERSION = 'Y' THEN
1252: OE_GLOBALS.G_ROLL_VERSION := 'PV';
1253: ELSIF OE_GLOBALS.G_ROLL_VERSION = 'N' THEN
1254: OE_GLOBALS.G_ROLL_VERSION := 'P';
1255: END IF;
1248: IF p_column_name = 'TRANSACTION_PHASE_CODE' AND
1249: OE_QUOTE_UTIL.G_COMPLETE_NEG = 'Y' THEN
1250: --if transaction_phase is changing
1251: IF OE_GLOBALS.G_ROLL_VERSION = 'Y' THEN
1252: OE_GLOBALS.G_ROLL_VERSION := 'PV';
1253: ELSIF OE_GLOBALS.G_ROLL_VERSION = 'N' THEN
1254: OE_GLOBALS.G_ROLL_VERSION := 'P';
1255: END IF;
1256: END IF;
1249: OE_QUOTE_UTIL.G_COMPLETE_NEG = 'Y' THEN
1250: --if transaction_phase is changing
1251: IF OE_GLOBALS.G_ROLL_VERSION = 'Y' THEN
1252: OE_GLOBALS.G_ROLL_VERSION := 'PV';
1253: ELSIF OE_GLOBALS.G_ROLL_VERSION = 'N' THEN
1254: OE_GLOBALS.G_ROLL_VERSION := 'P';
1255: END IF;
1256: END IF;
1257:
1250: --if transaction_phase is changing
1251: IF OE_GLOBALS.G_ROLL_VERSION = 'Y' THEN
1252: OE_GLOBALS.G_ROLL_VERSION := 'PV';
1253: ELSIF OE_GLOBALS.G_ROLL_VERSION = 'N' THEN
1254: OE_GLOBALS.G_ROLL_VERSION := 'P';
1255: END IF;
1256: END IF;
1257:
1258: IF p_on_operation_action IN (.1,.2) THEN
1255: END IF;
1256: END IF;
1257:
1258: IF p_on_operation_action IN (.1,.2) THEN
1259: IF OE_GLOBALS.G_ROLL_VERSION = 'P' THEN
1260: OE_GLOBALS.G_ROLL_VERSION := 'PV';
1261: ELSIF OE_GLOBALS.G_ROLL_VERSION = 'N' THEN
1262: OE_GLOBALS.G_ROLL_VERSION := 'Y';
1263: END IF;
1256: END IF;
1257:
1258: IF p_on_operation_action IN (.1,.2) THEN
1259: IF OE_GLOBALS.G_ROLL_VERSION = 'P' THEN
1260: OE_GLOBALS.G_ROLL_VERSION := 'PV';
1261: ELSIF OE_GLOBALS.G_ROLL_VERSION = 'N' THEN
1262: OE_GLOBALS.G_ROLL_VERSION := 'Y';
1263: END IF;
1264:
1257:
1258: IF p_on_operation_action IN (.1,.2) THEN
1259: IF OE_GLOBALS.G_ROLL_VERSION = 'P' THEN
1260: OE_GLOBALS.G_ROLL_VERSION := 'PV';
1261: ELSIF OE_GLOBALS.G_ROLL_VERSION = 'N' THEN
1262: OE_GLOBALS.G_ROLL_VERSION := 'Y';
1263: END IF;
1264:
1265: IF p_on_operation_action = .1 AND OE_GLOBALS.G_CAPTURED_REASON = 'N' THEN
1258: IF p_on_operation_action IN (.1,.2) THEN
1259: IF OE_GLOBALS.G_ROLL_VERSION = 'P' THEN
1260: OE_GLOBALS.G_ROLL_VERSION := 'PV';
1261: ELSIF OE_GLOBALS.G_ROLL_VERSION = 'N' THEN
1262: OE_GLOBALS.G_ROLL_VERSION := 'Y';
1263: END IF;
1264:
1265: IF p_on_operation_action = .1 AND OE_GLOBALS.G_CAPTURED_REASON = 'N' THEN
1266: --Capture reason required for versioning
1261: ELSIF OE_GLOBALS.G_ROLL_VERSION = 'N' THEN
1262: OE_GLOBALS.G_ROLL_VERSION := 'Y';
1263: END IF;
1264:
1265: IF p_on_operation_action = .1 AND OE_GLOBALS.G_CAPTURED_REASON = 'N' THEN
1266: --Capture reason required for versioning
1267: OE_GLOBALS.G_CAPTURED_REASON := 'V';
1268: END IF;
1269: END IF;
1263: END IF;
1264:
1265: IF p_on_operation_action = .1 AND OE_GLOBALS.G_CAPTURED_REASON = 'N' THEN
1266: --Capture reason required for versioning
1267: OE_GLOBALS.G_CAPTURED_REASON := 'V';
1268: END IF;
1269: END IF;
1270: end if;
1271: IF l_debug_level > 0 THEN
1268: END IF;
1269: END IF;
1270: end if;
1271: IF l_debug_level > 0 THEN
1272: oe_debug_pub.add(' OEXUVERB: gen_version roll: '|| oe_globals.g_roll_version,1);
1273: END IF;
1274:
1275: END Check_Security;
1276:
1276:
1277:
1278: FUNCTION IS_REASON_RQD RETURN Varchar2 IS
1279: BEGIN
1280: IF OE_GLOBALS.G_CAPTURED_REASON IN ('V') THEN
1281: RETURN OE_GLOBALS.G_CAPTURED_REASON;
1282: ELSIF OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG = 'Y' THEN
1283: RETURN 'A';
1284: ELSE
1277:
1278: FUNCTION IS_REASON_RQD RETURN Varchar2 IS
1279: BEGIN
1280: IF OE_GLOBALS.G_CAPTURED_REASON IN ('V') THEN
1281: RETURN OE_GLOBALS.G_CAPTURED_REASON;
1282: ELSIF OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG = 'Y' THEN
1283: RETURN 'A';
1284: ELSE
1285: -- else condition added for bug 4144357
1278: FUNCTION IS_REASON_RQD RETURN Varchar2 IS
1279: BEGIN
1280: IF OE_GLOBALS.G_CAPTURED_REASON IN ('V') THEN
1281: RETURN OE_GLOBALS.G_CAPTURED_REASON;
1282: ELSIF OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG = 'Y' THEN
1283: RETURN 'A';
1284: ELSE
1285: -- else condition added for bug 4144357
1286: IF OE_GLOBALS.OE_AUDIT_HISTORY_TBL.count > 0 THEN
1282: ELSIF OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG = 'Y' THEN
1283: RETURN 'A';
1284: ELSE
1285: -- else condition added for bug 4144357
1286: IF OE_GLOBALS.OE_AUDIT_HISTORY_TBL.count > 0 THEN
1287: FOR l_ind in 1..OE_GLOBALS.oe_audit_history_tbl.last LOOP
1288: IF OE_GLOBALS.OE_AUDIT_HISTORY_TBL.exists(l_ind) AND
1289: OE_GLOBALS.oe_audit_history_tbl(l_ind).HISTORY_TYPE = 'R' THEN
1290: OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG := 'Y';
1283: RETURN 'A';
1284: ELSE
1285: -- else condition added for bug 4144357
1286: IF OE_GLOBALS.OE_AUDIT_HISTORY_TBL.count > 0 THEN
1287: FOR l_ind in 1..OE_GLOBALS.oe_audit_history_tbl.last LOOP
1288: IF OE_GLOBALS.OE_AUDIT_HISTORY_TBL.exists(l_ind) AND
1289: OE_GLOBALS.oe_audit_history_tbl(l_ind).HISTORY_TYPE = 'R' THEN
1290: OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG := 'Y';
1291: RETURN 'A';
1284: ELSE
1285: -- else condition added for bug 4144357
1286: IF OE_GLOBALS.OE_AUDIT_HISTORY_TBL.count > 0 THEN
1287: FOR l_ind in 1..OE_GLOBALS.oe_audit_history_tbl.last LOOP
1288: IF OE_GLOBALS.OE_AUDIT_HISTORY_TBL.exists(l_ind) AND
1289: OE_GLOBALS.oe_audit_history_tbl(l_ind).HISTORY_TYPE = 'R' THEN
1290: OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG := 'Y';
1291: RETURN 'A';
1292: END IF;
1285: -- else condition added for bug 4144357
1286: IF OE_GLOBALS.OE_AUDIT_HISTORY_TBL.count > 0 THEN
1287: FOR l_ind in 1..OE_GLOBALS.oe_audit_history_tbl.last LOOP
1288: IF OE_GLOBALS.OE_AUDIT_HISTORY_TBL.exists(l_ind) AND
1289: OE_GLOBALS.oe_audit_history_tbl(l_ind).HISTORY_TYPE = 'R' THEN
1290: OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG := 'Y';
1291: RETURN 'A';
1292: END IF;
1293: END LOOP;
1286: IF OE_GLOBALS.OE_AUDIT_HISTORY_TBL.count > 0 THEN
1287: FOR l_ind in 1..OE_GLOBALS.oe_audit_history_tbl.last LOOP
1288: IF OE_GLOBALS.OE_AUDIT_HISTORY_TBL.exists(l_ind) AND
1289: OE_GLOBALS.oe_audit_history_tbl(l_ind).HISTORY_TYPE = 'R' THEN
1290: OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG := 'Y';
1291: RETURN 'A';
1292: END IF;
1293: END LOOP;
1294: END IF;
1293: END LOOP;
1294: END IF;
1295: END IF;
1296:
1297: IF OE_GLOBALS.G_CAPTURED_REASON IN ('N','Y') THEN
1298: RETURN OE_GLOBALS.G_CAPTURED_REASON;
1299: END IF;
1300: END;
1301:
1294: END IF;
1295: END IF;
1296:
1297: IF OE_GLOBALS.G_CAPTURED_REASON IN ('N','Y') THEN
1298: RETURN OE_GLOBALS.G_CAPTURED_REASON;
1299: END IF;
1300: END;
1301:
1302: FUNCTION IS_AUDIT_REASON_CAPTURED
1311: BEGIN
1312:
1313: G_UI_CALLED := TRUE;
1314:
1315: IF p_entity_code = OE_GLOBALS.G_ENTITY_HEADER THEN
1316: IF OE_Order_Util.g_header_rec.change_reason <> FND_API.G_MISS_CHAR THEN
1317: g_temp_reason_code := OE_Order_Util.g_header_rec.change_reason;
1318: g_temp_reason_comments := OE_Order_Util.g_header_rec.change_comments;
1319: RETURN TRUE;
1327: l_result,
1328: l_return_stat);
1329:
1330: IF l_result = FND_API.G_TRUE THEN
1331: IF p_entity_code = OE_GLOBALS.G_ENTITY_LINE THEN
1332: IF OE_Order_Util.g_line_tbl(l_ind).change_reason <> FND_API.G_MISS_CHAR THEN
1333: g_temp_reason_code := OE_Order_Util.g_line_tbl(l_ind).change_reason;
1334: g_temp_reason_comments := OE_Order_Util.g_line_tbl(l_ind).change_comments;
1335: RETURN TRUE;
1333: g_temp_reason_code := OE_Order_Util.g_line_tbl(l_ind).change_reason;
1334: g_temp_reason_comments := OE_Order_Util.g_line_tbl(l_ind).change_comments;
1335: RETURN TRUE;
1336: END IF;
1337: ELSIF p_entity_code = OE_GLOBALS.G_ENTITY_HEADER_ADJ THEN
1338: IF OE_Order_Util.g_header_adj_tbl(l_ind).change_reason_code <> FND_API.G_MISS_CHAR THEN
1339: g_temp_reason_code := OE_Order_Util.g_header_adj_tbl(l_ind).change_reason_code;
1340: g_temp_reason_comments := OE_Order_Util.g_header_adj_tbl(l_ind).change_reason_text;
1341: RETURN TRUE;
1339: g_temp_reason_code := OE_Order_Util.g_header_adj_tbl(l_ind).change_reason_code;
1340: g_temp_reason_comments := OE_Order_Util.g_header_adj_tbl(l_ind).change_reason_text;
1341: RETURN TRUE;
1342: END IF;
1343: ELSIF p_entity_code = OE_GLOBALS.G_ENTITY_HEADER_SCREDIT THEN
1344: IF OE_Order_Util.g_header_scredit_tbl(l_ind).change_reason <> FND_API.G_MISS_CHAR THEN
1345: g_temp_reason_code := OE_Order_Util.g_header_scredit_tbl(l_ind).change_reason;
1346: g_temp_reason_comments := OE_Order_Util.g_header_scredit_tbl(l_ind).change_comments;
1347: RETURN TRUE;
1345: g_temp_reason_code := OE_Order_Util.g_header_scredit_tbl(l_ind).change_reason;
1346: g_temp_reason_comments := OE_Order_Util.g_header_scredit_tbl(l_ind).change_comments;
1347: RETURN TRUE;
1348: END IF;
1349: ELSIF p_entity_code = OE_GLOBALS.G_ENTITY_LINE_ADJ THEN
1350: IF OE_Order_Util.g_line_adj_tbl(l_ind).change_reason_code <> FND_API.G_MISS_CHAR THEN
1351: g_temp_reason_code := OE_Order_Util.g_line_adj_tbl(l_ind).change_reason_code;
1352: g_temp_reason_comments := OE_Order_Util.g_line_adj_tbl(l_ind).change_reason_text;
1353: RETURN TRUE;
1351: g_temp_reason_code := OE_Order_Util.g_line_adj_tbl(l_ind).change_reason_code;
1352: g_temp_reason_comments := OE_Order_Util.g_line_adj_tbl(l_ind).change_reason_text;
1353: RETURN TRUE;
1354: END IF;
1355: ELSIF p_entity_code = OE_GLOBALS.G_ENTITY_LINE_SCREDIT THEN
1356: IF OE_Order_Util.g_line_scredit_tbl(l_ind).change_reason <> FND_API.G_MISS_CHAR THEN
1357: g_temp_reason_code := OE_Order_Util.g_line_scredit_tbl(l_ind).change_reason;
1358: g_temp_reason_comments := OE_Order_Util.g_line_scredit_tbl(l_ind).change_comments;
1359: RETURN TRUE;
1367: END;
1368:
1369: FUNCTION CAPTURED_REASON RETURN Varchar2 IS
1370: BEGIN
1371: RETURN OE_GLOBALS.G_REASON_CODE;
1372: END CAPTURED_REASON;
1373:
1374:
1375: Procedure Capture_Audit_Info(
1392: oe_debug_pub.add('entity id :'||p_entity_id);
1393: oe_debug_pub.add('hist type :'||p_hist_type_code);
1394: end if;
1395:
1396: IF p_entity_code <> OE_GLOBALS.G_ENTITY_HEADER THEN
1397: OE_Order_Util.Return_Glb_Ent_Index(
1398: p_entity_code,
1399: p_entity_id,
1400: l_ind,
1401: l_result,
1402: l_return_stat);
1403: END IF;
1404:
1405: IF p_entity_code = OE_GLOBALS.G_ENTITY_HEADER THEN
1406: G_Audit_Header_Hist_Code := 'UPDATE';
1407: IF OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG = 'Y' THEN
1408: G_Audit_Header_Reason_Required := TRUE;
1409: END IF;
1403: END IF;
1404:
1405: IF p_entity_code = OE_GLOBALS.G_ENTITY_HEADER THEN
1406: G_Audit_Header_Hist_Code := 'UPDATE';
1407: IF OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG = 'Y' THEN
1408: G_Audit_Header_Reason_Required := TRUE;
1409: END IF;
1410: ELSIF p_entity_code = OE_GLOBALS.G_ENTITY_LINE THEN
1411: IF NOT G_Audit_Line_ID_Tbl.exists(l_ind)
1406: G_Audit_Header_Hist_Code := 'UPDATE';
1407: IF OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG = 'Y' THEN
1408: G_Audit_Header_Reason_Required := TRUE;
1409: END IF;
1410: ELSIF p_entity_code = OE_GLOBALS.G_ENTITY_LINE THEN
1411: IF NOT G_Audit_Line_ID_Tbl.exists(l_ind)
1412: OR G_Audit_Line_ID_Tbl(l_ind).hist_type_code NOT IN ('SPLIT', 'CANCELLATION') THEN
1413: G_Audit_Line_ID_Tbl(l_ind).entity_id := p_entity_id;
1414: G_Audit_Line_ID_Tbl(l_ind).hist_type_code := p_hist_type_code;
1411: IF NOT G_Audit_Line_ID_Tbl.exists(l_ind)
1412: OR G_Audit_Line_ID_Tbl(l_ind).hist_type_code NOT IN ('SPLIT', 'CANCELLATION') THEN
1413: G_Audit_Line_ID_Tbl(l_ind).entity_id := p_entity_id;
1414: G_Audit_Line_ID_Tbl(l_ind).hist_type_code := p_hist_type_code;
1415: IF OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG = 'Y' THEN
1416: G_Audit_Line_ID_Tbl(l_ind).Reason_Required := TRUE;
1417: END IF;
1418: END IF;
1419: ELSIF p_entity_code = OE_GLOBALS.G_ENTITY_HEADER_ADJ THEN
1415: IF OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG = 'Y' THEN
1416: G_Audit_Line_ID_Tbl(l_ind).Reason_Required := TRUE;
1417: END IF;
1418: END IF;
1419: ELSIF p_entity_code = OE_GLOBALS.G_ENTITY_HEADER_ADJ THEN
1420: IF NOT G_Audit_Header_Adj_ID_Tbl.exists(l_ind)
1421: OR G_Audit_Header_Adj_ID_Tbl(l_ind).hist_type_code NOT IN ('SPLIT', 'CANCELLATION') THEN
1422: G_Audit_Header_Adj_ID_Tbl(l_ind).entity_id := p_entity_id;
1423: G_Audit_Header_Adj_ID_Tbl(l_ind).hist_type_code := p_hist_type_code;
1420: IF NOT G_Audit_Header_Adj_ID_Tbl.exists(l_ind)
1421: OR G_Audit_Header_Adj_ID_Tbl(l_ind).hist_type_code NOT IN ('SPLIT', 'CANCELLATION') THEN
1422: G_Audit_Header_Adj_ID_Tbl(l_ind).entity_id := p_entity_id;
1423: G_Audit_Header_Adj_ID_Tbl(l_ind).hist_type_code := p_hist_type_code;
1424: IF OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG = 'Y' THEN
1425: G_Audit_Header_Adj_ID_Tbl(l_ind).Reason_Required := TRUE;
1426: END IF;
1427: END IF;
1428: ELSIF p_entity_code = OE_GLOBALS.G_ENTITY_HEADER_SCREDIT THEN
1424: IF OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG = 'Y' THEN
1425: G_Audit_Header_Adj_ID_Tbl(l_ind).Reason_Required := TRUE;
1426: END IF;
1427: END IF;
1428: ELSIF p_entity_code = OE_GLOBALS.G_ENTITY_HEADER_SCREDIT THEN
1429: IF NOT G_Audit_Header_scredit_ID_Tbl.exists(l_ind)
1430: OR G_Audit_Header_scredit_ID_Tbl(l_ind).hist_type_code NOT IN ('SPLIT', 'CANCELLATION') THEN
1431: G_Audit_Header_scredit_ID_Tbl(l_ind).entity_id := p_entity_id;
1432: G_Audit_Header_scredit_ID_Tbl(l_ind).hist_type_code := p_hist_type_code;
1429: IF NOT G_Audit_Header_scredit_ID_Tbl.exists(l_ind)
1430: OR G_Audit_Header_scredit_ID_Tbl(l_ind).hist_type_code NOT IN ('SPLIT', 'CANCELLATION') THEN
1431: G_Audit_Header_scredit_ID_Tbl(l_ind).entity_id := p_entity_id;
1432: G_Audit_Header_scredit_ID_Tbl(l_ind).hist_type_code := p_hist_type_code;
1433: IF OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG = 'Y' THEN
1434: G_Audit_Header_Scredit_ID_Tbl(l_ind).Reason_Required := TRUE;
1435: END IF;
1436: END IF;
1437: ELSIF p_entity_code = OE_GLOBALS.G_ENTITY_LINE_ADJ THEN
1433: IF OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG = 'Y' THEN
1434: G_Audit_Header_Scredit_ID_Tbl(l_ind).Reason_Required := TRUE;
1435: END IF;
1436: END IF;
1437: ELSIF p_entity_code = OE_GLOBALS.G_ENTITY_LINE_ADJ THEN
1438: IF NOT G_Audit_Line_Adj_ID_Tbl.exists(l_ind)
1439: OR G_Audit_Line_Adj_ID_Tbl(l_ind).hist_type_code NOT IN ('SPLIT', 'CANCELLATION') THEN
1440: G_Audit_Line_Adj_ID_Tbl(l_ind).entity_id := p_entity_id;
1441: G_Audit_Line_Adj_ID_Tbl(l_ind).hist_type_code := p_hist_type_code;
1438: IF NOT G_Audit_Line_Adj_ID_Tbl.exists(l_ind)
1439: OR G_Audit_Line_Adj_ID_Tbl(l_ind).hist_type_code NOT IN ('SPLIT', 'CANCELLATION') THEN
1440: G_Audit_Line_Adj_ID_Tbl(l_ind).entity_id := p_entity_id;
1441: G_Audit_Line_Adj_ID_Tbl(l_ind).hist_type_code := p_hist_type_code;
1442: IF OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG = 'Y' THEN
1443: G_Audit_Line_Adj_ID_Tbl(l_ind).Reason_Required := TRUE;
1444: END IF;
1445: END IF;
1446: ELSIF p_entity_code = OE_GLOBALS.G_ENTITY_LINE_SCREDIT THEN
1442: IF OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG = 'Y' THEN
1443: G_Audit_Line_Adj_ID_Tbl(l_ind).Reason_Required := TRUE;
1444: END IF;
1445: END IF;
1446: ELSIF p_entity_code = OE_GLOBALS.G_ENTITY_LINE_SCREDIT THEN
1447: IF NOT G_Audit_Line_scredit_ID_Tbl.exists(l_ind)
1448: OR G_Audit_Line_scredit_ID_Tbl(l_ind).hist_type_code NOT IN ('SPLIT', 'CANCELLATION') THEN
1449: G_Audit_Line_scredit_ID_Tbl(l_ind).entity_id := p_entity_id;
1450: G_Audit_Line_scredit_ID_Tbl(l_ind).hist_type_code := p_hist_type_code;
1447: IF NOT G_Audit_Line_scredit_ID_Tbl.exists(l_ind)
1448: OR G_Audit_Line_scredit_ID_Tbl(l_ind).hist_type_code NOT IN ('SPLIT', 'CANCELLATION') THEN
1449: G_Audit_Line_scredit_ID_Tbl(l_ind).entity_id := p_entity_id;
1450: G_Audit_Line_scredit_ID_Tbl(l_ind).hist_type_code := p_hist_type_code;
1451: IF OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG = 'Y' THEN
1452: G_Audit_Line_Scredit_ID_Tbl(l_ind).Reason_Required := TRUE;
1453: END IF;
1454: END IF;
1455: END IF;
1453: END IF;
1454: END IF;
1455: END IF;
1456:
1457: OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG := 'N';
1458: END Capture_Audit_Info;
1459:
1460: Procedure Get_Reason_Info(
1461: x_reason_code OUT NOCOPY VARCHAR2,
1479: end if;
1480:
1481: -- Get current change reason
1482:
1483: if OE_GLOBALS.G_REASON_CODE IS NOT NULL THEN
1484: x_reason_code := OE_GLOBALS.G_REASON_CODE;
1485: x_reason_comments := OE_GLOBALS.G_REASON_COMMENTS;
1486: end if;
1487:
1480:
1481: -- Get current change reason
1482:
1483: if OE_GLOBALS.G_REASON_CODE IS NOT NULL THEN
1484: x_reason_code := OE_GLOBALS.G_REASON_CODE;
1485: x_reason_comments := OE_GLOBALS.G_REASON_COMMENTS;
1486: end if;
1487:
1488: if oe_order_util.g_header_rec.change_reason <> FND_API.G_MISS_CHAR then
1481: -- Get current change reason
1482:
1483: if OE_GLOBALS.G_REASON_CODE IS NOT NULL THEN
1484: x_reason_code := OE_GLOBALS.G_REASON_CODE;
1485: x_reason_comments := OE_GLOBALS.G_REASON_COMMENTS;
1486: end if;
1487:
1488: if oe_order_util.g_header_rec.change_reason <> FND_API.G_MISS_CHAR then
1489: x_reason_code := oe_order_util.g_header_rec.change_reason;