9: /* for doc type and sub type code */
10: /* */
11: /*---------------------------------------------------*/
12: --G_DEBUG VARCHAR2(1):=FND_PROFILE.VALUE('AHL_API_FILE_DEBUG_ON');
13: G_DEBUG VARCHAR2(1) := AHL_DEBUG_PUB.is_log_enabled;
14: PROCEDURE CREATE_DOC_TYPE_ASSOC
15: (
16: p_api_version IN NUMBER := 1.0 ,
17: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
64: -- Standard Start of API savepoint
65: SAVEPOINT create_doc_type_assoc;
66: -- Check if API is called in debug mode. If yes, enable debug.
67: IF G_DEBUG='Y' THEN
68: AHL_DEBUG_PUB.enable_debug;
69:
70: END IF;
71: -- Debug info.
72: IF G_DEBUG='Y' THEN
70: END IF;
71: -- Debug info.
72: IF G_DEBUG='Y' THEN
73: IF G_DEBUG='Y' THEN
74: AHL_DEBUG_PUB.debug( 'enter ahl_di_pro_type_aso_pub.Create Doc Type','+DOCTY+');
75:
76: END IF;
77: END IF;
78: -- Standard call to check for call compatibility.
196:
197: IF JTF_USR_HKS.Ok_to_Execute( 'AHL_DI_PRO_TYPE_ASO_PUB','CREATE_DOC_TYPE_ASSOC',
198: 'B', 'C' ) then
199: IF G_DEBUG='Y' THEN
200: AHL_DEBUG_PUB.debug( 'Start AHL_DI_PRO_TYPE_ASO_CUHK.Create_Doc_Type_Assoc_PRE');
201:
202: END IF;
203:
204: AHL_DI_PRO_TYPE_ASO_CUHK.Create_Doc_Type_Assoc_PRE
209: x_msg_data => l_msg_data
210: );
211:
212: IF G_DEBUG='Y' THEN
213: AHL_DEBUG_PUB.debug( 'End AHL_DI_PRO_TYPE_ASO_CUHK.Create_Doc_Type_Assoc_PRE');
214:
215: END IF;
216:
217: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
223:
224: IF JTF_USR_HKS.Ok_to_Execute( 'AHL_DI_PRO_TYPE_ASO_PUB','CREATE_DOC_TYPE_ASSOC',
225: 'B', 'V' ) then
226: IF G_DEBUG='Y' THEN
227: AHL_DEBUG_PUB.debug( 'Start AHL_DI_PRO_TYPE_ASO_VUHK.Create_Doc_Type_Assoc_PRE');
228:
229: END IF;
230:
231: AHL_DI_PRO_TYPE_ASO_VUHK.Create_Doc_Type_Assoc_PRE(
234: X_MSG_COUNT => l_msg_count ,
235: X_MSG_DATA => l_msg_data );
236:
237: IF G_DEBUG='Y' THEN
238: AHL_DEBUG_PUB.debug( 'End AHL_DI_PRO_TYPE_ASO_VUHK.Create_Doc_Type_Assoc_PRE');
239:
240: END IF;
241:
242: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
300:
301: IF JTF_USR_HKS.Ok_to_Execute( 'AHL_DI_PRO_TYPE_ASO_PUB','CREATE_DOC_TYPE_ASSOC',
302: 'A', 'V' ) then
303: IF G_DEBUG='Y' THEN
304: AHL_DEBUG_PUB.debug( 'Start AHL_DI_PRO_TYPE_ASO_VUHK.Create_Doc_Type_Assoc_POST');
305:
306: END IF;
307:
308: AHL_DI_PRO_TYPE_ASO_VUHK.Create_Doc_Type_Assoc_POST(
311: X_MSG_COUNT => l_msg_count ,
312: X_MSG_DATA => l_msg_data );
313:
314: IF G_DEBUG='Y' THEN
315: AHL_DEBUG_PUB.debug( 'End AHL_DI_PRO_TYPE_ASO_VUHK.Create_Doc_Type_Assoc_POST');
316:
317: END IF;
318:
319: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
327:
328: IF JTF_USR_HKS.Ok_to_Execute( 'AHL_DI_PRO_TYPE_ASO_PUB','CREATE_DOC_TYPE_ASSOC',
329: 'A', 'C' ) then
330: IF G_DEBUG='Y' THEN
331: AHL_DEBUG_PUB.debug( 'Start AHL_DI_PRO_TYPE_ASO_CUHK.Create_Doc_Type_Assoc_POST');
332:
333: END IF;
334:
335: AHL_DI_PRO_TYPE_ASO_CUHK.Create_Doc_Type_Assoc_POST(
339: X_MSG_COUNT => l_msg_count ,
340: X_MSG_DATA => l_msg_data );
341:
342: IF G_DEBUG='Y' THEN
343: AHL_DEBUG_PUB.debug( 'End AHL_DI_PRO_TYPE_ASO_CUHK.Create_Doc_Type_Assoc_POST');
344:
345: END IF;
346:
347: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
362: COMMIT;
363: END IF;
364: -- Debug info
365: IF G_DEBUG='Y' THEN
366: AHL_DEBUG_PUB.debug( 'End of public api Create Doc Type','+DOCTY+');
367:
368: END IF;
369: -- Check if API is called in debug mode. If yes, disable debug.
370: IF G_DEBUG='Y' THEN
367:
368: END IF;
369: -- Check if API is called in debug mode. If yes, disable debug.
370: IF G_DEBUG='Y' THEN
371: AHL_DEBUG_PUB.disable_debug;
372:
373: END IF;
374:
375: EXCEPTION
379: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
380: p_count => x_msg_count,
381: p_data => x_msg_data);
382: IF G_DEBUG='Y' THEN
383: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );
384: AHL_DEBUG_PUB.debug( 'ahl_di_pro_type_aso_pub.Create Doc Type','+DOCTY+');
385:
386:
387: -- Check if API is called in debug mode. If yes, disable debug.
380: p_count => x_msg_count,
381: p_data => x_msg_data);
382: IF G_DEBUG='Y' THEN
383: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );
384: AHL_DEBUG_PUB.debug( 'ahl_di_pro_type_aso_pub.Create Doc Type','+DOCTY+');
385:
386:
387: -- Check if API is called in debug mode. If yes, disable debug.
388: AHL_DEBUG_PUB.disable_debug;
384: AHL_DEBUG_PUB.debug( 'ahl_di_pro_type_aso_pub.Create Doc Type','+DOCTY+');
385:
386:
387: -- Check if API is called in debug mode. If yes, disable debug.
388: AHL_DEBUG_PUB.disable_debug;
389:
390: END IF;
391:
392: WHEN FND_API.G_EXC_ERROR THEN
396: p_count => x_msg_count,
397: p_data => X_msg_data);
398: -- Debug info.
399: IF G_DEBUG='Y' THEN
400: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
401: AHL_DEBUG_PUB.debug( 'ahl_di_pro_type_aso_pub.Create Doc Type','+DOCTY+');
402:
403: -- Check if API is called in debug mode. If yes, disable debug.
404: AHL_DEBUG_PUB.disable_debug;
397: p_data => X_msg_data);
398: -- Debug info.
399: IF G_DEBUG='Y' THEN
400: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
401: AHL_DEBUG_PUB.debug( 'ahl_di_pro_type_aso_pub.Create Doc Type','+DOCTY+');
402:
403: -- Check if API is called in debug mode. If yes, disable debug.
404: AHL_DEBUG_PUB.disable_debug;
405:
400: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
401: AHL_DEBUG_PUB.debug( 'ahl_di_pro_type_aso_pub.Create Doc Type','+DOCTY+');
402:
403: -- Check if API is called in debug mode. If yes, disable debug.
404: AHL_DEBUG_PUB.disable_debug;
405:
406: END IF;
407:
408: WHEN OTHERS THEN
419: p_data => X_msg_data);
420:
421: -- Debug info.
422: IF G_DEBUG='Y' THEN
423: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'SQL ERROR' );
424: AHL_DEBUG_PUB.debug( 'ahl_di_pro_type_aso_pub.Create Doc Type','+DOCTY+');
425:
426:
427: -- Check if API is called in debug mode. If yes, disable debug.
420:
421: -- Debug info.
422: IF G_DEBUG='Y' THEN
423: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'SQL ERROR' );
424: AHL_DEBUG_PUB.debug( 'ahl_di_pro_type_aso_pub.Create Doc Type','+DOCTY+');
425:
426:
427: -- Check if API is called in debug mode. If yes, disable debug.
428: AHL_DEBUG_PUB.disable_debug;
424: AHL_DEBUG_PUB.debug( 'ahl_di_pro_type_aso_pub.Create Doc Type','+DOCTY+');
425:
426:
427: -- Check if API is called in debug mode. If yes, disable debug.
428: AHL_DEBUG_PUB.disable_debug;
429:
430: END IF;
431:
432: END CREATE_DOC_TYPE_ASSOC;
490: -- Standard Start of API savepoint
491: SAVEPOINT modify_doc_type_assoc;
492: -- Check if API is called in debug mode. If yes, enable debug.
493: IF G_DEBUG='Y' THEN
494: AHL_DEBUG_PUB.enable_debug;
495:
496: END IF;
497: -- Debug info.
498: IF G_DEBUG='Y' THEN
496: END IF;
497: -- Debug info.
498: IF G_DEBUG='Y' THEN
499: IF G_DEBUG='Y' THEN
500: AHL_DEBUG_PUB.debug( 'enter ahl_di_pro_type_aso_pub.Modify Doc Type','+DOCTY+');
501:
502: END IF;
503: END IF;
504: -- Standard call to check for call compatibility.
616:
617: IF JTF_USR_HKS.Ok_to_Execute( 'AHL_DI_PRO_TYPE_ASO_PUB','MODIFY_DOC_TYPE_ASSOC',
618: 'B', 'C' ) then
619: IF G_DEBUG='Y' THEN
620: AHL_DEBUG_PUB.debug( 'Start AHL_DI_PRO_TYPE_ASO_CUHK.MODIFY_DOC_TYPE_ASSOC_PRE');
621:
622: END IF;
623:
624:
628: X_MSG_COUNT => l_msg_count ,
629: X_MSG_DATA => l_msg_data );
630:
631: IF G_DEBUG='Y' THEN
632: AHL_DEBUG_PUB.debug( 'End AHL_DI_PRO_TYPE_ASO_CUHK.MODIFY_DOC_TYPE_ASSOC_PRE');
633:
634: END IF;
635:
636: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
645:
646: IF JTF_USR_HKS.Ok_to_Execute( 'AHL_DI_PRO_TYPE_ASO_PUB','MODIFY_DOC_TYPE_ASSOC',
647: 'B', 'V' ) then
648: IF G_DEBUG='Y' THEN
649: AHL_DEBUG_PUB.debug( 'Start AHL_DI_PRO_TYPE_ASO_VUHK.MODIFY_DOC_TYPE_ASSOC_PRE');
650:
651: END IF;
652:
653: AHL_DI_PRO_TYPE_ASO_VUHK.MODIFY_DOC_TYPE_ASSOC_PRE(
656: X_MSG_COUNT => l_msg_count ,
657: X_MSG_DATA => l_msg_data );
658:
659: IF G_DEBUG='Y' THEN
660: AHL_DEBUG_PUB.debug( 'End AHL_DI_PRO_TYPE_ASO_VUHK.MODIFY_DOC_TYPE_ASSOC_PRE');
661:
662: END IF;
663:
664: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
713:
714: IF JTF_USR_HKS.Ok_to_Execute( 'AHL_DI_PRO_TYPE_ASO_PUB','MODIFY_DOC_TYPE_ASSOC',
715: 'A', 'V' ) then
716: IF G_DEBUG='Y' THEN
717: AHL_DEBUG_PUB.debug( 'Start AHL_DI_PRO_TYPE_ASO_VUHK.MODIFY_DOC_TYPE_ASSOC_POST');
718:
719: END IF;
720:
721: AHL_DI_PRO_TYPE_ASO_VUHK.MODIFY_DOC_TYPE_ASSOC_POST(
725: X_MSG_COUNT => l_msg_count ,
726: X_MSG_DATA => l_msg_data );
727:
728: IF G_DEBUG='Y' THEN
729: AHL_DEBUG_PUB.debug( 'End AHL_DI_PRO_TYPE_ASO_VUHK.MODIFY_DOC_TYPE_ASSOC_POST');
730:
731: END IF;
732:
733: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
740:
741: IF JTF_USR_HKS.Ok_to_Execute( 'AHL_DI_PRO_TYPE_ASO_PUB','MODIFY_DOC_TYPE_ASSOC',
742: 'A', 'C' ) then
743: IF G_DEBUG='Y' THEN
744: AHL_DEBUG_PUB.debug( 'Start AHL_DI_PRO_TYPE_ASO_CUHK.MODIFY_DOC_TYPE_ASSOC_POST');
745:
746: END IF;
747:
748: AHL_DI_PRO_TYPE_ASO_CUHK.MODIFY_DOC_TYPE_ASSOC_POST(
751: X_MSG_COUNT => l_msg_count ,
752: X_MSG_DATA => l_msg_data );
753:
754: IF G_DEBUG='Y' THEN
755: AHL_DEBUG_PUB.debug( 'End AHL_DI_PRO_TYPE_ASO_CUHK.MODIFY_DOC_TYPE_ASSOC_POST');
756:
757: END IF;
758:
759: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
778: COMMIT;
779: END IF;
780: -- Debug info
781: IF G_DEBUG='Y' THEN
782: AHL_DEBUG_PUB.debug( 'End of public api Modify Doc Type','+DOCTY+');
783:
784: END IF;
785: -- Check if API is called in debug mode. If yes, disable debug.
786: IF G_DEBUG='Y' THEN
783:
784: END IF;
785: -- Check if API is called in debug mode. If yes, disable debug.
786: IF G_DEBUG='Y' THEN
787: AHL_DEBUG_PUB.disable_debug;
788:
789: END IF;
790:
791: EXCEPTION
795: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
796: p_count => x_msg_count,
797: p_data => x_msg_data);
798: IF G_DEBUG='Y' THEN
799: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );
800: AHL_DEBUG_PUB.debug( 'ahl_di_pro_type_aso_pub.Modify Doc Type','+DOCTY+');
801:
802:
803: -- Check if API is called in debug mode. If yes, disable debug.
796: p_count => x_msg_count,
797: p_data => x_msg_data);
798: IF G_DEBUG='Y' THEN
799: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );
800: AHL_DEBUG_PUB.debug( 'ahl_di_pro_type_aso_pub.Modify Doc Type','+DOCTY+');
801:
802:
803: -- Check if API is called in debug mode. If yes, disable debug.
804: AHL_DEBUG_PUB.disable_debug;
800: AHL_DEBUG_PUB.debug( 'ahl_di_pro_type_aso_pub.Modify Doc Type','+DOCTY+');
801:
802:
803: -- Check if API is called in debug mode. If yes, disable debug.
804: AHL_DEBUG_PUB.disable_debug;
805:
806: END IF;
807:
808: WHEN FND_API.G_EXC_ERROR THEN
812: p_count => x_msg_count,
813: p_data => X_msg_data);
814: -- Debug info.
815: IF G_DEBUG='Y' THEN
816: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
817: AHL_DEBUG_PUB.debug( 'ahl_di_pro_type_aso_pub.Modify Doc Type','+DOCTY+');
818:
819:
820: -- Check if API is called in debug mode. If yes, disable debug.
813: p_data => X_msg_data);
814: -- Debug info.
815: IF G_DEBUG='Y' THEN
816: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
817: AHL_DEBUG_PUB.debug( 'ahl_di_pro_type_aso_pub.Modify Doc Type','+DOCTY+');
818:
819:
820: -- Check if API is called in debug mode. If yes, disable debug.
821: AHL_DEBUG_PUB.disable_debug;
817: AHL_DEBUG_PUB.debug( 'ahl_di_pro_type_aso_pub.Modify Doc Type','+DOCTY+');
818:
819:
820: -- Check if API is called in debug mode. If yes, disable debug.
821: AHL_DEBUG_PUB.disable_debug;
822:
823: END IF;
824:
825: WHEN OTHERS THEN
836: p_data => X_msg_data);
837:
838: -- Debug info.
839: IF G_DEBUG='Y' THEN
840: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'SQL ERROR' );
841: AHL_DEBUG_PUB.debug( 'ahl_di_pro_type_aso_pub.Modify Doc Type','+DOCTY+');
842:
843:
844: -- Check if API is called in debug mode. If yes, disable debug.
837:
838: -- Debug info.
839: IF G_DEBUG='Y' THEN
840: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'SQL ERROR' );
841: AHL_DEBUG_PUB.debug( 'ahl_di_pro_type_aso_pub.Modify Doc Type','+DOCTY+');
842:
843:
844: -- Check if API is called in debug mode. If yes, disable debug.
845: AHL_DEBUG_PUB.disable_debug;
841: AHL_DEBUG_PUB.debug( 'ahl_di_pro_type_aso_pub.Modify Doc Type','+DOCTY+');
842:
843:
844: -- Check if API is called in debug mode. If yes, disable debug.
845: AHL_DEBUG_PUB.disable_debug;
846:
847: END IF;
848:
849: END MODIFY_DOC_TYPE_ASSOC;