APPS.FUN_NET_AGREEMENTS_PKG dependencies on FUN_NET_AGREEMENTS

Line 1: PACKAGE BODY FUN_NET_AGREEMENTS_PKG AS

1: PACKAGE BODY FUN_NET_AGREEMENTS_PKG AS
2: /* $Header: funntagb.pls 120.0 2005/12/09 08:31:09 vgadde noship $ */
3:
4: PROCEDURE Insert_Row (
5: x_agreement_id IN OUT NOCOPY NUMBER,

Line 46: l_agreement_id fun_net_agreements_all.agreement_id%TYPE;

42: x_attribute19 IN VARCHAR2,
43: x_attribute20 IN VARCHAR2
44: ) IS
45:
46: l_agreement_id fun_net_agreements_all.agreement_id%TYPE;
47: BEGIN
48:
49: IF x_agreement_id IS NULL THEN
50: SELECT fun_net_agreements_s.NEXTVAL INTO l_agreement_id FROM DUAL;

Line 50: SELECT fun_net_agreements_s.NEXTVAL INTO l_agreement_id FROM DUAL;

46: l_agreement_id fun_net_agreements_all.agreement_id%TYPE;
47: BEGIN
48:
49: IF x_agreement_id IS NULL THEN
50: SELECT fun_net_agreements_s.NEXTVAL INTO l_agreement_id FROM DUAL;
51: x_agreement_id := l_agreement_id;
52: ELSE
53: l_agreement_id := x_agreement_id;
54: END IF;

Line 56: INSERT INTO fun_net_agreements (

52: ELSE
53: l_agreement_id := x_agreement_id;
54: END IF;
55:
56: INSERT INTO fun_net_agreements (
57: agreement_id,
58: object_version_number,
59: agreement_name,
60: partner_reference,

Line 200: UPDATE fun_net_agreements SET

196: ) IS
197:
198: BEGIN
199:
200: UPDATE fun_net_agreements SET
201: agreement_id = x_agreement_id,
202: object_version_number = x_object_version_number,
203: agreement_name = x_agreement_name,
204: partner_reference = x_partner_reference,

Line 256: UPDATE fun_net_agreements

252: x_agreement_id IN NUMBER,
253: x_in_process_flag IN VARCHAR2) IS
254: PRAGMA AUTONOMOUS_TRANSACTION;
255: BEGIN
256: UPDATE fun_net_agreements
257: SET in_process_flag = x_in_process_flag
258: WHERE agreement_id = x_agreement_id;
259:
260: IF SQL%FOUND THEN

Line 391: FROM fun_net_agreements

387: x_attribute17,
388: x_attribute18,
389: x_attribute19,
390: x_attribute20
391: FROM fun_net_agreements
392: WHERE agreement_id = x_agreement_id;
393:
394: IF ( SQL%NOTFOUND ) THEN
395: RAISE NO_DATA_FOUND;

Line 407: DELETE fun_net_agreements

403: ) IS
404:
405: BEGIN
406:
407: DELETE fun_net_agreements
408: WHERE agreement_id = x_agreement_id;
409:
410: IF ( SQL%NOTFOUND ) THEN
411: RAISE NO_DATA_FOUND;

Line 417: END FUN_NET_AGREEMENTS_PKG;

413:
414: END Delete_Row;
415:
416:
417: END FUN_NET_AGREEMENTS_PKG;