eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.OE_VALIDATE_LINE_ADJ dependencies on FND_API

Line 18: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;

14: , p_old_Line_Adj_rec IN OE_Order_PUB.Line_Adj_Rec_Type :=
15: OE_Order_PUB.G_MISS_LINE_ADJ_REC
16: )
17: IS
18: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
19: l_price_adj_error VARCHAR2(30):= NULL;
20: l_tmp_string VARCHAR2(30):= NULL;
21: l_agr_type_code VARCHAR2(30):= NULL;
22: l_attribute_name VARCHAR2(50):= NULL;

Line 39: l_return_status := FND_API.G_RET_STS_ERROR;

35:
36: IF p_Line_Adj_rec.price_adjustment_id IS NULL
37: THEN
38:
39: l_return_status := FND_API.G_RET_STS_ERROR;
40:
41: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
42: THEN
43:

Line 59: l_return_status := FND_API.G_RET_STS_ERROR;

55:
56: IF p_Line_Adj_rec.header_id IS NULL
57: THEN
58:
59: l_return_status := FND_API.G_RET_STS_ERROR;
60:
61: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
62: THEN
63: oe_debug_pub.add(' Required Header Id');

Line 77: l_return_status := FND_API.G_RET_STS_ERROR;

73: IF p_Line_adj_rec.list_line_type_code not in ('COST','TAX')and
74: p_Line_adj_rec.list_header_id is null
75: THEN
76:
77: l_return_status := FND_API.G_RET_STS_ERROR;
78:
79: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
80: THEN
81: oe_debug_pub.add(' Required List Header');

Line 93: l_return_status := FND_API.G_RET_STS_ERROR;

89: stmt:=4;
90: IF p_Line_adj_rec.list_header_id is not null and
91: p_Line_adj_rec.list_line_id IS NULL THEN
92:
93: l_return_status := FND_API.G_RET_STS_ERROR;
94:
95: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
96: THEN
97: oe_debug_pub.add(' Required list line');

Line 110: l_return_status := FND_API.G_RET_STS_ERROR;

106: stmt:=5;
107: IF p_Line_adj_rec.list_header_id is not null and
108: p_Line_adj_rec.list_line_type_code IS NULL THEN
109:
110: l_return_status := FND_API.G_RET_STS_ERROR;
111:
112: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
113: THEN
114: oe_debug_pub.add(' Required list line type code');

Line 127: l_return_status := FND_API.G_RET_STS_ERROR;

123: IF p_Line_adj_rec.list_line_type_code in ('COST','TAX')and
124: p_Line_adj_rec.line_id is null
125: THEN
126:
127: l_return_status := FND_API.G_RET_STS_ERROR;
128:
129: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
130: THEN
131: oe_debug_pub.add(' Required line id');

Line 147: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

143: --
144:
145: -- Return Error if a required attribute is missing.
146:
147: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
148:
149: RAISE FND_API.G_EXC_ERROR;
150:
151: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

Line 149: RAISE FND_API.G_EXC_ERROR;

145: -- Return Error if a required attribute is missing.
146:
147: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
148:
149: RAISE FND_API.G_EXC_ERROR;
150:
151: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
152:
153: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 151: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

147: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
148:
149: RAISE FND_API.G_EXC_ERROR;
150:
151: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
152:
153: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
154:
155: END IF;

Line 153: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

149: RAISE FND_API.G_EXC_ERROR;
150:
151: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
152:
153: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
154:
155: END IF;
156:
157:

Line 183: l_return_status := FND_API.G_RET_STS_ERROR;

179: IF p_Line_adj_rec.ac_attribute6 IS NULL THEN
180: l_attribute_name := 'AETC Reason Code';
181: END IF;
182: IF l_attribute_name IS NOT NULL THEN
183: l_return_status := FND_API.G_RET_STS_ERROR;
184:
185: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
186: THEN
187: oe_debug_pub.add(' Required:'||l_attribute_name);

Line 203: l_return_status := FND_API.G_RET_STS_ERROR;

199: /* IF upper(p_Line_adj_rec.updated_flag) ='Y' and
200: upper(p_line_adj_rec.applied_flag) = 'Y' and
201: p_Line_adj_rec.change_reason_code is null THEN
202:
203: l_return_status := FND_API.G_RET_STS_ERROR;
204:
205: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
206: THEN
207: oe_debug_pub.add(' Required: change_reason_code');

Line 220: l_return_status := FND_API.G_RET_STS_ERROR;

216: stmt:=10;
217: IF p_Line_adj_rec.list_line_type_code = 'FREIGHT_CHARGE' and
218: p_Line_adj_rec.charge_type_code IS NULL THEN
219:
220: l_return_status := FND_API.G_RET_STS_ERROR;
221:
222: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
223: THEN
224: oe_debug_pub.add(' Required: CHARGE_TYPE_CODE');

Line 245: l_return_status := FND_API.G_RET_STS_ERROR;

241: p_Line_adj_rec.tax_rate_id IS NULL
242: )
243: THEN
244:
245: l_return_status := FND_API.G_RET_STS_ERROR;
246:
247: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
248: THEN
249: oe_debug_pub.add(' Required: tax code or tax_rate_id');

Line 264: l_return_status := FND_API.G_RET_STS_ERROR;

260: stmt:=12;
261: IF p_Line_adj_rec.list_line_type_code = 'COST' and
262: p_Line_adj_rec.cost_id IS NULL THEN
263:
264: l_return_status := FND_API.G_RET_STS_ERROR;
265:
266: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
267: THEN
268: oe_debug_pub.add(' Required: cost id');

Line 283: l_return_status := FND_API.G_RET_STS_ERROR;

279: IF p_Line_adj_rec.list_line_type_code in ('COST','TAX','FREIGHT_CHARGE') AND
280: p_Line_adj_rec.adjusted_amount IS NULL
281: THEN
282:
283: l_return_status := FND_API.G_RET_STS_ERROR;
284:
285: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
286: THEN
287:

Line 301: l_return_status := FND_API.G_RET_STS_ERROR;

297: IF p_Line_adj_rec.list_line_type_code in ('TAX','FREIGHT_CHARGE') AND
298: p_Line_adj_rec.operand IS NULL
299: THEN
300:
301: l_return_status := FND_API.G_RET_STS_ERROR;
302:
303: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
304: THEN
305:

Line 499: l_return_status := FND_API.G_RET_STS_ERROR;

495:
496: IF l_price_adj_error = 'IMP_DISCOUNT'
497: THEN
498:
499: l_return_status := FND_API.G_RET_STS_ERROR;
500:
501: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
502: THEN
503: oe_debug_pub.add(' Required: IMP_DISCOUN');

Line 509: RAISE FND_API.G_EXC_ERROR;

505: OE_MSG_PUB.Add;
506:
507: END IF;
508:
509: RAISE FND_API.G_EXC_ERROR;
510:
511: END IF;
512: */
513:

