[Home] [Help]
587:
588: --Phase 6
589: PROCEDURE upgrade_profile_class_amount
590: (l_table_owner IN VARCHAR2, -- AR
591: l_table_name IN VARCHAR2, -- HZ_CUST_PROF_CLASS_AMTS
592: l_script_name IN VARCHAR2, -- arlccpca.sql
593: l_worker_id IN VARCHAR2,
594: l_num_workers IN VARCHAR2,
595: l_batch_size IN VARCHAR2)
619: , cpa.jgzz_attribute3 PENALTY_FIXED_AMOUNT
620: --{TCA Validation
621: , DECODE(cpa.jgzz_attribute7,NULL,cpa.interest_rate,NULL) interest_rate
622: --}
623: FROM hz_cust_prof_class_amts cpa,
624: ar_charge_schedules cs
625: WHERE cpa.rowid >= p_start_rowid
626: AND cpa.rowid <= p_end_rowid
627: AND cs.SCHEDULE_NAME(+) = DECODE(cpa.jgzz_attribute7,
694: EXIT;
695: END IF;
696:
697: FORALL i IN l_rowid_tab.FIRST .. l_rowid_tab.LAST
698: UPDATE hz_cust_prof_class_amts
699: SET EXCHANGE_RATE_TYPE = l_EXCHANGE_RATE_TYPE(i),
700: MIN_FC_INVOICE_OVERDUE_TYPE = l_MIN_FC_INVOICE_OVERDUE_TYPE(i),
701: MIN_FC_INVOICE_AMOUNT = l_MIN_FC_INVOICE_AMOUNT(i),
702: MIN_FC_BALANCE_OVERDUE_TYPE = l_MIN_FC_BALANCE_OVERDUE_TYPE(i),
784: , f_NUMBER(JGZZ_ATTRIBUTE4) Message_text_id
785: FROM hz_cust_profile_classes cp,
786: (SELECT MAX(jgzz_attribute7) dom,
787: PROFILE_CLASS_ID
788: FROM hz_cust_prof_class_amts
789: WHERE jgzz_attribute7 = 'M'
790: GROUP BY PROFILE_CLASS_ID) cpa
791: WHERE cp.rowid >= p_start_rowid
792: AND cp.rowid <= p_end_rowid