1: PACKAGE BODY HZ_STOCK_MARKETS_PKG as
2: /* $Header: ARHOSMTB.pls 120.3 2005/10/30 04:21:14 appldev ship $ */
3:
4:
5: PROCEDURE Insert_Row(
18: x_PROGRAM_ID NUMBER,
19: x_PROGRAM_UPDATE_DATE DATE,
20: x_WH_UPDATE_DATE DATE
21: ) IS
22: CURSOR C IS SELECT rowid FROM HZ_STOCK_MARKETS
23: WHERE STOCK_EXCHANGE_ID = x_STOCK_EXCHANGE_ID;
24: BEGIN
25: INSERT INTO HZ_STOCK_MARKETS(
26: STOCK_EXCHANGE_ID,
21: ) IS
22: CURSOR C IS SELECT rowid FROM HZ_STOCK_MARKETS
23: WHERE STOCK_EXCHANGE_ID = x_STOCK_EXCHANGE_ID;
24: BEGIN
25: INSERT INTO HZ_STOCK_MARKETS(
26: STOCK_EXCHANGE_ID,
27: COUNTRY_OF_RESIDENCE,
28: STOCK_EXCHANGE_CODE,
29: STOCK_EXCHANGE_NAME,
64:
65: PROCEDURE Delete_Row( x_STOCK_EXCHANGE_ID NUMBER
66: ) IS
67: BEGIN
68: DELETE FROM HZ_STOCK_MARKETS
69: WHERE STOCK_EXCHANGE_ID = x_STOCK_EXCHANGE_ID;
70: If (SQL%NOTFOUND) then
71: RAISE NO_DATA_FOUND;
72: End If;
91: x_PROGRAM_UPDATE_DATE DATE,
92: x_WH_UPDATE_DATE DATE
93: ) IS
94: BEGIN
95: Update HZ_STOCK_MARKETS
96: SET
97: STOCK_EXCHANGE_ID = decode( x_STOCK_EXCHANGE_ID, FND_API.G_MISS_NUM,STOCK_EXCHANGE_ID,x_STOCK_EXCHANGE_ID),
98: COUNTRY_OF_RESIDENCE = decode( x_COUNTRY_OF_RESIDENCE, FND_API.G_MISS_CHAR,COUNTRY_OF_RESIDENCE,x_COUNTRY_OF_RESIDENCE),
99: STOCK_EXCHANGE_CODE = decode( x_STOCK_EXCHANGE_CODE, FND_API.G_MISS_CHAR,STOCK_EXCHANGE_CODE,x_STOCK_EXCHANGE_CODE),
138: x_WH_UPDATE_DATE DATE
139: ) IS
140: CURSOR C IS
141: SELECT *
142: FROM HZ_STOCK_MARKETS
143: WHERE rowid = x_Rowid
144: FOR UPDATE of STOCK_EXCHANGE_ID NOWAIT;
145: Recinfo C%ROWTYPE;
146: BEGIN
202: APP_EXCEPTION.RAISE_EXCEPTION;
203: End If;
204: END Lock_Row;
205:
206: END HZ_STOCK_MARKETS_PKG;