Line 540: l_return_status := FND_API.G_RET_STS_ERROR;

536: AND ENABLED_FLAG = 'Y';
537: EXCEPTION
538:
539: WHEN NO_DATA_FOUND THEN
540: l_return_status := FND_API.G_RET_STS_ERROR;
541: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_ATTRIBUTE');
542: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
543: OE_Order_Util.Get_Attribute_Name('CHARGE_SUBTYPE_CODE'));
544: oe_debug_pub.add(' Required CHARGE_SUBTYPE_CODE');

Line 556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

552: 'Record - Charge Type/Subtype validation'
553: );
554: END IF;
555: oe_debug_pub.add(' Failed:Record - Charge Type/Subtype validation');
556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
557: END;
558: END IF;
559:
560: IF (p_Line_adj_rec.list_line_type_code in ('COST','TAX')and

Line 566: l_return_status := FND_API.G_RET_STS_ERROR;

562: (p_Line_adj_rec.list_line_type_code = 'FREIGHT_CHARGE' and
563: p_Line_adj_rec.arithmetic_operator NOT IN ('AMT','LUMPSUM','%'))
564: THEN
565:
566: l_return_status := FND_API.G_RET_STS_ERROR;
567:
568: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
569: THEN
570: oe_debug_pub.add(' Error ARITHMETIC_OPERATOR');

Line 601: WHEN FND_API.G_EXC_ERROR THEN

597: x_return_status := l_return_status;
598: oe_debug_pub.add('Leaving oe_validate_line_adj.entity');
599: EXCEPTION
600:
601: WHEN FND_API.G_EXC_ERROR THEN
602:
603: x_return_status := FND_API.G_RET_STS_ERROR;
604:
605: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 603: x_return_status := FND_API.G_RET_STS_ERROR;

599: EXCEPTION
600:
601: WHEN FND_API.G_EXC_ERROR THEN
602:
603: x_return_status := FND_API.G_RET_STS_ERROR;
604:
605: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
606:
607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 605: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

601: WHEN FND_API.G_EXC_ERROR THEN
602:
603: x_return_status := FND_API.G_RET_STS_ERROR;
604:
605: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
606:
607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
608:
609: WHEN OTHERS THEN

Line 607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

603: x_return_status := FND_API.G_RET_STS_ERROR;
604:
605: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
606:
607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
608:
609: WHEN OTHERS THEN
610:
611: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 611: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
608:
609: WHEN OTHERS THEN
610:
611: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
612:
613: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
614: THEN
615: OE_MSG_PUB.Add_Exc_Msg

Line 634: x_return_status := FND_API.G_RET_STS_SUCCESS;

630: )
631: IS
632: BEGIN
633: oe_debug_pub.add('Entering OE_VALIDATE_LINE_ADJ.ATTRIBUTES');
634: x_return_status := FND_API.G_RET_STS_SUCCESS;
635:
636: -- Validate Line_Adj attributes
637:
638: IF p_Line_Adj_rec.price_adjustment_id IS NOT NULL AND

Line 645: x_return_status := FND_API.G_RET_STS_ERROR;

641: p_old_Line_Adj_rec.price_adjustment_id IS NULL )
642: THEN
643: IF NOT OE_Validate_adj.Price_Adjustment(p_Line_Adj_rec.price_adjustment_id) THEN
644: oe_debug_pub.add(' Error price_adjustment_id');
645: x_return_status := FND_API.G_RET_STS_ERROR;
646: END IF;
647: END IF;
648:
649: IF p_Line_Adj_rec.creation_date IS NOT NULL AND

Line 656: x_return_status := FND_API.G_RET_STS_ERROR;

652: p_old_Line_Adj_rec.creation_date IS NULL )
653: THEN
654: IF NOT OE_Validate_adj.Creation_Date(p_Line_Adj_rec.creation_date) THEN
655: oe_debug_pub.add(' Error creation_date');
656: x_return_status := FND_API.G_RET_STS_ERROR;
657: END IF;
658: END IF;
659:
660: IF p_Line_Adj_rec.created_by IS NOT NULL AND

