[Home] [Help]
1: PACKAGE BODY CSTPPWAS AS
2: /* $Header: CSTPWASB.pls 120.33 2007/11/13 19:09:25 vjavli ship $ */
3:
4: G_MAX_RECORDS CONSTANT NUMBER := 1000;
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSTPPWAS';
1: PACKAGE BODY CSTPPWAS AS
2: /* $Header: CSTPWASB.pls 120.33 2007/11/13 19:09:25 vjavli ship $ */
3:
4: G_MAX_RECORDS CONSTANT NUMBER := 1000;
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSTPPWAS';
6: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7:
8: /*---------------------------------------------------------------------------*
9: | PRIVATE PROCEDURE |
967: ROLLBACK;
968: fnd_file.put_line(fnd_file.log,' Exception in Insert_wip_costs');
969: x_err_num := SQLCODE;
970: x_err_code := NULL;
971: x_err_msg := SUBSTR('CSTPPWAS.insert_wip_costs('
972: || to_char(l_stmt_num)
973: || '): '
974: ||SQLERRM,1,240);
975: END insert_wip_costs;
2188: END IF;
2189: ROLLBACK;
2190: x_err_num := SQLCODE;
2191: x_err_code := NULL;
2192: x_err_msg := SUBSTR('CSTPPWAS.Relief_BOM_Quantity('
2193: || to_char(l_stmt_num)
2194: || '): '
2195: ||SQLERRM,1,240);
2196: END Relief_BOM_Quantity;
4266: END IF;
4267: ROLLBACK;
4268: x_err_num := SQLCODE;
4269: x_err_code := NULL;
4270: x_err_msg := SUBSTR('CSTPPWAS.process_net_relief('
4271: || to_char(l_stmt_num)
4272: || '): '
4273: ||SQLERRM,1,240);
4274:
4642: o_err_num => l_err_num,
4643: o_err_code => l_err_code,
4644: o_err_msg => l_err_msg);
4645: IF (l_err_num <> 0) THEN
4646: l_err_msg := SUBSTR('CSTPPWAS.process_nonreworkassembly_txns('
4647: ||TO_CHAR(l_stmt_num)
4648: ||'):'
4649: ||l_err_msg,1,240);
4650: RAISE CST_PROCESS_ERROR;
4729: o_err_num => l_err_num,
4730: o_err_code => l_err_code,
4731: o_err_msg => l_err_msg);
4732: IF (l_err_num <> 0) THEN
4733: l_err_msg := SUBSTR('CSTPPWAS.process_nonreworkassembly_txns('
4734: ||TO_CHAR(l_stmt_num)
4735: ||'):'
4736: ||l_err_msg,1,240);
4737: RAISE CST_PROCESS_ERROR;
4798: o_err_code => l_err_code,
4799: o_err_msg => l_err_msg);
4800:
4801: IF (l_err_num <> 0) THEN
4802: l_err_msg := SUBSTR('CSTPPWAS.process_nonreworkassembly_txns('
4803: ||TO_CHAR(l_stmt_num)
4804: ||'):'
4805: ||l_err_msg,1,240);
4806: RAISE CST_PROCESS_ERROR;
4822: o_err_code => l_err_code,
4823: o_err_msg => l_err_msg);
4824:
4825: IF (l_err_num <> 0) THEN
4826: l_err_msg := SUBSTR('CSTPPWAS.process_reworkassembly_txns('
4827: || TO_CHAR(l_stmt_num)
4828: ||'):'
4829: ||l_err_msg,1,240);
4830: RAISE CST_PROCESS_ERROR;
4857: END IF;
4858: ROLLBACK;
4859: x_err_num := SQLCODE;
4860: x_err_code := NULL;
4861: x_err_msg := SUBSTR('CSTPPWAS.process_nonreworkassembly_txns ('
4862: || to_char(l_stmt_num)
4863: || '): '
4864: ||SQLERRM,1,240);
4865:
5132: o_err_code => l_err_code,
5133: o_err_msg => l_err_msg);
5134:
5135: IF (l_err_num <> 0) THEN
5136: l_err_msg := SUBSTR('CSTPPWAS.process_reworkassembly_txns('
5137: ||TO_CHAR(l_stmt_num)
5138: ||'):'
5139: ||l_err_msg,1,240);
5140: RAISE CST_PROCESS_ERROR;
5190: o_err_code => l_err_code,
5191: o_err_msg => l_err_msg);
5192:
5193: IF (l_err_num <> 0) THEN
5194: l_err_msg := SUBSTR('CSTPPWAS.process_reworkassembly_txns('
5195: ||TO_CHAR(l_stmt_num)
5196: ||'):'
5197: ||l_err_msg,1,240);
5198: RAISE CST_PROCESS_ERROR;
5214: o_err_code => l_err_code,
5215: o_err_msg => l_err_msg);
5216:
5217: IF (l_err_num <> 0) THEN
5218: l_err_msg := SUBSTR('CSTPPWAS.process_reworkassembly_txns('
5219: || TO_CHAR(l_stmt_num)
5220: ||'):'
5221: ||l_err_msg,1,240);
5222: RAISE CST_PROCESS_ERROR;
5246: o_err_num => l_err_num,
5247: o_err_code => l_err_code,
5248: o_err_msg => l_err_msg);
5249: IF (l_err_num <> 0) THEN
5250: l_err_msg := SUBSTR('CSTPPWAS.process_reworkassembly_txns('
5251: ||TO_CHAR(l_stmt_num)
5252: ||'):'
5253: ||l_err_msg,1,240);
5254: RAISE CST_PROCESS_ERROR;
5334: o_err_code => l_err_code,
5335: o_err_msg => l_err_msg);
5336:
5337: IF (l_err_num <> 0) THEN
5338: l_err_msg := SUBSTR('CSTPPWAS.process_reworkassembly_txns('
5339: ||TO_CHAR(l_stmt_num)
5340: ||'):'
5341: ||l_err_msg,1,240);
5342: RAISE CST_PROCESS_ERROR;
5406: o_err_num => l_err_num,
5407: o_err_code => l_err_code,
5408: o_err_msg => l_err_msg);
5409: IF (l_err_num <> 0) THEN
5410: l_err_msg := SUBSTR('CSTPPWAS.process_reworkassembly_txns('
5411: ||TO_CHAR(l_stmt_num)
5412: ||'):'
5413: ||l_err_msg,1,240);
5414: RAISE CST_PROCESS_ERROR;
5434: o_err_code => l_err_code,
5435: o_err_msg => l_err_msg);
5436:
5437: IF (l_err_num <> 0) THEN
5438: l_err_msg := SUBSTR('CSTPPWAS.process_reworkassembly_txns('
5439: ||TO_CHAR(l_stmt_num)
5440: ||'):'
5441: ||l_err_msg,1,240);
5442: RAISE CST_PROCESS_ERROR;
5457: o_err_code => l_err_code,
5458: o_err_msg => l_err_msg);
5459:
5460: IF (l_err_num <> 0) THEN
5461: l_err_msg := SUBSTR('CSTPPWAS.process_reworkassembly_txns('
5462: ||TO_CHAR(l_stmt_num)
5463: ||'):'
5464: ||l_err_msg,1,240);
5465: RAISE CST_PROCESS_ERROR;
5492: END IF;
5493: ROLLBACK;
5494: x_err_num := SQLCODE;
5495: x_err_code := NULL;
5496: x_err_msg := SUBSTR('CSTPPWAS.process_reworkassembly_txns('
5497: || to_char(l_stmt_num)
5498: || '): '
5499: ||SQLERRM,1,240);
5500: END process_reworkassembly_txns;
5603: END IF;
5604: ROLLBACK;
5605: x_err_num := SQLCODE;
5606: x_err_code := NULL;
5607: x_err_msg := SUBSTR('CSTPPWAS.check_expense_flags('
5608: || to_char(l_stmt_num)
5609: || '): '
5610: ||SQLERRM,1,240);
5611:
5610: ||SQLERRM,1,240);
5611:
5612: END check_expense_flags;
5613:
5614: END cstppwas;