[Home] [Help]
74: -- c) Removed the hard coded strings from the cursors.
75: ---------------------------------------------------------------------------------
76: -- gmuralid 03-07-2003 Bug 2995944 - Legacy Part 3 - FFELP Import
77: -- Added legacy record flag as parameter to
78: -- igf_sl_loans_pkg
79: ---------------------------------------------------------------------------------
80: -- sjadhav 20-Jun-2003 Bug 2983181
81: -- Added debug log messages
82: ---------------------------------------------------------------------------------
88: -- Changed Disb Gross Amt to Disb Accepted Amt
89: -- to insert into igf_sl_awd_disb table
90: ---------------------------------------------------------------------------------
91: -- agairola 15-Mar-2002 Modified the Update Row of
92: -- IGF_SL_LOANS_PKG for Borrower's
93: -- Determination as part of
94: -- Refunds DLD 2144600
95: ---------------------------------------------------------------------------------
96: -- masehgal 17-Feb-2002 # 2216956 FACR007
177: Format_1_rec igf_sl_load_file_t%ROWTYPE;
178: Format_1_rec_temp igf_sl_load_file_t%ROWTYPE;
179: loaded_1rec cur_resp1_records%ROWTYPE;
180: g_cbth_id igf_sl_cl_batch_all.cbth_id%TYPE;
181: l_loan_number igf_sl_loans_all.loan_number%TYPE;
182: p_disb_title VARCHAR2(1000);
183: p_disb_under_line VARCHAR2(1000);
184:
185: TYPE tab_title IS TABLE OF VARCHAR2(1000) INDEX BY BINARY_INTEGER;
196:
197:
198: --Procedure Declarations
199:
200: PROCEDURE insert_into_resp1(p_loan_number igf_sl_loans_all.loan_number%TYPE,
201: p_resp_record_status igf_sl_cl_resp_r1_all.resp_record_status%TYPE,
202: p_rec_type_ind igf_sl_cl_resp_r1_all.rec_type_ind%TYPE);
203:
204: PROCEDURE process_1_records;
203:
204: PROCEDURE process_1_records;
205:
206: PROCEDURE update_lor(p_clrp1_id igf_sl_cl_resp_r1_all.clrp1_id%TYPE,
207: p_loan_number igf_sl_loans_all.loan_number%TYPE,
208: p_rejected_rec BOOLEAN);
209:
210: PROCEDURE compare_disbursements(p_loan_number igf_sl_loans_all.loan_number%TYPE);
211:
206: PROCEDURE update_lor(p_clrp1_id igf_sl_cl_resp_r1_all.clrp1_id%TYPE,
207: p_loan_number igf_sl_loans_all.loan_number%TYPE,
208: p_rejected_rec BOOLEAN);
209:
210: PROCEDURE compare_disbursements(p_loan_number igf_sl_loans_all.loan_number%TYPE);
211:
212: --
213: -- Declaration of a Procedure for inserting the @4 Records as per New DLD
214: --
219: --
220: -- Procedure to show the difference in information bet OFA and File Details
221: --
222: PROCEDURE show_alt_details(p_clrp1_id igf_sl_cl_resp_r1_all.clrp1_id%TYPE,
223: p_loan_id igf_sl_loans_all.loan_id%TYPE);
224:
225: -- procedure for enabling statement level logging
226: PROCEDURE log_to_fnd ( p_v_module IN VARCHAR2,
227: p_v_string IN VARCHAR2
270: p_d_ci_end_dt IN igs_ca_inst_all.end_dt%TYPE,
271: p_v_person_number IN hz_parties.party_number%TYPE,
272: p_v_person_name IN hz_parties.party_name%TYPE,
273: p_v_ssn IN igf_ap_isir_ints_all.current_ssn_txt%TYPE,
274: p_v_loan_number IN igf_sl_loans_all.loan_number%TYPE,
275: p_d_loan_per_begin_date IN igf_sl_loans_all.loan_per_begin_date%TYPE,
276: p_d_loan_per_end_date IN igf_sl_loans_all.loan_per_end_date%TYPE,
277: p_v_loan_type IN igf_aw_fund_cat_all.fed_fund_code%TYPE,
278: p_n_award_accept_amt IN igf_aw_award_all.accepted_amt%TYPE,
271: p_v_person_number IN hz_parties.party_number%TYPE,
272: p_v_person_name IN hz_parties.party_name%TYPE,
273: p_v_ssn IN igf_ap_isir_ints_all.current_ssn_txt%TYPE,
274: p_v_loan_number IN igf_sl_loans_all.loan_number%TYPE,
275: p_d_loan_per_begin_date IN igf_sl_loans_all.loan_per_begin_date%TYPE,
276: p_d_loan_per_end_date IN igf_sl_loans_all.loan_per_end_date%TYPE,
277: p_v_loan_type IN igf_aw_fund_cat_all.fed_fund_code%TYPE,
278: p_n_award_accept_amt IN igf_aw_award_all.accepted_amt%TYPE,
279: p_n_guarantee_amt IN igf_sl_cl_resp_r1_all.guarantee_amt%TYPE,
272: p_v_person_name IN hz_parties.party_name%TYPE,
273: p_v_ssn IN igf_ap_isir_ints_all.current_ssn_txt%TYPE,
274: p_v_loan_number IN igf_sl_loans_all.loan_number%TYPE,
275: p_d_loan_per_begin_date IN igf_sl_loans_all.loan_per_begin_date%TYPE,
276: p_d_loan_per_end_date IN igf_sl_loans_all.loan_per_end_date%TYPE,
277: p_v_loan_type IN igf_aw_fund_cat_all.fed_fund_code%TYPE,
278: p_n_award_accept_amt IN igf_aw_award_all.accepted_amt%TYPE,
279: p_n_guarantee_amt IN igf_sl_cl_resp_r1_all.guarantee_amt%TYPE,
280: p_n_approved_amt IN igf_sl_cl_resp_r1_all.alt_approved_amt%TYPE
288:
289: PROCEDURE insert_into_resp_r6(p_r6_record IN igf_sl_clchrs_dtls%ROWTYPE);
290:
291: PROCEDURE process_change_records (p_n_clrp1_id IN igf_sl_cl_resp_r1_all.clrp1_id%TYPE,
292: p_v_loan_number IN igf_sl_loans_all.loan_number%TYPE);
293:
294: PROCEDURE log_parameters ( p_v_param_typ IN VARCHAR2,
295: p_v_param_val IN VARCHAR2
296: ) ;
566: Change History :
567: Who When What
568: ***************************************************************/
569:
570: l_loan_active igf_sl_loans_all.active%TYPE;
571: l_resp_record_status igf_sl_cl_resp_r1_all.resp_record_status%TYPE;
572:
573: -- To select all the @1 Records from the Load Table
574: CURSOR cur_1records (p_file_type igf_sl_load_file_t.file_type%TYPE,
582: CURSOR c_loan IS
583: SELECT active
584: ,loan_id
585: ,award_id
586: FROM igf_sl_loans_all
587: WHERE NVL(external_loan_id_txt,loan_number) = l_loan_number;
588:
589: rec_c_loan c_loan%ROWTYPE;
590:
587: WHERE NVL(external_loan_id_txt,loan_number) = l_loan_number;
588:
589: rec_c_loan c_loan%ROWTYPE;
590:
591: CURSOR c_igf_sl_lor (cp_v_loan_number igf_sl_loans_all.loan_number%TYPE) IS
592: SELECT lor.rec_type_ind
593: FROM igf_sl_lor_all lor,
594: igf_sl_loans_all loan
595: WHERE loan.loan_id = lor.loan_id AND
590:
591: CURSOR c_igf_sl_lor (cp_v_loan_number igf_sl_loans_all.loan_number%TYPE) IS
592: SELECT lor.rec_type_ind
593: FROM igf_sl_lor_all lor,
594: igf_sl_loans_all loan
595: WHERE loan.loan_id = lor.loan_id AND
596: NVL(loan.external_loan_id_txt,loan.loan_number) = cp_v_loan_number;
597:
598: rec_c_igf_sl_lor c_igf_sl_lor%ROWTYPE;
1153:
1154:
1155: /* Inserts Data into Resp1 ,Resp4 and Resp8 Tables*/
1156:
1157: PROCEDURE insert_into_resp1(p_loan_number igf_sl_loans_all.loan_number%TYPE,
1158: p_resp_record_status igf_sl_cl_resp_r1_all.resp_record_status%TYPE,
1159: p_rec_type_ind igf_sl_cl_resp_r1_all.rec_type_ind%TYPE)
1160: AS
1161: /***************************************************************
2233: END process_ack;
2234:
2235:
2236: PROCEDURE update_lor(p_clrp1_id igf_sl_cl_resp_r1_all.clrp1_id%TYPE,
2237: p_loan_number igf_sl_loans_all.loan_number%TYPE,
2238: p_rejected_rec BOOLEAN)
2239: AS
2240: /***************************************************************
2241: Created By : mesriniv
2268: bkkumar 18-sep-2003 Bug # 3104228 FA 122 Loan Enhancements
2269: In update_lor procedure changed the condition that
2270: loan status should be accepted if
2271: guarantee status is 20 or 40.
2272: agairola 15-Mar-2002 Modified the IGF_SL_LOANS_PKG update row call
2273: for Borrower Determination as part of Refunds DLD - 2144600
2274: masehgal 17-Feb-2002 # 2216956 FACR007
2275: Added Elec_mpn_ind , Borrow_sign_ind
2276: ***************************************************************/
2276: ***************************************************************/
2277:
2278: l_row_id VARCHAR2(25);
2279: l_log_mesg VARCHAR2(1000);
2280: l_loan_status igf_sl_loans_all.loan_status%TYPE;
2281: lv_defer_req_code VARCHAR2(30);
2282: lv_s_signature_code VARCHAR2(30);
2283: lv_stud_sign_ind VARCHAR2(30);
2284: lv_log_mesg VARCHAR2(100);
2291: CURSOR cur_tbh_lor
2292: IS
2293: SELECT *
2294: FROM igf_sl_lor_v
2295: WHERE loan_id IN (SELECT loan_id FROM igf_sl_loans_all
2296: WHERE NVL(external_loan_id_txt,loan_number) = p_loan_number);
2297:
2298: --
2299: -- Select the Loans Data for the particular Loan number
2298: --
2299: -- Select the Loans Data for the particular Loan number
2300: --
2301: CURSOR cur_tbh_loans IS
2302: SELECT igf_sl_loans.* FROM igf_sl_loans
2303: WHERE NVL(external_loan_id_txt,loan_number)= p_loan_number FOR UPDATE OF loan_status NOWAIT;
2304:
2305: lv_lender_id VARCHAR2(30);
2306: lv_lend_non_ed_id VARCHAR2(30);
2344: AND ci_sequence_number = p_seq_number;
2345:
2346: find_rel_code_rec cur_find_rel_code%ROWTYPE;
2347:
2348: CURSOR c_igf_sl_loans (cp_v_loan_number igf_sl_loans_all.loan_number%TYPE) IS
2349: SELECT lar.loan_number
2350: ,lar.loan_status
2351: ,lar.loan_chg_status
2352: FROM igf_sl_loans_all lar
2348: CURSOR c_igf_sl_loans (cp_v_loan_number igf_sl_loans_all.loan_number%TYPE) IS
2349: SELECT lar.loan_number
2350: ,lar.loan_status
2351: ,lar.loan_chg_status
2352: FROM igf_sl_loans_all lar
2353: WHERE NVL(external_loan_id_txt,loan_number) = cp_v_loan_number;
2354:
2355: rec_c_igf_sl_loans c_igf_sl_loans%ROWTYPE;
2356:
2351: ,lar.loan_chg_status
2352: FROM igf_sl_loans_all lar
2353: WHERE NVL(external_loan_id_txt,loan_number) = cp_v_loan_number;
2354:
2355: rec_c_igf_sl_loans c_igf_sl_loans%ROWTYPE;
2356:
2357: BEGIN
2358:
2359: gv_debug_str := 'UPDATE_LOR - 1' || ' ';
2602: END IF;
2603: gv_debug_str := gv_debug_str || 'UPDATE_LOR - 13' || ' ';
2604: END IF; -- Check for Reprint Request or not ends here
2605:
2606: OPEN c_igf_sl_loans (cp_v_loan_number => loaded_1rec.loan_number);
2607: FETCH c_igf_sl_loans INTO rec_c_igf_sl_loans ;
2608: CLOSE c_igf_sl_loans ;
2609:
2610: IF loaded_1rec.cl_version_code = 'RELEASE-5' THEN
2603: gv_debug_str := gv_debug_str || 'UPDATE_LOR - 13' || ' ';
2604: END IF; -- Check for Reprint Request or not ends here
2605:
2606: OPEN c_igf_sl_loans (cp_v_loan_number => loaded_1rec.loan_number);
2607: FETCH c_igf_sl_loans INTO rec_c_igf_sl_loans ;
2608: CLOSE c_igf_sl_loans ;
2609:
2610: IF loaded_1rec.cl_version_code = 'RELEASE-5' THEN
2611: IF loaded_1rec.rec_type_ind = 'S' THEN
2604: END IF; -- Check for Reprint Request or not ends here
2605:
2606: OPEN c_igf_sl_loans (cp_v_loan_number => loaded_1rec.loan_number);
2607: FETCH c_igf_sl_loans INTO rec_c_igf_sl_loans ;
2608: CLOSE c_igf_sl_loans ;
2609:
2610: IF loaded_1rec.cl_version_code = 'RELEASE-5' THEN
2611: IF loaded_1rec.rec_type_ind = 'S' THEN
2612: IF (rec_c_igf_sl_loans.loan_status <> 'S') THEN
2608: CLOSE c_igf_sl_loans ;
2609:
2610: IF loaded_1rec.cl_version_code = 'RELEASE-5' THEN
2611: IF loaded_1rec.rec_type_ind = 'S' THEN
2612: IF (rec_c_igf_sl_loans.loan_status <> 'S') THEN
2613: fnd_message.set_name('IGF','IGF_SL_CL_SKIP_SENT');
2614: fnd_message.set_token('LOAN_STATUS',rec_c_igf_sl_loans.loan_status);
2615: fnd_file.put_line(fnd_file.log, fnd_message.get);
2616: log_to_fnd(p_v_module => 'UPDATE_LOR',
2610: IF loaded_1rec.cl_version_code = 'RELEASE-5' THEN
2611: IF loaded_1rec.rec_type_ind = 'S' THEN
2612: IF (rec_c_igf_sl_loans.loan_status <> 'S') THEN
2613: fnd_message.set_name('IGF','IGF_SL_CL_SKIP_SENT');
2614: fnd_message.set_token('LOAN_STATUS',rec_c_igf_sl_loans.loan_status);
2615: fnd_file.put_line(fnd_file.log, fnd_message.get);
2616: log_to_fnd(p_v_module => 'UPDATE_LOR',
2617: p_v_string => ' loan status <> S'
2618: );
2617: p_v_string => ' loan status <> S'
2618: );
2619: RAISE skip_update_loans;
2620: END IF;
2621: IF ((rec_c_igf_sl_loans.loan_status = 'S') AND
2622: (tbh_rec.rec_type_ind IN ('A','C','T')) ) THEN
2623: NULL;
2624: ELSE
2625: fnd_message.set_name('IGF','IGF_SL_CL_INV_COMB_RT_RC');
2643: IF loaded_1rec.cl_version_code = 'RELEASE-4' THEN
2644: -- 'R' Record can be uploaded into the system only if the Loan Status is "Accepted" and
2645: -- Loan Change Status is "Sent"
2646: IF loaded_1rec.rec_type_ind = 'R' THEN
2647: IF ((rec_c_igf_sl_loans.loan_status = 'A') AND (rec_c_igf_sl_loans.loan_chg_status = 'S')) THEN
2648: NULL;
2649: ELSE
2650: fnd_message.set_name('IGF','IGF_SL_CL_CHG_ST_SE_ACC');
2651: fnd_file.put_line(fnd_file.log, fnd_message.get);
2658: END IF;
2659: END IF;
2660: -- common to both RELEASE-4 AND RELEASE-5
2661: IF loaded_1rec.rec_type_ind = 'N' THEN
2662: IF (rec_c_igf_sl_loans.loan_status <> 'S') THEN
2663: fnd_message.set_name('IGF','IGF_SL_CL_SKIP_SENT');
2664: fnd_message.set_token('LOAN_STATUS',rec_c_igf_sl_loans.loan_status);
2665: fnd_file.put_line(fnd_file.log, fnd_message.get);
2666: log_to_fnd(p_v_module => 'UPDATE_LOR',
2660: -- common to both RELEASE-4 AND RELEASE-5
2661: IF loaded_1rec.rec_type_ind = 'N' THEN
2662: IF (rec_c_igf_sl_loans.loan_status <> 'S') THEN
2663: fnd_message.set_name('IGF','IGF_SL_CL_SKIP_SENT');
2664: fnd_message.set_token('LOAN_STATUS',rec_c_igf_sl_loans.loan_status);
2665: fnd_file.put_line(fnd_file.log, fnd_message.get);
2666: log_to_fnd(p_v_module => 'UPDATE_LOR',
2667: p_v_string => ' loan status <> S'
2668: );
2667: p_v_string => ' loan status <> S'
2668: );
2669: RAISE skip_update_loans;
2670: END IF;
2671: IF ((rec_c_igf_sl_loans.loan_status = 'S') AND
2672: (tbh_rec.rec_type_ind = 'R') AND
2673: loaded_1rec.prc_type_code = 'GP') THEN
2674: NULL;
2675: ELSE
2690: p_v_string => ' send record type not in A and C'
2691: );
2692: RAISE skip_update_loans;
2693: END IF;
2694: IF (rec_c_igf_sl_loans.loan_status NOT IN ('A','S')) THEN
2695: fnd_message.set_name('IGF','IGF_SL_CL_SKIP_SENT_M');
2696: fnd_file.put_line(fnd_file.log, fnd_message.get);
2697: log_to_fnd(p_v_module => 'UPDATE_LOR',
2698: p_v_string => ' loan status <> S'
3243: compare_disbursements(l_loan_number);
3244: END IF;
3245: FOR loan_rec IN cur_tbh_loans LOOP
3246: gv_debug_str := gv_debug_str || 'UPDATE_LOR-19' || ' ';
3247: -- Modified the Update Row procedure call for the IGF_SL_LOANS_PKG to include the
3248: -- Borrower Determination as part of Refunds DLD - 2144600
3249: --
3250: -- check if loan status is sent, then only take the update
3251: --
3249: --
3250: -- check if loan status is sent, then only take the update
3251: --
3252: IF loan_rec.loan_status = 'S' THEN
3253: igf_sl_loans_pkg.update_row (
3254: X_Mode => 'R',
3255: x_rowid => loan_rec.row_id,
3256: x_loan_id => loan_rec.loan_id,
3257: x_award_id => loan_rec.award_id,
3301: app_exception.raise_exception;
3302:
3303: END update_lor;
3304:
3305: PROCEDURE compare_disbursements(p_loan_number igf_sl_loans_all.loan_number%TYPE)
3306: AS
3307: /***************************************************************
3308: Created By : mesriniv
3309: Date Created By : 2000/12/07
3326: --Count the No.of Disbursements for the award id in Awards Disbursements Table
3327: CURSOR cur_count_old_disb
3328: IS
3329: SELECT award_id, NVL(COUNT(disb_num),0) FROM igf_aw_awd_disb
3330: WHERE award_id = (SELECT award_id FROM igf_sl_loans
3331: WHERE NVL(external_loan_id_txt,loan_number) = p_loan_number)
3332: GROUP BY award_id;
3333:
3334: --Count the No.of Disbursements for the award id in Response8 Disbursements Table
3988: AS
3989:
3990:
3991: l_rowid VARCHAR2(25) DEFAULT NULL;
3992: l_loan_id igf_sl_loans_all.loan_id%TYPE;
3993: l_fed_stafford igf_sl_alt_borw.fed_stafford_loan_debt%TYPE;
3994: l_fed_sls igf_sl_alt_borw.fed_sls_debt%TYPE;
3995: rec_cl_resp_r4 igf_sl_cl_resp_r4_all%ROWTYPE;
3996: BEGIN --for the procedure insert_into_resp_r4
4153: --OFA and that inserted into the igf_sl_cl_resp_r4 table
4154:
4155: PROCEDURE show_alt_details(
4156: p_clrp1_id igf_sl_cl_resp_r1_all.clrp1_id%TYPE,
4157: p_loan_id igf_sl_loans_all.loan_id%TYPE
4158: )
4159:
4160: /***************************************************************
4161: Created By : mesriniv
5701: l_rec_resp_r1 := p_rec_resp_r1;
5702:
5703: -- initialize the wf_event_t object
5704: wf_event_t.initialize(l_wf_event_t);
5705: l_wf_event_name := 'oracle.apps.igf.sl.loans.ffelp.LoanCertificationRequest';
5706: log_to_fnd(p_v_module => 'raise_scr_event',
5707: p_v_string => 'Setting the workflow event name '||l_wf_event_name
5708: );
5709: -- set the event name
6364: p_d_ci_end_dt IN igs_ca_inst_all.end_dt%TYPE,
6365: p_v_person_number IN hz_parties.party_number%TYPE,
6366: p_v_person_name IN hz_parties.party_name%TYPE,
6367: p_v_ssn IN igf_ap_isir_ints_all.current_ssn_txt%TYPE,
6368: p_v_loan_number IN igf_sl_loans_all.loan_number%TYPE,
6369: p_d_loan_per_begin_date IN igf_sl_loans_all.loan_per_begin_date%TYPE,
6370: p_d_loan_per_end_date IN igf_sl_loans_all.loan_per_end_date%TYPE,
6371: p_v_loan_type IN igf_aw_fund_cat_all.fed_fund_code%TYPE,
6372: p_n_award_accept_amt IN igf_aw_award_all.accepted_amt%TYPE,
6365: p_v_person_number IN hz_parties.party_number%TYPE,
6366: p_v_person_name IN hz_parties.party_name%TYPE,
6367: p_v_ssn IN igf_ap_isir_ints_all.current_ssn_txt%TYPE,
6368: p_v_loan_number IN igf_sl_loans_all.loan_number%TYPE,
6369: p_d_loan_per_begin_date IN igf_sl_loans_all.loan_per_begin_date%TYPE,
6370: p_d_loan_per_end_date IN igf_sl_loans_all.loan_per_end_date%TYPE,
6371: p_v_loan_type IN igf_aw_fund_cat_all.fed_fund_code%TYPE,
6372: p_n_award_accept_amt IN igf_aw_award_all.accepted_amt%TYPE,
6373: p_n_guarantee_amt IN igf_sl_cl_resp_r1_all.guarantee_amt%TYPE,
6366: p_v_person_name IN hz_parties.party_name%TYPE,
6367: p_v_ssn IN igf_ap_isir_ints_all.current_ssn_txt%TYPE,
6368: p_v_loan_number IN igf_sl_loans_all.loan_number%TYPE,
6369: p_d_loan_per_begin_date IN igf_sl_loans_all.loan_per_begin_date%TYPE,
6370: p_d_loan_per_end_date IN igf_sl_loans_all.loan_per_end_date%TYPE,
6371: p_v_loan_type IN igf_aw_fund_cat_all.fed_fund_code%TYPE,
6372: p_n_award_accept_amt IN igf_aw_award_all.accepted_amt%TYPE,
6373: p_n_guarantee_amt IN igf_sl_cl_resp_r1_all.guarantee_amt%TYPE,
6374: p_n_approved_amt IN igf_sl_cl_resp_r1_all.alt_approved_amt%TYPE
6423: );
6424:
6425: -- initialize the wf_event_t object
6426: wf_event_t.initialize(l_wf_event_t);
6427: l_wf_event_name := 'oracle.apps.igf.sl.loans.ffelp.LoanGuaranteeAmount';
6428: log_to_fnd(p_v_module => 'raise_gamt_event',
6429: p_v_string => 'Setting the workflow event name '||l_wf_event_name
6430: );
6431: -- set the event name
6745:
6746: END insert_into_resp_r6;
6747:
6748: PROCEDURE process_change_records (p_n_clrp1_id IN igf_sl_cl_resp_r1_all.clrp1_id%TYPE,
6749: p_v_loan_number IN igf_sl_loans_all.loan_number%TYPE) AS
6750: ------------------------------------------------------------------
6751: --Created by : Sanil Madathil, Oracle IDC
6752: --Date created: 07 November 2004
6753: --
6762: --
6763: --Change History:
6764: --Who When What
6765: ------------------------------------------------------------------
6766: CURSOR c_sl_clchsn_dtls (cp_v_loan_number igf_sl_loans_all.loan_number%TYPE) IS
6767: --cp_v_send_record_txt igf_sl_clchsn_dtls.send_record_txt%TYPE)
6768: SELECT chdt.*, chdt.ROWID row_id
6769: FROM igf_sl_clchsn_dtls chdt
6770: WHERE loan_number_txt = cp_v_loan_number