[Home] [Help]
1: package body PSP_DISTRIBUTION_INTERFACE_PKG as
2: -- $Header: PSPPIPGB.pls 115.7 2003/07/24 16:56:15 spchakra ship $
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_DISTRIBUTION_INTERFACE_ID in NUMBER,
43: X_BUSINESS_GROUP_ID IN NUMBER,
44: X_SET_OF_BOOKS_ID IN NUMBER,
45: X_CURRENCY_CODE IN VARCHAR2 -- Introduced for bug fix 2916848
46: ) is
47: cursor C is select ROWID from PSP_DISTRIBUTION_INTERFACE
48: where DISTRIBUTION_INTERFACE_ID = X_DISTRIBUTION_INTERFACE_ID
49: and BATCH_NAME = X_BATCH_NAME
50: and business_group_id = x_business_group_id
51: and set_of_books_id = x_set_of_books_id;
69: else
70: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
71: app_exception.raise_exception;
72: end if;
73: insert into PSP_DISTRIBUTION_INTERFACE (
74: DISTRIBUTION_INTERFACE_ID,
75: PERSON_ID,
76: ASSIGNMENT_ID,
77: ELEMENT_TYPE_ID,
254: GMS_POSTING_OVERRIDE_DATE,
255: business_group_id,
256: set_of_books_id,
257: currency_code -- Introduced for bug fix 2916848
258: from PSP_DISTRIBUTION_INTERFACE
259: where DISTRIBUTION_INTERFACE_ID = X_DISTRIBUTION_INTERFACE_ID
260: and BATCH_NAME = X_BATCH_NAME
261: and business_group_id = x_business_group_id
262: and set_of_books_id = x_set_of_books_id
425: else
426: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
427: app_exception.raise_exception;
428: end if;
429: update PSP_DISTRIBUTION_INTERFACE set
430: PERSON_ID = X_PERSON_ID,
431: ASSIGNMENT_ID = X_ASSIGNMENT_ID,
432: ELEMENT_TYPE_ID = X_ELEMENT_TYPE_ID,
433: DISTRIBUTION_DATE = X_DISTRIBUTION_DATE,
521: X_BUSINESS_GROUP_ID in NUMBER,
522: X_SET_OF_BOOKS_ID in NUMBER,
523: X_CURRENCY_CODE IN VARCHAR2 -- Introduced for bug fix 2916848
524: ) is
525: cursor c1 is select rowid from PSP_DISTRIBUTION_INTERFACE
526: where DISTRIBUTION_INTERFACE_ID = X_DISTRIBUTION_INTERFACE_ID
527: and BATCH_NAME = X_BATCH_NAME
528: and business_group_id = x_business_group_id
529: and set_of_books_id = x_set_of_books_id
632: X_BUSINESS_GROUP_ID in NUMBER,
633: X_SET_OF_BOOKS_ID in NUMBER
634: ) is
635: begin
636: delete from PSP_DISTRIBUTION_INTERFACE
637: where DISTRIBUTION_INTERFACE_ID = X_DISTRIBUTION_INTERFACE_ID
638: and BATCH_NAME = X_BATCH_NAME
639: and BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID
640: and SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID;
642: raise no_data_found;
643: end if;
644: end DELETE_ROW;
645:
646: end PSP_DISTRIBUTION_INTERFACE_PKG;