APPS.GMP_FORM_EFF_PKG dependencies on GMP_FORM_EFF

Line 1: PACKAGE BODY gmp_form_eff_pkg as

1: PACKAGE BODY gmp_form_eff_pkg as
2: /* $Header: GMPDLEFB.pls 115.6 2003/03/21 16:52:29 sgidugu noship $ */
3:
4: /* Put Global variables , type decalrations here */
5:

Line 36: FROM gmp_form_eff

32: cur_date DATE ;
33:
34: Cursor cur_creation_dates IS
35: SELECT distinct creation_date
36: FROM gmp_form_eff
37: ORDER BY creation_date DESC ;
38: /* order by desc so that data for last extract is NOT deleted */
39:
40: BEGIN

Line 132: || ' msc_process_effectivity'||p_dblink||' mpe ,gmp_form_eff ge'

128: IF p_validate = 1 THEN /* Validate = 'Yes' */
129: statement1 := 'SELECT 1 '
130: || ' FROM dual '
131: || ' WHERE EXISTS (SELECT 1 from '
132: || ' msc_process_effectivity'||p_dblink||' mpe ,gmp_form_eff ge'
133: || ' where (ge.aps_fmeff_id*2 + 1) = mpe.bill_sequence_id '
134: || ' and mpe.sr_instance_id = :p_instance_id '
135: || ' and mpe.plan_id = -1 '
136: || ' and trunc(ge.creation_date) = :p_cur_date )' ;

Line 148: || ' gmp_form_eff ge'

144: statement2 := ' SELECT distinct mp.compile_designator '
145: || ' from '
146: || ' msc_process_effectivity'||p_dblink||' mpe , '
147: || ' msc_plans'||p_dblink||' mp , '
148: || ' gmp_form_eff ge'
149: || ' where mpe.plan_id = mp.plan_id '
150: || ' and mpe.plan_id <> -1 '
151: || ' and (ge.aps_fmeff_id*2 + 1) = mpe.bill_sequence_id '
152: || ' and mpe.sr_instance_id = :p_instance_id '

Line 159: FND_FILE.PUT_LINE(FND_FILE.LOG,'Rows Exist in gmp_form_eff table, cannot delete effectivities for the following Plans --> '||v_plan_name);

155: OPEN Cur_plan_name FOR statement2 USING p_instance_id,trunc(p_cur_date);
156: LOOP
157: FETCH Cur_plan_name INTO v_plan_name;
158: EXIT WHEN Cur_plan_name%NOTFOUND;
159: FND_FILE.PUT_LINE(FND_FILE.LOG,'Rows Exist in gmp_form_eff table, cannot delete effectivities for the following Plans --> '||v_plan_name);
160: END LOOP;
161: CLOSE Cur_plan_name ;
162:
163: RAISE excp_eff_in_use ;

Line 173: || ' gmp_form_eff ge'

169: statement3 := ' SELECT distinct mp.compile_designator '
170: || ' from '
171: || ' msc_process_effectivity'||p_dblink||' mpe , '
172: || ' msc_plans'||p_dblink||' mp , '
173: || ' gmp_form_eff ge'
174: || ' where mpe.plan_id = mp.plan_id '
175: || ' and mpe.plan_id <> -1 '
176: || ' and (ge.aps_fmeff_id*2 + 1) = mpe.bill_sequence_id '
177: || ' and mpe.sr_instance_id = :p_instance_id '

Line 192: Delete from gmp_form_eff

188: END IF ; /* End if for Validate Flag check */
189:
190: WHILE (rows_deleted >0 )
191: LOOP
192: Delete from gmp_form_eff
193: where creation_date = p_cur_date
194: and rownum < 501 ;
195:
196: rows_deleted := SQL%ROWCOUNT ;

Line 210: FND_FILE.PUT_LINE(FND_FILE.LOG,'Rows Exist in gmp_form_eff table '||v_plan_name||'-'||p_cur_date);

206: FND_FILE.PUT_LINE(FND_FILE.LOG,'Number of rows Successfully deleted from collection run on '||to_char(p_cur_date,'DD-MON-YYYY HH24:MI:SS')||'= '||total_rows_deleted);
207:
208: EXCEPTION
209: WHEN excp_eff_in_use THEN
210: FND_FILE.PUT_LINE(FND_FILE.LOG,'Rows Exist in gmp_form_eff table '||v_plan_name||'-'||p_cur_date);
211: NULL ;
212: WHEN others THEN
213: errbuf := sqlcode ||' - '||sqlerrm;
214: retcode := -2 ;

Line 217: END gmp_form_eff_pkg;

213: errbuf := sqlcode ||' - '||sqlerrm;
214: retcode := -2 ;
215: END delete_data;
216:
217: END gmp_form_eff_pkg;
218: