278: END IF;
279:
280: -- Initialize message list if requested
281: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
282: FND_MSG_PUB.initialize;
283: END IF;
284:
285: -- Initialize API status to success
286: x_return_status := OKL_API.G_RET_STS_SUCCESS;
626:
627: /*** End API body ******************************************************/
628:
629: -- Get message count and if count is 1, get message info
630: FND_MSG_PUB.Count_And_Get
631: (p_count => x_msg_count,
632: p_data => x_msg_data);
633:
634: EXCEPTION
788: END IF;
789:
790: -- Initialize message list if requested
791: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
792: FND_MSG_PUB.initialize;
793: END IF;
794:
795: -- Initialize API status to success
796: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1335:
1336: /*** End API body ******************************************************/
1337:
1338: -- Get message count and if count is 1, get message info
1339: FND_MSG_PUB.Count_And_Get
1340: (p_count => x_msg_count,
1341: p_data => x_msg_data);
1342:
1343: EXCEPTION
3786: END IF;
3787:
3788: -- Initialize message list if requested
3789: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
3790: FND_MSG_PUB.initialize;
3791:
3792: END IF;
3793:
3794:
3799: /*** Begin API body ****************************************************/
3800: /*** End API body ******************************************************/
3801:
3802: -- Get message count and if count is 1, get message info
3803: FND_MSG_PUB.Count_And_Get
3804: (p_count => x_msg_count,
3805: p_data => x_msg_data);
3806:
3807: EXCEPTION
3807: EXCEPTION
3808: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3809: ROLLBACK TO create_credit_header_pub;
3810: x_return_status := OKL_API.G_RET_STS_ERROR;
3811: FND_MSG_PUB.Count_And_Get
3812: (p_count => x_msg_count,
3813: p_data => x_msg_data);
3814:
3815: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3814:
3815: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3816: ROLLBACK TO create_credit_header_pub;
3817: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3818: FND_MSG_PUB.Count_And_Get
3819: (p_count => x_msg_count,
3820: p_data => x_msg_data);
3821:
3822: WHEN OTHERS THEN
3827: p_token1 => G_SQLCODE_TOKEN,
3828: p_token1_value => SQLCODE,
3829: p_token2 => G_SQLERRM_TOKEN,
3830: p_token2_value => SQLERRM);
3831: FND_MSG_PUB.Count_And_Get
3832: (p_count => x_msg_count,
3833: p_data => x_msg_data);
3834:
3835: end;
3915: END IF;
3916:
3917: -- Initialize message list if requested
3918: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
3919: FND_MSG_PUB.initialize;
3920: END IF;
3921:
3922: -- Initialize API status to success
3923:
4119:
4120: /*** End API body ******************************************************/
4121:
4122: -- Get message count and if count is 1, get message info
4123: FND_MSG_PUB.Count_And_Get
4124: (p_count => x_msg_count,
4125: p_data => x_msg_data);
4126:
4127: EXCEPTION
4127: EXCEPTION
4128: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4129: ROLLBACK TO update_credit_header_pub;
4130: x_return_status := OKL_API.G_RET_STS_ERROR;
4131: FND_MSG_PUB.Count_And_Get
4132: (p_count => x_msg_count,
4133: p_data => x_msg_data);
4134:
4135:
4135:
4136: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4137: ROLLBACK TO update_credit_header_pub;
4138: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4139: FND_MSG_PUB.Count_And_Get
4140: (p_count => x_msg_count,
4141: p_data => x_msg_data);
4142:
4143: WHEN OTHERS THEN
4148: p_token1 => G_SQLCODE_TOKEN,
4149: p_token1_value => SQLCODE,
4150: p_token2 => G_SQLERRM_TOKEN,
4151: p_token2_value => SQLERRM);
4152: FND_MSG_PUB.Count_And_Get
4153: (p_count => x_msg_count,
4154: p_data => x_msg_data);
4155:
4156: end;
4368: END IF;
4369:
4370: -- Initialize message list if requested
4371: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
4372: FND_MSG_PUB.initialize;
4373: END IF;
4374:
4375: -- Initialize API status to success
4376: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4433:
4434: /*** End API body ******************************************************/
4435:
4436: -- Get message count and if count is 1, get message info
4437: FND_MSG_PUB.Count_And_Get
4438: (p_count => x_msg_count,
4439: p_data => x_msg_data);
4440:
4441: EXCEPTION
4441: EXCEPTION
4442: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4443: ROLLBACK TO create_credit_limit_pub;
4444: x_return_status := OKL_API.G_RET_STS_ERROR;
4445: FND_MSG_PUB.Count_And_Get
4446: (p_count => x_msg_count,
4447: p_data => x_msg_data);
4448:
4449: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4448:
4449: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4450: ROLLBACK TO create_credit_limit_pub;
4451: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4452: FND_MSG_PUB.Count_And_Get
4453: (p_count => x_msg_count,
4454: p_data => x_msg_data);
4455:
4456: WHEN OTHERS THEN
4461: p_token1 => G_SQLCODE_TOKEN,
4462: p_token1_value => SQLCODE,
4463: p_token2 => G_SQLERRM_TOKEN,
4464: p_token2_value => SQLERRM);
4465: FND_MSG_PUB.Count_And_Get
4466: (p_count => x_msg_count,
4467: p_data => x_msg_data);
4468:
4469: end;
4666: END IF;
4667:
4668: -- Initialize message list if requested
4669: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
4670: FND_MSG_PUB.initialize;
4671: END IF;
4672:
4673: -- Initialize API status to success
4674: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4759:
4760: /*** End API body ******************************************************/
4761:
4762: -- Get message count and if count is 1, get message info
4763: FND_MSG_PUB.Count_And_Get
4764: (p_count => x_msg_count,
4765: p_data => x_msg_data);
4766:
4767: EXCEPTION
4767: EXCEPTION
4768: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4769: ROLLBACK TO update_credit_limit_pub;
4770: x_return_status := OKL_API.G_RET_STS_ERROR;
4771: FND_MSG_PUB.Count_And_Get
4772: (p_count => x_msg_count,
4773: p_data => x_msg_data);
4774:
4775: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4775: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4776: ROLLBACK TO update_credit_limit_pub;
4777: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4778:
4779: FND_MSG_PUB.Count_And_Get
4780: (p_count => x_msg_count,
4781: p_data => x_msg_data);
4782:
4783: WHEN OTHERS THEN
4788: p_token1 => G_SQLCODE_TOKEN,
4789: p_token1_value => SQLCODE,
4790: p_token2 => G_SQLERRM_TOKEN,
4791: p_token2_value => SQLERRM);
4792: FND_MSG_PUB.Count_And_Get
4793: (p_count => x_msg_count,
4794: p_data => x_msg_data);
4795:
4796: end;
4838: END IF;
4839:
4840: -- Initialize message list if requested
4841: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
4842: FND_MSG_PUB.initialize;
4843: END IF;
4844:
4845: -- Initialize API status to success
4846: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4899:
4900: /*** End API body ******************************************************/
4901:
4902: -- Get message count and if count is 1, get message info
4903: FND_MSG_PUB.Count_And_Get
4904: (p_count => x_msg_count,
4905: p_data => x_msg_data);
4906:
4907:
4908: EXCEPTION
4909: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4910: ROLLBACK TO delete_credit_limit_pub;
4911: x_return_status := OKL_API.G_RET_STS_ERROR;
4912: FND_MSG_PUB.Count_And_Get
4913: (p_count => x_msg_count,
4914: p_data => x_msg_data);
4915:
4916: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4915:
4916: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4917: ROLLBACK TO delete_credit_limit_pub;
4918: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4919: FND_MSG_PUB.Count_And_Get
4920: (p_count => x_msg_count,
4921: p_data => x_msg_data);
4922:
4923: WHEN OTHERS THEN
4928: p_token1 => G_SQLCODE_TOKEN,
4929: p_token1_value => SQLCODE,
4930: p_token2 => G_SQLERRM_TOKEN,
4931: p_token2_value => SQLERRM);
4932: FND_MSG_PUB.Count_And_Get
4933: (p_count => x_msg_count,
4934: p_data => x_msg_data);
4935:
4936: end;
5047: END IF;
5048:
5049: -- Initialize message list if requested
5050: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
5051: FND_MSG_PUB.initialize;
5052: END IF;
5053:
5054: -- Initialize API status to success
5055: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5196:
5197: /*** End API body ******************************************************/
5198:
5199: -- Get message count and if count is 1, get message info
5200: FND_MSG_PUB.Count_And_Get
5201: (p_count => x_msg_count,
5202: p_data => x_msg_data);
5203:
5204: EXCEPTION
5204: EXCEPTION
5205: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5206: ROLLBACK TO create_credit_pub;
5207: x_return_status := OKL_API.G_RET_STS_ERROR;
5208: FND_MSG_PUB.Count_And_Get
5209: (p_count => x_msg_count,
5210: p_data => x_msg_data);
5211:
5212: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5211:
5212: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5213: ROLLBACK TO create_credit_pub;
5214: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5215: FND_MSG_PUB.Count_And_Get
5216: (p_count => x_msg_count,
5217: p_data => x_msg_data);
5218:
5219: WHEN OTHERS THEN
5224: p_token1 => G_SQLCODE_TOKEN,
5225: p_token1_value => SQLCODE,
5226: p_token2 => G_SQLERRM_TOKEN,
5227: p_token2_value => SQLERRM);
5228: FND_MSG_PUB.Count_And_Get
5229: (p_count => x_msg_count,
5230: p_data => x_msg_data);
5231:
5232: end create_credit;
6077: END IF;
6078:
6079: -- Initialize message list if requested
6080: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
6081: FND_MSG_PUB.initialize;
6082: END IF;
6083:
6084: -- Initialize API status to success
6085: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6129:
6130: /*** End API body ******************************************************/
6131:
6132: -- Get message count and if count is 1, get message info
6133: FND_MSG_PUB.Count_And_Get
6134: (p_count => x_msg_count,
6135: p_data => x_msg_data);
6136:
6137: EXCEPTION
6139: ROLLBACK TO update_credit_line_status;
6140: x_return_status := OKL_API.G_RET_STS_ERROR;
6141: x_status_code := lx_chrv_rec.sts_code;
6142:
6143: FND_MSG_PUB.Count_And_Get
6144: (p_count => x_msg_count,
6145: p_data => x_msg_data);
6146:
6147: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6148: ROLLBACK TO update_credit_line_status;
6149: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6150: x_status_code := lx_chrv_rec.sts_code;
6151:
6152: FND_MSG_PUB.Count_And_Get
6153: (p_count => x_msg_count,
6154: p_data => x_msg_data);
6155:
6156: WHEN OTHERS THEN
6163: p_token1 => G_SQLCODE_TOKEN,
6164: p_token1_value => SQLCODE,
6165: p_token2 => G_SQLERRM_TOKEN,
6166: p_token2_value => SQLERRM);
6167: FND_MSG_PUB.Count_And_Get
6168: (p_count => x_msg_count,
6169: p_data => x_msg_data);
6170: end update_credit_line_status;
6171:
6232: END IF;
6233:
6234: -- Initialize message list if requested
6235: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
6236: FND_MSG_PUB.initialize;
6237: END IF;
6238:
6239: -- Initialize API status to success
6240: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6266:
6267: EXCEPTION
6268: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6269: lp_fund_rst := 'ERROR';
6270: FND_MSG_PUB.Count_And_Get
6271: (p_count => x_msg_count,
6272: p_data => x_msg_data);
6273: lp_msg_data := substr('Application error: ' || x_msg_data, 240);
6274:
6273: lp_msg_data := substr('Application error: ' || x_msg_data, 240);
6274:
6275: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6276: lp_fund_rst := 'ERROR';
6277: FND_MSG_PUB.Count_And_Get
6278: (p_count => x_msg_count,
6279: p_data => x_msg_data);
6280: lp_msg_data := substr('Unexpected application error: ' || x_msg_data, 240);
6281:
6313:
6314: /*** End API body ******************************************************/
6315:
6316: -- Get message count and if count is 1, get message info
6317: FND_MSG_PUB.Count_And_Get
6318: (p_count => x_msg_count,
6319: p_data => x_msg_data);
6320:
6321: EXCEPTION
6321: EXCEPTION
6322: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6323: ROLLBACK TO update_checklist_function;
6324: x_return_status := OKL_API.G_RET_STS_ERROR;
6325: FND_MSG_PUB.Count_And_Get
6326: (p_count => x_msg_count,
6327: p_data => x_msg_data);
6328:
6329: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6328:
6329: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6330: ROLLBACK TO update_checklist_function;
6331: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6332: FND_MSG_PUB.Count_And_Get
6333: (p_count => x_msg_count,
6334: p_data => x_msg_data);
6335:
6336: WHEN OTHERS THEN
6342: p_token1 => G_SQLCODE_TOKEN,
6343: p_token1_value => SQLCODE,
6344: p_token2 => G_SQLERRM_TOKEN,
6345: p_token2_value => SQLERRM);
6346: FND_MSG_PUB.Count_And_Get
6347: (p_count => x_msg_count,
6348: p_data => x_msg_data);
6349:
6350: end update_checklist_function;
6453: END IF;
6454:
6455: -- Initialize message list if requested
6456: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
6457: FND_MSG_PUB.initialize;
6458: END IF;
6459:
6460: -- Initialize API status to success
6461: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6551: x_sts_code := lx_chrv_rec.sts_code;
6552: /*** End API body ******************************************************/
6553:
6554: -- Get message count and if count is 1, get message info
6555: FND_MSG_PUB.Count_And_Get
6556: (p_count => x_msg_count,
6557: p_data => x_msg_data);
6558:
6559: EXCEPTION
6559: EXCEPTION
6560: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6561: ROLLBACK TO activate_credit_pvt;
6562: x_return_status := OKL_API.G_RET_STS_ERROR;
6563: FND_MSG_PUB.Count_And_Get
6564: (p_count => x_msg_count,
6565: p_data => x_msg_data);
6566:
6567: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6566:
6567: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6568: ROLLBACK TO activate_credit_pvt;
6569: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6570: FND_MSG_PUB.Count_And_Get
6571: (p_count => x_msg_count,
6572: p_data => x_msg_data);
6573:
6574: WHEN OTHERS THEN
6579: p_token1 => G_SQLCODE_TOKEN,
6580: p_token1_value => SQLCODE,
6581: p_token2 => G_SQLERRM_TOKEN,
6582: p_token2_value => SQLERRM);
6583: FND_MSG_PUB.Count_And_Get
6584: (p_count => x_msg_count,
6585: p_data => x_msg_data);
6586:
6587: END activate_credit;