10: FUNCTION G_MISS_OE_AK_LINE_SCREDIT_REC
11: RETURN OE_AK_LINE_SCREDITS_V%ROWTYPE IS
12: l_rowtype_rec OE_AK_LINE_SCREDITS_V%ROWTYPE;
13: --
14: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
15: --
16: BEGIN
17:
18: l_rowtype_rec.ATTRIBUTE1 := FND_API.G_MISS_CHAR;
56: ( p_LINE_SCREDIT_rec IN OE_Order_PUB.LINE_SCREDIT_Rec_Type
57: , x_rowtype_rec IN OUT NOCOPY OE_AK_LINE_SCREDITS_V%ROWTYPE
58: ) IS
59: --
60: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
61: --
62: BEGIN
63:
64: x_rowtype_rec.ATTRIBUTE1 := p_line_scredit_rec.ATTRIBUTE1;
101: ( p_record IN OE_AK_LINE_SCREDITS_V%ROWTYPE
102: , x_api_rec IN OUT NOCOPY OE_Order_PUB.LINE_SCREDIT_Rec_Type
103: ) IS
104: --
105: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
106: --
107: BEGIN
108:
109: x_api_rec.ATTRIBUTE1 := p_record.ATTRIBUTE1;
151: l_index NUMBER :=0;
152: l_src_attr_tbl OE_GLOBALS.NUMBER_Tbl_Type;
153: l_dep_attr_tbl OE_GLOBALS.NUMBER_Tbl_Type;
154: --
155: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
156: --
157: BEGIN
158:
159: IF l_debug_level > 0 THEN
156: --
157: BEGIN
158:
159: IF l_debug_level > 0 THEN
160: oe_debug_pub.add( 'ENTERING OE_LINE_SCREDIT_UTIL.CLEAR_DEPENDENT_ATTR' , 1 ) ;
161: END IF;
162:
163: -- If attr_id is missing compare old and new records and for
164: -- every changed attribute clear its dependent fields.
499: END LOOP;
500: END IF;
501:
502: IF l_debug_level > 0 THEN
503: oe_debug_pub.add( 'EXITING OE_LINE_SCREDIT_UTIL.CLEAR_DEPENDENT_ATTR' , 1 ) ;
504: END IF;
505:
506: END Clear_Dependent_Attr;
507:
517: IS
518: l_Line_Scredit_rec OE_AK_LINE_SCREDITS_V%ROWTYPE;
519: l_old_Line_Scredit_rec OE_AK_LINE_SCREDITS_V%ROWTYPE;
520: --
521: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
522: --
523: BEGIN
524:
525: API_Rec_To_Rowtype_Rec(p_x_Line_Scredit_rec,l_Line_Scredit_rec);
550: l_out Varchar2(240);
551: l_status Varchar2(30);
552: --SG}
553: --
554: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
555: --
556: BEGIN
557:
558: IF l_debug_level > 0 THEN
555: --
556: BEGIN
557:
558: IF l_debug_level > 0 THEN
559: oe_debug_pub.add( 'ENTERING OE_LINE_SCREDIT_UTIL.APPLY_ATTRIBUTE_CHANGES' , 1 ) ;
560: END IF;
561:
562: IF NOT OE_GLOBALS.Equal(p_x_Line_Scredit_rec.attribute1,p_old_Line_Scredit_rec.attribute1)
563: THEN
793: --header not available in cache, load info to cache
794: IF p_x_line_Scredit_rec.line_Id IS NOT NULL THEN
795: OE_ORDER_CACHE.Load_Order_Header(p_x_line_Scredit_rec.Header_Id);
796: ELSE
797: oe_debug_pub.add(' Warning:Null header_id for header sales credits');
798: END IF;
799: END IF;
800:
801: IF OE_ORDER_CACHE.G_HEADER_REC.booked_flag = 'Y' THEN
807: --5692017
808: IF p_x_line_Scredit_rec.operation = oe_globals.g_opr_create AND
809: p_x_line_Scredit_rec.sales_group_id IS NOT NULL AND
810: nvl(p_x_line_Scredit_rec.sales_group_updated_flag,'N') = 'Y' THEN
811: oe_debug_pub.add('do not re-default sales group');
812: ELSE
813: --5692017
814: OE_Header_Scredit_Util.Get_Sales_Group(p_date => l_sg_date,
815: p_sales_rep_id =>p_x_line_Scredit_rec.salesrep_id,
830: --header not available in cache, load info to cache
831: IF p_x_line_Scredit_rec.Header_Id IS NOT NULL THEN
832: OE_ORDER_CACHE.Load_Order_Header(p_x_line_Scredit_rec.Header_Id);
833: ELSE
834: oe_debug_pub.add(' Warning:Null header_id for header sales credits');
835: END IF;
836: END IF;
837:
838: IF OE_ORDER_CACHE.G_HEADER_REC.booked_flag = 'Y' THEN
840: ELSE
841: l_sg_date := OE_ORDER_CACHE.G_HEADER_REC.ordered_date;
842: END IF;
843:
844: oe_debug_pub.add('Before getting sales group--line');
845: OE_Header_Scredit_Util.Get_Sales_Group(p_date => l_sg_date,
846: p_sales_rep_id =>p_x_line_Scredit_rec.salesrep_id,
847: x_sales_group_id=>p_x_line_Scredit_rec.sales_group_id,
848: x_return_status =>l_status);
864: NULL;
865: END IF;
866:
867: IF l_debug_level > 0 THEN
868: oe_debug_pub.add( 'EXITING OE_LINE_SCREDIT_UTIL.APPLY_ATTRIBUTE_CHANGES' , 1 ) ;
869: END IF;
870:
871: END Apply_Attribute_Changes;
872:
877: , p_old_Line_Scredit_rec IN OE_Order_PUB.Line_Scredit_Rec_Type
878: )
879: IS
880: --
881: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
882: --
883: BEGIN
884:
885: IF l_debug_level > 0 THEN
882: --
883: BEGIN
884:
885: IF l_debug_level > 0 THEN
886: oe_debug_pub.add( 'ENTERING OE_LINE_SCREDIT_UTIL.COMPLETE_RECORD' , 1 ) ;
887: END IF;
888:
889: IF p_x_Line_Scredit_rec.attribute1 = FND_API.G_MISS_CHAR THEN
890: p_x_Line_Scredit_rec.attribute1 := p_old_Line_Scredit_rec.attribute1;
1002: p_x_Line_Scredit_rec.wh_update_date := p_old_Line_Scredit_rec.wh_update_date;
1003: END IF;
1004:
1005: IF l_debug_level > 0 THEN
1006: oe_debug_pub.add( 'EXITING OE_LINE_SCREDIT_UTIL.COMPLETE_RECORD' , 1 ) ;
1007: END IF;
1008:
1009: END Complete_Record;
1010:
1014: ( p_x_Line_Scredit_rec IN OUT NOCOPY OE_Order_PUB.Line_Scredit_Rec_Type
1015: )
1016: IS
1017: --
1018: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1019: --
1020: BEGIN
1021:
1022: IF l_debug_level > 0 THEN
1019: --
1020: BEGIN
1021:
1022: IF l_debug_level > 0 THEN
1023: oe_debug_pub.add( 'ENTERING OE_LINE_SCREDIT_UTIL.CONVERT_MISS_TO_NULL' , 1 ) ;
1024: END IF;
1025:
1026: IF p_x_Line_Scredit_rec.attribute1 = FND_API.G_MISS_CHAR THEN
1027: p_x_Line_Scredit_rec.attribute1 := NULL;
1139: p_x_Line_Scredit_rec.wh_update_date := NULL;
1140: END IF;
1141:
1142: IF l_debug_level > 0 THEN
1143: oe_debug_pub.add( 'EXITING OE_LINE_SCREDIT_UTIL.CONVERT_MISS_TO_NULL' , 1 ) ;
1144: END IF;
1145:
1146: END Convert_Miss_To_Null;
1147:
1159: l_return_status VARCHAR2(1);
1160: /* jolin end*/
1161:
1162: --
1163: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1164: --
1165: BEGIN
1166:
1167: IF l_debug_level > 0 THEN
1164: --
1165: BEGIN
1166:
1167: IF l_debug_level > 0 THEN
1168: oe_debug_pub.add( 'ENTERING OE_LINE_SCREDIT_UTIL.UPDATE_ROW' , 1 ) ;
1169: END IF;
1170:
1171: SELECT lock_control
1172: INTO l_lock_control
1183:
1184: OE_LINE_SCREDIT_UTIL.Query_Row(p_sales_credit_id => p_line_scredit_rec.sales_credit_id,
1185: x_line_scredit_rec =>l_line_scredit_rec);
1186: IF l_debug_level > 0 THEN
1187: oe_debug_pub.add( 'BEFORE UPDATE , SALES_CREDIT_ID= '|| L_LINE_SCREDIT_REC.SALES_CREDIT_ID , 1 ) ;
1188: END IF;
1189: /* jolin end*/
1190:
1191: UPDATE OE_SALES_CREDITS
1232: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
1233: -- calling notification framework to update global picture
1234:
1235: IF l_debug_level > 0 THEN
1236: oe_debug_pub.add( 'AFTER UPDATE , OLD SALES CREDIT ID= ' || L_LINE_SCREDIT_REC.SALES_CREDIT_ID ) ;
1237: END IF;
1238: IF l_debug_level > 0 THEN
1239: oe_debug_pub.add( 'AFTER UPDATE , NEW SALES CREDIT ID= ' || P_LINE_SCREDIT_REC.SALES_CREDIT_ID ) ;
1240: END IF;
1235: IF l_debug_level > 0 THEN
1236: oe_debug_pub.add( 'AFTER UPDATE , OLD SALES CREDIT ID= ' || L_LINE_SCREDIT_REC.SALES_CREDIT_ID ) ;
1237: END IF;
1238: IF l_debug_level > 0 THEN
1239: oe_debug_pub.add( 'AFTER UPDATE , NEW SALES CREDIT ID= ' || P_LINE_SCREDIT_REC.SALES_CREDIT_ID ) ;
1240: END IF;
1241:
1242: OE_ORDER_UTIL.Update_Global_Picture
1243: (p_Upd_New_Rec_If_Exists =>True,
1247: x_index => l_index,
1248: x_return_status => l_return_status);
1249:
1250: IF l_debug_level > 0 THEN
1251: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_LINE_SCREDIT_UTIL.UPDATE_ROW IS: ' || L_RETURN_STATUS ) ;
1252: END IF;
1253:
1254: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1255: IF l_debug_level > 0 THEN
1252: END IF;
1253:
1254: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1255: IF l_debug_level > 0 THEN
1256: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
1257: END IF;
1258: IF l_debug_level > 0 THEN
1259: oe_debug_pub.add( 'EXITING OE_LINE_SCREDIT_UTIL.UPDATE_ROW' , 1 ) ;
1260: END IF;
1255: IF l_debug_level > 0 THEN
1256: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
1257: END IF;
1258: IF l_debug_level > 0 THEN
1259: oe_debug_pub.add( 'EXITING OE_LINE_SCREDIT_UTIL.UPDATE_ROW' , 1 ) ;
1260: END IF;
1261: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1262: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1263: IF l_debug_level > 0 THEN
1260: END IF;
1261: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1262: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1263: IF l_debug_level > 0 THEN
1264: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_LINE_SCREDIT_UTIL.UPDATE_ROW' ) ;
1265: END IF;
1266: IF l_debug_level > 0 THEN
1267: oe_debug_pub.add( 'EXITING OE_LINE_SCREDIT_UTIL.UPDATE_ROW' , 1 ) ;
1268: END IF;
1263: IF l_debug_level > 0 THEN
1264: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_LINE_SCREDIT_UTIL.UPDATE_ROW' ) ;
1265: END IF;
1266: IF l_debug_level > 0 THEN
1267: oe_debug_pub.add( 'EXITING OE_LINE_SCREDIT_UTIL.UPDATE_ROW' , 1 ) ;
1268: END IF;
1269: RAISE FND_API.G_EXC_ERROR;
1270: END IF;
1271: -- notification framework end
1272: END IF; /* code set is pack H or higher */
1273: /* jolin end*/
1274:
1275: IF l_debug_level > 0 THEN
1276: oe_debug_pub.add( 'EXITING OE_LINE_SCREDIT_UTIL.UPDATE_ROW' , 1 ) ;
1277: END IF;
1278:
1279: EXCEPTION
1280:
1305: l_return_status VARCHAR2(1);
1306: /* jolin end*/
1307:
1308: --
1309: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1310: --
1311: BEGIN
1312:
1313: IF l_debug_level > 0 THEN
1310: --
1311: BEGIN
1312:
1313: IF l_debug_level > 0 THEN
1314: oe_debug_pub.add( 'ENTERING OE_LINE_SCREDIT_UTIL.INSERT_ROW' , 1 ) ;
1315: END IF;
1316:
1317: INSERT INTO OE_SALES_CREDITS
1318: ( ATTRIBUTE1
1403: x_index => l_index,
1404: x_return_status => l_return_status);
1405:
1406: IF l_debug_level > 0 THEN
1407: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_LINE_SCREDIT_UTIL.INSERT_ROW IS: ' || L_RETURN_STATUS ) ;
1408: END IF;
1409: IF l_debug_level > 0 THEN
1410: oe_debug_pub.add( 'RETURNED INDEX IS: ' || L_INDEX , 1 ) ;
1411: END IF;
1406: IF l_debug_level > 0 THEN
1407: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_LINE_SCREDIT_UTIL.INSERT_ROW IS: ' || L_RETURN_STATUS ) ;
1408: END IF;
1409: IF l_debug_level > 0 THEN
1410: oe_debug_pub.add( 'RETURNED INDEX IS: ' || L_INDEX , 1 ) ;
1411: END IF;
1412:
1413: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1414: IF l_debug_level > 0 THEN
1411: END IF;
1412:
1413: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1414: IF l_debug_level > 0 THEN
1415: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
1416: END IF;
1417: IF l_debug_level > 0 THEN
1418: oe_debug_pub.add( 'EXITING OE_LINE_SCREDIT_UTIL.INSERT_ROW' , 1 ) ;
1419: END IF;
1414: IF l_debug_level > 0 THEN
1415: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
1416: END IF;
1417: IF l_debug_level > 0 THEN
1418: oe_debug_pub.add( 'EXITING OE_LINE_SCREDIT_UTIL.INSERT_ROW' , 1 ) ;
1419: END IF;
1420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1421: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1422: IF l_debug_level > 0 THEN
1419: END IF;
1420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1421: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1422: IF l_debug_level > 0 THEN
1423: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_LINE_SCREDIT_UTIL.INSERT_ROW' ) ;
1424: END IF;
1425: IF l_debug_level > 0 THEN
1426: oe_debug_pub.add( 'EXITING OE_LINE_SCREDIT_UTIL.INSERT_ROW' , 1 ) ;
1427: END IF;
1422: IF l_debug_level > 0 THEN
1423: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_LINE_SCREDIT_UTIL.INSERT_ROW' ) ;
1424: END IF;
1425: IF l_debug_level > 0 THEN
1426: oe_debug_pub.add( 'EXITING OE_LINE_SCREDIT_UTIL.INSERT_ROW' , 1 ) ;
1427: END IF;
1428: RAISE FND_API.G_EXC_ERROR;
1429: END IF;
1430: -- notification framework end
1431: END IF; /* code set is pack H or higher */
1432: /* jolin end*/
1433:
1434: IF l_debug_level > 0 THEN
1435: oe_debug_pub.add( 'EXITING OE_LINE_SCREDIT_UTIL.INSERT_ROW' , 1 ) ;
1436: END IF;
1437:
1438: EXCEPTION
1439:
1472: SELECT sales_credit_id
1473: FROM OE_SALES_CREDITS
1474: WHERE LINE_ID = p_line_id;
1475: --
1476: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1477: --
1478: BEGIN
1479:
1480: IF l_debug_level > 0 THEN
1477: --
1478: BEGIN
1479:
1480: IF l_debug_level > 0 THEN
1481: oe_debug_pub.add( 'ENTERING OE_LINE_SCREDIT_UTIL.DELETE_ROW' , 1 ) ;
1482: END IF;
1483:
1484: IF p_line_id <> FND_API.G_MISS_NUM
1485: THEN
1492: OE_LINE_SCREDIT_UTIL.Query_Row(p_sales_credit_id => l_scr.sales_credit_id,
1493: x_line_scredit_rec =>l_line_scredit_rec);
1494:
1495: IF l_debug_level > 0 THEN
1496: oe_debug_pub.add( 'IN DELETE ROW , SALES_CREDIT_ID= '|| L_SCR.SALES_CREDIT_ID , 1 ) ;
1497: END IF;
1498:
1499: /* Set the operation on the record so that globals are updated as well */
1500: l_new_line_scredit_rec.operation := OE_GLOBALS.G_OPR_DELETE;
1508: x_index => l_index,
1509: x_return_status => l_return_status);
1510:
1511: IF l_debug_level > 0 THEN
1512: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_LINE_SCREDIT_UTIL.DELETE_ROW IS: ' || L_RETURN_STATUS ) ;
1513: END IF;
1514:
1515: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1516: IF l_debug_level > 0 THEN
1513: END IF;
1514:
1515: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1516: IF l_debug_level > 0 THEN
1517: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
1518: END IF;
1519: IF l_debug_level > 0 THEN
1520: oe_debug_pub.add( 'EXITING OE_LINE_SCREDIT_UTIL.DELETE_ROW' , 1 ) ;
1521: END IF;
1516: IF l_debug_level > 0 THEN
1517: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
1518: END IF;
1519: IF l_debug_level > 0 THEN
1520: oe_debug_pub.add( 'EXITING OE_LINE_SCREDIT_UTIL.DELETE_ROW' , 1 ) ;
1521: END IF;
1522: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1523: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1524: IF l_debug_level > 0 THEN
1521: END IF;
1522: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1523: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1524: IF l_debug_level > 0 THEN
1525: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_LINE_SCREDIT_UTIL.DELETE_ROW' ) ;
1526: END IF;
1527: IF l_debug_level > 0 THEN
1528: oe_debug_pub.add( 'EXITING OE_LINE_SCREDIT_UTIL.DELETE_ROW' , 1 ) ;
1529: END IF;
1524: IF l_debug_level > 0 THEN
1525: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_LINE_SCREDIT_UTIL.DELETE_ROW' ) ;
1526: END IF;
1527: IF l_debug_level > 0 THEN
1528: oe_debug_pub.add( 'EXITING OE_LINE_SCREDIT_UTIL.DELETE_ROW' , 1 ) ;
1529: END IF;
1530: RAISE FND_API.G_EXC_ERROR;
1531: END IF;
1532:
1569: OE_LINE_SCREDIT_UTIL.Query_Row(p_sales_credit_id => p_sales_credit_id,
1570: x_line_scredit_rec =>l_line_scredit_rec);
1571:
1572: IF l_debug_level > 0 THEN
1573: oe_debug_pub.add( 'IN DELETE ROW , LINE_ID IS G_MISS_NUM , SALES_CREDIT_ID= '|| P_SALES_CREDIT_ID , 1 ) ;
1574: END IF;
1575:
1576: /* Set the operation on the record so that globals are updated as well */
1577: l_new_line_scredit_rec.operation := OE_GLOBALS.G_OPR_DELETE;
1585: x_index => l_index,
1586: x_return_status => l_return_status);
1587:
1588: IF l_debug_level > 0 THEN
1589: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_LINE_SCREDIT_UTIL.DELETE_ROW IS: ' || L_RETURN_STATUS ) ;
1590: END IF;
1591:
1592: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1593: IF l_debug_level > 0 THEN
1590: END IF;
1591:
1592: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1593: IF l_debug_level > 0 THEN
1594: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
1595: END IF;
1596: IF l_debug_level > 0 THEN
1597: oe_debug_pub.add( 'EXITING OE_LINE_SCREDIT_UTIL.DELETE_ROW' , 1 ) ;
1598: END IF;
1593: IF l_debug_level > 0 THEN
1594: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
1595: END IF;
1596: IF l_debug_level > 0 THEN
1597: oe_debug_pub.add( 'EXITING OE_LINE_SCREDIT_UTIL.DELETE_ROW' , 1 ) ;
1598: END IF;
1599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1600: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1601: IF l_debug_level > 0 THEN
1598: END IF;
1599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1600: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1601: IF l_debug_level > 0 THEN
1602: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_LINE_SCREDIT_UTIL.DELETE_ROW' ) ;
1603: END IF;
1604: IF l_debug_level > 0 THEN
1605: oe_debug_pub.add( 'EXITING OE_LINE_SCREDIT_UTIL.DELETE_ROW' , 1 ) ;
1606: END IF;
1601: IF l_debug_level > 0 THEN
1602: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_LINE_SCREDIT_UTIL.DELETE_ROW' ) ;
1603: END IF;
1604: IF l_debug_level > 0 THEN
1605: oe_debug_pub.add( 'EXITING OE_LINE_SCREDIT_UTIL.DELETE_ROW' , 1 ) ;
1606: END IF;
1607: RAISE FND_API.G_EXC_ERROR;
1608: END IF;
1609:
1637: ;
1638: END IF;
1639:
1640: IF l_debug_level > 0 THEN
1641: oe_debug_pub.add( 'EXITING OE_LINE_SCREDIT_UTIL.DELETE_ROW' , 1 ) ;
1642: END IF;
1643:
1644: EXCEPTION
1645:
1665: )
1666: IS
1667: l_Line_Scredit_tbl OE_Order_PUB.Line_Scredit_Tbl_Type;
1668: --
1669: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1670: --
1671: BEGIN
1672:
1673: IF l_debug_level > 0 THEN
1670: --
1671: BEGIN
1672:
1673: IF l_debug_level > 0 THEN
1674: oe_debug_pub.add( 'ENTERING OE_LINE_SCREDIT_UTIL.QUERY_ROW' , 1 ) ;
1675: END IF;
1676:
1677: Query_Rows
1678: ( p_sales_credit_id => p_sales_credit_id
1815: l_implicit_rec l_line_scredit_csr_s%ROWTYPE;
1816: l_entity NUMBER;
1817: l_count NUMBER;
1818: --
1819: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1820: --
1821: BEGIN
1822:
1823: IF
1932:
1933: -- Return fetched table
1934:
1935: IF l_debug_level > 0 THEN
1936: oe_debug_pub.add( 'EXITING OE_LINE_SCREDIT_UTIL.QUERY_ROWS' , 1 ) ;
1937: END IF;
1938:
1939:
1940: EXCEPTION
1970: IS
1971: l_sales_credit_id NUMBER;
1972: l_lock_control NUMBER;
1973: --
1974: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1975: --
1976: BEGIN
1977:
1978: IF l_debug_level > 0 THEN
1975: --
1976: BEGIN
1977:
1978: IF l_debug_level > 0 THEN
1979: oe_debug_pub.add( 'ENTERING OE_LINE_SCREDIT_UTIL.LOCK_ROW' , 1 ) ;
1980: END IF;
1981:
1982: SAVEPOINT Lock_Row;
1983:
1997: WHERE sales_credit_id = l_sales_credit_id
1998: FOR UPDATE NOWAIT;
1999:
2000: IF l_debug_level > 0 THEN
2001: oe_debug_pub.add( 'SELECTED FOR UPDATE' , 1 ) ;
2002: END IF;
2003:
2004: OE_Line_Scredit_Util.Query_Row
2005: (p_sales_credit_id => l_sales_credit_id
2050:
2051: END IF;
2052:
2053: IF l_debug_level > 0 THEN
2054: oe_debug_pub.add( 'EXITING OE_LINE_SCREDIT_UTIL.LOCK_ROW' , 1 ) ;
2055: END IF;
2056:
2057: EXCEPTION
2058:
2112: FOR UPDATE NOWAIT;
2113:
2114: l_sales_credit_id NUMBER;
2115: --
2116: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2117: --
2118: BEGIN
2119:
2120: IF l_debug_level > 0 THEN
2117: --
2118: BEGIN
2119:
2120: IF l_debug_level > 0 THEN
2121: oe_debug_pub.add( 'ENTERING OE_LINE_SCREDITS_UTIL.LOCK_ROWS' , 1 ) ;
2122: END IF;
2123:
2124: IF (p_sales_credit_id IS NOT NULL AND
2125: p_sales_credit_id <> FND_API.G_MISS_NUM) AND
2189:
2190: x_return_status := FND_API.G_RET_STS_SUCCESS;
2191:
2192: IF l_debug_level > 0 THEN
2193: oe_debug_pub.add( 'EXITING OE_LINE_SCREDITS_UTIL.LOCK_ROWS' , 1 ) ;
2194: END IF;
2195:
2196: EXCEPTION
2197: WHEN NO_DATA_FOUND THEN
2236: ) RETURN OE_Order_PUB.Line_Scredit_Val_Rec_Type
2237: IS
2238: l_Line_Scredit_val_rec OE_Order_PUB.Line_Scredit_Val_Rec_Type;
2239: --
2240: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2241: --
2242: BEGIN
2243:
2244: IF (p_Line_Scredit_rec.salesrep_id IS NULL OR
2268: Exception
2269: When no_data_found Then
2270: l_line_Scredit_val_rec.sales_group:='Group name not available';
2271: When others then
2272: Oe_Debug_Pub.add('OEXULSCB.pls--get_values:'||SQLERRM);
2273: End;
2274: End If;
2275: --SG}
2276:
2285: , p_Line_Scredit_val_rec IN OE_Order_PUB.Line_Scredit_Val_Rec_Type
2286: )
2287: IS
2288: --
2289: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2290: --
2291: BEGIN
2292:
2293: -- initialize return_status.
2389:
2390: l_scredit_type_id number;
2391:
2392: --
2393: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2394: --
2395: BEGIN
2396:
2397: IF l_debug_level > 0 THEN
2394: --
2395: BEGIN
2396:
2397: IF l_debug_level > 0 THEN
2398: oe_debug_pub.add( 'ENTER LINE CREATE CREDITS' ) ;
2399: END IF;
2400: IF l_debug_level > 0 THEN
2401: oe_debug_pub.add( 'HEADER:' ||P_LINE_REC.HEADER_ID ) ;
2402: END IF;
2397: IF l_debug_level > 0 THEN
2398: oe_debug_pub.add( 'ENTER LINE CREATE CREDITS' ) ;
2399: END IF;
2400: IF l_debug_level > 0 THEN
2401: oe_debug_pub.add( 'HEADER:' ||P_LINE_REC.HEADER_ID ) ;
2402: END IF;
2403: IF NOT OE_GLOBALS.EQUAL(G_HEADER_ID,p_line_rec.header_id) or
2404: G_SALESREP_ID IS NULL Then
2405: --added for bug 4200055
2428:
2429: l_create_flag := TRUE;
2430:
2431: IF l_debug_level > 0 THEN
2432: oe_debug_pub.add( 'IN CREATE' ) ;
2433: END IF;
2434: ELSIF (p_line_rec.operation = oe_globals.g_opr_update AND
2435: NOT OE_GLOBALS.EQUAL( p_line_rec.salesrep_id,
2436: p_old_line_rec.salesrep_id)) THEN
2434: ELSIF (p_line_rec.operation = oe_globals.g_opr_update AND
2435: NOT OE_GLOBALS.EQUAL( p_line_rec.salesrep_id,
2436: p_old_line_rec.salesrep_id)) THEN
2437: IF l_debug_level > 0 THEN
2438: oe_debug_pub.add( 'IN OPERATION UPDATE ' ) ;
2439: END IF;
2440:
2441: IF (p_old_line_rec.salesrep_id IS NULL OR
2442: p_old_line_rec.salesrep_id = FND_API.G_MISS_NUM)
2441: IF (p_old_line_rec.salesrep_id IS NULL OR
2442: p_old_line_rec.salesrep_id = FND_API.G_MISS_NUM)
2443: THEN
2444: IF l_debug_level > 0 THEN
2445: oe_debug_pub.add( 'IN CREATE FOR UPDATE OPERATION' ) ;
2446: END IF;
2447: -- Added for bug 6494279 start
2448:
2449: open C_LSC_COUNT;
2495: close C_SCRTYPE;
2496:
2497: /*Added to fix bug 6445046 START*/
2498: IF l_scredit_Type_id IS NULL THEN
2499: oe_debug_pub.add( 'Row in the sales credit table is being removed as the sales peason is removed.' ) ;
2500: OE_Line_Scredit_Util.Delete_Row
2501: ( p_sales_credit_id => l_sales_credit_id,
2502: p_line_id => p_line_rec.line_id
2503: );
2521: AND l_sales_credit_id IS NOT NULL then -- Added condition for Bug 6445046
2522:
2523:
2524: IF l_debug_level > 0 THEN
2525: oe_debug_pub.add( 'CREDIT COUNT IS ZERO ' ) ;
2526: END IF;
2527: l_create_flag := TRUE;
2528:
2529: End if;
2531: END IF;
2532:
2533: IF l_create_flag THEN
2534: IF l_debug_level > 0 THEN
2535: oe_debug_pub.add( 'SETTUBG CREDIT FOR CREATE ' ) ;
2536: END IF;
2537: open C_SCRTYPE;
2538: fetch C_SCRTYPE into l_scredit_Type_id;
2539: close C_SCRTYPE;
2549: END IF;
2550:
2551: IF l_create_flag OR L_update_flag THEN
2552: IF l_debug_level > 0 THEN
2553: oe_debug_pub.add( 'BEFORE CALLING PROCESS ORDER' ) ;
2554: END IF;
2555: IF l_debug_level > 0 THEN
2556: oe_debug_pub.add( 'HEADER_ID:' || L_LINE_SCREDIT_TBL ( 1 ) .HEADER_ID ) ;
2557: END IF;
2552: IF l_debug_level > 0 THEN
2553: oe_debug_pub.add( 'BEFORE CALLING PROCESS ORDER' ) ;
2554: END IF;
2555: IF l_debug_level > 0 THEN
2556: oe_debug_pub.add( 'HEADER_ID:' || L_LINE_SCREDIT_TBL ( 1 ) .HEADER_ID ) ;
2557: END IF;
2558: IF l_debug_level > 0 THEN
2559: oe_debug_pub.add( 'LINE_ID:' || L_LINE_SCREDIT_TBL ( 1 ) .LINE_ID ) ;
2560: END IF;
2555: IF l_debug_level > 0 THEN
2556: oe_debug_pub.add( 'HEADER_ID:' || L_LINE_SCREDIT_TBL ( 1 ) .HEADER_ID ) ;
2557: END IF;
2558: IF l_debug_level > 0 THEN
2559: oe_debug_pub.add( 'LINE_ID:' || L_LINE_SCREDIT_TBL ( 1 ) .LINE_ID ) ;
2560: END IF;
2561: IF l_debug_level > 0 THEN
2562: oe_debug_pub.add( 'SALESREPID:' || L_LINE_SCREDIT_TBL ( 1 ) .SALESREP_ID ) ;
2563: END IF;
2558: IF l_debug_level > 0 THEN
2559: oe_debug_pub.add( 'LINE_ID:' || L_LINE_SCREDIT_TBL ( 1 ) .LINE_ID ) ;
2560: END IF;
2561: IF l_debug_level > 0 THEN
2562: oe_debug_pub.add( 'SALESREPID:' || L_LINE_SCREDIT_TBL ( 1 ) .SALESREP_ID ) ;
2563: END IF;
2564: IF l_debug_level > 0 THEN
2565: oe_debug_pub.add( 'SALESCREDIT_ID:' || L_LINE_SCREDIT_TBL ( 1 ) .SALES_CREDIT_ID ) ;
2566: END IF;
2561: IF l_debug_level > 0 THEN
2562: oe_debug_pub.add( 'SALESREPID:' || L_LINE_SCREDIT_TBL ( 1 ) .SALESREP_ID ) ;
2563: END IF;
2564: IF l_debug_level > 0 THEN
2565: oe_debug_pub.add( 'SALESCREDIT_ID:' || L_LINE_SCREDIT_TBL ( 1 ) .SALES_CREDIT_ID ) ;
2566: END IF;
2567: IF l_debug_level > 0 THEN
2568: oe_debug_pub.add( 'SALESCREDIT_ID:' || L_LINE_SCREDIT_TBL ( 1 ) .SALES_CREDIT_TYPE_ID ) ;
2569: END IF;
2564: IF l_debug_level > 0 THEN
2565: oe_debug_pub.add( 'SALESCREDIT_ID:' || L_LINE_SCREDIT_TBL ( 1 ) .SALES_CREDIT_ID ) ;
2566: END IF;
2567: IF l_debug_level > 0 THEN
2568: oe_debug_pub.add( 'SALESCREDIT_ID:' || L_LINE_SCREDIT_TBL ( 1 ) .SALES_CREDIT_TYPE_ID ) ;
2569: END IF;
2570:
2571: l_control_rec.process := FALSE;
2572: l_control_rec.controlled_operation := TRUE;
2601: , x_index => l_notify_index
2602: , x_return_status => l_return_status);
2603:
2604: IF l_debug_level > 0 THEN
2605: oe_debug_pub.add( 'UPDATE_GLOBAL RET_STATUS FOR LINE_ID '||L_LINE_SCREDIT_TBL ( 1 ) .LINE_ID ||' IS: ' || L_RETURN_STATUS , 1 ) ;
2606: END IF;
2607: IF l_debug_level > 0 THEN
2608: oe_debug_pub.add( 'UPDATE_GLOBAL INDEX FOR LINE_ID '||L_LINE_SCREDIT_TBL ( 1 ) .LINE_ID ||' IS: ' || L_NOTIFY_INDEX , 1 ) ;
2609: END IF;
2604: IF l_debug_level > 0 THEN
2605: oe_debug_pub.add( 'UPDATE_GLOBAL RET_STATUS FOR LINE_ID '||L_LINE_SCREDIT_TBL ( 1 ) .LINE_ID ||' IS: ' || L_RETURN_STATUS , 1 ) ;
2606: END IF;
2607: IF l_debug_level > 0 THEN
2608: oe_debug_pub.add( 'UPDATE_GLOBAL INDEX FOR LINE_ID '||L_LINE_SCREDIT_TBL ( 1 ) .LINE_ID ||' IS: ' || L_NOTIFY_INDEX , 1 ) ;
2609: END IF;
2610:
2611: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2612: RAISE FND_API.G_EXC_ERROR;
2641: END IF; -- if l_create_flag or l_update_flag
2642:
2643: END IF; -- Salesrep id not equal
2644: IF l_debug_level > 0 THEN
2645: oe_debug_pub.add( 'EXIT CREATE CREDITS' ) ;
2646: END IF;
2647:
2648: EXCEPTION
2649:
2667: )IS
2668: /*local */
2669: l_return_status varchar2(30);
2670: --
2671: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2672: --
2673: BEGIN
2674:
2675: --11.5.10 Versioning/Audit Trail updates
2682: OE_GLOBALS.G_REASON_COMMENTS := p_x_line_scredit_rec.change_comments;
2683: OE_GLOBALS.G_CAPTURED_REASON := 'Y';
2684: ELSE
2685: IF l_debug_level > 0 THEN
2686: OE_DEBUG_PUB.add('Reason code for versioning missing', 1);
2687: END IF;
2688: IF OE_GLOBALS.G_UI_FLAG THEN
2689: raise FND_API.G_EXC_ERROR;
2690: END IF;
2692: END IF;
2693:
2694: --log delayed request
2695: IF l_debug_level > 0 THEN
2696: oe_debug_pub.add('log versioning request',1);
2697: END IF;
2698: OE_Delayed_Requests_Pvt.Log_Request(p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2699: p_entity_id => p_x_line_scredit_rec.header_id,
2700: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE_SCREDIT,
2706: IF (p_x_line_scredit_rec.operation = OE_GLOBALS.G_OPR_UPDATE) then
2707:
2708: IF OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG='Y' then
2709: IF l_debug_level > 0 THEN
2710: oe_debug_pub.add( 'OEXULSCB: AUDIT TRAIL - CHANGE REQUIRES REASON' , 2 ) ;
2711: END IF;
2712: IF (p_x_line_scredit_rec.change_reason IS NULL OR
2713: p_x_line_scredit_rec.change_reason = FND_API.G_MISS_CHAR OR
2714: NOT OE_VALIDATE.Change_Reason_Code(p_x_line_Scredit_rec.Change_Reason)) THEN
2713: p_x_line_scredit_rec.change_reason = FND_API.G_MISS_CHAR OR
2714: NOT OE_VALIDATE.Change_Reason_Code(p_x_line_Scredit_rec.Change_Reason)) THEN
2715: IF OE_GLOBALS.G_DEFAULT_REASON THEN
2716: if l_debug_level > 0 then
2717: oe_debug_pub.add('Defaulting Audit Reason for Line Sales Credit', 1);
2718: end if;
2719: p_x_line_scredit_rec.change_reason := 'SYSTEM';
2720: ELSE
2721: IF l_debug_level > 0 THEN
2718: end if;
2719: p_x_line_scredit_rec.change_reason := 'SYSTEM';
2720: ELSE
2721: IF l_debug_level > 0 THEN
2722: oe_debug_pub.add( 'Reason code for change is missing or invalid ' , 1 ) ;
2723: END IF;
2724: fnd_message.set_name('ONT','OE_AUDIT_REASON_RQD');
2725: fnd_message.set_token('OBJECT','LINE SALES CREDIT');
2726: oe_msg_pub.add;
2744: x_return_status => l_return_status);
2745: OE_GLOBALS.G_AUDIT_HISTORY_RQD_FLAG := 'N';
2746: ELSE
2747: IF l_debug_level > 0 THEN
2748: oe_debug_pub.add( 'OEXULSCB:CALLING OE_ORDER_CHG_PVT.RECORDLSCREDITHIST' , 2 ) ;
2749: END IF;
2750:
2751: OE_CHG_ORDER_PVT.RecordLScreditHist
2752: (p_line_scredit_id => p_x_line_scredit_rec.sales_credit_id,
2761: END IF;
2762: END IF;
2763: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2764: IF l_debug_level > 0 THEN
2765: oe_debug_pub.add( 'INSERTING LINE SALES CREDIT HISTORY CAUSED ERROR ' , 1 ) ;
2766: END IF;
2767: if l_return_status = FND_API.G_RET_STS_ERROR then
2768: raise FND_API.G_EXC_ERROR;
2769: else