[Home] [Help]
1: PACKAGE BODY HZ_FINANCIAL_PROFILE_PKG as
2: /* $Header: ARHPFPTB.pls 120.3 2005/10/30 03:53:56 appldev ship $ */
3:
4:
5: PROCEDURE Insert_Row(
25: x_PROGRAM_UPDATE_DATE DATE,
26: x_WH_UPDATE_DATE DATE,
27: x_STATUS VARCHAR2
28: ) IS
29: CURSOR C IS SELECT rowid FROM HZ_FINANCIAL_PROFILE
30: WHERE FINANCIAL_PROFILE_ID = x_FINANCIAL_PROFILE_ID;
31: BEGIN
32:
33: INSERT INTO HZ_FINANCIAL_PROFILE(
29: CURSOR C IS SELECT rowid FROM HZ_FINANCIAL_PROFILE
30: WHERE FINANCIAL_PROFILE_ID = x_FINANCIAL_PROFILE_ID;
31: BEGIN
32:
33: INSERT INTO HZ_FINANCIAL_PROFILE(
34: FINANCIAL_PROFILE_ID,
35: ACCESS_AUTHORITY_DATE,
36: ACCESS_AUTHORITY_GRANTED,
37: BALANCE_AMOUNT,
88:
89: PROCEDURE Delete_Row( x_FINANCIAL_PROFILE_ID NUMBER
90: ) IS
91: BEGIN
92: DELETE FROM HZ_FINANCIAL_PROFILE
93: WHERE FINANCIAL_PROFILE_ID = x_FINANCIAL_PROFILE_ID ;
94: If (SQL%NOTFOUND) then
95: RAISE NO_DATA_FOUND;
96: End If;
122: x_WH_UPDATE_DATE DATE,
123: x_STATUS VARCHAR2
124: ) IS
125: BEGIN
126: Update HZ_FINANCIAL_PROFILE
127: SET
128: FINANCIAL_PROFILE_ID = decode( x_FINANCIAL_PROFILE_ID, FND_API.G_MISS_NUM,FINANCIAL_PROFILE_ID,x_FINANCIAL_PROFILE_ID),
129: ACCESS_AUTHORITY_DATE = decode( x_ACCESS_AUTHORITY_DATE, FND_API.G_MISS_DATE,ACCESS_AUTHORITY_DATE,x_ACCESS_AUTHORITY_DATE),
130: ACCESS_AUTHORITY_GRANTED = decode( x_ACCESS_AUTHORITY_GRANTED, FND_API.G_MISS_CHAR,ACCESS_AUTHORITY_GRANTED,x_ACCESS_AUTHORITY_GRANTED),
183: x_STATUS VARCHAR2
184: ) IS
185: CURSOR C IS
186: SELECT *
187: FROM HZ_FINANCIAL_PROFILE
188: WHERE rowid = x_Rowid
189: FOR UPDATE of FINANCIAL_PROFILE_ID NOWAIT;
190: Recinfo C%ROWTYPE;
191: BEGIN
268: APP_EXCEPTION.RAISE_EXCEPTION;
269: End If;
270: END Lock_Row;
271:
272: END HZ_FINANCIAL_PROFILE_PKG;