[Home] [Help]
10: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
11: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
12: G_VIEW CONSTANT VARCHAR2(200) := 'OKE_K_DELIVERABLES_VL';
13: G_EXCEPTION_HALT_VALIDATION exception;
14: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
15:
16: -- validation code goes here
17:
18:
27: WHERE ID = P_ID;
28:
29: Begin
30:
31: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
32:
33: IF P_DEL_REC.K_Header_ID IS NOT NULL THEN
34:
35:
39: CLOSE C;
40:
41: IF L_Value <> 'X' THEN
42:
43: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
44: p_msg_name => g_invalid_value,
45: p_token1 => g_col_name_token,
46: p_token1_value => 'K_Header_ID');
47: -- notify caller of an error
44: p_msg_name => g_invalid_value,
45: p_token1 => g_col_name_token,
46: p_token1_value => 'K_Header_ID');
47: -- notify caller of an error
48: X_Return_Status := OKE_API.G_RET_STS_ERROR;
49:
50: -- halt validation
51: RAISE G_EXCEPTION_HALT_VALIDATION;
52:
53: END IF;
54:
55: ELSE
56:
57: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
58: p_msg_name => g_required_value,
59: p_token1 => g_col_name_token,
60: p_token1_value => 'K_Header_ID');
61: -- notify caller of an error
58: p_msg_name => g_required_value,
59: p_token1 => g_col_name_token,
60: p_token1_value => 'K_Header_ID');
61: -- notify caller of an error
62: X_Return_Status := OKE_API.G_RET_STS_ERROR;
63:
64: -- halt validation
65: RAISE G_EXCEPTION_HALT_VALIDATION;
66:
74:
75: WHEN OTHERS THEN
76:
77: -- store SQL error message on message stack
78: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
79: p_msg_name => g_unexpected_error,
80: p_token1 => g_sqlcode_token,
81: p_token1_value=> sqlcode,
82: p_token2 => g_sqlerrm_token,
81: p_token1_value=> sqlcode,
82: p_token2 => g_sqlerrm_token,
83: p_token2_value=> sqlerrm);
84: -- notify caller of an error as UNEXPETED error
85: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
86:
87: End Validate_Header_ID;
88:
89: PROCEDURE Validate_Line_ID (X_Return_Status OUT NOCOPY VARCHAR2,
99: WHERE Cle_ID_Ascendant = P_ID);
100:
101: Begin
102:
103: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
104:
105: IF P_DEL_REC.K_Line_ID IS NOT NULL THEN
106:
107: -- Only the lowest level line should carrry deliverables
113:
114:
115: IF L_Value <> 'X' THEN
116:
117: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
118: p_msg_name => g_invalid_value,
119: p_token1 => g_col_name_token,
120: p_token1_value => 'K_Line_ID');
121: -- notify caller of an error
118: p_msg_name => g_invalid_value,
119: p_token1 => g_col_name_token,
120: p_token1_value => 'K_Line_ID');
121: -- notify caller of an error
122: X_Return_Status := OKE_API.G_RET_STS_ERROR;
123:
124: -- halt validation
125: RAISE G_EXCEPTION_HALT_VALIDATION;
126:
127: END IF;
128:
129: ELSE
130:
131: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
132: p_msg_name => g_required_value,
133: p_token1 => g_col_name_token,
134: p_token1_value => 'K_Line_ID');
135: -- notify caller of an error
132: p_msg_name => g_required_value,
133: p_token1 => g_col_name_token,
134: p_token1_value => 'K_Line_ID');
135: -- notify caller of an error
136: X_Return_Status := OKE_API.G_RET_STS_ERROR;
137:
138: -- halt validation
139: RAISE G_EXCEPTION_HALT_VALIDATION;
140:
148:
149: WHEN OTHERS THEN
150:
151: -- store SQL error message on message stack
152: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
153: p_msg_name => g_unexpected_error,
154: p_token1 => g_sqlcode_token,
155: p_token1_value=> sqlcode,
156: p_token2 => g_sqlerrm_token,
155: p_token1_value=> sqlcode,
156: p_token2 => g_sqlerrm_token,
157: p_token2_value=> sqlerrm);
158: -- notify caller of an error as UNEXPETED error
159: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
160:
161: End Validate_Line_ID;
162:
163:
173: AND K_Line_ID = P_ID;
174:
175: Begin
176:
177: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
178:
179: IF P_DEL_REC.Deliverable_Num IS NOT NULL AND P_DEL_REC.Deliverable_ID IS NULL THEN
180:
181: OPEN C ( P_DEL_REC.K_Line_ID, P_DEL_REC.Deliverable_Num );
185:
186:
187: IF L_Value = 'X' THEN
188:
189: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
190: p_msg_name => g_invalid_value,
191: p_token1 => g_col_name_token,
192: p_token1_value => 'Deliverable_Num');
193: -- notify caller of an error
190: p_msg_name => g_invalid_value,
191: p_token1 => g_col_name_token,
192: p_token1_value => 'Deliverable_Num');
193: -- notify caller of an error
194: X_Return_Status := OKE_API.G_RET_STS_ERROR;
195:
196: -- halt validation
197: RAISE G_EXCEPTION_HALT_VALIDATION;
198:
207:
208: WHEN OTHERS THEN
209:
210: -- store SQL error message on message stack
211: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
212: p_msg_name => g_unexpected_error,
213: p_token1 => g_sqlcode_token,
214: p_token1_value=> sqlcode,
215: p_token2 => g_sqlerrm_token,
214: p_token1_value=> sqlcode,
215: p_token2 => g_sqlerrm_token,
216: p_token2_value=> sqlerrm);
217: -- notify caller of an error as UNEXPETED error
218: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
219:
220: End Validate_Deliverable_Number;
221:
222: PROCEDURE Validate_Project_ID (X_Return_Status OUT NOCOPY VARCHAR2,
267: WHERE CLE_ID = P_ID;
268:
269: Begin
270:
271: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
272:
273: IF P_DEL_REC.Project_ID IS NOT NULL THEN
274:
275: L_Line_Id := P_DEL_REC.K_Line_ID;
320:
321:
322: IF L_Value <> 'X' THEN
323:
324: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
325: p_msg_name => g_invalid_value,
326: p_token1 => g_col_name_token,
327: p_token1_value => 'Project_ID');
328: -- notify caller of an error
325: p_msg_name => g_invalid_value,
326: p_token1 => g_col_name_token,
327: p_token1_value => 'Project_ID');
328: -- notify caller of an error
329: X_Return_Status := OKE_API.G_RET_STS_ERROR;
330:
331: -- halt validation
332: RAISE G_EXCEPTION_HALT_VALIDATION;
333:
343:
344: WHEN OTHERS THEN
345:
346: -- store SQL error message on message stack
347: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
348: p_msg_name => g_unexpected_error,
349: p_token1 => g_sqlcode_token,
350: p_token1_value=> sqlcode,
351: p_token2 => g_sqlerrm_token,
350: p_token1_value=> sqlcode,
351: p_token2 => g_sqlerrm_token,
352: p_token2_value=> sqlerrm);
353: -- notify caller of an error as UNEXPETED error
354: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
355:
356: End Validate_Project_ID;
357:
358: PROCEDURE Validate_Task_ID (X_Return_Status OUT NOCOPY VARCHAR2,
366: AND Project_ID = P_ID2;
367:
368: Begin
369:
370: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
371:
372: IF P_DEL_REC.Task_ID IS NOT NULL THEN
373:
374: IF P_DEL_REC.Project_ID IS NULL THEN
372: IF P_DEL_REC.Task_ID IS NOT NULL THEN
373:
374: IF P_DEL_REC.Project_ID IS NULL THEN
375:
376: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
377: p_msg_name => g_required_value,
378: p_token1 => g_col_name_token,
379: p_token1_value => 'Project_ID');
380: -- notify caller of an error
377: p_msg_name => g_required_value,
378: p_token1 => g_col_name_token,
379: p_token1_value => 'Project_ID');
380: -- notify caller of an error
381: X_Return_Status := OKE_API.G_RET_STS_ERROR;
382:
383: -- halt validation
384: RAISE G_EXCEPTION_HALT_VALIDATION;
385:
390: CLOSE C;
391:
392: IF L_Value <> 'X' THEN
393:
394: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
395: p_msg_name => g_invalid_value,
396: p_token1 => g_col_name_token,
397: p_token1_value => 'Task_ID');
398: -- notify caller of an error
395: p_msg_name => g_invalid_value,
396: p_token1 => g_col_name_token,
397: p_token1_value => 'Task_ID');
398: -- notify caller of an error
399: X_Return_Status := OKE_API.G_RET_STS_ERROR;
400:
401: -- halt validation
402: RAISE G_EXCEPTION_HALT_VALIDATION;
403:
414:
415: WHEN OTHERS THEN
416:
417: -- store SQL error message on message stack
418: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
419: p_msg_name => g_unexpected_error,
420: p_token1 => g_sqlcode_token,
421: p_token1_value=> sqlcode,
422: p_token2 => g_sqlerrm_token,
421: p_token1_value=> sqlcode,
422: p_token2 => g_sqlerrm_token,
423: p_token2_value=> sqlerrm);
424: -- notify caller of an error as UNEXPETED error
425: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
426:
427: End Validate_Task_ID;
428:
429: PROCEDURE Validate_Inventory_Org_ID (X_Return_Status OUT NOCOPY VARCHAR2,
436: WHERE ID1 = P_ID;
437:
438: Begin
439:
440: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
441:
442: IF P_DEL_REC.Inventory_Org_ID IS NOT NULL THEN
443:
444: OPEN C ( P_DEL_REC.Inventory_Org_ID );
446: CLOSE C;
447:
448: IF L_Value <> 'X' THEN
449:
450: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
451: p_msg_name => g_invalid_value,
452: p_token1 => g_col_name_token,
453: p_token1_value => 'Inventory_Org_ID');
454: -- notify caller of an error
451: p_msg_name => g_invalid_value,
452: p_token1 => g_col_name_token,
453: p_token1_value => 'Inventory_Org_ID');
454: -- notify caller of an error
455: X_Return_Status := OKE_API.G_RET_STS_ERROR;
456:
457: -- halt validation
458: RAISE G_EXCEPTION_HALT_VALIDATION;
459:
460: END IF;
461:
462: ELSE
463:
464: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
465: p_msg_name => g_required_value,
466: p_token1 => g_col_name_token,
467: p_token1_value => 'Inventory_Org_ID');
468: -- notify caller of an error
465: p_msg_name => g_required_value,
466: p_token1 => g_col_name_token,
467: p_token1_value => 'Inventory_Org_ID');
468: -- notify caller of an error
469: X_Return_Status := OKE_API.G_RET_STS_ERROR;
470:
471: -- halt validation
472: RAISE G_EXCEPTION_HALT_VALIDATION;
473:
481:
482: WHEN OTHERS THEN
483:
484: -- store SQL error message on message stack
485: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
486: p_msg_name => g_unexpected_error,
487: p_token1 => g_sqlcode_token,
488: p_token1_value=> sqlcode,
489: p_token2 => g_sqlerrm_token,
488: p_token1_value=> sqlcode,
489: p_token2 => g_sqlerrm_token,
490: p_token2_value=> sqlerrm);
491: -- notify caller of an error as UNEXPETED error
492: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
493:
494: End Validate_Inventory_Org_ID;
495:
496: PROCEDURE Validate_Item_ID (X_Return_Status OUT NOCOPY VARCHAR2,
505: AND ID2 = P_ID2;
506:
507: Begin
508:
509: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
510:
511: IF P_DEL_REC.Item_ID IS NOT NULL THEN
512:
513: IF P_DEL_REC.Direction = 'OUT' THEN
537: END IF;
538:
539: IF P_DEL_REC.Inventory_Org_ID IS NULL THEN
540:
541: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
542: p_msg_name => g_required_value,
543: p_token1 => g_col_name_token,
544: p_token1_value => 'Inventory_Org_ID');
545: -- notify caller of an error
542: p_msg_name => g_required_value,
543: p_token1 => g_col_name_token,
544: p_token1_value => 'Inventory_Org_ID');
545: -- notify caller of an error
546: X_Return_Status := OKE_API.G_RET_STS_ERROR;
547:
548: -- halt validation
549: RAISE G_EXCEPTION_HALT_VALIDATION;
550:
555: CLOSE C;
556:
557: IF L_Value <> 'X' THEN
558:
559: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
560: p_msg_name => g_invalid_value,
561: p_token1 => g_col_name_token,
562: p_token1_value => 'Item_ID');
563: -- notify caller of an error
560: p_msg_name => g_invalid_value,
561: p_token1 => g_col_name_token,
562: p_token1_value => 'Item_ID');
563: -- notify caller of an error
564: X_Return_Status := OKE_API.G_RET_STS_ERROR;
565:
566: -- halt validation
567: RAISE G_EXCEPTION_HALT_VALIDATION;
568:
579:
580: WHEN OTHERS THEN
581:
582: -- store SQL error message on message stack
583: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
584: p_msg_name => g_unexpected_error,
585: p_token1 => g_sqlcode_token,
586: p_token1_value=> sqlcode,
587: p_token2 => g_sqlerrm_token,
586: p_token1_value=> sqlcode,
587: p_token2 => g_sqlerrm_token,
588: p_token2_value=> sqlerrm);
589: -- notify caller of an error as UNEXPETED error
590: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
591:
592: End Validate_Item_ID;
593:
594: PROCEDURE Validate_Delivery_Date (X_Return_Status OUT NOCOPY VARCHAR2,
605: AND ID = P_DEL_REC.K_Line_ID;
606:
607: Begin
608:
609: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
610:
611: IF P_DEL_REC.Delivery_Date IS NOT NULL THEN
612:
613: OPEN C ;
615: CLOSE C;
616:
617: IF L_Value <> 'X' THEN
618:
619: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
620: p_msg_name => g_invalid_value,
621: p_token1 => g_col_name_token,
622: p_token1_value => 'Delivery_Date');
623: -- notify caller of an error
620: p_msg_name => g_invalid_value,
621: p_token1 => g_col_name_token,
622: p_token1_value => 'Delivery_Date');
623: -- notify caller of an error
624: X_Return_Status := OKE_API.G_RET_STS_ERROR;
625:
626: -- halt validation
627: RAISE G_EXCEPTION_HALT_VALIDATION;
628:
637:
638: WHEN OTHERS THEN
639:
640: -- store SQL error message on message stack
641: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
642: p_msg_name => g_unexpected_error,
643: p_token1 => g_sqlcode_token,
644: p_token1_value=> sqlcode,
645: p_token2 => g_sqlerrm_token,
644: p_token1_value=> sqlcode,
645: p_token2 => g_sqlerrm_token,
646: p_token2_value=> sqlerrm);
647: -- notify caller of an error as UNEXPETED error
648: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
649:
650: End Validate_Delivery_Date;
651:
652: PROCEDURE Validate_Direction (X_Return_Status OUT NOCOPY VARCHAR2,
652: PROCEDURE Validate_Direction (X_Return_Status OUT NOCOPY VARCHAR2,
653: P_Del_Rec IN Del_Rec_Type) IS
654: Begin
655:
656: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
657:
658: IF P_DEL_REC.Direction IS NOT NULL THEN
659:
660: IF P_DEL_REC.Direction NOT IN ('IN', 'OUT') THEN
658: IF P_DEL_REC.Direction IS NOT NULL THEN
659:
660: IF P_DEL_REC.Direction NOT IN ('IN', 'OUT') THEN
661:
662: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
663: p_msg_name => g_invalid_value,
664: p_token1 => g_col_name_token,
665: p_token1_value => 'Direction');
666: -- notify caller of an error
663: p_msg_name => g_invalid_value,
664: p_token1 => g_col_name_token,
665: p_token1_value => 'Direction');
666: -- notify caller of an error
667: X_Return_Status := OKE_API.G_RET_STS_ERROR;
668:
669: -- halt validation
670: RAISE G_EXCEPTION_HALT_VALIDATION;
671:
673: END IF;
674:
675: ELSE
676:
677: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
678: p_msg_name => g_required_value,
679: p_token1 => g_col_name_token,
680: p_token1_value => 'Direction');
681: -- notify caller of an error
678: p_msg_name => g_required_value,
679: p_token1 => g_col_name_token,
680: p_token1_value => 'Direction');
681: -- notify caller of an error
682: X_Return_Status := OKE_API.G_RET_STS_ERROR;
683:
684: -- halt validation
685: RAISE G_EXCEPTION_HALT_VALIDATION;
686:
693:
694: WHEN OTHERS THEN
695:
696: -- store SQL error message on message stack
697: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
698: p_msg_name => g_unexpected_error,
699: p_token1 => g_sqlcode_token,
700: p_token1_value=> sqlcode,
701: p_token2 => g_sqlerrm_token,
700: p_token1_value=> sqlcode,
701: p_token2 => g_sqlerrm_token,
702: p_token2_value=> sqlerrm);
703: -- notify caller of an error as UNEXPETED error
704: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
705:
706: End Validate_Direction;
707:
708: PROCEDURE Validate_Ship_To_Org_ID (X_Return_Status OUT NOCOPY VARCHAR2,
722: WHERE ID1 = P_ID;
723:
724: Begin
725:
726: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
727:
728: IF P_DEL_REC.Ship_To_Org_ID > 0 THEN
729:
730: IF P_DEL_REC.Direction = 'IN' THEN
743: END IF;
744:
745: IF L_Value <> 'X' THEN
746:
747: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
748: p_msg_name => g_invalid_value,
749: p_token1 => g_col_name_token,
750: p_token1_value => 'Ship_To_Org_ID');
751: -- notify caller of an error
748: p_msg_name => g_invalid_value,
749: p_token1 => g_col_name_token,
750: p_token1_value => 'Ship_To_Org_ID');
751: -- notify caller of an error
752: X_Return_Status := OKE_API.G_RET_STS_ERROR;
753:
754: -- halt validation
755: RAISE G_EXCEPTION_HALT_VALIDATION;
756:
766:
767: WHEN OTHERS THEN
768:
769: -- store SQL error message on message stack
770: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
771: p_msg_name => g_unexpected_error,
772: p_token1 => g_sqlcode_token,
773: p_token1_value=> sqlcode,
774: p_token2 => g_sqlerrm_token,
773: p_token1_value=> sqlcode,
774: p_token2 => g_sqlerrm_token,
775: p_token2_value=> sqlerrm);
776: -- notify caller of an error as UNEXPETED error
777: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
778:
779: End Validate_Ship_To_Org_ID;
780:
781: PROCEDURE Validate_Ship_From_Org_ID (X_Return_Status OUT NOCOPY VARCHAR2,
806:
807:
808: Begin
809:
810: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
811:
812: IF P_DEL_REC.Ship_From_Org_ID > 0 THEN
813:
814: IF P_DEL_REC.Direction = 'IN' THEN
841:
842:
843: IF L_Value <> 'X' THEN
844:
845: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
846: p_msg_name => g_invalid_value,
847: p_token1 => g_col_name_token,
848: p_token1_value => 'Ship_From_Org_ID');
849: -- notify caller of an error
846: p_msg_name => g_invalid_value,
847: p_token1 => g_col_name_token,
848: p_token1_value => 'Ship_From_Org_ID');
849: -- notify caller of an error
850: X_Return_Status := OKE_API.G_RET_STS_ERROR;
851:
852: -- halt validation
853: RAISE G_EXCEPTION_HALT_VALIDATION;
854:
864:
865: WHEN OTHERS THEN
866:
867: -- store SQL error message on message stack
868: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
869: p_msg_name => g_unexpected_error,
870: p_token1 => g_sqlcode_token,
871: p_token1_value=> sqlcode,
872: p_token2 => g_sqlerrm_token,
871: p_token1_value=> sqlcode,
872: p_token2 => g_sqlerrm_token,
873: p_token2_value=> sqlerrm);
874: -- notify caller of an error as UNEXPETED error
875: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
876:
877: End Validate_Ship_From_Org_ID;
878:
879: PROCEDURE Validate_Ship_To_Location_ID (X_Return_Status OUT NOCOPY VARCHAR2,
895:
896:
897: Begin
898:
899: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
900:
901: IF P_DEL_REC.Ship_To_Location_ID > 0 THEN
902:
903: IF P_DEL_REC.Ship_To_Org_ID IS NULL THEN
901: IF P_DEL_REC.Ship_To_Location_ID > 0 THEN
902:
903: IF P_DEL_REC.Ship_To_Org_ID IS NULL THEN
904:
905: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
906: p_msg_name => g_required_value,
907: p_token1 => g_col_name_token,
908: p_token1_value => 'Ship_to_org_ID if ship_to_location_ID is present');
909: -- notify caller of an error
906: p_msg_name => g_required_value,
907: p_token1 => g_col_name_token,
908: p_token1_value => 'Ship_to_org_ID if ship_to_location_ID is present');
909: -- notify caller of an error
910: X_Return_Status := OKE_API.G_RET_STS_ERROR;
911:
912: -- halt validation
913: RAISE G_EXCEPTION_HALT_VALIDATION;
914:
929: END IF;
930:
931: IF L_Value <> 'X' THEN
932:
933: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
934: p_msg_name => g_invalid_value,
935: p_token1 => g_col_name_token,
936: p_token1_value => 'Ship_To_Location_ID');
937: -- notify caller of an error
934: p_msg_name => g_invalid_value,
935: p_token1 => g_col_name_token,
936: p_token1_value => 'Ship_To_Location_ID');
937: -- notify caller of an error
938: X_Return_Status := OKE_API.G_RET_STS_ERROR;
939:
940: -- halt validation
941: RAISE G_EXCEPTION_HALT_VALIDATION;
942:
953:
954: WHEN OTHERS THEN
955:
956: -- store SQL error message on message stack
957: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
958: p_msg_name => g_unexpected_error,
959: p_token1 => g_sqlcode_token,
960: p_token1_value=> sqlcode,
961: p_token2 => g_sqlerrm_token,
960: p_token1_value=> sqlcode,
961: p_token2 => g_sqlerrm_token,
962: p_token2_value=> sqlerrm);
963: -- notify caller of an error as UNEXPETED error
964: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
965:
966: End Validate_Ship_To_location_ID;
967:
968: PROCEDURE Validate_Ship_From_Location_ID (X_Return_Status OUT NOCOPY VARCHAR2,
996:
997:
998: Begin
999:
1000: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
1001:
1002: IF P_DEL_REC.Ship_From_Location_ID > 0 THEN
1003:
1004: IF P_DEL_REC.Ship_From_Org_ID IS NULL THEN
1002: IF P_DEL_REC.Ship_From_Location_ID > 0 THEN
1003:
1004: IF P_DEL_REC.Ship_From_Org_ID IS NULL THEN
1005:
1006: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1007: p_msg_name => g_required_value,
1008: p_token1 => g_col_name_token,
1009: p_token1_value => 'Ship_From_org_ID if ship_from_location_ID is present');
1010: -- notify caller of an error
1007: p_msg_name => g_required_value,
1008: p_token1 => g_col_name_token,
1009: p_token1_value => 'Ship_From_org_ID if ship_from_location_ID is present');
1010: -- notify caller of an error
1011: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1012:
1013: -- halt validation
1014: RAISE G_EXCEPTION_HALT_VALIDATION;
1015:
1044: END IF;
1045:
1046: IF L_Value <> 'X' THEN
1047:
1048: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1049: p_msg_name => g_invalid_value,
1050: p_token1 => g_col_name_token,
1051: p_token1_value => 'Ship_From_Location_ID');
1052: -- notify caller of an error
1049: p_msg_name => g_invalid_value,
1050: p_token1 => g_col_name_token,
1051: p_token1_value => 'Ship_From_Location_ID');
1052: -- notify caller of an error
1053: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1054:
1055: -- halt validation
1056: RAISE G_EXCEPTION_HALT_VALIDATION;
1057:
1068:
1069: WHEN OTHERS THEN
1070:
1071: -- store SQL error message on message stack
1072: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1073: p_msg_name => g_unexpected_error,
1074: p_token1 => g_sqlcode_token,
1075: p_token1_value=> sqlcode,
1076: p_token2 => g_sqlerrm_token,
1075: p_token1_value=> sqlcode,
1076: p_token2 => g_sqlerrm_token,
1077: p_token2_value=> sqlerrm);
1078: -- notify caller of an error as UNEXPETED error
1079: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
1080:
1081: End Validate_Ship_From_location_ID;
1082:
1083:
1087:
1088:
1089: Begin
1090:
1091: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
1092:
1093: IF P_DEL_REC.In_Process_Flag = 'Y' THEN
1094:
1095: IF P_DEL_REC.Po_Ref_1 IS NULL AND P_DEL_REC.Mps_Transaction_ID IS NULL AND P_DEL_REC.Shipping_Request_ID IS NULL THEN
1094:
1095: IF P_DEL_REC.Po_Ref_1 IS NULL AND P_DEL_REC.Mps_Transaction_ID IS NULL AND P_DEL_REC.Shipping_Request_ID IS NULL THEN
1096:
1097:
1098: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1099: p_msg_name => g_invalid_value,
1100: p_token1 => g_col_name_token,
1101: p_token1_value => 'In_Process_Flag');
1102: -- notify caller of an error
1099: p_msg_name => g_invalid_value,
1100: p_token1 => g_col_name_token,
1101: p_token1_value => 'In_Process_Flag');
1102: -- notify caller of an error
1103: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1104:
1105: -- halt validation
1106: RAISE G_EXCEPTION_HALT_VALIDATION;
1107:
1116:
1117: WHEN OTHERS THEN
1118:
1119: -- store SQL error message on message stack
1120: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1121: p_msg_name => g_unexpected_error,
1122: p_token1 => g_sqlcode_token,
1123: p_token1_value=> sqlcode,
1124: p_token2 => g_sqlerrm_token,
1123: p_token1_value=> sqlcode,
1124: p_token2 => g_sqlerrm_token,
1125: p_token2_value=> sqlerrm);
1126: -- notify caller of an error as UNEXPETED error
1127: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
1128:
1129: End Validate_In_Process_Flag;
1130:
1131:
1142:
1143:
1144: Begin
1145:
1146: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
1147:
1148:
1149: IF P_DEL_REC.Start_Date IS NOT NULL THEN
1150:
1153: CLOSE C;
1154:
1155: IF P_DEL_REC.Start_Date < NVL(L_Start_Date, P_DEL_REC.Start_Date + 1) OR P_DEL_REC.Start_Date > NVL( L_End_Date, P_DEL_REC.Start_Date) OR P_DEL_REC.Start_Date > P_DEL_REC.End_Date THEN
1156:
1157: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1158: p_msg_name => g_invalid_value,
1159: p_token1 => g_col_name_token,
1160: p_token1_value => 'Start_Date');
1161: -- notify caller of an error
1158: p_msg_name => g_invalid_value,
1159: p_token1 => g_col_name_token,
1160: p_token1_value => 'Start_Date');
1161: -- notify caller of an error
1162: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1163:
1164: -- halt validation
1165: RAISE G_EXCEPTION_HALT_VALIDATION;
1166:
1175:
1176: WHEN OTHERS THEN
1177:
1178: -- store SQL error message on message stack
1179: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1180: p_msg_name => g_unexpected_error,
1181: p_token1 => g_sqlcode_token,
1182: p_token1_value=> sqlcode,
1183: p_token2 => g_sqlerrm_token,
1182: p_token1_value=> sqlcode,
1183: p_token2 => g_sqlerrm_token,
1184: p_token2_value=> sqlerrm);
1185: -- notify caller of an error as UNEXPETED error
1186: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
1187:
1188: End Validate_Start_Date;
1189:
1190:
1201:
1202:
1203: Begin
1204:
1205: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
1206:
1207: IF P_DEL_REC.End_Date IS NOT NULL THEN
1208:
1209: OPEN C ( P_DEL_REC.K_Line_ID );
1211: CLOSE C;
1212:
1213: IF P_DEL_REC.End_Date < NVL(L_Start_Date, P_DEL_REC.End_Date + 1) OR P_DEL_REC.End_Date > NVL( L_End_Date, P_DEL_REC.End_Date) OR P_DEL_REC.End_Date < P_DEL_REC.Start_Date THEN
1214:
1215: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1216: p_msg_name => g_invalid_value,
1217: p_token1 => g_col_name_token,
1218: p_token1_value => 'End_Date');
1219: -- notify caller of an error
1216: p_msg_name => g_invalid_value,
1217: p_token1 => g_col_name_token,
1218: p_token1_value => 'End_Date');
1219: -- notify caller of an error
1220: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1221:
1222: -- halt validation
1223: RAISE G_EXCEPTION_HALT_VALIDATION;
1224:
1233:
1234: WHEN OTHERS THEN
1235:
1236: -- store SQL error message on message stack
1237: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1238: p_msg_name => g_unexpected_error,
1239: p_token1 => g_sqlcode_token,
1240: p_token1_value=> sqlcode,
1241: p_token2 => g_sqlerrm_token,
1240: p_token1_value=> sqlcode,
1241: p_token2 => g_sqlerrm_token,
1242: p_token2_value=> sqlerrm);
1243: -- notify caller of an error as UNEXPETED error
1244: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
1245:
1246: End Validate_End_Date;
1247:
1248: PROCEDURE Validate_Need_By_Date (X_Return_Status OUT NOCOPY VARCHAR2,
1258:
1259:
1260: Begin
1261:
1262: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
1263:
1264: IF P_DEL_REC.Need_By_Date IS NOT NULL THEN
1265:
1266: OPEN C ( P_DEL_REC.K_Line_ID );
1271: OR P_DEL_REC.Need_By_Date > NVL( L_End_Date, P_DEL_REC.Need_By_Date)
1272: OR P_DEL_REC.Need_By_Date < NVL(P_DEL_REC.Start_Date, P_DEL_REC.Need_By_Date + 1)
1273: OR P_DEL_REC.Need_By_Date > NVL(P_DEL_REC.End_Date, P_DEL_REC.Need_By_Date) THEN
1274:
1275: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1276: p_msg_name => g_invalid_value,
1277: p_token1 => g_col_name_token,
1278: p_token1_value => 'Need_By_Date');
1279: -- notify caller of an error
1276: p_msg_name => g_invalid_value,
1277: p_token1 => g_col_name_token,
1278: p_token1_value => 'Need_By_Date');
1279: -- notify caller of an error
1280: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1281:
1282: -- halt validation
1283: RAISE G_EXCEPTION_HALT_VALIDATION;
1284:
1293:
1294: WHEN OTHERS THEN
1295:
1296: -- store SQL error message on message stack
1297: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1298: p_msg_name => g_unexpected_error,
1299: p_token1 => g_sqlcode_token,
1300: p_token1_value=> sqlcode,
1301: p_token2 => g_sqlerrm_token,
1300: p_token1_value=> sqlcode,
1301: p_token2 => g_sqlerrm_token,
1302: p_token2_value=> sqlerrm);
1303: -- notify caller of an error as UNEXPETED error
1304: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
1305:
1306: End Validate_Need_By_Date;
1307:
1308: PROCEDURE Validate_Currency_Code (X_Return_Status OUT NOCOPY VARCHAR2,
1319:
1320:
1321: Begin
1322:
1323: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
1324:
1325: IF P_DEL_REC.Currency_Code IS NOT NULL THEN
1326:
1327: OPEN C ( P_DEL_REC.Currency_Code );
1329: CLOSE C;
1330:
1331: IF L_Value <> 'X' THEN
1332:
1333: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1334: p_msg_name => g_invalid_value,
1335: p_token1 => g_col_name_token,
1336: p_token1_value => 'Currency_Code');
1337: -- notify caller of an error
1334: p_msg_name => g_invalid_value,
1335: p_token1 => g_col_name_token,
1336: p_token1_value => 'Currency_Code');
1337: -- notify caller of an error
1338: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1339:
1340: -- halt validation
1341: RAISE G_EXCEPTION_HALT_VALIDATION;
1342:
1351:
1352: WHEN OTHERS THEN
1353:
1354: -- store SQL error message on message stack
1355: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1356: p_msg_name => g_unexpected_error,
1357: p_token1 => g_sqlcode_token,
1358: p_token1_value=> sqlcode,
1359: p_token2 => g_sqlerrm_token,
1358: p_token1_value=> sqlcode,
1359: p_token2 => g_sqlerrm_token,
1360: p_token2_value=> sqlerrm);
1361: -- notify caller of an error as UNEXPETED error
1362: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
1363:
1364: End Validate_Currency_Code;
1365:
1366: PROCEDURE Validate_UOM_Code (X_Return_Status OUT NOCOPY VARCHAR2,
1380: AND UOM_Code = P_Code;
1381:
1382: Begin
1383:
1384: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
1385:
1386: IF P_DEL_REC.UOM_Code IS NOT NULL THEN
1387:
1388: IF P_DEL_REC.Item_ID IS NOT NULL THEN
1401: END IF;
1402:
1403: IF L_Value <> 'X' THEN
1404:
1405: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1406: p_msg_name => g_invalid_value,
1407: p_token1 => g_col_name_token,
1408: p_token1_value => 'UOM_Code');
1409: -- notify caller of an error
1406: p_msg_name => g_invalid_value,
1407: p_token1 => g_col_name_token,
1408: p_token1_value => 'UOM_Code');
1409: -- notify caller of an error
1410: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1411:
1412: -- halt validation
1413: RAISE G_EXCEPTION_HALT_VALIDATION;
1414:
1423:
1424: WHEN OTHERS THEN
1425:
1426: -- store SQL error message on message stack
1427: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1428: p_msg_name => g_unexpected_error,
1429: p_token1 => g_sqlcode_token,
1430: p_token1_value=> sqlcode,
1431: p_token2 => g_sqlerrm_token,
1430: p_token1_value=> sqlcode,
1431: p_token2 => g_sqlerrm_token,
1432: p_token2_value=> sqlerrm);
1433: -- notify caller of an error as UNEXPETED error
1434: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
1435:
1436: End Validate_UOM_Code;
1437:
1438: PROCEDURE Validate_Shipping_Request_ID (X_Return_Status OUT NOCOPY VARCHAR2,
1445: WHERE Delivery_Detail_ID = P_ID;
1446:
1447: Begin
1448:
1449: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
1450:
1451: IF P_DEL_REC.Shipping_Request_ID IS NOT NULL THEN
1452:
1453:
1458:
1459:
1460: IF L_Value <> 'X' THEN
1461:
1462: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1463: p_msg_name => g_invalid_value,
1464: p_token1 => g_col_name_token,
1465: p_token1_value => 'Shipping_Request_ID');
1466: -- notify caller of an error
1463: p_msg_name => g_invalid_value,
1464: p_token1 => g_col_name_token,
1465: p_token1_value => 'Shipping_Request_ID');
1466: -- notify caller of an error
1467: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1468:
1469: -- halt validation
1470: RAISE G_EXCEPTION_HALT_VALIDATION;
1471:
1480:
1481: WHEN OTHERS THEN
1482:
1483: -- store SQL error message on message stack
1484: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1485: p_msg_name => g_unexpected_error,
1486: p_token1 => g_sqlcode_token,
1487: p_token1_value=> sqlcode,
1488: p_token2 => g_sqlerrm_token,
1487: p_token1_value=> sqlcode,
1488: p_token2 => g_sqlerrm_token,
1489: p_token2_value=> sqlerrm);
1490: -- notify caller of an error as UNEXPETED error
1491: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
1492:
1493: End Validate_Shipping_Request_ID;
1494:
1495:
1503: WHERE Mps_Transaction_ID = P_ID;
1504:
1505: Begin
1506:
1507: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
1508:
1509: IF P_DEL_REC.Shipping_Request_ID IS NOT NULL THEN
1510:
1511:
1516:
1517:
1518: IF L_Value <> 'X' THEN
1519:
1520: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1521: p_msg_name => g_invalid_value,
1522: p_token1 => g_col_name_token,
1523: p_token1_value => 'Mps_Transaction_ID');
1524: -- notify caller of an error
1521: p_msg_name => g_invalid_value,
1522: p_token1 => g_col_name_token,
1523: p_token1_value => 'Mps_Transaction_ID');
1524: -- notify caller of an error
1525: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1526:
1527: -- halt validation
1528: RAISE G_EXCEPTION_HALT_VALIDATION;
1529:
1538:
1539: WHEN OTHERS THEN
1540:
1541: -- store SQL error message on message stack
1542: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1543: p_msg_name => g_unexpected_error,
1544: p_token1 => g_sqlcode_token,
1545: p_token1_value=> sqlcode,
1546: p_token2 => g_sqlerrm_token,
1545: p_token1_value=> sqlcode,
1546: p_token2 => g_sqlerrm_token,
1547: p_token2_value=> sqlerrm);
1548: -- notify caller of an error as UNEXPETED error
1549: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
1550:
1551: End Validate_Mps_Transaction_ID;
1552:
1553:
1563:
1564:
1565: Begin
1566:
1567: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
1568:
1569: IF P_DEL_REC.Unit_Number IS NOT NULL THEN
1570:
1571: OPEN C ( P_DEL_REC.Unit_Number );
1575:
1576:
1577: IF L_Value <> 'X' THEN
1578:
1579: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1580: p_msg_name => g_invalid_value,
1581: p_token1 => g_col_name_token,
1582: p_token1_value => 'Unit_Number');
1583: -- notify caller of an error
1580: p_msg_name => g_invalid_value,
1581: p_token1 => g_col_name_token,
1582: p_token1_value => 'Unit_Number');
1583: -- notify caller of an error
1584: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1585:
1586: -- halt validation
1587: RAISE G_EXCEPTION_HALT_VALIDATION;
1588:
1597:
1598: WHEN OTHERS THEN
1599:
1600: -- store SQL error message on message stack
1601: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1602: p_msg_name => g_unexpected_error,
1603: p_token1 => g_sqlcode_token,
1604: p_token1_value=> sqlcode,
1605: p_token2 => g_sqlerrm_token,
1604: p_token1_value=> sqlcode,
1605: p_token2 => g_sqlerrm_token,
1606: p_token2_value=> sqlerrm);
1607: -- notify caller of an error as UNEXPETED error
1608: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
1609:
1610: End Validate_Unit_Number;
1611:
1612:
1625: AND Designator = P_Designator;
1626:
1627: Begin
1628:
1629: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
1630:
1631: IF P_DEL_REC.Ndb_Schedule_Designator IS NOT NULL THEN
1632:
1633: IF P_DEL_REC.Direction = 'OUT' THEN
1663:
1664:
1665: IF L_Value <> 'X' THEN
1666:
1667: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1668: p_msg_name => g_invalid_value,
1669: p_token1 => g_col_name_token,
1670: p_token1_value => 'Ndb_Schedule_Designator');
1671: -- notify caller of an error
1668: p_msg_name => g_invalid_value,
1669: p_token1 => g_col_name_token,
1670: p_token1_value => 'Ndb_Schedule_Designator');
1671: -- notify caller of an error
1672: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1673:
1674: -- halt validation
1675: RAISE G_EXCEPTION_HALT_VALIDATION;
1676:
1685:
1686: WHEN OTHERS THEN
1687:
1688: -- store SQL error message on message stack
1689: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1690: p_msg_name => g_unexpected_error,
1691: p_token1 => g_sqlcode_token,
1692: p_token1_value=> sqlcode,
1693: p_token2 => g_sqlerrm_token,
1692: p_token1_value=> sqlcode,
1693: p_token2 => g_sqlerrm_token,
1694: p_token2_value=> sqlerrm);
1695: -- notify caller of an error as UNEXPETED error
1696: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
1697:
1698: End Validate_Plan_Name;
1699:
1700: PROCEDURE Validate_Volume_UOM_Code (X_Return_Status OUT NOCOPY VARCHAR2,
1711: AND uom.Uom_Code = P_Code;
1712:
1713: Begin
1714:
1715: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
1716:
1717: IF P_DEL_REC.Volume_UOM_Code IS NOT NULL THEN
1718:
1719: IF P_DEL_REC.Direction = 'OUT' THEN
1749:
1750:
1751: IF L_Value <> 'X' THEN
1752:
1753: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1754: p_msg_name => g_invalid_value,
1755: p_token1 => g_col_name_token,
1756: p_token1_value => 'Volume_Uom_Code');
1757: -- notify caller of an error
1754: p_msg_name => g_invalid_value,
1755: p_token1 => g_col_name_token,
1756: p_token1_value => 'Volume_Uom_Code');
1757: -- notify caller of an error
1758: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1759:
1760: -- halt validation
1761: RAISE G_EXCEPTION_HALT_VALIDATION;
1762:
1771:
1772: WHEN OTHERS THEN
1773:
1774: -- store SQL error message on message stack
1775: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1776: p_msg_name => g_unexpected_error,
1777: p_token1 => g_sqlcode_token,
1778: p_token1_value=> sqlcode,
1779: p_token2 => g_sqlerrm_token,
1778: p_token1_value=> sqlcode,
1779: p_token2 => g_sqlerrm_token,
1780: p_token2_value=> sqlerrm);
1781: -- notify caller of an error as UNEXPETED error
1782: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
1783:
1784: End Validate_Volume_UOM_Code;
1785:
1786: PROCEDURE Validate_Weight_UOM_Code (X_Return_Status OUT NOCOPY VARCHAR2,
1797: AND uom.Uom_Code = P_Code;
1798:
1799: Begin
1800:
1801: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
1802:
1803: IF P_DEL_REC.Weight_UOM_Code IS NOT NULL THEN
1804:
1805: IF P_DEL_REC.Direction = 'OUT' THEN
1835:
1836:
1837: IF L_Value <> 'X' THEN
1838:
1839: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1840: p_msg_name => g_invalid_value,
1841: p_token1 => g_col_name_token,
1842: p_token1_value => 'Weight_Uom_Code');
1843: -- notify caller of an error
1840: p_msg_name => g_invalid_value,
1841: p_token1 => g_col_name_token,
1842: p_token1_value => 'Weight_Uom_Code');
1843: -- notify caller of an error
1844: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1845:
1846: -- halt validation
1847: RAISE G_EXCEPTION_HALT_VALIDATION;
1848:
1857:
1858: WHEN OTHERS THEN
1859:
1860: -- store SQL error message on message stack
1861: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1862: p_msg_name => g_unexpected_error,
1863: p_token1 => g_sqlcode_token,
1864: p_token1_value=> sqlcode,
1865: p_token2 => g_sqlerrm_token,
1864: p_token1_value=> sqlcode,
1865: p_token2 => g_sqlerrm_token,
1866: p_token2_value=> sqlerrm);
1867: -- notify caller of an error as UNEXPETED error
1868: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
1869:
1870: End Validate_Weight_UOM_Code;
1871:
1872: PROCEDURE Validate_Exp_Organization_ID (X_Return_Status OUT NOCOPY VARCHAR2,
1881: AND Organization_ID = P_ID;
1882:
1883: Begin
1884:
1885: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
1886:
1887: IF P_DEL_REC.Expenditure_Organization_ID IS NOT NULL THEN
1888:
1889: OPEN C ( P_DEL_REC.Expenditure_Organization_ID );
1893:
1894:
1895: IF L_Value <> 'X' THEN
1896:
1897: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1898: p_msg_name => g_invalid_value,
1899: p_token1 => g_col_name_token,
1900: p_token1_value => 'Expenditure_Organization_ID');
1901: -- notify caller of an error
1898: p_msg_name => g_invalid_value,
1899: p_token1 => g_col_name_token,
1900: p_token1_value => 'Expenditure_Organization_ID');
1901: -- notify caller of an error
1902: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1903:
1904: -- halt validation
1905: RAISE G_EXCEPTION_HALT_VALIDATION;
1906:
1915:
1916: WHEN OTHERS THEN
1917:
1918: -- store SQL error message on message stack
1919: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1920: p_msg_name => g_unexpected_error,
1921: p_token1 => g_sqlcode_token,
1922: p_token1_value=> sqlcode,
1923: p_token2 => g_sqlerrm_token,
1922: p_token1_value=> sqlcode,
1923: p_token2 => g_sqlerrm_token,
1924: p_token2_value=> sqlerrm);
1925: -- notify caller of an error as UNEXPETED error
1926: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
1927:
1928: End Validate_Exp_Organization_ID;
1929:
1930: PROCEDURE Validate_Destination_Type_Code (X_Return_Status OUT NOCOPY VARCHAR2,
1939: AND Lookup_Code = P_Code;
1940:
1941: Begin
1942:
1943: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
1944:
1945: IF P_DEL_REC.Destination_Type_Code IS NOT NULL THEN
1946:
1947: OPEN C ( P_DEL_REC.Destination_Type_Code );
1951:
1952:
1953: IF L_Value <> 'X' THEN
1954:
1955: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1956: p_msg_name => g_invalid_value,
1957: p_token1 => g_col_name_token,
1958: p_token1_value => 'Destination_Type_Code');
1959: -- notify caller of an error
1956: p_msg_name => g_invalid_value,
1957: p_token1 => g_col_name_token,
1958: p_token1_value => 'Destination_Type_Code');
1959: -- notify caller of an error
1960: X_Return_Status := OKE_API.G_RET_STS_ERROR;
1961:
1962: -- halt validation
1963: RAISE G_EXCEPTION_HALT_VALIDATION;
1964:
1973:
1974: WHEN OTHERS THEN
1975:
1976: -- store SQL error message on message stack
1977: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
1978: p_msg_name => g_unexpected_error,
1979: p_token1 => g_sqlcode_token,
1980: p_token1_value=> sqlcode,
1981: p_token2 => g_sqlerrm_token,
1980: p_token1_value=> sqlcode,
1981: p_token2 => g_sqlerrm_token,
1982: p_token2_value=> sqlerrm);
1983: -- notify caller of an error as UNEXPETED error
1984: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
1985:
1986: End Validate_Destination_Type_Code;
1987:
1988: PROCEDURE Validate_Exp_Type (X_Return_Status OUT NOCOPY VARCHAR2,
1997: AND Expenditure_Type = P_Type;
1998:
1999: Begin
2000:
2001: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
2002:
2003: IF P_DEL_REC.Expenditure_Type IS NOT NULL THEN
2004:
2005: OPEN C ( P_DEL_REC.Project_ID, P_DEL_REC.Expenditure_Type );
2008:
2009:
2010: IF L_Value <> 'X' THEN
2011:
2012: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
2013: p_msg_name => g_invalid_value,
2014: p_token1 => g_col_name_token,
2015: p_token1_value => 'Expenditure_Type');
2016: -- notify caller of an error
2013: p_msg_name => g_invalid_value,
2014: p_token1 => g_col_name_token,
2015: p_token1_value => 'Expenditure_Type');
2016: -- notify caller of an error
2017: X_Return_Status := OKE_API.G_RET_STS_ERROR;
2018:
2019: -- halt validation
2020: RAISE G_EXCEPTION_HALT_VALIDATION;
2021:
2030:
2031: WHEN OTHERS THEN
2032:
2033: -- store SQL error message on message stack
2034: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
2035: p_msg_name => g_unexpected_error,
2036: p_token1 => g_sqlcode_token,
2037: p_token1_value=> sqlcode,
2038: p_token2 => g_sqlerrm_token,
2037: p_token1_value=> sqlcode,
2038: p_token2 => g_sqlerrm_token,
2039: p_token2_value=> sqlerrm);
2040: -- notify caller of an error as UNEXPETED error
2041: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
2042:
2043: End Validate_Exp_Type;
2044:
2045: PROCEDURE Validate_Rate_Type (X_Return_Status OUT NOCOPY VARCHAR2,
2052: WHERE Conversion_Type = P_Type;
2053:
2054: Begin
2055:
2056: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
2057:
2058: IF P_DEL_REC.Rate_Type IS NOT NULL THEN
2059:
2060: OPEN C ( P_DEL_REC.Rate_Type );
2063:
2064:
2065: IF L_Value <> 'X' THEN
2066:
2067: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
2068: p_msg_name => g_invalid_value,
2069: p_token1 => g_col_name_token,
2070: p_token1_value => 'Rate_Type');
2071: -- notify caller of an error
2068: p_msg_name => g_invalid_value,
2069: p_token1 => g_col_name_token,
2070: p_token1_value => 'Rate_Type');
2071: -- notify caller of an error
2072: X_Return_Status := OKE_API.G_RET_STS_ERROR;
2073:
2074: -- halt validation
2075: RAISE G_EXCEPTION_HALT_VALIDATION;
2076:
2085:
2086: WHEN OTHERS THEN
2087:
2088: -- store SQL error message on message stack
2089: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
2090: p_msg_name => g_unexpected_error,
2091: p_token1 => g_sqlcode_token,
2092: p_token1_value=> sqlcode,
2093: p_token2 => g_sqlerrm_token,
2092: p_token1_value=> sqlcode,
2093: p_token2 => g_sqlerrm_token,
2094: p_token2_value=> sqlerrm);
2095: -- notify caller of an error as UNEXPETED error
2096: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
2097:
2098: End Validate_Rate_Type;
2099:
2100: PROCEDURE Validate_Flag_Values (X_Return_Status OUT NOCOPY VARCHAR2,
2100: PROCEDURE Validate_Flag_Values (X_Return_Status OUT NOCOPY VARCHAR2,
2101: P_Del_Rec IN Del_Rec_Type) IS
2102: Begin
2103:
2104: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
2105:
2106: IF P_DEL_REC.Defaulted_Flag IS NOT NULL AND P_DEL_REC.Defaulted_Flag NOT IN ('Y', 'N') THEN
2107:
2108: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
2104: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
2105:
2106: IF P_DEL_REC.Defaulted_Flag IS NOT NULL AND P_DEL_REC.Defaulted_Flag NOT IN ('Y', 'N') THEN
2107:
2108: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
2109: p_msg_name => g_invalid_value,
2110: p_token1 => g_col_name_token,
2111: p_token1_value => 'Defaulted_Flag');
2112: -- notify caller of an error
2109: p_msg_name => g_invalid_value,
2110: p_token1 => g_col_name_token,
2111: p_token1_value => 'Defaulted_Flag');
2112: -- notify caller of an error
2113: X_Return_Status := OKE_API.G_RET_STS_ERROR;
2114:
2115: -- halt validation
2116: RAISE G_EXCEPTION_HALT_VALIDATION;
2117:
2118: END IF;
2119:
2120: IF P_DEL_REC.In_Process_Flag IS NOT NULL AND P_DEL_REC.In_Process_Flag NOT IN ('Y', 'N') THEN
2121:
2122: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
2123: p_msg_name => g_invalid_value,
2124: p_token1 => g_col_name_token,
2125: p_token1_value => 'In_Process_Flag');
2126: -- notify caller of an error
2123: p_msg_name => g_invalid_value,
2124: p_token1 => g_col_name_token,
2125: p_token1_value => 'In_Process_Flag');
2126: -- notify caller of an error
2127: X_Return_Status := OKE_API.G_RET_STS_ERROR;
2128:
2129: -- halt validation
2130: RAISE G_EXCEPTION_HALT_VALIDATION;
2131:
2132: END IF;
2133:
2134: IF P_DEL_REC.Subcontracted_Flag IS NOT NULL AND P_DEL_REC.Subcontracted_Flag NOT IN ('Y', 'N') THEN
2135:
2136: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
2137: p_msg_name => g_invalid_value,
2138: p_token1 => g_col_name_token,
2139: p_token1_value => 'Subcontracted_Flag');
2140: -- notify caller of an error
2137: p_msg_name => g_invalid_value,
2138: p_token1 => g_col_name_token,
2139: p_token1_value => 'Subcontracted_Flag');
2140: -- notify caller of an error
2141: X_Return_Status := OKE_API.G_RET_STS_ERROR;
2142:
2143: -- halt validation
2144: RAISE G_EXCEPTION_HALT_VALIDATION;
2145:
2146: END IF;
2147:
2148: IF P_DEL_REC.Dependency_Flag IS NOT NULL AND P_DEL_REC.Dependency_Flag NOT IN ('Y', 'N') THEN
2149:
2150: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
2151: p_msg_name => g_invalid_value,
2152: p_token1 => g_col_name_token,
2153: p_token1_value => 'Dependency_Flag');
2154: -- notify caller of an error
2151: p_msg_name => g_invalid_value,
2152: p_token1 => g_col_name_token,
2153: p_token1_value => 'Dependency_Flag');
2154: -- notify caller of an error
2155: X_Return_Status := OKE_API.G_RET_STS_ERROR;
2156:
2157: -- halt validation
2158: RAISE G_EXCEPTION_HALT_VALIDATION;
2159:
2160: END IF;
2161:
2162: IF P_DEL_REC.Billable_Flag IS NOT NULL AND P_DEL_REC.Billable_Flag NOT IN ('Y', 'N') THEN
2163:
2164: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
2165: p_msg_name => g_invalid_value,
2166: p_token1 => g_col_name_token,
2167: p_token1_value => 'Billable_Flag');
2168: -- notify caller of an error
2165: p_msg_name => g_invalid_value,
2166: p_token1 => g_col_name_token,
2167: p_token1_value => 'Billable_Flag');
2168: -- notify caller of an error
2169: X_Return_Status := OKE_API.G_RET_STS_ERROR;
2170:
2171: -- halt validation
2172: RAISE G_EXCEPTION_HALT_VALIDATION;
2173:
2174: END IF;
2175:
2176: IF P_DEL_REC.Drop_Shipped_Flag IS NOT NULL AND P_DEL_REC.Drop_Shipped_Flag NOT IN ('Y', 'N') THEN
2177:
2178: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
2179: p_msg_name => g_invalid_value,
2180: p_token1 => g_col_name_token,
2181: p_token1_value => 'Drop_Shipped_Flag');
2182: -- notify caller of an error
2179: p_msg_name => g_invalid_value,
2180: p_token1 => g_col_name_token,
2181: p_token1_value => 'Drop_Shipped_Flag');
2182: -- notify caller of an error
2183: X_Return_Status := OKE_API.G_RET_STS_ERROR;
2184:
2185: -- halt validation
2186: RAISE G_EXCEPTION_HALT_VALIDATION;
2187:
2188: END IF;
2189:
2190: IF P_DEL_REC.Completed_Flag IS NOT NULL AND P_DEL_REC.Completed_Flag NOT IN ('Y', 'N') THEN
2191:
2192: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
2193: p_msg_name => g_invalid_value,
2194: p_token1 => g_col_name_token,
2195: p_token1_value => 'Completed_Flag');
2196: -- notify caller of an error
2193: p_msg_name => g_invalid_value,
2194: p_token1 => g_col_name_token,
2195: p_token1_value => 'Completed_Flag');
2196: -- notify caller of an error
2197: X_Return_Status := OKE_API.G_RET_STS_ERROR;
2198:
2199: -- halt validation
2200: RAISE G_EXCEPTION_HALT_VALIDATION;
2201:
2202: END IF;
2203:
2204: IF P_DEL_REC.Available_For_Ship_Flag IS NOT NULL AND P_DEL_REC.Available_For_Ship_Flag NOT IN ('Y', 'N') THEN
2205:
2206: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
2207: p_msg_name => g_invalid_value,
2208: p_token1 => g_col_name_token,
2209: p_token1_value => 'Available_For_Ship_Flag');
2210: -- notify caller of an error
2207: p_msg_name => g_invalid_value,
2208: p_token1 => g_col_name_token,
2209: p_token1_value => 'Available_For_Ship_Flag');
2210: -- notify caller of an error
2211: X_Return_Status := OKE_API.G_RET_STS_ERROR;
2212:
2213: -- halt validation
2214: RAISE G_EXCEPTION_HALT_VALIDATION;
2215:
2216: END IF;
2217:
2218: IF P_DEL_REC.Create_Demand IS NOT NULL AND P_DEL_REC.Create_Demand NOT IN ('Y', 'N') THEN
2219:
2220: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
2221: p_msg_name => g_invalid_value,
2222: p_token1 => g_col_name_token,
2223: p_token1_value => 'Create_Demand');
2224: -- notify caller of an error
2221: p_msg_name => g_invalid_value,
2222: p_token1 => g_col_name_token,
2223: p_token1_value => 'Create_Demand');
2224: -- notify caller of an error
2225: X_Return_Status := OKE_API.G_RET_STS_ERROR;
2226:
2227: -- halt validation
2228: RAISE G_EXCEPTION_HALT_VALIDATION;
2229:
2230: END IF;
2231:
2232: IF P_DEL_REC.Ready_To_Procure IS NOT NULL AND P_DEL_REC.Ready_To_Procure NOT IN ('Y', 'N') THEN
2233:
2234: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
2235: p_msg_name => g_invalid_value,
2236: p_token1 => g_col_name_token,
2237: p_token1_value => 'Ready_To_Procure');
2238: -- notify caller of an error
2235: p_msg_name => g_invalid_value,
2236: p_token1 => g_col_name_token,
2237: p_token1_value => 'Ready_To_Procure');
2238: -- notify caller of an error
2239: X_Return_Status := OKE_API.G_RET_STS_ERROR;
2240:
2241: -- halt validation
2242: RAISE G_EXCEPTION_HALT_VALIDATION;
2243:
2244: END IF;
2245:
2246: IF P_DEL_REC.Ready_To_Bill IS NOT NULL AND P_DEL_REC.Ready_To_Bill NOT IN ('Y', 'N') THEN
2247:
2248: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
2249: p_msg_name => g_invalid_value,
2250: p_token1 => g_col_name_token,
2251: p_token1_value => 'Ready_To_Bill');
2252: -- notify caller of an error
2249: p_msg_name => g_invalid_value,
2250: p_token1 => g_col_name_token,
2251: p_token1_value => 'Ready_To_Bill');
2252: -- notify caller of an error
2253: X_Return_Status := OKE_API.G_RET_STS_ERROR;
2254:
2255: -- halt validation
2256: RAISE G_EXCEPTION_HALT_VALIDATION;
2257:
2258: END IF;
2259:
2260: IF P_DEL_REC.Shippable_Flag IS NOT NULL AND P_DEL_REC.Shippable_Flag NOT IN ('Y', 'N') THEN
2261:
2262: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
2263: p_msg_name => g_invalid_value,
2264: p_token1 => g_col_name_token,
2265: p_token1_value => 'Shippable_Flag');
2266: -- notify caller of an error
2263: p_msg_name => g_invalid_value,
2264: p_token1 => g_col_name_token,
2265: p_token1_value => 'Shippable_Flag');
2266: -- notify caller of an error
2267: X_Return_Status := OKE_API.G_RET_STS_ERROR;
2268:
2269: -- halt validation
2270: RAISE G_EXCEPTION_HALT_VALIDATION;
2271:
2272: END IF;
2273:
2274: IF P_DEL_REC.Cfe_Req_Flag IS NOT NULL AND P_DEL_REC.Cfe_Req_Flag NOT IN ('Y', 'N') THEN
2275:
2276: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
2277: p_msg_name => g_invalid_value,
2278: p_token1 => g_col_name_token,
2279: p_token1_value => 'Cfe_Req_Flag');
2280: -- notify caller of an error
2277: p_msg_name => g_invalid_value,
2278: p_token1 => g_col_name_token,
2279: p_token1_value => 'Cfe_Req_Flag');
2280: -- notify caller of an error
2281: X_Return_Status := OKE_API.G_RET_STS_ERROR;
2282:
2283: -- halt validation
2284: RAISE G_EXCEPTION_HALT_VALIDATION;
2285:
2286: END IF;
2287:
2288: IF P_DEL_REC.Inspection_Req_Flag IS NOT NULL AND P_DEL_REC.Inspection_Req_Flag NOT IN ('Y', 'N') THEN
2289:
2290: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
2291: p_msg_name => g_invalid_value,
2292: p_token1 => g_col_name_token,
2293: p_token1_value => 'Inspection_Req_Flag');
2294: -- notify caller of an error
2291: p_msg_name => g_invalid_value,
2292: p_token1 => g_col_name_token,
2293: p_token1_value => 'Inspection_Req_Flag');
2294: -- notify caller of an error
2295: X_Return_Status := OKE_API.G_RET_STS_ERROR;
2296:
2297: -- halt validation
2298: RAISE G_EXCEPTION_HALT_VALIDATION;
2299:
2300: END IF;
2301:
2302: IF P_DEL_REC.Interim_Rpt_Req_flag IS NOT NULL AND P_DEL_REC.Interim_Rpt_Req_Flag NOT IN ('Y', 'N') THEN
2303:
2304: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
2305: p_msg_name => g_invalid_value,
2306: p_token1 => g_col_name_token,
2307: p_token1_value => 'Interim_Rpt_Req_Flag');
2308: -- notify caller of an error
2305: p_msg_name => g_invalid_value,
2306: p_token1 => g_col_name_token,
2307: p_token1_value => 'Interim_Rpt_Req_Flag');
2308: -- notify caller of an error
2309: X_Return_Status := OKE_API.G_RET_STS_ERROR;
2310:
2311: -- halt validation
2312: RAISE G_EXCEPTION_HALT_VALIDATION;
2313:
2314: END IF;
2315:
2316: IF P_DEL_REC.Customer_Approval_Req_Flag IS NOT NULL AND P_DEL_REC.Customer_Approval_Req_Flag NOT IN ('Y', 'N') THEN
2317:
2318: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
2319: p_msg_name => g_invalid_value,
2320: p_token1 => g_col_name_token,
2321: p_token1_value => 'Customer_Approval_Req_Flag');
2322: -- notify caller of an error
2319: p_msg_name => g_invalid_value,
2320: p_token1 => g_col_name_token,
2321: p_token1_value => 'Customer_Approval_Req_Flag');
2322: -- notify caller of an error
2323: X_Return_Status := OKE_API.G_RET_STS_ERROR;
2324:
2325: -- halt validation
2326: RAISE G_EXCEPTION_HALT_VALIDATION;
2327:
2328: END IF;
2329:
2330: IF P_DEL_REC.Export_Flag IS NOT NULL AND P_DEL_REC.Export_Flag NOT IN ('Y', 'N') THEN
2331:
2332: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
2333: p_msg_name => g_invalid_value,
2334: p_token1 => g_col_name_token,
2335: p_token1_value => 'Export_Flag');
2336: -- notify caller of an error
2333: p_msg_name => g_invalid_value,
2334: p_token1 => g_col_name_token,
2335: p_token1_value => 'Export_Flag');
2336: -- notify caller of an error
2337: X_Return_Status := OKE_API.G_RET_STS_ERROR;
2338:
2339: -- halt validation
2340: RAISE G_EXCEPTION_HALT_VALIDATION;
2341:
2348:
2349: WHEN OTHERS THEN
2350:
2351: -- store SQL error message on message stack
2352: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
2353: p_msg_name => g_unexpected_error,
2354: p_token1 => g_sqlcode_token,
2355: p_token1_value=> sqlcode,
2356: p_token2 => g_sqlerrm_token,
2355: p_token1_value=> sqlcode,
2356: p_token2 => g_sqlerrm_token,
2357: p_token2_value=> sqlerrm);
2358: -- notify caller of an error as UNEXPETED error
2359: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
2360:
2361: End Validate_Flag_Values;
2362:
2363: FUNCTION check_dependency( p_deliverable_id IN Number) RETURN BOOLEAN IS
2640: BEGIN
2641:
2642:
2643:
2644: IF l_del_rec.DELIVERABLE_ID = OKE_API.G_MISS_NUM THEN
2645: l_del_rec.DELIVERABLE_ID := NULL;
2646: END IF;
2647:
2648: IF l_del_rec.DELIVERABLE_NUM = OKE_API.G_MISS_CHAR THEN
2644: IF l_del_rec.DELIVERABLE_ID = OKE_API.G_MISS_NUM THEN
2645: l_del_rec.DELIVERABLE_ID := NULL;
2646: END IF;
2647:
2648: IF l_del_rec.DELIVERABLE_NUM = OKE_API.G_MISS_CHAR THEN
2649: l_del_rec.DELIVERABLE_NUM := NULL;
2650: END IF;
2651:
2652: IF l_del_rec.PROJECT_ID = OKE_API.G_MISS_NUM THEN
2648: IF l_del_rec.DELIVERABLE_NUM = OKE_API.G_MISS_CHAR THEN
2649: l_del_rec.DELIVERABLE_NUM := NULL;
2650: END IF;
2651:
2652: IF l_del_rec.PROJECT_ID = OKE_API.G_MISS_NUM THEN
2653: l_del_rec.PROJECT_ID := NULL;
2654: END IF;
2655:
2656: IF l_del_rec.TASK_ID = OKE_API.G_MISS_NUM THEN
2652: IF l_del_rec.PROJECT_ID = OKE_API.G_MISS_NUM THEN
2653: l_del_rec.PROJECT_ID := NULL;
2654: END IF;
2655:
2656: IF l_del_rec.TASK_ID = OKE_API.G_MISS_NUM THEN
2657: l_del_rec.TASK_ID := NULL;
2658: END IF;
2659:
2660: IF l_del_rec.ITEM_ID = OKE_API.G_MISS_NUM THEN
2656: IF l_del_rec.TASK_ID = OKE_API.G_MISS_NUM THEN
2657: l_del_rec.TASK_ID := NULL;
2658: END IF;
2659:
2660: IF l_del_rec.ITEM_ID = OKE_API.G_MISS_NUM THEN
2661: l_del_rec.ITEM_ID := NULL;
2662: END IF;
2663:
2664: IF l_del_rec.K_HEADER_ID = OKE_API.G_MISS_NUM THEN
2660: IF l_del_rec.ITEM_ID = OKE_API.G_MISS_NUM THEN
2661: l_del_rec.ITEM_ID := NULL;
2662: END IF;
2663:
2664: IF l_del_rec.K_HEADER_ID = OKE_API.G_MISS_NUM THEN
2665: l_del_rec.K_HEADER_ID := NULL;
2666: END IF;
2667:
2668: IF l_del_rec.K_LINE_ID = OKE_API.G_MISS_NUM THEN
2664: IF l_del_rec.K_HEADER_ID = OKE_API.G_MISS_NUM THEN
2665: l_del_rec.K_HEADER_ID := NULL;
2666: END IF;
2667:
2668: IF l_del_rec.K_LINE_ID = OKE_API.G_MISS_NUM THEN
2669: l_del_rec.K_LINE_ID := NULL;
2670: END IF;
2671:
2672: IF l_del_rec.DELIVERY_DATE = OKE_API.G_MISS_DATE THEN
2668: IF l_del_rec.K_LINE_ID = OKE_API.G_MISS_NUM THEN
2669: l_del_rec.K_LINE_ID := NULL;
2670: END IF;
2671:
2672: IF l_del_rec.DELIVERY_DATE = OKE_API.G_MISS_DATE THEN
2673: l_del_rec.DELIVERY_DATE := NULL;
2674: END IF;
2675:
2676: IF l_del_rec.STATUS_CODE = OKE_API.G_MISS_CHAR THEN
2672: IF l_del_rec.DELIVERY_DATE = OKE_API.G_MISS_DATE THEN
2673: l_del_rec.DELIVERY_DATE := NULL;
2674: END IF;
2675:
2676: IF l_del_rec.STATUS_CODE = OKE_API.G_MISS_CHAR THEN
2677: l_del_rec.STATUS_CODE := NULL;
2678: END IF;
2679:
2680: IF l_del_rec.PARENT_DELIVERABLE_ID = OKE_API.G_MISS_NUM THEN
2676: IF l_del_rec.STATUS_CODE = OKE_API.G_MISS_CHAR THEN
2677: l_del_rec.STATUS_CODE := NULL;
2678: END IF;
2679:
2680: IF l_del_rec.PARENT_DELIVERABLE_ID = OKE_API.G_MISS_NUM THEN
2681: l_del_rec.PARENT_DELIVERABLE_ID := NULL;
2682: END IF;
2683:
2684: IF l_del_rec.SHIP_TO_ORG_ID = OKE_API.G_MISS_NUM THEN
2680: IF l_del_rec.PARENT_DELIVERABLE_ID = OKE_API.G_MISS_NUM THEN
2681: l_del_rec.PARENT_DELIVERABLE_ID := NULL;
2682: END IF;
2683:
2684: IF l_del_rec.SHIP_TO_ORG_ID = OKE_API.G_MISS_NUM THEN
2685: l_del_rec.SHIP_TO_ORG_ID := NULL;
2686: END IF;
2687:
2688: IF l_del_rec.SHIP_TO_LOCATION_ID = OKE_API.G_MISS_NUM THEN
2684: IF l_del_rec.SHIP_TO_ORG_ID = OKE_API.G_MISS_NUM THEN
2685: l_del_rec.SHIP_TO_ORG_ID := NULL;
2686: END IF;
2687:
2688: IF l_del_rec.SHIP_TO_LOCATION_ID = OKE_API.G_MISS_NUM THEN
2689: l_del_rec.SHIP_TO_LOCATION_ID := NULL;
2690: END IF;
2691:
2692: IF l_del_rec.SHIP_FROM_ORG_ID = OKE_API.G_MISS_NUM THEN
2688: IF l_del_rec.SHIP_TO_LOCATION_ID = OKE_API.G_MISS_NUM THEN
2689: l_del_rec.SHIP_TO_LOCATION_ID := NULL;
2690: END IF;
2691:
2692: IF l_del_rec.SHIP_FROM_ORG_ID = OKE_API.G_MISS_NUM THEN
2693: l_del_rec.SHIP_FROM_ORG_ID := NULL;
2694: END IF;
2695:
2696: IF l_del_rec.SHIP_FROM_LOCATION_ID = OKE_API.G_MISS_NUM THEN
2692: IF l_del_rec.SHIP_FROM_ORG_ID = OKE_API.G_MISS_NUM THEN
2693: l_del_rec.SHIP_FROM_ORG_ID := NULL;
2694: END IF;
2695:
2696: IF l_del_rec.SHIP_FROM_LOCATION_ID = OKE_API.G_MISS_NUM THEN
2697: l_del_rec.SHIP_FROM_LOCATION_ID := NULL;
2698: END IF;
2699:
2700: IF l_del_rec.INVENTORY_ORG_ID = OKE_API.G_MISS_NUM THEN
2696: IF l_del_rec.SHIP_FROM_LOCATION_ID = OKE_API.G_MISS_NUM THEN
2697: l_del_rec.SHIP_FROM_LOCATION_ID := NULL;
2698: END IF;
2699:
2700: IF l_del_rec.INVENTORY_ORG_ID = OKE_API.G_MISS_NUM THEN
2701: l_del_rec.INVENTORY_ORG_ID := NULL;
2702: END IF;
2703:
2704: IF l_del_rec.DIRECTION = OKE_API.G_MISS_CHAR THEN
2700: IF l_del_rec.INVENTORY_ORG_ID = OKE_API.G_MISS_NUM THEN
2701: l_del_rec.INVENTORY_ORG_ID := NULL;
2702: END IF;
2703:
2704: IF l_del_rec.DIRECTION = OKE_API.G_MISS_CHAR THEN
2705: l_del_rec.DIRECTION := NULL;
2706: END IF;
2707:
2708: IF l_del_rec.DEFAULTED_FLAG = OKE_API.G_MISS_CHAR THEN
2704: IF l_del_rec.DIRECTION = OKE_API.G_MISS_CHAR THEN
2705: l_del_rec.DIRECTION := NULL;
2706: END IF;
2707:
2708: IF l_del_rec.DEFAULTED_FLAG = OKE_API.G_MISS_CHAR THEN
2709: l_del_rec.DEFAULTED_FLAG := NULL;
2710: END IF;
2711:
2712: IF l_del_rec.IN_PROCESS_FLAG = OKE_API.G_MISS_CHAR THEN
2708: IF l_del_rec.DEFAULTED_FLAG = OKE_API.G_MISS_CHAR THEN
2709: l_del_rec.DEFAULTED_FLAG := NULL;
2710: END IF;
2711:
2712: IF l_del_rec.IN_PROCESS_FLAG = OKE_API.G_MISS_CHAR THEN
2713: l_del_rec.IN_PROCESS_FLAG := NULL;
2714: END IF;
2715:
2716: IF l_del_rec.WF_ITEM_KEY = OKE_API.G_MISS_CHAR THEN
2712: IF l_del_rec.IN_PROCESS_FLAG = OKE_API.G_MISS_CHAR THEN
2713: l_del_rec.IN_PROCESS_FLAG := NULL;
2714: END IF;
2715:
2716: IF l_del_rec.WF_ITEM_KEY = OKE_API.G_MISS_CHAR THEN
2717: l_del_rec.WF_ITEM_KEY := NULL;
2718: END IF;
2719:
2720: IF l_del_rec.SUB_REF_ID = OKE_API.G_MISS_NUM THEN
2716: IF l_del_rec.WF_ITEM_KEY = OKE_API.G_MISS_CHAR THEN
2717: l_del_rec.WF_ITEM_KEY := NULL;
2718: END IF;
2719:
2720: IF l_del_rec.SUB_REF_ID = OKE_API.G_MISS_NUM THEN
2721: l_del_rec.SUB_REF_ID := NULL;
2722: END IF;
2723:
2724: IF l_del_rec.START_DATE = OKE_API.G_MISS_DATE THEN
2720: IF l_del_rec.SUB_REF_ID = OKE_API.G_MISS_NUM THEN
2721: l_del_rec.SUB_REF_ID := NULL;
2722: END IF;
2723:
2724: IF l_del_rec.START_DATE = OKE_API.G_MISS_DATE THEN
2725: l_del_rec.START_DATE := NULL;
2726: END IF;
2727:
2728: IF l_del_rec.END_DATE = OKE_API.G_MISS_DATE THEN
2724: IF l_del_rec.START_DATE = OKE_API.G_MISS_DATE THEN
2725: l_del_rec.START_DATE := NULL;
2726: END IF;
2727:
2728: IF l_del_rec.END_DATE = OKE_API.G_MISS_DATE THEN
2729: l_del_rec.END_DATE := NULL;
2730: END IF;
2731:
2732: IF l_del_rec.PRIORITY_CODE = OKE_API.G_MISS_CHAR THEN
2728: IF l_del_rec.END_DATE = OKE_API.G_MISS_DATE THEN
2729: l_del_rec.END_DATE := NULL;
2730: END IF;
2731:
2732: IF l_del_rec.PRIORITY_CODE = OKE_API.G_MISS_CHAR THEN
2733: l_del_rec.PRIORITY_CODE := NULL;
2734: END IF;
2735:
2736: IF l_del_rec.CURRENCY_CODE = OKE_API.G_MISS_CHAR THEN
2732: IF l_del_rec.PRIORITY_CODE = OKE_API.G_MISS_CHAR THEN
2733: l_del_rec.PRIORITY_CODE := NULL;
2734: END IF;
2735:
2736: IF l_del_rec.CURRENCY_CODE = OKE_API.G_MISS_CHAR THEN
2737: l_del_rec.CURRENCY_CODE := NULL;
2738: END IF;
2739:
2740: IF l_del_rec.UNIT_PRICE = OKE_API.G_MISS_NUM THEN
2736: IF l_del_rec.CURRENCY_CODE = OKE_API.G_MISS_CHAR THEN
2737: l_del_rec.CURRENCY_CODE := NULL;
2738: END IF;
2739:
2740: IF l_del_rec.UNIT_PRICE = OKE_API.G_MISS_NUM THEN
2741: l_del_rec.UNIT_PRICE := NULL;
2742: END IF;
2743:
2744: IF l_del_rec.UOM_CODE = OKE_API.G_MISS_CHAR THEN
2740: IF l_del_rec.UNIT_PRICE = OKE_API.G_MISS_NUM THEN
2741: l_del_rec.UNIT_PRICE := NULL;
2742: END IF;
2743:
2744: IF l_del_rec.UOM_CODE = OKE_API.G_MISS_CHAR THEN
2745: l_del_rec.UOM_CODE := NULL;
2746: END IF;
2747:
2748: IF l_del_rec.QUANTITY = OKE_API.G_MISS_NUM THEN
2744: IF l_del_rec.UOM_CODE = OKE_API.G_MISS_CHAR THEN
2745: l_del_rec.UOM_CODE := NULL;
2746: END IF;
2747:
2748: IF l_del_rec.QUANTITY = OKE_API.G_MISS_NUM THEN
2749: l_del_rec.QUANTITY := NULL;
2750: END IF;
2751:
2752: IF l_del_rec.COUNTRY_OF_ORIGIN_CODE = OKE_API.G_MISS_CHAR THEN
2748: IF l_del_rec.QUANTITY = OKE_API.G_MISS_NUM THEN
2749: l_del_rec.QUANTITY := NULL;
2750: END IF;
2751:
2752: IF l_del_rec.COUNTRY_OF_ORIGIN_CODE = OKE_API.G_MISS_CHAR THEN
2753: l_del_rec.COUNTRY_OF_ORIGIN_CODE := NULL;
2754: END IF;
2755:
2756: IF l_del_rec.SUBCONTRACTED_FLAG = OKE_API.G_MISS_CHAR THEN
2752: IF l_del_rec.COUNTRY_OF_ORIGIN_CODE = OKE_API.G_MISS_CHAR THEN
2753: l_del_rec.COUNTRY_OF_ORIGIN_CODE := NULL;
2754: END IF;
2755:
2756: IF l_del_rec.SUBCONTRACTED_FLAG = OKE_API.G_MISS_CHAR THEN
2757: l_del_rec.SUBCONTRACTED_FLAG := NULL;
2758: END IF;
2759:
2760: IF l_del_rec.DEPENDENCY_FLAG = OKE_API.G_MISS_CHAR THEN
2756: IF l_del_rec.SUBCONTRACTED_FLAG = OKE_API.G_MISS_CHAR THEN
2757: l_del_rec.SUBCONTRACTED_FLAG := NULL;
2758: END IF;
2759:
2760: IF l_del_rec.DEPENDENCY_FLAG = OKE_API.G_MISS_CHAR THEN
2761: l_del_rec.DEPENDENCY_FLAG := NULL;
2762: END IF;
2763:
2764:
2762: END IF;
2763:
2764:
2765:
2766: IF l_del_rec.BILLABLE_FLAG = OKE_API.G_MISS_CHAR THEN
2767: l_del_rec.BILLABLE_FLAG := NULL;
2768: END IF;
2769:
2770: IF l_del_rec.BILLING_EVENT_ID = OKE_API.G_MISS_NUM THEN
2766: IF l_del_rec.BILLABLE_FLAG = OKE_API.G_MISS_CHAR THEN
2767: l_del_rec.BILLABLE_FLAG := NULL;
2768: END IF;
2769:
2770: IF l_del_rec.BILLING_EVENT_ID = OKE_API.G_MISS_NUM THEN
2771: l_del_rec.BILLING_EVENT_ID := NULL;
2772: END IF;
2773:
2774: IF l_del_rec.DROP_SHIPPED_FLAG = OKE_API.G_MISS_CHAR THEN
2770: IF l_del_rec.BILLING_EVENT_ID = OKE_API.G_MISS_NUM THEN
2771: l_del_rec.BILLING_EVENT_ID := NULL;
2772: END IF;
2773:
2774: IF l_del_rec.DROP_SHIPPED_FLAG = OKE_API.G_MISS_CHAR THEN
2775: l_del_rec.DROP_SHIPPED_FLAG := NULL;
2776: END IF;
2777:
2778: IF l_del_rec.COMPLETED_FLAG = OKE_API.G_MISS_CHAR THEN
2774: IF l_del_rec.DROP_SHIPPED_FLAG = OKE_API.G_MISS_CHAR THEN
2775: l_del_rec.DROP_SHIPPED_FLAG := NULL;
2776: END IF;
2777:
2778: IF l_del_rec.COMPLETED_FLAG = OKE_API.G_MISS_CHAR THEN
2779: l_del_rec.COMPLETED_FLAG := NULL;
2780: END IF;
2781:
2782: IF l_del_rec.AVAILABLE_FOR_SHIP_FLAG = OKE_API.G_MISS_CHAR THEN
2778: IF l_del_rec.COMPLETED_FLAG = OKE_API.G_MISS_CHAR THEN
2779: l_del_rec.COMPLETED_FLAG := NULL;
2780: END IF;
2781:
2782: IF l_del_rec.AVAILABLE_FOR_SHIP_FLAG = OKE_API.G_MISS_CHAR THEN
2783: l_del_rec.AVAILABLE_FOR_SHIP_FLAG := NULL;
2784: END IF;
2785:
2786: IF l_del_rec.CREATE_DEMAND = OKE_API.G_MISS_CHAR THEN
2782: IF l_del_rec.AVAILABLE_FOR_SHIP_FLAG = OKE_API.G_MISS_CHAR THEN
2783: l_del_rec.AVAILABLE_FOR_SHIP_FLAG := NULL;
2784: END IF;
2785:
2786: IF l_del_rec.CREATE_DEMAND = OKE_API.G_MISS_CHAR THEN
2787: l_del_rec.CREATE_DEMAND := NULL;
2788: END IF;
2789:
2790: IF l_del_rec.READY_TO_BILL = OKE_API.G_MISS_CHAR THEN
2786: IF l_del_rec.CREATE_DEMAND = OKE_API.G_MISS_CHAR THEN
2787: l_del_rec.CREATE_DEMAND := NULL;
2788: END IF;
2789:
2790: IF l_del_rec.READY_TO_BILL = OKE_API.G_MISS_CHAR THEN
2791: l_del_rec.READY_TO_BILL := NULL;
2792: END IF;
2793:
2794: IF l_del_rec.NEED_BY_DATE = OKE_API.G_MISS_DATE THEN
2790: IF l_del_rec.READY_TO_BILL = OKE_API.G_MISS_CHAR THEN
2791: l_del_rec.READY_TO_BILL := NULL;
2792: END IF;
2793:
2794: IF l_del_rec.NEED_BY_DATE = OKE_API.G_MISS_DATE THEN
2795: l_del_rec.NEED_BY_DATE := NULL;
2796: END IF;
2797:
2798: IF l_del_rec.READY_TO_PROCURE = OKE_API.G_MISS_CHAR THEN
2794: IF l_del_rec.NEED_BY_DATE = OKE_API.G_MISS_DATE THEN
2795: l_del_rec.NEED_BY_DATE := NULL;
2796: END IF;
2797:
2798: IF l_del_rec.READY_TO_PROCURE = OKE_API.G_MISS_CHAR THEN
2799: l_del_rec.READY_TO_PROCURE := NULL;
2800: END IF;
2801:
2802: IF l_del_rec.MPS_TRANSACTION_ID = OKE_API.G_MISS_NUM THEN
2798: IF l_del_rec.READY_TO_PROCURE = OKE_API.G_MISS_CHAR THEN
2799: l_del_rec.READY_TO_PROCURE := NULL;
2800: END IF;
2801:
2802: IF l_del_rec.MPS_TRANSACTION_ID = OKE_API.G_MISS_NUM THEN
2803: l_del_rec.MPS_TRANSACTION_ID := NULL;
2804: END IF;
2805:
2806: IF l_del_rec.PO_REF_1 = OKE_API.G_MISS_NUM THEN
2802: IF l_del_rec.MPS_TRANSACTION_ID = OKE_API.G_MISS_NUM THEN
2803: l_del_rec.MPS_TRANSACTION_ID := NULL;
2804: END IF;
2805:
2806: IF l_del_rec.PO_REF_1 = OKE_API.G_MISS_NUM THEN
2807: l_del_rec.PO_REF_1 := NULL;
2808: END IF;
2809:
2810: IF l_del_rec.PO_REF_2 = OKE_API.G_MISS_NUM THEN
2806: IF l_del_rec.PO_REF_1 = OKE_API.G_MISS_NUM THEN
2807: l_del_rec.PO_REF_1 := NULL;
2808: END IF;
2809:
2810: IF l_del_rec.PO_REF_2 = OKE_API.G_MISS_NUM THEN
2811: l_del_rec.PO_REF_2 := NULL;
2812: END IF;
2813:
2814: IF l_del_rec.PO_REF_3 = OKE_API.G_MISS_NUM THEN
2810: IF l_del_rec.PO_REF_2 = OKE_API.G_MISS_NUM THEN
2811: l_del_rec.PO_REF_2 := NULL;
2812: END IF;
2813:
2814: IF l_del_rec.PO_REF_3 = OKE_API.G_MISS_NUM THEN
2815: l_del_rec.PO_REF_3 := NULL;
2816: END IF;
2817:
2818: IF l_del_rec.SHIPPING_REQUEST_ID = OKE_API.G_MISS_NUM THEN
2814: IF l_del_rec.PO_REF_3 = OKE_API.G_MISS_NUM THEN
2815: l_del_rec.PO_REF_3 := NULL;
2816: END IF;
2817:
2818: IF l_del_rec.SHIPPING_REQUEST_ID = OKE_API.G_MISS_NUM THEN
2819: l_del_rec.SHIPPING_REQUEST_ID := NULL;
2820: END IF;
2821:
2822: IF l_del_rec.UNIT_NUMBER = OKE_API.G_MISS_CHAR THEN
2818: IF l_del_rec.SHIPPING_REQUEST_ID = OKE_API.G_MISS_NUM THEN
2819: l_del_rec.SHIPPING_REQUEST_ID := NULL;
2820: END IF;
2821:
2822: IF l_del_rec.UNIT_NUMBER = OKE_API.G_MISS_CHAR THEN
2823: l_del_rec.UNIT_NUMBER := NULL;
2824: END IF;
2825:
2826: IF l_del_rec.NDB_SCHEDULE_DESIGNATOR = OKE_API.G_MISS_CHAR THEN
2822: IF l_del_rec.UNIT_NUMBER = OKE_API.G_MISS_CHAR THEN
2823: l_del_rec.UNIT_NUMBER := NULL;
2824: END IF;
2825:
2826: IF l_del_rec.NDB_SCHEDULE_DESIGNATOR = OKE_API.G_MISS_CHAR THEN
2827: l_del_rec.NDB_SCHEDULE_DESIGNATOR := NULL;
2828: END IF;
2829:
2830: IF l_del_rec.SHIPPABLE_FLAG = OKE_API.G_MISS_CHAR THEN
2826: IF l_del_rec.NDB_SCHEDULE_DESIGNATOR = OKE_API.G_MISS_CHAR THEN
2827: l_del_rec.NDB_SCHEDULE_DESIGNATOR := NULL;
2828: END IF;
2829:
2830: IF l_del_rec.SHIPPABLE_FLAG = OKE_API.G_MISS_CHAR THEN
2831: l_del_rec.SHIPPABLE_FLAG := NULL;
2832: END IF;
2833:
2834: IF l_del_rec.CFE_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
2830: IF l_del_rec.SHIPPABLE_FLAG = OKE_API.G_MISS_CHAR THEN
2831: l_del_rec.SHIPPABLE_FLAG := NULL;
2832: END IF;
2833:
2834: IF l_del_rec.CFE_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
2835: l_del_rec.CFE_REQ_FLAG := NULL;
2836: END IF;
2837:
2838: IF l_del_rec.INSPECTION_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
2834: IF l_del_rec.CFE_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
2835: l_del_rec.CFE_REQ_FLAG := NULL;
2836: END IF;
2837:
2838: IF l_del_rec.INSPECTION_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
2839: l_del_rec.INSPECTION_REQ_FLAG := NULL;
2840: END IF;
2841:
2842: IF l_del_rec.INTERIM_RPT_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
2838: IF l_del_rec.INSPECTION_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
2839: l_del_rec.INSPECTION_REQ_FLAG := NULL;
2840: END IF;
2841:
2842: IF l_del_rec.INTERIM_RPT_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
2843: l_del_rec.INTERIM_RPT_REQ_FLAG := NULL;
2844: END IF;
2845:
2846: IF l_del_rec.LOT_APPLIES_FLAG = OKE_API.G_MISS_CHAR THEN
2842: IF l_del_rec.INTERIM_RPT_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
2843: l_del_rec.INTERIM_RPT_REQ_FLAG := NULL;
2844: END IF;
2845:
2846: IF l_del_rec.LOT_APPLIES_FLAG = OKE_API.G_MISS_CHAR THEN
2847: l_del_rec.LOT_APPLIES_FLAG := NULL;
2848: END IF;
2849:
2850: IF l_del_rec.CUSTOMER_APPROVAL_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
2846: IF l_del_rec.LOT_APPLIES_FLAG = OKE_API.G_MISS_CHAR THEN
2847: l_del_rec.LOT_APPLIES_FLAG := NULL;
2848: END IF;
2849:
2850: IF l_del_rec.CUSTOMER_APPROVAL_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
2851: l_del_rec.CUSTOMER_APPROVAL_REQ_FLAG := NULL;
2852: END IF;
2853:
2854: IF l_del_rec.EXPECTED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
2850: IF l_del_rec.CUSTOMER_APPROVAL_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
2851: l_del_rec.CUSTOMER_APPROVAL_REQ_FLAG := NULL;
2852: END IF;
2853:
2854: IF l_del_rec.EXPECTED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
2855: l_del_rec.EXPECTED_SHIPMENT_DATE := NULL;
2856: END IF;
2857:
2858: IF l_del_rec.INITIATE_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
2854: IF l_del_rec.EXPECTED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
2855: l_del_rec.EXPECTED_SHIPMENT_DATE := NULL;
2856: END IF;
2857:
2858: IF l_del_rec.INITIATE_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
2859: l_del_rec.INITIATE_SHIPMENT_DATE := NULL;
2860: END IF;
2861:
2862: IF l_del_rec.PROMISED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
2858: IF l_del_rec.INITIATE_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
2859: l_del_rec.INITIATE_SHIPMENT_DATE := NULL;
2860: END IF;
2861:
2862: IF l_del_rec.PROMISED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
2863: l_del_rec.PROMISED_SHIPMENT_DATE := NULL;
2864: END IF;
2865:
2866: IF l_del_rec.AS_OF_DATE = OKE_API.G_MISS_DATE THEN
2862: IF l_del_rec.PROMISED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
2863: l_del_rec.PROMISED_SHIPMENT_DATE := NULL;
2864: END IF;
2865:
2866: IF l_del_rec.AS_OF_DATE = OKE_API.G_MISS_DATE THEN
2867: l_del_rec.AS_OF_DATE := NULL;
2868: END IF;
2869:
2870: IF l_del_rec.DATE_OF_FIRST_SUBMISSION = OKE_API.G_MISS_DATE THEN
2866: IF l_del_rec.AS_OF_DATE = OKE_API.G_MISS_DATE THEN
2867: l_del_rec.AS_OF_DATE := NULL;
2868: END IF;
2869:
2870: IF l_del_rec.DATE_OF_FIRST_SUBMISSION = OKE_API.G_MISS_DATE THEN
2871: l_del_rec.DATE_OF_FIRST_SUBMISSION := NULL;
2872: END IF;
2873:
2874: IF l_del_rec.FREQUENCY = OKE_API.G_MISS_CHAR THEN
2870: IF l_del_rec.DATE_OF_FIRST_SUBMISSION = OKE_API.G_MISS_DATE THEN
2871: l_del_rec.DATE_OF_FIRST_SUBMISSION := NULL;
2872: END IF;
2873:
2874: IF l_del_rec.FREQUENCY = OKE_API.G_MISS_CHAR THEN
2875: l_del_rec.FREQUENCY := NULL;
2876: END IF;
2877:
2878: IF l_del_rec.ACQ_DOC_NUMBER = OKE_API.G_MISS_CHAR THEN
2874: IF l_del_rec.FREQUENCY = OKE_API.G_MISS_CHAR THEN
2875: l_del_rec.FREQUENCY := NULL;
2876: END IF;
2877:
2878: IF l_del_rec.ACQ_DOC_NUMBER = OKE_API.G_MISS_CHAR THEN
2879: l_del_rec.ACQ_DOC_NUMBER := NULL;
2880: END IF;
2881:
2882: IF l_del_rec.SUBMISSION_FLAG = OKE_API.G_MISS_CHAR THEN
2878: IF l_del_rec.ACQ_DOC_NUMBER = OKE_API.G_MISS_CHAR THEN
2879: l_del_rec.ACQ_DOC_NUMBER := NULL;
2880: END IF;
2881:
2882: IF l_del_rec.SUBMISSION_FLAG = OKE_API.G_MISS_CHAR THEN
2883: l_del_rec.SUBMISSION_FLAG := NULL;
2884: END IF;
2885:
2886: IF l_del_rec.DATA_ITEM_NAME = OKE_API.G_MISS_CHAR THEN
2882: IF l_del_rec.SUBMISSION_FLAG = OKE_API.G_MISS_CHAR THEN
2883: l_del_rec.SUBMISSION_FLAG := NULL;
2884: END IF;
2885:
2886: IF l_del_rec.DATA_ITEM_NAME = OKE_API.G_MISS_CHAR THEN
2887: l_del_rec.DATA_ITEM_NAME := NULL;
2888: END IF;
2889:
2890: IF l_del_rec.DATA_ITEM_SUBTITLE = OKE_API.G_MISS_CHAR THEN
2886: IF l_del_rec.DATA_ITEM_NAME = OKE_API.G_MISS_CHAR THEN
2887: l_del_rec.DATA_ITEM_NAME := NULL;
2888: END IF;
2889:
2890: IF l_del_rec.DATA_ITEM_SUBTITLE = OKE_API.G_MISS_CHAR THEN
2891: l_del_rec.DATA_ITEM_SUBTITLE := NULL;
2892: END IF;
2893:
2894: IF l_del_rec.TOTAL_NUM_OF_COPIES = OKE_API.G_MISS_NUM THEN
2890: IF l_del_rec.DATA_ITEM_SUBTITLE = OKE_API.G_MISS_CHAR THEN
2891: l_del_rec.DATA_ITEM_SUBTITLE := NULL;
2892: END IF;
2893:
2894: IF l_del_rec.TOTAL_NUM_OF_COPIES = OKE_API.G_MISS_NUM THEN
2895: l_del_rec.TOTAL_NUM_OF_COPIES := NULL;
2896: END IF;
2897:
2898: IF l_del_rec.CDRL_CATEGORY = OKE_API.G_MISS_CHAR THEN
2894: IF l_del_rec.TOTAL_NUM_OF_COPIES = OKE_API.G_MISS_NUM THEN
2895: l_del_rec.TOTAL_NUM_OF_COPIES := NULL;
2896: END IF;
2897:
2898: IF l_del_rec.CDRL_CATEGORY = OKE_API.G_MISS_CHAR THEN
2899: l_del_rec.CDRL_CATEGORY := NULL;
2900: END IF;
2901:
2902: IF l_del_rec.EXPORT_LICENSE_NUM = OKE_API.G_MISS_CHAR THEN
2898: IF l_del_rec.CDRL_CATEGORY = OKE_API.G_MISS_CHAR THEN
2899: l_del_rec.CDRL_CATEGORY := NULL;
2900: END IF;
2901:
2902: IF l_del_rec.EXPORT_LICENSE_NUM = OKE_API.G_MISS_CHAR THEN
2903: l_del_rec.EXPORT_LICENSE_NUM := NULL;
2904: END IF;
2905:
2906: IF l_del_rec.EXPORT_LICENSE_RES = OKE_API.G_MISS_CHAR THEN
2902: IF l_del_rec.EXPORT_LICENSE_NUM = OKE_API.G_MISS_CHAR THEN
2903: l_del_rec.EXPORT_LICENSE_NUM := NULL;
2904: END IF;
2905:
2906: IF l_del_rec.EXPORT_LICENSE_RES = OKE_API.G_MISS_CHAR THEN
2907: l_del_rec.EXPORT_LICENSE_RES := NULL;
2908: END IF;
2909:
2910: IF l_del_rec.EXPORT_FLAG = OKE_API.G_MISS_CHAR THEN
2906: IF l_del_rec.EXPORT_LICENSE_RES = OKE_API.G_MISS_CHAR THEN
2907: l_del_rec.EXPORT_LICENSE_RES := NULL;
2908: END IF;
2909:
2910: IF l_del_rec.EXPORT_FLAG = OKE_API.G_MISS_CHAR THEN
2911: l_del_rec.EXPORT_FLAG := NULL;
2912: END IF;
2913:
2914: IF l_del_rec.CREATED_BY = OKE_API.G_MISS_NUM THEN
2910: IF l_del_rec.EXPORT_FLAG = OKE_API.G_MISS_CHAR THEN
2911: l_del_rec.EXPORT_FLAG := NULL;
2912: END IF;
2913:
2914: IF l_del_rec.CREATED_BY = OKE_API.G_MISS_NUM THEN
2915: l_del_rec.CREATED_BY := NULL;
2916: END IF;
2917:
2918: IF l_del_rec.CREATION_DATE = OKE_API.G_MISS_DATE THEN
2914: IF l_del_rec.CREATED_BY = OKE_API.G_MISS_NUM THEN
2915: l_del_rec.CREATED_BY := NULL;
2916: END IF;
2917:
2918: IF l_del_rec.CREATION_DATE = OKE_API.G_MISS_DATE THEN
2919: l_del_rec.CREATION_DATE := NULL;
2920: END IF;
2921:
2922: IF l_del_rec.LAST_UPDATED_BY = OKE_API.G_MISS_NUM THEN
2918: IF l_del_rec.CREATION_DATE = OKE_API.G_MISS_DATE THEN
2919: l_del_rec.CREATION_DATE := NULL;
2920: END IF;
2921:
2922: IF l_del_rec.LAST_UPDATED_BY = OKE_API.G_MISS_NUM THEN
2923: l_del_rec.LAST_UPDATED_BY := NULL;
2924: END IF;
2925:
2926: IF l_del_rec.LAST_UPDATE_LOGIN = OKE_API.G_MISS_NUM THEN
2922: IF l_del_rec.LAST_UPDATED_BY = OKE_API.G_MISS_NUM THEN
2923: l_del_rec.LAST_UPDATED_BY := NULL;
2924: END IF;
2925:
2926: IF l_del_rec.LAST_UPDATE_LOGIN = OKE_API.G_MISS_NUM THEN
2927: l_del_rec.LAST_UPDATE_LOGIN := NULL;
2928: END IF;
2929:
2930: IF l_del_rec.LAST_UPDATE_DATE = OKE_API.G_MISS_DATE THEN
2926: IF l_del_rec.LAST_UPDATE_LOGIN = OKE_API.G_MISS_NUM THEN
2927: l_del_rec.LAST_UPDATE_LOGIN := NULL;
2928: END IF;
2929:
2930: IF l_del_rec.LAST_UPDATE_DATE = OKE_API.G_MISS_DATE THEN
2931: l_del_rec.LAST_UPDATE_DATE := NULL;
2932: END IF;
2933:
2934: IF l_del_rec.ATTRIBUTE_CATEGORY = OKE_API.G_MISS_CHAR THEN
2930: IF l_del_rec.LAST_UPDATE_DATE = OKE_API.G_MISS_DATE THEN
2931: l_del_rec.LAST_UPDATE_DATE := NULL;
2932: END IF;
2933:
2934: IF l_del_rec.ATTRIBUTE_CATEGORY = OKE_API.G_MISS_CHAR THEN
2935: l_del_rec.ATTRIBUTE_CATEGORY := NULL;
2936: END IF;
2937:
2938: IF l_del_rec.ATTRIBUTE1 = OKE_API.G_MISS_CHAR THEN
2934: IF l_del_rec.ATTRIBUTE_CATEGORY = OKE_API.G_MISS_CHAR THEN
2935: l_del_rec.ATTRIBUTE_CATEGORY := NULL;
2936: END IF;
2937:
2938: IF l_del_rec.ATTRIBUTE1 = OKE_API.G_MISS_CHAR THEN
2939: l_del_rec.ATTRIBUTE1 := NULL;
2940: END IF;
2941:
2942: IF l_del_rec.ATTRIBUTE2 = OKE_API.G_MISS_CHAR THEN
2938: IF l_del_rec.ATTRIBUTE1 = OKE_API.G_MISS_CHAR THEN
2939: l_del_rec.ATTRIBUTE1 := NULL;
2940: END IF;
2941:
2942: IF l_del_rec.ATTRIBUTE2 = OKE_API.G_MISS_CHAR THEN
2943: l_del_rec.ATTRIBUTE2 := NULL;
2944: END IF;
2945:
2946: IF l_del_rec.ATTRIBUTE3 = OKE_API.G_MISS_CHAR THEN
2942: IF l_del_rec.ATTRIBUTE2 = OKE_API.G_MISS_CHAR THEN
2943: l_del_rec.ATTRIBUTE2 := NULL;
2944: END IF;
2945:
2946: IF l_del_rec.ATTRIBUTE3 = OKE_API.G_MISS_CHAR THEN
2947: l_del_rec.ATTRIBUTE3 := NULL;
2948: END IF;
2949:
2950: IF l_del_rec.ATTRIBUTE4 = OKE_API.G_MISS_CHAR THEN
2946: IF l_del_rec.ATTRIBUTE3 = OKE_API.G_MISS_CHAR THEN
2947: l_del_rec.ATTRIBUTE3 := NULL;
2948: END IF;
2949:
2950: IF l_del_rec.ATTRIBUTE4 = OKE_API.G_MISS_CHAR THEN
2951: l_del_rec.ATTRIBUTE4 := NULL;
2952: END IF;
2953:
2954: IF l_del_rec.ATTRIBUTE5 = OKE_API.G_MISS_CHAR THEN
2950: IF l_del_rec.ATTRIBUTE4 = OKE_API.G_MISS_CHAR THEN
2951: l_del_rec.ATTRIBUTE4 := NULL;
2952: END IF;
2953:
2954: IF l_del_rec.ATTRIBUTE5 = OKE_API.G_MISS_CHAR THEN
2955: l_del_rec.ATTRIBUTE5 := NULL;
2956: END IF;
2957:
2958: IF l_del_rec.ATTRIBUTE6 = OKE_API.G_MISS_CHAR THEN
2954: IF l_del_rec.ATTRIBUTE5 = OKE_API.G_MISS_CHAR THEN
2955: l_del_rec.ATTRIBUTE5 := NULL;
2956: END IF;
2957:
2958: IF l_del_rec.ATTRIBUTE6 = OKE_API.G_MISS_CHAR THEN
2959: l_del_rec.ATTRIBUTE6 := NULL;
2960: END IF;
2961:
2962: IF l_del_rec.ATTRIBUTE7 = OKE_API.G_MISS_CHAR THEN
2958: IF l_del_rec.ATTRIBUTE6 = OKE_API.G_MISS_CHAR THEN
2959: l_del_rec.ATTRIBUTE6 := NULL;
2960: END IF;
2961:
2962: IF l_del_rec.ATTRIBUTE7 = OKE_API.G_MISS_CHAR THEN
2963: l_del_rec.ATTRIBUTE7 := NULL;
2964: END IF;
2965:
2966: IF l_del_rec.ATTRIBUTE8 = OKE_API.G_MISS_CHAR THEN
2962: IF l_del_rec.ATTRIBUTE7 = OKE_API.G_MISS_CHAR THEN
2963: l_del_rec.ATTRIBUTE7 := NULL;
2964: END IF;
2965:
2966: IF l_del_rec.ATTRIBUTE8 = OKE_API.G_MISS_CHAR THEN
2967: l_del_rec.ATTRIBUTE8 := NULL;
2968: END IF;
2969:
2970: IF l_del_rec.ATTRIBUTE9 = OKE_API.G_MISS_CHAR THEN
2966: IF l_del_rec.ATTRIBUTE8 = OKE_API.G_MISS_CHAR THEN
2967: l_del_rec.ATTRIBUTE8 := NULL;
2968: END IF;
2969:
2970: IF l_del_rec.ATTRIBUTE9 = OKE_API.G_MISS_CHAR THEN
2971: l_del_rec.ATTRIBUTE9 := NULL;
2972: END IF;
2973:
2974: IF l_del_rec.ATTRIBUTE10 = OKE_API.G_MISS_CHAR THEN
2970: IF l_del_rec.ATTRIBUTE9 = OKE_API.G_MISS_CHAR THEN
2971: l_del_rec.ATTRIBUTE9 := NULL;
2972: END IF;
2973:
2974: IF l_del_rec.ATTRIBUTE10 = OKE_API.G_MISS_CHAR THEN
2975: l_del_rec.ATTRIBUTE10 := NULL;
2976: END IF;
2977:
2978: IF l_del_rec.ATTRIBUTE11 = OKE_API.G_MISS_CHAR THEN
2974: IF l_del_rec.ATTRIBUTE10 = OKE_API.G_MISS_CHAR THEN
2975: l_del_rec.ATTRIBUTE10 := NULL;
2976: END IF;
2977:
2978: IF l_del_rec.ATTRIBUTE11 = OKE_API.G_MISS_CHAR THEN
2979: l_del_rec.ATTRIBUTE11 := NULL;
2980: END IF;
2981:
2982: IF l_del_rec.ATTRIBUTE12 = OKE_API.G_MISS_CHAR THEN
2978: IF l_del_rec.ATTRIBUTE11 = OKE_API.G_MISS_CHAR THEN
2979: l_del_rec.ATTRIBUTE11 := NULL;
2980: END IF;
2981:
2982: IF l_del_rec.ATTRIBUTE12 = OKE_API.G_MISS_CHAR THEN
2983: l_del_rec.ATTRIBUTE12 := NULL;
2984: END IF;
2985:
2986: IF l_del_rec.ATTRIBUTE13 = OKE_API.G_MISS_CHAR THEN
2982: IF l_del_rec.ATTRIBUTE12 = OKE_API.G_MISS_CHAR THEN
2983: l_del_rec.ATTRIBUTE12 := NULL;
2984: END IF;
2985:
2986: IF l_del_rec.ATTRIBUTE13 = OKE_API.G_MISS_CHAR THEN
2987: l_del_rec.ATTRIBUTE13 := NULL;
2988: END IF;
2989:
2990: IF l_del_rec.ATTRIBUTE14 = OKE_API.G_MISS_CHAR THEN
2986: IF l_del_rec.ATTRIBUTE13 = OKE_API.G_MISS_CHAR THEN
2987: l_del_rec.ATTRIBUTE13 := NULL;
2988: END IF;
2989:
2990: IF l_del_rec.ATTRIBUTE14 = OKE_API.G_MISS_CHAR THEN
2991: l_del_rec.ATTRIBUTE14 := NULL;
2992: END IF;
2993:
2994: IF l_del_rec.ATTRIBUTE15 = OKE_API.G_MISS_CHAR THEN
2990: IF l_del_rec.ATTRIBUTE14 = OKE_API.G_MISS_CHAR THEN
2991: l_del_rec.ATTRIBUTE14 := NULL;
2992: END IF;
2993:
2994: IF l_del_rec.ATTRIBUTE15 = OKE_API.G_MISS_CHAR THEN
2995: l_del_rec.ATTRIBUTE15 := NULL;
2996: END IF;
2997:
2998:
2996: END IF;
2997:
2998:
2999:
3000: IF l_del_rec.comments = OKE_API.G_MISS_CHAR THEN
3001:
3002: l_del_rec.comments := NULL;
3003: END IF;
3004:
3001:
3002: l_del_rec.comments := NULL;
3003: END IF;
3004:
3005: IF l_del_rec.weight = OKE_API.G_MISS_NUM THEN
3006: l_del_rec.weight := NULL;
3007: END IF;
3008:
3009: IF l_del_rec.weight_uom_code = OKE_API.G_MISS_CHAR THEN
3005: IF l_del_rec.weight = OKE_API.G_MISS_NUM THEN
3006: l_del_rec.weight := NULL;
3007: END IF;
3008:
3009: IF l_del_rec.weight_uom_code = OKE_API.G_MISS_CHAR THEN
3010: l_del_rec.weight_uom_code := NULL;
3011: END IF;
3012:
3013: IF l_del_rec.volume = OKE_API.G_MISS_NUM THEN
3009: IF l_del_rec.weight_uom_code = OKE_API.G_MISS_CHAR THEN
3010: l_del_rec.weight_uom_code := NULL;
3011: END IF;
3012:
3013: IF l_del_rec.volume = OKE_API.G_MISS_NUM THEN
3014: l_del_rec.volume := NULL;
3015: END IF;
3016:
3017: IF l_del_rec.volume_uom_code = OKE_API.G_MISS_CHAR THEN
3013: IF l_del_rec.volume = OKE_API.G_MISS_NUM THEN
3014: l_del_rec.volume := NULL;
3015: END IF;
3016:
3017: IF l_del_rec.volume_uom_code = OKE_API.G_MISS_CHAR THEN
3018: l_del_rec.volume_uom_code := NULL;
3019: END IF;
3020:
3021: IF l_del_rec.expenditure_organization_id = OKE_API.G_MISS_NUM THEN
3017: IF l_del_rec.volume_uom_code = OKE_API.G_MISS_CHAR THEN
3018: l_del_rec.volume_uom_code := NULL;
3019: END IF;
3020:
3021: IF l_del_rec.expenditure_organization_id = OKE_API.G_MISS_NUM THEN
3022: l_del_rec.expenditure_organization_id := NULL;
3023: END IF;
3024:
3025: IF l_del_rec.expenditure_type = OKE_API.G_MISS_CHAR THEN
3021: IF l_del_rec.expenditure_organization_id = OKE_API.G_MISS_NUM THEN
3022: l_del_rec.expenditure_organization_id := NULL;
3023: END IF;
3024:
3025: IF l_del_rec.expenditure_type = OKE_API.G_MISS_CHAR THEN
3026: l_del_rec.expenditure_type := NULL;
3027: END IF;
3028:
3029: IF l_del_rec.expenditure_item_date = OKE_API.G_MISS_DATE THEN
3025: IF l_del_rec.expenditure_type = OKE_API.G_MISS_CHAR THEN
3026: l_del_rec.expenditure_type := NULL;
3027: END IF;
3028:
3029: IF l_del_rec.expenditure_item_date = OKE_API.G_MISS_DATE THEN
3030: l_del_rec.expenditure_item_date := NULL;
3031: END IF;
3032:
3033: IF l_del_rec.destination_type_code = OKE_API.G_MISS_CHAR THEN
3029: IF l_del_rec.expenditure_item_date = OKE_API.G_MISS_DATE THEN
3030: l_del_rec.expenditure_item_date := NULL;
3031: END IF;
3032:
3033: IF l_del_rec.destination_type_code = OKE_API.G_MISS_CHAR THEN
3034: l_del_rec.destination_type_code := NULL;
3035: END IF;
3036:
3037: IF l_del_rec.rate_type = OKE_API.G_MISS_CHAR THEN
3033: IF l_del_rec.destination_type_code = OKE_API.G_MISS_CHAR THEN
3034: l_del_rec.destination_type_code := NULL;
3035: END IF;
3036:
3037: IF l_del_rec.rate_type = OKE_API.G_MISS_CHAR THEN
3038: l_del_rec.rate_type := NULL;
3039: END IF;
3040:
3041: IF l_del_rec.rate_date = OKE_API.G_MISS_DATE THEN
3037: IF l_del_rec.rate_type = OKE_API.G_MISS_CHAR THEN
3038: l_del_rec.rate_type := NULL;
3039: END IF;
3040:
3041: IF l_del_rec.rate_date = OKE_API.G_MISS_DATE THEN
3042: l_del_rec.rate_date := NULL;
3043: END IF;
3044:
3045: IF l_del_rec.exchange_rate = OKE_API.G_MISS_NUM THEN
3041: IF l_del_rec.rate_date = OKE_API.G_MISS_DATE THEN
3042: l_del_rec.rate_date := NULL;
3043: END IF;
3044:
3045: IF l_del_rec.exchange_rate = OKE_API.G_MISS_NUM THEN
3046: l_del_rec.exchange_rate := NULL;
3047: END IF;
3048:
3049: IF l_del_rec.description = OKE_API.G_MISS_CHAR THEN
3045: IF l_del_rec.exchange_rate = OKE_API.G_MISS_NUM THEN
3046: l_del_rec.exchange_rate := NULL;
3047: END IF;
3048:
3049: IF l_del_rec.description = OKE_API.G_MISS_CHAR THEN
3050: l_del_rec.description := NULL;
3051: END IF;
3052:
3053: IF l_del_rec.requisition_line_type_id = OKE_API.G_MISS_NUM THEN
3049: IF l_del_rec.description = OKE_API.G_MISS_CHAR THEN
3050: l_del_rec.description := NULL;
3051: END IF;
3052:
3053: IF l_del_rec.requisition_line_type_id = OKE_API.G_MISS_NUM THEN
3054: l_del_rec.requisition_line_type_id := NULL;
3055: END IF;
3056:
3057: IF l_del_rec.po_category_id = OKE_API.G_MISS_NUM THEN
3053: IF l_del_rec.requisition_line_type_id = OKE_API.G_MISS_NUM THEN
3054: l_del_rec.requisition_line_type_id := NULL;
3055: END IF;
3056:
3057: IF l_del_rec.po_category_id = OKE_API.G_MISS_NUM THEN
3058: l_del_rec.po_category_id := NULL;
3059: END IF;
3060:
3061: RETURN(l_del_rec);
3066:
3067: FUNCTION validate_attributes(
3068: p_del_rec IN del_rec_type ) RETURN VARCHAR2 IS
3069:
3070: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
3071: x_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
3072:
3073: BEGIN
3074: /* call individual validation procedure */
3067: FUNCTION validate_attributes(
3068: p_del_rec IN del_rec_type ) RETURN VARCHAR2 IS
3069:
3070: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
3071: x_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
3072:
3073: BEGIN
3074: /* call individual validation procedure */
3075:
3079: p_del_rec => p_del_rec);
3080:
3081:
3082:
3083: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3084: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3085: x_return_status := l_return_status;
3086: End If;
3087: End If;
3080:
3081:
3082:
3083: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3084: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3085: x_return_status := l_return_status;
3086: End If;
3087: End If;
3088:
3090: Validate_Line_ID(
3091: x_return_status => l_return_status,
3092: p_del_rec => p_del_rec);
3093:
3094: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3095: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3096: x_return_status := l_return_status;
3097: End If;
3098: End If;
3091: x_return_status => l_return_status,
3092: p_del_rec => p_del_rec);
3093:
3094: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3095: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3096: x_return_status := l_return_status;
3097: End If;
3098: End If;
3099:
3100: Validate_Deliverable_Number(
3101: x_return_status => l_return_status,
3102: p_del_rec => p_del_rec);
3103:
3104: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3105: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3106: x_return_status := l_return_status;
3107: End If;
3108: End If;
3101: x_return_status => l_return_status,
3102: p_del_rec => p_del_rec);
3103:
3104: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3105: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3106: x_return_status := l_return_status;
3107: End If;
3108: End If;
3109:
3112: Validate_Project_ID(
3113: x_return_status => l_return_status,
3114: p_del_rec => p_del_rec);
3115:
3116: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3117: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3118: x_return_status := l_return_status;
3119: End If;
3120: End If;
3113: x_return_status => l_return_status,
3114: p_del_rec => p_del_rec);
3115:
3116: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3117: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3118: x_return_status := l_return_status;
3119: End If;
3120: End If;
3121:
3122: Validate_Task_ID(
3123: x_return_status => l_return_status,
3124: p_del_rec => p_del_rec);
3125:
3126: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3127: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3128: x_return_status := l_return_status;
3129: End If;
3130: End If;
3123: x_return_status => l_return_status,
3124: p_del_rec => p_del_rec);
3125:
3126: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3127: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3128: x_return_status := l_return_status;
3129: End If;
3130: End If;
3131:
3132: Validate_Inventory_Org_ID(
3133: x_return_status => l_return_status,
3134: p_del_rec => p_del_rec);
3135:
3136: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3137: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3138: x_return_status := l_return_status;
3139: End If;
3140: End If;
3133: x_return_status => l_return_status,
3134: p_del_rec => p_del_rec);
3135:
3136: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3137: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3138: x_return_status := l_return_status;
3139: End If;
3140: End If;
3141:
3142: Validate_Item_ID(
3143: x_return_status => l_return_status,
3144: p_del_rec => p_del_rec);
3145:
3146: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3147: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3148: x_return_status := l_return_status;
3149: End If;
3150: End If;
3143: x_return_status => l_return_status,
3144: p_del_rec => p_del_rec);
3145:
3146: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3147: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3148: x_return_status := l_return_status;
3149: End If;
3150: End If;
3151:
3153: x_return_status => l_return_status,
3154: p_del_rec => p_del_rec);
3155:
3156:
3157: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3158: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3159: x_return_status := l_return_status;
3160: End If;
3161: End If;
3154: p_del_rec => p_del_rec);
3155:
3156:
3157: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3158: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3159: x_return_status := l_return_status;
3160: End If;
3161: End If;
3162:
3163: Validate_Direction(
3164: x_return_status => l_return_status,
3165: p_del_rec => p_del_rec);
3166:
3167: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3168: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3169: x_return_status := l_return_status;
3170: End If;
3171: End If;
3164: x_return_status => l_return_status,
3165: p_del_rec => p_del_rec);
3166:
3167: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3168: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3169: x_return_status := l_return_status;
3170: End If;
3171: End If;
3172:
3173: Validate_Ship_To_Org_ID(
3174: x_return_status => l_return_status,
3175: p_del_rec => p_del_rec);
3176:
3177: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3178: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3179: x_return_status := l_return_status;
3180: End If;
3181: End If;
3174: x_return_status => l_return_status,
3175: p_del_rec => p_del_rec);
3176:
3177: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3178: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3179: x_return_status := l_return_status;
3180: End If;
3181: End If;
3182:
3183: Validate_Ship_From_Org_ID(
3184: x_return_status => l_return_status,
3185: p_del_rec => p_del_rec);
3186:
3187: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3188: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3189: x_return_status := l_return_status;
3190: End If;
3191: End If;
3184: x_return_status => l_return_status,
3185: p_del_rec => p_del_rec);
3186:
3187: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3188: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3189: x_return_status := l_return_status;
3190: End If;
3191: End If;
3192:
3193: Validate_Ship_To_Location_ID(
3194: x_return_status => l_return_status,
3195: p_del_rec => p_del_rec);
3196:
3197: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3198: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3199: x_return_status := l_return_status;
3200: End If;
3201: End If;
3194: x_return_status => l_return_status,
3195: p_del_rec => p_del_rec);
3196:
3197: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3198: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3199: x_return_status := l_return_status;
3200: End If;
3201: End If;
3202:
3203: Validate_Ship_From_Location_ID(
3204: x_return_status => l_return_status,
3205: p_del_rec => p_del_rec);
3206:
3207: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3208: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3209: x_return_status := l_return_status;
3210: End If;
3211: End If;
3204: x_return_status => l_return_status,
3205: p_del_rec => p_del_rec);
3206:
3207: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3208: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3209: x_return_status := l_return_status;
3210: End If;
3211: End If;
3212:
3213: Validate_In_Process_Flag(
3214: x_return_status => l_return_status,
3215: p_del_rec => p_del_rec);
3216:
3217: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3218: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3219: x_return_status := l_return_status;
3220: End If;
3221: End If;
3214: x_return_status => l_return_status,
3215: p_del_rec => p_del_rec);
3216:
3217: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3218: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3219: x_return_status := l_return_status;
3220: End If;
3221: End If;
3222:
3223: Validate_Start_Date(
3224: x_return_status => l_return_status,
3225: p_del_rec => p_del_rec);
3226:
3227: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3228: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3229: x_return_status := l_return_status;
3230: End If;
3231: End If;
3224: x_return_status => l_return_status,
3225: p_del_rec => p_del_rec);
3226:
3227: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3228: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3229: x_return_status := l_return_status;
3230: End If;
3231: End If;
3232:
3233: Validate_End_Date(
3234: x_return_status => l_return_status,
3235: p_del_rec => p_del_rec);
3236:
3237: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3238: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3239: x_return_status := l_return_status;
3240: End If;
3241: End If;
3234: x_return_status => l_return_status,
3235: p_del_rec => p_del_rec);
3236:
3237: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3238: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3239: x_return_status := l_return_status;
3240: End If;
3241: End If;
3242:
3243: Validate_Need_By_Date(
3244: x_return_status => l_return_status,
3245: p_del_rec => p_del_rec);
3246:
3247: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3248: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3249: x_return_status := l_return_status;
3250: End If;
3251: End If;
3244: x_return_status => l_return_status,
3245: p_del_rec => p_del_rec);
3246:
3247: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3248: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3249: x_return_status := l_return_status;
3250: End If;
3251: End If;
3252:
3253: Validate_Currency_Code(
3254: x_return_status => l_return_status,
3255: p_del_rec => p_del_rec);
3256:
3257: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3258: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3259: x_return_status := l_return_status;
3260: End If;
3261: End If;
3254: x_return_status => l_return_status,
3255: p_del_rec => p_del_rec);
3256:
3257: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3258: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3259: x_return_status := l_return_status;
3260: End If;
3261: End If;
3262:
3263: Validate_UOM_Code(
3264: x_return_status => l_return_status,
3265: p_del_rec => p_del_rec);
3266:
3267: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3268: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3269: x_return_status := l_return_status;
3270: End If;
3271: End If;
3264: x_return_status => l_return_status,
3265: p_del_rec => p_del_rec);
3266:
3267: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3268: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3269: x_return_status := l_return_status;
3270: End If;
3271: End If;
3272:
3273: Validate_Shipping_Request_ID(
3274: x_return_status => l_return_status,
3275: p_del_rec => p_del_rec);
3276:
3277: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3278: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3279: x_return_status := l_return_status;
3280: End If;
3281: End If;
3274: x_return_status => l_return_status,
3275: p_del_rec => p_del_rec);
3276:
3277: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3278: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3279: x_return_status := l_return_status;
3280: End If;
3281: End If;
3282:
3283: Validate_Mps_Transaction_ID(
3284: x_return_status => l_return_status,
3285: p_del_rec => p_del_rec);
3286:
3287: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3288: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3289: x_return_status := l_return_status;
3290: End If;
3291: End If;
3284: x_return_status => l_return_status,
3285: p_del_rec => p_del_rec);
3286:
3287: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3288: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3289: x_return_status := l_return_status;
3290: End If;
3291: End If;
3292:
3293: Validate_Unit_Number(
3294: x_return_status => l_return_status,
3295: p_del_rec => p_del_rec);
3296:
3297: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3298: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3299: x_return_status := l_return_status;
3300: End If;
3301: End If;
3294: x_return_status => l_return_status,
3295: p_del_rec => p_del_rec);
3296:
3297: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3298: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3299: x_return_status := l_return_status;
3300: End If;
3301: End If;
3302:
3303: Validate_Plan_Name(
3304: x_return_status => l_return_status,
3305: p_del_rec => p_del_rec);
3306:
3307: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3308: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3309: x_return_status := l_return_status;
3310: End If;
3311: End If;
3304: x_return_status => l_return_status,
3305: p_del_rec => p_del_rec);
3306:
3307: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3308: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3309: x_return_status := l_return_status;
3310: End If;
3311: End If;
3312:
3313: Validate_Volume_UOM_Code(
3314: x_return_status => l_return_status,
3315: p_del_rec => p_del_rec);
3316:
3317: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3318: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3319: x_return_status := l_return_status;
3320: End If;
3321: End If;
3314: x_return_status => l_return_status,
3315: p_del_rec => p_del_rec);
3316:
3317: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3318: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3319: x_return_status := l_return_status;
3320: End If;
3321: End If;
3322:
3323: Validate_Weight_UOM_Code(
3324: x_return_status => l_return_status,
3325: p_del_rec => p_del_rec);
3326:
3327: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3328: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3329: x_return_status := l_return_status;
3330: End If;
3331: End If;
3324: x_return_status => l_return_status,
3325: p_del_rec => p_del_rec);
3326:
3327: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3328: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3329: x_return_status := l_return_status;
3330: End If;
3331: End If;
3332:
3333: Validate_Exp_Organization_ID(
3334: x_return_status => l_return_status,
3335: p_del_rec => p_del_rec);
3336:
3337: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3338: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3339: x_return_status := l_return_status;
3340: End If;
3341: End If;
3334: x_return_status => l_return_status,
3335: p_del_rec => p_del_rec);
3336:
3337: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3338: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3339: x_return_status := l_return_status;
3340: End If;
3341: End If;
3342:
3343: Validate_Destination_Type_Code(
3344: x_return_status => l_return_status,
3345: p_del_rec => p_del_rec);
3346:
3347: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3348: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3349: x_return_status := l_return_status;
3350: End If;
3351: End If;
3344: x_return_status => l_return_status,
3345: p_del_rec => p_del_rec);
3346:
3347: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3348: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3349: x_return_status := l_return_status;
3350: End If;
3351: End If;
3352:
3353: Validate_Exp_Type(
3354: x_return_status => l_return_status,
3355: p_del_rec => p_del_rec);
3356:
3357: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3358: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3359: x_return_status := l_return_status;
3360: End If;
3361: End If;
3354: x_return_status => l_return_status,
3355: p_del_rec => p_del_rec);
3356:
3357: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3358: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3359: x_return_status := l_return_status;
3360: End If;
3361: End If;
3362:
3363: Validate_Rate_Type(
3364: x_return_status => l_return_status,
3365: p_del_rec => p_del_rec);
3366:
3367: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3368: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3369: x_return_status := l_return_status;
3370: End If;
3371: End If;
3364: x_return_status => l_return_status,
3365: p_del_rec => p_del_rec);
3366:
3367: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3368: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3369: x_return_status := l_return_status;
3370: End If;
3371: End If;
3372:
3373: Validate_Flag_Values(
3374: x_return_status => l_return_status,
3375: p_del_rec => p_del_rec);
3376:
3377: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3378: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3379: x_return_status := l_return_status;
3380: End If;
3381: End If;
3374: x_return_status => l_return_status,
3375: p_del_rec => p_del_rec);
3376:
3377: If l_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3378: If x_return_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3379: x_return_status := l_return_status;
3380: End If;
3381: End If;
3382:
3384:
3385: exception
3386: when OTHERS then
3387: -- store SQL error message on message stack
3388: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
3389: p_msg_name => g_unexpected_error,
3390: p_token1 => g_sqlcode_token,
3391: p_token1_value => sqlcode,
3392: p_token2 => g_sqlerrm_token,
3392: p_token2 => g_sqlerrm_token,
3393: p_token2_value => sqlerrm);
3394:
3395: -- notify caller of an UNEXPETED error
3396: x_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
3397:
3398: -- return status to caller
3399: RETURN(x_return_status);
3400:
3404:
3405: FUNCTION validate_record (
3406: p_del_rec IN del_rec_type
3407: ) RETURN VARCHAR2 IS
3408: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
3409: BEGIN
3410:
3411: RETURN(l_return_status);
3412:
3423: p_del_rec IN del_rec_type) IS
3424:
3425: l_api_version CONSTANT NUMBER := 1;
3426: l_api_name CONSTANT VARCHAR2(30) := 'B_validate_row';
3427: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
3428: l_del_rec del_rec_type := p_del_rec;
3429:
3430: BEGIN
3431: l_return_status := OKE_API.START_ACTIVITY(l_api_name,
3427: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
3428: l_del_rec del_rec_type := p_del_rec;
3429:
3430: BEGIN
3431: l_return_status := OKE_API.START_ACTIVITY(l_api_name,
3432: G_PKG_NAME,
3433: p_init_msg_list,
3434: l_api_version,
3435: p_api_version,
3434: l_api_version,
3435: p_api_version,
3436: '_PVT',
3437: x_return_status);
3438: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3439: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3440: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3441:
3442: RAISE OKE_API.G_EXCEPTION_ERROR;
3435: p_api_version,
3436: '_PVT',
3437: x_return_status);
3438: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3439: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3440: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3441:
3442: RAISE OKE_API.G_EXCEPTION_ERROR;
3443: END IF;
3436: '_PVT',
3437: x_return_status);
3438: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3439: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3440: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3441:
3442: RAISE OKE_API.G_EXCEPTION_ERROR;
3443: END IF;
3444: --- Validate all non-missing attributes (Item Level Validation)
3438: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3439: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3440: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3441:
3442: RAISE OKE_API.G_EXCEPTION_ERROR;
3443: END IF;
3444: --- Validate all non-missing attributes (Item Level Validation)
3445: l_return_status := Validate_Attributes(l_del_rec);
3446: --- If any errors happen abort API
3443: END IF;
3444: --- Validate all non-missing attributes (Item Level Validation)
3445: l_return_status := Validate_Attributes(l_del_rec);
3446: --- If any errors happen abort API
3447: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3448: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3449: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3450: RAISE OKE_API.G_EXCEPTION_ERROR;
3451: END IF;
3444: --- Validate all non-missing attributes (Item Level Validation)
3445: l_return_status := Validate_Attributes(l_del_rec);
3446: --- If any errors happen abort API
3447: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3448: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3449: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3450: RAISE OKE_API.G_EXCEPTION_ERROR;
3451: END IF;
3452: l_return_status := Validate_Record(l_del_rec);
3445: l_return_status := Validate_Attributes(l_del_rec);
3446: --- If any errors happen abort API
3447: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3448: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3449: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3450: RAISE OKE_API.G_EXCEPTION_ERROR;
3451: END IF;
3452: l_return_status := Validate_Record(l_del_rec);
3453:
3446: --- If any errors happen abort API
3447: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3448: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3449: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3450: RAISE OKE_API.G_EXCEPTION_ERROR;
3451: END IF;
3452: l_return_status := Validate_Record(l_del_rec);
3453:
3454: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3450: RAISE OKE_API.G_EXCEPTION_ERROR;
3451: END IF;
3452: l_return_status := Validate_Record(l_del_rec);
3453:
3454: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3455: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3456: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3457: RAISE OKE_API.G_EXCEPTION_ERROR;
3458: END IF;
3451: END IF;
3452: l_return_status := Validate_Record(l_del_rec);
3453:
3454: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3455: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3456: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3457: RAISE OKE_API.G_EXCEPTION_ERROR;
3458: END IF;
3459: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
3452: l_return_status := Validate_Record(l_del_rec);
3453:
3454: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3455: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3456: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3457: RAISE OKE_API.G_EXCEPTION_ERROR;
3458: END IF;
3459: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
3460: EXCEPTION
3453:
3454: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3455: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3456: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3457: RAISE OKE_API.G_EXCEPTION_ERROR;
3458: END IF;
3459: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
3460: EXCEPTION
3461: WHEN OKE_API.G_EXCEPTION_ERROR THEN
3455: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3456: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3457: RAISE OKE_API.G_EXCEPTION_ERROR;
3458: END IF;
3459: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
3460: EXCEPTION
3461: WHEN OKE_API.G_EXCEPTION_ERROR THEN
3462: x_return_status := OKE_API.HANDLE_EXCEPTIONS
3463: (
3457: RAISE OKE_API.G_EXCEPTION_ERROR;
3458: END IF;
3459: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
3460: EXCEPTION
3461: WHEN OKE_API.G_EXCEPTION_ERROR THEN
3462: x_return_status := OKE_API.HANDLE_EXCEPTIONS
3463: (
3464: l_api_name,
3465: G_PKG_NAME,
3458: END IF;
3459: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
3460: EXCEPTION
3461: WHEN OKE_API.G_EXCEPTION_ERROR THEN
3462: x_return_status := OKE_API.HANDLE_EXCEPTIONS
3463: (
3464: l_api_name,
3465: G_PKG_NAME,
3466: 'OKE_API.G_RET_STS_ERROR',
3462: x_return_status := OKE_API.HANDLE_EXCEPTIONS
3463: (
3464: l_api_name,
3465: G_PKG_NAME,
3466: 'OKE_API.G_RET_STS_ERROR',
3467: x_msg_count,
3468: x_msg_data,
3469: '_PVT'
3470: );
3467: x_msg_count,
3468: x_msg_data,
3469: '_PVT'
3470: );
3471: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3472: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
3473: (
3474: l_api_name,
3475: G_PKG_NAME,
3468: x_msg_data,
3469: '_PVT'
3470: );
3471: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3472: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
3473: (
3474: l_api_name,
3475: G_PKG_NAME,
3476: 'OKE_API.G_RET_STS_UNEXP_ERROR',
3472: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
3473: (
3474: l_api_name,
3475: G_PKG_NAME,
3476: 'OKE_API.G_RET_STS_UNEXP_ERROR',
3477: x_msg_count,
3478: x_msg_data,
3479: '_PVT'
3480: );
3478: x_msg_data,
3479: '_PVT'
3480: );
3481: WHEN OTHERS THEN
3482: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
3483: (
3484: l_api_name,
3485: G_PKG_NAME,
3486: 'OTHERS',
3499: p_del_tbl IN del_tbl_type) IS
3500:
3501: l_api_version CONSTANT NUMBER := 1;
3502: l_api_name CONSTANT VARCHAR2(30) := 'TBL_validate_row';
3503: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
3504: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
3505: i NUMBER := 0;
3506: BEGIN
3507: OKE_API.init_msg_list(p_init_msg_list);
3500:
3501: l_api_version CONSTANT NUMBER := 1;
3502: l_api_name CONSTANT VARCHAR2(30) := 'TBL_validate_row';
3503: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
3504: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
3505: i NUMBER := 0;
3506: BEGIN
3507: OKE_API.init_msg_list(p_init_msg_list);
3508: -- Make sure PL/SQL table has records in it before passing
3503: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
3504: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
3505: i NUMBER := 0;
3506: BEGIN
3507: OKE_API.init_msg_list(p_init_msg_list);
3508: -- Make sure PL/SQL table has records in it before passing
3509: IF (p_del_tbl.COUNT > 0) THEN
3510: i := p_del_tbl.FIRST;
3511: LOOP
3517: x_msg_data => x_msg_data,
3518: p_del_rec => p_del_tbl(i));
3519:
3520: -- store the highest degree of error
3521: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3522: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3523: l_overall_status := x_return_status;
3524: End If;
3525: End If;
3518: p_del_rec => p_del_tbl(i));
3519:
3520: -- store the highest degree of error
3521: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3522: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3523: l_overall_status := x_return_status;
3524: End If;
3525: End If;
3526:
3531: x_return_status := l_overall_status;
3532: END IF;
3533:
3534: EXCEPTION
3535: WHEN OKE_API.G_EXCEPTION_ERROR THEN
3536: x_return_status := OKE_API.HANDLE_EXCEPTIONS
3537: (
3538: l_api_name,
3539: G_PKG_NAME,
3532: END IF;
3533:
3534: EXCEPTION
3535: WHEN OKE_API.G_EXCEPTION_ERROR THEN
3536: x_return_status := OKE_API.HANDLE_EXCEPTIONS
3537: (
3538: l_api_name,
3539: G_PKG_NAME,
3540: 'OKE_API.G_RET_STS_ERROR',
3536: x_return_status := OKE_API.HANDLE_EXCEPTIONS
3537: (
3538: l_api_name,
3539: G_PKG_NAME,
3540: 'OKE_API.G_RET_STS_ERROR',
3541: x_msg_count,
3542: x_msg_data,
3543: '_PVT'
3544: );
3541: x_msg_count,
3542: x_msg_data,
3543: '_PVT'
3544: );
3545: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3546: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
3547: (
3548: l_api_name,
3549: G_PKG_NAME,
3542: x_msg_data,
3543: '_PVT'
3544: );
3545: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3546: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
3547: (
3548: l_api_name,
3549: G_PKG_NAME,
3550: 'OKE_API.G_RET_STS_UNEXP_ERROR',
3546: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
3547: (
3548: l_api_name,
3549: G_PKG_NAME,
3550: 'OKE_API.G_RET_STS_UNEXP_ERROR',
3551: x_msg_count,
3552: x_msg_data,
3553: '_PVT'
3554: );
3552: x_msg_data,
3553: '_PVT'
3554: );
3555: WHEN OTHERS THEN
3556: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
3557: (
3558: l_api_name,
3559: G_PKG_NAME,
3560: 'OTHERS',
3576: x_del_rec OUT NOCOPY del_rec_type) IS
3577:
3578: l_api_version CONSTANT NUMBER := 1;
3579: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
3580: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
3581: l_del_rec del_rec_type;
3582: l_def_del_rec del_rec_type;
3583: lx_del_rec del_rec_type;
3584:
3606: FUNCTION Set_Attributes (
3607: p_del_rec IN del_rec_type,
3608: x_del_rec OUT NOCOPY del_rec_type
3609: ) RETURN VARCHAR2 IS
3610: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
3611: cursor l_csr is
3612: select oke_k_deliverables_s.nextval from dual;
3613:
3614: BEGIN
3648:
3649: BEGIN
3650:
3651:
3652: l_return_status := OKE_API.START_ACTIVITY(l_api_name,
3653: G_PKG_NAME,
3654: p_init_msg_list,
3655: l_api_version,
3656: p_api_version,
3656: p_api_version,
3657: '_PVT',
3658: x_return_status);
3659:
3660: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3661: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3662: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3663: RAISE OKE_API.G_EXCEPTION_ERROR;
3664: END IF;
3657: '_PVT',
3658: x_return_status);
3659:
3660: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3661: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3662: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3663: RAISE OKE_API.G_EXCEPTION_ERROR;
3664: END IF;
3665:
3658: x_return_status);
3659:
3660: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3661: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3662: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3663: RAISE OKE_API.G_EXCEPTION_ERROR;
3664: END IF;
3665:
3666:
3659:
3660: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3661: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3662: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3663: RAISE OKE_API.G_EXCEPTION_ERROR;
3664: END IF;
3665:
3666:
3667: l_del_rec := null_out_defaults(p_del_rec);
3673: l_del_rec, -- IN
3674: l_def_del_rec); -- OUT
3675:
3676: --- If any errors happen abort API
3677: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3678: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3679: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3680: RAISE OKE_API.G_EXCEPTION_ERROR;
3681: END IF;
3674: l_def_del_rec); -- OUT
3675:
3676: --- If any errors happen abort API
3677: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3678: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3679: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3680: RAISE OKE_API.G_EXCEPTION_ERROR;
3681: END IF;
3682:
3675:
3676: --- If any errors happen abort API
3677: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3678: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3679: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3680: RAISE OKE_API.G_EXCEPTION_ERROR;
3681: END IF;
3682:
3683:
3676: --- If any errors happen abort API
3677: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3678: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3679: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3680: RAISE OKE_API.G_EXCEPTION_ERROR;
3681: END IF;
3682:
3683:
3684:
3681: END IF;
3682:
3683:
3684:
3685: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3686: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3687: END IF;
3688:
3689: l_def_del_rec := fill_who_columns(l_def_del_rec);
3682:
3683:
3684:
3685: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3686: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3687: END IF;
3688:
3689: l_def_del_rec := fill_who_columns(l_def_del_rec);
3690:
3693: /* --- Validate all non-missing attributes (Item Level Validation)
3694: l_return_status := Validate_Attributes(l_def_del_rec);
3695:
3696: --- If any errors happen abort API
3697: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3698: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3699:
3700: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3701: RAISE OKE_API.G_EXCEPTION_ERROR;
3694: l_return_status := Validate_Attributes(l_def_del_rec);
3695:
3696: --- If any errors happen abort API
3697: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3698: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3699:
3700: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3701: RAISE OKE_API.G_EXCEPTION_ERROR;
3702: END IF;
3696: --- If any errors happen abort API
3697: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3698: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3699:
3700: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3701: RAISE OKE_API.G_EXCEPTION_ERROR;
3702: END IF;
3703:
3704:
3697: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3698: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3699:
3700: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3701: RAISE OKE_API.G_EXCEPTION_ERROR;
3702: END IF;
3703:
3704:
3705:
3704:
3705:
3706: l_return_status := Validate_Record(l_def_del_rec);
3707:
3708: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3709: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3710: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3711: RAISE OKE_API.G_EXCEPTION_ERROR;
3712: END IF; */
3705:
3706: l_return_status := Validate_Record(l_def_del_rec);
3707:
3708: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3709: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3710: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3711: RAISE OKE_API.G_EXCEPTION_ERROR;
3712: END IF; */
3713:
3706: l_return_status := Validate_Record(l_def_del_rec);
3707:
3708: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3709: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3710: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3711: RAISE OKE_API.G_EXCEPTION_ERROR;
3712: END IF; */
3713:
3714: -- get deliverable number
3707:
3708: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
3709: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3710: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
3711: RAISE OKE_API.G_EXCEPTION_ERROR;
3712: END IF; */
3713:
3714: -- get deliverable number
3715:
3970:
3971:
3972: -- Set OUT values
3973: x_del_rec := l_def_del_rec;
3974: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
3975:
3976:
3977: EXCEPTION
3978: WHEN OKE_API.G_EXCEPTION_ERROR THEN
3974: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
3975:
3976:
3977: EXCEPTION
3978: WHEN OKE_API.G_EXCEPTION_ERROR THEN
3979: x_return_status := OKE_API.HANDLE_EXCEPTIONS
3980: (
3981: l_api_name,
3982: G_PKG_NAME,
3975:
3976:
3977: EXCEPTION
3978: WHEN OKE_API.G_EXCEPTION_ERROR THEN
3979: x_return_status := OKE_API.HANDLE_EXCEPTIONS
3980: (
3981: l_api_name,
3982: G_PKG_NAME,
3983: 'OKE_API.G_RET_STS_ERROR',
3979: x_return_status := OKE_API.HANDLE_EXCEPTIONS
3980: (
3981: l_api_name,
3982: G_PKG_NAME,
3983: 'OKE_API.G_RET_STS_ERROR',
3984: x_msg_count,
3985: x_msg_data,
3986: '_PVT'
3987: );
3984: x_msg_count,
3985: x_msg_data,
3986: '_PVT'
3987: );
3988: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3989: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
3990: (
3991: l_api_name,
3992: G_PKG_NAME,
3985: x_msg_data,
3986: '_PVT'
3987: );
3988: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3989: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
3990: (
3991: l_api_name,
3992: G_PKG_NAME,
3993: 'OKE_API.G_RET_STS_UNEXP_ERROR',
3989: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
3990: (
3991: l_api_name,
3992: G_PKG_NAME,
3993: 'OKE_API.G_RET_STS_UNEXP_ERROR',
3994: x_msg_count,
3995: x_msg_data,
3996: '_PVT'
3997: );
3995: x_msg_data,
3996: '_PVT'
3997: );
3998: WHEN OTHERS THEN
3999: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
4000: (
4001: l_api_name,
4002: G_PKG_NAME,
4003: 'OTHERS',
4017: x_del_tbl OUT NOCOPY del_tbl_type) IS
4018:
4019: l_api_version CONSTANT NUMBER := 1;
4020: l_api_name CONSTANT VARCHAR2(30) := 'TBL_insert_row';
4021: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
4022: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
4023: i NUMBER := 0;
4024: BEGIN
4025:
4018:
4019: l_api_version CONSTANT NUMBER := 1;
4020: l_api_name CONSTANT VARCHAR2(30) := 'TBL_insert_row';
4021: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
4022: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
4023: i NUMBER := 0;
4024: BEGIN
4025:
4026: OKE_API.init_msg_list(p_init_msg_list);
4022: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
4023: i NUMBER := 0;
4024: BEGIN
4025:
4026: OKE_API.init_msg_list(p_init_msg_list);
4027: -- Make sure PL/SQL table has records in it before passing
4028: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4029: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'called pvt insert_row');
4030: END IF;
4041: p_del_rec => p_del_tbl(i),
4042: x_del_rec => x_del_tbl(i));
4043:
4044: -- store the highest degree of error
4045: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
4046: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
4047: l_overall_status := x_return_status;
4048: End If;
4049: End If;
4042: x_del_rec => x_del_tbl(i));
4043:
4044: -- store the highest degree of error
4045: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
4046: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
4047: l_overall_status := x_return_status;
4048: End If;
4049: End If;
4050:
4056: x_return_status := l_overall_status;
4057: END IF;
4058:
4059: EXCEPTION
4060: WHEN OKE_API.G_EXCEPTION_ERROR THEN
4061: x_return_status := OKE_API.HANDLE_EXCEPTIONS
4062: (
4063: l_api_name,
4064: G_PKG_NAME,
4057: END IF;
4058:
4059: EXCEPTION
4060: WHEN OKE_API.G_EXCEPTION_ERROR THEN
4061: x_return_status := OKE_API.HANDLE_EXCEPTIONS
4062: (
4063: l_api_name,
4064: G_PKG_NAME,
4065: 'OKE_API.G_RET_STS_ERROR',
4061: x_return_status := OKE_API.HANDLE_EXCEPTIONS
4062: (
4063: l_api_name,
4064: G_PKG_NAME,
4065: 'OKE_API.G_RET_STS_ERROR',
4066: x_msg_count,
4067: x_msg_data,
4068: '_PVT'
4069: );
4066: x_msg_count,
4067: x_msg_data,
4068: '_PVT'
4069: );
4070: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4071: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
4072: (
4073: l_api_name,
4074: G_PKG_NAME,
4067: x_msg_data,
4068: '_PVT'
4069: );
4070: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4071: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
4072: (
4073: l_api_name,
4074: G_PKG_NAME,
4075: 'OKE_API.G_RET_STS_UNEXP_ERROR',
4071: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
4072: (
4073: l_api_name,
4074: G_PKG_NAME,
4075: 'OKE_API.G_RET_STS_UNEXP_ERROR',
4076: x_msg_count,
4077: x_msg_data,
4078: '_PVT'
4079: );
4077: x_msg_data,
4078: '_PVT'
4079: );
4080: WHEN OTHERS THEN
4081: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
4082: (
4083: l_api_name,
4084: G_PKG_NAME,
4085: 'OTHERS',
4101: x_del_rec OUT NOCOPY del_rec_type) IS
4102:
4103: l_api_version CONSTANT NUMBER := 1.0;
4104: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
4105: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
4106: l_del_rec del_rec_type := p_del_rec;
4107: l_def_del_rec del_rec_type;
4108: lx_del_rec del_rec_type;
4109:
4132: ) RETURN VARCHAR2 IS
4133:
4134: l_del_rec del_rec_type;
4135: l_row_notfound BOOLEAN := TRUE;
4136: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
4137:
4138: BEGIN
4139:
4140:
4144: -- Get current database values
4145: l_del_rec := get_rec(p_del_rec, l_row_notfound);
4146:
4147: IF (l_row_notfound) THEN
4148: l_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
4149: END IF;
4150:
4151:
4152: IF x_del_rec.DELIVERABLE_NUM = OKE_API.G_MISS_CHAR THEN
4148: l_return_status := OKE_API.G_RET_STS_UNEXP_ERROR;
4149: END IF;
4150:
4151:
4152: IF x_del_rec.DELIVERABLE_NUM = OKE_API.G_MISS_CHAR THEN
4153: x_del_rec.DELIVERABLE_NUM := l_del_rec.DELIVERABLE_NUM;
4154: END IF;
4155:
4156: IF x_del_rec.PROJECT_ID = OKE_API.G_MISS_NUM THEN
4152: IF x_del_rec.DELIVERABLE_NUM = OKE_API.G_MISS_CHAR THEN
4153: x_del_rec.DELIVERABLE_NUM := l_del_rec.DELIVERABLE_NUM;
4154: END IF;
4155:
4156: IF x_del_rec.PROJECT_ID = OKE_API.G_MISS_NUM THEN
4157: x_del_rec.PROJECT_ID := l_del_rec.PROJECT_ID;
4158: END IF;
4159:
4160: IF x_del_rec.TASK_ID = OKE_API.G_MISS_NUM THEN
4156: IF x_del_rec.PROJECT_ID = OKE_API.G_MISS_NUM THEN
4157: x_del_rec.PROJECT_ID := l_del_rec.PROJECT_ID;
4158: END IF;
4159:
4160: IF x_del_rec.TASK_ID = OKE_API.G_MISS_NUM THEN
4161: x_del_rec.TASK_ID := l_del_rec.TASK_ID;
4162: END IF;
4163:
4164: IF x_del_rec.ITEM_ID = OKE_API.G_MISS_NUM THEN
4160: IF x_del_rec.TASK_ID = OKE_API.G_MISS_NUM THEN
4161: x_del_rec.TASK_ID := l_del_rec.TASK_ID;
4162: END IF;
4163:
4164: IF x_del_rec.ITEM_ID = OKE_API.G_MISS_NUM THEN
4165: x_del_rec.ITEM_ID := l_del_rec.ITEM_ID;
4166: END IF;
4167:
4168: IF x_del_rec.K_HEADER_ID = OKE_API.G_MISS_NUM THEN
4164: IF x_del_rec.ITEM_ID = OKE_API.G_MISS_NUM THEN
4165: x_del_rec.ITEM_ID := l_del_rec.ITEM_ID;
4166: END IF;
4167:
4168: IF x_del_rec.K_HEADER_ID = OKE_API.G_MISS_NUM THEN
4169: x_del_rec.K_HEADER_ID := l_del_rec.K_HEADER_ID;
4170: END IF;
4171:
4172: IF x_del_rec.K_LINE_ID = OKE_API.G_MISS_NUM THEN
4168: IF x_del_rec.K_HEADER_ID = OKE_API.G_MISS_NUM THEN
4169: x_del_rec.K_HEADER_ID := l_del_rec.K_HEADER_ID;
4170: END IF;
4171:
4172: IF x_del_rec.K_LINE_ID = OKE_API.G_MISS_NUM THEN
4173: x_del_rec.K_LINE_ID := l_del_rec.K_LINE_ID;
4174: END IF;
4175:
4176: IF x_del_rec.DELIVERY_DATE = OKE_API.G_MISS_DATE THEN
4172: IF x_del_rec.K_LINE_ID = OKE_API.G_MISS_NUM THEN
4173: x_del_rec.K_LINE_ID := l_del_rec.K_LINE_ID;
4174: END IF;
4175:
4176: IF x_del_rec.DELIVERY_DATE = OKE_API.G_MISS_DATE THEN
4177: x_del_rec.DELIVERY_DATE := l_del_rec.DELIVERY_DATE;
4178: END IF;
4179:
4180: IF x_del_rec.STATUS_CODE = OKE_API.G_MISS_CHAR THEN
4176: IF x_del_rec.DELIVERY_DATE = OKE_API.G_MISS_DATE THEN
4177: x_del_rec.DELIVERY_DATE := l_del_rec.DELIVERY_DATE;
4178: END IF;
4179:
4180: IF x_del_rec.STATUS_CODE = OKE_API.G_MISS_CHAR THEN
4181: x_del_rec.STATUS_CODE := l_del_rec.STATUS_CODE;
4182: END IF;
4183:
4184: IF x_del_rec.PARENT_DELIVERABLE_ID = OKE_API.G_MISS_NUM THEN
4180: IF x_del_rec.STATUS_CODE = OKE_API.G_MISS_CHAR THEN
4181: x_del_rec.STATUS_CODE := l_del_rec.STATUS_CODE;
4182: END IF;
4183:
4184: IF x_del_rec.PARENT_DELIVERABLE_ID = OKE_API.G_MISS_NUM THEN
4185: x_del_rec.PARENT_DELIVERABLE_ID := l_del_rec.PARENT_DELIVERABLE_ID;
4186: END IF;
4187:
4188: IF x_del_rec.SHIP_TO_ORG_ID = OKE_API.G_MISS_NUM THEN
4184: IF x_del_rec.PARENT_DELIVERABLE_ID = OKE_API.G_MISS_NUM THEN
4185: x_del_rec.PARENT_DELIVERABLE_ID := l_del_rec.PARENT_DELIVERABLE_ID;
4186: END IF;
4187:
4188: IF x_del_rec.SHIP_TO_ORG_ID = OKE_API.G_MISS_NUM THEN
4189: x_del_rec.SHIP_TO_ORG_ID := l_del_rec.SHIP_TO_ORG_ID;
4190: END IF;
4191:
4192: IF x_del_rec.SHIP_TO_LOCATION_ID = OKE_API.G_MISS_NUM THEN
4188: IF x_del_rec.SHIP_TO_ORG_ID = OKE_API.G_MISS_NUM THEN
4189: x_del_rec.SHIP_TO_ORG_ID := l_del_rec.SHIP_TO_ORG_ID;
4190: END IF;
4191:
4192: IF x_del_rec.SHIP_TO_LOCATION_ID = OKE_API.G_MISS_NUM THEN
4193: x_del_rec.SHIP_TO_LOCATION_ID := l_del_rec.SHIP_TO_LOCATION_ID;
4194: END IF;
4195:
4196: IF x_del_rec.SHIP_FROM_ORG_ID = OKE_API.G_MISS_NUM THEN
4192: IF x_del_rec.SHIP_TO_LOCATION_ID = OKE_API.G_MISS_NUM THEN
4193: x_del_rec.SHIP_TO_LOCATION_ID := l_del_rec.SHIP_TO_LOCATION_ID;
4194: END IF;
4195:
4196: IF x_del_rec.SHIP_FROM_ORG_ID = OKE_API.G_MISS_NUM THEN
4197: x_del_rec.SHIP_FROM_ORG_ID := l_del_rec.SHIP_FROM_ORG_ID;
4198: END IF;
4199:
4200: IF x_del_rec.SHIP_FROM_LOCATION_ID = OKE_API.G_MISS_NUM THEN
4196: IF x_del_rec.SHIP_FROM_ORG_ID = OKE_API.G_MISS_NUM THEN
4197: x_del_rec.SHIP_FROM_ORG_ID := l_del_rec.SHIP_FROM_ORG_ID;
4198: END IF;
4199:
4200: IF x_del_rec.SHIP_FROM_LOCATION_ID = OKE_API.G_MISS_NUM THEN
4201: x_del_rec.SHIP_FROM_LOCATION_ID := l_del_rec.SHIP_FROM_LOCATION_ID;
4202: END IF;
4203:
4204: IF x_del_rec.INVENTORY_ORG_ID = OKE_API.G_MISS_NUM THEN
4200: IF x_del_rec.SHIP_FROM_LOCATION_ID = OKE_API.G_MISS_NUM THEN
4201: x_del_rec.SHIP_FROM_LOCATION_ID := l_del_rec.SHIP_FROM_LOCATION_ID;
4202: END IF;
4203:
4204: IF x_del_rec.INVENTORY_ORG_ID = OKE_API.G_MISS_NUM THEN
4205: x_del_rec.INVENTORY_ORG_ID := l_del_rec.INVENTORY_ORG_ID;
4206: END IF;
4207:
4208: IF x_del_rec.DIRECTION = OKE_API.G_MISS_CHAR THEN
4204: IF x_del_rec.INVENTORY_ORG_ID = OKE_API.G_MISS_NUM THEN
4205: x_del_rec.INVENTORY_ORG_ID := l_del_rec.INVENTORY_ORG_ID;
4206: END IF;
4207:
4208: IF x_del_rec.DIRECTION = OKE_API.G_MISS_CHAR THEN
4209: x_del_rec.DIRECTION := l_del_rec.DIRECTION;
4210: END IF;
4211:
4212: IF x_del_rec.DEFAULTED_FLAG = OKE_API.G_MISS_CHAR THEN
4208: IF x_del_rec.DIRECTION = OKE_API.G_MISS_CHAR THEN
4209: x_del_rec.DIRECTION := l_del_rec.DIRECTION;
4210: END IF;
4211:
4212: IF x_del_rec.DEFAULTED_FLAG = OKE_API.G_MISS_CHAR THEN
4213: x_del_rec.DEFAULTED_FLAG := l_del_rec.DEFAULTED_FLAG;
4214: END IF;
4215:
4216: IF x_del_rec.IN_PROCESS_FLAG = OKE_API.G_MISS_CHAR THEN
4212: IF x_del_rec.DEFAULTED_FLAG = OKE_API.G_MISS_CHAR THEN
4213: x_del_rec.DEFAULTED_FLAG := l_del_rec.DEFAULTED_FLAG;
4214: END IF;
4215:
4216: IF x_del_rec.IN_PROCESS_FLAG = OKE_API.G_MISS_CHAR THEN
4217: x_del_rec.IN_PROCESS_FLAG := l_del_rec.IN_PROCESS_FLAG;
4218: END IF;
4219:
4220: IF x_del_rec.WF_ITEM_KEY = OKE_API.G_MISS_CHAR THEN
4216: IF x_del_rec.IN_PROCESS_FLAG = OKE_API.G_MISS_CHAR THEN
4217: x_del_rec.IN_PROCESS_FLAG := l_del_rec.IN_PROCESS_FLAG;
4218: END IF;
4219:
4220: IF x_del_rec.WF_ITEM_KEY = OKE_API.G_MISS_CHAR THEN
4221: x_del_rec.WF_ITEM_KEY := l_del_rec.WF_ITEM_KEY;
4222: END IF;
4223:
4224: IF x_del_rec.SUB_REF_ID = OKE_API.G_MISS_NUM THEN
4220: IF x_del_rec.WF_ITEM_KEY = OKE_API.G_MISS_CHAR THEN
4221: x_del_rec.WF_ITEM_KEY := l_del_rec.WF_ITEM_KEY;
4222: END IF;
4223:
4224: IF x_del_rec.SUB_REF_ID = OKE_API.G_MISS_NUM THEN
4225: x_del_rec.SUB_REF_ID := l_del_rec.SUB_REF_ID;
4226: END IF;
4227:
4228: IF x_del_rec.START_DATE = OKE_API.G_MISS_DATE THEN
4224: IF x_del_rec.SUB_REF_ID = OKE_API.G_MISS_NUM THEN
4225: x_del_rec.SUB_REF_ID := l_del_rec.SUB_REF_ID;
4226: END IF;
4227:
4228: IF x_del_rec.START_DATE = OKE_API.G_MISS_DATE THEN
4229: x_del_rec.START_DATE := l_del_rec.START_DATE;
4230: END IF;
4231:
4232: IF x_del_rec.END_DATE = OKE_API.G_MISS_DATE THEN
4228: IF x_del_rec.START_DATE = OKE_API.G_MISS_DATE THEN
4229: x_del_rec.START_DATE := l_del_rec.START_DATE;
4230: END IF;
4231:
4232: IF x_del_rec.END_DATE = OKE_API.G_MISS_DATE THEN
4233: x_del_rec.END_DATE := l_del_rec.END_DATE;
4234: END IF;
4235:
4236: IF x_del_rec.PRIORITY_CODE = OKE_API.G_MISS_CHAR THEN
4232: IF x_del_rec.END_DATE = OKE_API.G_MISS_DATE THEN
4233: x_del_rec.END_DATE := l_del_rec.END_DATE;
4234: END IF;
4235:
4236: IF x_del_rec.PRIORITY_CODE = OKE_API.G_MISS_CHAR THEN
4237: x_del_rec.PRIORITY_CODE := l_del_rec.PRIORITY_CODE;
4238: END IF;
4239:
4240: IF x_del_rec.CURRENCY_CODE = OKE_API.G_MISS_CHAR THEN
4236: IF x_del_rec.PRIORITY_CODE = OKE_API.G_MISS_CHAR THEN
4237: x_del_rec.PRIORITY_CODE := l_del_rec.PRIORITY_CODE;
4238: END IF;
4239:
4240: IF x_del_rec.CURRENCY_CODE = OKE_API.G_MISS_CHAR THEN
4241: x_del_rec.CURRENCY_CODE := l_del_rec.CURRENCY_CODE;
4242: END IF;
4243:
4244: IF x_del_rec.UNIT_PRICE = OKE_API.G_MISS_NUM THEN
4240: IF x_del_rec.CURRENCY_CODE = OKE_API.G_MISS_CHAR THEN
4241: x_del_rec.CURRENCY_CODE := l_del_rec.CURRENCY_CODE;
4242: END IF;
4243:
4244: IF x_del_rec.UNIT_PRICE = OKE_API.G_MISS_NUM THEN
4245: x_del_rec.UNIT_PRICE := l_del_rec.UNIT_PRICE;
4246: END IF;
4247:
4248: IF x_del_rec.UOM_CODE = OKE_API.G_MISS_CHAR THEN
4244: IF x_del_rec.UNIT_PRICE = OKE_API.G_MISS_NUM THEN
4245: x_del_rec.UNIT_PRICE := l_del_rec.UNIT_PRICE;
4246: END IF;
4247:
4248: IF x_del_rec.UOM_CODE = OKE_API.G_MISS_CHAR THEN
4249: x_del_rec.UOM_CODE := l_del_rec.UOM_CODE;
4250: END IF;
4251:
4252: IF x_del_rec.QUANTITY = OKE_API.G_MISS_NUM THEN
4248: IF x_del_rec.UOM_CODE = OKE_API.G_MISS_CHAR THEN
4249: x_del_rec.UOM_CODE := l_del_rec.UOM_CODE;
4250: END IF;
4251:
4252: IF x_del_rec.QUANTITY = OKE_API.G_MISS_NUM THEN
4253: x_del_rec.QUANTITY := l_del_rec.QUANTITY;
4254: END IF;
4255:
4256: IF x_del_rec.COUNTRY_OF_ORIGIN_CODE = OKE_API.G_MISS_CHAR THEN
4252: IF x_del_rec.QUANTITY = OKE_API.G_MISS_NUM THEN
4253: x_del_rec.QUANTITY := l_del_rec.QUANTITY;
4254: END IF;
4255:
4256: IF x_del_rec.COUNTRY_OF_ORIGIN_CODE = OKE_API.G_MISS_CHAR THEN
4257: x_del_rec.COUNTRY_OF_ORIGIN_CODE := l_del_rec.COUNTRY_OF_ORIGIN_CODE;
4258: END IF;
4259:
4260: IF x_del_rec.SUBCONTRACTED_FLAG = OKE_API.G_MISS_CHAR THEN
4256: IF x_del_rec.COUNTRY_OF_ORIGIN_CODE = OKE_API.G_MISS_CHAR THEN
4257: x_del_rec.COUNTRY_OF_ORIGIN_CODE := l_del_rec.COUNTRY_OF_ORIGIN_CODE;
4258: END IF;
4259:
4260: IF x_del_rec.SUBCONTRACTED_FLAG = OKE_API.G_MISS_CHAR THEN
4261: x_del_rec.SUBCONTRACTED_FLAG := l_del_rec.SUBCONTRACTED_FLAG;
4262: END IF;
4263:
4264: IF x_del_rec.DEPENDENCY_FLAG = OKE_API.G_MISS_CHAR THEN
4260: IF x_del_rec.SUBCONTRACTED_FLAG = OKE_API.G_MISS_CHAR THEN
4261: x_del_rec.SUBCONTRACTED_FLAG := l_del_rec.SUBCONTRACTED_FLAG;
4262: END IF;
4263:
4264: IF x_del_rec.DEPENDENCY_FLAG = OKE_API.G_MISS_CHAR THEN
4265: x_del_rec.DEPENDENCY_FLAG := l_del_rec.DEPENDENCY_FLAG;
4266: END IF;
4267:
4268:
4266: END IF;
4267:
4268:
4269:
4270: IF x_del_rec.BILLABLE_FLAG = OKE_API.G_MISS_CHAR THEN
4271: x_del_rec.BILLABLE_FLAG := l_del_rec.BILLABLE_FLAG;
4272: END IF;
4273:
4274: IF x_del_rec.BILLING_EVENT_ID = OKE_API.G_MISS_NUM THEN
4270: IF x_del_rec.BILLABLE_FLAG = OKE_API.G_MISS_CHAR THEN
4271: x_del_rec.BILLABLE_FLAG := l_del_rec.BILLABLE_FLAG;
4272: END IF;
4273:
4274: IF x_del_rec.BILLING_EVENT_ID = OKE_API.G_MISS_NUM THEN
4275: x_del_rec.BILLING_EVENT_ID := l_del_rec.BILLING_EVENT_ID;
4276: END IF;
4277:
4278: IF x_del_rec.DROP_SHIPPED_FLAG = OKE_API.G_MISS_CHAR THEN
4274: IF x_del_rec.BILLING_EVENT_ID = OKE_API.G_MISS_NUM THEN
4275: x_del_rec.BILLING_EVENT_ID := l_del_rec.BILLING_EVENT_ID;
4276: END IF;
4277:
4278: IF x_del_rec.DROP_SHIPPED_FLAG = OKE_API.G_MISS_CHAR THEN
4279: x_del_rec.DROP_SHIPPED_FLAG := l_del_rec.DROP_SHIPPED_FLAG;
4280: END IF;
4281:
4282: IF x_del_rec.COMPLETED_FLAG = OKE_API.G_MISS_CHAR THEN
4278: IF x_del_rec.DROP_SHIPPED_FLAG = OKE_API.G_MISS_CHAR THEN
4279: x_del_rec.DROP_SHIPPED_FLAG := l_del_rec.DROP_SHIPPED_FLAG;
4280: END IF;
4281:
4282: IF x_del_rec.COMPLETED_FLAG = OKE_API.G_MISS_CHAR THEN
4283: x_del_rec.COMPLETED_FLAG := l_del_rec.COMPLETED_FLAG;
4284: END IF;
4285:
4286: IF x_del_rec.AVAILABLE_FOR_SHIP_FLAG = OKE_API.G_MISS_CHAR THEN
4282: IF x_del_rec.COMPLETED_FLAG = OKE_API.G_MISS_CHAR THEN
4283: x_del_rec.COMPLETED_FLAG := l_del_rec.COMPLETED_FLAG;
4284: END IF;
4285:
4286: IF x_del_rec.AVAILABLE_FOR_SHIP_FLAG = OKE_API.G_MISS_CHAR THEN
4287: x_del_rec.AVAILABLE_FOR_SHIP_FLAG := l_del_rec.AVAILABLE_FOR_SHIP_FLAG;
4288: END IF;
4289:
4290: IF x_del_rec.CREATE_DEMAND = OKE_API.G_MISS_CHAR THEN
4286: IF x_del_rec.AVAILABLE_FOR_SHIP_FLAG = OKE_API.G_MISS_CHAR THEN
4287: x_del_rec.AVAILABLE_FOR_SHIP_FLAG := l_del_rec.AVAILABLE_FOR_SHIP_FLAG;
4288: END IF;
4289:
4290: IF x_del_rec.CREATE_DEMAND = OKE_API.G_MISS_CHAR THEN
4291: x_del_rec.CREATE_DEMAND := l_del_rec.CREATE_DEMAND;
4292: END IF;
4293:
4294: IF x_del_rec.READY_TO_BILL = OKE_API.G_MISS_CHAR THEN
4290: IF x_del_rec.CREATE_DEMAND = OKE_API.G_MISS_CHAR THEN
4291: x_del_rec.CREATE_DEMAND := l_del_rec.CREATE_DEMAND;
4292: END IF;
4293:
4294: IF x_del_rec.READY_TO_BILL = OKE_API.G_MISS_CHAR THEN
4295: x_del_rec.READY_TO_BILL := l_del_rec.READY_TO_BILL;
4296: END IF;
4297:
4298: IF x_del_rec.NEED_BY_DATE = OKE_API.G_MISS_DATE THEN
4294: IF x_del_rec.READY_TO_BILL = OKE_API.G_MISS_CHAR THEN
4295: x_del_rec.READY_TO_BILL := l_del_rec.READY_TO_BILL;
4296: END IF;
4297:
4298: IF x_del_rec.NEED_BY_DATE = OKE_API.G_MISS_DATE THEN
4299: x_del_rec.NEED_BY_DATE := l_del_rec.NEED_BY_DATE;
4300: END IF;
4301:
4302: IF x_del_rec.READY_TO_PROCURE = OKE_API.G_MISS_CHAR THEN
4298: IF x_del_rec.NEED_BY_DATE = OKE_API.G_MISS_DATE THEN
4299: x_del_rec.NEED_BY_DATE := l_del_rec.NEED_BY_DATE;
4300: END IF;
4301:
4302: IF x_del_rec.READY_TO_PROCURE = OKE_API.G_MISS_CHAR THEN
4303: x_del_rec.READY_TO_PROCURE := l_del_rec.READY_TO_PROCURE;
4304: END IF;
4305:
4306: IF x_del_rec.MPS_TRANSACTION_ID = OKE_API.G_MISS_NUM THEN
4302: IF x_del_rec.READY_TO_PROCURE = OKE_API.G_MISS_CHAR THEN
4303: x_del_rec.READY_TO_PROCURE := l_del_rec.READY_TO_PROCURE;
4304: END IF;
4305:
4306: IF x_del_rec.MPS_TRANSACTION_ID = OKE_API.G_MISS_NUM THEN
4307: x_del_rec.MPS_TRANSACTION_ID := l_del_rec.MPS_TRANSACTION_ID;
4308: END IF;
4309:
4310: IF x_del_rec.PO_REF_1 = OKE_API.G_MISS_NUM THEN
4306: IF x_del_rec.MPS_TRANSACTION_ID = OKE_API.G_MISS_NUM THEN
4307: x_del_rec.MPS_TRANSACTION_ID := l_del_rec.MPS_TRANSACTION_ID;
4308: END IF;
4309:
4310: IF x_del_rec.PO_REF_1 = OKE_API.G_MISS_NUM THEN
4311: x_del_rec.PO_REF_1 := l_del_rec.PO_REF_1;
4312: END IF;
4313:
4314: IF x_del_rec.PO_REF_2 = OKE_API.G_MISS_NUM THEN
4310: IF x_del_rec.PO_REF_1 = OKE_API.G_MISS_NUM THEN
4311: x_del_rec.PO_REF_1 := l_del_rec.PO_REF_1;
4312: END IF;
4313:
4314: IF x_del_rec.PO_REF_2 = OKE_API.G_MISS_NUM THEN
4315: x_del_rec.PO_REF_2 := l_del_rec.PO_REF_2;
4316: END IF;
4317:
4318: IF x_del_rec.PO_REF_3 = OKE_API.G_MISS_NUM THEN
4314: IF x_del_rec.PO_REF_2 = OKE_API.G_MISS_NUM THEN
4315: x_del_rec.PO_REF_2 := l_del_rec.PO_REF_2;
4316: END IF;
4317:
4318: IF x_del_rec.PO_REF_3 = OKE_API.G_MISS_NUM THEN
4319: x_del_rec.PO_REF_3 := l_del_rec.PO_REF_3;
4320: END IF;
4321:
4322: IF x_del_rec.SHIPPING_REQUEST_ID = OKE_API.G_MISS_NUM THEN
4318: IF x_del_rec.PO_REF_3 = OKE_API.G_MISS_NUM THEN
4319: x_del_rec.PO_REF_3 := l_del_rec.PO_REF_3;
4320: END IF;
4321:
4322: IF x_del_rec.SHIPPING_REQUEST_ID = OKE_API.G_MISS_NUM THEN
4323: x_del_rec.SHIPPING_REQUEST_ID := l_del_rec.SHIPPING_REQUEST_ID;
4324: END IF;
4325:
4326: IF x_del_rec.UNIT_NUMBER = OKE_API.G_MISS_CHAR THEN
4322: IF x_del_rec.SHIPPING_REQUEST_ID = OKE_API.G_MISS_NUM THEN
4323: x_del_rec.SHIPPING_REQUEST_ID := l_del_rec.SHIPPING_REQUEST_ID;
4324: END IF;
4325:
4326: IF x_del_rec.UNIT_NUMBER = OKE_API.G_MISS_CHAR THEN
4327: x_del_rec.UNIT_NUMBER := l_del_rec.UNIT_NUMBER;
4328: END IF;
4329:
4330: IF x_del_rec.NDB_SCHEDULE_DESIGNATOR = OKE_API.G_MISS_CHAR THEN
4326: IF x_del_rec.UNIT_NUMBER = OKE_API.G_MISS_CHAR THEN
4327: x_del_rec.UNIT_NUMBER := l_del_rec.UNIT_NUMBER;
4328: END IF;
4329:
4330: IF x_del_rec.NDB_SCHEDULE_DESIGNATOR = OKE_API.G_MISS_CHAR THEN
4331: x_del_rec.NDB_SCHEDULE_DESIGNATOR := l_del_rec.NDB_SCHEDULE_DESIGNATOR;
4332: END IF;
4333:
4334: IF x_del_rec.SHIPPABLE_FLAG = OKE_API.G_MISS_CHAR THEN
4330: IF x_del_rec.NDB_SCHEDULE_DESIGNATOR = OKE_API.G_MISS_CHAR THEN
4331: x_del_rec.NDB_SCHEDULE_DESIGNATOR := l_del_rec.NDB_SCHEDULE_DESIGNATOR;
4332: END IF;
4333:
4334: IF x_del_rec.SHIPPABLE_FLAG = OKE_API.G_MISS_CHAR THEN
4335: x_del_rec.SHIPPABLE_FLAG := l_del_rec.SHIPPABLE_FLAG;
4336: END IF;
4337:
4338: IF x_del_rec.CFE_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
4334: IF x_del_rec.SHIPPABLE_FLAG = OKE_API.G_MISS_CHAR THEN
4335: x_del_rec.SHIPPABLE_FLAG := l_del_rec.SHIPPABLE_FLAG;
4336: END IF;
4337:
4338: IF x_del_rec.CFE_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
4339: x_del_rec.CFE_REQ_FLAG := l_del_rec.CFE_REQ_FLAG;
4340: END IF;
4341:
4342: IF x_del_rec.INSPECTION_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
4338: IF x_del_rec.CFE_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
4339: x_del_rec.CFE_REQ_FLAG := l_del_rec.CFE_REQ_FLAG;
4340: END IF;
4341:
4342: IF x_del_rec.INSPECTION_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
4343: x_del_rec.INSPECTION_REQ_FLAG := l_del_rec.INSPECTION_REQ_FLAG;
4344: END IF;
4345:
4346: IF x_del_rec.INTERIM_RPT_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
4342: IF x_del_rec.INSPECTION_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
4343: x_del_rec.INSPECTION_REQ_FLAG := l_del_rec.INSPECTION_REQ_FLAG;
4344: END IF;
4345:
4346: IF x_del_rec.INTERIM_RPT_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
4347: x_del_rec.INTERIM_RPT_REQ_FLAG := l_del_rec.INTERIM_RPT_REQ_FLAG;
4348: END IF;
4349:
4350: IF x_del_rec.LOT_APPLIES_FLAG = OKE_API.G_MISS_CHAR THEN
4346: IF x_del_rec.INTERIM_RPT_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
4347: x_del_rec.INTERIM_RPT_REQ_FLAG := l_del_rec.INTERIM_RPT_REQ_FLAG;
4348: END IF;
4349:
4350: IF x_del_rec.LOT_APPLIES_FLAG = OKE_API.G_MISS_CHAR THEN
4351: x_del_rec.LOT_APPLIES_FLAG := l_del_rec.LOT_APPLIES_FLAG;
4352: END IF;
4353:
4354: IF x_del_rec.CUSTOMER_APPROVAL_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
4350: IF x_del_rec.LOT_APPLIES_FLAG = OKE_API.G_MISS_CHAR THEN
4351: x_del_rec.LOT_APPLIES_FLAG := l_del_rec.LOT_APPLIES_FLAG;
4352: END IF;
4353:
4354: IF x_del_rec.CUSTOMER_APPROVAL_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
4355: x_del_rec.CUSTOMER_APPROVAL_REQ_FLAG := l_del_rec.CUSTOMER_APPROVAL_REQ_FLAG;
4356: END IF;
4357:
4358: IF x_del_rec.EXPECTED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
4354: IF x_del_rec.CUSTOMER_APPROVAL_REQ_FLAG = OKE_API.G_MISS_CHAR THEN
4355: x_del_rec.CUSTOMER_APPROVAL_REQ_FLAG := l_del_rec.CUSTOMER_APPROVAL_REQ_FLAG;
4356: END IF;
4357:
4358: IF x_del_rec.EXPECTED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
4359: x_del_rec.EXPECTED_SHIPMENT_DATE := l_del_rec.EXPECTED_SHIPMENT_DATE;
4360: END IF;
4361:
4362: IF x_del_rec.INITIATE_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
4358: IF x_del_rec.EXPECTED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
4359: x_del_rec.EXPECTED_SHIPMENT_DATE := l_del_rec.EXPECTED_SHIPMENT_DATE;
4360: END IF;
4361:
4362: IF x_del_rec.INITIATE_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
4363: x_del_rec.INITIATE_SHIPMENT_DATE := l_del_rec.INITIATE_SHIPMENT_DATE;
4364: END IF;
4365:
4366: IF x_del_rec.PROMISED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
4362: IF x_del_rec.INITIATE_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
4363: x_del_rec.INITIATE_SHIPMENT_DATE := l_del_rec.INITIATE_SHIPMENT_DATE;
4364: END IF;
4365:
4366: IF x_del_rec.PROMISED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
4367: x_del_rec.PROMISED_SHIPMENT_DATE := l_del_rec.PROMISED_SHIPMENT_DATE;
4368: END IF;
4369:
4370: IF x_del_rec.AS_OF_DATE = OKE_API.G_MISS_DATE THEN
4366: IF x_del_rec.PROMISED_SHIPMENT_DATE = OKE_API.G_MISS_DATE THEN
4367: x_del_rec.PROMISED_SHIPMENT_DATE := l_del_rec.PROMISED_SHIPMENT_DATE;
4368: END IF;
4369:
4370: IF x_del_rec.AS_OF_DATE = OKE_API.G_MISS_DATE THEN
4371: x_del_rec.AS_OF_DATE := l_del_rec.AS_OF_DATE;
4372: END IF;
4373:
4374: IF x_del_rec.DATE_OF_FIRST_SUBMISSION = OKE_API.G_MISS_DATE THEN
4370: IF x_del_rec.AS_OF_DATE = OKE_API.G_MISS_DATE THEN
4371: x_del_rec.AS_OF_DATE := l_del_rec.AS_OF_DATE;
4372: END IF;
4373:
4374: IF x_del_rec.DATE_OF_FIRST_SUBMISSION = OKE_API.G_MISS_DATE THEN
4375: x_del_rec.DATE_OF_FIRST_SUBMISSION := l_del_rec.DATE_OF_FIRST_SUBMISSION;
4376: END IF;
4377:
4378: IF x_del_rec.FREQUENCY = OKE_API.G_MISS_CHAR THEN
4374: IF x_del_rec.DATE_OF_FIRST_SUBMISSION = OKE_API.G_MISS_DATE THEN
4375: x_del_rec.DATE_OF_FIRST_SUBMISSION := l_del_rec.DATE_OF_FIRST_SUBMISSION;
4376: END IF;
4377:
4378: IF x_del_rec.FREQUENCY = OKE_API.G_MISS_CHAR THEN
4379: x_del_rec.FREQUENCY := l_del_rec.FREQUENCY;
4380: END IF;
4381:
4382: IF x_del_rec.ACQ_DOC_NUMBER = OKE_API.G_MISS_CHAR THEN
4378: IF x_del_rec.FREQUENCY = OKE_API.G_MISS_CHAR THEN
4379: x_del_rec.FREQUENCY := l_del_rec.FREQUENCY;
4380: END IF;
4381:
4382: IF x_del_rec.ACQ_DOC_NUMBER = OKE_API.G_MISS_CHAR THEN
4383: x_del_rec.ACQ_DOC_NUMBER := l_del_rec.ACQ_DOC_NUMBER;
4384: END IF;
4385:
4386: IF x_del_rec.SUBMISSION_FLAG = OKE_API.G_MISS_CHAR THEN
4382: IF x_del_rec.ACQ_DOC_NUMBER = OKE_API.G_MISS_CHAR THEN
4383: x_del_rec.ACQ_DOC_NUMBER := l_del_rec.ACQ_DOC_NUMBER;
4384: END IF;
4385:
4386: IF x_del_rec.SUBMISSION_FLAG = OKE_API.G_MISS_CHAR THEN
4387: x_del_rec.SUBMISSION_FLAG := l_del_rec.SUBMISSION_FLAG;
4388: END IF;
4389:
4390: IF x_del_rec.DATA_ITEM_NAME = OKE_API.G_MISS_CHAR THEN
4386: IF x_del_rec.SUBMISSION_FLAG = OKE_API.G_MISS_CHAR THEN
4387: x_del_rec.SUBMISSION_FLAG := l_del_rec.SUBMISSION_FLAG;
4388: END IF;
4389:
4390: IF x_del_rec.DATA_ITEM_NAME = OKE_API.G_MISS_CHAR THEN
4391: x_del_rec.DATA_ITEM_NAME := l_del_rec.DATA_ITEM_NAME;
4392: END IF;
4393:
4394: IF x_del_rec.DATA_ITEM_SUBTITLE = OKE_API.G_MISS_CHAR THEN
4390: IF x_del_rec.DATA_ITEM_NAME = OKE_API.G_MISS_CHAR THEN
4391: x_del_rec.DATA_ITEM_NAME := l_del_rec.DATA_ITEM_NAME;
4392: END IF;
4393:
4394: IF x_del_rec.DATA_ITEM_SUBTITLE = OKE_API.G_MISS_CHAR THEN
4395: x_del_rec.DATA_ITEM_SUBTITLE := l_del_rec.DATA_ITEM_SUBTITLE;
4396: END IF;
4397:
4398: IF x_del_rec.TOTAL_NUM_OF_COPIES = OKE_API.G_MISS_NUM THEN
4394: IF x_del_rec.DATA_ITEM_SUBTITLE = OKE_API.G_MISS_CHAR THEN
4395: x_del_rec.DATA_ITEM_SUBTITLE := l_del_rec.DATA_ITEM_SUBTITLE;
4396: END IF;
4397:
4398: IF x_del_rec.TOTAL_NUM_OF_COPIES = OKE_API.G_MISS_NUM THEN
4399: x_del_rec.TOTAL_NUM_OF_COPIES := l_del_rec.TOTAL_NUM_OF_COPIES;
4400: END IF;
4401:
4402: IF x_del_rec.CDRL_CATEGORY = OKE_API.G_MISS_CHAR THEN
4398: IF x_del_rec.TOTAL_NUM_OF_COPIES = OKE_API.G_MISS_NUM THEN
4399: x_del_rec.TOTAL_NUM_OF_COPIES := l_del_rec.TOTAL_NUM_OF_COPIES;
4400: END IF;
4401:
4402: IF x_del_rec.CDRL_CATEGORY = OKE_API.G_MISS_CHAR THEN
4403: x_del_rec.CDRL_CATEGORY := l_del_rec.CDRL_CATEGORY;
4404: END IF;
4405:
4406: IF x_del_rec.EXPORT_LICENSE_NUM = OKE_API.G_MISS_CHAR THEN
4402: IF x_del_rec.CDRL_CATEGORY = OKE_API.G_MISS_CHAR THEN
4403: x_del_rec.CDRL_CATEGORY := l_del_rec.CDRL_CATEGORY;
4404: END IF;
4405:
4406: IF x_del_rec.EXPORT_LICENSE_NUM = OKE_API.G_MISS_CHAR THEN
4407: x_del_rec.EXPORT_LICENSE_NUM := l_del_rec.EXPORT_LICENSE_NUM;
4408: END IF;
4409:
4410: IF x_del_rec.EXPORT_LICENSE_RES = OKE_API.G_MISS_CHAR THEN
4406: IF x_del_rec.EXPORT_LICENSE_NUM = OKE_API.G_MISS_CHAR THEN
4407: x_del_rec.EXPORT_LICENSE_NUM := l_del_rec.EXPORT_LICENSE_NUM;
4408: END IF;
4409:
4410: IF x_del_rec.EXPORT_LICENSE_RES = OKE_API.G_MISS_CHAR THEN
4411: x_del_rec.EXPORT_LICENSE_RES := l_del_rec.EXPORT_LICENSE_RES;
4412: END IF;
4413:
4414: IF x_del_rec.EXPORT_FLAG = OKE_API.G_MISS_CHAR THEN
4410: IF x_del_rec.EXPORT_LICENSE_RES = OKE_API.G_MISS_CHAR THEN
4411: x_del_rec.EXPORT_LICENSE_RES := l_del_rec.EXPORT_LICENSE_RES;
4412: END IF;
4413:
4414: IF x_del_rec.EXPORT_FLAG = OKE_API.G_MISS_CHAR THEN
4415: x_del_rec.EXPORT_FLAG := l_del_rec.EXPORT_FLAG;
4416: END IF;
4417:
4418: IF x_del_rec.CREATED_BY = OKE_API.G_MISS_NUM THEN
4414: IF x_del_rec.EXPORT_FLAG = OKE_API.G_MISS_CHAR THEN
4415: x_del_rec.EXPORT_FLAG := l_del_rec.EXPORT_FLAG;
4416: END IF;
4417:
4418: IF x_del_rec.CREATED_BY = OKE_API.G_MISS_NUM THEN
4419: x_del_rec.CREATED_BY := l_del_rec.CREATED_BY;
4420: END IF;
4421:
4422: IF x_del_rec.CREATION_DATE = OKE_API.G_MISS_DATE THEN
4418: IF x_del_rec.CREATED_BY = OKE_API.G_MISS_NUM THEN
4419: x_del_rec.CREATED_BY := l_del_rec.CREATED_BY;
4420: END IF;
4421:
4422: IF x_del_rec.CREATION_DATE = OKE_API.G_MISS_DATE THEN
4423: x_del_rec.CREATION_DATE := l_del_rec.CREATION_DATE;
4424: END IF;
4425:
4426: IF x_del_rec.LAST_UPDATED_BY = OKE_API.G_MISS_NUM THEN
4422: IF x_del_rec.CREATION_DATE = OKE_API.G_MISS_DATE THEN
4423: x_del_rec.CREATION_DATE := l_del_rec.CREATION_DATE;
4424: END IF;
4425:
4426: IF x_del_rec.LAST_UPDATED_BY = OKE_API.G_MISS_NUM THEN
4427: x_del_rec.LAST_UPDATED_BY := l_del_rec.LAST_UPDATED_BY;
4428: END IF;
4429:
4430: IF x_del_rec.LAST_UPDATE_LOGIN = OKE_API.G_MISS_NUM THEN
4426: IF x_del_rec.LAST_UPDATED_BY = OKE_API.G_MISS_NUM THEN
4427: x_del_rec.LAST_UPDATED_BY := l_del_rec.LAST_UPDATED_BY;
4428: END IF;
4429:
4430: IF x_del_rec.LAST_UPDATE_LOGIN = OKE_API.G_MISS_NUM THEN
4431: x_del_rec.LAST_UPDATE_LOGIN := l_del_rec.LAST_UPDATE_LOGIN;
4432: END IF;
4433:
4434: IF x_del_rec.LAST_UPDATE_DATE = OKE_API.G_MISS_DATE THEN
4430: IF x_del_rec.LAST_UPDATE_LOGIN = OKE_API.G_MISS_NUM THEN
4431: x_del_rec.LAST_UPDATE_LOGIN := l_del_rec.LAST_UPDATE_LOGIN;
4432: END IF;
4433:
4434: IF x_del_rec.LAST_UPDATE_DATE = OKE_API.G_MISS_DATE THEN
4435: x_del_rec.LAST_UPDATE_DATE := l_del_rec.LAST_UPDATE_DATE;
4436: END IF;
4437:
4438: IF x_del_rec.ATTRIBUTE_CATEGORY = OKE_API.G_MISS_CHAR THEN
4434: IF x_del_rec.LAST_UPDATE_DATE = OKE_API.G_MISS_DATE THEN
4435: x_del_rec.LAST_UPDATE_DATE := l_del_rec.LAST_UPDATE_DATE;
4436: END IF;
4437:
4438: IF x_del_rec.ATTRIBUTE_CATEGORY = OKE_API.G_MISS_CHAR THEN
4439: x_del_rec.ATTRIBUTE_CATEGORY := l_del_rec.ATTRIBUTE_CATEGORY;
4440: END IF;
4441:
4442: IF x_del_rec.ATTRIBUTE1 = OKE_API.G_MISS_CHAR THEN
4438: IF x_del_rec.ATTRIBUTE_CATEGORY = OKE_API.G_MISS_CHAR THEN
4439: x_del_rec.ATTRIBUTE_CATEGORY := l_del_rec.ATTRIBUTE_CATEGORY;
4440: END IF;
4441:
4442: IF x_del_rec.ATTRIBUTE1 = OKE_API.G_MISS_CHAR THEN
4443: x_del_rec.ATTRIBUTE1 := l_del_rec.ATTRIBUTE1;
4444: END IF;
4445:
4446: IF x_del_rec.ATTRIBUTE2 = OKE_API.G_MISS_CHAR THEN
4442: IF x_del_rec.ATTRIBUTE1 = OKE_API.G_MISS_CHAR THEN
4443: x_del_rec.ATTRIBUTE1 := l_del_rec.ATTRIBUTE1;
4444: END IF;
4445:
4446: IF x_del_rec.ATTRIBUTE2 = OKE_API.G_MISS_CHAR THEN
4447: x_del_rec.ATTRIBUTE2 := l_del_rec.ATTRIBUTE2;
4448: END IF;
4449:
4450: IF x_del_rec.ATTRIBUTE3 = OKE_API.G_MISS_CHAR THEN
4446: IF x_del_rec.ATTRIBUTE2 = OKE_API.G_MISS_CHAR THEN
4447: x_del_rec.ATTRIBUTE2 := l_del_rec.ATTRIBUTE2;
4448: END IF;
4449:
4450: IF x_del_rec.ATTRIBUTE3 = OKE_API.G_MISS_CHAR THEN
4451: x_del_rec.ATTRIBUTE3 := l_del_rec.ATTRIBUTE3;
4452: END IF;
4453:
4454: IF x_del_rec.ATTRIBUTE4 = OKE_API.G_MISS_CHAR THEN
4450: IF x_del_rec.ATTRIBUTE3 = OKE_API.G_MISS_CHAR THEN
4451: x_del_rec.ATTRIBUTE3 := l_del_rec.ATTRIBUTE3;
4452: END IF;
4453:
4454: IF x_del_rec.ATTRIBUTE4 = OKE_API.G_MISS_CHAR THEN
4455: x_del_rec.ATTRIBUTE4 := l_del_rec.ATTRIBUTE4;
4456: END IF;
4457:
4458: IF x_del_rec.ATTRIBUTE5 = OKE_API.G_MISS_CHAR THEN
4454: IF x_del_rec.ATTRIBUTE4 = OKE_API.G_MISS_CHAR THEN
4455: x_del_rec.ATTRIBUTE4 := l_del_rec.ATTRIBUTE4;
4456: END IF;
4457:
4458: IF x_del_rec.ATTRIBUTE5 = OKE_API.G_MISS_CHAR THEN
4459: x_del_rec.ATTRIBUTE5 := l_del_rec.ATTRIBUTE5;
4460: END IF;
4461:
4462: IF x_del_rec.ATTRIBUTE6 = OKE_API.G_MISS_CHAR THEN
4458: IF x_del_rec.ATTRIBUTE5 = OKE_API.G_MISS_CHAR THEN
4459: x_del_rec.ATTRIBUTE5 := l_del_rec.ATTRIBUTE5;
4460: END IF;
4461:
4462: IF x_del_rec.ATTRIBUTE6 = OKE_API.G_MISS_CHAR THEN
4463: x_del_rec.ATTRIBUTE6 := l_del_rec.ATTRIBUTE6;
4464: END IF;
4465:
4466: IF x_del_rec.ATTRIBUTE7 = OKE_API.G_MISS_CHAR THEN
4462: IF x_del_rec.ATTRIBUTE6 = OKE_API.G_MISS_CHAR THEN
4463: x_del_rec.ATTRIBUTE6 := l_del_rec.ATTRIBUTE6;
4464: END IF;
4465:
4466: IF x_del_rec.ATTRIBUTE7 = OKE_API.G_MISS_CHAR THEN
4467: x_del_rec.ATTRIBUTE7 := l_del_rec.ATTRIBUTE7;
4468: END IF;
4469:
4470: IF x_del_rec.ATTRIBUTE8 = OKE_API.G_MISS_CHAR THEN
4466: IF x_del_rec.ATTRIBUTE7 = OKE_API.G_MISS_CHAR THEN
4467: x_del_rec.ATTRIBUTE7 := l_del_rec.ATTRIBUTE7;
4468: END IF;
4469:
4470: IF x_del_rec.ATTRIBUTE8 = OKE_API.G_MISS_CHAR THEN
4471: x_del_rec.ATTRIBUTE8 := l_del_rec.ATTRIBUTE8;
4472: END IF;
4473:
4474: IF x_del_rec.ATTRIBUTE9 = OKE_API.G_MISS_CHAR THEN
4470: IF x_del_rec.ATTRIBUTE8 = OKE_API.G_MISS_CHAR THEN
4471: x_del_rec.ATTRIBUTE8 := l_del_rec.ATTRIBUTE8;
4472: END IF;
4473:
4474: IF x_del_rec.ATTRIBUTE9 = OKE_API.G_MISS_CHAR THEN
4475: x_del_rec.ATTRIBUTE9 := l_del_rec.ATTRIBUTE9;
4476: END IF;
4477:
4478: IF x_del_rec.ATTRIBUTE10 = OKE_API.G_MISS_CHAR THEN
4474: IF x_del_rec.ATTRIBUTE9 = OKE_API.G_MISS_CHAR THEN
4475: x_del_rec.ATTRIBUTE9 := l_del_rec.ATTRIBUTE9;
4476: END IF;
4477:
4478: IF x_del_rec.ATTRIBUTE10 = OKE_API.G_MISS_CHAR THEN
4479: x_del_rec.ATTRIBUTE10 := l_del_rec.ATTRIBUTE10;
4480: END IF;
4481:
4482: IF x_del_rec.ATTRIBUTE11 = OKE_API.G_MISS_CHAR THEN
4478: IF x_del_rec.ATTRIBUTE10 = OKE_API.G_MISS_CHAR THEN
4479: x_del_rec.ATTRIBUTE10 := l_del_rec.ATTRIBUTE10;
4480: END IF;
4481:
4482: IF x_del_rec.ATTRIBUTE11 = OKE_API.G_MISS_CHAR THEN
4483: x_del_rec.ATTRIBUTE11 := l_del_rec.ATTRIBUTE11;
4484: END IF;
4485:
4486: IF x_del_rec.ATTRIBUTE12 = OKE_API.G_MISS_CHAR THEN
4482: IF x_del_rec.ATTRIBUTE11 = OKE_API.G_MISS_CHAR THEN
4483: x_del_rec.ATTRIBUTE11 := l_del_rec.ATTRIBUTE11;
4484: END IF;
4485:
4486: IF x_del_rec.ATTRIBUTE12 = OKE_API.G_MISS_CHAR THEN
4487: x_del_rec.ATTRIBUTE12 := l_del_rec.ATTRIBUTE12;
4488: END IF;
4489:
4490: IF x_del_rec.ATTRIBUTE13 = OKE_API.G_MISS_CHAR THEN
4486: IF x_del_rec.ATTRIBUTE12 = OKE_API.G_MISS_CHAR THEN
4487: x_del_rec.ATTRIBUTE12 := l_del_rec.ATTRIBUTE12;
4488: END IF;
4489:
4490: IF x_del_rec.ATTRIBUTE13 = OKE_API.G_MISS_CHAR THEN
4491: x_del_rec.ATTRIBUTE13 := l_del_rec.ATTRIBUTE13;
4492: END IF;
4493:
4494: IF x_del_rec.ATTRIBUTE14 = OKE_API.G_MISS_CHAR THEN
4490: IF x_del_rec.ATTRIBUTE13 = OKE_API.G_MISS_CHAR THEN
4491: x_del_rec.ATTRIBUTE13 := l_del_rec.ATTRIBUTE13;
4492: END IF;
4493:
4494: IF x_del_rec.ATTRIBUTE14 = OKE_API.G_MISS_CHAR THEN
4495: x_del_rec.ATTRIBUTE14 := l_del_rec.ATTRIBUTE14;
4496: END IF;
4497:
4498: IF x_del_rec.ATTRIBUTE15 = OKE_API.G_MISS_CHAR THEN
4494: IF x_del_rec.ATTRIBUTE14 = OKE_API.G_MISS_CHAR THEN
4495: x_del_rec.ATTRIBUTE14 := l_del_rec.ATTRIBUTE14;
4496: END IF;
4497:
4498: IF x_del_rec.ATTRIBUTE15 = OKE_API.G_MISS_CHAR THEN
4499: x_del_rec.ATTRIBUTE15 := l_del_rec.ATTRIBUTE15;
4500: END IF;
4501:
4502: IF x_del_rec.WEIGHT = OKE_API.G_MISS_NUM THEN
4498: IF x_del_rec.ATTRIBUTE15 = OKE_API.G_MISS_CHAR THEN
4499: x_del_rec.ATTRIBUTE15 := l_del_rec.ATTRIBUTE15;
4500: END IF;
4501:
4502: IF x_del_rec.WEIGHT = OKE_API.G_MISS_NUM THEN
4503: x_del_rec.WEIGHT := l_del_rec.WEIGHT;
4504: END IF;
4505:
4506: IF x_del_rec.WEIGHT_UOM_CODE = OKE_API.G_MISS_CHAR THEN
4502: IF x_del_rec.WEIGHT = OKE_API.G_MISS_NUM THEN
4503: x_del_rec.WEIGHT := l_del_rec.WEIGHT;
4504: END IF;
4505:
4506: IF x_del_rec.WEIGHT_UOM_CODE = OKE_API.G_MISS_CHAR THEN
4507: x_del_rec.WEIGHT_UOM_CODE := l_del_rec.WEIGHT_UOM_CODE;
4508: END IF;
4509:
4510: IF x_del_rec.VOLUME = OKE_API.G_MISS_NUM THEN
4506: IF x_del_rec.WEIGHT_UOM_CODE = OKE_API.G_MISS_CHAR THEN
4507: x_del_rec.WEIGHT_UOM_CODE := l_del_rec.WEIGHT_UOM_CODE;
4508: END IF;
4509:
4510: IF x_del_rec.VOLUME = OKE_API.G_MISS_NUM THEN
4511: x_del_rec.VOLUME := l_del_rec.VOLUME;
4512: END IF;
4513:
4514: IF x_del_rec.VOLUME_UOM_CODE = OKE_API.G_MISS_CHAR THEN
4510: IF x_del_rec.VOLUME = OKE_API.G_MISS_NUM THEN
4511: x_del_rec.VOLUME := l_del_rec.VOLUME;
4512: END IF;
4513:
4514: IF x_del_rec.VOLUME_UOM_CODE = OKE_API.G_MISS_CHAR THEN
4515: x_del_rec.VOLUME_UOM_CODE := l_del_rec.VOLUME_UOM_CODE;
4516: END IF;
4517:
4518: IF x_del_rec.EXPENDITURE_ORGANIZATION_ID = OKE_API.G_MISS_NUM THEN
4514: IF x_del_rec.VOLUME_UOM_CODE = OKE_API.G_MISS_CHAR THEN
4515: x_del_rec.VOLUME_UOM_CODE := l_del_rec.VOLUME_UOM_CODE;
4516: END IF;
4517:
4518: IF x_del_rec.EXPENDITURE_ORGANIZATION_ID = OKE_API.G_MISS_NUM THEN
4519: x_del_rec.EXPENDITURE_ORGANIZATION_ID := l_del_rec.EXPENDITURE_ORGANIZATION_ID;
4520: END IF;
4521:
4522: IF x_del_rec.EXPENDITURE_TYPE = OKE_API.G_MISS_CHAR THEN
4518: IF x_del_rec.EXPENDITURE_ORGANIZATION_ID = OKE_API.G_MISS_NUM THEN
4519: x_del_rec.EXPENDITURE_ORGANIZATION_ID := l_del_rec.EXPENDITURE_ORGANIZATION_ID;
4520: END IF;
4521:
4522: IF x_del_rec.EXPENDITURE_TYPE = OKE_API.G_MISS_CHAR THEN
4523: x_del_rec.EXPENDITURE_TYPE := l_del_rec.EXPENDITURE_TYPE;
4524: END IF;
4525:
4526: IF x_del_rec.DESTINATION_TYPE_CODE = OKE_API.G_MISS_CHAR THEN
4522: IF x_del_rec.EXPENDITURE_TYPE = OKE_API.G_MISS_CHAR THEN
4523: x_del_rec.EXPENDITURE_TYPE := l_del_rec.EXPENDITURE_TYPE;
4524: END IF;
4525:
4526: IF x_del_rec.DESTINATION_TYPE_CODE = OKE_API.G_MISS_CHAR THEN
4527: x_del_rec.DESTINATION_TYPE_CODE := l_del_rec.DESTINATION_TYPE_CODE;
4528: END IF;
4529:
4530: IF x_del_rec.EXPENDITURE_ITEM_DATE = OKE_API.G_MISS_DATE THEN
4526: IF x_del_rec.DESTINATION_TYPE_CODE = OKE_API.G_MISS_CHAR THEN
4527: x_del_rec.DESTINATION_TYPE_CODE := l_del_rec.DESTINATION_TYPE_CODE;
4528: END IF;
4529:
4530: IF x_del_rec.EXPENDITURE_ITEM_DATE = OKE_API.G_MISS_DATE THEN
4531: x_del_rec.EXPENDITURE_ITEM_DATE := l_del_rec.EXPENDITURE_ITEM_DATE;
4532: END IF;
4533:
4534: IF x_del_rec.RATE_DATE = OKE_API.G_MISS_DATE THEN
4530: IF x_del_rec.EXPENDITURE_ITEM_DATE = OKE_API.G_MISS_DATE THEN
4531: x_del_rec.EXPENDITURE_ITEM_DATE := l_del_rec.EXPENDITURE_ITEM_DATE;
4532: END IF;
4533:
4534: IF x_del_rec.RATE_DATE = OKE_API.G_MISS_DATE THEN
4535: x_del_rec.RATE_DATE := l_del_rec.RATE_DATE;
4536: END IF;
4537:
4538: IF x_del_rec.RATE_TYPE = OKE_API.G_MISS_CHAR THEN
4534: IF x_del_rec.RATE_DATE = OKE_API.G_MISS_DATE THEN
4535: x_del_rec.RATE_DATE := l_del_rec.RATE_DATE;
4536: END IF;
4537:
4538: IF x_del_rec.RATE_TYPE = OKE_API.G_MISS_CHAR THEN
4539: x_del_rec.RATE_TYPE := l_del_rec.RATE_TYPE;
4540: END IF;
4541:
4542: IF x_del_rec.EXCHANGE_RATE = OKE_API.G_MISS_NUM THEN
4538: IF x_del_rec.RATE_TYPE = OKE_API.G_MISS_CHAR THEN
4539: x_del_rec.RATE_TYPE := l_del_rec.RATE_TYPE;
4540: END IF;
4541:
4542: IF x_del_rec.EXCHANGE_RATE = OKE_API.G_MISS_NUM THEN
4543: x_del_rec.EXCHANGE_RATE := l_del_rec.EXCHANGE_RATE;
4544: END IF;
4545:
4546: IF x_del_rec.DESCRIPTION = OKE_API.G_MISS_CHAR THEN
4542: IF x_del_rec.EXCHANGE_RATE = OKE_API.G_MISS_NUM THEN
4543: x_del_rec.EXCHANGE_RATE := l_del_rec.EXCHANGE_RATE;
4544: END IF;
4545:
4546: IF x_del_rec.DESCRIPTION = OKE_API.G_MISS_CHAR THEN
4547: x_del_rec.DESCRIPTION := l_del_rec.DESCRIPTION;
4548: END IF;
4549:
4550: IF x_del_rec.COMMENTS = OKE_API.G_MISS_CHAR THEN
4546: IF x_del_rec.DESCRIPTION = OKE_API.G_MISS_CHAR THEN
4547: x_del_rec.DESCRIPTION := l_del_rec.DESCRIPTION;
4548: END IF;
4549:
4550: IF x_del_rec.COMMENTS = OKE_API.G_MISS_CHAR THEN
4551: x_del_rec.COMMENTS := l_del_rec.COMMENTS;
4552: END IF;
4553:
4554: IF x_del_rec.REQUISITION_LINE_TYPE_ID = OKE_API.G_MISS_NUM THEN
4550: IF x_del_rec.COMMENTS = OKE_API.G_MISS_CHAR THEN
4551: x_del_rec.COMMENTS := l_del_rec.COMMENTS;
4552: END IF;
4553:
4554: IF x_del_rec.REQUISITION_LINE_TYPE_ID = OKE_API.G_MISS_NUM THEN
4555: x_del_rec.REQUISITION_LINE_TYPE_ID := l_del_rec.REQUISITION_LINE_TYPE_ID;
4556: END IF;
4557:
4558: IF x_del_rec.PO_CATEGORY_ID = OKE_API.G_MISS_NUM THEN
4554: IF x_del_rec.REQUISITION_LINE_TYPE_ID = OKE_API.G_MISS_NUM THEN
4555: x_del_rec.REQUISITION_LINE_TYPE_ID := l_del_rec.REQUISITION_LINE_TYPE_ID;
4556: END IF;
4557:
4558: IF x_del_rec.PO_CATEGORY_ID = OKE_API.G_MISS_NUM THEN
4559: x_del_rec.PO_CATEGORY_ID := l_del_rec.PO_CATEGORY_ID;
4560: END IF;
4561:
4562: RETURN(l_return_status);
4570: FUNCTION set_attributes(
4571: p_del_rec IN del_rec_type,
4572: x_del_rec OUT NOCOPY del_rec_type
4573: ) RETURN VARCHAR2 IS
4574: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
4575: BEGIN
4576:
4577: x_del_rec := p_del_rec;
4578: x_del_rec.BILLABLE_FLAG := UPPER(x_del_rec.BILLABLE_FLAG);
4603: BEGIN
4604:
4605:
4606:
4607: l_return_status := OKE_API.START_ACTIVITY(l_api_name,
4608: G_PKG_NAME,
4609: p_init_msg_list,
4610: l_api_version,
4611: p_api_version,
4611: p_api_version,
4612: '_PVT',
4613: x_return_status);
4614:
4615: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4616: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4617: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4618: RAISE OKE_API.G_EXCEPTION_ERROR;
4619: END IF;
4612: '_PVT',
4613: x_return_status);
4614:
4615: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4616: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4617: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4618: RAISE OKE_API.G_EXCEPTION_ERROR;
4619: END IF;
4620:
4613: x_return_status);
4614:
4615: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4616: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4617: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4618: RAISE OKE_API.G_EXCEPTION_ERROR;
4619: END IF;
4620:
4621:
4614:
4615: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4616: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4617: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4618: RAISE OKE_API.G_EXCEPTION_ERROR;
4619: END IF;
4620:
4621:
4622:
4624: p_del_rec, -- IN
4625: l_del_rec); -- OUT
4626:
4627: --- If any errors happen abort API
4628: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4629: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4630: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4631: RAISE OKE_API.G_EXCEPTION_ERROR;
4632: END IF;
4625: l_del_rec); -- OUT
4626:
4627: --- If any errors happen abort API
4628: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4629: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4630: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4631: RAISE OKE_API.G_EXCEPTION_ERROR;
4632: END IF;
4633:
4626:
4627: --- If any errors happen abort API
4628: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4629: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4630: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4631: RAISE OKE_API.G_EXCEPTION_ERROR;
4632: END IF;
4633:
4634:
4627: --- If any errors happen abort API
4628: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4629: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4630: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4631: RAISE OKE_API.G_EXCEPTION_ERROR;
4632: END IF;
4633:
4634:
4635:
4634:
4635:
4636: l_return_status := populate_new_record(l_del_rec, l_def_del_rec);
4637:
4638: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4639: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4640: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4641: RAISE OKE_API.G_EXCEPTION_ERROR;
4642: END IF;
4635:
4636: l_return_status := populate_new_record(l_del_rec, l_def_del_rec);
4637:
4638: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4639: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4640: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4641: RAISE OKE_API.G_EXCEPTION_ERROR;
4642: END IF;
4643:
4636: l_return_status := populate_new_record(l_del_rec, l_def_del_rec);
4637:
4638: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4639: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4640: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4641: RAISE OKE_API.G_EXCEPTION_ERROR;
4642: END IF;
4643:
4644:
4637:
4638: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4639: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4640: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4641: RAISE OKE_API.G_EXCEPTION_ERROR;
4642: END IF;
4643:
4644:
4645:
4655:
4656:
4657:
4658: --- If any errors happen abort API
4659: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4660: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4661: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4662: RAISE OKE_API.G_EXCEPTION_ERROR;
4663: END IF;
4656:
4657:
4658: --- If any errors happen abort API
4659: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4660: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4661: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4662: RAISE OKE_API.G_EXCEPTION_ERROR;
4663: END IF;
4664:
4657:
4658: --- If any errors happen abort API
4659: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4660: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4661: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4662: RAISE OKE_API.G_EXCEPTION_ERROR;
4663: END IF;
4664:
4665:
4658: --- If any errors happen abort API
4659: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4660: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4661: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4662: RAISE OKE_API.G_EXCEPTION_ERROR;
4663: END IF;
4664:
4665:
4666:
4664:
4665:
4666:
4667: l_return_status := Validate_Record(l_def_del_rec);
4668: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4669: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4670: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4671: RAISE OKE_API.G_EXCEPTION_ERROR;
4672: END IF; */
4665:
4666:
4667: l_return_status := Validate_Record(l_def_del_rec);
4668: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4669: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4670: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4671: RAISE OKE_API.G_EXCEPTION_ERROR;
4672: END IF; */
4673:
4666:
4667: l_return_status := Validate_Record(l_def_del_rec);
4668: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4669: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4670: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4671: RAISE OKE_API.G_EXCEPTION_ERROR;
4672: END IF; */
4673:
4674: UPDATE oke_k_deliverables_b
4667: l_return_status := Validate_Record(l_def_del_rec);
4668: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4669: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4670: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4671: RAISE OKE_API.G_EXCEPTION_ERROR;
4672: END IF; */
4673:
4674: UPDATE oke_k_deliverables_b
4675: SET
4787: and userenv('LANG') in (language , source_lang);
4788:
4789: x_del_rec := l_def_del_rec;
4790:
4791: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
4792:
4793: EXCEPTION
4794: WHEN OKE_API.G_EXCEPTION_ERROR THEN
4795: x_return_status := OKE_API.HANDLE_EXCEPTIONS
4790:
4791: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
4792:
4793: EXCEPTION
4794: WHEN OKE_API.G_EXCEPTION_ERROR THEN
4795: x_return_status := OKE_API.HANDLE_EXCEPTIONS
4796: (
4797: l_api_name,
4798: G_PKG_NAME,
4791: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
4792:
4793: EXCEPTION
4794: WHEN OKE_API.G_EXCEPTION_ERROR THEN
4795: x_return_status := OKE_API.HANDLE_EXCEPTIONS
4796: (
4797: l_api_name,
4798: G_PKG_NAME,
4799: 'OKE_API.G_RET_STS_ERROR',
4795: x_return_status := OKE_API.HANDLE_EXCEPTIONS
4796: (
4797: l_api_name,
4798: G_PKG_NAME,
4799: 'OKE_API.G_RET_STS_ERROR',
4800: x_msg_count,
4801: x_msg_data,
4802: '_PVT'
4803: );
4800: x_msg_count,
4801: x_msg_data,
4802: '_PVT'
4803: );
4804: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4805: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
4806: (
4807: l_api_name,
4808: G_PKG_NAME,
4801: x_msg_data,
4802: '_PVT'
4803: );
4804: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4805: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
4806: (
4807: l_api_name,
4808: G_PKG_NAME,
4809: 'OKE_API.G_RET_STS_UNEXP_ERROR',
4805: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
4806: (
4807: l_api_name,
4808: G_PKG_NAME,
4809: 'OKE_API.G_RET_STS_UNEXP_ERROR',
4810: x_msg_count,
4811: x_msg_data,
4812: '_PVT'
4813: );
4811: x_msg_data,
4812: '_PVT'
4813: );
4814: WHEN OTHERS THEN
4815: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
4816: (
4817: l_api_name,
4818: G_PKG_NAME,
4819: 'OTHERS',
4834:
4835: l_api_version CONSTANT NUMBER := 1.0;
4836: l_api_name CONSTANT VARCHAR2(30) := 'TBL_update_row';
4837:
4838: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
4839: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
4840: i NUMBER := 0;
4841: BEGIN
4842: OKE_API.init_msg_list(p_init_msg_list);
4835: l_api_version CONSTANT NUMBER := 1.0;
4836: l_api_name CONSTANT VARCHAR2(30) := 'TBL_update_row';
4837:
4838: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
4839: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
4840: i NUMBER := 0;
4841: BEGIN
4842: OKE_API.init_msg_list(p_init_msg_list);
4843: -- Make sure PL/SQL table has records in it before passing
4838: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
4839: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
4840: i NUMBER := 0;
4841: BEGIN
4842: OKE_API.init_msg_list(p_init_msg_list);
4843: -- Make sure PL/SQL table has records in it before passing
4844: IF (p_del_tbl.COUNT > 0) THEN
4845: i := p_del_tbl.FIRST;
4846: LOOP
4853: p_del_rec => p_del_tbl(i),
4854: x_del_rec => x_del_tbl(i));
4855:
4856: -- store the highest degree of error
4857: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
4858: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
4859: l_overall_status := x_return_status;
4860: End If;
4861: End If;
4854: x_del_rec => x_del_tbl(i));
4855:
4856: -- store the highest degree of error
4857: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
4858: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
4859: l_overall_status := x_return_status;
4860: End If;
4861: End If;
4862:
4867: x_return_status := l_overall_status;
4868: END IF;
4869:
4870: EXCEPTION
4871: WHEN OKE_API.G_EXCEPTION_ERROR THEN
4872: x_return_status := OKE_API.HANDLE_EXCEPTIONS
4873: (
4874: l_api_name,
4875: G_PKG_NAME,
4868: END IF;
4869:
4870: EXCEPTION
4871: WHEN OKE_API.G_EXCEPTION_ERROR THEN
4872: x_return_status := OKE_API.HANDLE_EXCEPTIONS
4873: (
4874: l_api_name,
4875: G_PKG_NAME,
4876: 'OKE_API.G_RET_STS_ERROR',
4872: x_return_status := OKE_API.HANDLE_EXCEPTIONS
4873: (
4874: l_api_name,
4875: G_PKG_NAME,
4876: 'OKE_API.G_RET_STS_ERROR',
4877: x_msg_count,
4878: x_msg_data,
4879: '_PVT'
4880: );
4877: x_msg_count,
4878: x_msg_data,
4879: '_PVT'
4880: );
4881: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4882: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
4883: (
4884: l_api_name,
4885: G_PKG_NAME,
4878: x_msg_data,
4879: '_PVT'
4880: );
4881: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4882: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
4883: (
4884: l_api_name,
4885: G_PKG_NAME,
4886: 'OKE_API.G_RET_STS_UNEXP_ERROR',
4882: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
4883: (
4884: l_api_name,
4885: G_PKG_NAME,
4886: 'OKE_API.G_RET_STS_UNEXP_ERROR',
4887: x_msg_count,
4888: x_msg_data,
4889: '_PVT'
4890: );
4888: x_msg_data,
4889: '_PVT'
4890: );
4891: WHEN OTHERS THEN
4892: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
4893: (
4894: l_api_name,
4895: G_PKG_NAME,
4896: 'OTHERS',
4909: p_del_rec IN del_rec_type) IS
4910:
4911: l_api_version CONSTANT NUMBER := 1;
4912: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
4913: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
4914: l_del_rec del_rec_type := p_del_rec;
4915:
4916: BEGIN
4917:
4914: l_del_rec del_rec_type := p_del_rec;
4915:
4916: BEGIN
4917:
4918: l_return_status := OKE_API.START_ACTIVITY(l_api_name,
4919: p_init_msg_list,
4920: '_PVT',
4921: x_return_status);
4922:
4919: p_init_msg_list,
4920: '_PVT',
4921: x_return_status);
4922:
4923: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4924: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4925: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4926: RAISE OKE_API.G_EXCEPTION_ERROR;
4927: END IF;
4920: '_PVT',
4921: x_return_status);
4922:
4923: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4924: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4925: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4926: RAISE OKE_API.G_EXCEPTION_ERROR;
4927: END IF;
4928:
4921: x_return_status);
4922:
4923: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4924: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4925: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4926: RAISE OKE_API.G_EXCEPTION_ERROR;
4927: END IF;
4928:
4929: DELETE FROM oke_k_deliverables_b
4922:
4923: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
4924: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4925: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
4926: RAISE OKE_API.G_EXCEPTION_ERROR;
4927: END IF;
4928:
4929: DELETE FROM oke_k_deliverables_b
4930: WHERE deliverable_id = l_del_rec.deliverable_id;
4928:
4929: DELETE FROM oke_k_deliverables_b
4930: WHERE deliverable_id = l_del_rec.deliverable_id;
4931:
4932: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
4933:
4934: EXCEPTION
4935: WHEN OKE_API.G_EXCEPTION_ERROR THEN
4936: x_return_status := OKE_API.HANDLE_EXCEPTIONS
4931:
4932: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
4933:
4934: EXCEPTION
4935: WHEN OKE_API.G_EXCEPTION_ERROR THEN
4936: x_return_status := OKE_API.HANDLE_EXCEPTIONS
4937: (
4938: l_api_name,
4939: G_PKG_NAME,
4932: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
4933:
4934: EXCEPTION
4935: WHEN OKE_API.G_EXCEPTION_ERROR THEN
4936: x_return_status := OKE_API.HANDLE_EXCEPTIONS
4937: (
4938: l_api_name,
4939: G_PKG_NAME,
4940: 'OKE_API.G_RET_STS_ERROR',
4936: x_return_status := OKE_API.HANDLE_EXCEPTIONS
4937: (
4938: l_api_name,
4939: G_PKG_NAME,
4940: 'OKE_API.G_RET_STS_ERROR',
4941: x_msg_count,
4942: x_msg_data,
4943: '_PVT'
4944: );
4941: x_msg_count,
4942: x_msg_data,
4943: '_PVT'
4944: );
4945: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4946: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
4947: (
4948: l_api_name,
4949: G_PKG_NAME,
4942: x_msg_data,
4943: '_PVT'
4944: );
4945: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4946: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
4947: (
4948: l_api_name,
4949: G_PKG_NAME,
4950: 'OKE_API.G_RET_STS_UNEXP_ERROR',
4946: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
4947: (
4948: l_api_name,
4949: G_PKG_NAME,
4950: 'OKE_API.G_RET_STS_UNEXP_ERROR',
4951: x_msg_count,
4952: x_msg_data,
4953: '_PVT'
4954: );
4952: x_msg_data,
4953: '_PVT'
4954: );
4955: WHEN OTHERS THEN
4956: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
4957: (
4958: l_api_name,
4959: G_PKG_NAME,
4960: 'OTHERS',
4973: p_del_tbl IN del_tbl_type) IS
4974:
4975: l_api_version CONSTANT NUMBER := 1;
4976: l_api_name CONSTANT VARCHAR2(30) := 'TBL_delete_row';
4977: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
4978: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
4979: i NUMBER := 0;
4980: BEGIN
4981: OKE_API.init_msg_list(p_init_msg_list);
4974:
4975: l_api_version CONSTANT NUMBER := 1;
4976: l_api_name CONSTANT VARCHAR2(30) := 'TBL_delete_row';
4977: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
4978: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
4979: i NUMBER := 0;
4980: BEGIN
4981: OKE_API.init_msg_list(p_init_msg_list);
4982:
4977: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
4978: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
4979: i NUMBER := 0;
4980: BEGIN
4981: OKE_API.init_msg_list(p_init_msg_list);
4982:
4983: -- Make sure PL/SQL table has records in it before passing
4984: IF (p_del_tbl.COUNT > 0) THEN
4985: i := p_del_tbl.FIRST;
4992: x_msg_data => x_msg_data,
4993: p_del_rec => p_del_tbl(i));
4994:
4995: -- store the highest degree of error
4996: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
4997: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
4998: l_overall_status := x_return_status;
4999: End If;
5000: End If;
4993: p_del_rec => p_del_tbl(i));
4994:
4995: -- store the highest degree of error
4996: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
4997: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
4998: l_overall_status := x_return_status;
4999: End If;
5000: End If;
5001:
5007: x_return_status := l_overall_status;
5008: END IF;
5009:
5010: EXCEPTION
5011: WHEN OKE_API.G_EXCEPTION_ERROR THEN
5012: x_return_status := OKE_API.HANDLE_EXCEPTIONS
5013: (
5014: l_api_name,
5015: G_PKG_NAME,
5008: END IF;
5009:
5010: EXCEPTION
5011: WHEN OKE_API.G_EXCEPTION_ERROR THEN
5012: x_return_status := OKE_API.HANDLE_EXCEPTIONS
5013: (
5014: l_api_name,
5015: G_PKG_NAME,
5016: 'OKE_API.G_RET_STS_ERROR',
5012: x_return_status := OKE_API.HANDLE_EXCEPTIONS
5013: (
5014: l_api_name,
5015: G_PKG_NAME,
5016: 'OKE_API.G_RET_STS_ERROR',
5017: x_msg_count,
5018: x_msg_data,
5019: '_PVT'
5020: );
5017: x_msg_count,
5018: x_msg_data,
5019: '_PVT'
5020: );
5021: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5022: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
5023: (
5024: l_api_name,
5025: G_PKG_NAME,
5018: x_msg_data,
5019: '_PVT'
5020: );
5021: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5022: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
5023: (
5024: l_api_name,
5025: G_PKG_NAME,
5026: 'OKE_API.G_RET_STS_UNEXP_ERROR',
5022: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
5023: (
5024: l_api_name,
5025: G_PKG_NAME,
5026: 'OKE_API.G_RET_STS_UNEXP_ERROR',
5027: x_msg_count,
5028: x_msg_data,
5029: '_PVT'
5030: );
5028: x_msg_data,
5029: '_PVT'
5030: );
5031: WHEN OTHERS THEN
5032: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
5033: (
5034: l_api_name,
5035: G_PKG_NAME,
5036: 'OTHERS',
5062: FROM oke_k_deliverables_b
5063: WHERE deliverable_id = p_del_rec.deliverable_id;
5064: l_api_version CONSTANT NUMBER := 1;
5065: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
5066: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
5067: l_deliverable_num OKE_K_DELIVERABLES_B.DELIVERABLE_NUM%TYPE;
5068: lc_deliverable_num OKE_K_DELIVERABLES_B.DELIVERABLE_NUM%TYPE;
5069: l_row_notfound BOOLEAN := FALSE;
5070: lc_row_notfound BOOLEAN := FALSE;
5068: lc_deliverable_num OKE_K_DELIVERABLES_B.DELIVERABLE_NUM%TYPE;
5069: l_row_notfound BOOLEAN := FALSE;
5070: lc_row_notfound BOOLEAN := FALSE;
5071: BEGIN
5072: l_return_status := OKE_API.START_ACTIVITY(l_api_name,
5073: p_init_msg_list,
5074: '_PVT',
5075: x_return_status);
5076: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
5072: l_return_status := OKE_API.START_ACTIVITY(l_api_name,
5073: p_init_msg_list,
5074: '_PVT',
5075: x_return_status);
5076: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
5077: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5078: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
5079: RAISE OKE_API.G_EXCEPTION_ERROR;
5080: END IF;
5073: p_init_msg_list,
5074: '_PVT',
5075: x_return_status);
5076: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
5077: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5078: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
5079: RAISE OKE_API.G_EXCEPTION_ERROR;
5080: END IF;
5081: BEGIN
5074: '_PVT',
5075: x_return_status);
5076: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
5077: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5078: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
5079: RAISE OKE_API.G_EXCEPTION_ERROR;
5080: END IF;
5081: BEGIN
5082: OPEN lock_csr(p_del_rec);
5075: x_return_status);
5076: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
5077: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
5078: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
5079: RAISE OKE_API.G_EXCEPTION_ERROR;
5080: END IF;
5081: BEGIN
5082: OPEN lock_csr(p_del_rec);
5083: FETCH lock_csr INTO l_deliverable_num;
5087: WHEN E_Resource_Busy THEN
5088: IF (lock_csr%ISOPEN) THEN
5089: CLOSE lock_csr;
5090: END IF;
5091: OKE_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
5092: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
5093: END;
5094:
5095: IF ( l_row_notfound ) THEN
5098: lc_row_notfound := lchk_csr%NOTFOUND;
5099: CLOSE lchk_csr;
5100: END IF;
5101: IF (lc_row_notfound) THEN
5102: OKE_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
5103: RAISE OKE_API.G_EXCEPTION_ERROR;
5104: ELSIF lc_deliverable_num > p_del_rec.deliverable_num THEN
5105: OKE_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5106: RAISE OKE_API.G_EXCEPTION_ERROR;
5099: CLOSE lchk_csr;
5100: END IF;
5101: IF (lc_row_notfound) THEN
5102: OKE_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
5103: RAISE OKE_API.G_EXCEPTION_ERROR;
5104: ELSIF lc_deliverable_num > p_del_rec.deliverable_num THEN
5105: OKE_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5106: RAISE OKE_API.G_EXCEPTION_ERROR;
5107: ELSIF lc_deliverable_num <> p_del_rec.deliverable_num THEN
5101: IF (lc_row_notfound) THEN
5102: OKE_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
5103: RAISE OKE_API.G_EXCEPTION_ERROR;
5104: ELSIF lc_deliverable_num > p_del_rec.deliverable_num THEN
5105: OKE_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5106: RAISE OKE_API.G_EXCEPTION_ERROR;
5107: ELSIF lc_deliverable_num <> p_del_rec.deliverable_num THEN
5108: OKE_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5109: RAISE OKE_API.G_EXCEPTION_ERROR;
5102: OKE_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
5103: RAISE OKE_API.G_EXCEPTION_ERROR;
5104: ELSIF lc_deliverable_num > p_del_rec.deliverable_num THEN
5105: OKE_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5106: RAISE OKE_API.G_EXCEPTION_ERROR;
5107: ELSIF lc_deliverable_num <> p_del_rec.deliverable_num THEN
5108: OKE_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5109: RAISE OKE_API.G_EXCEPTION_ERROR;
5110: ELSIF lc_deliverable_num = -1 THEN
5104: ELSIF lc_deliverable_num > p_del_rec.deliverable_num THEN
5105: OKE_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5106: RAISE OKE_API.G_EXCEPTION_ERROR;
5107: ELSIF lc_deliverable_num <> p_del_rec.deliverable_num THEN
5108: OKE_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5109: RAISE OKE_API.G_EXCEPTION_ERROR;
5110: ELSIF lc_deliverable_num = -1 THEN
5111: OKE_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
5112: RAISE OKE_API.G_EXCEPTION_ERROR;
5105: OKE_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5106: RAISE OKE_API.G_EXCEPTION_ERROR;
5107: ELSIF lc_deliverable_num <> p_del_rec.deliverable_num THEN
5108: OKE_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5109: RAISE OKE_API.G_EXCEPTION_ERROR;
5110: ELSIF lc_deliverable_num = -1 THEN
5111: OKE_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
5112: RAISE OKE_API.G_EXCEPTION_ERROR;
5113: END IF;
5107: ELSIF lc_deliverable_num <> p_del_rec.deliverable_num THEN
5108: OKE_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5109: RAISE OKE_API.G_EXCEPTION_ERROR;
5110: ELSIF lc_deliverable_num = -1 THEN
5111: OKE_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
5112: RAISE OKE_API.G_EXCEPTION_ERROR;
5113: END IF;
5114: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
5115: EXCEPTION
5108: OKE_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5109: RAISE OKE_API.G_EXCEPTION_ERROR;
5110: ELSIF lc_deliverable_num = -1 THEN
5111: OKE_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
5112: RAISE OKE_API.G_EXCEPTION_ERROR;
5113: END IF;
5114: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
5115: EXCEPTION
5116: WHEN OKE_API.G_EXCEPTION_ERROR THEN
5110: ELSIF lc_deliverable_num = -1 THEN
5111: OKE_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
5112: RAISE OKE_API.G_EXCEPTION_ERROR;
5113: END IF;
5114: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
5115: EXCEPTION
5116: WHEN OKE_API.G_EXCEPTION_ERROR THEN
5117: x_return_status := OKE_API.HANDLE_EXCEPTIONS
5118: (
5112: RAISE OKE_API.G_EXCEPTION_ERROR;
5113: END IF;
5114: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
5115: EXCEPTION
5116: WHEN OKE_API.G_EXCEPTION_ERROR THEN
5117: x_return_status := OKE_API.HANDLE_EXCEPTIONS
5118: (
5119: l_api_name,
5120: G_PKG_NAME,
5113: END IF;
5114: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
5115: EXCEPTION
5116: WHEN OKE_API.G_EXCEPTION_ERROR THEN
5117: x_return_status := OKE_API.HANDLE_EXCEPTIONS
5118: (
5119: l_api_name,
5120: G_PKG_NAME,
5121: 'OKE_API.G_RET_STS_ERROR',
5117: x_return_status := OKE_API.HANDLE_EXCEPTIONS
5118: (
5119: l_api_name,
5120: G_PKG_NAME,
5121: 'OKE_API.G_RET_STS_ERROR',
5122: x_msg_count,
5123: x_msg_data,
5124: '_PVT'
5125: );
5122: x_msg_count,
5123: x_msg_data,
5124: '_PVT'
5125: );
5126: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5127: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
5128: (
5129: l_api_name,
5130: G_PKG_NAME,
5123: x_msg_data,
5124: '_PVT'
5125: );
5126: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5127: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
5128: (
5129: l_api_name,
5130: G_PKG_NAME,
5131: 'OKE_API.G_RET_STS_UNEXP_ERROR',
5127: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
5128: (
5129: l_api_name,
5130: G_PKG_NAME,
5131: 'OKE_API.G_RET_STS_UNEXP_ERROR',
5132: x_msg_count,
5133: x_msg_data,
5134: '_PVT'
5135: );
5133: x_msg_data,
5134: '_PVT'
5135: );
5136: WHEN OTHERS THEN
5137: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
5138: (
5139: l_api_name,
5140: G_PKG_NAME,
5141: 'OTHERS',
5154: p_del_tbl IN del_tbl_type) IS
5155:
5156: l_api_version CONSTANT NUMBER := 1;
5157: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
5158: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
5159: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
5160: i NUMBER := 0;
5161: BEGIN
5162: OKE_API.init_msg_list(p_init_msg_list);
5155:
5156: l_api_version CONSTANT NUMBER := 1;
5157: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
5158: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
5159: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
5160: i NUMBER := 0;
5161: BEGIN
5162: OKE_API.init_msg_list(p_init_msg_list);
5163: -- Make sure PL/SQL table has records in it before passing
5158: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
5159: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
5160: i NUMBER := 0;
5161: BEGIN
5162: OKE_API.init_msg_list(p_init_msg_list);
5163: -- Make sure PL/SQL table has records in it before passing
5164: IF (p_del_tbl.COUNT > 0) THEN
5165: i := p_del_tbl.FIRST;
5166: LOOP
5172: x_msg_data => x_msg_data,
5173: p_del_rec => p_del_tbl(i));
5174:
5175: -- store the highest degree of error
5176: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
5177: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
5178: l_overall_status := x_return_status;
5179: End If;
5180: End If;
5173: p_del_rec => p_del_tbl(i));
5174:
5175: -- store the highest degree of error
5176: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
5177: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
5178: l_overall_status := x_return_status;
5179: End If;
5180: End If;
5181:
5185: -- return overall status
5186: x_return_status := l_overall_status;
5187: END IF;
5188: EXCEPTION
5189: WHEN OKE_API.G_EXCEPTION_ERROR THEN
5190: x_return_status := OKE_API.HANDLE_EXCEPTIONS
5191: (
5192: l_api_name,
5193: G_PKG_NAME,
5186: x_return_status := l_overall_status;
5187: END IF;
5188: EXCEPTION
5189: WHEN OKE_API.G_EXCEPTION_ERROR THEN
5190: x_return_status := OKE_API.HANDLE_EXCEPTIONS
5191: (
5192: l_api_name,
5193: G_PKG_NAME,
5194: 'OKE_API.G_RET_STS_ERROR',
5190: x_return_status := OKE_API.HANDLE_EXCEPTIONS
5191: (
5192: l_api_name,
5193: G_PKG_NAME,
5194: 'OKE_API.G_RET_STS_ERROR',
5195: x_msg_count,
5196: x_msg_data,
5197: '_PVT'
5198: );
5195: x_msg_count,
5196: x_msg_data,
5197: '_PVT'
5198: );
5199: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5200: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
5201: (
5202: l_api_name,
5203: G_PKG_NAME,
5196: x_msg_data,
5197: '_PVT'
5198: );
5199: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5200: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
5201: (
5202: l_api_name,
5203: G_PKG_NAME,
5204: 'OKE_API.G_RET_STS_UNEXP_ERROR',
5200: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
5201: (
5202: l_api_name,
5203: G_PKG_NAME,
5204: 'OKE_API.G_RET_STS_UNEXP_ERROR',
5205: x_msg_count,
5206: x_msg_data,
5207: '_PVT'
5208: );
5206: x_msg_data,
5207: '_PVT'
5208: );
5209: WHEN OTHERS THEN
5210: x_return_status :=OKE_API.HANDLE_EXCEPTIONS
5211: (
5212: l_api_name,
5213: G_PKG_NAME,
5214: 'OTHERS',