3:
4:
5: -- GLOBAL VARIABLES
6:
7: G_APP_NAME CONSTANT VARCHAR2(3) := OKE_API.G_APP_NAME;
8: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKE_NO_PARENT_RECORD';
9: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKE_CONTRACTS_UNEXPECTED_ERROR';
10:
11: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_PARENT_TABLE_TOKEN;
7: G_APP_NAME CONSTANT VARCHAR2(3) := OKE_API.G_APP_NAME;
8: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKE_NO_PARENT_RECORD';
9: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKE_CONTRACTS_UNEXPECTED_ERROR';
10:
11: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_PARENT_TABLE_TOKEN;
12: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_CHILD_TABLE_TOKEN;
13: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
14: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
15: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_REQUIRED_VALUE;
8: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKE_NO_PARENT_RECORD';
9: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKE_CONTRACTS_UNEXPECTED_ERROR';
10:
11: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_PARENT_TABLE_TOKEN;
12: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_CHILD_TABLE_TOKEN;
13: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
14: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
15: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_REQUIRED_VALUE;
16: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_INVALID_VALUE;
11: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_PARENT_TABLE_TOKEN;
12: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_CHILD_TABLE_TOKEN;
13: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
14: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
15: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_REQUIRED_VALUE;
16: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_INVALID_VALUE;
17: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_COL_NAME_TOKEN;
18: G_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_CHILD_TABLE_TOKEN;
19: G_EXCEPTION_HALT_VALIDATION exception;
12: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_CHILD_TABLE_TOKEN;
13: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
14: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
15: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_REQUIRED_VALUE;
16: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_INVALID_VALUE;
17: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_COL_NAME_TOKEN;
18: G_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_CHILD_TABLE_TOKEN;
19: G_EXCEPTION_HALT_VALIDATION exception;
20:
13: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
14: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
15: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_REQUIRED_VALUE;
16: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_INVALID_VALUE;
17: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_COL_NAME_TOKEN;
18: G_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_CHILD_TABLE_TOKEN;
19: G_EXCEPTION_HALT_VALIDATION exception;
20:
21: NO_CONTRACT_FOUND exception;
14: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
15: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_REQUIRED_VALUE;
16: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKE_API.G_INVALID_VALUE;
17: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_COL_NAME_TOKEN;
18: G_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKE_API.G_CHILD_TABLE_TOKEN;
19: G_EXCEPTION_HALT_VALIDATION exception;
20:
21: NO_CONTRACT_FOUND exception;
22:
25: G_EXCEPTION_HALT_PROCESS exception;
26:
27: PROCEDURE create_contract_header(
28: p_api_version IN NUMBER,
29: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
30: x_return_status OUT NOCOPY VARCHAR2,
31: x_msg_count OUT NOCOPY NUMBER,
32: x_msg_data OUT NOCOPY VARCHAR2,
33: p_chr_rec IN OKE_CHR_PVT.chr_rec_type,
35:
36: l_chr_rec OKE_CHR_PVT.chr_rec_type := p_chr_rec;
37: BEGIN
38: -- initialize return status
39: x_return_status := OKE_API.G_RET_STS_SUCCESS;
40:
41:
42:
43: OKE_CHR_PVT.Insert_Row(
52: END create_contract_header;
53:
54: FUNCTION Increment_Minor_Version(p_chr_id IN NUMBER) RETURN VARCHAR2 IS
55:
56: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
57:
58: BEGIN
59:
60: RETURN(l_return_status);
62: END;
63:
64: PROCEDURE create_contract_header(
65: p_api_version IN NUMBER,
66: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
67: x_return_status OUT NOCOPY VARCHAR2,
68: x_msg_count OUT NOCOPY NUMBER,
69: x_msg_data OUT NOCOPY VARCHAR2,
70: p_chr_tbl IN OKE_CHR_PVT.chr_tbl_type,
85: END create_contract_header;
86:
87: PROCEDURE update_contract_header(
88: p_api_version IN NUMBER,
89: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
90: x_return_status OUT NOCOPY VARCHAR2,
91: x_msg_count OUT NOCOPY NUMBER,
92: x_msg_data OUT NOCOPY VARCHAR2,
93: p_chr_rec IN OKE_CHR_PVT.chr_rec_type,
107:
108: exception
109: when OTHERS then
110: -- store SQL error message on message stack
111: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
112: p_msg_name => g_unexpected_error,
113: p_token1 => g_sqlcode_token,
114: p_token1_value => sqlcode,
115: p_token2 => g_sqlerrm_token,
115: p_token2 => g_sqlerrm_token,
116: p_token2_value => sqlerrm);
117:
118: -- notify caller of an UNEXPETED error
119: x_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
120: END update_contract_header;
121:
122: PROCEDURE update_contract_header(
123: p_api_version IN NUMBER,
120: END update_contract_header;
121:
122: PROCEDURE update_contract_header(
123: p_api_version IN NUMBER,
124: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
125: x_return_status OUT NOCOPY VARCHAR2,
126: x_msg_count OUT NOCOPY NUMBER,
127: x_msg_data OUT NOCOPY VARCHAR2,
128: p_chr_tbl IN OKE_CHR_PVT.chr_tbl_type,
141: END update_contract_header;
142:
143: PROCEDURE delete_contract_header(
144: p_api_version IN NUMBER,
145: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
146: x_return_status OUT NOCOPY VARCHAR2,
147: x_msg_count OUT NOCOPY NUMBER,
148: x_msg_data OUT NOCOPY VARCHAR2,
149: p_chr_rec IN OKE_CHR_PVT.chr_rec_type) IS
162: EXCEPTION
163:
164: when OTHERS then
165: -- store SQL error message on message stack
166: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
167: p_msg_name => g_unexpected_error,
168: p_token1 => g_sqlcode_token,
169: p_token1_value => sqlcode,
170: p_token2 => g_sqlerrm_token,
170: p_token2 => g_sqlerrm_token,
171: p_token2_value => sqlerrm);
172:
173: -- notify caller of an UNEXPETED error
174: x_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
175: END delete_contract_header;
176:
177:
178:
177:
178:
179: PROCEDURE delete_contract_header(
180: p_api_version IN NUMBER,
181: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
182: x_return_status OUT NOCOPY VARCHAR2,
183: x_msg_count OUT NOCOPY NUMBER,
184: x_msg_data OUT NOCOPY VARCHAR2,
185: p_chr_tbl IN OKE_CHR_PVT.chr_tbl_type) IS
195: END delete_contract_header;
196:
197: PROCEDURE validate_contract_header(
198: p_api_version IN NUMBER,
199: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
200: x_return_status OUT NOCOPY VARCHAR2,
201: x_msg_count OUT NOCOPY NUMBER,
202: x_msg_data OUT NOCOPY VARCHAR2,
203: p_chr_rec IN OKE_CHR_PVT.chr_rec_type) IS
213: END validate_contract_header;
214:
215: PROCEDURE validate_contract_header(
216: p_api_version IN NUMBER,
217: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
218: x_return_status OUT NOCOPY VARCHAR2,
219: x_msg_count OUT NOCOPY NUMBER,
220: x_msg_data OUT NOCOPY VARCHAR2,
221: p_chr_tbl IN OKE_CHR_PVT.chr_tbl_type) IS
231: END validate_contract_header;
232:
233: PROCEDURE create_contract_line(
234: p_api_version IN NUMBER,
235: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
236: x_return_status OUT NOCOPY VARCHAR2,
237: x_msg_count OUT NOCOPY NUMBER,
238: x_msg_data OUT NOCOPY VARCHAR2,
239: p_cle_rec IN OKE_CLE_PVT.cle_rec_type,
241:
242: l_cle_rec OKE_CLE_PVT.cle_rec_type := p_cle_rec;
243: BEGIN
244: -- initialize return status
245: x_return_status := OKE_API.G_RET_STS_SUCCESS;
246:
247:
248:
249: OKE_CLE_PVT.Insert_Row(
258: END create_contract_line;
259:
260: PROCEDURE create_contract_line(
261: p_api_version IN NUMBER,
262: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
263: x_return_status OUT NOCOPY VARCHAR2,
264: x_msg_count OUT NOCOPY NUMBER,
265: x_msg_data OUT NOCOPY VARCHAR2,
266: p_cle_tbl IN OKE_CLE_PVT.cle_tbl_type,
281: END create_contract_line;
282:
283: PROCEDURE update_contract_line(
284: p_api_version IN NUMBER,
285: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
286: x_return_status OUT NOCOPY VARCHAR2,
287: x_msg_count OUT NOCOPY NUMBER,
288: x_msg_data OUT NOCOPY VARCHAR2,
289: p_cle_rec IN OKE_CLE_PVT.cle_rec_type,
305:
306: exception
307: when OTHERS then
308: -- store SQL error message on message stack
309: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
310: p_msg_name => g_unexpected_error,
311: p_token1 => g_sqlcode_token,
312: p_token1_value => sqlcode,
313: p_token2 => g_sqlerrm_token,
313: p_token2 => g_sqlerrm_token,
314: p_token2_value => sqlerrm);
315:
316: -- notify caller of an UNEXPETED error
317: x_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
318: END update_contract_line;
319:
320: PROCEDURE update_contract_line(
321: p_api_version IN NUMBER,
318: END update_contract_line;
319:
320: PROCEDURE update_contract_line(
321: p_api_version IN NUMBER,
322: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
323: x_return_status OUT NOCOPY VARCHAR2,
324: x_msg_count OUT NOCOPY NUMBER,
325: x_msg_data OUT NOCOPY VARCHAR2,
326: p_cle_tbl IN OKE_CLE_PVT.cle_tbl_type,
338: END update_contract_line;
339:
340: PROCEDURE delete_contract_line(
341: p_api_version IN NUMBER,
342: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
343: x_return_status OUT NOCOPY VARCHAR2,
344: x_msg_count OUT NOCOPY NUMBER,
345: x_msg_data OUT NOCOPY VARCHAR2,
346: p_cle_rec IN OKE_CLE_PVT.cle_rec_type) IS
344: x_msg_count OUT NOCOPY NUMBER,
345: x_msg_data OUT NOCOPY VARCHAR2,
346: p_cle_rec IN OKE_CLE_PVT.cle_rec_type) IS
347:
348: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
349: l_chr_id NUMBER;
350: l_dummy_val NUMBER;
351: CURSOR l_csr IS
352: SELECT COUNT(*)
368: x_msg_count => x_msg_count,
369: x_msg_data => x_msg_data,
370: p_cle_rec => p_cle_rec);
371: ELSE
372: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
373: p_msg_name => g_no_parent_record,
374: p_token1 => g_child_table_token,
375: p_token1_value => 'OKE_K_LINES_full_V',
376: p_token2 => g_parent_table_token,
375: p_token1_value => 'OKE_K_LINES_full_V',
376: p_token2 => g_parent_table_token,
377: p_token2_value => 'OKE_K_LINES_V');
378: -- notify caller of an error
379: x_return_status := OKE_API.G_RET_STS_ERROR;
380: End If;
381:
382: EXCEPTION
383: when OTHERS then
381:
382: EXCEPTION
383: when OTHERS then
384: -- store SQL error message on message stack
385: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
386: p_msg_name => g_unexpected_error,
387: p_token1 => g_sqlcode_token,
388: p_token1_value => sqlcode,
389: p_token2 => g_sqlerrm_token,
389: p_token2 => g_sqlerrm_token,
390: p_token2_value => sqlerrm);
391:
392: -- notify caller of an UNEXPETED error
393: x_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
394: END delete_contract_line;
395:
396:
397:
396:
397:
398: PROCEDURE delete_contract_line(
399: p_api_version IN NUMBER,
400: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
401: x_return_status OUT NOCOPY VARCHAR2,
402: x_msg_count OUT NOCOPY NUMBER,
403: x_msg_data OUT NOCOPY VARCHAR2,
404: p_cle_tbl IN OKE_CLE_PVT.cle_tbl_type) IS
414: END delete_contract_line;
415:
416: PROCEDURE delete_contract_line(
417: p_api_version IN NUMBER,
418: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
419: x_return_status OUT NOCOPY VARCHAR2,
420: x_msg_count OUT NOCOPY NUMBER,
421: x_msg_data OUT NOCOPY VARCHAR2,
422: p_line_id IN NUMBER) IS
472: PROCEDURE Validate_Line_id(
473:
474: p_line_id IN NUMBER,
475: x_return_status OUT NOCOPY VARCHAR2) IS
476: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
477: l_Count NUMBER;
478: CURSOR Cur_Line(P_Line_Id IN NUMBER) IS
479: SELECT COUNT(*) FROM OKC_K_LINES_V
480: WHERE id=P_Line_Id;
478: CURSOR Cur_Line(P_Line_Id IN NUMBER) IS
479: SELECT COUNT(*) FROM OKC_K_LINES_V
480: WHERE id=P_Line_Id;
481: BEGIN
482: IF P_Line_id = OKE_API.G_MISS_NUM OR
483: P_Line_Id IS NULL
484: THEN
485:
486:
483: P_Line_Id IS NULL
484: THEN
485:
486:
487: OKE_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'P_Lin
488: e_Id');
489:
490:
491: l_return_status := OKE_API.G_RET_STS_ERROR;
487: OKE_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'P_Lin
488: e_Id');
489:
490:
491: l_return_status := OKE_API.G_RET_STS_ERROR;
492: END IF;
493:
494: OPEN Cur_Line(P_LIne_Id);
495: FETCH Cur_Line INTO l_Count;
496: CLOSE Cur_Line;
497: IF NOT l_Count = 1
498:
499: THEN
500: OKE_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'P_Line
501: _Id');
502:
503:
504: l_return_status := OKE_API.G_RET_STS_ERROR;
500: OKE_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'P_Line
501: _Id');
502:
503:
504: l_return_status := OKE_API.G_RET_STS_ERROR;
505: END IF;
506: x_return_status := l_return_status;
507: EXCEPTION
508: WHEN OTHERS THEN
507: EXCEPTION
508: WHEN OTHERS THEN
509: -- store SQL error message on message stack for caller
510:
511: OKE_API.set_message(G_APP_NAME,
512: G_UNEXPECTED_ERROR,
513: G_SQLCODE_TOKEN,
514: SQLCODE,
515: G_SQLERRM_TOKEN,
514: SQLCODE,
515: G_SQLERRM_TOKEN,
516: SQLERRM);
517: -- notify caller of an UNEXPECTED error
518: x_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
519: END Validate_Line_id;
520: BEGIN
521: x_return_status:=OKE_API.G_RET_STS_SUCCESS;
522:
517: -- notify caller of an UNEXPECTED error
518: x_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
519: END Validate_Line_id;
520: BEGIN
521: x_return_status:=OKE_API.G_RET_STS_SUCCESS;
522:
523: Validate_Line_id(p_line_id,l_return_status);
524: IF NOT l_Return_Status ='S'
525: THEN RETURN;
599: WHEN e_Error THEN
600: -- notify caller of an error as UNEXPETED error
601: x_msg_count :=l_msg_count;
602: x_msg_data:=l_msg_data;
603: x_return_status := OKE_API.HANDLE_EXCEPTIONS
604: (
605: l_api_name,
606: 'Delete_Contract_Line',
607: 'OKE_API.G_RET_STS_ERROR',
603: x_return_status := OKE_API.HANDLE_EXCEPTIONS
604: (
605: l_api_name,
606: 'Delete_Contract_Line',
607: 'OKE_API.G_RET_STS_ERROR',
608: l_msg_count,
609: l_msg_data,
610: '_PVT'
611: );
608: l_msg_count,
609: l_msg_data,
610: '_PVT'
611: );
612: WHEN OKE_API.G_EXCEPTION_ERROR THEN
613: x_msg_count :=l_msg_count;
614: x_msg_data:=l_msg_data;
615: x_return_status := OKE_API.HANDLE_EXCEPTIONS
616: (
611: );
612: WHEN OKE_API.G_EXCEPTION_ERROR THEN
613: x_msg_count :=l_msg_count;
614: x_msg_data:=l_msg_data;
615: x_return_status := OKE_API.HANDLE_EXCEPTIONS
616: (
617: l_api_name,
618: 'Delete_Contract_Line',
619: 'OKE_API.G_RET_STS_ERROR',
615: x_return_status := OKE_API.HANDLE_EXCEPTIONS
616: (
617: l_api_name,
618: 'Delete_Contract_Line',
619: 'OKE_API.G_RET_STS_ERROR',
620: l_msg_count,
621: l_msg_data,
622: '_PVT'
623: );
620: l_msg_count,
621: l_msg_data,
622: '_PVT'
623: );
624: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
625: x_msg_count :=l_msg_count;
626: x_msg_data:=l_msg_data;
627: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
628: (
623: );
624: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
625: x_msg_count :=l_msg_count;
626: x_msg_data:=l_msg_data;
627: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
628: (
629: l_api_name,
630: 'Delete_Contract_Line',
631: 'OKE_API.G_RET_STS_UNEXP_ERROR',
627: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
628: (
629: l_api_name,
630: 'Delete_Contract_Line',
631: 'OKE_API.G_RET_STS_UNEXP_ERROR',
632: l_msg_count,
633: l_msg_data,
634: '_PVT'
635: );
634: '_PVT'
635: );
636: WHEN OTHERS THEN
637: x_msg_count :=l_msg_count;
638: OKE_API.SET_MESSAGE(
639: p_app_name => g_app_name,
640: p_msg_name => g_unexpected_error,
641: p_token1 => g_sqlcode_token,
642: p_token1_value => sqlcode,
642: p_token1_value => sqlcode,
643: p_token2 => g_sqlerrm_token,
644: p_token2_value => sqlerrm);
645: -- notify caller of an error as UNEXPETED error
646: x_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
647:
648: END delete_contract_line;
649:
650: PROCEDURE validate_contract_line(
648: END delete_contract_line;
649:
650: PROCEDURE validate_contract_line(
651: p_api_version IN NUMBER,
652: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
653: x_return_status OUT NOCOPY VARCHAR2,
654: x_msg_count OUT NOCOPY NUMBER,
655: x_msg_data OUT NOCOPY VARCHAR2,
656: p_cle_rec IN OKE_CLE_PVT.cle_rec_type) IS
666: END validate_contract_line;
667:
668: PROCEDURE validate_contract_line(
669: p_api_version IN NUMBER,
670: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
671: x_return_status OUT NOCOPY VARCHAR2,
672: x_msg_count OUT NOCOPY NUMBER,
673: x_msg_data OUT NOCOPY VARCHAR2,
674: p_cle_tbl IN OKE_CLE_PVT.cle_tbl_type) IS
717: where k_line_id = p_id;
718: l_standard_notes l_standard_notes_csr%ROWTYPE;
719:
720:
721: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
722: l_id NUMBER;
723: BEGIN
724:
725: for l_standard_notes in l_standard_notes_csr(p_line_id)
784: end;
785:
786: PROCEDURE create_deliverable(
787: p_api_version IN NUMBER,
788: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
789: x_return_status OUT NOCOPY VARCHAR2,
790: x_msg_count OUT NOCOPY NUMBER,
791: x_msg_data OUT NOCOPY VARCHAR2,
792: p_del_rec IN OKE_DELIVERABLE_PVT.del_rec_type,
794:
795: l_del_rec OKE_DELIVERABLE_PVT.del_rec_type := p_del_rec;
796: BEGIN
797: -- initialize return status
798: x_return_status := OKE_API.G_RET_STS_SUCCESS;
799:
800:
801:
802: OKE_DELIVERABLE_PVT.Insert_Row(
812: /* copy_related_entities(x_del_rec.k_line_id,
813: x_del_rec.deliverable_id,
814: x_return_status);*/
815:
816: If x_return_status = OKE_API.G_RET_STS_SUCCESS Then
817: OKE_DTS_WORKFLOW.LAUNCH_MAIN_PROCESS(x_del_rec.deliverable_id,'AUTO');
818: End If;
819:
820:
821: END create_deliverable;
822:
823: PROCEDURE create_deliverable(
824: p_api_version IN NUMBER,
825: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
826: x_return_status OUT NOCOPY VARCHAR2,
827: x_msg_count OUT NOCOPY NUMBER,
828: x_msg_data OUT NOCOPY VARCHAR2,
829: p_del_tbl IN OKE_DELIVERABLE_PVT.del_tbl_type,
844: END create_deliverable;
845:
846: PROCEDURE update_deliverable(
847: p_api_version IN NUMBER,
848: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
849: x_return_status OUT NOCOPY VARCHAR2,
850: x_msg_count OUT NOCOPY NUMBER,
851: x_msg_data OUT NOCOPY VARCHAR2,
852: p_del_rec IN OKE_DELIVERABLE_PVT.del_rec_type,
868:
869: exception
870: when OTHERS then
871: -- store SQL error message on message stack
872: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
873: p_msg_name => g_unexpected_error,
874: p_token1 => g_sqlcode_token,
875: p_token1_value => sqlcode,
876: p_token2 => g_sqlerrm_token,
876: p_token2 => g_sqlerrm_token,
877: p_token2_value => sqlerrm);
878:
879: -- notify caller of an UNEXPETED error
880: x_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
881: END update_deliverable;
882:
883: PROCEDURE update_deliverable(
884: p_api_version IN NUMBER,
881: END update_deliverable;
882:
883: PROCEDURE update_deliverable(
884: p_api_version IN NUMBER,
885: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
886: x_return_status OUT NOCOPY VARCHAR2,
887: x_msg_count OUT NOCOPY NUMBER,
888: x_msg_data OUT NOCOPY VARCHAR2,
889: p_del_tbl IN OKE_DELIVERABLE_PVT.del_tbl_type,
901: END update_deliverable;
902:
903: PROCEDURE delete_deliverable(
904: p_api_version IN NUMBER,
905: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
906: x_return_status OUT NOCOPY VARCHAR2,
907: x_msg_count OUT NOCOPY NUMBER,
908: x_msg_data OUT NOCOPY VARCHAR2,
909: p_del_rec IN OKE_DELIVERABLE_PVT.del_rec_type) IS
907: x_msg_count OUT NOCOPY NUMBER,
908: x_msg_data OUT NOCOPY VARCHAR2,
909: p_del_rec IN OKE_DELIVERABLE_PVT.del_rec_type) IS
910:
911: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
912: l_chr_id NUMBER;
913: l_dummy_val NUMBER;
914: CURSOR l_csr IS
915: SELECT COUNT(*)
931: x_msg_count => x_msg_count,
932: x_msg_data => x_msg_data,
933: p_del_rec => p_del_rec);
934: ELSE
935: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
936: p_msg_name => g_no_parent_record,
937: p_token1 => g_child_table_token,
938: p_token1_value => 'OKE_K_LINES_full_V',
939: p_token2 => g_parent_table_token,
938: p_token1_value => 'OKE_K_LINES_full_V',
939: p_token2 => g_parent_table_token,
940: p_token2_value => 'OKE_K_LINES_V');
941: -- notify caller of an error
942: x_return_status := OKE_API.G_RET_STS_ERROR;
943: End If;
944:
945: EXCEPTION
946: when OTHERS then
944:
945: EXCEPTION
946: when OTHERS then
947: -- store SQL error message on message stack
948: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
949: p_msg_name => g_unexpected_error,
950: p_token1 => g_sqlcode_token,
951: p_token1_value => sqlcode,
952: p_token2 => g_sqlerrm_token,
952: p_token2 => g_sqlerrm_token,
953: p_token2_value => sqlerrm);
954:
955: -- notify caller of an UNEXPETED error
956: x_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
957: END delete_deliverable;
958:
959:
960:
959:
960:
961: PROCEDURE delete_deliverable(
962: p_api_version IN NUMBER,
963: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
964: x_return_status OUT NOCOPY VARCHAR2,
965: x_msg_count OUT NOCOPY NUMBER,
966: x_msg_data OUT NOCOPY VARCHAR2,
967: p_del_tbl IN OKE_DELIVERABLE_PVT.del_tbl_type) IS
977: END delete_deliverable;
978:
979: PROCEDURE delete_deliverable(
980: p_api_version IN NUMBER,
981: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
982: x_return_status OUT NOCOPY VARCHAR2,
983: x_msg_count OUT NOCOPY NUMBER,
984: x_msg_data OUT NOCOPY VARCHAR2,
985: p_deliverable_id IN NUMBER) IS
1035: PROCEDURE Validate_Deliverable_id(
1036:
1037: p_deliverable_id IN NUMBER,
1038: x_return_status OUT NOCOPY VARCHAR2) IS
1039: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1040: l_Count NUMBER;
1041: CURSOR Cur_Deliverable(P_Deliverable_Id IN NUMBER) IS
1042: SELECT COUNT(*) FROM oke_k_deliverables_b
1043: WHERE deliverable_id=P_Deliverable_Id;
1041: CURSOR Cur_Deliverable(P_Deliverable_Id IN NUMBER) IS
1042: SELECT COUNT(*) FROM oke_k_deliverables_b
1043: WHERE deliverable_id=P_Deliverable_Id;
1044: BEGIN
1045: IF p_deliverable_id = OKE_API.G_MISS_NUM OR
1046: P_Deliverable_Id IS NULL
1047: THEN
1048:
1049:
1046: P_Deliverable_Id IS NULL
1047: THEN
1048:
1049:
1050: OKE_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'P_Deliverable_Id');
1051:
1052:
1053: l_return_status := OKE_API.G_RET_STS_ERROR;
1054: END IF;
1049:
1050: OKE_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'P_Deliverable_Id');
1051:
1052:
1053: l_return_status := OKE_API.G_RET_STS_ERROR;
1054: END IF;
1055:
1056: OPEN Cur_Deliverable(P_Deliverable_Id);
1057: FETCH Cur_Deliverable INTO l_Count;
1058: CLOSE Cur_Deliverable;
1059: IF NOT l_Count = 1
1060:
1061: THEN
1062: OKE_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'P_Line
1063: _Id');
1064:
1065:
1066: l_return_status := OKE_API.G_RET_STS_ERROR;
1062: OKE_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'P_Line
1063: _Id');
1064:
1065:
1066: l_return_status := OKE_API.G_RET_STS_ERROR;
1067: END IF;
1068: x_return_status := l_return_status;
1069: EXCEPTION
1070: WHEN OTHERS THEN
1069: EXCEPTION
1070: WHEN OTHERS THEN
1071: -- store SQL error message on message stack for caller
1072:
1073: OKE_API.set_message(G_APP_NAME,
1074: G_UNEXPECTED_ERROR,
1075: G_SQLCODE_TOKEN,
1076: SQLCODE,
1077: G_SQLERRM_TOKEN,
1076: SQLCODE,
1077: G_SQLERRM_TOKEN,
1078: SQLERRM);
1079: -- notify caller of an UNEXPECTED error
1080: x_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1081: END Validate_Deliverable_id;
1082: BEGIN
1083: x_return_status:=OKE_API.G_RET_STS_SUCCESS;
1084:
1079: -- notify caller of an UNEXPECTED error
1080: x_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1081: END Validate_Deliverable_id;
1082: BEGIN
1083: x_return_status:=OKE_API.G_RET_STS_SUCCESS;
1084:
1085: Validate_Deliverable_id(p_deliverable_id,l_return_status);
1086: IF NOT l_Return_Status ='S'
1087: THEN RETURN;
1159: WHEN e_Error THEN
1160: -- notify caller of an error as UNEXPETED error
1161: x_msg_count :=l_msg_count;
1162: x_msg_data:=l_msg_data;
1163: x_return_status := OKE_API.HANDLE_EXCEPTIONS
1164: (
1165: l_api_name,
1166: 'Delete_Deliverable',
1167: 'OKE_API.G_RET_STS_ERROR',
1163: x_return_status := OKE_API.HANDLE_EXCEPTIONS
1164: (
1165: l_api_name,
1166: 'Delete_Deliverable',
1167: 'OKE_API.G_RET_STS_ERROR',
1168: l_msg_count,
1169: l_msg_data,
1170: '_PVT'
1171: );
1168: l_msg_count,
1169: l_msg_data,
1170: '_PVT'
1171: );
1172: WHEN OKE_API.G_EXCEPTION_ERROR THEN
1173: x_msg_count :=l_msg_count;
1174: x_msg_data:=l_msg_data;
1175: x_return_status := OKE_API.HANDLE_EXCEPTIONS
1176: (
1171: );
1172: WHEN OKE_API.G_EXCEPTION_ERROR THEN
1173: x_msg_count :=l_msg_count;
1174: x_msg_data:=l_msg_data;
1175: x_return_status := OKE_API.HANDLE_EXCEPTIONS
1176: (
1177: l_api_name,
1178: 'Delete_Deliverable',
1179: 'OKE_API.G_RET_STS_ERROR',
1175: x_return_status := OKE_API.HANDLE_EXCEPTIONS
1176: (
1177: l_api_name,
1178: 'Delete_Deliverable',
1179: 'OKE_API.G_RET_STS_ERROR',
1180: l_msg_count,
1181: l_msg_data,
1182: '_PVT'
1183: );
1180: l_msg_count,
1181: l_msg_data,
1182: '_PVT'
1183: );
1184: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1185: x_msg_count :=l_msg_count;
1186: x_msg_data:=l_msg_data;
1187: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
1188: (
1183: );
1184: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1185: x_msg_count :=l_msg_count;
1186: x_msg_data:=l_msg_data;
1187: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
1188: (
1189: l_api_name,
1190: 'Delete_Deliverable',
1191: 'OKE_API.G_RET_STS_UNEXP_ERROR',
1187: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
1188: (
1189: l_api_name,
1190: 'Delete_Deliverable',
1191: 'OKE_API.G_RET_STS_UNEXP_ERROR',
1192: l_msg_count,
1193: l_msg_data,
1194: '_PVT'
1195: );
1194: '_PVT'
1195: );
1196: WHEN OTHERS THEN
1197: x_msg_count :=l_msg_count;
1198: OKE_API.SET_MESSAGE(
1199: p_app_name => g_app_name,
1200: p_msg_name => g_unexpected_error,
1201: p_token1 => g_sqlcode_token,
1202: p_token1_value => sqlcode,
1202: p_token1_value => sqlcode,
1203: p_token2 => g_sqlerrm_token,
1204: p_token2_value => sqlerrm);
1205: -- notify caller of an error as UNEXPETED error
1206: x_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1207:
1208: END delete_deliverable;
1209:
1210: PROCEDURE validate_deliverable(
1208: END delete_deliverable;
1209:
1210: PROCEDURE validate_deliverable(
1211: p_api_version IN NUMBER,
1212: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
1213: x_return_status OUT NOCOPY VARCHAR2,
1214: x_msg_count OUT NOCOPY NUMBER,
1215: x_msg_data OUT NOCOPY VARCHAR2,
1216: p_del_rec IN OKE_DELIVERABLE_PVT.del_rec_type) IS
1226: END validate_deliverable;
1227:
1228: PROCEDURE validate_deliverable(
1229: p_api_version IN NUMBER,
1230: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
1231: x_return_status OUT NOCOPY VARCHAR2,
1232: x_msg_count OUT NOCOPY NUMBER,
1233: x_msg_data OUT NOCOPY VARCHAR2,
1234: p_del_tbl IN OKE_DELIVERABLE_PVT.del_tbl_type) IS
1244: END validate_deliverable;
1245:
1246: PROCEDURE lock_deliverable(
1247: p_api_version IN NUMBER,
1248: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
1249: x_return_status OUT NOCOPY VARCHAR2,
1250: x_msg_count OUT NOCOPY NUMBER,
1251: x_msg_data OUT NOCOPY VARCHAR2,
1252: p_del_rec IN OKE_DELIVERABLE_PVT.del_rec_type) IS
1262: END lock_deliverable;
1263:
1264: PROCEDURE lock_deliverable(
1265: p_api_version IN NUMBER,
1266: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
1267: x_return_status OUT NOCOPY VARCHAR2,
1268: x_msg_count OUT NOCOPY NUMBER,
1269: x_msg_data OUT NOCOPY VARCHAR2,
1270: p_del_tbl IN OKE_DELIVERABLE_PVT.del_tbl_type) IS
1352: delete from oke_k_billing_events
1353: where k_header_id= p_header_id;
1354:
1355:
1356: x_return_status := OKE_API.G_RET_STS_SUCCESS;
1357:
1358:
1359: EXCEPTION
1360: when OTHERS then
1358:
1359: EXCEPTION
1360: when OTHERS then
1361: -- store SQL error message on message stack
1362: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1363: p_msg_name => g_unexpected_error,
1364: p_token1 => g_sqlcode_token,
1365: p_token1_value => sqlcode,
1366: p_token2 => g_sqlerrm_token,
1366: p_token2 => g_sqlerrm_token,
1367: p_token2_value => sqlerrm);
1368:
1369: -- notify caller of an UNEXPETED error
1370: x_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1371:
1372: END delete_minor_entities;
1373:
1374: PROCEDURE delete_version_records (
1441:
1442: dbms_output.put_line('after erase saved version'||l_return_status);
1443:
1444: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1445: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1446: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1447: RAISE OKE_API.G_EXCEPTION_ERROR;
1448: END IF;
1449:
1443:
1444: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1445: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1446: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1447: RAISE OKE_API.G_EXCEPTION_ERROR;
1448: END IF;
1449:
1450: dbms_output.put_line('erase saved version succcess');
1451:
1449:
1450: dbms_output.put_line('erase saved version succcess');
1451:
1452:
1453: x_return_status := OKE_API.G_RET_STS_SUCCESS;
1454:
1455:
1456: EXCEPTION
1457: when OTHERS then
1457: when OTHERS then
1458:
1459: dbms_output.put_line('exception in del ver');
1460: -- store SQL error message on message stack
1461: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1462: p_msg_name => g_unexpected_error,
1463: p_token1 => g_sqlcode_token,
1464: p_token1_value => sqlcode,
1465: p_token2 => g_sqlerrm_token,
1465: p_token2 => g_sqlerrm_token,
1466: p_token2_value => sqlerrm);
1467:
1468: -- notify caller of an UNEXPETED error
1469: x_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
1470:
1471: END delete_version_records;
1472:
1473: