1: PACKAGE BODY IEX_SCORE_COMPONENTS_PKG AS
2: /* $Header: iextscpb.pls 120.0 2004/01/24 03:22:47 appldev noship $ */
3:
4: /* Insert_Row procedure */
5: PG_DEBUG NUMBER(2) := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
19: ,p_PROGRAM_ID NUMBER
20: ,p_PROGRAM_UPDATE_DATE DATE
21: ,p_SCORE_COMP_TYPE_ID NUMBER
22: ) IS
23: CURSOR C IS SELECT ROWID FROM IEX_SCORE_COMPONENTS
24: WHERE SCORE_COMPONENT_ID = p_SCORE_COMPONENT_ID;
25:
26: BEGIN
27: INSERT INTO IEX_SCORE_COMPONENTS
23: CURSOR C IS SELECT ROWID FROM IEX_SCORE_COMPONENTS
24: WHERE SCORE_COMPONENT_ID = p_SCORE_COMPONENT_ID;
25:
26: BEGIN
27: INSERT INTO IEX_SCORE_COMPONENTS
28: (
29: SCORE_COMPONENT_ID
30: ,SCORE_COMP_WEIGHT
31: ,SCORE_ID
83: ,p_PROGRAM_UPDATE_DATE DATE
84: ,p_SCORE_COMP_TYPE_ID NUMBER
85: ) IS
86: BEGIN
87: UPDATE IEX_SCORE_COMPONENTS SET
88: SCORE_COMPONENT_ID = p_SCORE_COMPONENT_ID
89: ,SCORE_COMP_WEIGHT = p_SCORE_COMP_WEIGHT
90: ,SCORE_ID = p_SCORE_ID
91: ,ENABLED_FLAG = p_ENABLED_FLAG
108:
109: /* Delete_Row procedure */
110: PROCEDURE Delete_Row(x_rowid VARCHAR2) IS
111: BEGIN
112: DELETE FROM IEX_SCORE_COMPONENTS
113: WHERE rowid = x_rowid;
114:
115: if (sql%notfound) then
116: raise no_data_found;
133: ,p_PROGRAM_ID NUMBER
134: ,p_PROGRAM_UPDATE_DATE DATE
135: ,p_SCORE_COMP_TYPE_ID NUMBER
136: ) IS
137: CURSOR C IS SELECT * FROM IEX_SCORE_COMPONENTS
138: WHERE rowid = x_rowid
139: FOR UPDATE of SCORE_COMPONENT_ID NOWAIT;
140: Recinfo C%ROWTYPE;
141: BEGIN