1046: -- PROCEDURE create_payment
1047: ---------------------------
1048: PROCEDURE create_payment (
1049: p_service_id IN NUMBER
1050: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1051: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1052: ,x_return_status OUT NOCOPY VARCHAR2
1053: ,x_msg_count OUT NOCOPY NUMBER
1054: ,x_msg_data OUT NOCOPY VARCHAR2
1047: ---------------------------
1048: PROCEDURE create_payment (
1049: p_service_id IN NUMBER
1050: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1051: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1052: ,x_return_status OUT NOCOPY VARCHAR2
1053: ,x_msg_count OUT NOCOPY NUMBER
1054: ,x_msg_data OUT NOCOPY VARCHAR2
1055: ) IS
1056:
1057: l_program_name CONSTANT VARCHAR2(30) := 'create_payment';
1058: l_api_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_program_name;
1059:
1060: l_payment_header_rec okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
1061: l_payment_level_tbl okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
1062:
1063: BEGIN
1064:
1057: l_program_name CONSTANT VARCHAR2(30) := 'create_payment';
1058: l_api_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_program_name;
1059:
1060: l_payment_header_rec okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
1061: l_payment_level_tbl okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
1062:
1063: BEGIN
1064:
1065: l_payment_header_rec := p_payment_header_rec;
1066: l_payment_header_rec.parent_object_id := p_service_id;
1067: l_payment_header_rec.parent_object_code := 'QUOTED_SERVICE';
1068: l_payment_level_tbl := p_payment_level_tbl;
1069:
1070: okl_lease_quote_cashflow_pvt.create_cashflow (
1071: p_api_version => G_API_VERSION
1072: ,p_init_msg_list => G_FALSE
1073: ,p_transaction_control => G_FALSE
1074: ,p_cashflow_header_rec => l_payment_header_rec
1111: -- PROCEDURE update_payment
1112: ---------------------------
1113: PROCEDURE update_payment (
1114: p_service_id IN NUMBER
1115: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1116: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1117: ,x_return_status OUT NOCOPY VARCHAR2
1118: ,x_msg_count OUT NOCOPY NUMBER
1119: ,x_msg_data OUT NOCOPY VARCHAR2
1112: ---------------------------
1113: PROCEDURE update_payment (
1114: p_service_id IN NUMBER
1115: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1116: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1117: ,x_return_status OUT NOCOPY VARCHAR2
1118: ,x_msg_count OUT NOCOPY NUMBER
1119: ,x_msg_data OUT NOCOPY VARCHAR2
1120: ) IS
1121:
1122: l_program_name CONSTANT VARCHAR2(30) := 'update_payment';
1123: l_api_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_program_name;
1124:
1125: l_payment_header_rec okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
1126: l_payment_level_tbl okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
1127:
1128: BEGIN
1129:
1122: l_program_name CONSTANT VARCHAR2(30) := 'update_payment';
1123: l_api_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_program_name;
1124:
1125: l_payment_header_rec okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
1126: l_payment_level_tbl okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
1127:
1128: BEGIN
1129:
1130: l_payment_header_rec := p_payment_header_rec;
1129:
1130: l_payment_header_rec := p_payment_header_rec;
1131: l_payment_level_tbl := p_payment_level_tbl;
1132:
1133: okl_lease_quote_cashflow_pvt.update_cashflow (
1134: p_api_version => G_API_VERSION
1135: ,p_init_msg_list => G_FALSE
1136: ,p_transaction_control => G_FALSE
1137: ,p_cashflow_header_rec => l_payment_header_rec
1174: -- PROCEDURE create_expense
1175: ---------------------------
1176: PROCEDURE create_expense (
1177: p_service_id IN NUMBER
1178: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1179: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1180: ,x_return_status OUT NOCOPY VARCHAR2
1181: ,x_msg_count OUT NOCOPY NUMBER
1182: ,x_msg_data OUT NOCOPY VARCHAR2
1175: ---------------------------
1176: PROCEDURE create_expense (
1177: p_service_id IN NUMBER
1178: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1179: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1180: ,x_return_status OUT NOCOPY VARCHAR2
1181: ,x_msg_count OUT NOCOPY NUMBER
1182: ,x_msg_data OUT NOCOPY VARCHAR2
1183: ) IS
1184:
1185: l_program_name CONSTANT VARCHAR2(30) := 'create_expense';
1186: l_api_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_program_name;
1187:
1188: l_expense_header_rec okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
1189: l_expense_level_tbl okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
1190:
1191: BEGIN
1192:
1185: l_program_name CONSTANT VARCHAR2(30) := 'create_expense';
1186: l_api_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_program_name;
1187:
1188: l_expense_header_rec okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
1189: l_expense_level_tbl okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
1190:
1191: BEGIN
1192:
1193: l_expense_header_rec := p_expense_header_rec;
1193: l_expense_header_rec := p_expense_header_rec;
1194: l_expense_header_rec.parent_object_id := p_service_id;
1195: l_expense_level_tbl := p_expense_level_tbl;
1196:
1197: okl_lease_quote_cashflow_pvt.create_cashflow (
1198: p_api_version => G_API_VERSION
1199: ,p_init_msg_list => G_FALSE
1200: ,p_transaction_control => G_FALSE
1201: ,p_cashflow_header_rec => l_expense_header_rec
1238: -- PROCEDURE update_expense
1239: ---------------------------
1240: PROCEDURE update_expense (
1241: p_service_id IN NUMBER
1242: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1243: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1244: ,x_return_status OUT NOCOPY VARCHAR2
1245: ,x_msg_count OUT NOCOPY NUMBER
1246: ,x_msg_data OUT NOCOPY VARCHAR2
1239: ---------------------------
1240: PROCEDURE update_expense (
1241: p_service_id IN NUMBER
1242: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1243: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1244: ,x_return_status OUT NOCOPY VARCHAR2
1245: ,x_msg_count OUT NOCOPY NUMBER
1246: ,x_msg_data OUT NOCOPY VARCHAR2
1247: ) IS
1248:
1249: l_program_name CONSTANT VARCHAR2(30) := 'update_expense';
1250: l_api_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_program_name;
1251:
1252: l_expense_header_rec okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
1253: l_expense_level_tbl okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
1254:
1255: BEGIN
1256:
1249: l_program_name CONSTANT VARCHAR2(30) := 'update_expense';
1250: l_api_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_program_name;
1251:
1252: l_expense_header_rec okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
1253: l_expense_level_tbl okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
1254:
1255: BEGIN
1256:
1257: l_expense_header_rec := p_expense_header_rec;
1256:
1257: l_expense_header_rec := p_expense_header_rec;
1258: l_expense_level_tbl := p_expense_level_tbl;
1259:
1260: okl_lease_quote_cashflow_pvt.update_cashflow (
1261: p_api_version => G_API_VERSION
1262: ,p_init_msg_list => G_FALSE
1263: ,p_transaction_control => G_FALSE
1264: ,p_cashflow_header_rec => l_expense_header_rec
1305: ,p_init_msg_list IN VARCHAR2
1306: ,p_transaction_control IN VARCHAR2
1307: ,p_service_rec IN okl_svc_pvt.svcv_rec_type
1308: ,p_assoc_asset_tbl IN line_relation_tbl_type
1309: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1310: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1311: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1312: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1313: ,x_service_id OUT NOCOPY NUMBER
1306: ,p_transaction_control IN VARCHAR2
1307: ,p_service_rec IN okl_svc_pvt.svcv_rec_type
1308: ,p_assoc_asset_tbl IN line_relation_tbl_type
1309: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1310: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1311: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1312: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1313: ,x_service_id OUT NOCOPY NUMBER
1314: ,x_return_status OUT NOCOPY VARCHAR2
1307: ,p_service_rec IN okl_svc_pvt.svcv_rec_type
1308: ,p_assoc_asset_tbl IN line_relation_tbl_type
1309: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1310: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1311: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1312: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1313: ,x_service_id OUT NOCOPY NUMBER
1314: ,x_return_status OUT NOCOPY VARCHAR2
1315: ,x_msg_count OUT NOCOPY NUMBER
1308: ,p_assoc_asset_tbl IN line_relation_tbl_type
1309: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1310: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1311: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1312: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1313: ,x_service_id OUT NOCOPY NUMBER
1314: ,x_return_status OUT NOCOPY VARCHAR2
1315: ,x_msg_count OUT NOCOPY NUMBER
1316: ,x_msg_data OUT NOCOPY VARCHAR2
1749: ,p_init_msg_list IN VARCHAR2
1750: ,p_transaction_control IN VARCHAR2
1751: ,p_service_rec IN okl_svc_pvt.svcv_rec_type
1752: ,p_assoc_asset_tbl IN line_relation_tbl_type
1753: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1754: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1755: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1756: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1757: ,x_return_status OUT NOCOPY VARCHAR2
1750: ,p_transaction_control IN VARCHAR2
1751: ,p_service_rec IN okl_svc_pvt.svcv_rec_type
1752: ,p_assoc_asset_tbl IN line_relation_tbl_type
1753: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1754: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1755: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1756: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1757: ,x_return_status OUT NOCOPY VARCHAR2
1758: ,x_msg_count OUT NOCOPY NUMBER
1751: ,p_service_rec IN okl_svc_pvt.svcv_rec_type
1752: ,p_assoc_asset_tbl IN line_relation_tbl_type
1753: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1754: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1755: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1756: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1757: ,x_return_status OUT NOCOPY VARCHAR2
1758: ,x_msg_count OUT NOCOPY NUMBER
1759: ,x_msg_data OUT NOCOPY VARCHAR2
1752: ,p_assoc_asset_tbl IN line_relation_tbl_type
1753: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1754: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1755: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1756: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1757: ,x_return_status OUT NOCOPY VARCHAR2
1758: ,x_msg_count OUT NOCOPY NUMBER
1759: ,x_msg_data OUT NOCOPY VARCHAR2
1760: ) IS
1979: ,p_transaction_control IN VARCHAR2
1980: ,p_source_service_id IN NUMBER
1981: ,p_service_rec IN okl_svc_pvt.svcv_rec_type
1982: ,p_assoc_asset_tbl IN line_relation_tbl_type
1983: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1984: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1985: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1986: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1987: ,x_service_id OUT NOCOPY NUMBER
1980: ,p_source_service_id IN NUMBER
1981: ,p_service_rec IN okl_svc_pvt.svcv_rec_type
1982: ,p_assoc_asset_tbl IN line_relation_tbl_type
1983: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1984: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1985: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1986: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1987: ,x_service_id OUT NOCOPY NUMBER
1988: ,x_return_status OUT NOCOPY VARCHAR2
1981: ,p_service_rec IN okl_svc_pvt.svcv_rec_type
1982: ,p_assoc_asset_tbl IN line_relation_tbl_type
1983: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1984: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1985: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1986: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1987: ,x_service_id OUT NOCOPY NUMBER
1988: ,x_return_status OUT NOCOPY VARCHAR2
1989: ,x_msg_count OUT NOCOPY NUMBER
1982: ,p_assoc_asset_tbl IN line_relation_tbl_type
1983: ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1984: ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1985: ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
1986: ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
1987: ,x_service_id OUT NOCOPY NUMBER
1988: ,x_return_status OUT NOCOPY VARCHAR2
1989: ,x_msg_count OUT NOCOPY NUMBER
1990: ,x_msg_data OUT NOCOPY VARCHAR2
2180: END IF;
2181: END IF;
2182:
2183: IF (lb_copy_cashflow) THEN
2184: okl_lease_quote_cashflow_pvt.duplicate_cashflows (
2185: p_api_version => G_API_VERSION
2186: ,p_init_msg_list => G_FALSE
2187: ,p_transaction_control => G_FALSE
2188: ,p_source_object_code => 'QUOTED_SERVICE'
2303: END IF;
2304:
2305: END IF;
2306:
2307: okl_lease_quote_cashflow_pvt.delete_cashflows (
2308: p_api_version => G_API_VERSION
2309: ,p_init_msg_list => G_FALSE
2310: ,p_transaction_control => G_FALSE
2311: ,p_source_object_code => 'QUOTED_SERVICE'