1: PACKAGE BODY GML_PO_SYNCH AS
2: /* $Header: GMLPOSYB.pls 120.1 2005/06/21 00:19:19 appldev ship $ */
3:
4: v_lang VARCHAR2(10) := 'ENG';
5:
586: IF (v_orgn_code IS NULL) OR
587: (GML_VALIDATE_PO.val_orgn_code(v_orgn_code) = FALSE) THEN
588:
589: IF v_result = TRUE THEN /*if this is the first validation error*/
590: GML_PO_SYNCH.errlog_header( v_po_no, v_line_num, v_shipment_num,
591: v_revision_count, v_last_update_date);
592: END IF;
593:
594: FND_MESSAGE.set_name('GML', 'PO_BAD_ORG');
604: IF (v_of_payvend_site_id IS NULL) OR
605: (GML_VALIDATE_PO.val_vendor(v_of_payvend_site_id, v_co_code) = FALSE) THEN
606:
607: IF v_result = TRUE THEN /*if this is the first validation error*/
608: GML_PO_SYNCH.errlog_header( v_po_no, v_line_num, v_shipment_num,
609: v_revision_count, v_last_update_date);
610: END IF;
611:
612: FND_MESSAGE.set_name('GML', 'PO_BAD_PAY_VEND');
623: IF (v_of_shipvend_site_id IS NULL) OR
624: (GML_VALIDATE_PO.val_vendor(v_of_shipvend_site_id, v_co_code) = FALSE) THEN
625:
626: IF v_result = TRUE THEN /*if this is the first validation error*/
627: GML_PO_SYNCH.errlog_header( v_po_no, v_line_num, v_shipment_num,
628: v_revision_count, v_last_update_date);
629: END IF;
630:
631: FND_MESSAGE.set_name('GML', 'PO_BAD_SHIP_VEND');
641: (GML_VALIDATE_PO.val_warehouse(v_to_whse,v_orgn_code) = FALSE) THEN
642:
643:
644: IF v_result = TRUE THEN /*if this is the first validation error*/
645: GML_PO_SYNCH.errlog_header( v_po_no, v_line_num, v_shipment_num,
646: v_revision_count, v_last_update_date);
647: END IF;
648:
649: FND_MESSAGE.set_name('GML', 'PO_BAD_TO_WHSE');
658: IF (v_billing_currency IS NULL) OR (v_billing_currency = ' ') OR
659: (GML_VALIDATE_PO.val_currency (v_billing_currency)=FALSE) THEN
660:
661: IF v_result = TRUE THEN /*if this is the first validation error*/
662: GML_PO_SYNCH.errlog_header( v_po_no, v_line_num, v_shipment_num,
663: v_revision_count, v_last_update_date);
664: END IF;
665:
666: FND_MESSAGE.set_name('GML', 'PO_BAD_BILL_CURR');
676: IF (v_item_no IS NULL) OR (v_item_no = ' ') OR
677: (GML_VALIDATE_PO.val_item (v_item_no) = FALSE) THEN
678:
679: IF v_result = TRUE THEN /*if this is the first validation error*/
680: GML_PO_SYNCH.errlog_header( v_po_no, v_line_num, v_shipment_num,
681: v_revision_count, v_last_update_date);
682: END IF;
683:
684: FND_MESSAGE.set_name('GML', 'PO_BAD_ITEM');
694: IF (v_order_um1 IS NULL) OR (v_order_um1 = ' ') OR
695: (GML_VALIDATE_PO.val_uom (v_order_um1) = FALSE) THEN
696:
697: IF v_result = TRUE THEN /*if this is the first validation error*/
698: GML_PO_SYNCH.errlog_header( v_po_no, v_line_num, v_shipment_num,
699: v_revision_count, v_last_update_date);
700: END IF;
701:
702: FND_MESSAGE.set_name('GML', 'PO_BAD_UM1');
712: IF (v_price_um IS NULL) OR (v_price_um = ' ') OR
713: (GML_VALIDATE_PO.val_uom (v_price_um)=FALSE) THEN
714:
715: IF v_result = TRUE THEN /*if this is the first validation error*/
716: GML_PO_SYNCH.errlog_header( v_po_no, v_line_num, v_shipment_num,
717: v_revision_count, v_last_update_date);
718: END IF;
719:
720: FND_MESSAGE.set_name('GML', 'PO_BAD_PRICE');
732: IF (v_order_um2 IS NOT NULL) AND (v_order_um2 <> ' ') AND
733: (GML_VALIDATE_PO.val_uom( v_order_um2) = FALSE ) THEN
734:
735: IF v_result = TRUE THEN /*if this is the first validation error*/
736: GML_PO_SYNCH.errlog_header( v_po_no, v_line_num, v_shipment_num,
737: v_revision_count, v_last_update_date);
738: END IF;
739:
740: FND_MESSAGE.set_name('GML', 'PO_BAD_UM2');
750: IF (v_item_um IS NOT NULL) AND (v_item_um <> ' ') AND
751: (GML_VALIDATE_PO.val_uom( v_item_um) = FALSE) THEN
752:
753: IF v_result = TRUE THEN /*if this is the first validation error*/
754: GML_PO_SYNCH.errlog_header( v_po_no, v_line_num, v_shipment_num,
755: v_revision_count, v_last_update_date);
756: END IF;
757:
758: FND_MESSAGE.set_name('GML', 'PO_BAD_ITEM_UM');
768: IF (v_from_whse IS NOT NULL) AND (v_from_whse <> ' ') AND
769: (GML_VALIDATE_PO.val_warehouse(v_from_whse,v_orgn_code) = FALSE) THEN
770:
771: IF v_result = TRUE THEN /*if this is the first validation error*/
772: GML_PO_SYNCH.errlog_header( v_po_no, v_line_num, v_shipment_num,
773: v_revision_count, v_last_update_date);
774: END IF;
775:
776: FND_MESSAGE.set_name('GML', 'PO_BAD_FROM_WHSE');
786: IF (v_shipper_code IS NOT NULL) AND (v_shipper_code <> ' ') AND
787: (GML_VALIDATE_PO.val_shipper_code(v_shipper_code)= FALSE ) THEN
788:
789: IF v_result = TRUE THEN /*if this is the first validation error*/
790: GML_PO_SYNCH.errlog_header( v_po_no, v_line_num, v_shipment_num,
791: v_revision_count, v_last_update_date);
792: END IF;
793:
794: FND_MESSAGE.set_name('GML', 'PO_BAD_SHIPPER');
804: IF (v_of_frtbill_mthd IS NOT NULL) AND (v_of_frtbill_mthd <> ' ') AND
805: (GML_VALIDATE_PO.val_frtbill_mthd( v_of_frtbill_mthd) = FALSE ) THEN
806:
807: IF v_result = TRUE THEN /*if this is the first validation error*/
808: GML_PO_SYNCH.errlog_header( v_po_no, v_line_num, v_shipment_num,
809: v_revision_count, v_last_update_date);
810: END IF;
811:
812: FND_MESSAGE.set_name('GML', 'PO_BAD_FRTB');
822: IF (v_of_terms_code IS NOT NULL) AND (v_of_terms_code <> ' ') AND
823: (GML_VALIDATE_PO.val_terms_code(v_of_terms_code) = FALSE ) THEN
824:
825: IF v_result = TRUE THEN /*if this is the first validation error*/
826: GML_PO_SYNCH.errlog_header( v_po_no, v_line_num, v_shipment_num,
827: v_revision_count, v_last_update_date);
828: END IF;
829:
830: FND_MESSAGE.set_name('GML', 'PO_BAD_TERMS');
842: IF (v_qc_grade_wanted IS NOT NULL) AND (v_qc_grade_wanted <> ' ') AND
843: (GML_VALIDATE_PO.val_qc_grade_wanted(v_qc_grade_wanted) = FALSE ) THEN
844:
845: IF v_result = TRUE THEN /*if this is the first validation error*/
846: GML_PO_SYNCH.errlog_header( v_po_no, v_line_num, v_shipment_num,
847: v_revision_count, v_last_update_date);
848: END IF;
849:
850: FND_MESSAGE.set_name('GML', 'PO_BAD_QC');
1070:
1071:
1072: FOR aqcst_rec IN aqcst_cur LOOP
1073:
1074: v_new_aqcst_line := GML_PO_SYNCH.new_aqcst_line
1075: (v_doc_type,v_po_id, v_line_id, aqcst_rec.aqui_cost_id);
1076: /* T. Ricci 5/12/98 GEMMS 5.0 changes for who columns*/
1077:
1078: IF v_new_aqcst_line THEN
1255: | appropriate system constants |
1256: | 03/NOV/98 Tony Ricci added calls to |
1257: | GML_PO_GLDIST.receive_data to |
1258: | perform GL mapping |
1259: | 06/NOV/98 Tony Ricci removed call to GML_PO_SYNCH. |
1260: | cpg_conv_duom and replaced with |
1261: | GMICUOM.icuomcv which is the OPM |
1262: | standard uom conversion |
1263: | 11/10/98 Tony Ricci set trans_cnt on insert to '0' |
1809: END IF;
1810:
1811: /* T Ricci 5/12/98 changed date_modified to last_update_date*/
1812:
1813: IF GML_PO_SYNCH.gemms_validate(
1814: int_rec.orgn_code,
1815: int_rec.of_payvend_site_id,
1816: int_rec.of_shipvend_site_id,
1817: int_rec.to_whse,
1989: CLOSE terms_code_cur;
1990:
1991: /* if the first encounter with a PO, insert the header*/
1992: /* Liz Enstone 18/AUG/98 Include orgn code parameter*/
1993: IF GML_PO_SYNCH.new_po_hdr(v_po_no,int_rec.orgn_code) THEN
1994: BEGIN
1995:
1996:
1997: GML_PO_SYNCH.next_po_id(v_new_po_id, v_doc_type, int_rec.orgn_code,
1993: IF GML_PO_SYNCH.new_po_hdr(v_po_no,int_rec.orgn_code) THEN
1994: BEGIN
1995:
1996:
1997: GML_PO_SYNCH.next_po_id(v_new_po_id, v_doc_type, int_rec.orgn_code,
1998: v_next_id_status);
1999: IF v_next_id_status=FALSE THEN
2000: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2001: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error getting next po_id');
2182: FETCH po_id_cur INTO v_po_id;
2183: CLOSE po_id_cur;
2184:
2185: /* 11/6/1998 T. Ricci commented*/
2186: /* GML_PO_SYNCH.cpg_conv_duom
2187: (v_item_id,
2188: int_rec.order_um1,
2189: int_rec.order_qty1,
2190: v_item_um2,
2215: v_order2 := 0;
2216: END IF;
2217:
2218:
2219: IF GML_PO_SYNCH.new_line(int_rec.po_header_id, int_rec.po_line_id,
2220: int_rec.po_line_location_id) THEN
2221: BEGIN
2222:
2223: /* insert the line location information*/
2221: BEGIN
2222:
2223: /* insert the line location information*/
2224:
2225: GML_PO_SYNCH.next_line_id('PO', v_new_line_id, v_next_id_status);
2226: IF (v_next_id_status=FALSE) THEN
2227: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2228: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error getting next line_id');
2229: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2239: the line number is in oracle.Modified to take oracle line number
2240: instead.
2241: */
2242:
2243: /* v_line_no := GML_PO_SYNCH.get_line_no(v_po_id) + 1; */
2244:
2245: v_line_no := GML_PO_SYNCH.get_line_no( v_po_id,
2246: int_rec.po_header_id,
2247: int_rec.po_line_id,
2241: */
2242:
2243: /* v_line_no := GML_PO_SYNCH.get_line_no(v_po_id) + 1; */
2244:
2245: v_line_no := GML_PO_SYNCH.get_line_no( v_po_id,
2246: int_rec.po_header_id,
2247: int_rec.po_line_id,
2248: int_rec.po_line_location_id,
2249: int_rec.transaction_type);
2474: FETCH co_code_cur
2475: INTO v_co_code;
2476: CLOSE co_code_cur;
2477:
2478: GML_PO_SYNCH.next_trans_id(v_new_trans_id, v_next_id_status);
2479: IF v_next_id_status=FALSE THEN
2480: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2481: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error getting next trans_id');
2482: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2653: END IF; /* Bug 3019986 ic_summ_inv_view_exists */
2654:
2655: /* Synchronize Acquisition Costs from Oracle */
2656:
2657: GML_PO_SYNCH.cpg_aqcst_mv
2658: (int_rec.po_header_id,
2659: int_rec.po_line_id,
2660: int_rec.po_line_location_id,
2661: v_po_id,
2976:
2977: END IF; /*nvl(v_old_po_status,0) <> 20*/
2978:
2979:
2980: GML_PO_SYNCH.cpg_aqcst_mv
2981: (int_rec.po_header_id,
2982: int_rec.po_line_id,
2983: int_rec.po_line_location_id,
2984: v_po_id,
3549: END; /*cancel/close*/
3550:
3551: END IF; /* int_rec.po_status NOT IN (...) */
3552:
3553: GML_PO_SYNCH.cpg_aqcst_mv
3554: (int_rec.po_header_id,
3555: int_rec.po_line_id,
3556: int_rec.po_line_location_id,
3557: v_po_id,
3635:
3636: END cpg_int2gms;
3637:
3638:
3639: END GML_PO_SYNCH;