514: ||', Percentage = '||TO_CHAR(x_percentage)
515: ||', Status = '||x_status);
516: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
517: END IF;
518: APP_EXCEPTION.RAISE_EXCEPTION;
519:
520: END Insert_Percentage_Alloc_Rule;
521:
522:
905: ||to_char(X_Invoice_ID)
906: ||', Invoice Line Number = '||to_char(X_chrg_Line_Number));
907: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
908: END IF;
909: APP_EXCEPTION.RAISE_EXCEPTION;
910: END;
911: END IF;
912:
913: -------------------------------------------------------------
972: ||', Invoice Line Number = '
973: ||to_char(X_chrg_Line_Number));
974: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
975: END IF;
976: APP_EXCEPTION.RAISE_EXCEPTION;
977: END;
978:
979: ELSE
980:
1028: ||', Invoice Line Number = '
1029: ||to_char(X_chrg_Line_Number));
1030: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1031: END IF;
1032: APP_EXCEPTION.RAISE_EXCEPTION;
1033: END;
1034: END IF;
1035: END IF;
1036:
1077: ||to_char(X_Invoice_ID)
1078: ||', Invoice Line Number = '||to_char(X_chrg_Line_Number));
1079: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1080: END IF;
1081: APP_EXCEPTION.RAISE_EXCEPTION;
1082: END;
1083: ELSE
1084: BEGIN
1085: SELECT SUM(amount)
1118: ||to_char(X_Invoice_ID)
1119: ||', Invoice Line Number = '||to_char(X_chrg_Line_Number));
1120: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1121: END IF;
1122: APP_EXCEPTION.RAISE_EXCEPTION;
1123: END;
1124: END IF;
1125: END IF;
1126:
1195: || ' X_allocated_total_rtot_db (OUT) ='
1196: ||to_char(X_allocated_total_rtot_db));
1197: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1198: END IF;
1199: APP_EXCEPTION.RAISE_EXCEPTION;
1200:
1201: END Select_Item_Summary;
1202:
1203:
1299: ||to_char(X_Invoice_ID) ||', Invoice Line Number = '
1300: ||to_char(X_chrg_Invoice_Line_Number));
1301: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1302: END IF;
1303: APP_EXCEPTION.RAISE_EXCEPTION;
1304: END;
1305:
1306: END IF; --Allocation_flag
1307:
1332: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||to_char(X_Invoice_ID)
1333: ||', Invoice Line Number = '||to_char(X_chrg_Invoice_Line_Number));
1334: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1335: END IF;
1336: APP_EXCEPTION.RAISE_EXCEPTION;
1337: END;
1338:
1339: END IF;
1340: END IF;
1370: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||to_char(X_Invoice_ID)
1371: ||', Invoice Line Number = '||to_char(X_chrg_Invoice_Line_Number));
1372: FND_MESSAGE.SET_TOKEN('DEBUG_INFO','Inserting Allocation Rule Lines');
1373: END IF;
1374: APP_EXCEPTION.RAISE_EXCEPTION;
1375: END;
1376: END IF; -- allocaton_flag
1377:
1378: END IF; -- If other rule line exists
1446: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1447: 'X_invoiceid ='||to_char(X_invoice_id));
1448: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1449: end if;
1450: APP_EXCEPTION.RAISE_EXCEPTION;
1451:
1452: END form_startup;
1453:
1454:
1506: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1507: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1508: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1509: END IF;
1510: APP_EXCEPTION.RAISE_EXCEPTION;
1511: END;
1512:
1513:
1514:
1555: IF (C%NOTFOUND) THEN
1556: debug_info := 'Close cursor C - ROW NOTFOUND';
1557: CLOSE C;
1558: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
1559: APP_EXCEPTION.Raise_Exception;
1560: END IF;
1561: --------------------------------------------------------------
1562: debug_info := 'Close cursor C';
1563: --------------------------------------------------------------
1585: ) then
1586: return;
1587: else
1588: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
1589: APP_EXCEPTION.Raise_Exception;
1590: end if;
1591:
1592: EXCEPTION
1593: WHEN OTHERS THEN
1602: ', INVOICE_ID == ' ||TO_CHAR(X_Invoice_Id));
1603: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1604: END IF;
1605: END IF;
1606: APP_EXCEPTION.RAISE_EXCEPTION;
1607:
1608: END Lock_Row;
1609:
1610: ------------------------------------------------------------------------------
1809: ||', Invoice Line Number = '
1810: ||to_char(X_chrg_Line_Number));
1811: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1812: END IF;
1813: APP_EXCEPTION.RAISE_EXCEPTION;
1814: END;
1815:
1816: END IF;
1817:
1859: ||', Invoice Line Number ='
1860: ||to_char(X_chrg_Line_Number));
1861: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1862: END IF;
1863: APP_EXCEPTION.RAISE_EXCEPTION;
1864: END;
1865: END IF;
1866:
1867:
2064: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2065: 'X_Invoice_Id = '||to_char(X_invoice_id) );
2066: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2067: end if;
2068: APP_EXCEPTION.RAISE_EXCEPTION;
2069:
2070: END Delete_Allocation_Lines;
2071:
2072: -------------------------------------------------------------------------