32:
33: ------------------------------------------------------------------------------
34: -- GLOBAL CONSTANTS
35: ------------------------------------------------------------------------------
36: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
37: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
38: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
39: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
40: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
33: ------------------------------------------------------------------------------
34: -- GLOBAL CONSTANTS
35: ------------------------------------------------------------------------------
36: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
37: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
38: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
39: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
40: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
41:
34: -- GLOBAL CONSTANTS
35: ------------------------------------------------------------------------------
36: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
37: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
38: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
39: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
40: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
41:
42: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
35: ------------------------------------------------------------------------------
36: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
37: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
38: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
39: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
40: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
41:
42: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
43: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
36: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
37: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
38: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
39: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
40: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
41:
42: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
43: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
44: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
38: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
39: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
40: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
41:
42: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
43: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
44: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
45:
46: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
39: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
40: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
41:
42: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
43: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
44: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
45:
46: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
47: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
40: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
41:
42: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
43: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
44: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
45:
46: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
47: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
48: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
168: x_last_update_date => l_last_update_date
169: );
170: --- If any errors happen abort API
171: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
172: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
173: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
174: RAISE FND_API.G_EXC_ERROR;
175: END IF;
176:
170: --- If any errors happen abort API
171: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
172: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
173: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
174: RAISE FND_API.G_EXC_ERROR;
175: END IF;
176:
177: --- Reversing G_MISS/NULL values logic
178:
196: END IF;
197:
198: RETURN G_RET_STS_SUCCESS ;
199: EXCEPTION
200: WHEN FND_API.G_EXC_ERROR THEN
201: IF (l_debug = 'Y') THEN
202: Okc_Debug.Log('900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception', 2);
203: END IF;
204: RETURN G_RET_STS_ERROR;
198: RETURN G_RET_STS_SUCCESS ;
199: EXCEPTION
200: WHEN FND_API.G_EXC_ERROR THEN
201: IF (l_debug = 'Y') THEN
202: Okc_Debug.Log('900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception', 2);
203: END IF;
204: RETURN G_RET_STS_ERROR;
205:
206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
202: Okc_Debug.Log('900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception', 2);
203: END IF;
204: RETURN G_RET_STS_ERROR;
205:
206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
207: IF (l_debug = 'Y') THEN
208: Okc_Debug.Log('1000: Leaving Set_Attributes:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
209: END IF;
210: RETURN G_RET_STS_UNEXP_ERROR;
204: RETURN G_RET_STS_ERROR;
205:
206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
207: IF (l_debug = 'Y') THEN
208: Okc_Debug.Log('1000: Leaving Set_Attributes:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
209: END IF;
210: RETURN G_RET_STS_UNEXP_ERROR;
211:
212: WHEN OTHERS THEN
226: ----------------------------------------------
227: -- Validate_Attributes for: OKC_DOC_QA_LISTS --
228: ----------------------------------------------
229: FUNCTION Validate_Attributes (
230: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
231:
232: p_qa_code IN VARCHAR2,
233: p_document_type IN VARCHAR2,
234: p_severity_flag IN VARCHAR2,
398: ------------------------------------------
399: -- Validate_Record for:OKC_DOC_QA_LISTS --
400: ------------------------------------------
401: FUNCTION Validate_Record (
402: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
403:
404: p_qa_code IN VARCHAR2,
405: p_document_type IN VARCHAR2,
406: p_severity_flag IN VARCHAR2,
467: ---------------------------------------
468: -- validate_row for:OKC_DOC_QA_LISTS --
469: ---------------------------------------
470: PROCEDURE validate_row(
471: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
472:
473: x_return_status OUT NOCOPY VARCHAR2,
474:
475: p_qa_code IN VARCHAR2,
506: x_severity_flag => l_severity_flag,
507: x_enable_qa_yn => l_enable_qa_yn
508: );
509: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
511: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
512: RAISE FND_API.G_EXC_ERROR;
513: END IF;
514:
508: );
509: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
511: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
512: RAISE FND_API.G_EXC_ERROR;
513: END IF;
514:
515: -- Validate all non-missing attributes (Item Level Validation)
516: x_return_status := Validate_Record(
525: Okc_Debug.Log('3200: Leaving validate_row', 2);
526: END IF;
527:
528: EXCEPTION
529: WHEN FND_API.G_EXC_ERROR THEN
530: IF (l_debug = 'Y') THEN
531: Okc_Debug.Log('3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception', 2);
532: END IF;
533: x_return_status := G_RET_STS_ERROR;
527:
528: EXCEPTION
529: WHEN FND_API.G_EXC_ERROR THEN
530: IF (l_debug = 'Y') THEN
531: Okc_Debug.Log('3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception', 2);
532: END IF;
533: x_return_status := G_RET_STS_ERROR;
534:
535: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
531: Okc_Debug.Log('3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception', 2);
532: END IF;
533: x_return_status := G_RET_STS_ERROR;
534:
535: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
536: IF (l_debug = 'Y') THEN
537: Okc_Debug.Log('3400: Leaving Validate_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
538: END IF;
539: x_return_status := G_RET_STS_UNEXP_ERROR;
533: x_return_status := G_RET_STS_ERROR;
534:
535: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
536: IF (l_debug = 'Y') THEN
537: Okc_Debug.Log('3400: Leaving Validate_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
538: END IF;
539: x_return_status := G_RET_STS_UNEXP_ERROR;
540:
541: WHEN OTHERS THEN
629: -------------------------------------
630: -- Insert_Row for:OKC_DOC_QA_LISTS --
631: -------------------------------------
632: PROCEDURE Insert_Row(
633: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
634: x_return_status OUT NOCOPY VARCHAR2,
635:
636: p_qa_code IN VARCHAR2,
637: p_document_type IN VARCHAR2,
681: p_enable_qa_yn => p_enable_qa_yn
682: );
683: --- If any errors happen abort API
684: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
685: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
686: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
687: RAISE FND_API.G_EXC_ERROR;
688: END IF;
689:
683: --- If any errors happen abort API
684: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
685: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
686: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
687: RAISE FND_API.G_EXC_ERROR;
688: END IF;
689:
690: --------------------------------------------
691: -- Call the internal Insert_Row for each child record
706: p_last_update_login => l_last_update_login,
707: p_last_update_date => l_last_update_date
708: );
709: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
711: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
712: RAISE FND_API.G_EXC_ERROR;
713: END IF;
714:
708: );
709: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
711: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
712: RAISE FND_API.G_EXC_ERROR;
713: END IF;
714:
715:
716:
718: Okc_Debug.Log('4500: Leaving Insert_Row', 2);
719: END IF;
720:
721: EXCEPTION
722: WHEN FND_API.G_EXC_ERROR THEN
723: IF (l_debug = 'Y') THEN
724: Okc_Debug.Log('4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception', 2);
725: END IF;
726: x_return_status := G_RET_STS_ERROR;
720:
721: EXCEPTION
722: WHEN FND_API.G_EXC_ERROR THEN
723: IF (l_debug = 'Y') THEN
724: Okc_Debug.Log('4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception', 2);
725: END IF;
726: x_return_status := G_RET_STS_ERROR;
727:
728: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
724: Okc_Debug.Log('4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception', 2);
725: END IF;
726: x_return_status := G_RET_STS_ERROR;
727:
728: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
729: IF (l_debug = 'Y') THEN
730: Okc_Debug.Log('4700: Leaving Insert_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
731: END IF;
732: x_return_status := G_RET_STS_UNEXP_ERROR;
726: x_return_status := G_RET_STS_ERROR;
727:
728: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
729: IF (l_debug = 'Y') THEN
730: Okc_Debug.Log('4700: Leaving Insert_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
731: END IF;
732: x_return_status := G_RET_STS_UNEXP_ERROR;
733:
734: WHEN OTHERS THEN
880: p_document_type => p_document_type,
881: p_object_version_number => p_object_version_number
882: );
883: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
885: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
886: RAISE FND_API.G_EXC_ERROR;
887: END IF;
888:
882: );
883: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
885: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
886: RAISE FND_API.G_EXC_ERROR;
887: END IF;
888:
889:
890:
892: Okc_Debug.Log('6000: Leaving Lock_Row', 2);
893: END IF;
894:
895: EXCEPTION
896: WHEN FND_API.G_EXC_ERROR THEN
897: IF (l_debug = 'Y') THEN
898: Okc_Debug.Log('6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception', 2);
899: END IF;
900: x_return_status := G_RET_STS_ERROR;
894:
895: EXCEPTION
896: WHEN FND_API.G_EXC_ERROR THEN
897: IF (l_debug = 'Y') THEN
898: Okc_Debug.Log('6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception', 2);
899: END IF;
900: x_return_status := G_RET_STS_ERROR;
901:
902: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
898: Okc_Debug.Log('6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception', 2);
899: END IF;
900: x_return_status := G_RET_STS_ERROR;
901:
902: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
903: IF (l_debug = 'Y') THEN
904: Okc_Debug.Log('6200: Leaving Lock_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
905: END IF;
906: x_return_status := G_RET_STS_UNEXP_ERROR;
900: x_return_status := G_RET_STS_ERROR;
901:
902: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
903: IF (l_debug = 'Y') THEN
904: Okc_Debug.Log('6200: Leaving Lock_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
905: END IF;
906: x_return_status := G_RET_STS_UNEXP_ERROR;
907:
908: WHEN OTHERS THEN
977: -------------------------------------
978: -- Update_Row for:OKC_DOC_QA_LISTS --
979: -------------------------------------
980: PROCEDURE Update_Row(
981: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
982:
983: x_return_status OUT NOCOPY VARCHAR2,
984:
985: p_qa_code IN VARCHAR2,
1010: p_document_type => p_document_type,
1011: p_object_version_number => p_object_version_number
1012: );
1013: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1014: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1015: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1016: RAISE FND_API.G_EXC_ERROR;
1017: END IF;
1018:
1012: );
1013: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1014: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1015: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1016: RAISE FND_API.G_EXC_ERROR;
1017: END IF;
1018:
1019:
1020: IF (l_debug = 'Y') THEN
1031: x_severity_flag => l_severity_flag,
1032: x_enable_qa_yn => l_enable_qa_yn
1033: );
1034: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1036: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1037: RAISE FND_API.G_EXC_ERROR;
1038: END IF;
1039:
1033: );
1034: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1036: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1037: RAISE FND_API.G_EXC_ERROR;
1038: END IF;
1039:
1040: IF (l_debug = 'Y') THEN
1041: Okc_Debug.Log('7400: Record Validation', 2);
1050: p_enable_qa_yn => l_enable_qa_yn
1051: );
1052: --- If any errors happen abort API
1053: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1055: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1056: RAISE FND_API.G_EXC_ERROR;
1057: END IF;
1058:
1052: --- If any errors happen abort API
1053: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1055: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1056: RAISE FND_API.G_EXC_ERROR;
1057: END IF;
1058:
1059: IF (l_debug = 'Y') THEN
1060: Okc_Debug.Log('7500: Filling WHO columns', 2);
1087: p_last_update_login => l_last_update_login,
1088: p_last_update_date => l_last_update_date
1089: );
1090: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1092: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1093: RAISE FND_API.G_EXC_ERROR;
1094: END IF;
1095:
1089: );
1090: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1092: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1093: RAISE FND_API.G_EXC_ERROR;
1094: END IF;
1095:
1096:
1097: IF (l_debug = 'Y') THEN
1098: Okc_Debug.Log('7800: Leaving Update_Row', 2);
1099: END IF;
1100:
1101: EXCEPTION
1102: WHEN FND_API.G_EXC_ERROR THEN
1103: IF (l_debug = 'Y') THEN
1104: Okc_Debug.Log('7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception', 2);
1105: END IF;
1106: x_return_status := G_RET_STS_ERROR;
1100:
1101: EXCEPTION
1102: WHEN FND_API.G_EXC_ERROR THEN
1103: IF (l_debug = 'Y') THEN
1104: Okc_Debug.Log('7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception', 2);
1105: END IF;
1106: x_return_status := G_RET_STS_ERROR;
1107:
1108: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1104: Okc_Debug.Log('7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception', 2);
1105: END IF;
1106: x_return_status := G_RET_STS_ERROR;
1107:
1108: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1109: IF (l_debug = 'Y') THEN
1110: Okc_Debug.Log('8000: Leaving Update_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1111: END IF;
1112: x_return_status := G_RET_STS_UNEXP_ERROR;
1106: x_return_status := G_RET_STS_ERROR;
1107:
1108: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1109: IF (l_debug = 'Y') THEN
1110: Okc_Debug.Log('8000: Leaving Update_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1111: END IF;
1112: x_return_status := G_RET_STS_UNEXP_ERROR;
1113:
1114: WHEN OTHERS THEN
1191: p_document_type => p_document_type,
1192: p_object_version_number => p_object_version_number
1193: );
1194: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1196: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1197: RAISE FND_API.G_EXC_ERROR;
1198: END IF;
1199:
1193: );
1194: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1196: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1197: RAISE FND_API.G_EXC_ERROR;
1198: END IF;
1199:
1200:
1201: IF (l_debug = 'Y') THEN
1202: Okc_Debug.Log('9100: Removing _B row', 2);
1203: END IF;
1204: x_return_status := Delete_Row( p_qa_code => p_qa_code,p_document_type => p_document_type );
1205: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1207: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1208: RAISE FND_API.G_EXC_ERROR;
1209: END IF;
1210:
1204: x_return_status := Delete_Row( p_qa_code => p_qa_code,p_document_type => p_document_type );
1205: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1207: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1208: RAISE FND_API.G_EXC_ERROR;
1209: END IF;
1210:
1211:
1212: IF (l_debug = 'Y') THEN
1213: Okc_Debug.Log('9300: Leaving Delete_Row', 2);
1214: END IF;
1215:
1216: EXCEPTION
1217: WHEN FND_API.G_EXC_ERROR THEN
1218: IF (l_debug = 'Y') THEN
1219: Okc_Debug.Log('9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception', 2);
1220: END IF;
1221: x_return_status := G_RET_STS_ERROR;
1215:
1216: EXCEPTION
1217: WHEN FND_API.G_EXC_ERROR THEN
1218: IF (l_debug = 'Y') THEN
1219: Okc_Debug.Log('9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception', 2);
1220: END IF;
1221: x_return_status := G_RET_STS_ERROR;
1222:
1223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1219: Okc_Debug.Log('9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception', 2);
1220: END IF;
1221: x_return_status := G_RET_STS_ERROR;
1222:
1223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1224: IF (l_debug = 'Y') THEN
1225: Okc_Debug.Log('9500: Leaving Delete_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1226: END IF;
1227: x_return_status := G_RET_STS_UNEXP_ERROR;
1221: x_return_status := G_RET_STS_ERROR;
1222:
1223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1224: IF (l_debug = 'Y') THEN
1225: Okc_Debug.Log('9500: Leaving Delete_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1226: END IF;
1227: x_return_status := G_RET_STS_UNEXP_ERROR;
1228:
1229: WHEN OTHERS THEN