[Home] [Help]
1: PACKAGE BODY LNS_DISB_LINES_PKG AS
2: /* $Header: LNS_DSBLN_TBLH_B.pls 120.2 2005/07/26 14:52:57 scherkas noship $ */
3:
4: /* Insert_Row procedure */
5: PROCEDURE Insert_Row(
23: ,P_INVOICE_INTERFACE_ID IN NUMBER
24: ,P_INVOICE_ID IN NUMBER
25: ) IS
26: BEGIN
27: INSERT INTO LNS_DISB_LINES
28: (
29: DISB_LINE_ID
30: ,DISB_HEADER_ID
31: ,DISB_LINE_NUMBER
45: ,LAST_UPDATE_LOGIN
46: ,INVOICE_INTERFACE_ID
47: ,INVOICE_ID
48: ) VALUES (
49: DECODE(X_DISB_LINE_ID, FND_API.G_MISS_NUM, LNS_DISB_LINES_S.NEXTVAL, NULL, LNS_DISB_LINES_S.NEXTVAL, X_DISB_LINE_ID)
50: ,DECODE(P_DISB_HEADER_ID, FND_API.G_MISS_NUM, NULL, P_DISB_HEADER_ID)
51: ,DECODE(P_DISB_LINE_NUMBER, FND_API.G_MISS_NUM, NULL, P_DISB_LINE_NUMBER)
52: ,DECODE(P_LINE_AMOUNT, FND_API.G_MISS_NUM, NULL, P_LINE_AMOUNT)
53: ,DECODE(P_LINE_PERCENT, FND_API.G_MISS_NUM, NULL, P_LINE_PERCENT)
91: ,P_INVOICE_INTERFACE_ID IN NUMBER
92: ,P_INVOICE_ID IN NUMBER
93: ) IS
94: BEGIN
95: UPDATE LNS_DISB_LINES SET
96: DISB_HEADER_ID = DECODE(P_DISB_HEADER_ID, NULL, DISB_HEADER_ID, FND_API.G_MISS_NUM, NULL, P_DISB_HEADER_ID)
97: ,DISB_LINE_NUMBER = DECODE(P_DISB_LINE_NUMBER, NULL, DISB_LINE_NUMBER, FND_API.G_MISS_NUM, NULL, P_DISB_LINE_NUMBER)
98: ,LINE_AMOUNT = DECODE(P_LINE_AMOUNT, NULL, LINE_AMOUNT, FND_API.G_MISS_NUM, NULL, P_LINE_AMOUNT)
99: ,LINE_PERCENT = DECODE(P_LINE_PERCENT, NULL, LINE_PERCENT, FND_API.G_MISS_NUM, NULL, P_LINE_PERCENT)
118:
119: /* Delete_Row procedure */
120: PROCEDURE Delete_Row(P_DISB_LINE_ID IN NUMBER) IS
121: BEGIN
122: DELETE FROM LNS_DISB_LINES
123: WHERE DISB_LINE_ID = P_DISB_LINE_ID;
124:
125: if (sql%notfound) then
126: raise no_data_found;
148: ,P_LAST_UPDATE_LOGIN IN NUMBER
149: ,P_INVOICE_INTERFACE_ID IN NUMBER
150: ,P_INVOICE_ID IN NUMBER
151: ) IS
152: CURSOR C IS SELECT * FROM LNS_DISB_LINES
153: WHERE DISB_LINE_ID = P_DISB_LINE_ID
154: FOR UPDATE of DISB_LINE_ID NOWAIT;
155: Recinfo C%ROWTYPE;
156: BEGIN