1: PACKAGE BODY IGC_CC_PO_HEADERS_ALL_PVT AS
2: /*$Header: IGCCPHDB.pls 120.3.12000000.2 2007/12/06 14:58:57 bmaddine ship $*/
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'IGC_CC_PO_HEADERS_ALL_PVT';
5:
1: PACKAGE BODY IGC_CC_PO_HEADERS_ALL_PVT AS
2: /*$Header: IGCCPHDB.pls 120.3.12000000.2 2007/12/06 14:58:57 bmaddine ship $*/
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'IGC_CC_PO_HEADERS_ALL_PVT';
5:
6: -- The flag determines whether to print debug information or not.
7: g_debug_flag VARCHAR2(1) := 'N' ;
8:
19: x_return_status OUT NOCOPY VARCHAR2,
20: x_msg_count OUT NOCOPY NUMBER,
21: x_msg_data OUT NOCOPY VARCHAR2,
22: ----------------------------------------------
23: p_po_headers_rec IN po_headers_all%ROWTYPE
24: )
25: IS
26:
27: l_api_name CONSTANT VARCHAR2(30) := 'Insert_Row';
45:
46: x_return_status := FND_API.G_RET_STS_SUCCESS ;
47:
48:
49: INSERT INTO po_headers_all (
50: po_header_id ,
51: agent_id ,
52: type_lookup_code ,
53: last_update_date ,
361: x_return_status OUT NOCOPY VARCHAR2,
362: x_msg_count OUT NOCOPY NUMBER,
363: x_msg_data OUT NOCOPY VARCHAR2,
364: ---------------------------------------------------
365: p_po_headers_rec IN po_headers_all%ROWTYPE
366: )
367: IS
368:
369: l_api_name CONSTANT VARCHAR2(30) := 'Update_Row';
387: END IF;
388:
389: x_return_status := FND_API.G_RET_STS_SUCCESS ;
390:
391: UPDATE PO_HEADERS_ALL
392: SET
393: po_header_id = p_po_headers_rec.po_header_id,
394: agent_id = p_po_headers_rec.agent_id,
395: type_lookup_code = p_po_headers_rec.type_lookup_code,
566:
567: END Update_Row;
568: /* ----------------------------------------------------------------------- */
569:
570: END IGC_CC_PO_HEADERS_ALL_PVT;