Line 667: x_return_status := FND_API.G_RET_STS_ERROR;

663: p_old_Line_Adj_rec.created_by IS NULL )
664: THEN
665: IF NOT OE_Validate_adj.Created_By(p_Line_Adj_rec.created_by) THEN
666: oe_debug_pub.add(' Error created_by');
667: x_return_status := FND_API.G_RET_STS_ERROR;
668: END IF;
669: END IF;
670:
671: IF p_Line_Adj_rec.last_update_date IS NOT NULL AND

Line 678: x_return_status := FND_API.G_RET_STS_ERROR;

674: p_old_Line_Adj_rec.last_update_date IS NULL )
675: THEN
676: IF NOT OE_Validate_adj.Last_Update_Date(p_Line_Adj_rec.last_update_date) THEN
677: oe_debug_pub.add(' Error last_update_date');
678: x_return_status := FND_API.G_RET_STS_ERROR;
679: END IF;
680: END IF;
681:
682: IF p_Line_Adj_rec.last_updated_by IS NOT NULL AND

Line 689: x_return_status := FND_API.G_RET_STS_ERROR;

685: p_old_Line_Adj_rec.last_updated_by IS NULL )
686: THEN
687: IF NOT OE_Validate_adj.Last_Updated_By(p_Line_Adj_rec.last_updated_by) THEN
688: oe_debug_pub.add(' Error last_updated_by');
689: x_return_status := FND_API.G_RET_STS_ERROR;
690: END IF;
691: END IF;
692:
693: IF p_Line_Adj_rec.last_update_login IS NOT NULL AND

Line 700: x_return_status := FND_API.G_RET_STS_ERROR;

696: p_old_Line_Adj_rec.last_update_login IS NULL )
697: THEN
698: IF NOT OE_Validate_adj.Last_Update_Login(p_Line_Adj_rec.last_update_login) THEN
699: oe_debug_pub.add(' Error last_update_login');
700: x_return_status := FND_API.G_RET_STS_ERROR;
701: END IF;
702: END IF;
703:
704: IF p_Line_Adj_rec.program_application_id IS NOT NULL AND

Line 711: x_return_status := FND_API.G_RET_STS_ERROR;

707: p_old_Line_Adj_rec.program_application_id IS NULL )
708: THEN
709: IF NOT OE_Validate_adj.Program_Application(p_Line_Adj_rec.program_application_id) THEN
710: oe_debug_pub.add(' Error program_application_id');
711: x_return_status := FND_API.G_RET_STS_ERROR;
712: END IF;
713: END IF;
714:
715: IF p_Line_Adj_rec.program_id IS NOT NULL AND

Line 722: x_return_status := FND_API.G_RET_STS_ERROR;

718: p_old_Line_Adj_rec.program_id IS NULL )
719: THEN
720: IF NOT OE_Validate_adj.Program(p_Line_Adj_rec.program_id) THEN
721: oe_debug_pub.add(' Error program id');
722: x_return_status := FND_API.G_RET_STS_ERROR;
723: END IF;
724: END IF;
725:
726: IF p_Line_Adj_rec.program_update_date IS NOT NULL AND

Line 733: x_return_status := FND_API.G_RET_STS_ERROR;

729: p_old_Line_Adj_rec.program_update_date IS NULL )
730: THEN
731: IF NOT OE_Validate_adj.Program_Update_Date(p_Line_Adj_rec.program_update_date) THEN
732: oe_debug_pub.add(' Error program_update_date');
733: x_return_status := FND_API.G_RET_STS_ERROR;
734: END IF;
735: END IF;
736:
737: IF p_Line_Adj_rec.request_id IS NOT NULL AND

Line 744: x_return_status := FND_API.G_RET_STS_ERROR;

740: p_old_Line_Adj_rec.request_id IS NULL )
741: THEN
742: IF NOT OE_Validate_adj.Request(p_Line_Adj_rec.request_id) THEN
743: oe_debug_pub.add(' Error request id');
744: x_return_status := FND_API.G_RET_STS_ERROR;
745: END IF;
746: END IF;
747:
748: IF p_Line_Adj_rec.header_id IS NOT NULL AND

Line 755: x_return_status := FND_API.G_RET_STS_ERROR;

751: p_old_Line_Adj_rec.header_id IS NULL )
752: THEN
753: IF NOT OE_Validate_adj.Header(p_Line_Adj_rec.header_id) THEN
754: oe_debug_pub.add(' Error header_id');
755: x_return_status := FND_API.G_RET_STS_ERROR;
756: END IF;
757: END IF;
758:
759: IF p_Line_Adj_rec.discount_id IS NOT NULL AND

Line 766: x_return_status := FND_API.G_RET_STS_ERROR;

762: p_old_Line_Adj_rec.discount_id IS NULL )
763: THEN
764: IF NOT OE_Validate_adj.Discount(p_Line_Adj_rec.discount_id) THEN
765: oe_debug_pub.add(' Error discount_id');
766: x_return_status := FND_API.G_RET_STS_ERROR;
767: END IF;
768: END IF;
769:
770: IF p_Line_Adj_rec.discount_line_id IS NOT NULL AND

Line 776: x_return_status := FND_API.G_RET_STS_ERROR;

772: p_old_Line_Adj_rec.discount_line_id OR
773: p_old_Line_Adj_rec.discount_line_id IS NULL )
774: THEN
775: IF NOT OE_Validate_adj.Discount_Line(p_Line_Adj_rec.discount_line_id) THEN
776: x_return_status := FND_API.G_RET_STS_ERROR;
777: END IF;
778: END IF;
779: oe_debug_pub.add(' LLADB half way');
780: IF p_Line_Adj_rec.automatic_flag IS NOT NULL AND

