553: IF (g_debug_mode = 'Y') THEN
554: Put_Debug_Msg(l_full_path, 'Before determining l_accounting_date');
555: END IF;
556: -- Get accounting date
557: igc_cbc_po_grp.get_cbc_acct_date
558: (
559: p_api_version => 1.0
560: ,p_init_msg_list => FND_API.G_FALSE
561: ,p_commit => FND_API.G_FALSE
570: ,x_cbc_acct_date => l_packet_accounting_date
571: ) ;
572:
573: IF (g_debug_mode = 'Y') THEN
574: Put_Debug_Msg(l_full_path, 'Returned from igc_cbc_po_grp.get_cbc_acct_date '||l_return_status||' : '||l_packet_accounting_date );
575: END IF;
576:
577: IF l_return_status <> FND_API.G_RET_STS_SUCCESS OR l_packet_accounting_date IS NULL
578: THEN
582:
583: IF l_packet_accounting_date IS NULL
584: THEN
585: --Get the accounting date from the database
586: igc_cbc_po_grp.get_cbc_acct_date
587: (
588: p_api_version => 1.0
589: ,p_init_msg_list => FND_API.G_FALSE
590: ,p_commit => FND_API.G_FALSE
606: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
607: OR l_accounting_date IS NULL
608: THEN
609: --Default the accounting date
610: igc_cbc_po_grp.get_cbc_acct_date
611: (
612: p_api_version => 1.0
613: ,p_init_msg_list => FND_API.G_FALSE
614: ,p_commit => FND_API.G_FALSE
631: RETURN(0) ;
632: END IF ;
633:
634: -- A valid accounting date was obtained. Therefore update the document.
635: igc_cbc_po_grp.update_cbc_acct_date
636: (
637: p_api_version => 1.0
638: ,p_init_msg_list => FND_API.G_FALSE
639: ,p_commit => FND_API.G_FALSE