[Home] [Help]
1: PACKAGE BODY PO_CHARGES_GRP AS
2: /* $Header: POXGFSCB.pls 120.16.12010000.3 2009/01/21 23:05:48 vthevark ship $*/
3:
4: -- package globals
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PO_CHARGES_GRP';
1: PACKAGE BODY PO_CHARGES_GRP AS
2: /* $Header: POXGFSCB.pls 120.16.12010000.3 2009/01/21 23:05:48 vthevark ship $*/
3:
4: -- package globals
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PO_CHARGES_GRP';
6: G_LOG_MODULE CONSTANT VARCHAR2(40) := 'po.plsql.' || G_PKG_NAME;
7: G_CONC_LOG VARCHAR2(32767);
8:
9: g_asn_debug VARCHAR2(1) := NVL(fnd_profile.VALUE('RCV_DEBUG_MODE'), 'N');
861: asn_debug.put_line('Entering extract AP charges program.');
862: END IF;
863:
864:
865: FOR l_ap_po_charge_distribution in po_charges_grp.ap_po_charge_distributions_csr LOOP --{
866:
867: IF (g_asn_debug = 'Y') THEN
868: asn_debug.put_line('Inside the cursor loop.');
869: asn_debug.put_line('Charge cursor has '||
866:
867: IF (g_asn_debug = 'Y') THEN
868: asn_debug.put_line('Inside the cursor loop.');
869: asn_debug.put_line('Charge cursor has '||
870: po_charges_grp.ap_po_charge_distributions_csr%rowcount||' rows.');
871: END IF;
872:
873: Process_AP_Actual_Charges(l_ap_po_charge_distribution,l_charge_table,
874: l_charge_alloc_table ,k);
882: ||l_charge_table.COUNT||' of them are new charges');
883: END IF;
884:
885:
886: FOR l_ap_rcv_charge_distribution in po_charges_grp.ap_rcv_charge_distr_csr LOOP --{
887:
888: IF (g_asn_debug = 'Y') THEN
889: asn_debug.put_line('Inside the cursor loop.');
890: asn_debug.put_line('Charge cursor has '||
887:
888: IF (g_asn_debug = 'Y') THEN
889: asn_debug.put_line('Inside the cursor loop.');
890: asn_debug.put_line('Charge cursor has '||
891: po_charges_grp.ap_rcv_charge_distr_csr%rowcount||' rows.');
892: END IF;
893:
894: Process_AP_Actual_Charges(l_ap_rcv_charge_distribution,
895: l_charge_table,l_charge_alloc_table ,k);
939: EXCEPTION
940: WHEN OTHERS THEN
941: string( log_level => FND_LOG.LEVEL_UNEXPECTED
942: , module => G_LOG_MODULE
943: , message => 'Error in PO_CHARGES_GRP.Extract_AP_Actual_Charges: ' || SQLERRM
944: );
945: G_CONC_LOG := G_CONC_LOG || 'AP Charge Extraction failed'|| FND_GLOBAL.local_chr(10);
946: errbuf := G_CONC_LOG;
947: retcode := 2;
944: );
945: G_CONC_LOG := G_CONC_LOG || 'AP Charge Extraction failed'|| FND_GLOBAL.local_chr(10);
946: errbuf := G_CONC_LOG;
947: retcode := 2;
948: CLOSE po_charges_grp.ap_po_charge_distributions_csr;
949: CLOSE po_charges_grp.ap_rcv_charge_distr_csr;
950:
951: END Extract_AP_Actual_Charges;
952:
945: G_CONC_LOG := G_CONC_LOG || 'AP Charge Extraction failed'|| FND_GLOBAL.local_chr(10);
946: errbuf := G_CONC_LOG;
947: retcode := 2;
948: CLOSE po_charges_grp.ap_po_charge_distributions_csr;
949: CLOSE po_charges_grp.ap_rcv_charge_distr_csr;
950:
951: END Extract_AP_Actual_Charges;
952:
953: PROCEDURE Process_AP_Actual_Charges
951: END Extract_AP_Actual_Charges;
952:
953: PROCEDURE Process_AP_Actual_Charges
954: (
955: l_ap_charge_distribution IN OUT NOCOPY po_charges_grp.ap_po_charge_distributions_csr%ROWTYPE,
956: l_charge_table IN OUT NOCOPY CHARGE_TABLE_TYPE,
957: l_charge_alloc_table IN OUT NOCOPY CHARGE_ALLOCATION_TABLE_TYPE,
958: k IN OUT NOCOPY number
959: )
1141: EXCEPTION
1142: WHEN OTHERS THEN
1143: string( log_level => FND_LOG.LEVEL_UNEXPECTED
1144: , module => G_LOG_MODULE
1145: , message => 'Error in PO_CHARGES_GRP.Process_AP_Actual_Charges: ' || SQLERRM
1146: );
1147:
1148: END Process_AP_Actual_Charges;
1149:
1146: );
1147:
1148: END Process_AP_Actual_Charges;
1149:
1150: END PO_CHARGES_GRP;
1151: