[Home] [Help]
190:
191: -- Select All COA Items for a person
192: CURSOR person_coa_items (cp_base_id igf_ap_fa_base_rec_all.base_id%TYPE ) IS
193: SELECT DISTINCT item_code
194: FROM igf_aw_coa_items
195: WHERE base_id = cp_base_id ;
196: l_item_code person_coa_items%ROWTYPE;
197:
198: -- Count all terms for a person in the system
261: || (reverse chronological order - newest change first)
262: */
263:
264: CURSOR chk_dup_coa ( cp_base_id igf_ap_fa_base_rec_all.base_id%TYPE,
265: cp_item_code igf_aw_coa_items.item_code%TYPE) IS
266: SELECT 1
267: FROM igf_aw_coa_items
268: WHERE base_id = cp_base_id
269: AND item_code = cp_item_code ;
263:
264: CURSOR chk_dup_coa ( cp_base_id igf_ap_fa_base_rec_all.base_id%TYPE,
265: cp_item_code igf_aw_coa_items.item_code%TYPE) IS
266: SELECT 1
267: FROM igf_aw_coa_items
268: WHERE base_id = cp_base_id
269: AND item_code = cp_item_code ;
270: l_count chk_dup_coa%ROWTYPE ;
271:
392: */
393:
394: CURSOR del_coa_items( cp_base_id igf_aw_coa_itm_terms.base_id%TYPE) IS --,
395: SELECT rowid
396: FROM igf_aw_coa_items
397: WHERE base_id = cp_base_id ;
398: lv_rowid del_coa_items%ROWTYPE;
399:
400: BEGIN
399:
400: BEGIN
401: FOR lv_rowid IN del_coa_items ( p_base_id) --, p_item_code)
402: LOOP
403: igf_aw_coa_items_pkg.delete_row( x_rowid => lv_rowid.rowid);
404: END LOOP;
405:
406: EXCEPTION
407: WHEN OTHERS THEN
453: l_oss_terms_match BOOLEAN;
454: l_error igf_lookups_view.meaning%TYPE ;
455: l_person_number igf_lookups_view.meaning%TYPE ;
456: l_token VARCHAR2(60) ;
457: l_item_amount igf_aw_coa_items.amount%TYPE := 0;
458: lv_rowid ROWID ;
459: lv_term_rowid ROWID ;
460: l_last_coa igf_aw_coa_items.item_code%TYPE;
461: l_per_item_count NUMBER ;
456: l_token VARCHAR2(60) ;
457: l_item_amount igf_aw_coa_items.amount%TYPE := 0;
458: lv_rowid ROWID ;
459: lv_term_rowid ROWID ;
460: l_last_coa igf_aw_coa_items.item_code%TYPE;
461: l_per_item_count NUMBER ;
462: l_batch_valid VARCHAR2(1) ;
463: l_rec_type VARCHAR2(1) ;
464: l_recs_deleted BOOLEAN ;
521: -- cursor for items update
522: CURSOR cur_get_items (cp_base_id igf_aw_coa_itm_terms.base_id%TYPE,
523: cp_item_code igf_aw_coa_itm_terms.item_code%TYPE) IS
524: SELECT items.rowid,items.*
525: FROM igf_aw_coa_items items
526: WHERE base_id = cp_base_id
527: AND item_code = cp_item_code ;
528: l_item_rec cur_get_items%ROWTYPE ;
529:
534:
535: l_load_cal_type igs_ca_inst.cal_type%TYPE ;
536: l_load_seq_num igs_ca_inst.sequence_number%TYPE ;
537:
538: l_old_item igf_aw_coa_items.item_code%TYPE;
539:
540: BEGIN
541: igf_aw_gen.set_org_id(NULL);
542: errbuf := NULL;
959: l_item_amount := 0 ;
960:
961: BEGIN
962:
963: igf_aw_coa_items_pkg.insert_row(
964: x_rowid => lv_rowid,
965: x_base_id => l_fa_base_id,
966: x_item_code => person_rec.item_code,
967: x_amount => l_item_amount,
1026: OPEN cur_get_items ( l_fa_base_id, person_rec.item_code ) ;
1027: FETCH cur_get_items INTO l_item_rec ;
1028: CLOSE cur_get_items ;
1029:
1030: igf_aw_coa_items_pkg.update_row (
1031: x_rowid => l_item_rec.rowid,
1032: x_base_id => l_fa_base_id,
1033: x_item_code => l_item_rec.item_code,
1034: x_amount => l_item_amount,