Line 787: x_return_status := FND_API.G_RET_STS_ERROR;

783: p_old_Line_Adj_rec.automatic_flag IS NULL )
784: THEN
785: IF NOT OE_Validate_adj.Automatic(p_Line_Adj_rec.automatic_flag) THEN
786: oe_debug_pub.add(' Error automatic_flag');
787: x_return_status := FND_API.G_RET_STS_ERROR;
788: END IF;
789: END IF;
790:
791: IF p_Line_Adj_rec.percent IS NOT NULL AND

Line 798: x_return_status := FND_API.G_RET_STS_ERROR;

794: p_old_Line_Adj_rec.percent IS NULL )
795: THEN
796: IF NOT OE_Validate_adj.Percent(p_Line_Adj_rec.percent) THEN
797: oe_debug_pub.add(' Error percent');
798: x_return_status := FND_API.G_RET_STS_ERROR;
799: END IF;
800: END IF;
801:
802: IF p_Line_Adj_rec.line_id IS NOT NULL AND

Line 809: x_return_status := FND_API.G_RET_STS_ERROR;

805: p_old_Line_Adj_rec.line_id IS NULL )
806: THEN
807: IF NOT OE_Validate_adj.Line(p_Line_Adj_rec.line_id) THEN
808: oe_debug_pub.add(' Error line_id');
809: x_return_status := FND_API.G_RET_STS_ERROR;
810: END IF;
811: END IF;
812:
813: IF p_Line_Adj_rec.list_line_no IS NOT NULL AND

Line 820: x_return_status := FND_API.G_RET_STS_ERROR;

816: p_old_Line_Adj_rec.list_line_no IS NULL )
817: THEN
818: IF NOT oe_validate_adj.List_Line_No(p_Line_Adj_rec.list_line_no) THEN
819: oe_debug_pub.add(' Error list_line_no');
820: x_return_status := FND_API.G_RET_STS_ERROR;
821: END IF;
822: END IF;
823:
824: IF p_Line_Adj_rec.source_system_code IS NOT NULL AND

Line 831: x_return_status := FND_API.G_RET_STS_ERROR;

827: p_old_Line_Adj_rec.source_system_code IS NULL )
828: THEN
829: IF NOT oe_validate_adj.source_system_code(p_Line_Adj_rec.source_system_code) THEN
830: oe_debug_pub.add(' Error source_system_code');
831: x_return_status := FND_API.G_RET_STS_ERROR;
832: END IF;
833: END IF;
834:
835: IF p_Line_Adj_rec.benefit_qty IS NOT NULL AND

Line 842: x_return_status := FND_API.G_RET_STS_ERROR;

838: p_old_Line_Adj_rec.benefit_qty IS NULL )
839: THEN
840: IF NOT oe_validate_adj.benefit_qty(p_Line_Adj_rec.benefit_qty) THEN
841: oe_debug_pub.add(' Error benefit_qty');
842: x_return_status := FND_API.G_RET_STS_ERROR;
843: END IF;
844: END IF;
845:
846: IF p_Line_Adj_rec.benefit_uom_code IS NOT NULL AND

Line 853: x_return_status := FND_API.G_RET_STS_ERROR;

849: p_old_Line_Adj_rec.benefit_uom_code IS NULL )
850: THEN
851: IF NOT oe_validate_adj.benefit_uom_code(p_Line_Adj_rec.benefit_uom_code) THEN
852: oe_debug_pub.add(' Error benefit_uom_code');
853: x_return_status := FND_API.G_RET_STS_ERROR;
854: END IF;
855: END IF;
856:
857: IF p_Line_Adj_rec.print_on_invoice_flag IS NOT NULL AND

Line 864: x_return_status := FND_API.G_RET_STS_ERROR;

860: p_old_Line_Adj_rec.print_on_invoice_flag IS NULL )
861: THEN
862: IF NOT oe_validate_adj.print_on_invoice_flag(p_Line_Adj_rec.print_on_invoice_flag) THEN
863: oe_debug_pub.add(' Error print_on_invoice_flag');
864: x_return_status := FND_API.G_RET_STS_ERROR;
865: END IF;
866: END IF;
867:
868: IF p_Line_Adj_rec.expiration_date IS NOT NULL AND

Line 875: x_return_status := FND_API.G_RET_STS_ERROR;

871: p_old_Line_Adj_rec.expiration_date IS NULL )
872: THEN
873: IF NOT oe_validate_adj.expiration_date(p_Line_Adj_rec.expiration_date) THEN
874: oe_debug_pub.add(' Error expiration_date');
875: x_return_status := FND_API.G_RET_STS_ERROR;
876: END IF;
877: END IF;
878:
879: IF p_Line_Adj_rec.rebate_transaction_type_code IS NOT NULL AND

Line 886: x_return_status := FND_API.G_RET_STS_ERROR;

882: p_old_Line_Adj_rec.rebate_transaction_type_code IS NULL )
883: THEN
884: IF NOT oe_validate_adj.rebate_transaction_type_code(p_Line_Adj_rec.rebate_transaction_type_code) THEN
885: oe_debug_pub.add(' Error rebate_transaction_type_code');
886: x_return_status := FND_API.G_RET_STS_ERROR;
887: END IF;
888: END IF;
889:
890:

Line 897: x_return_status := FND_API.G_RET_STS_ERROR;

893: p_old_Line_Adj_rec.rebate_transaction_reference OR
894: p_old_Line_Adj_rec.rebate_transaction_reference IS NULL )
895: THEN
896: IF NOT oe_validate_adj.rebate_transaction_reference(p_Line_Adj_rec.rebate_transaction_reference) THEN
897: x_return_status := FND_API.G_RET_STS_ERROR;
898: END IF;
899: END IF;
900:
901: IF p_Line_Adj_rec.rebate_payment_system_code IS NOT NULL AND

Line 908: x_return_status := FND_API.G_RET_STS_ERROR;

904: p_old_Line_Adj_rec.rebate_payment_system_code IS NULL )
905: THEN
906: IF NOT oe_validate_adj.rebate_payment_system_code(p_Line_Adj_rec.rebate_payment_system_code) THEN
907: oe_debug_pub.add(' Error ebate_payment_system_code');
908: x_return_status := FND_API.G_RET_STS_ERROR;
909: END IF;
910: END IF;
911:
912: IF p_Line_Adj_rec.Redeemed_Date IS NOT NULL AND

Line 918: x_return_status := FND_API.G_RET_STS_ERROR;

914: p_old_Line_Adj_rec.Redeemed_Date OR
915: p_old_Line_Adj_rec.Redeemed_Date IS NULL )
916: THEN
917: IF NOT oe_validate_adj.Redeemed_Date(p_Line_Adj_rec.Redeemed_Date) THEN
918: x_return_status := FND_API.G_RET_STS_ERROR;
919: END IF;
920: END IF;
921:
922: IF p_Line_Adj_rec.redeemed_flag IS NOT NULL AND

Line 929: x_return_status := FND_API.G_RET_STS_ERROR;

925: p_old_Line_Adj_rec.redeemed_flag IS NULL )
926: THEN
927: IF NOT oe_validate_adj.Redeemed_Flag(p_Line_Adj_rec.redeemed_flag) THEN
928: oe_debug_pub.add(' Error redeemed_flag');
929: x_return_status := FND_API.G_RET_STS_ERROR;
930: END IF;
931: END IF;
932:
933: IF p_Line_Adj_rec.accrual_flag IS NOT NULL AND

Line 940: x_return_status := FND_API.G_RET_STS_ERROR;

936: p_old_Line_Adj_rec.accrual_flag IS NULL )
937: THEN
938: IF NOT oe_validate_adj.Accrual_Flag(p_Line_Adj_rec.accrual_flag) THEN
939: oe_debug_pub.add(' Error accrual_flag');
940: x_return_status := FND_API.G_RET_STS_ERROR;
941: END IF;
942: END IF;
943:
944: IF p_Line_Adj_rec.list_header_id IS NOT NULL AND

Line 951: x_return_status := FND_API.G_RET_STS_ERROR;

947: p_old_Line_Adj_rec.list_header_id IS NULL )
948: THEN
949: IF NOT OE_Validate_adj.list_header_id(p_Line_Adj_rec.list_header_id) THEN
950: oe_debug_pub.add(' Error list_header_id');
951: x_return_status := FND_API.G_RET_STS_ERROR;
952: END IF;
953: END IF;
954:
955: IF p_Line_Adj_rec.list_line_id IS NOT NULL AND

Line 962: x_return_status := FND_API.G_RET_STS_ERROR;

958: p_old_Line_Adj_rec.list_line_id IS NULL )
959: THEN
960: IF NOT OE_Validate_adj.list_line_id(p_Line_Adj_rec.list_line_id) THEN
961: oe_debug_pub.add(' Error list_line_id');
962: x_return_status := FND_API.G_RET_STS_ERROR;
963: END IF;
964: END IF;
965:
966: IF p_Line_Adj_rec.list_line_type_code IS NOT NULL AND

Line 973: x_return_status := FND_API.G_RET_STS_ERROR;

969: p_old_Line_Adj_rec.list_line_type_code IS NULL )
970: THEN
971: IF NOT OE_Validate_adj.list_line_type_code(p_Line_Adj_rec.list_line_type_code) THEN
972: oe_debug_pub.add(' Error list_line_type_code');
973: x_return_status := FND_API.G_RET_STS_ERROR;
974: END IF;
975: END IF;
976:
977: IF p_Line_Adj_rec.modified_from IS NOT NULL AND

Line 984: x_return_status := FND_API.G_RET_STS_ERROR;

980: p_old_Line_Adj_rec.modified_from IS NULL )
981: THEN
982: IF NOT OE_Validate_adj.modified_from(p_Line_Adj_rec.modified_from) THEN
983: oe_debug_pub.add(' Error modified_from');
984: x_return_status := FND_API.G_RET_STS_ERROR;
985: END IF;
986: END IF;
987:
988: IF p_Line_Adj_rec.modified_to IS NOT NULL AND

Line 995: x_return_status := FND_API.G_RET_STS_ERROR;

991: p_old_Line_Adj_rec.modified_to IS NULL )
992: THEN
993: IF NOT OE_Validate_adj.modified_to(p_Line_Adj_rec.modified_to) THEN
994: oe_debug_pub.add(' Error Modified to');
995: x_return_status := FND_API.G_RET_STS_ERROR;
996: END IF;
997: END IF;
998:
999: IF p_Line_Adj_rec.updated_flag IS NOT NULL AND

Line 1006: x_return_status := FND_API.G_RET_STS_ERROR;

