213: --ELSIF l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
214: --commit;
215: END IF;
216:
217: FND_MESSAGE.SET_NAME('OKC','OKC_EDA_CONTRACTS');
218: -- FND_MESSAGE.SET_TOKEN('NUMBER',k1_rec.k_number);
219: FND_MESSAGE.SET_TOKEN('NUMBER',k1_rec.k_number||': '||k1_rec.k_nbr_mod||': Ending '|| to_char(k1_rec.k_expire_date,'DD-MM-YYYY:hh24:mi:ss'));
220: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
221: END LOOP;
214: --commit;
215: END IF;
216:
217: FND_MESSAGE.SET_NAME('OKC','OKC_EDA_CONTRACTS');
218: -- FND_MESSAGE.SET_TOKEN('NUMBER',k1_rec.k_number);
219: FND_MESSAGE.SET_TOKEN('NUMBER',k1_rec.k_number||': '||k1_rec.k_nbr_mod||': Ending '|| to_char(k1_rec.k_expire_date,'DD-MM-YYYY:hh24:mi:ss'));
220: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
221: END LOOP;
222: commit;
215: END IF;
216:
217: FND_MESSAGE.SET_NAME('OKC','OKC_EDA_CONTRACTS');
218: -- FND_MESSAGE.SET_TOKEN('NUMBER',k1_rec.k_number);
219: FND_MESSAGE.SET_TOKEN('NUMBER',k1_rec.k_number||': '||k1_rec.k_nbr_mod||': Ending '|| to_char(k1_rec.k_expire_date,'DD-MM-YYYY:hh24:mi:ss'));
220: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
221: END LOOP;
222: commit;
223: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
216:
217: FND_MESSAGE.SET_NAME('OKC','OKC_EDA_CONTRACTS');
218: -- FND_MESSAGE.SET_TOKEN('NUMBER',k1_rec.k_number);
219: FND_MESSAGE.SET_TOKEN('NUMBER',k1_rec.k_number||': '||k1_rec.k_nbr_mod||': Ending '|| to_char(k1_rec.k_expire_date,'DD-MM-YYYY:hh24:mi:ss'));
220: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
221: END LOOP;
222: commit;
223: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
224:
509: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
510: RAISE OKC_API.G_EXCEPTION_ERROR;
511: END IF;
512:
513: FND_MESSAGE.SET_NAME('OKC','OKC_EDA_CONTRACTS');
514: FND_MESSAGE.SET_TOKEN('NUMBER',k1_rec.k_number||': '||k1_rec.k_nbr_mod||':Ending '|| to_char(k1_rec.k_expire_date,'DD-MM-YYYY:hh24:mi:ss'));
515: FND_MESSAGE.SET_TOKEN('NUMBER',k1_rec.k_number);
516: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
517:
510: RAISE OKC_API.G_EXCEPTION_ERROR;
511: END IF;
512:
513: FND_MESSAGE.SET_NAME('OKC','OKC_EDA_CONTRACTS');
514: FND_MESSAGE.SET_TOKEN('NUMBER',k1_rec.k_number||': '||k1_rec.k_nbr_mod||':Ending '|| to_char(k1_rec.k_expire_date,'DD-MM-YYYY:hh24:mi:ss'));
515: FND_MESSAGE.SET_TOKEN('NUMBER',k1_rec.k_number);
516: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
517:
518: IF (l_debug = 'Y') THEN
511: END IF;
512:
513: FND_MESSAGE.SET_NAME('OKC','OKC_EDA_CONTRACTS');
514: FND_MESSAGE.SET_TOKEN('NUMBER',k1_rec.k_number||': '||k1_rec.k_nbr_mod||':Ending '|| to_char(k1_rec.k_expire_date,'DD-MM-YYYY:hh24:mi:ss'));
515: FND_MESSAGE.SET_TOKEN('NUMBER',k1_rec.k_number);
516: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
517:
518: IF (l_debug = 'Y') THEN
519: okc_debug.Log('170: going to next k ',2);
512:
513: FND_MESSAGE.SET_NAME('OKC','OKC_EDA_CONTRACTS');
514: FND_MESSAGE.SET_TOKEN('NUMBER',k1_rec.k_number||': '||k1_rec.k_nbr_mod||':Ending '|| to_char(k1_rec.k_expire_date,'DD-MM-YYYY:hh24:mi:ss'));
515: FND_MESSAGE.SET_TOKEN('NUMBER',k1_rec.k_number);
516: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
517:
518: IF (l_debug = 'Y') THEN
519: okc_debug.Log('170: going to next k ',2);
520: END IF;