[Home] [Help]
917: END IF;
918:
919: pa_funds_control_utils.print_message('Inserting Commitments');
920:
921: --Insert into pa_bc_commitments_all if bc_commitment_id is null in pa_bc_packets
922: FORALL k in l_PktIdTab.FIRST..l_PktIdTab.LAST
923: insert into pa_bc_commitments_all(
924: bc_commitment_id,
925: packet_id,
919: pa_funds_control_utils.print_message('Inserting Commitments');
920:
921: --Insert into pa_bc_commitments_all if bc_commitment_id is null in pa_bc_packets
922: FORALL k in l_PktIdTab.FIRST..l_PktIdTab.LAST
923: insert into pa_bc_commitments_all(
924: bc_commitment_id,
925: packet_id,
926: project_id,
927: task_id,
1063: and l_PktRlmiTab(k) is not null
1064: and l_PktBdgtVerTab(k) is not null
1065: and l_PktDocTypTab(k) in ('AP', 'PO', 'REQ', 'CC_P_CO', 'CC_C_CO', 'CC_P_PAY', 'CC_C_PAY')
1066: and not exists (select 'X'
1067: from pa_bc_commitments_all
1068: where document_type = l_PktDocTypTab(k)
1069: and l_PktDocTypTab(k) in ('AP', 'PO', 'REQ', 'CC_P_CO', 'CC_C_CO', 'CC_P_PAY', 'CC_C_PAY')
1070: and document_header_id = l_PktDocHeadTab(k)
1071: and (document_distribution_id = l_PktDocDistTab(k)
1091: pa_debug.g_err_stage := 'Log: Before Update of commitments';
1092: pa_debug.write_file('LOG',pa_debug.g_err_stage);
1093: END IF;
1094:
1095: pa_funds_control_utils.print_message('Before update of pa_bc_commitments_all');
1096:
1097: --Update pa_bc_commitments_all if bc_commitment_id is not null
1098: FORALL j in l_PktIdTab.FIRST..l_PktIdTab.LAST
1099: UPDATE pa_bc_commitments_all pbc
1093: END IF;
1094:
1095: pa_funds_control_utils.print_message('Before update of pa_bc_commitments_all');
1096:
1097: --Update pa_bc_commitments_all if bc_commitment_id is not null
1098: FORALL j in l_PktIdTab.FIRST..l_PktIdTab.LAST
1099: UPDATE pa_bc_commitments_all pbc
1100: SET pbc.packet_id = l_PktIdTab(j),
1101: pbc.top_task_id = l_PktTTaskTab(j),
1095: pa_funds_control_utils.print_message('Before update of pa_bc_commitments_all');
1096:
1097: --Update pa_bc_commitments_all if bc_commitment_id is not null
1098: FORALL j in l_PktIdTab.FIRST..l_PktIdTab.LAST
1099: UPDATE pa_bc_commitments_all pbc
1100: SET pbc.packet_id = l_PktIdTab(j),
1101: pbc.top_task_id = l_PktTTaskTab(j),
1102: pbc.parent_resource_id = l_PktParResTab(j),
1103: pbc.budget_version_id = l_PktBdgtVerTab(j),
1137: pbc.document_line_id = l_PktDocLineIdTab(j))
1138: )
1139: and pbc.bc_packet_id = l_PktBcPktTab(j)
1140: and exists (select 'X'
1141: from pa_bc_commitments_all pbc1
1142: where pbc1.project_id = l_PktProjectTab(j)
1143: and pbc1.task_id = l_PktTaskTab(j)
1144: and pbc1.document_type = l_PktDocTypTab(j)
1145: and l_PktDocTypTab(j) in ('AP', 'PO', 'REQ', 'CC_P_CO', 'CC_C_CO', 'CC_P_PAY', 'CC_C_PAY')