32: PROCEDURE Grant_Document_Role
33: (
34: p_api_version IN NUMBER,
35: p_init_msg_list IN VARCHAR2,
36: p_commit IN VARCHAR2 := FND_API.G_FALSE,
37: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
38: p_object_name IN VARCHAR2,
39: p_pk1_value IN VARCHAR2,
40: p_pk2_value IN VARCHAR2,
33: (
34: p_api_version IN NUMBER,
35: p_init_msg_list IN VARCHAR2,
36: p_commit IN VARCHAR2 := FND_API.G_FALSE,
37: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
38: p_object_name IN VARCHAR2,
39: p_pk1_value IN VARCHAR2,
40: p_pk2_value IN VARCHAR2,
41: p_pk3_value IN VARCHAR2,
60: l_pk4_value VARCHAR2(50);
61: BEGIN
62:
63: -- Initialize API return status to success
64: x_return_status := FND_API.G_RET_STS_SUCCESS;
65:
66: SELECT menu_name
67: INTO l_role_name
68: FROM fnd_menus
112: Grant_Attachments_OCSRole
113: (
114: p_api_version => 1.0,
115: p_init_msg_list => NULL,
116: p_commit => FND_API.G_TRUE,
117: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
118: p_entity_name => p_object_name,
119: p_pk1_value => p_pk1_value,
120: p_pk2_value => p_pk2_value,
113: (
114: p_api_version => 1.0,
115: p_init_msg_list => NULL,
116: p_commit => FND_API.G_TRUE,
117: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
118: p_entity_name => p_object_name,
119: p_pk1_value => p_pk1_value,
120: p_pk2_value => p_pk2_value,
121: p_pk3_value => NULL,
129: x_return_status => x_return_status
130: );
131:
132: -- Standard check of p_commit.
133: IF FND_API.To_Boolean( p_commit ) THEN
134: COMMIT WORK;
135: END IF;
136:
137: --
137: --
138: -- returns T if the action is success
139: -- and F on failure
140: --
141: IF ( l_return_status = FND_API.G_TRUE OR l_return_status = FND_API.G_FALSE )
142: THEN
143: x_return_status := FND_API.G_RET_STS_SUCCESS;
144: ELSE
145: x_return_status := FND_API.G_RET_STS_ERROR ;
139: -- and F on failure
140: --
141: IF ( l_return_status = FND_API.G_TRUE OR l_return_status = FND_API.G_FALSE )
142: THEN
143: x_return_status := FND_API.G_RET_STS_SUCCESS;
144: ELSE
145: x_return_status := FND_API.G_RET_STS_ERROR ;
146: END IF ;
147:
141: IF ( l_return_status = FND_API.G_TRUE OR l_return_status = FND_API.G_FALSE )
142: THEN
143: x_return_status := FND_API.G_RET_STS_SUCCESS;
144: ELSE
145: x_return_status := FND_API.G_RET_STS_ERROR ;
146: END IF ;
147:
148: EXCEPTION
149: WHEN OTHERS THEN
146: END IF ;
147:
148: EXCEPTION
149: WHEN OTHERS THEN
150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
151:
152: IF FND_MSG_PUB.Check_Msg_Level
153: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
154: THEN
165: PROCEDURE Revoke_Document_Role
166: (
167: p_api_version IN NUMBER,
168: p_init_msg_list IN VARCHAR2,
169: p_commit IN VARCHAR2 := FND_API.G_FALSE,
170: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
171: p_object_name IN VARCHAR2,
172: p_pk1_value IN VARCHAR2,
173: p_pk2_value IN VARCHAR2,
166: (
167: p_api_version IN NUMBER,
168: p_init_msg_list IN VARCHAR2,
169: p_commit IN VARCHAR2 := FND_API.G_FALSE,
170: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
171: p_object_name IN VARCHAR2,
172: p_pk1_value IN VARCHAR2,
173: p_pk2_value IN VARCHAR2,
174: p_pk3_value IN VARCHAR2,
202:
203: BEGIN
204:
205: -- Initialize API return status to success
206: x_return_status := FND_API.G_RET_STS_SUCCESS;
207:
208: SELECT object_id
209: INTO l_object_id
210: FROM fnd_objects
303: Revoke_Attachments_OCSRole
304: (
305: p_api_version => 1.0,
306: p_init_msg_list => NULL,
307: p_commit => FND_API.G_TRUE,
308: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
309: p_entity_name => p_object_name,
310: p_pk1_value => p_pk1_value,
311: p_pk2_value => p_pk2_value,
304: (
305: p_api_version => 1.0,
306: p_init_msg_list => NULL,
307: p_commit => FND_API.G_TRUE,
308: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
309: p_entity_name => p_object_name,
310: p_pk1_value => p_pk1_value,
311: p_pk2_value => p_pk2_value,
312: p_pk3_value => NULL,
321: );
322:
323:
324: -- Standard check of p_commit.
325: IF FND_API.To_Boolean( p_commit ) THEN
326: COMMIT WORK;
327: END IF;
328:
329: --
329: --
330: -- returns T if the action is success
331: -- and F on failure
332: --
333: IF ( l_return_status = FND_API.G_TRUE OR
334: l_return_status = FND_API.G_FALSE )
335: THEN
336: x_return_status := FND_API.G_RET_STS_SUCCESS;
337: ELSE
330: -- returns T if the action is success
331: -- and F on failure
332: --
333: IF ( l_return_status = FND_API.G_TRUE OR
334: l_return_status = FND_API.G_FALSE )
335: THEN
336: x_return_status := FND_API.G_RET_STS_SUCCESS;
337: ELSE
338: x_return_status := FND_API.G_RET_STS_ERROR ;
332: --
333: IF ( l_return_status = FND_API.G_TRUE OR
334: l_return_status = FND_API.G_FALSE )
335: THEN
336: x_return_status := FND_API.G_RET_STS_SUCCESS;
337: ELSE
338: x_return_status := FND_API.G_RET_STS_ERROR ;
339: END IF ;
340:
334: l_return_status = FND_API.G_FALSE )
335: THEN
336: x_return_status := FND_API.G_RET_STS_SUCCESS;
337: ELSE
338: x_return_status := FND_API.G_RET_STS_ERROR ;
339: END IF ;
340:
341: EXCEPTION
342: WHEN OTHERS THEN
340:
341: EXCEPTION
342: WHEN OTHERS THEN
343:
344: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
345:
346: IF FND_MSG_PUB.Check_Msg_Level
347: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
348: THEN
359: PROCEDURE Grant_Attachments_OCSRole
360: (
361: p_api_version IN NUMBER,
362: p_init_msg_list IN VARCHAR2,
363: p_commit IN VARCHAR2 := FND_API.G_FALSE,
364: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
365: p_entity_name IN VARCHAR2,
366: p_pk1_value IN VARCHAR2,
367: p_pk2_value IN VARCHAR2,
360: (
361: p_api_version IN NUMBER,
362: p_init_msg_list IN VARCHAR2,
363: p_commit IN VARCHAR2 := FND_API.G_FALSE,
364: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
365: p_entity_name IN VARCHAR2,
366: p_pk1_value IN VARCHAR2,
367: p_pk2_value IN VARCHAR2,
368: p_pk3_value IN VARCHAR2,
535:
536: CLOSE get_attachments;
537:
538: -- Initialize API return status to success
539: x_return_status := FND_API.G_RET_STS_SUCCESS;
540:
541: -- Standard check of p_commit.
542: IF FND_API.To_Boolean( p_commit ) THEN
543: COMMIT WORK;
538: -- Initialize API return status to success
539: x_return_status := FND_API.G_RET_STS_SUCCESS;
540:
541: -- Standard check of p_commit.
542: IF FND_API.To_Boolean( p_commit ) THEN
543: COMMIT WORK;
544: END IF;
545:
546: --
546: --
547: -- returns T if the action is success
548: -- and F on failure
549: --
550: IF ( l_return_status = FND_API.G_TRUE OR
551: l_return_status = FND_API.G_FALSE )
552: THEN
553: x_return_status := FND_API.G_RET_STS_SUCCESS;
554: ELSE
547: -- returns T if the action is success
548: -- and F on failure
549: --
550: IF ( l_return_status = FND_API.G_TRUE OR
551: l_return_status = FND_API.G_FALSE )
552: THEN
553: x_return_status := FND_API.G_RET_STS_SUCCESS;
554: ELSE
555: x_return_status := FND_API.G_RET_STS_ERROR ;
549: --
550: IF ( l_return_status = FND_API.G_TRUE OR
551: l_return_status = FND_API.G_FALSE )
552: THEN
553: x_return_status := FND_API.G_RET_STS_SUCCESS;
554: ELSE
555: x_return_status := FND_API.G_RET_STS_ERROR ;
556: END IF ;
557:
551: l_return_status = FND_API.G_FALSE )
552: THEN
553: x_return_status := FND_API.G_RET_STS_SUCCESS;
554: ELSE
555: x_return_status := FND_API.G_RET_STS_ERROR ;
556: END IF ;
557:
558: -- dbms_output.put_line('value: '||x_return_status);
559:
560: EXCEPTION
561:
562: WHEN OTHERS THEN
563:
564: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
565:
566: IF FND_MSG_PUB.Check_Msg_Level
567: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
568: THEN
643:
644: END LOOP;
645:
646: -- Initialize API return status to success
647: x_return_status := FND_API.G_RET_STS_SUCCESS;
648:
649:
650: --
651: -- returns T if the action is success
650: --
651: -- returns T if the action is success
652: -- and F on failure
653: --
654: IF ( l_return_status = FND_API.G_TRUE OR
655: l_return_status = FND_API.G_FALSE )
656: THEN
657: x_return_status := FND_API.G_RET_STS_SUCCESS;
658: ELSE
651: -- returns T if the action is success
652: -- and F on failure
653: --
654: IF ( l_return_status = FND_API.G_TRUE OR
655: l_return_status = FND_API.G_FALSE )
656: THEN
657: x_return_status := FND_API.G_RET_STS_SUCCESS;
658: ELSE
659: x_return_status := FND_API.G_RET_STS_ERROR ;
653: --
654: IF ( l_return_status = FND_API.G_TRUE OR
655: l_return_status = FND_API.G_FALSE )
656: THEN
657: x_return_status := FND_API.G_RET_STS_SUCCESS;
658: ELSE
659: x_return_status := FND_API.G_RET_STS_ERROR ;
660: END IF ;
661:
655: l_return_status = FND_API.G_FALSE )
656: THEN
657: x_return_status := FND_API.G_RET_STS_SUCCESS;
658: ELSE
659: x_return_status := FND_API.G_RET_STS_ERROR ;
660: END IF ;
661:
662: -- dbms_output.put_line('value: '||x_return_status);
663:
664: EXCEPTION
665:
666: WHEN OTHERS THEN
667:
668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
669:
670: IF FND_MSG_PUB.Check_Msg_Level
671: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
672: THEN
684: PROCEDURE Revoke_Attachments_OCSRole
685: (
686: p_api_version IN NUMBER,
687: p_init_msg_list IN VARCHAR2,
688: p_commit IN VARCHAR2 := FND_API.G_FALSE,
689: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
690: p_entity_name IN VARCHAR2,
691: p_pk1_value IN VARCHAR2,
692: p_pk2_value IN VARCHAR2,
685: (
686: p_api_version IN NUMBER,
687: p_init_msg_list IN VARCHAR2,
688: p_commit IN VARCHAR2 := FND_API.G_FALSE,
689: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
690: p_entity_name IN VARCHAR2,
691: p_pk1_value IN VARCHAR2,
692: p_pk2_value IN VARCHAR2,
693: p_pk3_value IN VARCHAR2,
841:
842: CLOSE get_attachments;
843:
844: -- Initialize API return status to success
845: x_return_status := FND_API.G_RET_STS_SUCCESS;
846:
847: -- Standard check of p_commit.
848: IF FND_API.To_Boolean( p_commit ) THEN
849: COMMIT WORK;
844: -- Initialize API return status to success
845: x_return_status := FND_API.G_RET_STS_SUCCESS;
846:
847: -- Standard check of p_commit.
848: IF FND_API.To_Boolean( p_commit ) THEN
849: COMMIT WORK;
850: END IF;
851:
852: --
852: --
853: -- returns T if the action is success
854: -- and F on failure
855: --
856: IF ( l_return_status = FND_API.G_TRUE OR
857: l_return_status = FND_API.G_FALSE )
858: THEN
859: x_return_status := FND_API.G_RET_STS_SUCCESS;
860: ELSE
853: -- returns T if the action is success
854: -- and F on failure
855: --
856: IF ( l_return_status = FND_API.G_TRUE OR
857: l_return_status = FND_API.G_FALSE )
858: THEN
859: x_return_status := FND_API.G_RET_STS_SUCCESS;
860: ELSE
861: x_return_status := FND_API.G_RET_STS_ERROR ;
855: --
856: IF ( l_return_status = FND_API.G_TRUE OR
857: l_return_status = FND_API.G_FALSE )
858: THEN
859: x_return_status := FND_API.G_RET_STS_SUCCESS;
860: ELSE
861: x_return_status := FND_API.G_RET_STS_ERROR ;
862: END IF ;
863:
857: l_return_status = FND_API.G_FALSE )
858: THEN
859: x_return_status := FND_API.G_RET_STS_SUCCESS;
860: ELSE
861: x_return_status := FND_API.G_RET_STS_ERROR ;
862: END IF ;
863:
864: EXCEPTION
865: WHEN OTHERS THEN
863:
864: EXCEPTION
865: WHEN OTHERS THEN
866:
867: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
868:
869: IF FND_MSG_PUB.Check_Msg_Level
870: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
871: THEN