530: /* Date : Dec 27 2001 */
531: /*----------------------------------------------------------------- */
532:
533:
534: IF JTF_USR_HKS.Ok_to_Execute( 'AHL_DI_DOC_REVISION_PUB','CREATE_REVISION',
535: 'B', 'C' ) then
536:
537:
538: IF G_DEBUG='Y' THEN
562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
563: END IF;
564: END IF;
565:
566: IF JTF_USR_HKS.Ok_to_Execute( 'AHL_DI_DOC_REVISION_PUB','CREATE_REVISION',
567: 'B', 'V' ) then
568: IF G_DEBUG='Y' THEN
569: AHL_DEBUG_PUB.debug( 'Start AHL_DI_DOC_REVISION_VUHK.CREATE_REVISION_PRE');
570:
643: /* Date : Dec 27 2001 */
644: /*------------------------------------------------------------------------------*/
645:
646:
647: IF JTF_USR_HKS.Ok_to_Execute( 'AHL_DI_DOC_REVISION_PUB','CREATE_REVISION',
648: 'A', 'V' ) then
649:
650: IF G_DEBUG='Y' THEN
651: AHL_DEBUG_PUB.debug( 'Start AHL_DI_DOC_REVISION_VUHK.CREATE_REVISION_POST');
670: END IF;
671:
672: END IF;
673:
674: IF JTF_USR_HKS.Ok_to_Execute( 'AHL_DI_DOC_REVISION_PUB','CREATE_REVISION',
675: 'A', 'C' ) then
676:
677: IF G_DEBUG='Y' THEN
678: AHL_DEBUG_PUB.debug( 'Start AHL_DI_DOC_REVISION_CUHK.CREATE_REVISION_POST');
1285: /* Date : Dec 27 2001 */
1286: /*---------------------------------------------------------------*/
1287:
1288:
1289: IF JTF_USR_HKS.Ok_to_Execute( 'AHL_DI_DOC_REVISION_PUB','MODIFY_REVISION',
1290: 'B', 'C' ) then
1291: IF G_DEBUG='Y' THEN
1292: AHL_DEBUG_PUB.debug( 'Start AHL_DI_DOC_REVISION_CUHK.MODIFY_REVISION_PRE');
1293:
1314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1315: END IF;
1316: END IF;
1317:
1318: IF JTF_USR_HKS.Ok_to_Execute( 'AHL_DI_DOC_REVISION_PUB','MODIFY_REVISION',
1319: 'B', 'V' ) then
1320: IF G_DEBUG='Y' THEN
1321: AHL_DEBUG_PUB.debug( 'Start AHL_DI_DOC_REVISION_VUHK.MODIFY_REVISION_PRE');
1322:
1386: /*------------------------------------------------------------------------------*/
1387:
1388:
1389:
1390: IF JTF_USR_HKS.Ok_to_Execute( 'AHL_DI_DOC_REVISION_PUB','MODIFY_REVISION',
1391: 'A', 'V' ) then
1392: IF G_DEBUG='Y' THEN
1393: AHL_DEBUG_PUB.debug( 'Start AHL_DI_DOC_REVISION_VUHK.MODIFY_REVISION_POST');
1394:
1414:
1415:
1416: END IF;
1417:
1418: IF JTF_USR_HKS.Ok_to_Execute( 'AHL_DI_DOC_REVISION_PUB','MODIFY_REVISION',
1419: 'A', 'C' ) then
1420: IF G_DEBUG='Y' THEN
1421: AHL_DEBUG_PUB.debug( 'Start AHL_DI_DOC_REVISION_CUHK.MODIFY_REVISION_POST');
1422: