[Home] [Help]
1060: -- PROCEDURE create_payment
1061: ---------------------------
1062: PROCEDURE create_payment (
1063: p_service_id IN NUMBER
1064: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1065: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1066: ,x_return_status OUT NOCOPY VARCHAR2
1067: ,x_msg_count OUT NOCOPY NUMBER
1068: ,x_msg_data OUT NOCOPY VARCHAR2
1061: ---------------------------
1062: PROCEDURE create_payment (
1063: p_service_id IN NUMBER
1064: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1065: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1066: ,x_return_status OUT NOCOPY VARCHAR2
1067: ,x_msg_count OUT NOCOPY NUMBER
1068: ,x_msg_data OUT NOCOPY VARCHAR2
1069: ) IS
1070:
1071: l_program_name CONSTANT VARCHAR2(30) := 'create_payment';
1072: l_api_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_program_name;
1073:
1074: l_payment_header_rec okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
1075: l_payment_level_tbl okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
1076:
1077: BEGIN
1078:
1071: l_program_name CONSTANT VARCHAR2(30) := 'create_payment';
1072: l_api_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_program_name;
1073:
1074: l_payment_header_rec okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
1075: l_payment_level_tbl okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
1076:
1077: BEGIN
1078:
1079: l_payment_header_rec := p_payment_header_rec;
1080: l_payment_header_rec.parent_object_id := p_service_id;
1081: l_payment_header_rec.parent_object_code := 'QUOTED_SERVICE';
1082: l_payment_level_tbl := p_payment_level_tbl;
1083:
1084: okl_lease_quote_cashflow_pvt.create_cashflow (
1085: p_api_version => G_API_VERSION
1086: ,p_init_msg_list => G_FALSE
1087: ,p_transaction_control => G_FALSE
1088: ,p_cashflow_header_rec => l_payment_header_rec
1125: -- PROCEDURE update_payment
1126: ---------------------------
1127: PROCEDURE update_payment (
1128: p_service_id IN NUMBER
1129: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1130: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1131: ,x_return_status OUT NOCOPY VARCHAR2
1132: ,x_msg_count OUT NOCOPY NUMBER
1133: ,x_msg_data OUT NOCOPY VARCHAR2
1126: ---------------------------
1127: PROCEDURE update_payment (
1128: p_service_id IN NUMBER
1129: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1130: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1131: ,x_return_status OUT NOCOPY VARCHAR2
1132: ,x_msg_count OUT NOCOPY NUMBER
1133: ,x_msg_data OUT NOCOPY VARCHAR2
1134: ) IS
1135:
1136: l_program_name CONSTANT VARCHAR2(30) := 'update_payment';
1137: l_api_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_program_name;
1138:
1139: l_payment_header_rec okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
1140: l_payment_level_tbl okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
1141:
1142: BEGIN
1143:
1136: l_program_name CONSTANT VARCHAR2(30) := 'update_payment';
1137: l_api_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_program_name;
1138:
1139: l_payment_header_rec okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
1140: l_payment_level_tbl okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
1141:
1142: BEGIN
1143:
1144: l_payment_header_rec := p_payment_header_rec;
1143:
1144: l_payment_header_rec := p_payment_header_rec;
1145: l_payment_level_tbl := p_payment_level_tbl;
1146:
1147: okl_lease_quote_cashflow_pvt.update_cashflow (
1148: p_api_version => G_API_VERSION
1149: ,p_init_msg_list => G_FALSE
1150: ,p_transaction_control => G_FALSE
1151: ,p_cashflow_header_rec => l_payment_header_rec
1188: -- PROCEDURE create_expense
1189: ---------------------------
1190: PROCEDURE create_expense (
1191: p_service_id IN NUMBER
1192: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1193: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1194: ,x_return_status OUT NOCOPY VARCHAR2
1195: ,x_msg_count OUT NOCOPY NUMBER
1196: ,x_msg_data OUT NOCOPY VARCHAR2
1189: ---------------------------
1190: PROCEDURE create_expense (
1191: p_service_id IN NUMBER
1192: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1193: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1194: ,x_return_status OUT NOCOPY VARCHAR2
1195: ,x_msg_count OUT NOCOPY NUMBER
1196: ,x_msg_data OUT NOCOPY VARCHAR2
1197: ) IS
1198:
1199: l_program_name CONSTANT VARCHAR2(30) := 'create_expense';
1200: l_api_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_program_name;
1201:
1202: l_expense_header_rec okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
1203: l_expense_level_tbl okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
1204:
1205: BEGIN
1206:
1199: l_program_name CONSTANT VARCHAR2(30) := 'create_expense';
1200: l_api_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_program_name;
1201:
1202: l_expense_header_rec okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
1203: l_expense_level_tbl okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
1204:
1205: BEGIN
1206:
1207: l_expense_header_rec := p_expense_header_rec;
1207: l_expense_header_rec := p_expense_header_rec;
1208: l_expense_header_rec.parent_object_id := p_service_id;
1209: l_expense_level_tbl := p_expense_level_tbl;
1210:
1211: okl_lease_quote_cashflow_pvt.create_cashflow (
1212: p_api_version => G_API_VERSION
1213: ,p_init_msg_list => G_FALSE
1214: ,p_transaction_control => G_FALSE
1215: ,p_cashflow_header_rec => l_expense_header_rec
1252: -- PROCEDURE update_expense
1253: ---------------------------
1254: PROCEDURE update_expense (
1255: p_service_id IN NUMBER
1256: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1257: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1258: ,x_return_status OUT NOCOPY VARCHAR2
1259: ,x_msg_count OUT NOCOPY NUMBER
1260: ,x_msg_data OUT NOCOPY VARCHAR2
1253: ---------------------------
1254: PROCEDURE update_expense (
1255: p_service_id IN NUMBER
1256: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1257: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1258: ,x_return_status OUT NOCOPY VARCHAR2
1259: ,x_msg_count OUT NOCOPY NUMBER
1260: ,x_msg_data OUT NOCOPY VARCHAR2
1261: ) IS
1262:
1263: l_program_name CONSTANT VARCHAR2(30) := 'update_expense';
1264: l_api_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_program_name;
1265:
1266: l_expense_header_rec okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
1267: l_expense_level_tbl okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
1268:
1269: BEGIN
1270:
1263: l_program_name CONSTANT VARCHAR2(30) := 'update_expense';
1264: l_api_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_program_name;
1265:
1266: l_expense_header_rec okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
1267: l_expense_level_tbl okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
1268:
1269: BEGIN
1270:
1271: l_expense_header_rec := p_expense_header_rec;
1270:
1271: l_expense_header_rec := p_expense_header_rec;
1272: l_expense_level_tbl := p_expense_level_tbl;
1273:
1274: okl_lease_quote_cashflow_pvt.update_cashflow (
1275: p_api_version => G_API_VERSION
1276: ,p_init_msg_list => G_FALSE
1277: ,p_transaction_control => G_FALSE
1278: ,p_cashflow_header_rec => l_expense_header_rec
1319: ,p_init_msg_list IN VARCHAR2
1320: ,p_transaction_control IN VARCHAR2
1321: ,p_service_rec IN okl_svc_pvt.svcv_rec_type
1322: ,p_assoc_asset_tbl IN line_relation_tbl_type
1323: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1324: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1325: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1326: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1327: ,x_service_id OUT NOCOPY NUMBER
1320: ,p_transaction_control IN VARCHAR2
1321: ,p_service_rec IN okl_svc_pvt.svcv_rec_type
1322: ,p_assoc_asset_tbl IN line_relation_tbl_type
1323: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1324: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1325: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1326: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1327: ,x_service_id OUT NOCOPY NUMBER
1328: ,x_return_status OUT NOCOPY VARCHAR2
1321: ,p_service_rec IN okl_svc_pvt.svcv_rec_type
1322: ,p_assoc_asset_tbl IN line_relation_tbl_type
1323: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1324: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1325: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1326: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1327: ,x_service_id OUT NOCOPY NUMBER
1328: ,x_return_status OUT NOCOPY VARCHAR2
1329: ,x_msg_count OUT NOCOPY NUMBER
1322: ,p_assoc_asset_tbl IN line_relation_tbl_type
1323: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1324: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1325: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1326: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1327: ,x_service_id OUT NOCOPY NUMBER
1328: ,x_return_status OUT NOCOPY VARCHAR2
1329: ,x_msg_count OUT NOCOPY NUMBER
1330: ,x_msg_data OUT NOCOPY VARCHAR2
1763: ,p_init_msg_list IN VARCHAR2
1764: ,p_transaction_control IN VARCHAR2
1765: ,p_service_rec IN okl_svc_pvt.svcv_rec_type
1766: ,p_assoc_asset_tbl IN line_relation_tbl_type
1767: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1768: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1769: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1770: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1771: ,x_return_status OUT NOCOPY VARCHAR2
1764: ,p_transaction_control IN VARCHAR2
1765: ,p_service_rec IN okl_svc_pvt.svcv_rec_type
1766: ,p_assoc_asset_tbl IN line_relation_tbl_type
1767: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1768: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1769: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1770: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1771: ,x_return_status OUT NOCOPY VARCHAR2
1772: ,x_msg_count OUT NOCOPY NUMBER
1765: ,p_service_rec IN okl_svc_pvt.svcv_rec_type
1766: ,p_assoc_asset_tbl IN line_relation_tbl_type
1767: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1768: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1769: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1770: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1771: ,x_return_status OUT NOCOPY VARCHAR2
1772: ,x_msg_count OUT NOCOPY NUMBER
1773: ,x_msg_data OUT NOCOPY VARCHAR2
1766: ,p_assoc_asset_tbl IN line_relation_tbl_type
1767: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1768: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1769: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1770: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1771: ,x_return_status OUT NOCOPY VARCHAR2
1772: ,x_msg_count OUT NOCOPY NUMBER
1773: ,x_msg_data OUT NOCOPY VARCHAR2
1774: ) IS
1993: ,p_transaction_control IN VARCHAR2
1994: ,p_source_service_id IN NUMBER
1995: ,p_service_rec IN okl_svc_pvt.svcv_rec_type
1996: ,p_assoc_asset_tbl IN line_relation_tbl_type
1997: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1998: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1999: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
2000: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
2001: ,x_service_id OUT NOCOPY NUMBER
1994: ,p_source_service_id IN NUMBER
1995: ,p_service_rec IN okl_svc_pvt.svcv_rec_type
1996: ,p_assoc_asset_tbl IN line_relation_tbl_type
1997: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1998: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1999: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
2000: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
2001: ,x_service_id OUT NOCOPY NUMBER
2002: ,x_return_status OUT NOCOPY VARCHAR2
1995: ,p_service_rec IN okl_svc_pvt.svcv_rec_type
1996: ,p_assoc_asset_tbl IN line_relation_tbl_type
1997: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1998: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1999: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
2000: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
2001: ,x_service_id OUT NOCOPY NUMBER
2002: ,x_return_status OUT NOCOPY VARCHAR2
2003: ,x_msg_count OUT NOCOPY NUMBER
1996: ,p_assoc_asset_tbl IN line_relation_tbl_type
1997: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1998: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1999: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
2000: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
2001: ,x_service_id OUT NOCOPY NUMBER
2002: ,x_return_status OUT NOCOPY VARCHAR2
2003: ,x_msg_count OUT NOCOPY NUMBER
2004: ,x_msg_data OUT NOCOPY VARCHAR2
2194: END IF;
2195: END IF;
2196:
2197: IF (lb_copy_cashflow) THEN
2198: okl_lease_quote_cashflow_pvt.duplicate_cashflows (
2199: p_api_version => G_API_VERSION
2200: ,p_init_msg_list => G_FALSE
2201: ,p_transaction_control => G_FALSE
2202: ,p_source_object_code => 'QUOTED_SERVICE'
2317: END IF;
2318:
2319: END IF;
2320:
2321: okl_lease_quote_cashflow_pvt.delete_cashflows (
2322: p_api_version => G_API_VERSION
2323: ,p_init_msg_list => G_FALSE
2324: ,p_transaction_control => G_FALSE
2325: ,p_source_object_code => 'QUOTED_SERVICE'