[Home] [Help]
138:
139: -- Debug Message
140: IF (PV_DEBUG_HIGH_ON) THEN
141:
142: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
143: END IF;
144:
145:
146:
171: -- =========================================================================
172:
173: IF FND_GLOBAL.USER_ID IS NULL
174: THEN
175: PVX_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
176: RAISE FND_API.G_EXC_ERROR;
177: END IF;
178:
179:
182: THEN
183: -- Debug message
184: IF (PV_DEBUG_HIGH_ON) THEN
185:
186: PVX_UTILITY_PVT.debug_message('Private API: Validate_Gq_Elements');
187: END IF;
188:
189: -- Populate the default required items
190: l_qsnr_element_rec.last_update_date := SYSDATE;
213:
214: -- Debug Message
215: IF (PV_DEBUG_HIGH_ON) THEN
216:
217: PVX_UTILITY_PVT.debug_message( 'Private API: Calling create table handler');
218: END IF;
219:
220: -- Invoke table handler(Pv_Gq_Elements_Pkg.Insert_Row)
221:
254:
255: -- Debug Message
256: IF (PV_DEBUG_HIGH_ON) THEN
257:
258: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
259: END IF;
260:
261:
262: -- Standard call to get message count and if count is 1, get message info.
265: p_data => x_msg_data
266: );
267: EXCEPTION
268:
269: WHEN PVX_Utility_PVT.resource_locked THEN
270: x_return_status := FND_API.g_ret_sts_error;
271: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
272:
273: WHEN FND_API.G_EXC_ERROR THEN
267: EXCEPTION
268:
269: WHEN PVX_Utility_PVT.resource_locked THEN
270: x_return_status := FND_API.g_ret_sts_error;
271: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
272:
273: WHEN FND_API.G_EXC_ERROR THEN
274: ROLLBACK TO CREATE_Gq_Elements_PVT;
275: x_return_status := FND_API.G_RET_STS_ERROR;
405:
406:
407: -- Debug Message
408: IF (PV_DEBUG_HIGH_ON) THEN
409: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' start');
410: END IF;
411:
412: -- Initialize message list if p_init_msg_list is set to TRUE.
413: IF FND_API.to_Boolean( p_init_msg_list )
419: x_return_status := FND_API.G_RET_STS_SUCCESS;
420:
421:
422: IF (PV_DEBUG_HIGH_ON) THEN
423: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' : before open cursor');
424: END IF;
425:
426: OPEN c_get_qsnr_element_rec (p_src_object_id);
427: LOOP
425:
426: OPEN c_get_qsnr_element_rec (p_src_object_id);
427: LOOP
428: IF (PV_DEBUG_HIGH_ON) THEN
429: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' : inside fetching qsnr b table');
430: END IF;
431: FETCH c_get_qsnr_element_rec bulk collect into
432: qsnr_elmt_seq_num_array, qsnr_elmt_type_array, entity_attr_id_array,
433: qsnr_elmt_page_num_array, is_required_flag_array LIMIT 100;
432: qsnr_elmt_seq_num_array, qsnr_elmt_type_array, entity_attr_id_array,
433: qsnr_elmt_page_num_array, is_required_flag_array LIMIT 100;
434:
435: IF (PV_DEBUG_HIGH_ON) THEN
436: PVX_UTILITY_PVT.debug_message(l_api_name || 'qsnr_elmt_seq_num_array.count =' || to_char(qsnr_elmt_seq_num_array.count));
437: END IF;
438:
439: for i in 1..qsnr_elmt_seq_num_array.count LOOP
440:
449: EXIT WHEN l_dummy IS NULL;
450: END LOOP;
451: CLOSE c_id;
452: IF (PV_DEBUG_HIGH_ON) THEN
453: PVX_UTILITY_PVT.debug_message(l_api_name || 'qsnr_element_id_array(i) =' || to_char(qsnr_element_id_array(i)));
454: END IF;
455:
456: END LOOP;
457:
456: END LOOP;
457:
458:
459:
460: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' : insert into b table');
461:
462: forall i in 1..qsnr_element_id_array.count
463: INSERT INTO pv_ge_qsnr_elements_b(
464: qsnr_element_id,
510: if ((k <> 1) and (old_qsnr_element_id_array(k) <> old_qsnr_element_id_array(k-1))) then
511: elmt_count := elmt_count + 1;
512: end if;
513: IF (PV_DEBUG_HIGH_ON) THEN
514: PVX_UTILITY_PVT.debug_message(l_api_name || 'k = ' || to_char(k));
515: PVX_UTILITY_PVT.debug_message(l_api_name || 'elmt_count = ' || to_char(elmt_count));
516: END IF;
517: new_qsnr_element_id_array(k) := qsnr_element_id_array(elmt_count);
518:
511: elmt_count := elmt_count + 1;
512: end if;
513: IF (PV_DEBUG_HIGH_ON) THEN
514: PVX_UTILITY_PVT.debug_message(l_api_name || 'k = ' || to_char(k));
515: PVX_UTILITY_PVT.debug_message(l_api_name || 'elmt_count = ' || to_char(elmt_count));
516: END IF;
517: new_qsnr_element_id_array(k) := qsnr_element_id_array(elmt_count);
518:
519: end loop;
547: END LOOP;
548: close c_get_qsnr_element_tl_rec;
549:
550: IF (PV_DEBUG_HIGH_ON) THEN
551: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' : out of qsnr loop');
552: END IF;
553:
554:
555: OPEN c_get_additional_tl_info (p_src_object_id);
554:
555: OPEN c_get_additional_tl_info (p_src_object_id);
556: LOOP
557: IF (PV_DEBUG_HIGH_ON) THEN
558: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' : inside get addl - tl loop');
559: END IF;
560: FETCH c_get_additional_tl_info bulk collect into
561: QSNR_TITLE_ARRAY, QSNR_HEADER_ARRAY, QSNR_FOOTER_ARRAY, PRGM_LANGUAGE_ARRAY LIMIT 100;
562: Forall i in 1..QSNR_TITLE_ARRAY.count
588: );
589:
590: EXCEPTION
591:
592: WHEN PVX_Utility_PVT.resource_locked THEN
593: x_return_status := FND_API.g_ret_sts_error;
594: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
595:
596: WHEN FND_API.G_EXC_ERROR THEN
590: EXCEPTION
591:
592: WHEN PVX_Utility_PVT.resource_locked THEN
593: x_return_status := FND_API.g_ret_sts_error;
594: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
595:
596: WHEN FND_API.G_EXC_ERROR THEN
597: ROLLBACK TO Copy_Row;
598: x_return_status := FND_API.G_RET_STS_ERROR;
722:
723: -- Debug Message
724: IF (PV_DEBUG_HIGH_ON) THEN
725:
726: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
727: END IF;
728:
729:
730:
733:
734: -- Debug Message
735: IF (PV_DEBUG_HIGH_ON) THEN
736:
737: PVX_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
738: END IF;
739:
740: OPEN c_get_Gq_Elements( l_tar_qsnr_element_rec.qsnr_element_id);
741:
741:
742: FETCH c_get_Gq_Elements INTO l_ref_qsnr_element_rec ;
743:
744: If ( c_get_Gq_Elements%NOTFOUND) THEN
745: PVX_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
746: p_token_name => 'INFO',
747: p_token_value => 'Gq_Elements') ;
748: RAISE FND_API.G_EXC_ERROR;
749: END IF;
749: END IF;
750: -- Debug Message
751: IF (PV_DEBUG_HIGH_ON) THEN
752:
753: PVX_UTILITY_PVT.debug_message('Private API: - Close Cursor');
754: END IF;
755: CLOSE c_get_Gq_Elements;
756:
757:
756:
757:
758: If (l_tar_qsnr_element_rec.object_version_number is NULL or
759: l_tar_qsnr_element_rec.object_version_number = FND_API.G_MISS_NUM ) Then
760: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_VERSION_MISSING',
761: p_token_name => 'COLUMN',
762: p_token_value => 'Object_Version_Number') ;
763: raise FND_API.G_EXC_ERROR;
764: End if;
764: End if;
765: -- Check Whether record has been changed by someone else
766: IF (PV_DEBUG_HIGH_ON) THEN
767:
768: PVX_UTILITY_PVT.debug_message('tar: object_version_number = '|| l_tar_qsnr_element_rec.object_version_number);
769: END IF;
770: IF (PV_DEBUG_HIGH_ON) THEN
771:
772: PVX_UTILITY_PVT.debug_message('ref: object_version_number = '|| l_ref_qsnr_element_rec.object_version_number);
768: PVX_UTILITY_PVT.debug_message('tar: object_version_number = '|| l_tar_qsnr_element_rec.object_version_number);
769: END IF;
770: IF (PV_DEBUG_HIGH_ON) THEN
771:
772: PVX_UTILITY_PVT.debug_message('ref: object_version_number = '|| l_ref_qsnr_element_rec.object_version_number);
773: END IF;
774:
775: If (l_tar_qsnr_element_rec.object_version_number <> l_ref_qsnr_element_rec.object_version_number) Then
776: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RECORD_CHANGED',
772: PVX_UTILITY_PVT.debug_message('ref: object_version_number = '|| l_ref_qsnr_element_rec.object_version_number);
773: END IF;
774:
775: If (l_tar_qsnr_element_rec.object_version_number <> l_ref_qsnr_element_rec.object_version_number) Then
776: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RECORD_CHANGED',
777: p_token_name => 'VALUE',
778: p_token_value => 'Gq_Elements') ;
779: raise FND_API.G_EXC_ERROR;
780: End if;
784: THEN
785: -- Debug message
786: IF (PV_DEBUG_HIGH_ON) THEN
787:
788: PVX_UTILITY_PVT.debug_message('Private API: Validate_Gq_Elements');
789: END IF;
790:
791: -- Invoke validation procedures
792: Validate_gq_elements(
805: END IF;
806:
807: -- Debug Message
808: IF (PV_DEBUG_HIGH_ON) THEN
809: PVX_UTILITY_PVT.debug_message('Private API: Calling update table handler');
810: END IF;
811:
812: IF (PV_DEBUG_HIGH_ON) THEN
813: PVX_UTILITY_PVT.debug_message('p_qsnr_element_rec.qsnr_element_id = ' || p_qsnr_element_rec.qsnr_element_id);
809: PVX_UTILITY_PVT.debug_message('Private API: Calling update table handler');
810: END IF;
811:
812: IF (PV_DEBUG_HIGH_ON) THEN
813: PVX_UTILITY_PVT.debug_message('p_qsnr_element_rec.qsnr_element_id = ' || p_qsnr_element_rec.qsnr_element_id);
814: END IF;
815:
816: IF (PV_DEBUG_HIGH_ON) THEN
817: PVX_UTILITY_PVT.debug_message('p_qsnr_element_rec.qsnr_elmt_seq_num = ' || p_qsnr_element_rec.qsnr_elmt_seq_num);
813: PVX_UTILITY_PVT.debug_message('p_qsnr_element_rec.qsnr_element_id = ' || p_qsnr_element_rec.qsnr_element_id);
814: END IF;
815:
816: IF (PV_DEBUG_HIGH_ON) THEN
817: PVX_UTILITY_PVT.debug_message('p_qsnr_element_rec.qsnr_elmt_seq_num = ' || p_qsnr_element_rec.qsnr_elmt_seq_num);
818: END IF;
819:
820: IF (PV_DEBUG_HIGH_ON) THEN
821: PVX_UTILITY_PVT.debug_message('p_qsnr_element_rec.elmt_content = ' || p_qsnr_element_rec.elmt_content);
817: PVX_UTILITY_PVT.debug_message('p_qsnr_element_rec.qsnr_elmt_seq_num = ' || p_qsnr_element_rec.qsnr_elmt_seq_num);
818: END IF;
819:
820: IF (PV_DEBUG_HIGH_ON) THEN
821: PVX_UTILITY_PVT.debug_message('p_qsnr_element_rec.elmt_content = ' || p_qsnr_element_rec.elmt_content);
822: END IF;
823:
824: IF (PV_DEBUG_HIGH_ON) THEN
825: PVX_UTILITY_PVT.debug_message('p_qsnr_element_rec.entity_attr_id = ' || p_qsnr_element_rec.entity_attr_id);
821: PVX_UTILITY_PVT.debug_message('p_qsnr_element_rec.elmt_content = ' || p_qsnr_element_rec.elmt_content);
822: END IF;
823:
824: IF (PV_DEBUG_HIGH_ON) THEN
825: PVX_UTILITY_PVT.debug_message('p_qsnr_element_rec.entity_attr_id = ' || p_qsnr_element_rec.entity_attr_id);
826: IF (p_qsnr_element_rec.entity_attr_id = FND_API.G_MISS_NUM) THEN
827: PVX_UTILITY_PVT.debug_message('p_qsnr_element_rec.entity_attr_id = FND_API.G_MISS_NUM');
828: ELSIF (p_qsnr_element_rec.entity_attr_id is NULL) THEN
829: PVX_UTILITY_PVT.debug_message('p_qsnr_element_rec.entity_attr_id is NULL');
823:
824: IF (PV_DEBUG_HIGH_ON) THEN
825: PVX_UTILITY_PVT.debug_message('p_qsnr_element_rec.entity_attr_id = ' || p_qsnr_element_rec.entity_attr_id);
826: IF (p_qsnr_element_rec.entity_attr_id = FND_API.G_MISS_NUM) THEN
827: PVX_UTILITY_PVT.debug_message('p_qsnr_element_rec.entity_attr_id = FND_API.G_MISS_NUM');
828: ELSIF (p_qsnr_element_rec.entity_attr_id is NULL) THEN
829: PVX_UTILITY_PVT.debug_message('p_qsnr_element_rec.entity_attr_id is NULL');
830: END IF;
831: END IF;
825: PVX_UTILITY_PVT.debug_message('p_qsnr_element_rec.entity_attr_id = ' || p_qsnr_element_rec.entity_attr_id);
826: IF (p_qsnr_element_rec.entity_attr_id = FND_API.G_MISS_NUM) THEN
827: PVX_UTILITY_PVT.debug_message('p_qsnr_element_rec.entity_attr_id = FND_API.G_MISS_NUM');
828: ELSIF (p_qsnr_element_rec.entity_attr_id is NULL) THEN
829: PVX_UTILITY_PVT.debug_message('p_qsnr_element_rec.entity_attr_id is NULL');
830: END IF;
831: END IF;
832:
833: IF (PV_DEBUG_HIGH_ON) THEN
830: END IF;
831: END IF;
832:
833: IF (PV_DEBUG_HIGH_ON) THEN
834: PVX_UTILITY_PVT.debug_message('p_qsnr_element_rec.is_required_flag = ' || p_qsnr_element_rec.is_required_flag);
835: END IF;
836:
837:
838: IF ((p_qsnr_element_rec.entity_attr_id is NULL or p_qsnr_element_rec.entity_attr_id = FND_API.G_MISS_NUM)
836:
837:
838: IF ((p_qsnr_element_rec.entity_attr_id is NULL or p_qsnr_element_rec.entity_attr_id = FND_API.G_MISS_NUM)
839: and p_qsnr_element_rec.is_required_flag = 'Y') THEN
840: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_MANDATORY_NO_ATTR');
841: raise FND_API.G_EXC_ERROR;
842: End if;
843:
844: -- Invoke table handler(Pv_Gq_Elements_Pkg.Update_Row)
871:
872: -- Debug Message
873: IF (PV_DEBUG_HIGH_ON) THEN
874:
875: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
876: END IF;
877:
878:
879: -- Standard call to get message count and if count is 1, get message info.
882: p_data => x_msg_data
883: );
884: EXCEPTION
885:
886: WHEN PVX_Utility_PVT.resource_locked THEN
887: x_return_status := FND_API.g_ret_sts_error;
888: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
889:
890: WHEN FND_API.G_EXC_ERROR THEN
884: EXCEPTION
885:
886: WHEN PVX_Utility_PVT.resource_locked THEN
887: x_return_status := FND_API.g_ret_sts_error;
888: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
889:
890: WHEN FND_API.G_EXC_ERROR THEN
891: ROLLBACK TO UPDATE_Gq_Elements_PVT;
892: x_return_status := FND_API.G_RET_STS_ERROR;
1011:
1012: -- Debug Message
1013: IF (PV_DEBUG_HIGH_ON) THEN
1014:
1015: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1016: END IF;
1017:
1018:
1019:
1032: l_qsnr_element_rec.qsnr_elmt_seq_num := l_get_elmt_greater_than.qsnr_elmt_seq_num - 1;
1033: l_qsnr_element_rec.object_version_number := l_get_elmt_greater_than.object_version_number;
1034: IF (PV_DEBUG_HIGH_ON) THEN
1035:
1036: PVX_UTILITY_PVT.debug_message('qsnr_element_id = ' || l_qsnr_element_rec.qsnr_element_id);
1037: END IF;
1038: IF (PV_DEBUG_HIGH_ON) THEN
1039:
1040: PVX_UTILITY_PVT.debug_message('qsnr_elmt_page_num = ' || l_qsnr_element_rec.qsnr_elmt_page_num);
1036: PVX_UTILITY_PVT.debug_message('qsnr_element_id = ' || l_qsnr_element_rec.qsnr_element_id);
1037: END IF;
1038: IF (PV_DEBUG_HIGH_ON) THEN
1039:
1040: PVX_UTILITY_PVT.debug_message('qsnr_elmt_page_num = ' || l_qsnr_element_rec.qsnr_elmt_page_num);
1041: END IF;
1042: IF (PV_DEBUG_HIGH_ON) THEN
1043:
1044: PVX_UTILITY_PVT.debug_message('object_version_number = ' || l_qsnr_element_rec.object_version_number);
1040: PVX_UTILITY_PVT.debug_message('qsnr_elmt_page_num = ' || l_qsnr_element_rec.qsnr_elmt_page_num);
1041: END IF;
1042: IF (PV_DEBUG_HIGH_ON) THEN
1043:
1044: PVX_UTILITY_PVT.debug_message('object_version_number = ' || l_qsnr_element_rec.object_version_number);
1045: END IF;
1046:
1047: Update_Gq_Elements ( p_api_version_number => p_api_version_number
1048: ,p_init_msg_list => p_init_msg_list
1059:
1060: -- Debug Message
1061: IF (PV_DEBUG_HIGH_ON) THEN
1062:
1063: PVX_UTILITY_PVT.debug_message( 'Private API: Calling delete table handler');
1064: END IF;
1065:
1066: -- Invoke table handler(Pv_Gq_Elements_Pkg.Delete_Row)
1067: Pv_Gq_Elements_Pkg.Delete_Row(
1081:
1082: -- Debug Message
1083: IF (PV_DEBUG_HIGH_ON) THEN
1084:
1085: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1086: END IF;
1087:
1088:
1089: -- Standard call to get message count and if count is 1, get message info.
1092: p_data => x_msg_data
1093: );
1094: EXCEPTION
1095:
1096: WHEN PVX_Utility_PVT.resource_locked THEN
1097: x_return_status := FND_API.g_ret_sts_error;
1098: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1099:
1100: WHEN FND_API.G_EXC_ERROR THEN
1094: EXCEPTION
1095:
1096: WHEN PVX_Utility_PVT.resource_locked THEN
1097: x_return_status := FND_API.g_ret_sts_error;
1098: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1099:
1100: WHEN FND_API.G_EXC_ERROR THEN
1101: ROLLBACK TO DELETE_Gq_Elements_PVT;
1102: x_return_status := FND_API.G_RET_STS_ERROR;
1221:
1222: -- Debug Message
1223: IF (PV_DEBUG_HIGH_ON) THEN
1224:
1225: PVX_UTILITY_PVT.debug_message('Private API: ...' || l_api_name || ' start');
1226: END IF;
1227:
1228:
1229:
1235: --
1236: -- Debug Message
1237: IF (PV_DEBUG_HIGH_ON) THEN
1238:
1239: PVX_UTILITY_PVT.debug_message( 'p_qsnr_element_id = ' || p_qsnr_element_id);
1240: END IF;
1241: IF (PV_DEBUG_HIGH_ON) THEN
1242:
1243: PVX_UTILITY_PVT.debug_message( 'p_object_version_number = ' || p_object_version_number);
1239: PVX_UTILITY_PVT.debug_message( 'p_qsnr_element_id = ' || p_qsnr_element_id);
1240: END IF;
1241: IF (PV_DEBUG_HIGH_ON) THEN
1242:
1243: PVX_UTILITY_PVT.debug_message( 'p_object_version_number = ' || p_object_version_number);
1244: END IF;
1245:
1246: IF (PV_DEBUG_HIGH_ON) THEN
1247:
1246: IF (PV_DEBUG_HIGH_ON) THEN
1247:
1248:
1249:
1250: PVX_UTILITY_PVT.debug_message( 'Private API: Updating qsnr_elmt_seq/page_num field');
1251:
1252: END IF;
1253:
1254: -- Update the qsnr_elmt_page_num field of all records which have
1260: l_qsnr_element_rec.qsnr_elmt_page_num := l_get_elmt_greater_than.qsnr_elmt_page_num - 1;
1261: l_qsnr_element_rec.object_version_number := l_get_elmt_greater_than.object_version_number;
1262: IF (PV_DEBUG_HIGH_ON) THEN
1263:
1264: PVX_UTILITY_PVT.debug_message('qsnr_element_id = ' || l_qsnr_element_rec.qsnr_element_id);
1265: END IF;
1266: IF (PV_DEBUG_HIGH_ON) THEN
1267:
1268: PVX_UTILITY_PVT.debug_message('qsnr_elmt_page_num = ' || l_qsnr_element_rec.qsnr_elmt_page_num);
1264: PVX_UTILITY_PVT.debug_message('qsnr_element_id = ' || l_qsnr_element_rec.qsnr_element_id);
1265: END IF;
1266: IF (PV_DEBUG_HIGH_ON) THEN
1267:
1268: PVX_UTILITY_PVT.debug_message('qsnr_elmt_page_num = ' || l_qsnr_element_rec.qsnr_elmt_page_num);
1269: END IF;
1270: IF (PV_DEBUG_HIGH_ON) THEN
1271:
1272: PVX_UTILITY_PVT.debug_message('object_version_number = ' || l_qsnr_element_rec.object_version_number);
1268: PVX_UTILITY_PVT.debug_message('qsnr_elmt_page_num = ' || l_qsnr_element_rec.qsnr_elmt_page_num);
1269: END IF;
1270: IF (PV_DEBUG_HIGH_ON) THEN
1271:
1272: PVX_UTILITY_PVT.debug_message('object_version_number = ' || l_qsnr_element_rec.object_version_number);
1273: END IF;
1274:
1275: Update_Gq_Elements ( p_api_version_number => p_api_version_number
1276: ,p_init_msg_list => p_init_msg_list
1288: IF (PV_DEBUG_HIGH_ON) THEN
1289:
1290:
1291:
1292: PVX_UTILITY_PVT.debug_message( 'Private API: Calling delete table handler...');
1293:
1294: END IF;
1295: -- Invoke table handler(Pv_Gq_Elements_Pkg.Delete_Row)
1296: Pv_Gq_Elements_Pkg.Delete_Row(
1309:
1310: -- Debug Message
1311: IF (PV_DEBUG_HIGH_ON) THEN
1312:
1313: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1314: END IF;
1315:
1316:
1317: -- Standard call to get message count and if count is 1, get message info.
1320: p_data => x_msg_data
1321: );
1322: EXCEPTION
1323:
1324: WHEN PVX_Utility_PVT.resource_locked THEN
1325: x_return_status := FND_API.g_ret_sts_error;
1326: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1327:
1328: WHEN FND_API.G_EXC_ERROR THEN
1322: EXCEPTION
1323:
1324: WHEN PVX_Utility_PVT.resource_locked THEN
1325: x_return_status := FND_API.g_ret_sts_error;
1326: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1327:
1328: WHEN FND_API.G_EXC_ERROR THEN
1329: ROLLBACK TO Delete_Gq_PB_Elements_PVT;
1330: x_return_status := FND_API.G_RET_STS_ERROR;
1418:
1419: -- Debug Message
1420: IF (PV_DEBUG_HIGH_ON) THEN
1421:
1422: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1423: END IF;
1424:
1425:
1426: -- Initialize message list if p_init_msg_list is set to TRUE.
1456: p_count => x_msg_count,
1457: p_data => x_msg_data);
1458: IF (PV_DEBUG_HIGH_ON) THEN
1459:
1460: PVX_Utility_PVT.debug_message(l_full_name ||': end');
1461: END IF;
1462: EXCEPTION
1463:
1464: WHEN PVX_Utility_PVT.resource_locked THEN
1460: PVX_Utility_PVT.debug_message(l_full_name ||': end');
1461: END IF;
1462: EXCEPTION
1463:
1464: WHEN PVX_Utility_PVT.resource_locked THEN
1465: x_return_status := FND_API.g_ret_sts_error;
1466: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1467:
1468: WHEN FND_API.G_EXC_ERROR THEN
1462: EXCEPTION
1463:
1464: WHEN PVX_Utility_PVT.resource_locked THEN
1465: x_return_status := FND_API.g_ret_sts_error;
1466: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1467:
1468: WHEN FND_API.G_EXC_ERROR THEN
1469: ROLLBACK TO LOCK_Gq_Elements_PVT;
1470: x_return_status := FND_API.G_RET_STS_ERROR;
1512:
1513: BEGIN
1514: x_return_status := FND_API.g_ret_sts_success;
1515: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1516: l_valid_flag := PVX_Utility_PVT.check_uniqueness(
1517: 'pv_ge_qsnr_elements_b',
1518: 'qsnr_element_id = ''' || p_qsnr_element_rec.qsnr_element_id ||''''
1519: );
1520:
1518: 'qsnr_element_id = ''' || p_qsnr_element_rec.qsnr_element_id ||''''
1519: );
1520:
1521: IF l_valid_flag = FND_API.g_false THEN
1522: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_qsnr_element_id_DUPLICATE');
1523: x_return_status := FND_API.g_ret_sts_error;
1524: END IF;
1525: END IF;
1526:
1527: -- Fixed for bug #3380368
1528: IF p_qsnr_element_rec.qsnr_elmt_type = 'QUESTION' and
1529: p_qsnr_element_rec.entity_attr_id is not null THEN
1530: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1531: l_valid_flag := PVX_Utility_PVT.check_uniqueness(
1532: 'pv_ge_qsnr_elements_b',
1533: 'used_by_entity_id = ''' || p_qsnr_element_rec.used_by_entity_id ||''' AND entity_attr_id = ''' || p_qsnr_element_rec.entity_attr_id || '''');
1534:
1535: IF l_valid_flag = FND_API.g_false THEN
1532: 'pv_ge_qsnr_elements_b',
1533: 'used_by_entity_id = ''' || p_qsnr_element_rec.used_by_entity_id ||''' AND entity_attr_id = ''' || p_qsnr_element_rec.entity_attr_id || '''');
1534:
1535: IF l_valid_flag = FND_API.g_false THEN
1536: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_QSNR_PROFILE_ATTR_DUPLICATE');
1537: x_return_status := FND_API.g_ret_sts_error;
1538: END IF;
1539: ELSIF p_validation_mode = JTF_PLSQL_API.g_update THEN
1540: l_valid_flag := PVX_Utility_PVT.check_uniqueness(
1536: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_QSNR_PROFILE_ATTR_DUPLICATE');
1537: x_return_status := FND_API.g_ret_sts_error;
1538: END IF;
1539: ELSIF p_validation_mode = JTF_PLSQL_API.g_update THEN
1540: l_valid_flag := PVX_Utility_PVT.check_uniqueness(
1541: 'pv_ge_qsnr_elements_b',
1542: 'used_by_entity_id = ''' || p_qsnr_element_rec.used_by_entity_id ||''' AND entity_attr_id = ''' || p_qsnr_element_rec.entity_attr_id || ''' AND QSNR_ELEMENT_ID <> ''' || p_qsnr_element_rec.QSNR_ELEMENT_ID || '''');
1543:
1544: IF l_valid_flag = FND_API.g_false THEN
1541: 'pv_ge_qsnr_elements_b',
1542: 'used_by_entity_id = ''' || p_qsnr_element_rec.used_by_entity_id ||''' AND entity_attr_id = ''' || p_qsnr_element_rec.entity_attr_id || ''' AND QSNR_ELEMENT_ID <> ''' || p_qsnr_element_rec.QSNR_ELEMENT_ID || '''');
1543:
1544: IF l_valid_flag = FND_API.g_false THEN
1545: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_QSNR_PROFILE_ATTR_DUPLICATE');
1546: x_return_status := FND_API.g_ret_sts_error;
1547: END IF;
1548: END IF;
1549: END IF;
1564: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1565:
1566:
1567: IF p_qsnr_element_rec.qsnr_element_id = FND_API.G_MISS_NUM OR p_qsnr_element_rec.qsnr_element_id IS NULL THEN
1568: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'QSNR_ELEMENT_ID' );
1569: x_return_status := FND_API.g_ret_sts_error;
1570: END IF;
1571:
1572:
1570: END IF;
1571:
1572:
1573: IF p_qsnr_element_rec.object_version_number = FND_API.G_MISS_NUM OR p_qsnr_element_rec.object_version_number IS NULL THEN
1574: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
1575: x_return_status := FND_API.g_ret_sts_error;
1576: END IF;
1577:
1578:
1576: END IF;
1577:
1578:
1579: IF p_qsnr_element_rec.arc_used_by_entity_code = FND_API.g_miss_char OR p_qsnr_element_rec.arc_used_by_entity_code IS NULL THEN
1580: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'ARC_USED_BY_ENTITY_CODE' );
1581: x_return_status := FND_API.g_ret_sts_error;
1582: END IF;
1583:
1584:
1582: END IF;
1583:
1584:
1585: IF p_qsnr_element_rec.used_by_entity_id = FND_API.G_MISS_NUM OR p_qsnr_element_rec.used_by_entity_id IS NULL THEN
1586: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'USED_BY_ENTITY_ID' );
1587: x_return_status := FND_API.g_ret_sts_error;
1588: END IF;
1589:
1590:
1588: END IF;
1589:
1590:
1591: IF p_qsnr_element_rec.qsnr_elmt_seq_num = FND_API.G_MISS_NUM OR p_qsnr_element_rec.qsnr_elmt_seq_num IS NULL THEN
1592: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'QSNR_ELMT_SEQ_NUM' );
1593: x_return_status := FND_API.g_ret_sts_error;
1594: END IF;
1595:
1596:
1594: END IF;
1595:
1596:
1597: IF p_qsnr_element_rec.qsnr_elmt_type = FND_API.g_miss_char OR p_qsnr_element_rec.qsnr_elmt_type IS NULL THEN
1598: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'QSNR_ELMT_TYPE' );
1599: x_return_status := FND_API.g_ret_sts_error;
1600: END IF;
1601:
1602:
1600: END IF;
1601:
1602:
1603: IF p_qsnr_element_rec.qsnr_elmt_page_num = FND_API.G_MISS_NUM OR p_qsnr_element_rec.qsnr_elmt_page_num IS NULL THEN
1604: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'QSNR_ELMT_PAGE_NUM' );
1605: x_return_status := FND_API.g_ret_sts_error;
1606: END IF;
1607:
1608:
1606: END IF;
1607:
1608:
1609: IF p_qsnr_element_rec.is_required_flag = FND_API.g_miss_char OR p_qsnr_element_rec.is_required_flag IS NULL THEN
1610: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'IS_REQUIRED_FLAG' );
1611: x_return_status := FND_API.g_ret_sts_error;
1612: END IF;
1613:
1614:
1612: END IF;
1613:
1614:
1615: IF p_qsnr_element_rec.created_by = FND_API.G_MISS_NUM OR p_qsnr_element_rec.created_by IS NULL THEN
1616: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'CREATED_BY' );
1617: x_return_status := FND_API.g_ret_sts_error;
1618: END IF;
1619:
1620:
1618: END IF;
1619:
1620:
1621: IF p_qsnr_element_rec.creation_date = FND_API.G_MISS_DATE OR p_qsnr_element_rec.creation_date IS NULL THEN
1622: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'CREATION_DATE' );
1623: x_return_status := FND_API.g_ret_sts_error;
1624: END IF;
1625:
1626:
1624: END IF;
1625:
1626:
1627: IF p_qsnr_element_rec.last_updated_by = FND_API.G_MISS_NUM OR p_qsnr_element_rec.last_updated_by IS NULL THEN
1628: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATED_BY' );
1629: x_return_status := FND_API.g_ret_sts_error;
1630: END IF;
1631:
1632:
1630: END IF;
1631:
1632:
1633: IF p_qsnr_element_rec.last_update_date = FND_API.G_MISS_DATE OR p_qsnr_element_rec.last_update_date IS NULL THEN
1634: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATE_DATE' );
1635: x_return_status := FND_API.g_ret_sts_error;
1636: END IF;
1637:
1638:
1639: ELSE
1640:
1641:
1642: IF p_qsnr_element_rec.qsnr_element_id = FND_API.G_MISS_NUM THEN
1643: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'QSNR_ELEMENT_ID' );
1644: x_return_status := FND_API.g_ret_sts_error;
1645: END IF;
1646:
1647:
1645: END IF;
1646:
1647:
1648: IF p_qsnr_element_rec.object_version_number = FND_API.G_MISS_NUM THEN
1649: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
1650: x_return_status := FND_API.g_ret_sts_error;
1651: END IF;
1652:
1653: /*
1651: END IF;
1652:
1653: /*
1654: IF p_qsnr_element_rec.arc_used_by_entity_code = FND_API.g_miss_char THEN
1655: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'ARC_USED_BY_ENTITY_CODE' );
1656: x_return_status := FND_API.g_ret_sts_error;
1657: END IF;
1658:
1659:
1657: END IF;
1658:
1659:
1660: IF p_qsnr_element_rec.used_by_entity_id = FND_API.G_MISS_NUM THEN
1661: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'USED_BY_ENTITY_ID' );
1662: x_return_status := FND_API.g_ret_sts_error;
1663: END IF;
1664:
1665:
1663: END IF;
1664:
1665:
1666: IF p_qsnr_element_rec.qsnr_elmt_seq_num = FND_API.G_MISS_NUM THEN
1667: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'QSNR_ELMT_SEQ_NUM' );
1668: x_return_status := FND_API.g_ret_sts_error;
1669: END IF;
1670:
1671:
1669: END IF;
1670:
1671:
1672: IF p_qsnr_element_rec.qsnr_elmt_type = FND_API.g_miss_char THEN
1673: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'QSNR_ELMT_TYPE' );
1674: x_return_status := FND_API.g_ret_sts_error;
1675: END IF;
1676:
1677:
1675: END IF;
1676:
1677:
1678: IF p_qsnr_element_rec.qsnr_elmt_page_num = FND_API.G_MISS_NUM THEN
1679: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'QSNR_ELMT_PAGE_NUM' );
1680: x_return_status := FND_API.g_ret_sts_error;
1681: END IF;
1682:
1683:
1681: END IF;
1682:
1683:
1684: IF p_qsnr_element_rec.is_required_flag = FND_API.g_miss_char THEN
1685: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'IS_REQUIRED_FLAG' );
1686: x_return_status := FND_API.g_ret_sts_error;
1687: END IF;
1688:
1689:
1687: END IF;
1688:
1689:
1690: IF p_qsnr_element_rec.created_by = FND_API.G_MISS_NUM THEN
1691: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'CREATED_BY' );
1692: x_return_status := FND_API.g_ret_sts_error;
1693: END IF;
1694:
1695:
1693: END IF;
1694:
1695:
1696: IF p_qsnr_element_rec.creation_date = FND_API.G_MISS_DATE THEN
1697: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'CREATION_DATE' );
1698: x_return_status := FND_API.g_ret_sts_error;
1699: END IF;
1700:
1701:
1699: END IF;
1700:
1701:
1702: IF p_qsnr_element_rec.last_updated_by = FND_API.G_MISS_NUM THEN
1703: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATED_BY' );
1704: x_return_status := FND_API.g_ret_sts_error;
1705: END IF;
1706:
1707:
1705: END IF;
1706:
1707:
1708: IF p_qsnr_element_rec.last_update_date = FND_API.G_MISS_DATE THEN
1709: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATE_DATE' );
1710: x_return_status := FND_API.g_ret_sts_error;
1711: END IF;
1712: */
1713: END IF;
1740:
1741: ----------------------- PV_QUESTIONNAIRE_ENTITY_CODE LOOKUP ------------------------
1742: IF p_qsnr_element_rec.arc_used_by_entity_code <> FND_API.g_miss_char THEN
1743:
1744: IF PVX_Utility_PVT.check_lookup_exists(
1745: 'PV_LOOKUPS', -- Look up Table Name
1746: 'PV_QUESTIONNAIRE_ENTITY_CODE', -- Lookup Type
1747: p_qsnr_element_rec.arc_used_by_entity_code -- Lookup Code
1748: ) = FND_API.g_false
1759: END IF;
1760: -- Debug message
1761: IF (PV_DEBUG_HIGH_ON) THEN
1762:
1763: PVX_UTILITY_PVT.debug_message('- In Check_Lookup_Items : After program_level_code lookup check. x_return_status = '||x_return_status);
1764: END IF;
1765:
1766: END check_Qs_Elemnt_Lookup_Items;
1767:
1779: l_return_status := FND_API.g_ret_sts_success;
1780: -- Check Items Uniqueness API calls
1781:
1782: IF (PV_DEBUG_HIGH_ON) THEN
1783: PVX_UTILITY_PVT.debug_message('check_Qsnr_element_Uk_Items');
1784: END IF;
1785:
1786: check_Qsnr_element_Uk_Items(
1787: p_qsnr_element_rec => p_qsnr_element_rec,
1793:
1794: -- Check Items Required/NOT NULL API calls
1795:
1796: IF (PV_DEBUG_HIGH_ON) THEN
1797: PVX_UTILITY_PVT.debug_message('check_qsnr_element_req_items');
1798: END IF;
1799:
1800: check_qsnr_element_req_items(
1801: p_qsnr_element_rec => p_qsnr_element_rec,
1806: END IF;
1807: -- Check Items Foreign Keys API calls
1808:
1809: IF (PV_DEBUG_HIGH_ON) THEN
1810: PVX_UTILITY_PVT.debug_message('check_qsnr_element_FK_items');
1811: END IF;
1812:
1813: check_qsnr_element_FK_items(
1814: p_qsnr_element_rec => p_qsnr_element_rec,
1818: END IF;
1819: -- Check Items Lookups
1820:
1821: IF (PV_DEBUG_HIGH_ON) THEN
1822: PVX_UTILITY_PVT.debug_message('check_qs_elemnt_Lookup_items');
1823: END IF;
1824:
1825: check_qs_elemnt_Lookup_items(
1826: p_qsnr_element_rec => p_qsnr_element_rec,
1986: IF (PV_DEBUG_HIGH_ON) THEN
1987:
1988:
1989:
1990: PVX_UTILITY_PVT.debug_message('Check_qsnr_element_Items');
1991:
1992: END IF;
1993:
1994: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
2013: IF (PV_DEBUG_HIGH_ON) THEN
2014:
2015:
2016:
2017: PVX_UTILITY_PVT.debug_message('Complete_qsnr_element_Rec');
2018:
2019: END IF;
2020:
2021: Complete_qsnr_element_Rec(
2028: IF (PV_DEBUG_HIGH_ON) THEN
2029:
2030:
2031:
2032: PVX_UTILITY_PVT.debug_message('Validate_qsnr_element_Rec');
2033:
2034: END IF;
2035:
2036: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
2042: x_msg_data => x_msg_data,
2043: p_qsnr_element_rec => l_qsnr_element_rec);
2044: IF (PV_DEBUG_HIGH_ON) THEN
2045:
2046: PVX_UTILITY_PVT.debug_message('Validate_qsnr_element_Rec end.....');
2047: END IF;
2048:
2049: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2050: RAISE FND_API.G_EXC_ERROR;
2056:
2057: -- Debug Message
2058: IF (PV_DEBUG_HIGH_ON) THEN
2059:
2060: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
2061: END IF;
2062:
2063:
2064:
2068:
2069: -- Debug Message
2070: IF (PV_DEBUG_HIGH_ON) THEN
2071:
2072: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2073: END IF;
2074:
2075:
2076: -- Standard call to get message count and if count is 1, get message info.
2079: p_data => x_msg_data
2080: );
2081: EXCEPTION
2082:
2083: WHEN PVX_Utility_PVT.resource_locked THEN
2084: x_return_status := FND_API.g_ret_sts_error;
2085: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2086:
2087: WHEN FND_API.G_EXC_ERROR THEN
2081: EXCEPTION
2082:
2083: WHEN PVX_Utility_PVT.resource_locked THEN
2084: x_return_status := FND_API.g_ret_sts_error;
2085: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2086:
2087: WHEN FND_API.G_EXC_ERROR THEN
2088: ROLLBACK TO VALIDATE_Gq_Elements_;
2089: x_return_status := FND_API.G_RET_STS_ERROR;
2148:
2149: -- Debug Message
2150: IF (PV_DEBUG_HIGH_ON) THEN
2151:
2152: PVX_UTILITY_PVT.debug_message('Private API: Validate_dm_model_rec');
2153: END IF;
2154: -- Standard call to get message count and if count is 1, get message info.
2155: FND_MSG_PUB.Count_And_Get
2156: (p_count => x_msg_count,
2241:
2242: -- Debug Message
2243: IF (PV_DEBUG_HIGH_ON) THEN
2244:
2245: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' - start');
2246: END IF;
2247:
2248: -- Standard call to check for call compatibility.
2249: IF NOT FND_API.Compatible_API_Call (l_api_version_number
2266:
2267: -- Debug Message
2268: IF (PV_DEBUG_HIGH_ON) THEN
2269:
2270: PVX_UTILITY_PVT.debug_message( 'Private API: Start to move');
2271: END IF;
2272:
2273: OPEN c_get_used_by_entity(p_qsnr_element_rec.qsnr_element_id);
2274: FETCH c_get_used_by_entity INTO l_get_used_by_entity;
2277: IF (PV_DEBUG_HIGH_ON) THEN
2278:
2279:
2280:
2281: PVX_UTILITY_PVT.debug_message( 'qsnr_elmt_seq_num = ' || l_get_used_by_entity.qsnr_elmt_seq_num);
2282:
2283: END IF;
2284: IF (PV_DEBUG_HIGH_ON) THEN
2285:
2282:
2283: END IF;
2284: IF (PV_DEBUG_HIGH_ON) THEN
2285:
2286: PVX_UTILITY_PVT.debug_message( 'arc_used_by_entity_code = ' || l_get_used_by_entity.arc_used_by_entity_code);
2287: END IF;
2288: IF (PV_DEBUG_HIGH_ON) THEN
2289:
2290: PVX_UTILITY_PVT.debug_message( 'used_by_entity_id = ' || l_get_used_by_entity.used_by_entity_id);
2286: PVX_UTILITY_PVT.debug_message( 'arc_used_by_entity_code = ' || l_get_used_by_entity.arc_used_by_entity_code);
2287: END IF;
2288: IF (PV_DEBUG_HIGH_ON) THEN
2289:
2290: PVX_UTILITY_PVT.debug_message( 'used_by_entity_id = ' || l_get_used_by_entity.used_by_entity_id);
2291: END IF;
2292:
2293: OPEN c_get_qsnr(l_get_used_by_entity.qsnr_elmt_seq_num,
2294: l_get_used_by_entity.arc_used_by_entity_code,
2317:
2318:
2319:
2320:
2321: PVX_UTILITY_PVT.debug_message('qsnr_elmt_type = ' || l_current_qsnr_rec.qsnr_elmt_type);
2322:
2323:
2324: END IF;
2325: IF (PV_DEBUG_HIGH_ON) THEN
2323:
2324: END IF;
2325: IF (PV_DEBUG_HIGH_ON) THEN
2326:
2327: PVX_UTILITY_PVT.debug_message('qsnr_elmt_type = ' || l_up_qsnr_rec.qsnr_elmt_type);
2328: END IF;
2329:
2330: IF l_up_qsnr_rec.qsnr_elmt_type <> 'PAGEBREAK'
2331: AND l_current_qsnr_rec.qsnr_elmt_type <> 'PAGEBREAK' THEN
2330: IF l_up_qsnr_rec.qsnr_elmt_type <> 'PAGEBREAK'
2331: AND l_current_qsnr_rec.qsnr_elmt_type <> 'PAGEBREAK' THEN
2332: IF (PV_DEBUG_HIGH_ON) THEN
2333:
2334: PVX_UTILITY_PVT.debug_message('None is Page Break');
2335: END IF;
2336:
2337: l_up_qsnr_element_rec.qsnr_element_id := l_up_qsnr_rec.qsnr_element_id;
2338: l_up_qsnr_element_rec.object_version_number := l_up_qsnr_rec.object_version_number;
2388: ELSIF l_current_qsnr_rec.qsnr_elmt_type = 'PAGEBREAK'
2389: AND l_up_qsnr_rec.qsnr_elmt_type <> 'PAGEBREAK' THEN
2390: IF (PV_DEBUG_HIGH_ON) THEN
2391:
2392: PVX_UTILITY_PVT.debug_message('Current is Page Break');
2393: END IF;
2394:
2395: l_up_qsnr_element_rec.qsnr_element_id := l_up_qsnr_rec.qsnr_element_id;
2396: l_up_qsnr_element_rec.object_version_number := l_up_qsnr_rec.object_version_number;
2454: ELSIF l_up_qsnr_rec.qsnr_elmt_type = 'PAGEBREAK'
2455: AND l_current_qsnr_rec.qsnr_elmt_type <> 'PAGEBREAK' THEN
2456: IF (PV_DEBUG_HIGH_ON) THEN
2457:
2458: PVX_UTILITY_PVT.debug_message('Up is Page Break');
2459: END IF;
2460:
2461: l_up_qsnr_element_rec.qsnr_element_id := l_up_qsnr_rec.qsnr_element_id;
2462: l_up_qsnr_element_rec.object_version_number := l_up_qsnr_rec.object_version_number;
2478: IF (PV_DEBUG_HIGH_ON) THEN
2479:
2480:
2481:
2482: PVX_UTILITY_PVT.debug_message('l_up_qsnr_element_rec.qsnr_elmt_seq_num' || l_up_qsnr_element_rec.qsnr_elmt_seq_num);
2483:
2484: END IF;
2485: IF (PV_DEBUG_HIGH_ON) THEN
2486:
2483:
2484: END IF;
2485: IF (PV_DEBUG_HIGH_ON) THEN
2486:
2487: PVX_UTILITY_PVT.debug_message('l_current_qsnr_rec.qsnr_elmt_seq_num' || l_current_qsnr_rec.qsnr_elmt_seq_num);
2488: END IF;
2489:
2490:
2491: Update_Gq_Elements( p_api_version_number => 1.0,
2526:
2527: -- Debug Message
2528: IF (PV_DEBUG_HIGH_ON) THEN
2529:
2530: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' - end');
2531: END IF;
2532:
2533: -- Standard check for p_commit
2534: IF FND_API.to_Boolean( p_commit ) THEN