[Home] [Help]
4: /*
5: || Created By : Sridhar
6: || Created On : 25-NOV-2000
7: || Purpose : Package creates a flat file with header,corrected records and trailer
8: || to be sent to CPS. After the file is created igf_ap_isir_corr,
9: || igf_ap_fa_base_rec tables are updated to change the correction_status.
10: || Known limitations, enhancements or remarks :
11: || Change History :
12: || Who When What
25: || (reverse chronological order - newest change first)
26: */
27:
28:
29: gn_isir_id igf_ap_isir_corr.isir_id%TYPE;
30: gv_s_email igf_ap_isir_matched.s_email_address%TYPE;
31: gv_corr_rec VARCHAR2(1000);
32: gv_trailer VARCHAR2(1000);
33: gv_header VARCHAR2(1000);
71:
72:
73: CURSOR corrs ( cp_corr_status VARCHAR2 ) IS
74: SELECT isir_id, sar_field_number, original_value, corrected_value
75: FROM igf_ap_isir_corr
76: WHERE correction_status = cp_corr_status
77: AND isir_id = gn_isir_id;
78:
79: CURSOR corr_hold IS
77: AND isir_id = gn_isir_id;
78:
79: CURSOR corr_hold IS
80: SELECT 'x'
81: FROM igf_ap_isir_corr
82: WHERE
83: correction_status = 'HOLD' AND
84: isir_id = gn_isir_id and
85: rownum = 1;
97: AND isirm.base_id = NVL(p_base_id, isirm.base_id)
98: AND far.ci_cal_type = gv_cal_type
99: AND far.ci_sequence_number = gn_sequence_number
100: AND isirm.isir_id IN (SELECT DISTINCT c.isir_id
101: FROM igf_ap_isir_corr_all c
102: WHERE c.correction_status = 'READY' );
103:
104:
105: CURSOR cur_corr_isir (gn_baseid NUMBER ,
959: /*
960: || Created By : Sridhar
961: || Created On : 25-NOV-2000
962: || Purpose : Updates the status of the records written into output file to batched
963: || in IGF_AP_ISIR_CORR and IGF_AP_FA_BASE_REC tables.
964: || Known limitations, enhancements or remarks :
965: || Change History :
966: || Who When What
967: || ugummall 26-SEP-2003 FA 126 - Multiple FA Offices.
978: || (reverse chronological order - newest change first)
979: */
980: CURSOR corr_rec ( cp_corr_stat VARCHAR2) IS
981: SELECT corr.*
982: FROM igf_ap_isir_corr corr
983: WHERE isir_id = gn_isir_id
984: AND correction_status = cp_corr_stat ;
985:
986: CURSOR get_baserec IS
989: WHERE base_id = gn_baseid;
990:
991: pn_rec corr_rec%ROWTYPE;
992: base_rec get_baserec%ROWTYPE;
993: corr_stat igf_ap_isir_corr.correction_status%TYPE;
994: lv_curdate DATE;
995: l_corr_stat VARCHAR2(30) ;
996:
997: BEGIN
1003: LOOP
1004:
1005: FETCH corr_rec INTO pn_rec;
1006: EXIT WHEN corr_rec%NOTFOUND;
1007: IF NOT igf_ap_isir_corr_pkg.get_uk_for_validation (pn_rec.isir_id,
1008: pn_rec.sar_field_number,
1009: corr_stat)
1010: THEN
1011:
1008: pn_rec.sar_field_number,
1009: corr_stat)
1010: THEN
1011:
1012: igf_ap_isir_corr_pkg.update_row(
1013: x_mode => 'R',
1014: x_rowid => pn_rec.row_id,
1015: x_isirc_id => pn_rec.isirc_id,
1016: x_isir_id => pn_rec.isir_id,
1201:
1202: -- Bug 4403807 - removed the condition isir.payment_isir = 'Y'
1203: CURSOR get_cnt ( cp_corr_stat VARCHAR2) IS
1204: SELECT COUNT(*)
1205: FROM igf_ap_isir_corr corr,
1206: igf_ap_isir_matched isir
1207: WHERE corr.correction_status = cp_corr_stat
1208: AND corr.isir_id = isir.isir_id
1209: AND isir.system_record_type = 'ORIGINAL'