1002: p_old_Line_Adj_rec.updated_flag IS NULL )
1003: THEN
1004: IF NOT OE_Validate_adj.updated_flag(p_Line_Adj_rec.updated_flag) THEN
1005: oe_debug_pub.add(' Error updated_flag');
1006: x_return_status := FND_API.G_RET_STS_ERROR;
1007: END IF;
1008: END IF;
1009:
1010: IF p_Line_Adj_rec.update_allowed IS NOT NULL AND

Line 1017: x_return_status := FND_API.G_RET_STS_ERROR;

1013: p_old_Line_Adj_rec.update_allowed IS NULL )
1014: THEN
1015: IF NOT OE_Validate_adj.update_allowed(p_Line_Adj_rec.update_allowed) THEN
1016: oe_debug_pub.add(' Erro update_allowed');
1017: x_return_status := FND_API.G_RET_STS_ERROR;
1018: END IF;
1019: END IF;
1020:
1021: IF p_Line_Adj_rec.applied_flag IS NOT NULL AND

Line 1028: x_return_status := FND_API.G_RET_STS_ERROR;

1024: p_old_Line_Adj_rec.applied_flag IS NULL )
1025: THEN
1026: IF NOT OE_Validate_adj.applied_flag(p_Line_Adj_rec.applied_flag) THEN
1027: oe_debug_pub.add(' Error Applied flag');
1028: x_return_status := FND_API.G_RET_STS_ERROR;
1029: END IF;
1030: END IF;
1031:
1032: IF p_Line_Adj_rec.applied_flag IS NOT NULL AND

Line 1038: x_return_status := FND_API.G_RET_STS_ERROR;

1034: p_old_Line_Adj_rec.applied_flag OR
1035: p_old_Line_Adj_rec.applied_flag IS NULL )
1036: THEN
1037: IF NOT OE_Validate_adj.applied_flag(p_Line_Adj_rec.applied_flag) THEN
1038: x_return_status := FND_API.G_RET_STS_ERROR;
1039: END IF;
1040: END IF;
1041:
1042: IF p_Line_Adj_rec.change_reason_code IS NOT NULL AND

Line 1049: x_return_status := FND_API.G_RET_STS_ERROR;

1045: p_old_Line_Adj_rec.change_reason_code IS NULL )
1046: THEN
1047: IF NOT OE_Validate_adj.change_reason_code(p_Line_Adj_rec.change_reason_code) THEN
1048: oe_debug_pub.add(' Error change_reason_code');
1049: x_return_status := FND_API.G_RET_STS_ERROR;
1050: END IF;
1051: END IF;
1052:
1053: IF p_Line_Adj_rec.change_reason_text IS NOT NULL AND

Line 1060: x_return_status := FND_API.G_RET_STS_ERROR;

1056: p_old_Line_Adj_rec.change_reason_text IS NULL )
1057: THEN
1058: IF NOT OE_Validate_adj.change_reason_text(p_Line_Adj_rec.change_reason_text) THEN
1059: oe_debug_pub.add(' Error change reason code');
1060: x_return_status := FND_API.G_RET_STS_ERROR;
1061: END IF;
1062: END IF;
1063:
1064: IF p_Line_Adj_rec.adjusted_amount IS NOT NULL AND

Line 1072: x_return_status := FND_API.G_RET_STS_ERROR;

1068: THEN
1069: IF NOT OE_Validate_adj.Adjusted_Amount(p_Line_Adj_rec.adjusted_amount)
1070: THEN
1071: oe_debug_pub.add(' Error adjusted_amount');
1072: x_return_status := FND_API.G_RET_STS_ERROR;
1073: END IF;
1074: END IF;
1075:
1076: IF p_Line_Adj_rec.pricing_phase_id IS NOT NULL AND

Line 1083: x_return_status := FND_API.G_RET_STS_ERROR;

1079: p_old_Line_Adj_rec.pricing_phase_id IS NULL )
1080: THEN
1081: IF NOT OE_Validate_adj.Pricing_Phase_id(p_Line_Adj_rec.pricing_phase_id) THEN
1082: oe_debug_pub.add(' Error Pricing phase id');
1083: x_return_status := FND_API.G_RET_STS_ERROR;
1084: END IF;
1085: END IF;
1086:
1087: IF p_Line_Adj_rec.operand IS NOT NULL AND

Line 1094: x_return_status := FND_API.G_RET_STS_ERROR;

1090: p_old_Line_Adj_rec.operand IS NULL )
1091: THEN
1092: IF NOT OE_Validate_adj.operand(p_Line_Adj_rec.operand) THEN
1093: oe_debug_pub.add(' Error Operand');
1094: x_return_status := FND_API.G_RET_STS_ERROR;
1095: END IF;
1096: END IF;
1097:
1098: IF p_Line_Adj_rec.arithmetic_operator IS NOT NULL AND

Line 1105: x_return_status := FND_API.G_RET_STS_ERROR;

1101: p_old_Line_Adj_rec.arithmetic_operator IS NULL )
1102: THEN
1103: IF NOT OE_Validate_adj.arithmetic_operator(p_Line_Adj_rec.arithmetic_operator) THEN
1104: oe_debug_pub.add(' Err arithmetic ope');
1105: x_return_status := FND_API.G_RET_STS_ERROR;
1106: END IF;
1107: END IF;
1108:
1109: IF p_Line_Adj_rec.range_break_quantity IS NOT NULL AND

Line 1116: x_return_status := FND_API.G_RET_STS_ERROR;

1112: p_old_Line_Adj_rec.range_break_quantity IS NULL )
1113: THEN
1114: IF NOT OE_Validate_adj.range_break_quantity(p_Line_Adj_rec.range_break_quantity) THEN
1115: oe_debug_pub.add(' Err range_break_quanti');
1116: x_return_status := FND_API.G_RET_STS_ERROR;
1117: END IF;
1118: END IF;
1119:
1120: IF p_Line_Adj_rec.accrual_conversion_rate IS NOT NULL AND

Line 1127: x_return_status := FND_API.G_RET_STS_ERROR;

1123: p_old_Line_Adj_rec.accrual_conversion_rate IS NULL )
1124: THEN
1125: IF NOT OE_Validate_adj.accrual_conversion_rate(p_Line_Adj_rec.accrual_conversion_rate) THEN
1126: oe_debug_pub.add(' Erro accrual_conversion');
1127: x_return_status := FND_API.G_RET_STS_ERROR;
1128: END IF;
1129: END IF;
1130:
1131: IF p_Line_Adj_rec.pricing_group_sequence IS NOT NULL AND

Line 1138: x_return_status := FND_API.G_RET_STS_ERROR;

1134: p_old_Line_Adj_rec.pricing_group_sequence IS NULL )
1135: THEN
1136: IF NOT OE_Validate_adj.pricing_group_sequence(p_Line_Adj_rec.pricing_group_sequence) THEN
1137: oe_debug_pub.add(' Error pricing_group_sequence');
1138: x_return_status := FND_API.G_RET_STS_ERROR;
1139: END IF;
1140: END IF;
1141:
1142: IF p_Line_Adj_rec.modifier_level_code IS NOT NULL AND

Line 1149: x_return_status := FND_API.G_RET_STS_ERROR;

1145: p_old_Line_Adj_rec.modifier_level_code IS NULL )
1146: THEN
1147: IF NOT OE_Validate_adj.modifier_level_code(p_Line_Adj_rec.modifier_level_code) THEN
1148: oe_debug_pub.add(' Error modifier_level_code');
1149: x_return_status := FND_API.G_RET_STS_ERROR;
1150: END IF;
1151: END IF;
1152:
1153: IF p_Line_Adj_rec.price_break_type_code IS NOT NULL AND

Line 1160: x_return_status := FND_API.G_RET_STS_ERROR;

1156: p_old_Line_Adj_rec.price_break_type_code IS NULL )
1157: THEN
1158: IF NOT OE_Validate_adj.price_break_type_code(p_Line_Adj_rec.price_break_type_code) THEN
1159: oe_debug_pub.add(' Erro price break type code');
1160: x_return_status := FND_API.G_RET_STS_ERROR;
1161: END IF;
1162: END IF;
1163:
1164: IF p_Line_Adj_rec.substitution_attribute IS NOT NULL AND

Line 1170: x_return_status := FND_API.G_RET_STS_ERROR;

1166: p_old_Line_Adj_rec.substitution_attribute OR
1167: p_old_Line_Adj_rec.substitution_attribute IS NULL )
1168: THEN
1169: IF NOT OE_Validate_adj.substitution_attribute(p_Line_Adj_rec.substitution_attribute) THEN
1170: x_return_status := FND_API.G_RET_STS_ERROR;
1171: END IF;
1172: END IF;
1173:
1174: IF p_Line_Adj_rec.proration_type_code IS NOT NULL AND

Line 1180: x_return_status := FND_API.G_RET_STS_ERROR;

1176: p_old_Line_Adj_rec.proration_type_code OR
1177: p_old_Line_Adj_rec.proration_type_code IS NULL )
1178: THEN
1179: IF NOT OE_Validate_adj.proration_type_code(p_Line_Adj_rec.proration_type_code) THEN
1180: x_return_status := FND_API.G_RET_STS_ERROR;
1181: END IF;
1182: END IF;
1183:
1184: IF p_Line_Adj_rec.credit_or_charge_flag IS NOT NULL AND

Line 1190: x_return_status := FND_API.G_RET_STS_ERROR;

1186: p_old_Line_Adj_rec.credit_or_charge_flag OR
1187: p_old_Line_Adj_rec.credit_or_charge_flag IS NULL )
1188: THEN
1189: IF NOT OE_Validate.credit_or_charge_flag(p_Line_Adj_rec.credit_or_charge_flag) THEN
1190: x_return_status := FND_API.G_RET_STS_ERROR;
1191: END IF;
1192: END IF;
1193:
1194: IF p_Line_Adj_rec.cost_id IS NOT NULL AND

Line 1200: x_return_status := FND_API.G_RET_STS_ERROR;

1196: p_old_Line_Adj_rec.cost_id OR
1197: p_old_Line_Adj_rec.cost_id IS NULL )
1198: THEN
1199: IF NOT OE_Validate.cost_id(p_Line_Adj_rec.cost_id) THEN
1200: x_return_status := FND_API.G_RET_STS_ERROR;
1201: END IF;
1202: END IF;
1203:
1204: IF p_Line_Adj_rec.charge_type_code IS NOT NULL AND

Line 1211: x_return_status := FND_API.G_RET_STS_ERROR;

1207: p_old_Line_Adj_rec.charge_type_code IS NULL )
1208: THEN
1209: IF NOT OE_Validate.charge_type_code(p_Line_Adj_rec.charge_type_code) THEN
1210: oe_debug_pub.add(' Error charge_type_Code');
1211: x_return_status := FND_API.G_RET_STS_ERROR;
1212: END IF;
1213: END IF;
1214:
1215: IF p_Line_Adj_rec.charge_subtype_code IS NOT NULL AND

