[Home] [Help]
61: end;
62:
63: PROCEDURE Create_Repair_Order(
64: P_Api_Version_Number IN NUMBER,
65: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
66: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
67: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
68: p_REPAIR_LINE_ID IN NUMBER := Fnd_Api.G_MISS_NUM,
69: P_REPLN_Rec IN Csd_Repairs_Pub.REPLN_Rec_Type,
62:
63: PROCEDURE Create_Repair_Order(
64: P_Api_Version_Number IN NUMBER,
65: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
66: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
67: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
68: p_REPAIR_LINE_ID IN NUMBER := Fnd_Api.G_MISS_NUM,
69: P_REPLN_Rec IN Csd_Repairs_Pub.REPLN_Rec_Type,
70: X_REPAIR_LINE_ID OUT NOCOPY NUMBER,
63: PROCEDURE Create_Repair_Order(
64: P_Api_Version_Number IN NUMBER,
65: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
66: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
67: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
68: p_REPAIR_LINE_ID IN NUMBER := Fnd_Api.G_MISS_NUM,
69: P_REPLN_Rec IN Csd_Repairs_Pub.REPLN_Rec_Type,
70: X_REPAIR_LINE_ID OUT NOCOPY NUMBER,
71: X_REPAIR_NUMBER OUT NOCOPY VARCHAR2,
64: P_Api_Version_Number IN NUMBER,
65: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
66: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
67: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
68: p_REPAIR_LINE_ID IN NUMBER := Fnd_Api.G_MISS_NUM,
69: P_REPLN_Rec IN Csd_Repairs_Pub.REPLN_Rec_Type,
70: X_REPAIR_LINE_ID OUT NOCOPY NUMBER,
71: X_REPAIR_NUMBER OUT NOCOPY VARCHAR2,
72: X_Return_Status OUT NOCOPY VARCHAR2,
139:
140: -- Standard Start of API savepoint
141: SAVEPOINT CREATE_REPAIR_ORDER_PVT;
142: -- Standard call to check for call compatibility.
143: IF NOT Fnd_Api.Compatible_API_Call
144: (l_api_version_number,
145: p_api_version_number,
146: l_api_name,
147: G_PKG_NAME)
145: p_api_version_number,
146: l_api_name,
147: G_PKG_NAME)
148: THEN
149: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
150: END IF;
151:
152: -- swai: bug 7657379
153: -- move msg initialization further up, since call to DEFAULT_RO_ATTRS_FROM_RULE
152: -- swai: bug 7657379
153: -- move msg initialization further up, since call to DEFAULT_RO_ATTRS_FROM_RULE
154: -- may add additional messages to the stack.
155: -- Initialize message list if p_init_msg_list is set to TRUE.
156: IF Fnd_Api.to_Boolean(p_init_msg_list)
157: THEN
158: Fnd_Msg_Pub.initialize;
159: END IF;
160: -- Initialize API return status to SUCCESS
157: THEN
158: Fnd_Msg_Pub.initialize;
159: END IF;
160: -- Initialize API return status to SUCCESS
161: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
162:
163: -- swai: bug 7657379
164: -- Default fields in repln_rec from defauling rules before
165: -- checking required params.
165: -- checking required params.
166: l_REPLN_Rec := p_REPLN_Rec;
167: Csd_Repairs_Util.DEFAULT_RO_ATTRS_FROM_RULE
168: ( p_api_version => 1.0,
169: p_commit => fnd_api.g_false,
170: p_init_msg_list => fnd_api.g_false,
171: px_repln_rec => l_REPLN_Rec,
172: x_return_status => x_return_status,
173: x_msg_count => x_msg_count,
166: l_REPLN_Rec := p_REPLN_Rec;
167: Csd_Repairs_Util.DEFAULT_RO_ATTRS_FROM_RULE
168: ( p_api_version => 1.0,
169: p_commit => fnd_api.g_false,
170: p_init_msg_list => fnd_api.g_false,
171: px_repln_rec => l_REPLN_Rec,
172: x_return_status => x_return_status,
173: x_msg_count => x_msg_count,
174: x_msg_data => x_msg_data);
241: Fnd_Message.Set_Name('CSD', 'CSD_CANNOT_GET_PROFILE_VALUE');
242: Fnd_Message.Set_Token('PROFILE', 'USER_ID', FALSE);
243: Fnd_Msg_Pub.ADD;
244: END IF;
245: RAISE Fnd_Api.G_EXC_ERROR;
246: END IF;
247:
248:
249: -- Validate Repair Order Group id
250:
251:
252: -- Generate REPAIR_NUMBER
253:
254: IF l_REPLN_Rec.repair_number = Fnd_Api.G_MISS_CHAR
255: OR l_REPLN_Rec.repair_number IS NULL THEN
256: OPEN C2;
257: FETCH C2 INTO l_REPAIR_NUMBER;
258: CLOSE C2;
280: x_dff_rec => x_dff_value_rec
281: );
282:
283: -- Check return status from the above procedure call
284: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
285: ROLLBACK TO CREATE_REPAIR_ORDER_PVT;
286: RETURN;
287: END IF;
288:
307: -- Repair Order creation failed.
308: -- Unable to get the draft status details.
309: Fnd_Message.SET_NAME('CSD','CSD_RO_NO_DRAFT_STATUS_DTLS');
310: Fnd_Msg_Pub.ADD;
311: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
312: END IF;
313:
314: ELSE
315: -- Get the start flow status from repair type
323: x_status_code => l_status
324: );
325: IF x_return_status <> 'S' THEN
326: -- Unexpected error. Raise an exception.
327: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
328: END IF;
329: END IF;
330:
331: -- For R12 Flex Flow, date closed is set to a value
338:
339:
340: -- Generate REPAIR_LINE_ID
341:
342: IF p_repair_line_id = Fnd_Api.G_MISS_NUM
343: OR p_repair_line_id IS NULL THEN
344: OPEN C1;
345: FETCH C1 INTO l_REPAIR_LINE_ID;
346: CLOSE C1;
370: -- rfieldma: 5355051
371: -- Default Resolve By date if there is a contract and
372: -- user want it to be derived
373: -- if resolve_by_date = null => don't default
374: -- if resolve_by_date = fnd_api.G_Miss_date => default
375: -- else, (resolve_by_date is passed in) => use the passed in value
376:
377: l_resolve_by_date := l_REPLN_Rec.resolve_by_date;
378:
375: -- else, (resolve_by_date is passed in) => use the passed in value
376:
377: l_resolve_by_date := l_REPLN_Rec.resolve_by_date;
378:
379: IF (l_resolve_by_date = FND_API.G_MISS_DATE) THEN
380: -- only default if there is a default contract
381: IF ( l_REPLN_Rec.contract_line_id IS NOT NULL
382: AND l_REPLN_Rec.contract_line_id <> Fnd_Api.G_MISS_NUM) THEN
383: -- get business process id
378:
379: IF (l_resolve_by_date = FND_API.G_MISS_DATE) THEN
380: -- only default if there is a default contract
381: IF ( l_REPLN_Rec.contract_line_id IS NOT NULL
382: AND l_REPLN_Rec.contract_line_id <> Fnd_Api.G_MISS_NUM) THEN
383: -- get business process id
384: OPEN c_get_bus_proc_id(l_REPLN_Rec.repair_type_id);
385: FETCH c_get_bus_proc_id
386: INTO l_business_process_id;
402: x_msg_count => x_msg_count,
403: x_msg_data => x_msg_data,
404: x_resolve_by_date => l_resolve_by_date);
405:
406: IF (x_return_status = Fnd_Api.G_RET_STS_ERROR) THEN
407: RAISE Fnd_Api.G_EXC_ERROR ;
408: ELSIF (x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR) THEN
409: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
410: END IF; -- end exception handling
403: x_msg_data => x_msg_data,
404: x_resolve_by_date => l_resolve_by_date);
405:
406: IF (x_return_status = Fnd_Api.G_RET_STS_ERROR) THEN
407: RAISE Fnd_Api.G_EXC_ERROR ;
408: ELSIF (x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR) THEN
409: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
410: END IF; -- end exception handling
411:
404: x_resolve_by_date => l_resolve_by_date);
405:
406: IF (x_return_status = Fnd_Api.G_RET_STS_ERROR) THEN
407: RAISE Fnd_Api.G_EXC_ERROR ;
408: ELSIF (x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR) THEN
409: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
410: END IF; -- end exception handling
411:
412: END IF; -- end contract line id is not null and not g_miss_num
405:
406: IF (x_return_status = Fnd_Api.G_RET_STS_ERROR) THEN
407: RAISE Fnd_Api.G_EXC_ERROR ;
408: ELSIF (x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR) THEN
409: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
410: END IF; -- end exception handling
411:
412: END IF; -- end contract line id is not null and not g_miss_num
413: END IF; -- end resolve by date = g_miss_date
514: --
515: -- End of API body
516: --
517: -- Standard check for p_commit
518: IF Fnd_Api.to_Boolean( p_commit )
519: THEN
520: COMMIT WORK;
521: END IF;
522: -- Standard call to get message count and if count is 1, get message info.
525: p_data => x_msg_data
526: );
527:
528: EXCEPTION
529: WHEN Fnd_Api.G_EXC_ERROR THEN
530: Jtf_Plsql_Api.HANDLE_EXCEPTIONS
531: ( P_API_NAME => L_API_NAME
532: ,P_PKG_NAME => G_PKG_NAME
533: ,P_EXCEPTION_LEVEL => Fnd_Msg_Pub.G_MSG_LVL_ERROR
535: ,X_MSG_COUNT => X_MSG_COUNT
536: ,X_MSG_DATA => X_MSG_DATA
537: ,X_RETURN_STATUS => X_RETURN_STATUS);
538:
539: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
540: ROLLBACK TO CREATE_REPAIR_ORDER_PVT;
541: Jtf_Plsql_Api.HANDLE_EXCEPTIONS
542: (P_API_NAME => L_API_NAME
543: ,P_PKG_NAME => G_PKG_NAME
560: END Create_Repair_Order;
561:
562: PROCEDURE Update_Repair_Order(
563: P_Api_Version_Number IN NUMBER,
564: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
565: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
566: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
567: p_REPAIR_LINE_ID IN NUMBER,
568: P_REPLN_Rec IN OUT NOCOPY Csd_Repairs_Pub.REPLN_Rec_Type,
561:
562: PROCEDURE Update_Repair_Order(
563: P_Api_Version_Number IN NUMBER,
564: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
565: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
566: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
567: p_REPAIR_LINE_ID IN NUMBER,
568: P_REPLN_Rec IN OUT NOCOPY Csd_Repairs_Pub.REPLN_Rec_Type,
569: X_Return_Status OUT NOCOPY VARCHAR2,
562: PROCEDURE Update_Repair_Order(
563: P_Api_Version_Number IN NUMBER,
564: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
565: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
566: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
567: p_REPAIR_LINE_ID IN NUMBER,
568: P_REPLN_Rec IN OUT NOCOPY Csd_Repairs_Pub.REPLN_Rec_Type,
569: X_Return_Status OUT NOCOPY VARCHAR2,
570: X_Msg_Count OUT NOCOPY NUMBER,
655:
656: -- Standard Start of API savepoint
657: SAVEPOINT UPDATE_REPAIR_ORDER_PVT;
658: -- Standard call to check for call compatibility.
659: IF NOT Fnd_Api.Compatible_API_Call
660: (l_api_version_number,
661: p_api_version_number,
662: l_api_name,
663: G_PKG_NAME)
661: p_api_version_number,
662: l_api_name,
663: G_PKG_NAME)
664: THEN
665: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
666: END IF;
667: -- Check for required parameters
668: Csd_Repairs_Util.check_reqd_param
669: (p_param_value => p_repair_line_id,
671: p_api_name => l_api_name
672: );
673:
674: -- Initialize message list if p_init_msg_list is set to TRUE.
675: IF Fnd_Api.to_Boolean(p_init_msg_list)
676: THEN
677: Fnd_Msg_Pub.initialize;
678: END IF;
679: -- Initialize API return status to SUCCESS
676: THEN
677: Fnd_Msg_Pub.initialize;
678: END IF;
679: -- Initialize API return status to SUCCESS
680: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
681:
682: -- Api body
683:
684: -- Validate Environment
690: Fnd_Message.Set_Name('CSD', 'CSD_CANNOT_GET_PROFILE_VALUE');
691: Fnd_Message.Set_Token('PROFILE', 'USER_ID', FALSE);
692: Fnd_Msg_Pub.ADD;
693: END IF;
694: RAISE Fnd_Api.G_EXC_ERROR;
695: END IF;
696:
697: OPEN C_Get_repairs(p_REPAIR_LINE_ID);
698: FETCH C_Get_repairs INTO
766: Fnd_Message.Set_Token ('INFO', 'Repairs', FALSE);
767: Fnd_Msg_Pub.ADD;
768: END IF;
769: CLOSE C_Get_repairs;
770: RAISE Fnd_Api.G_EXC_ERROR;
771: END IF;
772: CLOSE C_Get_repairs;
773:
774: /*
777: FND_MESSAGE.Set_Name('CSD', 'CSD_RO_CLOSED');
778: FND_MESSAGE.Set_Token ('REP_NUM', l_OLD_REPLN_Rec.repair_number);
779: FND_MSG_PUB.Add;
780: END IF;
781: raise FND_API.G_EXC_ERROR;
782: end if;
783: */
784:
785: -- Invoke validation procedures
800: x_dff_rec => x_dff_value_rec
801: );
802: --
803: -- Check return status from the above procedure call
804: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
805: ROLLBACK TO UPDATE_REPAIR_ORDER_PVT;
806: RETURN;
807: END IF;
808:
818: p_PROGRAM_ID => G_PROGRAM_ID,
819: p_PROGRAM_APPLICATION_ID => G_PROG_APPL_ID,
820: p_PROGRAM_UPDATE_DATE => SYSDATE,
821: p_CREATED_BY => G_USER_ID,
822: p_CREATION_DATE => Fnd_Api.G_MISS_DATE, -- swai ADS bug 3063922, changed from sysdate
823: p_LAST_UPDATED_BY => G_USER_ID,
824: p_LAST_UPDATE_DATE => SYSDATE,
825: p_LAST_UPDATE_LOGIN => G_LOGIN_ID,
826: p_REPAIR_NUMBER => p_REPLN_rec.REPAIR_NUMBER,
905: --
906: -- End of API body.
907: --
908: -- Standard check for p_commit
909: IF Fnd_Api.to_Boolean(p_commit) THEN
910: COMMIT WORK;
911: END IF;
912: -- Standard call to get message count and if count is 1, get message info.
913: Fnd_Msg_Pub.Count_And_Get
915: p_data => x_msg_data
916: );
917:
918: EXCEPTION
919: WHEN Fnd_Api.G_EXC_ERROR THEN
920: Jtf_Plsql_Api.HANDLE_EXCEPTIONS
921: (P_API_NAME => L_API_NAME
922: ,P_PKG_NAME => G_PKG_NAME
923: ,P_EXCEPTION_LEVEL => Fnd_Msg_Pub.G_MSG_LVL_ERROR
925: ,X_MSG_COUNT => X_MSG_COUNT
926: ,X_MSG_DATA => X_MSG_DATA
927: ,X_RETURN_STATUS => X_RETURN_STATUS);
928:
929: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
930: Jtf_Plsql_Api.HANDLE_EXCEPTIONS
931: (P_API_NAME => L_API_NAME
932: ,P_PKG_NAME => G_PKG_NAME
933: ,P_EXCEPTION_LEVEL => Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR
949: END Update_Repair_Order;
950:
951: PROCEDURE Delete_Repair_Order(
952: P_Api_Version_Number IN NUMBER,
953: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
954: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
955: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
956: p_REPAIR_LINE_ID IN NUMBER,
957: X_Return_Status OUT NOCOPY VARCHAR2,
950:
951: PROCEDURE Delete_Repair_Order(
952: P_Api_Version_Number IN NUMBER,
953: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
954: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
955: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
956: p_REPAIR_LINE_ID IN NUMBER,
957: X_Return_Status OUT NOCOPY VARCHAR2,
958: X_Msg_Count OUT NOCOPY NUMBER,
951: PROCEDURE Delete_Repair_Order(
952: P_Api_Version_Number IN NUMBER,
953: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
954: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
955: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
956: p_REPAIR_LINE_ID IN NUMBER,
957: X_Return_Status OUT NOCOPY VARCHAR2,
958: X_Msg_Count OUT NOCOPY NUMBER,
959: X_Msg_Data OUT NOCOPY VARCHAR2
967: --
968: -- Standard Start of API savepoint
969: SAVEPOINT DELETE_REPAIR_ORDER_PVT;
970: -- Standard call to check for call compatibility.
971: IF NOT Fnd_Api.Compatible_API_Call
972: (l_api_version_number,
973: p_api_version_number,
974: l_api_name,
975: G_PKG_NAME)
973: p_api_version_number,
974: l_api_name,
975: G_PKG_NAME)
976: THEN
977: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
978: END IF;
979: -- Initialize message list if p_init_msg_list is set to TRUE.
980: IF Fnd_Api.to_Boolean(p_init_msg_list) THEN
981: Fnd_Msg_Pub.initialize;
976: THEN
977: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
978: END IF;
979: -- Initialize message list if p_init_msg_list is set to TRUE.
980: IF Fnd_Api.to_Boolean(p_init_msg_list) THEN
981: Fnd_Msg_Pub.initialize;
982: END IF;
983: -- Initialize API return status to SUCCESS
984: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
980: IF Fnd_Api.to_Boolean(p_init_msg_list) THEN
981: Fnd_Msg_Pub.initialize;
982: END IF;
983: -- Initialize API return status to SUCCESS
984: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
985: --
986: -- Api body
987: --
988: -- Invoke table handler(CSD_REPAIRS_PKG.Delete_Row)
991:
992: -- End of API body
993:
994: -- Standard check for p_commit
995: IF Fnd_Api.to_Boolean(p_commit) THEN
996: COMMIT WORK;
997: END IF;
998: -- Standard call to get message count and if count is 1, get message info.
999: Fnd_Msg_Pub.Count_And_Get
1001: p_data => x_msg_data
1002: );
1003:
1004: EXCEPTION
1005: WHEN Fnd_Api.G_EXC_ERROR THEN
1006: Jtf_Plsql_Api.HANDLE_EXCEPTIONS
1007: (P_API_NAME => L_API_NAME
1008: ,P_PKG_NAME => G_PKG_NAME
1009: ,P_EXCEPTION_LEVEL => Fnd_Msg_Pub.G_MSG_LVL_ERROR
1011: ,X_MSG_COUNT => X_MSG_COUNT
1012: ,X_MSG_DATA => X_MSG_DATA
1013: ,X_RETURN_STATUS => X_RETURN_STATUS);
1014:
1015: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1016: Jtf_Plsql_Api.HANDLE_EXCEPTIONS
1017: (P_API_NAME => L_API_NAME
1018: ,P_PKG_NAME => G_PKG_NAME
1019: ,P_EXCEPTION_LEVEL => Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR
1054: l_valid VARCHAR2(1) := 'Y';
1055:
1056: BEGIN
1057:
1058: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1059:
1060: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
1061: RETURN;
1062: END IF;
1060: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
1061: RETURN;
1062: END IF;
1063:
1064: IF p_repair_line_id = Fnd_Api.G_MISS_NUM
1065: OR p_repair_line_id IS NULL THEN
1066: RETURN;
1067: END IF;
1068:
1073: END IF;
1074: CLOSE c1;
1075:
1076: IF l_valid = 'N' THEN
1077: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1078: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1079: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_REPLN_ID');
1080: Fnd_Msg_Pub.ADD;
1081: END IF;
1102: l_valid VARCHAR2(1) := 'Y';
1103:
1104: BEGIN
1105:
1106: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1107:
1108: IF p_validation_mode = Jtf_Plsql_Api.G_CREATE
1109: AND (p_repair_number = Fnd_Api.G_MISS_CHAR
1110: OR p_repair_number IS NULL) THEN
1105:
1106: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1107:
1108: IF p_validation_mode = Jtf_Plsql_Api.G_CREATE
1109: AND (p_repair_number = Fnd_Api.G_MISS_CHAR
1110: OR p_repair_number IS NULL) THEN
1111: RETURN;
1112: END IF;
1113:
1112: END IF;
1113:
1114: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
1115: IF p_repair_number IS NULL THEN
1116: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1117: Fnd_Message.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
1118: Fnd_Message.SET_TOKEN('API_NAME', 'Update_Repair_Order');
1119: Fnd_Message.SET_TOKEN('NULL_PARAM', 'REPAIR_NUMBER');
1120: Fnd_Msg_Pub.ADD;
1119: Fnd_Message.SET_TOKEN('NULL_PARAM', 'REPAIR_NUMBER');
1120: Fnd_Msg_Pub.ADD;
1121: RETURN;
1122: ELSIF p_repair_number = p_old_repair_number
1123: OR p_repair_number = Fnd_Api.G_MISS_CHAR THEN
1124: RETURN;
1125: END IF;
1126: END IF;
1127:
1132: END IF;
1133: CLOSE c1;
1134:
1135: IF l_valid = 'N' THEN
1136: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1137: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1138: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_REPLN_NUMBER');
1139: Fnd_Msg_Pub.ADD;
1140: END IF;
1161: l_valid VARCHAR2(1) := 'Y';
1162:
1163: BEGIN
1164:
1165: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1166:
1167: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
1168: IF p_incident_id IS NULL THEN
1169: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1165: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1166:
1167: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
1168: IF p_incident_id IS NULL THEN
1169: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1170: Fnd_Message.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
1171: Fnd_Message.SET_TOKEN('API_NAME', 'Update_Repair_Order');
1172: Fnd_Message.SET_TOKEN('NULL_PARAM', 'INCIDENT_ID');
1173: Fnd_Msg_Pub.ADD;
1172: Fnd_Message.SET_TOKEN('NULL_PARAM', 'INCIDENT_ID');
1173: Fnd_Msg_Pub.ADD;
1174: RETURN;
1175: ELSIF p_incident_id = p_old_incident_id
1176: OR p_incident_id = Fnd_Api.G_MISS_NUM THEN
1177: RETURN;
1178: END IF;
1179: END IF;
1180:
1185: END IF;
1186: CLOSE c1;
1187:
1188: IF l_valid = 'N' THEN
1189: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1190: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1191: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_INCIDENT_ID');
1192: Fnd_Msg_Pub.ADD;
1193: END IF;
1217: l_valid VARCHAR2(1) := 'Y';
1218:
1219: BEGIN
1220:
1221: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1222:
1223: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
1224: IF p_inventory_item_id IS NULL THEN
1225: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1221: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1222:
1223: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
1224: IF p_inventory_item_id IS NULL THEN
1225: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1226: Fnd_Message.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
1227: Fnd_Message.SET_TOKEN('API_NAME', 'Update_Repair_Order');
1228: Fnd_Message.SET_TOKEN('NULL_PARAM', 'INVENTORY_ITEM_ID');
1229: Fnd_Msg_Pub.ADD;
1228: Fnd_Message.SET_TOKEN('NULL_PARAM', 'INVENTORY_ITEM_ID');
1229: Fnd_Msg_Pub.ADD;
1230: RETURN;
1231: ELSIF p_inventory_item_id = p_old_inventory_item_id
1232: OR p_inventory_item_id = Fnd_Api.G_MISS_NUM THEN
1233: RETURN;
1234: END IF;
1235: END IF;
1236:
1241: END IF;
1242: CLOSE c1;
1243:
1244: IF l_valid = 'N' THEN
1245: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1246: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1247: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_INVENTORY_ITEM');
1248: Fnd_Msg_Pub.ADD;
1249: END IF;
1278: l_valid VARCHAR2(1) := 'Y';
1279:
1280: BEGIN
1281:
1282: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1283:
1284: IF (p_validation_mode = Jtf_Plsql_Api.G_CREATE)
1285: AND (p_customer_product_id = Fnd_Api.G_MISS_NUM
1286: OR p_customer_product_id IS NULL) THEN
1281:
1282: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1283:
1284: IF (p_validation_mode = Jtf_Plsql_Api.G_CREATE)
1285: AND (p_customer_product_id = Fnd_Api.G_MISS_NUM
1286: OR p_customer_product_id IS NULL) THEN
1287: RETURN;
1288: END IF;
1289:
1288: END IF;
1289:
1290: IF (p_validation_mode = Jtf_Plsql_Api.G_UPDATE)
1291: AND (p_customer_product_id = p_old_customer_product_id
1292: OR p_customer_product_id = Fnd_Api.G_MISS_NUM
1293: OR p_customer_product_id IS NULL) THEN
1294: RETURN;
1295: END IF;
1296:
1301: END IF;
1302: CLOSE c1;
1303:
1304: IF l_valid = 'N' THEN
1305: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1306: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1307: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_CUST_PROD');
1308: Fnd_Msg_Pub.ADD;
1309: END IF;
1342: l_valid VARCHAR2(1) := 'Y';
1343:
1344: BEGIN
1345:
1346: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1347:
1348: IF (p_validation_mode = Jtf_Plsql_Api.G_CREATE)
1349: AND (p_customer_product_id = Fnd_Api.G_MISS_NUM
1350: OR p_customer_product_id IS NULL) THEN
1345:
1346: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1347:
1348: IF (p_validation_mode = Jtf_Plsql_Api.G_CREATE)
1349: AND (p_customer_product_id = Fnd_Api.G_MISS_NUM
1350: OR p_customer_product_id IS NULL) THEN
1351: RETURN;
1352: END IF;
1353:
1352: END IF;
1353:
1354: IF (p_validation_mode = Jtf_Plsql_Api.G_UPDATE)
1355: AND (p_customer_product_id = p_old_customer_product_id
1356: OR p_customer_product_id = Fnd_Api.G_MISS_NUM
1357: OR p_customer_product_id IS NULL) THEN
1358: RETURN;
1359: END IF;
1360:
1370: END IF;
1371: CLOSE c1;
1372:
1373: IF l_valid = 'N' THEN
1374: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1375: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1376: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_CUST_PROD');
1377: Fnd_Msg_Pub.ADD;
1378: END IF;
1401: l_valid VARCHAR2(1) := 'Y';
1402:
1403: BEGIN
1404:
1405: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1406:
1407: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
1408: IF p_unit_of_measure IS NULL THEN
1409: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1405: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1406:
1407: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
1408: IF p_unit_of_measure IS NULL THEN
1409: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1410: Fnd_Message.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
1411: Fnd_Message.SET_TOKEN('API_NAME', 'Update_Repair_Order');
1412: Fnd_Message.SET_TOKEN('NULL_PARAM', 'UNIT_OF_MEASURE');
1413: Fnd_Msg_Pub.ADD;
1412: Fnd_Message.SET_TOKEN('NULL_PARAM', 'UNIT_OF_MEASURE');
1413: Fnd_Msg_Pub.ADD;
1414: RETURN;
1415: ELSIF p_unit_of_measure = p_unit_of_measure
1416: OR p_unit_of_measure = Fnd_Api.G_MISS_CHAR THEN
1417: RETURN;
1418: END IF;
1419: END IF;
1420:
1425: END IF;
1426: CLOSE c1;
1427:
1428: IF l_valid = 'N' THEN
1429: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1430: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1431: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_UOM');
1432: Fnd_Msg_Pub.ADD;
1433: END IF;
1456: l_valid VARCHAR2(1) := 'Y';
1457:
1458: BEGIN
1459:
1460: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1461:
1462: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
1463: IF p_repair_type_id IS NULL THEN
1464: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1460: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1461:
1462: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
1463: IF p_repair_type_id IS NULL THEN
1464: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1465: Fnd_Message.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
1466: Fnd_Message.SET_TOKEN('API_NAME', 'Update_Repair_Order');
1467: Fnd_Message.SET_TOKEN('NULL_PARAM', 'REPAIR_TYPE_ID');
1468: Fnd_Msg_Pub.ADD;
1467: Fnd_Message.SET_TOKEN('NULL_PARAM', 'REPAIR_TYPE_ID');
1468: Fnd_Msg_Pub.ADD;
1469: RETURN;
1470: ELSIF p_repair_type_id = p_old_repair_type_id
1471: OR p_repair_type_id = Fnd_Api.G_MISS_NUM THEN
1472: RETURN;
1473: END IF;
1474: END IF;
1475:
1480: END IF;
1481: CLOSE c1;
1482:
1483: IF l_valid = 'N' THEN
1484: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1485: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1486: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_REPAIR_TYPE');
1487: Fnd_Msg_Pub.ADD;
1488: END IF;
1532: l_resource_group NUMBER; -- swai: bug 7565999
1533:
1534: BEGIN
1535:
1536: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1537:
1538: -- swai: bug 7565999
1539: if(p_resource_group = Fnd_Api.G_MISS_NUM) THEN
1540: l_resource_group := NULL;
1535:
1536: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1537:
1538: -- swai: bug 7565999
1539: if(p_resource_group = Fnd_Api.G_MISS_NUM) THEN
1540: l_resource_group := NULL;
1541: else
1542: l_resource_group := p_resource_group;
1543: end if;
1543: end if;
1544: -- end swai: bug 7565999
1545:
1546: IF (p_validation_mode = Jtf_Plsql_Api.G_CREATE)
1547: AND (p_resource_id = Fnd_Api.G_MISS_NUM
1548: OR p_resource_id IS NULL) THEN
1549: RETURN;
1550: END IF;
1551:
1550: END IF;
1551:
1552: IF (p_validation_mode = Jtf_Plsql_Api.G_UPDATE)
1553: AND (p_resource_id = p_old_resource_id
1554: OR p_resource_id = Fnd_Api.G_MISS_NUM
1555: OR p_resource_id IS NULL) THEN
1556: RETURN;
1557: END IF;
1558:
1563: END IF;
1564: CLOSE c1;
1565:
1566: IF l_valid = 'N' THEN
1567: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1568: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1569: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_RESOURCE');
1570: Fnd_Msg_Pub.ADD;
1571: END IF;
1598: l_valid VARCHAR2(1) := 'Y';
1599:
1600: BEGIN
1601:
1602: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1603:
1604: IF (p_validation_mode = Jtf_Plsql_Api.G_CREATE)
1605: AND (p_resource_group = Fnd_Api.G_MISS_NUM
1606: OR p_resource_group IS NULL) THEN
1601:
1602: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1603:
1604: IF (p_validation_mode = Jtf_Plsql_Api.G_CREATE)
1605: AND (p_resource_group = Fnd_Api.G_MISS_NUM
1606: OR p_resource_group IS NULL) THEN
1607: RETURN;
1608: END IF;
1609:
1608: END IF;
1609:
1610: IF (p_validation_mode = Jtf_Plsql_Api.G_UPDATE)
1611: AND (p_resource_group = p_old_resource_group
1612: OR p_resource_group = Fnd_Api.G_MISS_NUM
1613: OR p_resource_group IS NULL) THEN
1614: RETURN;
1615: END IF;
1616:
1621: END IF;
1622: CLOSE c1;
1623:
1624: IF l_valid = 'N' THEN
1625: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1626: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1627: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_RS_GROUP');
1628: Fnd_Msg_Pub.ADD;
1629: END IF;
1640: IS
1641:
1642: BEGIN
1643:
1644: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1645:
1646: RETURN;
1647:
1648: END Validate_PROJECT_ID;
1656: IS
1657: --
1658: BEGIN
1659: --
1660: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1661: --
1662: RETURN;
1663: --
1664: END Validate_TASK_ID;
1672: IS
1673:
1674: BEGIN
1675:
1676: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1677:
1678: RETURN;
1679:
1680: END Validate_INSTANCE_ID;
1702: l_valid VARCHAR2(1) := 'Y';
1703:
1704: BEGIN
1705:
1706: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1707:
1708: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
1709: IF p_status IS NULL THEN
1710: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1706: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1707:
1708: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
1709: IF p_status IS NULL THEN
1710: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1711: Fnd_Message.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
1712: Fnd_Message.SET_TOKEN('API_NAME', 'Update_Repair_Order');
1713: Fnd_Message.SET_TOKEN('NULL_PARAM', 'STATUS');
1714: Fnd_Msg_Pub.ADD;
1713: Fnd_Message.SET_TOKEN('NULL_PARAM', 'STATUS');
1714: Fnd_Msg_Pub.ADD;
1715: RETURN;
1716: ELSIF p_status = p_old_status
1717: OR p_status = Fnd_Api.G_MISS_CHAR THEN
1718: RETURN;
1719: END IF;
1720: END IF;
1721:
1726: END IF;
1727: CLOSE c1;
1728:
1729: IF l_valid = 'N' THEN
1730: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1731: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1732: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_STATUS');
1733: Fnd_Msg_Pub.ADD;
1734: END IF;
1758: l_valid VARCHAR2(1) := 'Y';
1759:
1760: BEGIN
1761:
1762: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1763:
1764: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
1765: IF p_approval_required_flag IS NULL THEN
1766: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1762: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1763:
1764: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
1765: IF p_approval_required_flag IS NULL THEN
1766: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1767: Fnd_Message.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
1768: Fnd_Message.SET_TOKEN('API_NAME', 'Update_Repair_Order');
1769: Fnd_Message.SET_TOKEN('NULL_PARAM', 'APPROVAL_REQUIRED_FLAG');
1770: Fnd_Msg_Pub.ADD;
1769: Fnd_Message.SET_TOKEN('NULL_PARAM', 'APPROVAL_REQUIRED_FLAG');
1770: Fnd_Msg_Pub.ADD;
1771: RETURN;
1772: ELSIF p_approval_required_flag = p_old_approval_required_flag
1773: OR p_approval_required_flag = Fnd_Api.G_MISS_CHAR THEN
1774: RETURN;
1775: END IF;
1776: END IF;
1777:
1782: END IF;
1783: CLOSE c1;
1784:
1785: IF l_valid = 'N' THEN
1786: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1787: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1788: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_APRVL_REQD_FLG');
1789: Fnd_Msg_Pub.ADD;
1790: END IF;
1822: l_valid VARCHAR2(1) := 'Y';
1823:
1824: BEGIN
1825:
1826: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1827:
1828: IF (p_validation_mode = Jtf_Plsql_Api.G_CREATE)
1829: AND (p_approval_status = Fnd_Api.G_MISS_CHAR
1830: OR p_approval_status IS NULL) THEN
1825:
1826: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1827:
1828: IF (p_validation_mode = Jtf_Plsql_Api.G_CREATE)
1829: AND (p_approval_status = Fnd_Api.G_MISS_CHAR
1830: OR p_approval_status IS NULL) THEN
1831: RETURN;
1832: END IF;
1833:
1832: END IF;
1833:
1834: IF (p_validation_mode = Jtf_Plsql_Api.G_UPDATE)
1835: AND (p_approval_status = p_old_approval_status
1836: OR p_approval_status = Fnd_Api.G_MISS_CHAR
1837: OR p_approval_status IS NULL) THEN
1838: RETURN;
1839: END IF;
1840:
1845: END IF;
1846: CLOSE c1;
1847:
1848: IF l_valid = 'N' THEN
1849: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1850: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1851: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_APRVL_STATUS');
1852: Fnd_Msg_Pub.ADD;
1853: END IF;
1864: IS
1865:
1866: BEGIN
1867:
1868: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1869:
1870: RETURN;
1871:
1872: END Validate_SERIAL_NUMBER;
1884: l_valid VARCHAR2(1) := 'Y';
1885:
1886: BEGIN
1887:
1888: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1889:
1890: IF (p_validation_mode = Jtf_Plsql_Api.G_CREATE)
1891: AND (p_promise_date = Fnd_Api.G_MISS_DATE
1892: OR p_promise_date IS NULL) THEN
1887:
1888: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1889:
1890: IF (p_validation_mode = Jtf_Plsql_Api.G_CREATE)
1891: AND (p_promise_date = Fnd_Api.G_MISS_DATE
1892: OR p_promise_date IS NULL) THEN
1893: RETURN;
1894: END IF;
1895:
1894: END IF;
1895:
1896: IF (p_validation_mode = Jtf_Plsql_Api.G_UPDATE)
1897: AND (p_promise_date = p_old_promise_date
1898: OR p_promise_date = Fnd_Api.G_MISS_DATE
1899: OR p_promise_date IS NULL) THEN
1900: RETURN;
1901: END IF;
1902:
1904: l_valid := 'N';
1905: END IF;
1906:
1907: IF l_valid = 'N' THEN
1908: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1909: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1910: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_PROMISE_DATE');
1911: Fnd_Msg_Pub.ADD;
1912: END IF;
1927: l_valid VARCHAR2(1) := 'Y';
1928:
1929: BEGIN
1930:
1931: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1932:
1933: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
1934: IF p_quantity IS NULL THEN
1935: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1931: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1932:
1933: IF p_validation_mode = Jtf_Plsql_Api.G_UPDATE THEN
1934: IF p_quantity IS NULL THEN
1935: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1936: Fnd_Message.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
1937: Fnd_Message.SET_TOKEN('API_NAME', 'Update_Repair_Order');
1938: Fnd_Message.SET_TOKEN('NULL_PARAM', 'QUANTITY');
1939: Fnd_Msg_Pub.ADD;
1938: Fnd_Message.SET_TOKEN('NULL_PARAM', 'QUANTITY');
1939: Fnd_Msg_Pub.ADD;
1940: RETURN;
1941: ELSIF p_quantity = p_old_quantity
1942: OR p_quantity = Fnd_Api.G_MISS_NUM THEN
1943: RETURN;
1944: END IF;
1945: END IF;
1946:
1948: l_valid := 'N';
1949: END IF;
1950:
1951: IF l_valid = 'N' THEN
1952: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1953: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1954: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_QUANTITY');
1955: Fnd_Msg_Pub.ADD;
1956: END IF;
1972: l_valid VARCHAR2(1) := 'Y';
1973:
1974: BEGIN
1975:
1976: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1977: /*****************************************saupadhy
1978: Following procedure will always return success , after JDSU enhancements,
1979: user can submit quantities more then quantity received. i.e Quantity_in_WIP can
1980: can be greater then Quantity_Rcvd ****************************
1977: /*****************************************saupadhy
1978: Following procedure will always return success , after JDSU enhancements,
1979: user can submit quantities more then quantity received. i.e Quantity_in_WIP can
1980: can be greater then Quantity_Rcvd ****************************
1981: if p_quantity_in_wip = FND_API.G_MISS_NUM
1982: or p_quantity_in_wip is null then
1983: return;
1984: end if;
1985:
1987: if p_quantity < p_quantity_in_wip then
1988: l_valid := 'N';
1989: end if;
1990: elsif p_validation_mode = JTF_PLSQL_API.G_UPDATE then
1991: if p_quantity = FND_API.G_MISS_NUM
1992: or p_quantity is null then
1993: if p_old_quantity < p_quantity_in_wip then
1994: l_valid := 'N';
1995: end if;
2000: end if;
2001: end if;
2002:
2003: if l_valid = 'N' then
2004: x_return_status := FND_API.G_RET_STS_ERROR;
2005: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2006: FND_MESSAGE.Set_Name('CSD', 'CSD_INVALID_QTY_IN_WIP');
2007: FND_MSG_PUB.ADD;
2008: END IF;
2022: IS
2023:
2024: BEGIN
2025:
2026: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2027:
2028: RETURN;
2029:
2030: END Validate_QUANTITY_RCVD;
2039: IS
2040:
2041: BEGIN
2042:
2043: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2044:
2045: RETURN;
2046:
2047: END Validate_QUANTITY_SHIPPED;
2057:
2058:
2059: BEGIN
2060:
2061: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2062:
2063: -- Check if the current obj ver num from form and the obj ver num in db are different
2064: IF (p_OBJECT_VERSION_NUMBER <> p_OLD_OBJECT_VERSION_NUMBER) THEN
2065: l_valid := 'N';
2065: l_valid := 'N';
2066: END IF;
2067:
2068: IF l_valid = 'N' THEN
2069: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2070: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2071:
2072: -- travi this mesg need to be changed
2073: -- travi FND_MESSAGE.Set_Name('CSD', 'CSD_INVALID_OBJ_VER_NUM');
2101: l_valid VARCHAR2(1) := 'Y';
2102:
2103: BEGIN
2104:
2105: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2106:
2107: -- travi fix
2108: IF p_validation_mode = Jtf_Plsql_Api.G_CREATE THEN
2109: IF (p_ro_group_id IS NULL) THEN
2126: IF (g_debug > 0 ) THEN
2127: Csd_Gen_Utility_Pvt.ADD('Update_Repair_Order group_id p_validation_mode : '||p_validation_mode);
2128: END IF;
2129:
2130: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2131: Fnd_Message.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
2132: Fnd_Message.SET_TOKEN('API_NAME', 'Update_Repair_Order');
2133: Fnd_Message.SET_TOKEN('NULL_PARAM', 'RO_GROUP_ID');
2134: Fnd_Msg_Pub.ADD;
2133: Fnd_Message.SET_TOKEN('NULL_PARAM', 'RO_GROUP_ID');
2134: Fnd_Msg_Pub.ADD;
2135: RETURN;
2136: ELSIF p_ro_group_id = p_old_ro_group_id
2137: OR p_ro_group_id = Fnd_Api.G_MISS_NUM THEN
2138: IF (g_debug > 0 ) THEN
2139: Csd_Gen_Utility_Pvt.ADD('Update_Repair_Order group_id is not null or g_miss_num : Validate_RO_GROUP_ID');
2140: END IF;
2141:
2149:
2150: /* old code
2151: if p_validation_mode = JTF_PLSQL_API.G_UPDATE then
2152: if p_ro_group_id is null then
2153: x_return_status := FND_API.G_RET_STS_ERROR;
2154: FND_MESSAGE.SET_NAME('CSD', 'CSD_API_NULL_PARAM');
2155: FND_MESSAGE.SET_TOKEN('API_NAME', 'Update_Repair_Order');
2156: FND_MESSAGE.SET_TOKEN('NULL_PARAM', 'RO_GROUP_ID');
2157: FND_MSG_PUB.Add;
2156: FND_MESSAGE.SET_TOKEN('NULL_PARAM', 'RO_GROUP_ID');
2157: FND_MSG_PUB.Add;
2158: return;
2159: elsif p_ro_group_id = p_old_ro_group_id
2160: or p_ro_group_id = FND_API.G_MISS_NUM then
2161: return;
2162: end if;
2163: end if;
2164: */
2163: end if;
2164: */
2165:
2166: IF (p_ro_group_id IS NOT NULL) OR
2167: (p_ro_group_id = Fnd_Api.G_MISS_NUM) THEN
2168: IF (g_debug > 0 ) THEN
2169: Csd_Gen_Utility_Pvt.ADD('Create / update Repair_Order group_id is not null or g_miss_num : Validate_RO_GROUP_ID');
2170: END IF;
2171:
2180: END IF;
2181: CLOSE c1;
2182:
2183: IF l_valid = 'N' THEN
2184: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2185: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2186: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_RO_GROUP_ID');
2187: Fnd_Msg_Pub.ADD;
2188: END IF;
2211: l_valid VARCHAR2(1) := 'Y';
2212:
2213: BEGIN
2214:
2215: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2216:
2217: IF (p_validation_mode = Jtf_Plsql_Api.G_CREATE)
2218: AND (p_ORIGINAL_SOURCE_REFERENCE = Fnd_Api.G_MISS_CHAR
2219: OR p_ORIGINAL_SOURCE_REFERENCE IS NULL) THEN
2214:
2215: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2216:
2217: IF (p_validation_mode = Jtf_Plsql_Api.G_CREATE)
2218: AND (p_ORIGINAL_SOURCE_REFERENCE = Fnd_Api.G_MISS_CHAR
2219: OR p_ORIGINAL_SOURCE_REFERENCE IS NULL) THEN
2220: RETURN;
2221: END IF;
2222:
2227: END IF;
2228: CLOSE c1;
2229:
2230: IF l_valid = 'N' THEN
2231: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2232: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2233: Fnd_Message.Set_Name('CSD', 'CSD_INVALID_SOURCE');
2234: Fnd_Message.SET_TOKEN('ORDER_LINE_ID', p_ORIGINAL_SOURCE_LINE_ID);
2235: Fnd_Message.SET_TOKEN('ORDER_HEADER_ID', p_ORIGINAL_SOURCE_HEADER_ID);
2246: --
2247: PROCEDURE Validate_Repairs
2248: (
2249: P_Api_Version_Number IN NUMBER,
2250: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2251: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2252: P_Validation_mode IN VARCHAR2,
2253: p_repair_line_id IN NUMBER := Fnd_Api.G_MISS_NUM,
2254: P_REPLN_Rec IN Csd_Repairs_Pub.REPLN_Rec_Type,
2247: PROCEDURE Validate_Repairs
2248: (
2249: P_Api_Version_Number IN NUMBER,
2250: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2251: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2252: P_Validation_mode IN VARCHAR2,
2253: p_repair_line_id IN NUMBER := Fnd_Api.G_MISS_NUM,
2254: P_REPLN_Rec IN Csd_Repairs_Pub.REPLN_Rec_Type,
2255: P_OLD_REPLN_Rec IN Csd_Repairs_Pub.REPLN_Rec_Type := Csd_Repairs_Pub.G_MISS_REPLN_Rec,
2249: P_Api_Version_Number IN NUMBER,
2250: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2251: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2252: P_Validation_mode IN VARCHAR2,
2253: p_repair_line_id IN NUMBER := Fnd_Api.G_MISS_NUM,
2254: P_REPLN_Rec IN Csd_Repairs_Pub.REPLN_Rec_Type,
2255: P_OLD_REPLN_Rec IN Csd_Repairs_Pub.REPLN_Rec_Type := Csd_Repairs_Pub.G_MISS_REPLN_Rec,
2256: x_return_status OUT NOCOPY VARCHAR2,
2257: x_msg_count OUT NOCOPY NUMBER,
2306:
2307: -- Standard Start of API savepoint
2308: SAVEPOINT VALIDATE_REPAIRS_PVT;
2309: -- Standard call to check for call compatibility.
2310: IF NOT Fnd_Api.Compatible_API_Call
2311: (l_api_version_number,
2312: p_api_version_number,
2313: l_api_name,
2314: G_PKG_NAME)
2312: p_api_version_number,
2313: l_api_name,
2314: G_PKG_NAME)
2315: THEN
2316: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2317: END IF;
2318: -- Initialize message list if p_init_msg_list is set to TRUE.
2319: IF Fnd_Api.to_Boolean(p_init_msg_list)
2320: THEN
2315: THEN
2316: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2317: END IF;
2318: -- Initialize message list if p_init_msg_list is set to TRUE.
2319: IF Fnd_Api.to_Boolean(p_init_msg_list)
2320: THEN
2321: Fnd_Msg_Pub.initialize;
2322: END IF;
2323: -- Initialize API return status to SUCCESS
2320: THEN
2321: Fnd_Msg_Pub.initialize;
2322: END IF;
2323: -- Initialize API return status to SUCCESS
2324: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2325: --
2326: -- API Body
2327: --
2328:
2344: p_validation_mode => p_validation_mode,
2345: x_return_status => x_return_status
2346: );
2347: -- Check return status from the above procedure call
2348: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2349: RAISE Fnd_Api.G_EXC_ERROR;
2350: END IF;
2351:
2352: Validate_REPAIR_NUMBER
2345: x_return_status => x_return_status
2346: );
2347: -- Check return status from the above procedure call
2348: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2349: RAISE Fnd_Api.G_EXC_ERROR;
2350: END IF;
2351:
2352: Validate_REPAIR_NUMBER
2353: (
2356: p_validation_mode => p_validation_mode,
2357: x_return_status => x_return_status
2358: );
2359: -- Check return status from the above procedure call
2360: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2361: RAISE Fnd_Api.G_EXC_ERROR;
2362: END IF;
2363:
2364: Validate_INCIDENT_ID
2357: x_return_status => x_return_status
2358: );
2359: -- Check return status from the above procedure call
2360: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2361: RAISE Fnd_Api.G_EXC_ERROR;
2362: END IF;
2363:
2364: Validate_INCIDENT_ID
2365: (
2368: p_validation_mode => p_validation_mode,
2369: x_return_status => x_return_status
2370: );
2371: -- Check return status from the above procedure call
2372: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2373: RAISE Fnd_Api.G_EXC_ERROR;
2374: END IF;
2375:
2376: Validate_INVENTORY_ITEM_ID
2369: x_return_status => x_return_status
2370: );
2371: -- Check return status from the above procedure call
2372: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2373: RAISE Fnd_Api.G_EXC_ERROR;
2374: END IF;
2375:
2376: Validate_INVENTORY_ITEM_ID
2377: (
2380: p_validation_mode => p_validation_mode,
2381: x_return_status => x_return_status
2382: );
2383: -- Check return status from the above procedure call
2384: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2385: RAISE Fnd_Api.G_EXC_ERROR;
2386: END IF;
2387:
2388: Validate_UNIT_OF_MEASURE
2381: x_return_status => x_return_status
2382: );
2383: -- Check return status from the above procedure call
2384: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2385: RAISE Fnd_Api.G_EXC_ERROR;
2386: END IF;
2387:
2388: Validate_UNIT_OF_MEASURE
2389: (
2392: p_validation_mode => p_validation_mode,
2393: x_return_status => x_return_status
2394: );
2395: -- Check return status from the above procedure call
2396: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2397: RAISE Fnd_Api.G_EXC_ERROR;
2398: END IF;
2399:
2400: Validate_REPAIR_TYPE_ID
2393: x_return_status => x_return_status
2394: );
2395: -- Check return status from the above procedure call
2396: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2397: RAISE Fnd_Api.G_EXC_ERROR;
2398: END IF;
2399:
2400: Validate_REPAIR_TYPE_ID
2401: (
2418: l_Refurbished_repair_Type_Flag := 'N' ;
2419: END;
2420:
2421: -- Check return status from the above procedure call
2422: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2423: RAISE Fnd_Api.G_EXC_ERROR;
2424: END IF;
2425:
2426: Validate_APPROVAL_STATUS
2419: END;
2420:
2421: -- Check return status from the above procedure call
2422: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2423: RAISE Fnd_Api.G_EXC_ERROR;
2424: END IF;
2425:
2426: Validate_APPROVAL_STATUS
2427: (
2430: p_validation_mode => p_validation_mode,
2431: x_return_status => x_return_status
2432: );
2433: -- Check return status from the above procedure call
2434: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2435: RAISE Fnd_Api.G_EXC_ERROR;
2436: END IF;
2437:
2438: /* Commented for R12 Flex Flow
2431: x_return_status => x_return_status
2432: );
2433: -- Check return status from the above procedure call
2434: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2435: RAISE Fnd_Api.G_EXC_ERROR;
2436: END IF;
2437:
2438: /* Commented for R12 Flex Flow
2439: -- No validation for Status required.
2444: p_validation_mode => p_validation_mode,
2445: x_return_status => x_return_status
2446: );
2447: -- Check return status from the above procedure call
2448: IF not (x_return_status = FND_API.G_RET_STS_SUCCESS) then
2449: RAISE FND_API.G_EXC_ERROR;
2450: END IF;
2451: */
2452:
2445: x_return_status => x_return_status
2446: );
2447: -- Check return status from the above procedure call
2448: IF not (x_return_status = FND_API.G_RET_STS_SUCCESS) then
2449: RAISE FND_API.G_EXC_ERROR;
2450: END IF;
2451: */
2452:
2453: Validate_QUANTITY
2457: p_validation_mode => p_validation_mode,
2458: x_return_status => x_return_status
2459: );
2460: -- Check return status from the above procedure call
2461: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2462: RAISE Fnd_Api.G_EXC_ERROR;
2463: END IF;
2464:
2465: -- travi new code to validate the object version number
2458: x_return_status => x_return_status
2459: );
2460: -- Check return status from the above procedure call
2461: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2462: RAISE Fnd_Api.G_EXC_ERROR;
2463: END IF;
2464:
2465: -- travi new code to validate the object version number
2466: Validate_OBJECT_VERSION_NUMBER
2470: x_return_status => x_return_status
2471: );
2472:
2473: -- Check return status from the above procedure call
2474: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2475: RAISE Fnd_Api.G_EXC_ERROR;
2476: END IF;
2477:
2478: IF (p_validation_level >= Fnd_Api.G_VALID_LEVEL_FULL) THEN
2471: );
2472:
2473: -- Check return status from the above procedure call
2474: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2475: RAISE Fnd_Api.G_EXC_ERROR;
2476: END IF;
2477:
2478: IF (p_validation_level >= Fnd_Api.G_VALID_LEVEL_FULL) THEN
2479:
2474: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2475: RAISE Fnd_Api.G_EXC_ERROR;
2476: END IF;
2477:
2478: IF (p_validation_level >= Fnd_Api.G_VALID_LEVEL_FULL) THEN
2479:
2480:
2481: -- Do following validation only for non refurbished repair orders
2482: -- Validation for customer_product_id should not be done for
2504:
2505: END IF;
2506:
2507: -- Check return status from the above procedure call
2508: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2509: RAISE Fnd_Api.G_EXC_ERROR;
2510: END IF;
2511:
2512: Validate_SOURCE
2505: END IF;
2506:
2507: -- Check return status from the above procedure call
2508: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2509: RAISE Fnd_Api.G_EXC_ERROR;
2510: END IF;
2511:
2512: Validate_SOURCE
2513: (
2517: p_validation_mode => Jtf_Plsql_Api.G_CREATE,
2518: x_return_status => x_return_status);
2519:
2520: -- Check return status from the above procedure call
2521: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2522: RAISE Fnd_Api.G_EXC_ERROR;
2523: END IF;
2524:
2525: --Vijay 10/28/2004 Begin
2518: x_return_status => x_return_status);
2519:
2520: -- Check return status from the above procedure call
2521: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2522: RAISE Fnd_Api.G_EXC_ERROR;
2523: END IF;
2524:
2525: --Vijay 10/28/2004 Begin
2526:
2531: p_validation_mode => p_validation_mode,
2532: x_return_status => x_return_status
2533: );
2534: -- Check return status from the above procedure call
2535: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2536: RAISE Fnd_Api.G_EXC_ERROR;
2537: END IF;
2538: --Vijay 10/28/2004 End
2539:
2532: x_return_status => x_return_status
2533: );
2534: -- Check return status from the above procedure call
2535: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2536: RAISE Fnd_Api.G_EXC_ERROR;
2537: END IF;
2538: --Vijay 10/28/2004 End
2539:
2540: Validate_RESOURCE_ID
2545: p_validation_mode => p_validation_mode,
2546: x_return_status => x_return_status
2547: );
2548: -- Check return status from the above procedure call
2549: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2550: RAISE Fnd_Api.G_EXC_ERROR;
2551: END IF;
2552:
2553: Validate_APPROVAL_REQD_FLAG
2546: x_return_status => x_return_status
2547: );
2548: -- Check return status from the above procedure call
2549: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2550: RAISE Fnd_Api.G_EXC_ERROR;
2551: END IF;
2552:
2553: Validate_APPROVAL_REQD_FLAG
2554: (
2557: p_validation_mode => p_validation_mode,
2558: x_return_status => x_return_status
2559: );
2560: -- Check return status from the above procedure call
2561: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2562: RAISE Fnd_Api.G_EXC_ERROR;
2563: END IF;
2564:
2565:
2558: x_return_status => x_return_status
2559: );
2560: -- Check return status from the above procedure call
2561: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2562: RAISE Fnd_Api.G_EXC_ERROR;
2563: END IF;
2564:
2565:
2566: Validate_PROMISE_DATE
2570: p_validation_mode => p_validation_mode,
2571: x_return_status => x_return_status
2572: );
2573: -- Check return status from the above procedure call
2574: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2575: RAISE Fnd_Api.G_EXC_ERROR;
2576: END IF;
2577:
2578: Validate_QUANTITY_IN_WIP
2571: x_return_status => x_return_status
2572: );
2573: -- Check return status from the above procedure call
2574: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2575: RAISE Fnd_Api.G_EXC_ERROR;
2576: END IF;
2577:
2578: Validate_QUANTITY_IN_WIP
2579: (
2584: x_return_status => x_return_status
2585: );
2586:
2587: -- Check return status from the above procedure call
2588: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2589: RAISE Fnd_Api.G_EXC_ERROR;
2590: END IF;
2591:
2592: -- bugfix 3390579: p_repln_rec does not contain all the values. To validate
2585: );
2586:
2587: -- Check return status from the above procedure call
2588: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
2589: RAISE Fnd_Api.G_EXC_ERROR;
2590: END IF;
2591:
2592: -- bugfix 3390579: p_repln_rec does not contain all the values. To validate
2593: -- DFF, we need proper values to be populated. Here, we will populate the
2593: -- DFF, we need proper values to be populated. Here, we will populate the
2594: -- appropriate values from p_old_repln_rec record structure so that
2595: -- validation happens correctly.
2596:
2597: IF (p_REPLN_Rec.attribute_category IS NULL) OR (p_REPLN_Rec.attribute_category = Fnd_Api.G_MISS_CHAR) THEN
2598: IF NVL(p_old_repln_rec.attribute_category,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2599: l_attribute_category := p_old_repln_rec.attribute_category;
2600: END IF;
2601: ELSE
2594: -- appropriate values from p_old_repln_rec record structure so that
2595: -- validation happens correctly.
2596:
2597: IF (p_REPLN_Rec.attribute_category IS NULL) OR (p_REPLN_Rec.attribute_category = Fnd_Api.G_MISS_CHAR) THEN
2598: IF NVL(p_old_repln_rec.attribute_category,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2599: l_attribute_category := p_old_repln_rec.attribute_category;
2600: END IF;
2601: ELSE
2602: l_attribute_category := p_REPLN_Rec.attribute_category;
2601: ELSE
2602: l_attribute_category := p_REPLN_Rec.attribute_category;
2603: END IF;
2604:
2605: IF (p_REPLN_Rec.attribute1 IS NULL) OR (p_REPLN_Rec.attribute1 = Fnd_Api.G_MISS_CHAR) THEN
2606: IF NVL(p_old_repln_rec.attribute1,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2607: l_attribute1 := p_old_repln_rec.attribute1;
2608: END IF;
2609: ELSE
2602: l_attribute_category := p_REPLN_Rec.attribute_category;
2603: END IF;
2604:
2605: IF (p_REPLN_Rec.attribute1 IS NULL) OR (p_REPLN_Rec.attribute1 = Fnd_Api.G_MISS_CHAR) THEN
2606: IF NVL(p_old_repln_rec.attribute1,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2607: l_attribute1 := p_old_repln_rec.attribute1;
2608: END IF;
2609: ELSE
2610: l_attribute1 := p_REPLN_Rec.attribute1;
2609: ELSE
2610: l_attribute1 := p_REPLN_Rec.attribute1;
2611: END IF;
2612:
2613: IF (p_REPLN_Rec.attribute2 IS NULL) OR (p_REPLN_Rec.attribute2 = Fnd_Api.G_MISS_CHAR) THEN
2614: IF NVL(p_old_repln_rec.attribute2,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2615: l_attribute2 := p_old_repln_rec.attribute2;
2616: END IF;
2617: ELSE
2610: l_attribute1 := p_REPLN_Rec.attribute1;
2611: END IF;
2612:
2613: IF (p_REPLN_Rec.attribute2 IS NULL) OR (p_REPLN_Rec.attribute2 = Fnd_Api.G_MISS_CHAR) THEN
2614: IF NVL(p_old_repln_rec.attribute2,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2615: l_attribute2 := p_old_repln_rec.attribute2;
2616: END IF;
2617: ELSE
2618: l_attribute2 := p_REPLN_Rec.attribute2;
2617: ELSE
2618: l_attribute2 := p_REPLN_Rec.attribute2;
2619: END IF;
2620:
2621: IF (p_REPLN_Rec.attribute3 IS NULL) OR (p_REPLN_Rec.attribute3 = Fnd_Api.G_MISS_CHAR) THEN
2622: IF NVL(p_old_repln_rec.attribute3,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2623: l_attribute3 := p_old_repln_rec.attribute3;
2624: END IF;
2625: ELSE
2618: l_attribute2 := p_REPLN_Rec.attribute2;
2619: END IF;
2620:
2621: IF (p_REPLN_Rec.attribute3 IS NULL) OR (p_REPLN_Rec.attribute3 = Fnd_Api.G_MISS_CHAR) THEN
2622: IF NVL(p_old_repln_rec.attribute3,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2623: l_attribute3 := p_old_repln_rec.attribute3;
2624: END IF;
2625: ELSE
2626: l_attribute3 := p_REPLN_Rec.attribute3;
2625: ELSE
2626: l_attribute3 := p_REPLN_Rec.attribute3;
2627: END IF;
2628:
2629: IF (p_REPLN_Rec.attribute4 IS NULL) OR (p_REPLN_Rec.attribute4 = Fnd_Api.G_MISS_CHAR) THEN
2630: IF NVL(p_old_repln_rec.attribute4,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2631: l_attribute4 := p_old_repln_rec.attribute4;
2632: END IF;
2633: ELSE
2626: l_attribute3 := p_REPLN_Rec.attribute3;
2627: END IF;
2628:
2629: IF (p_REPLN_Rec.attribute4 IS NULL) OR (p_REPLN_Rec.attribute4 = Fnd_Api.G_MISS_CHAR) THEN
2630: IF NVL(p_old_repln_rec.attribute4,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2631: l_attribute4 := p_old_repln_rec.attribute4;
2632: END IF;
2633: ELSE
2634: l_attribute4 := p_REPLN_Rec.attribute4;
2633: ELSE
2634: l_attribute4 := p_REPLN_Rec.attribute4;
2635: END IF;
2636:
2637: IF (p_REPLN_Rec.attribute5 IS NULL) OR (p_REPLN_Rec.attribute5 = Fnd_Api.G_MISS_CHAR) THEN
2638: IF NVL(p_old_repln_rec.attribute5,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2639: l_attribute5 := p_old_repln_rec.attribute5;
2640: END IF;
2641: ELSE
2634: l_attribute4 := p_REPLN_Rec.attribute4;
2635: END IF;
2636:
2637: IF (p_REPLN_Rec.attribute5 IS NULL) OR (p_REPLN_Rec.attribute5 = Fnd_Api.G_MISS_CHAR) THEN
2638: IF NVL(p_old_repln_rec.attribute5,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2639: l_attribute5 := p_old_repln_rec.attribute5;
2640: END IF;
2641: ELSE
2642: l_attribute5 := p_REPLN_Rec.attribute5;
2641: ELSE
2642: l_attribute5 := p_REPLN_Rec.attribute5;
2643: END IF;
2644:
2645: IF (p_REPLN_Rec.attribute6 IS NULL) OR (p_REPLN_Rec.attribute6 = Fnd_Api.G_MISS_CHAR) THEN
2646: IF NVL(p_old_repln_rec.attribute6,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2647: l_attribute6 := p_old_repln_rec.attribute6;
2648: END IF;
2649: ELSE
2642: l_attribute5 := p_REPLN_Rec.attribute5;
2643: END IF;
2644:
2645: IF (p_REPLN_Rec.attribute6 IS NULL) OR (p_REPLN_Rec.attribute6 = Fnd_Api.G_MISS_CHAR) THEN
2646: IF NVL(p_old_repln_rec.attribute6,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2647: l_attribute6 := p_old_repln_rec.attribute6;
2648: END IF;
2649: ELSE
2650: l_attribute6 := p_REPLN_Rec.attribute6;
2649: ELSE
2650: l_attribute6 := p_REPLN_Rec.attribute6;
2651: END IF;
2652:
2653: IF (p_REPLN_Rec.attribute7 IS NULL) OR (p_REPLN_Rec.attribute7 = Fnd_Api.G_MISS_CHAR) THEN
2654: IF NVL(p_old_repln_rec.attribute7,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2655: l_attribute7 := p_old_repln_rec.attribute7;
2656: END IF;
2657: ELSE
2650: l_attribute6 := p_REPLN_Rec.attribute6;
2651: END IF;
2652:
2653: IF (p_REPLN_Rec.attribute7 IS NULL) OR (p_REPLN_Rec.attribute7 = Fnd_Api.G_MISS_CHAR) THEN
2654: IF NVL(p_old_repln_rec.attribute7,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2655: l_attribute7 := p_old_repln_rec.attribute7;
2656: END IF;
2657: ELSE
2658: l_attribute7 := p_REPLN_Rec.attribute7;
2657: ELSE
2658: l_attribute7 := p_REPLN_Rec.attribute7;
2659: END IF;
2660:
2661: IF (p_REPLN_Rec.attribute8 IS NULL) OR (p_REPLN_Rec.attribute8 = Fnd_Api.G_MISS_CHAR) THEN
2662: IF NVL(p_old_repln_rec.attribute8,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2663: l_attribute8 := p_old_repln_rec.attribute8;
2664: END IF;
2665: ELSE
2658: l_attribute7 := p_REPLN_Rec.attribute7;
2659: END IF;
2660:
2661: IF (p_REPLN_Rec.attribute8 IS NULL) OR (p_REPLN_Rec.attribute8 = Fnd_Api.G_MISS_CHAR) THEN
2662: IF NVL(p_old_repln_rec.attribute8,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2663: l_attribute8 := p_old_repln_rec.attribute8;
2664: END IF;
2665: ELSE
2666: l_attribute8 := p_REPLN_Rec.attribute8;
2665: ELSE
2666: l_attribute8 := p_REPLN_Rec.attribute8;
2667: END IF;
2668:
2669: IF (p_REPLN_Rec.attribute9 IS NULL) OR (p_REPLN_Rec.attribute9 = Fnd_Api.G_MISS_CHAR) THEN
2670: IF NVL(p_old_repln_rec.attribute9,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2671: l_attribute9 := p_old_repln_rec.attribute9;
2672: END IF;
2673: ELSE
2666: l_attribute8 := p_REPLN_Rec.attribute8;
2667: END IF;
2668:
2669: IF (p_REPLN_Rec.attribute9 IS NULL) OR (p_REPLN_Rec.attribute9 = Fnd_Api.G_MISS_CHAR) THEN
2670: IF NVL(p_old_repln_rec.attribute9,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2671: l_attribute9 := p_old_repln_rec.attribute9;
2672: END IF;
2673: ELSE
2674: l_attribute9 := p_REPLN_Rec.attribute9;
2673: ELSE
2674: l_attribute9 := p_REPLN_Rec.attribute9;
2675: END IF;
2676:
2677: IF (p_REPLN_Rec.attribute10 IS NULL) OR (p_REPLN_Rec.attribute10 = Fnd_Api.G_MISS_CHAR) THEN
2678: IF NVL(p_old_repln_rec.attribute10,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2679: l_attribute10 := p_old_repln_rec.attribute10;
2680: END IF;
2681: ELSE
2674: l_attribute9 := p_REPLN_Rec.attribute9;
2675: END IF;
2676:
2677: IF (p_REPLN_Rec.attribute10 IS NULL) OR (p_REPLN_Rec.attribute10 = Fnd_Api.G_MISS_CHAR) THEN
2678: IF NVL(p_old_repln_rec.attribute10,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2679: l_attribute10 := p_old_repln_rec.attribute10;
2680: END IF;
2681: ELSE
2682: l_attribute10 := p_REPLN_Rec.attribute10;
2681: ELSE
2682: l_attribute10 := p_REPLN_Rec.attribute10;
2683: END IF;
2684:
2685: IF (p_REPLN_Rec.attribute11 IS NULL) OR (p_REPLN_Rec.attribute11 = Fnd_Api.G_MISS_CHAR) THEN
2686: IF NVL(p_old_repln_rec.attribute11,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2687: l_attribute11 := p_old_repln_rec.attribute11;
2688: END IF;
2689: ELSE
2682: l_attribute10 := p_REPLN_Rec.attribute10;
2683: END IF;
2684:
2685: IF (p_REPLN_Rec.attribute11 IS NULL) OR (p_REPLN_Rec.attribute11 = Fnd_Api.G_MISS_CHAR) THEN
2686: IF NVL(p_old_repln_rec.attribute11,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2687: l_attribute11 := p_old_repln_rec.attribute11;
2688: END IF;
2689: ELSE
2690: l_attribute11 := p_REPLN_Rec.attribute11;
2689: ELSE
2690: l_attribute11 := p_REPLN_Rec.attribute11;
2691: END IF;
2692:
2693: IF (p_REPLN_Rec.attribute12 IS NULL) OR (p_REPLN_Rec.attribute12 = Fnd_Api.G_MISS_CHAR) THEN
2694: IF NVL(p_old_repln_rec.attribute12,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2695: l_attribute12 := p_old_repln_rec.attribute12;
2696: END IF;
2697: ELSE
2690: l_attribute11 := p_REPLN_Rec.attribute11;
2691: END IF;
2692:
2693: IF (p_REPLN_Rec.attribute12 IS NULL) OR (p_REPLN_Rec.attribute12 = Fnd_Api.G_MISS_CHAR) THEN
2694: IF NVL(p_old_repln_rec.attribute12,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2695: l_attribute12 := p_old_repln_rec.attribute12;
2696: END IF;
2697: ELSE
2698: l_attribute12 := p_REPLN_Rec.attribute12;
2697: ELSE
2698: l_attribute12 := p_REPLN_Rec.attribute12;
2699: END IF;
2700:
2701: IF (p_REPLN_Rec.attribute13 IS NULL) OR (p_REPLN_Rec.attribute13 = Fnd_Api.G_MISS_CHAR) THEN
2702: IF NVL(p_old_repln_rec.attribute13,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2703: l_attribute13 := p_old_repln_rec.attribute13;
2704: END IF;
2705: ELSE
2698: l_attribute12 := p_REPLN_Rec.attribute12;
2699: END IF;
2700:
2701: IF (p_REPLN_Rec.attribute13 IS NULL) OR (p_REPLN_Rec.attribute13 = Fnd_Api.G_MISS_CHAR) THEN
2702: IF NVL(p_old_repln_rec.attribute13,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2703: l_attribute13 := p_old_repln_rec.attribute13;
2704: END IF;
2705: ELSE
2706: l_attribute13 := p_REPLN_Rec.attribute13;
2705: ELSE
2706: l_attribute13 := p_REPLN_Rec.attribute13;
2707: END IF;
2708:
2709: IF (p_REPLN_Rec.attribute14 IS NULL) OR (p_REPLN_Rec.attribute14 = Fnd_Api.G_MISS_CHAR) THEN
2710: IF NVL(p_old_repln_rec.attribute14,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2711: l_attribute14 := p_old_repln_rec.attribute14;
2712: END IF;
2713: ELSE
2706: l_attribute13 := p_REPLN_Rec.attribute13;
2707: END IF;
2708:
2709: IF (p_REPLN_Rec.attribute14 IS NULL) OR (p_REPLN_Rec.attribute14 = Fnd_Api.G_MISS_CHAR) THEN
2710: IF NVL(p_old_repln_rec.attribute14,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2711: l_attribute14 := p_old_repln_rec.attribute14;
2712: END IF;
2713: ELSE
2714: l_attribute14 := p_REPLN_Rec.attribute14;
2713: ELSE
2714: l_attribute14 := p_REPLN_Rec.attribute14;
2715: END IF;
2716:
2717: IF (p_REPLN_Rec.attribute15 IS NULL) OR (p_REPLN_Rec.attribute15 = Fnd_Api.G_MISS_CHAR) THEN
2718: IF NVL(p_old_repln_rec.attribute15,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2719: l_attribute15 := p_old_repln_rec.attribute15;
2720: END IF;
2721: ELSE
2714: l_attribute14 := p_REPLN_Rec.attribute14;
2715: END IF;
2716:
2717: IF (p_REPLN_Rec.attribute15 IS NULL) OR (p_REPLN_Rec.attribute15 = Fnd_Api.G_MISS_CHAR) THEN
2718: IF NVL(p_old_repln_rec.attribute15,Fnd_Api.G_MISS_CHAR) <> Fnd_Api.G_MISS_CHAR THEN
2719: l_attribute15 := p_old_repln_rec.attribute15;
2720: END IF;
2721: ELSE
2722: l_attribute15 := p_REPLN_Rec.attribute15;
2722: l_attribute15 := p_REPLN_Rec.attribute15;
2723: END IF;
2724:
2725: --subhat, 15 new DFF columns(bug#7497907), 12.1 FP.
2726: IF (p_REPLN_Rec.attribute16 is null) or (p_REPLN_Rec.attribute16 = FND_API.G_MISS_CHAR) then
2727: IF nvl(p_old_repln_rec.attribute16,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2728: l_attribute16 := p_old_repln_rec.attribute16;
2729: END IF;
2730: ELSE
2723: END IF;
2724:
2725: --subhat, 15 new DFF columns(bug#7497907), 12.1 FP.
2726: IF (p_REPLN_Rec.attribute16 is null) or (p_REPLN_Rec.attribute16 = FND_API.G_MISS_CHAR) then
2727: IF nvl(p_old_repln_rec.attribute16,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2728: l_attribute16 := p_old_repln_rec.attribute16;
2729: END IF;
2730: ELSE
2731: l_attribute16 := p_REPLN_Rec.attribute16;
2730: ELSE
2731: l_attribute16 := p_REPLN_Rec.attribute16;
2732: END IF;
2733:
2734: IF (p_REPLN_Rec.attribute17 is null) or (p_REPLN_Rec.attribute17 = FND_API.G_MISS_CHAR) then
2735: IF nvl(p_old_repln_rec.attribute17,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2736: l_attribute17 := p_old_repln_rec.attribute17;
2737: END IF;
2738: ELSE
2731: l_attribute16 := p_REPLN_Rec.attribute16;
2732: END IF;
2733:
2734: IF (p_REPLN_Rec.attribute17 is null) or (p_REPLN_Rec.attribute17 = FND_API.G_MISS_CHAR) then
2735: IF nvl(p_old_repln_rec.attribute17,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2736: l_attribute17 := p_old_repln_rec.attribute17;
2737: END IF;
2738: ELSE
2739: l_attribute17 := p_REPLN_Rec.attribute17;
2738: ELSE
2739: l_attribute17 := p_REPLN_Rec.attribute17;
2740: END IF;
2741:
2742: IF (p_REPLN_Rec.attribute18 is null) or (p_REPLN_Rec.attribute18 = FND_API.G_MISS_CHAR) then
2743: IF nvl(p_old_repln_rec.attribute18,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2744: l_attribute18 := p_old_repln_rec.attribute18;
2745: END IF;
2746: ELSE
2739: l_attribute17 := p_REPLN_Rec.attribute17;
2740: END IF;
2741:
2742: IF (p_REPLN_Rec.attribute18 is null) or (p_REPLN_Rec.attribute18 = FND_API.G_MISS_CHAR) then
2743: IF nvl(p_old_repln_rec.attribute18,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2744: l_attribute18 := p_old_repln_rec.attribute18;
2745: END IF;
2746: ELSE
2747: l_attribute18 := p_REPLN_Rec.attribute18;
2746: ELSE
2747: l_attribute18 := p_REPLN_Rec.attribute18;
2748: END IF;
2749:
2750: IF (p_REPLN_Rec.attribute19 is null) or (p_REPLN_Rec.attribute19 = FND_API.G_MISS_CHAR) then
2751: IF nvl(p_old_repln_rec.attribute19,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2752: l_attribute19 := p_old_repln_rec.attribute19;
2753: END IF;
2754: ELSE
2747: l_attribute18 := p_REPLN_Rec.attribute18;
2748: END IF;
2749:
2750: IF (p_REPLN_Rec.attribute19 is null) or (p_REPLN_Rec.attribute19 = FND_API.G_MISS_CHAR) then
2751: IF nvl(p_old_repln_rec.attribute19,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2752: l_attribute19 := p_old_repln_rec.attribute19;
2753: END IF;
2754: ELSE
2755: l_attribute19 := p_REPLN_Rec.attribute19;
2754: ELSE
2755: l_attribute19 := p_REPLN_Rec.attribute19;
2756: END IF;
2757:
2758: IF (p_REPLN_Rec.attribute20 is null) or (p_REPLN_Rec.attribute20 = FND_API.G_MISS_CHAR) then
2759: IF nvl(p_old_repln_rec.attribute20,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2760: l_attribute20 := p_old_repln_rec.attribute20;
2761: END IF;
2762: ELSE
2755: l_attribute19 := p_REPLN_Rec.attribute19;
2756: END IF;
2757:
2758: IF (p_REPLN_Rec.attribute20 is null) or (p_REPLN_Rec.attribute20 = FND_API.G_MISS_CHAR) then
2759: IF nvl(p_old_repln_rec.attribute20,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2760: l_attribute20 := p_old_repln_rec.attribute20;
2761: END IF;
2762: ELSE
2763: l_attribute20 := p_REPLN_Rec.attribute20;
2762: ELSE
2763: l_attribute20 := p_REPLN_Rec.attribute20;
2764: END IF;
2765:
2766: IF (p_REPLN_Rec.attribute21 is null) or (p_REPLN_Rec.attribute21 = FND_API.G_MISS_CHAR) then
2767: IF nvl(p_old_repln_rec.attribute21,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2768: l_attribute21 := p_old_repln_rec.attribute21;
2769: END IF;
2770: ELSE
2763: l_attribute20 := p_REPLN_Rec.attribute20;
2764: END IF;
2765:
2766: IF (p_REPLN_Rec.attribute21 is null) or (p_REPLN_Rec.attribute21 = FND_API.G_MISS_CHAR) then
2767: IF nvl(p_old_repln_rec.attribute21,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2768: l_attribute21 := p_old_repln_rec.attribute21;
2769: END IF;
2770: ELSE
2771: l_attribute21 := p_REPLN_Rec.attribute21;
2770: ELSE
2771: l_attribute21 := p_REPLN_Rec.attribute21;
2772: END IF;
2773:
2774: IF (p_REPLN_Rec.attribute22 is null) or (p_REPLN_Rec.attribute22 = FND_API.G_MISS_CHAR) then
2775: IF nvl(p_old_repln_rec.attribute22,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2776: l_attribute22 := p_old_repln_rec.attribute22;
2777: END IF;
2778: ELSE
2771: l_attribute21 := p_REPLN_Rec.attribute21;
2772: END IF;
2773:
2774: IF (p_REPLN_Rec.attribute22 is null) or (p_REPLN_Rec.attribute22 = FND_API.G_MISS_CHAR) then
2775: IF nvl(p_old_repln_rec.attribute22,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2776: l_attribute22 := p_old_repln_rec.attribute22;
2777: END IF;
2778: ELSE
2779: l_attribute22 := p_REPLN_Rec.attribute22;
2778: ELSE
2779: l_attribute22 := p_REPLN_Rec.attribute22;
2780: END IF;
2781:
2782: IF (p_REPLN_Rec.attribute23 is null) or (p_REPLN_Rec.attribute23 = FND_API.G_MISS_CHAR) then
2783: IF nvl(p_old_repln_rec.attribute23,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2784: l_attribute23 := p_old_repln_rec.attribute23;
2785: END IF;
2786: ELSE
2779: l_attribute22 := p_REPLN_Rec.attribute22;
2780: END IF;
2781:
2782: IF (p_REPLN_Rec.attribute23 is null) or (p_REPLN_Rec.attribute23 = FND_API.G_MISS_CHAR) then
2783: IF nvl(p_old_repln_rec.attribute23,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2784: l_attribute23 := p_old_repln_rec.attribute23;
2785: END IF;
2786: ELSE
2787: l_attribute23 := p_REPLN_Rec.attribute23;
2786: ELSE
2787: l_attribute23 := p_REPLN_Rec.attribute23;
2788: END IF;
2789:
2790: IF (p_REPLN_Rec.attribute24 is null) or (p_REPLN_Rec.attribute24 = FND_API.G_MISS_CHAR) then
2791: IF nvl(p_old_repln_rec.attribute24,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2792: l_attribute24 := p_old_repln_rec.attribute24;
2793: END IF;
2794: ELSE
2787: l_attribute23 := p_REPLN_Rec.attribute23;
2788: END IF;
2789:
2790: IF (p_REPLN_Rec.attribute24 is null) or (p_REPLN_Rec.attribute24 = FND_API.G_MISS_CHAR) then
2791: IF nvl(p_old_repln_rec.attribute24,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2792: l_attribute24 := p_old_repln_rec.attribute24;
2793: END IF;
2794: ELSE
2795: l_attribute24 := p_REPLN_Rec.attribute24;
2794: ELSE
2795: l_attribute24 := p_REPLN_Rec.attribute24;
2796: END IF;
2797:
2798: IF (p_REPLN_Rec.attribute25 is null) or (p_REPLN_Rec.attribute25 = FND_API.G_MISS_CHAR) then
2799: IF nvl(p_old_repln_rec.attribute25,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2800: l_attribute25 := p_old_repln_rec.attribute25;
2801: END IF;
2802: ELSE
2795: l_attribute24 := p_REPLN_Rec.attribute24;
2796: END IF;
2797:
2798: IF (p_REPLN_Rec.attribute25 is null) or (p_REPLN_Rec.attribute25 = FND_API.G_MISS_CHAR) then
2799: IF nvl(p_old_repln_rec.attribute25,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2800: l_attribute25 := p_old_repln_rec.attribute25;
2801: END IF;
2802: ELSE
2803: l_attribute25 := p_REPLN_Rec.attribute25;
2802: ELSE
2803: l_attribute25 := p_REPLN_Rec.attribute25;
2804: END IF;
2805:
2806: IF (p_REPLN_Rec.attribute26 is null) or (p_REPLN_Rec.attribute26 = FND_API.G_MISS_CHAR) then
2807: IF nvl(p_old_repln_rec.attribute26,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2808: l_attribute26 := p_old_repln_rec.attribute26;
2809: END IF;
2810: ELSE
2803: l_attribute25 := p_REPLN_Rec.attribute25;
2804: END IF;
2805:
2806: IF (p_REPLN_Rec.attribute26 is null) or (p_REPLN_Rec.attribute26 = FND_API.G_MISS_CHAR) then
2807: IF nvl(p_old_repln_rec.attribute26,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2808: l_attribute26 := p_old_repln_rec.attribute26;
2809: END IF;
2810: ELSE
2811: l_attribute26 := p_REPLN_Rec.attribute26;
2810: ELSE
2811: l_attribute26 := p_REPLN_Rec.attribute26;
2812: END IF;
2813:
2814: IF (p_REPLN_Rec.attribute27 is null) or (p_REPLN_Rec.attribute27 = FND_API.G_MISS_CHAR) then
2815: IF nvl(p_old_repln_rec.attribute27,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2816: l_attribute27 := p_old_repln_rec.attribute27;
2817: END IF;
2818: ELSE
2811: l_attribute26 := p_REPLN_Rec.attribute26;
2812: END IF;
2813:
2814: IF (p_REPLN_Rec.attribute27 is null) or (p_REPLN_Rec.attribute27 = FND_API.G_MISS_CHAR) then
2815: IF nvl(p_old_repln_rec.attribute27,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2816: l_attribute27 := p_old_repln_rec.attribute27;
2817: END IF;
2818: ELSE
2819: l_attribute27 := p_REPLN_Rec.attribute27;
2818: ELSE
2819: l_attribute27 := p_REPLN_Rec.attribute27;
2820: END IF;
2821:
2822: IF (p_REPLN_Rec.attribute28 is null) or (p_REPLN_Rec.attribute28 = FND_API.G_MISS_CHAR) then
2823: IF nvl(p_old_repln_rec.attribute28,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2824: l_attribute28 := p_old_repln_rec.attribute28;
2825: END IF;
2826: ELSE
2819: l_attribute27 := p_REPLN_Rec.attribute27;
2820: END IF;
2821:
2822: IF (p_REPLN_Rec.attribute28 is null) or (p_REPLN_Rec.attribute28 = FND_API.G_MISS_CHAR) then
2823: IF nvl(p_old_repln_rec.attribute28,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2824: l_attribute28 := p_old_repln_rec.attribute28;
2825: END IF;
2826: ELSE
2827: l_attribute28 := p_REPLN_Rec.attribute28;
2826: ELSE
2827: l_attribute28 := p_REPLN_Rec.attribute28;
2828: END IF;
2829:
2830: IF (p_REPLN_Rec.attribute29 is null) or (p_REPLN_Rec.attribute29 = FND_API.G_MISS_CHAR) then
2831: IF nvl(p_old_repln_rec.attribute29,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2832: l_attribute29 := p_old_repln_rec.attribute29;
2833: END IF;
2834: ELSE
2827: l_attribute28 := p_REPLN_Rec.attribute28;
2828: END IF;
2829:
2830: IF (p_REPLN_Rec.attribute29 is null) or (p_REPLN_Rec.attribute29 = FND_API.G_MISS_CHAR) then
2831: IF nvl(p_old_repln_rec.attribute29,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2832: l_attribute29 := p_old_repln_rec.attribute29;
2833: END IF;
2834: ELSE
2835: l_attribute29 := p_REPLN_Rec.attribute29;
2834: ELSE
2835: l_attribute29 := p_REPLN_Rec.attribute29;
2836: END IF;
2837:
2838: IF (p_REPLN_Rec.attribute30 is null) or (p_REPLN_Rec.attribute30 = FND_API.G_MISS_CHAR) then
2839: IF nvl(p_old_repln_rec.attribute30,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2840: l_attribute30 := p_old_repln_rec.attribute30;
2841: END IF;
2842: ELSE
2835: l_attribute29 := p_REPLN_Rec.attribute29;
2836: END IF;
2837:
2838: IF (p_REPLN_Rec.attribute30 is null) or (p_REPLN_Rec.attribute30 = FND_API.G_MISS_CHAR) then
2839: IF nvl(p_old_repln_rec.attribute30,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR then
2840: l_attribute30 := p_old_repln_rec.attribute30;
2841: END IF;
2842: ELSE
2843: l_attribute30 := p_REPLN_Rec.attribute30;
2886: l_valid_def_rec := Csd_Repairs_Util.Is_DescFlex_Valid
2887: (p_api_name => 'Create_Repair_Order',
2888: p_desc_flex_name => 'CSD_REPAIRS',
2889: p_attr_values => x_dff_rec,
2890: p_validate_only => FND_API.G_FALSE);
2891: else
2892: l_valid_def_rec := CSD_REPAIRS_UTIL.Is_DescFlex_Valid
2893: (p_api_name => 'Create_Repair_Order',
2894: p_desc_flex_name => 'CSD_REPAIRS',
2892: l_valid_def_rec := CSD_REPAIRS_UTIL.Is_DescFlex_Valid
2893: (p_api_name => 'Create_Repair_Order',
2894: p_desc_flex_name => 'CSD_REPAIRS',
2895: p_attr_values => x_dff_rec,
2896: p_validate_only => FND_API.G_TRUE
2897: );
2898: end if;
2899: ELSE
2900: l_valid_def_rec := CSD_REPAIRS_UTIL.Is_DescFlex_Valid
2900: l_valid_def_rec := CSD_REPAIRS_UTIL.Is_DescFlex_Valid
2901: (p_api_name => 'Update_Repair_Order',
2902: p_desc_flex_name => 'CSD_REPAIRS',
2903: p_attr_values => x_dff_rec,
2904: p_validate_only => FND_API.G_TRUE
2905: );
2906: END IF;
2907: -- Check validation status from the above procedure call
2908: IF NOT (l_valid_def_rec) THEN
2905: );
2906: END IF;
2907: -- Check validation status from the above procedure call
2908: IF NOT (l_valid_def_rec) THEN
2909: RAISE Fnd_Api.G_EXC_ERROR;
2910: END IF;
2911:
2912: END IF; -- End of Validation Level IF Block
2913: --
2911:
2912: END IF; -- End of Validation Level IF Block
2913: --
2914: EXCEPTION
2915: WHEN Fnd_Api.G_EXC_ERROR THEN
2916: Jtf_Plsql_Api.HANDLE_EXCEPTIONS
2917: ( P_API_NAME => L_API_NAME
2918: ,P_PKG_NAME => G_PKG_NAME
2919: ,P_EXCEPTION_LEVEL => Fnd_Msg_Pub.G_MSG_LVL_ERROR
2921: ,X_MSG_COUNT => X_MSG_COUNT
2922: ,X_MSG_DATA => X_MSG_DATA
2923: ,X_RETURN_STATUS => X_RETURN_STATUS);
2924:
2925: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2926: Jtf_Plsql_Api.HANDLE_EXCEPTIONS
2927: (P_API_NAME => L_API_NAME
2928: ,P_PKG_NAME => G_PKG_NAME
2929: ,P_EXCEPTION_LEVEL => Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR
3085: 'Entered Copy_Attachments API');
3086: END IF;
3087:
3088: -- Standard call to check for call compatibility.
3089: IF NOT Fnd_Api.Compatible_API_Call (l_api_version,
3090: p_api_version,
3091: l_api_name,
3092: G_PKG_NAME)
3093: THEN
3090: p_api_version,
3091: l_api_name,
3092: G_PKG_NAME)
3093: THEN
3094: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3095: END IF;
3096:
3097: -- Initialize message list if p_init_msg_list is set to TRUE.
3098: IF Fnd_Api.to_Boolean(p_init_msg_list) THEN
3094: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3095: END IF;
3096:
3097: -- Initialize message list if p_init_msg_list is set to TRUE.
3098: IF Fnd_Api.to_Boolean(p_init_msg_list) THEN
3099: Fnd_Msg_Pub.initialize;
3100: END IF;
3101:
3102: -- Initialize API return status to success
3099: Fnd_Msg_Pub.initialize;
3100: END IF;
3101:
3102: -- Initialize API return status to success
3103: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3104:
3105: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3106: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3107: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3109: END IF;
3110:
3111: IF NOT (Csd_Process_Util.Validate_rep_line_id
3112: ( p_repair_line_id => p_original_ro_id)) THEN
3113: RAISE Fnd_Api.G_EXC_ERROR;
3114: END IF;
3115:
3116: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3117: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3126: END IF;
3127:
3128: IF NOT (Csd_Process_Util.Validate_rep_line_id
3129: ( p_repair_line_id => p_new_ro_id)) THEN
3130: RAISE Fnd_Api.G_EXC_ERROR;
3131: END IF;
3132:
3133: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3134: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3413:
3414: -- Api body ends here
3415:
3416: -- Standard check of p_commit.
3417: IF Fnd_Api.To_Boolean( p_commit ) THEN
3418: COMMIT;
3419: END IF;
3420:
3421: -- Standard call to get message count and if count is 1, get message info
3429: 'Copy Attachments completed successfully ');
3430: END IF;
3431:
3432: EXCEPTION
3433: WHEN Fnd_Api.G_EXC_ERROR THEN
3434: ROLLBACK TO Copy_Attachments;
3435: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
3436: Fnd_Msg_Pub.Count_And_Get
3437: (p_count => x_msg_count,
3431:
3432: EXCEPTION
3433: WHEN Fnd_Api.G_EXC_ERROR THEN
3434: ROLLBACK TO Copy_Attachments;
3435: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
3436: Fnd_Msg_Pub.Count_And_Get
3437: (p_count => x_msg_count,
3438: p_data => x_msg_data
3439: );
3442: 'CSD.PLSQL.csd_repairs_pvt.copy_attachments',
3443: 'EXC_ERROR ['||x_msg_data||']');
3444: END IF;
3445:
3446: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3447: ROLLBACK TO Copy_Attachments;
3448: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
3449: Fnd_Msg_Pub.Count_And_Get (p_count => x_msg_count,
3450: p_data => x_msg_data );
3444: END IF;
3445:
3446: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3447: ROLLBACK TO Copy_Attachments;
3448: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
3449: Fnd_Msg_Pub.Count_And_Get (p_count => x_msg_count,
3450: p_data => x_msg_data );
3451:
3452: IF ( Fnd_Log.LEVEL_EXCEPTION >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL ) THEN
3456: END IF;
3457:
3458: WHEN OTHERS THEN
3459: ROLLBACK TO Copy_Attachments;
3460: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
3461: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
3462: THEN
3463: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME ,
3464: l_api_name );
3519: 'Entered Delete_Attachments API');
3520: END IF;
3521:
3522: -- Standard call to check for call compatibility.
3523: IF NOT Fnd_Api.Compatible_API_Call (l_api_version,
3524: p_api_version,
3525: l_api_name,
3526: G_PKG_NAME)
3527: THEN
3524: p_api_version,
3525: l_api_name,
3526: G_PKG_NAME)
3527: THEN
3528: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3529: END IF;
3530:
3531: -- Initialize message list if p_init_msg_list is set to TRUE.
3532: IF Fnd_Api.to_Boolean(p_init_msg_list) THEN
3528: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3529: END IF;
3530:
3531: -- Initialize message list if p_init_msg_list is set to TRUE.
3532: IF Fnd_Api.to_Boolean(p_init_msg_list) THEN
3533: Fnd_Msg_Pub.initialize;
3534: END IF;
3535:
3536: -- Initialize API return status to success
3533: Fnd_Msg_Pub.initialize;
3534: END IF;
3535:
3536: -- Initialize API return status to success
3537: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3538:
3539: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3540: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3541: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3543: END IF;
3544:
3545: IF NOT (Csd_Process_Util.Validate_rep_line_id
3546: ( p_repair_line_id => p_repair_line_id)) THEN
3547: RAISE Fnd_Api.G_EXC_ERROR;
3548: END IF;
3549:
3550: IF(Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level) THEN
3551: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3682:
3683: -- Api body ends here
3684:
3685: -- Standard check of p_commit.
3686: IF Fnd_Api.To_Boolean( p_commit ) THEN
3687: COMMIT;
3688: END IF;
3689:
3690: -- Standard call to get message count and if count is 1, get message info
3698: 'Delete_Attachments completed successfully');
3699: END IF;
3700:
3701: EXCEPTION
3702: WHEN Fnd_Api.G_EXC_ERROR THEN
3703: ROLLBACK TO Delete_Attachments;
3704: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
3705: Fnd_Msg_Pub.Count_And_Get
3706: (p_count => x_msg_count,
3700:
3701: EXCEPTION
3702: WHEN Fnd_Api.G_EXC_ERROR THEN
3703: ROLLBACK TO Delete_Attachments;
3704: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
3705: Fnd_Msg_Pub.Count_And_Get
3706: (p_count => x_msg_count,
3707: p_data => x_msg_data
3708: );
3711: 'CSD.PLSQL.csd_repairs_pvt.delete_attachments',
3712: 'EXC_ERROR ['||x_msg_data||']');
3713: END IF;
3714:
3715: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3716: ROLLBACK TO Delete_Attachments;
3717: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
3718: Fnd_Msg_Pub.Count_And_Get (p_count => x_msg_count,
3719: p_data => x_msg_data );
3713: END IF;
3714:
3715: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3716: ROLLBACK TO Delete_Attachments;
3717: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
3718: Fnd_Msg_Pub.Count_And_Get (p_count => x_msg_count,
3719: p_data => x_msg_data );
3720:
3721: IF ( Fnd_Log.LEVEL_EXCEPTION >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL ) THEN
3725: END IF;
3726:
3727: WHEN OTHERS THEN
3728: ROLLBACK TO Delete_Attachments;
3729: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
3730: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
3731: THEN
3732: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME ,
3733: l_api_name );
3818: Fnd_Log.STRING (Fnd_Log.level_procedure,
3819: 'csd.plsql.csd_repairs_pvt.update_ro_status.begin',
3820: 'Entering update_ro_status private api');
3821: END IF;
3822: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
3823: Fnd_Msg_Pub.initialize;
3824: END IF;
3825: IF NOT Fnd_Api.compatible_api_call(l_api_version_number, p_api_version, l_api_name, g_pkg_name) THEN
3826: RAISE Fnd_Api.g_exc_unexpected_error;
3821: END IF;
3822: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
3823: Fnd_Msg_Pub.initialize;
3824: END IF;
3825: IF NOT Fnd_Api.compatible_api_call(l_api_version_number, p_api_version, l_api_name, g_pkg_name) THEN
3826: RAISE Fnd_Api.g_exc_unexpected_error;
3827: END IF;
3828:
3829: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3822: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
3823: Fnd_Msg_Pub.initialize;
3824: END IF;
3825: IF NOT Fnd_Api.compatible_api_call(l_api_version_number, p_api_version, l_api_name, g_pkg_name) THEN
3826: RAISE Fnd_Api.g_exc_unexpected_error;
3827: END IF;
3828:
3829: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3830: SAVEPOINT update_ro_status_pvt;
3825: IF NOT Fnd_Api.compatible_api_call(l_api_version_number, p_api_version, l_api_name, g_pkg_name) THEN
3826: RAISE Fnd_Api.g_exc_unexpected_error;
3827: END IF;
3828:
3829: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3830: SAVEPOINT update_ro_status_pvt;
3831:
3832: l_repair_status_Rec := p_repair_status_rec;
3833:
3862: IF(ro_details_cur%NOTFOUND) THEN
3863: CLOSE ro_details_cur;
3864: Fnd_Message.SET_NAME('CSD','CSD_INVALID_REPAIR_ORDER');
3865: Fnd_Msg_Pub.ADD;
3866: RAISE Fnd_Api.G_EXC_ERROR;
3867: END IF;
3868: CLOSE ro_details_cur;
3869:
3870: OPEN flow_stat_cur(l_repair_status_Rec.repair_status_id);
3872: IF(flow_stat_cur%NOTFOUND) THEN
3873: CLOSE flow_stat_cur;
3874: Fnd_Message.SET_NAME('CSD','CSD_INVALID_FLOW_STATUS');
3875: Fnd_Msg_Pub.ADD;
3876: RAISE Fnd_Api.G_EXC_ERROR;
3877: END IF;
3878: CLOSE flow_stat_cur;
3879:
3880: IF (Fnd_Log.level_event >= Fnd_Log.g_current_runtime_level) THEN
3893: x_return_status => l_return_status,
3894: x_msg_count => l_msg_count,
3895: x_msg_data => l_msg_data );
3896:
3897: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3898: RAISE Fnd_Api.G_EXC_ERROR;
3899: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3900: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3901: END IF;
3894: x_msg_count => l_msg_count,
3895: x_msg_data => l_msg_data );
3896:
3897: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3898: RAISE Fnd_Api.G_EXC_ERROR;
3899: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3900: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3901: END IF;
3902:
3895: x_msg_data => l_msg_data );
3896:
3897: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3898: RAISE Fnd_Api.G_EXC_ERROR;
3899: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3900: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3901: END IF;
3902:
3903:
3896:
3897: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3898: RAISE Fnd_Api.G_EXC_ERROR;
3899: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3900: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3901: END IF;
3902:
3903:
3904: END IF;
3912: '-----step 5a: Calling another private api to validate and update status');
3913: END IF;
3914: Csd_Repairs_Pvt.UPDATE_FLOW_STATUS (
3915: p_api_version => 1.0,
3916: p_commit => Fnd_api.g_false,
3917: p_init_msg_list => Fnd_Api.g_false,
3918: p_validation_level => Fnd_Api.g_valid_level_full,
3919: x_return_status => l_return_status,
3920: x_msg_count => l_msg_count,
3913: END IF;
3914: Csd_Repairs_Pvt.UPDATE_FLOW_STATUS (
3915: p_api_version => 1.0,
3916: p_commit => Fnd_api.g_false,
3917: p_init_msg_list => Fnd_Api.g_false,
3918: p_validation_level => Fnd_Api.g_valid_level_full,
3919: x_return_status => l_return_status,
3920: x_msg_count => l_msg_count,
3921: x_msg_data => l_msg_data,
3914: Csd_Repairs_Pvt.UPDATE_FLOW_STATUS (
3915: p_api_version => 1.0,
3916: p_commit => Fnd_api.g_false,
3917: p_init_msg_list => Fnd_Api.g_false,
3918: p_validation_level => Fnd_Api.g_valid_level_full,
3919: x_return_status => l_return_status,
3920: x_msg_count => l_msg_count,
3921: x_msg_data => l_msg_data,
3922: p_repair_line_id => l_repair_status_rec.repair_line_id,
3928: p_check_access_flag => 'Y',
3929: p_object_version_number => l_repair_status_rec.object_version_number,
3930: x_object_version_number => x_object_version_number) ;
3931:
3932: IF(l_return_status = Fnd_Api.G_RET_STS_ERROR) THEN
3933: RAISE Fnd_Api.G_EXC_ERROR;
3934: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3935: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3936: END IF;
3929: p_object_version_number => l_repair_status_rec.object_version_number,
3930: x_object_version_number => x_object_version_number) ;
3931:
3932: IF(l_return_status = Fnd_Api.G_RET_STS_ERROR) THEN
3933: RAISE Fnd_Api.G_EXC_ERROR;
3934: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3935: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3936: END IF;
3937:
3930: x_object_version_number => x_object_version_number) ;
3931:
3932: IF(l_return_status = Fnd_Api.G_RET_STS_ERROR) THEN
3933: RAISE Fnd_Api.G_EXC_ERROR;
3934: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3935: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3936: END IF;
3937:
3938:
3931:
3932: IF(l_return_status = Fnd_Api.G_RET_STS_ERROR) THEN
3933: RAISE Fnd_Api.G_EXC_ERROR;
3934: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3935: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3936: END IF;
3937:
3938:
3939: -- Api body ends here
3938:
3939: -- Api body ends here
3940:
3941: -- Standard check of p_commit.
3942: IF Fnd_Api.to_boolean (p_commit) THEN
3943: COMMIT WORK;
3944: END IF;
3945:
3946: -- Standard call to get message count and IF count is get message info.
3952: 'Leaving update_ro_Status private api');
3953: END IF;
3954:
3955: EXCEPTION
3956: WHEN Fnd_Api.g_exc_error
3957: THEN
3958: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3959: ROLLBACK TO update_ro_status_pvt;
3960: Fnd_Msg_Pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3954:
3955: EXCEPTION
3956: WHEN Fnd_Api.g_exc_error
3957: THEN
3958: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3959: ROLLBACK TO update_ro_status_pvt;
3960: Fnd_Msg_Pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3961: IF (Fnd_Log.level_error >= Fnd_Log.g_current_runtime_level) THEN
3962: Fnd_Log.STRING (Fnd_Log.level_error,
3962: Fnd_Log.STRING (Fnd_Log.level_error,
3963: 'csd.plsql.csd_repairs_pvt.update_ro_status',
3964: 'EXC_ERROR[' || x_msg_data || ']');
3965: END IF;
3966: WHEN Fnd_Api.g_exc_unexpected_error
3967: THEN
3968: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3969: ROLLBACK TO update_ro_status_pvt;
3970: Fnd_Msg_Pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3964: 'EXC_ERROR[' || x_msg_data || ']');
3965: END IF;
3966: WHEN Fnd_Api.g_exc_unexpected_error
3967: THEN
3968: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3969: ROLLBACK TO update_ro_status_pvt;
3970: Fnd_Msg_Pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3971:
3972: IF (Fnd_Log.level_exception >= Fnd_Log.g_current_runtime_level) THEN
3975: 'EXC_UNEXP_ERROR[' || x_msg_data || ']');
3976: END IF;
3977: WHEN OTHERS
3978: THEN
3979: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3980: ROLLBACK TO update_ro_status_pvt;
3981:
3982: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
3983: Fnd_Msg_Pub.add_exc_msg (g_pkg_name, l_api_name);
4089: -- Standard Start of API savepoint
4090: SAVEPOINT Update_Flow_Status;
4091:
4092: -- Standard call to check for call compatibility.
4093: IF NOT Fnd_Api.Compatible_API_Call (lc_api_version,
4094: p_api_version,
4095: lc_api_name ,
4096: G_PKG_NAME )
4097: THEN
4094: p_api_version,
4095: lc_api_name ,
4096: G_PKG_NAME )
4097: THEN
4098: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4099: END IF;
4100:
4101: -- Initialize message list if p_init_msg_list is set to TRUE.
4102: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
4098: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4099: END IF;
4100:
4101: -- Initialize message list if p_init_msg_list is set to TRUE.
4102: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
4103: Fnd_Msg_Pub.initialize;
4104: END IF;
4105:
4106: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
4108: 'Entered Update_Flow_Status');
4109: END IF;
4110:
4111: -- Initialize API return status to success
4112: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4113:
4114: -- Api body starts
4115:
4116: -- STEP 1: Validate Mandatory Parameters.
4155: IF P_TO_FLOW_STATUS_ID IS NULL THEN
4156: -- "Unable to update repair status. A new status is required for the transition."
4157: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_TO_STATUS_REQD');
4158: Fnd_Msg_Pub.ADD;
4159: RAISE Fnd_Api.G_EXC_ERROR;
4160: END IF;
4161:
4162:
4163: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
4190: -- "Unable to update repair status. The status transition
4191: -- is not valid for the current repair type."
4192: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_INVALID');
4193: Fnd_Msg_Pub.ADD;
4194: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4195: ELSIF (l_reason_required_flag = 'Y') AND (p_reason_code IS NULL) THEN
4196: -- "Unable to update repair status. A reason is required for the transition."
4197: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_REASON_REQD');
4198: Fnd_Msg_Pub.ADD;
4196: -- "Unable to update repair status. A reason is required for the transition."
4197: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_REASON_REQD');
4198: Fnd_Msg_Pub.ADD;
4199: -- 5362259, chaging exception from G_EXC_UNEXPECTED_ERROR to G_EXC_ERROR
4200: RAISE Fnd_Api.G_EXC_ERROR;
4201: END IF;
4202:
4203: -- STEP 3: Check access if requested.
4204:
4223: -- rfieldma, 5494587,
4224: -- changing exception from G_EXC_UNEXPECTED_ERROR
4225: -- to G_EXC_ERROR so that the extra developer's error
4226: -- won't show.
4227: RAISE Fnd_Api.G_EXC_ERROR;
4228: END IF;
4229:
4230: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
4231: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_mod_name,
4251: -- "Unable to update repair status.
4252: -- Invalid reason selected for the transition."
4253: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_INVD_REASON');
4254: Fnd_Msg_Pub.ADD;
4255: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4256: END IF;
4257: END IF;
4258:
4259: -- STEP 5: Launch Workflow.
4279: END IF;
4280:
4281: Launch_Flwsts_Wf (
4282: p_api_version => 1.0,
4283: p_commit => Fnd_Api.G_FALSE,
4284: p_init_msg_list => Fnd_Api.G_FALSE,
4285: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
4286: x_return_status => x_return_status,
4287: x_msg_count => x_msg_count,
4280:
4281: Launch_Flwsts_Wf (
4282: p_api_version => 1.0,
4283: p_commit => Fnd_Api.G_FALSE,
4284: p_init_msg_list => Fnd_Api.G_FALSE,
4285: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
4286: x_return_status => x_return_status,
4287: x_msg_count => x_msg_count,
4288: x_msg_data => x_msg_data,
4281: Launch_Flwsts_Wf (
4282: p_api_version => 1.0,
4283: p_commit => Fnd_Api.G_FALSE,
4284: p_init_msg_list => Fnd_Api.G_FALSE,
4285: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
4286: x_return_status => x_return_status,
4287: x_msg_count => x_msg_count,
4288: x_msg_data => x_msg_data,
4289: p_flwsts_wf_rec => l_flwsts_wf_rec
4288: x_msg_data => x_msg_data,
4289: p_flwsts_wf_rec => l_flwsts_wf_rec
4290: );
4291:
4292: IF x_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
4293: -- "Unable to update repair status.
4294: -- Failed to create the workflow process."
4295: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_WF_FAIL');
4296: Fnd_Msg_Pub.ADD;
4293: -- "Unable to update repair status.
4294: -- Failed to create the workflow process."
4295: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_WF_FAIL');
4296: Fnd_Msg_Pub.ADD;
4297: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4298: END IF;
4299:
4300: END IF;
4301:
4333: -- updated the repair order. Please requery the
4334: -- original data and try again.
4335: --Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_OLD_VERSION');
4336: --Fnd_Msg_Pub.ADD;
4337: --RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4338: --END;
4339:
4340: if(sql%rowcount > 0) then
4341: -- swai: bug 6937272 (FP of 6882484)
4346: else
4347: --debug('object_Version mismatch');
4348: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_OLD_VERSION');
4349: Fnd_Msg_Pub.ADD;
4350: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4351: end if;
4352:
4353: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
4354: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_mod_name,
4367:
4368:
4369: Csd_To_Form_Repair_History.Validate_And_Write
4370: (p_Api_Version_Number => 1.0 ,
4371: p_init_msg_list => Fnd_Api.G_FALSE,
4372: p_commit => Fnd_Api.G_FALSE,
4373: p_validation_level => NULL,
4374: p_action_code => 0,
4375: px_REPAIR_HISTORY_ID => x_repair_history_id,
4368:
4369: Csd_To_Form_Repair_History.Validate_And_Write
4370: (p_Api_Version_Number => 1.0 ,
4371: p_init_msg_list => Fnd_Api.G_FALSE,
4372: p_commit => Fnd_Api.G_FALSE,
4373: p_validation_level => NULL,
4374: p_action_code => 0,
4375: px_REPAIR_HISTORY_ID => x_repair_history_id,
4376: p_OBJECT_VERSION_NUMBER => NULL,
4409: -- Unable to update repair status. Adding repair activity
4410: -- process has failed.
4411: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_ACTY_FAIL');
4412: Fnd_Msg_Pub.ADD;
4413: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4414: END IF;
4415:
4416: END IF;
4417:
4425:
4426: -- Incident Id must be NULL.
4427: Csd_Process_Pvt.Close_status
4428: ( p_api_version => 1.0,
4429: p_commit => Fnd_Api.G_FALSE,
4430: p_init_msg_list => Fnd_Api.G_FALSE,
4431: p_validation_level => Csd_Process_Util.G_VALID_LEVEL_FULL,
4432: p_incident_id => NULL,
4433: p_repair_line_id => p_repair_line_id,
4426: -- Incident Id must be NULL.
4427: Csd_Process_Pvt.Close_status
4428: ( p_api_version => 1.0,
4429: p_commit => Fnd_Api.G_FALSE,
4430: p_init_msg_list => Fnd_Api.G_FALSE,
4431: p_validation_level => Csd_Process_Util.G_VALID_LEVEL_FULL,
4432: p_incident_id => NULL,
4433: p_repair_line_id => p_repair_line_id,
4434: x_return_status => x_return_status,
4440: -- Unable to update repair status. Adding repair activity
4441: -- process has failed.
4442: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_SR_FAIL');
4443: Fnd_Msg_Pub.ADD;
4444: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4445: END IF;
4446: END IF;
4447:
4448: -- STEP 9: Launch the Business Event.
4455: l_ro_status_bevent_rec.object_version_number := p_object_version_number;
4456:
4457: raise_ro_status_bevent
4458: ( p_ro_status_bevent_rec => l_ro_status_bevent_rec,
4459: p_commit => Fnd_Api.G_FALSE,
4460: x_return_status => x_return_status,
4461: x_msg_count => x_msg_count,
4462: x_msg_data => x_msg_data
4463: );
4467: -- Unable to update repair status. Failed
4468: -- to Initialize the business event.
4469: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_FLWSTS_BE_FAIL');
4470: Fnd_Msg_Pub.ADD;
4471: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4472: END IF;
4473:
4474: --debug('update_flow_status: Step 11');
4475:
4486:
4487: --debug('update_flow_status: Step 12');
4488: CSD_REPAIR_MILESTONES_PVT.Create_Repair_Milestone
4489: ( p_api_version => 1.0,
4490: p_commit => Fnd_Api.G_FALSE,
4491: p_init_msg_list => Fnd_Api.G_FALSE,
4492: p_validation_level => Csd_Process_Util.G_VALID_LEVEL_FULL,
4493: x_return_status => x_return_status,
4494: x_msg_count => x_msg_count,
4487: --debug('update_flow_status: Step 12');
4488: CSD_REPAIR_MILESTONES_PVT.Create_Repair_Milestone
4489: ( p_api_version => 1.0,
4490: p_commit => Fnd_Api.G_FALSE,
4491: p_init_msg_list => Fnd_Api.G_FALSE,
4492: p_validation_level => Csd_Process_Util.G_VALID_LEVEL_FULL,
4493: x_return_status => x_return_status,
4494: x_msg_count => x_msg_count,
4495: x_msg_data => x_msg_data,
4502: -- Api body ends here
4503:
4504: --debug('update_flow_status: Step 13');
4505: -- Standard check of p_commit.
4506: IF Fnd_Api.To_Boolean( p_commit ) THEN
4507: COMMIT WORK;
4508: END IF;
4509: --debug('update_flow_status: Step 14');
4510:
4518: 'Leaving Update_Flow_Status');
4519: END IF;
4520:
4521: EXCEPTION
4522: WHEN Fnd_Api.G_EXC_ERROR THEN
4523: ROLLBACK TO Update_Flow_Status;
4524: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4525:
4526: Fnd_Msg_Pub.Count_And_Get
4520:
4521: EXCEPTION
4522: WHEN Fnd_Api.G_EXC_ERROR THEN
4523: ROLLBACK TO Update_Flow_Status;
4524: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4525:
4526: Fnd_Msg_Pub.Count_And_Get
4527: (p_count => x_msg_count,
4528: p_data => x_msg_data );
4532: Fnd_Log.STRING(Fnd_Log.LEVEL_EXCEPTION, lc_mod_name,
4533: 'EXC_ERROR['||x_msg_data||']');
4534: END IF;
4535:
4536: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4537: ROLLBACK TO Update_Flow_Status;
4538: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4539:
4540: -- save message in fnd stack
4534: END IF;
4535:
4536: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4537: ROLLBACK TO Update_Flow_Status;
4538: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4539:
4540: -- save message in fnd stack
4541: IF Fnd_Msg_Pub.Check_Msg_Level
4542: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4561: END IF;
4562:
4563: WHEN OTHERS THEN
4564: ROLLBACK TO Update_Flow_Status;
4565: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4566:
4567: -- save message in fnd stack
4568: IF Fnd_Msg_Pub.Check_Msg_Level
4569: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4733: -- Standard Start of API savepoint
4734: SAVEPOINT Update_Repair_Type;
4735:
4736: -- Standard call to check for call compatibility.
4737: IF NOT Fnd_Api.Compatible_API_Call (lc_api_version,
4738: p_api_version,
4739: lc_api_name ,
4740: G_PKG_NAME )
4741: THEN
4738: p_api_version,
4739: lc_api_name ,
4740: G_PKG_NAME )
4741: THEN
4742: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4743: END IF;
4744:
4745: -- Initialize message list if p_init_msg_list is set to TRUE.
4746: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
4742: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4743: END IF;
4744:
4745: -- Initialize message list if p_init_msg_list is set to TRUE.
4746: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
4747: Fnd_Msg_Pub.initialize;
4748: END IF;
4749:
4750: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
4752: 'Entered Update_Repair_Type');
4753: END IF;
4754:
4755: -- Initialize API return status to success
4756: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4757:
4758: -- Api body starts
4759:
4760: -- Check the required parameters
4810: IF (p_to_repair_type_id IS NULL) THEN
4811: -- "Unable to update repair type. A new repair type is required for the transition."
4812: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_RT_TO_RT_REQD');
4813: Fnd_Msg_Pub.ADD;
4814: RAISE Fnd_Api.G_EXC_ERROR;
4815: END IF;
4816:
4817:
4818: -- Validate whether the set up exists for transition of
4823: -- "Unable to update repair type. The repair type transition
4824: -- is not valid for the current status."
4825: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_RT_TRANS_INVALID');
4826: Fnd_Msg_Pub.ADD;
4827: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4828: ELSIF (l_reason_required_flag = 'Y') AND (p_reason_code IS NULL) THEN
4829: -- "Unable to update repair type. A reason is required for the transition."
4830: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_RT_REASON_REQD');
4831: Fnd_Msg_Pub.ADD;
4829: -- "Unable to update repair type. A reason is required for the transition."
4830: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_RT_REASON_REQD');
4831: Fnd_Msg_Pub.ADD;
4832: --5362259, changing exeception from G_EXC_UPEXPECTED_ERROR to G_EXC_ERROR
4833: RAISE Fnd_Api.G_EXC_ERROR;
4834: END IF;
4835:
4836: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
4837: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_mod_name,
4846: -- Unable to update repair type. The user does not
4847: -- have access to update the repair type.
4848: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_RT_TRANS_NO_ACCESS');
4849: Fnd_Msg_Pub.ADD;
4850: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4851: END IF;
4852:
4853: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
4854: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_mod_name,
4871: -- "Unable to update repair type.
4872: -- Invalid reason selected for the transition."
4873: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_RT_INVD_REASON');
4874: Fnd_Msg_Pub.ADD;
4875: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4876: END IF;
4877: END IF;
4878:
4879: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
4902: -- updated the repair order. Please requery the
4903: -- original data and try again.
4904: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_RT_TRANS_OLD_VERSION');
4905: Fnd_Msg_Pub.ADD;
4906: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4907: END;
4908:
4909: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
4910: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_mod_name,
5019: -- Unable to update repair type. Adding repair activity
5020: -- process has failed.
5021: Fnd_Message.Set_Name('CSD', 'CSD_FLEX_RT_ACTIVITY_FAILED');
5022: Fnd_Msg_Pub.ADD;
5023: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5024: END IF;
5025:
5026: END IF;
5027:
5027:
5028: -- Api body ends here
5029:
5030: -- Standard check of p_commit.
5031: IF Fnd_Api.To_Boolean( p_commit ) THEN
5032: COMMIT WORK;
5033: END IF;
5034:
5035: -- Standard call to get message count and IF count is get message info.
5042: 'Leaving Update_Repair_Type');
5043: END IF;
5044:
5045: EXCEPTION
5046: WHEN Fnd_Api.G_EXC_ERROR THEN
5047: ROLLBACK TO Update_Repair_Type;
5048: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5049:
5050: Fnd_Msg_Pub.Count_And_Get
5044:
5045: EXCEPTION
5046: WHEN Fnd_Api.G_EXC_ERROR THEN
5047: ROLLBACK TO Update_Repair_Type;
5048: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5049:
5050: Fnd_Msg_Pub.Count_And_Get
5051: (p_count => x_msg_count,
5052: p_data => x_msg_data );
5056: Fnd_Log.STRING(Fnd_Log.LEVEL_EXCEPTION, lc_mod_name,
5057: 'EXC_ERROR['||x_msg_data||']');
5058: END IF;
5059:
5060: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5061: ROLLBACK TO Update_Repair_Type;
5062: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5063:
5064: -- save message in fnd stack
5058: END IF;
5059:
5060: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5061: ROLLBACK TO Update_Repair_Type;
5062: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5063:
5064: -- save message in fnd stack
5065: IF Fnd_Msg_Pub.Check_Msg_Level
5066: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5085: END IF;
5086:
5087: WHEN OTHERS THEN
5088: ROLLBACK TO Update_Repair_Type;
5089: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5090:
5091: -- save message in fnd stack
5092: IF Fnd_Msg_Pub.Check_Msg_Level
5093: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5229: -- Standard Start of API savepoint
5230: SAVEPOINT Launch_Flwsts_Wf;
5231:
5232: -- Standard call to check for call compatibility.
5233: IF NOT Fnd_Api.Compatible_API_Call (lc_api_version,
5234: p_api_version,
5235: lc_api_name,
5236: G_PKG_NAME)
5237: THEN
5234: p_api_version,
5235: lc_api_name,
5236: G_PKG_NAME)
5237: THEN
5238: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5239: END IF;
5240:
5241: -- Initialize message list if p_init_msg_list is set to TRUE.
5242: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
5238: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5239: END IF;
5240:
5241: -- Initialize message list if p_init_msg_list is set to TRUE.
5242: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
5243: Fnd_Msg_Pub.initialize;
5244: END IF;
5245:
5246: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5248: 'Entered Launch_Flwsts_Wf');
5249: END IF;
5250:
5251: -- Initialize API return status to success
5252: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5253:
5254: -- Api body starts
5255:
5256: -- Check the required parameters
5394:
5395: -- Api body ends here
5396:
5397: -- Standard check of p_commit.
5398: IF Fnd_Api.To_Boolean( p_commit ) THEN
5399: COMMIT WORK;
5400: END IF;
5401:
5402: -- Standard call to get message count and IF count is get message info.
5409: 'Leaving Launch_Flwsts_Wf');
5410: END IF;
5411:
5412: EXCEPTION
5413: WHEN Fnd_Api.G_EXC_ERROR THEN
5414: ROLLBACK TO Launch_Flwsts_Wf;
5415: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5416:
5417: Fnd_Msg_Pub.Count_And_Get
5411:
5412: EXCEPTION
5413: WHEN Fnd_Api.G_EXC_ERROR THEN
5414: ROLLBACK TO Launch_Flwsts_Wf;
5415: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5416:
5417: Fnd_Msg_Pub.Count_And_Get
5418: (p_count => x_msg_count,
5419: p_data => x_msg_data );
5423: Fnd_Log.STRING(Fnd_Log.LEVEL_EXCEPTION, lc_mod_name,
5424: 'EXC_ERROR['||x_msg_data||']');
5425: END IF;
5426:
5427: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5428: ROLLBACK TO Launch_Flwsts_Wf;
5429: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5430:
5431: -- save message in fnd stack
5425: END IF;
5426:
5427: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5428: ROLLBACK TO Launch_Flwsts_Wf;
5429: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5430:
5431: -- save message in fnd stack
5432: IF Fnd_Msg_Pub.Check_Msg_Level
5433: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5452: END IF;
5453:
5454: WHEN OTHERS THEN
5455: ROLLBACK TO Launch_Flwsts_Wf;
5456: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5457:
5458: -- save message in fnd stack
5459: IF Fnd_Msg_Pub.Check_Msg_Level
5460: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5537: -- Standard Start of API savepoint
5538: SAVEPOINT UPDATE_RO_STATUS_WEBSRVC_PVT;
5539:
5540: -- Standard call to check for call compatibility.
5541: IF NOT Fnd_Api.Compatible_API_Call (lc_api_version,
5542: p_api_version,
5543: lc_api_name,
5544: G_PKG_NAME)
5545: THEN
5542: p_api_version,
5543: lc_api_name,
5544: G_PKG_NAME)
5545: THEN
5546: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5547: END IF;
5548: --debug('security_group['||SYS_CONTEXT('FND','SECURITY_GROUP_ID')||']');
5549: --debug('resp_id['||SYS_CONTEXT('FND','RESP_ID')||']');
5550: --debug('resp_appl_id['||SYS_CONTEXT('FND','RESP_APPL_ID')||']');
5550: --debug('resp_appl_id['||SYS_CONTEXT('FND','RESP_APPL_ID')||']');
5551: --debug('operatingunit['||SYS_CONTEXT('FND','ORG_ID')||']');
5552:
5553: -- Initialize message list if p_init_msg_list is set to TRUE.
5554: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
5555: Fnd_Msg_Pub.initialize;
5556: END IF;
5557:
5558: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
5559: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_mod_name || '.BEGIN',
5560: 'Entered UPDATE_RO_STATUS_WEBSRVC');
5561: END IF;
5562:
5563: l_return_Status := Fnd_Api.G_RET_STS_SUCCESS;
5564:
5565: --debug('In plsql api to update ro status for web service['||to_char(p_repair_line_id)||']');
5566: csd_repairs_util.Check_WebSrvc_Security(
5567: p_repair_line_id => p_repair_line_id,
5566: csd_repairs_util.Check_WebSrvc_Security(
5567: p_repair_line_id => p_repair_line_id,
5568: x_return_status => l_return_status);
5569:
5570: IF(l_return_Status <> Fnd_Api.G_RET_STS_SUCCESS) THEN
5571: Fnd_Message.Set_Name('CSD', 'CSD_SECURITY_CHECK_FAILED');
5572: Fnd_Msg_Pub.ADD;
5573: RAISE Fnd_Api.G_EXC_ERROR;
5574: END IF;
5569:
5570: IF(l_return_Status <> Fnd_Api.G_RET_STS_SUCCESS) THEN
5571: Fnd_Message.Set_Name('CSD', 'CSD_SECURITY_CHECK_FAILED');
5572: Fnd_Msg_Pub.ADD;
5573: RAISE Fnd_Api.G_EXC_ERROR;
5574: END IF;
5575:
5576: l_repair_status_rec.repair_line_id := p_repair_line_id;
5577: l_repair_status_rec.repair_status := p_repair_status;
5584: --debug('calling update_ro_status private api');
5585: Csd_Repairs_Pvt.UPDATE_RO_STATUS(P_Api_Version => p_api_version,
5586: P_Commit => p_commit,
5587: P_Init_Msg_List => p_init_msg_list,
5588: P_Validation_Level => Fnd_Api.G_VALID_LEVEL_FULL,
5589: X_Return_Status => x_return_status,
5590: X_Msg_Count => x_msg_count,
5591: X_Msg_Data => x_msg_data,
5592: P_REPAIR_STATUS_REC => l_repair_status_rec,
5594: X_OBJECT_VERSION_NUMBER => l_object_Version_number);
5595: --
5596:
5597: -- Standard check of p_commit.
5598: IF Fnd_Api.To_Boolean( p_commit ) THEN
5599: COMMIT WORK;
5600: END IF;
5601:
5602: -- Standard call to get message count and IF count is get message info.
5609: 'Leaving UPDATE_RO_STATUS_WEBSRVC');
5610: END IF;
5611:
5612: EXCEPTION
5613: WHEN Fnd_Api.G_EXC_ERROR THEN
5614: ROLLBACK TO UPDATE_RO_STATUS_WEBSRVC_PVT;
5615: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5616:
5617: Fnd_Msg_Pub.Count_And_Get
5611:
5612: EXCEPTION
5613: WHEN Fnd_Api.G_EXC_ERROR THEN
5614: ROLLBACK TO UPDATE_RO_STATUS_WEBSRVC_PVT;
5615: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5616:
5617: Fnd_Msg_Pub.Count_And_Get
5618: (p_count => x_msg_count,
5619: p_data => x_msg_data );
5623: Fnd_Log.STRING(Fnd_Log.LEVEL_EXCEPTION, lc_mod_name,
5624: 'EXC_ERROR['||x_msg_data||']');
5625: END IF;
5626:
5627: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5628: ROLLBACK TO UPDATE_RO_STATUS_WEBSRVC_PVT;
5629: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5630:
5631: -- save message in fnd stack
5625: END IF;
5626:
5627: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5628: ROLLBACK TO UPDATE_RO_STATUS_WEBSRVC_PVT;
5629: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5630:
5631: -- save message in fnd stack
5632: IF Fnd_Msg_Pub.Check_Msg_Level
5633: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5652: END IF;
5653:
5654: WHEN OTHERS THEN
5655: ROLLBACK TO UPDATE_RO_STATUS_WEBSRVC_PVT;
5656: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5657:
5658: -- save message in fnd stack
5659: IF Fnd_Msg_Pub.Check_Msg_Level
5660: (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5705:
5706: Savepoint ro_status_bevent_savepoint;
5707:
5708: -- Initialize API return status to success
5709: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5710:
5711: -- Derive the Event Key
5712: Select csd_ro_status_bevent_key_s1.nextval into l_event_key from dual ;
5713:
5730: p_event_key => l_event_key,
5731: p_parameters => l_param_list);
5732:
5733: -- Standard check of p_commit.
5734: If FND_API.To_Boolean( p_commit ) then
5735: commit;
5736: End if;
5737:
5738: EXCEPTION
5736: End if;
5737:
5738: EXCEPTION
5739: When OTHERS then
5740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5741: Rollback To ro_status_bevent_savepoint;
5742: If FND_MSG_PUB.Check_Msg_Level
5743: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)then
5744: FND_MSG_PUB.Add_Exc_Msg
5833: x_msg_count => l_msg_count,
5834: x_msg_data => l_msg_data
5835: );
5836:
5837: IF NOT(l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5838:
5839: resultout := 'COMPLETE:ERROR';
5840:
5841: l_module_name := 'UPDATE_RO_STATUS';
5904: IF p_msg_count = 1 THEN
5905:
5906: IF l_msg is null then
5907: l_msg := fnd_msg_pub.get(p_msg_index => 1,
5908: p_encoded => FND_API.G_FALSE );
5909: ELSE
5910: l_next_msg := fnd_msg_pub.get(p_msg_index => 1,
5911: p_encoded => FND_API.G_FALSE );
5912:
5907: l_msg := fnd_msg_pub.get(p_msg_index => 1,
5908: p_encoded => FND_API.G_FALSE );
5909: ELSE
5910: l_next_msg := fnd_msg_pub.get(p_msg_index => 1,
5911: p_encoded => FND_API.G_FALSE );
5912:
5913: l_msg := substr(l_msg ||'-'||rtrim(l_next_msg),1,2000);
5914: END IF;
5915:
5918: FOR i in 1..p_msg_count LOOP
5919:
5920: IF l_msg is null THEN
5921: l_msg := fnd_msg_pub.get(p_msg_index => i,
5922: p_encoded => FND_API.G_FALSE );
5923: ELSE
5924: l_next_msg := fnd_msg_pub.get(p_msg_index => i,
5925: p_encoded => FND_API.G_FALSE );
5926:
5921: l_msg := fnd_msg_pub.get(p_msg_index => i,
5922: p_encoded => FND_API.G_FALSE );
5923: ELSE
5924: l_next_msg := fnd_msg_pub.get(p_msg_index => i,
5925: p_encoded => FND_API.G_FALSE );
5926:
5927: l_msg := substr(l_msg ||'-'||rtrim(l_next_msg),1,2000);
5928:
5929: END IF;