Line 1221: x_return_status := FND_API.G_RET_STS_ERROR;

1217: p_old_Line_Adj_rec.charge_subtype_code OR
1218: p_old_Line_Adj_rec.charge_subtype_code IS NULL )
1219: THEN
1220: IF NOT OE_Validate.charge_subtype_code(p_Line_Adj_rec.charge_subtype_code) THEN
1221: x_return_status := FND_API.G_RET_STS_ERROR;
1222: END IF;
1223: END IF;
1224:
1225: IF p_Line_Adj_rec.estimated_flag IS NOT NULL AND

Line 1231: x_return_status := FND_API.G_RET_STS_ERROR;

1227: p_old_Line_Adj_rec.estimated_flag OR
1228: p_old_Line_Adj_rec.estimated_flag IS NULL )
1229: THEN
1230: IF NOT OE_Validate.estimated(p_Line_Adj_rec.estimated_flag) THEN
1231: x_return_status := FND_API.G_RET_STS_ERROR;
1232: END IF;
1233: END IF;
1234:
1235: -- eBTax Changes

Line 1242: x_return_status := FND_API.G_RET_STS_ERROR;

1238: p_old_line_adj_rec.tax_rate_id OR
1239: p_old_line_adj_rec.tax_rate_id IS NULL )
1240: THEN
1241: IF NOT OE_Validate.tax_rate_id(p_line_adj_rec.tax_rate_id) THEN
1242: x_return_status := FND_API.G_RET_STS_ERROR;
1243: END IF;
1244: END IF;
1245: -- end eBTax changes
1246:

Line 1255: x_return_status := FND_API.G_RET_STS_ERROR;

1251: p_old_Line_Adj_rec.invoiced_flag IS NULL )
1252: THEN
1253: IF NOT OE_Validate.invoiced(p_Line_Adj_rec.invoiced_flag) THEN
1254: oe_debug_pub.add(' Error invoiced flag');
1255: x_return_status := FND_API.G_RET_STS_ERROR;
1256: END IF;
1257: END IF;
1258: if OE_GLOBALS.g_validate_desc_flex ='Y' then --bug4343612
1259: oe_debug_pub.add('Validation of desc flex is set to Y in OE_Validate_Line_Adj.attributes ',1);

Line 1346: x_return_status := FND_API.G_RET_STS_ERROR;

1342: ,p_attribute14 => p_Line_Adj_rec.attribute14
1343: ,p_attribute15 => p_Line_Adj_rec.attribute15) THEN
1344:
1345:
1346: x_return_status := FND_API.G_RET_STS_ERROR;
1347:
1348: END IF;
1349:
1350: oe_debug_pub.add('After Line Adjustment desc_flex ' || x_return_status);

Line 1360: WHEN FND_API.G_EXC_ERROR THEN

1356: -- Done validating attributes
1357: end if ; /* if OE_GLOBALS.g_validate_desc_flex ='Y' then bug4343612 */
1358: EXCEPTION
1359:
1360: WHEN FND_API.G_EXC_ERROR THEN
1361:
1362: x_return_status := FND_API.G_RET_STS_ERROR;
1363:
1364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 1362: x_return_status := FND_API.G_RET_STS_ERROR;

1358: EXCEPTION
1359:
1360: WHEN FND_API.G_EXC_ERROR THEN
1361:
1362: x_return_status := FND_API.G_RET_STS_ERROR;
1363:
1364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1365:
1366: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1360: WHEN FND_API.G_EXC_ERROR THEN
1361:
1362: x_return_status := FND_API.G_RET_STS_ERROR;
1363:
1364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1365:
1366: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1367:
1368: WHEN OTHERS THEN

Line 1366: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1362: x_return_status := FND_API.G_RET_STS_ERROR;
1363:
1364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1365:
1366: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1367:
1368: WHEN OTHERS THEN
1369:
1370: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1370: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1366: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1367:
1368: WHEN OTHERS THEN
1369:
1370: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1371:
1372: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1373: THEN
1374: OE_MSG_PUB.Add_Exc_Msg

Line 1389: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;

1385: ( x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1386: , p_Line_Adj_rec IN OE_Order_PUB.Line_Adj_Rec_Type
1387: )
1388: IS
1389: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1390: BEGIN
1391:
1392: -- Validate entity delete.
1393:

Line 1402: WHEN FND_API.G_EXC_ERROR THEN

1398: x_return_status := l_return_status;
1399:
1400: EXCEPTION
1401:
1402: WHEN FND_API.G_EXC_ERROR THEN
1403:
1404: x_return_status := FND_API.G_RET_STS_ERROR;
1405:
1406: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 1404: x_return_status := FND_API.G_RET_STS_ERROR;

1400: EXCEPTION
1401:
1402: WHEN FND_API.G_EXC_ERROR THEN
1403:
1404: x_return_status := FND_API.G_RET_STS_ERROR;
1405:
1406: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1407:
1408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1406: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1402: WHEN FND_API.G_EXC_ERROR THEN
1403:
1404: x_return_status := FND_API.G_RET_STS_ERROR;
1405:
1406: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1407:
1408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1409:
1410: WHEN OTHERS THEN

Line 1408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1404: x_return_status := FND_API.G_RET_STS_ERROR;
1405:
1406: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1407:
1408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1409:
1410: WHEN OTHERS THEN
1411:
1412: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1412: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1409:
1410: WHEN OTHERS THEN
1411:
1412: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1413:
1414: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1415: THEN
1416: OE_MSG_PUB.Add_Exc_Msg