67: longer organization names to be accepted.
68: 31-Mar-2006 posingha Bug 5027098, Added code to set the 'From' role attribute
69: value for notifications.
70: 22-Feb-2007 posingha Bug 5716959: Changed calls to deprecated
71: WF_DIRECTORY.AddUsersToAdHocRole.
72: instead directly called
73: WF_DIRECTORY.AddUsersToAdHocRole2 API
74: Changes done in : Start_Workflow
75: Set_report_Approver
69: value for notifications.
70: 22-Feb-2007 posingha Bug 5716959: Changed calls to deprecated
71: WF_DIRECTORY.AddUsersToAdHocRole.
72: instead directly called
73: WF_DIRECTORY.AddUsersToAdHocRole2 API
74: Changes done in : Start_Workflow
75: Set_report_Approver
76: Set_report_notification_party
77: 26-Apr-2007 vvjoshi Bug#5962410 : Set an expiration date in CreateAdhocRole
212:
213: -- add user name to a user list. This user list can not have duplicate.
214: -- so remove any duplicate if necessary.
215:
216: -- add user the adhoc role by calling WF_DIRECTORY.AddUsersToAdHocRole
217: -- you can look at the original code in the procedure for example.
218:
219: -- set the item attribute REPORT_APPROVER_FULL_NAME and
220: -- REPORT_APPROVER_USER_NAME
292:
293: -- add user name to a user list. This user list can not have duplicate.
294: -- so remove any duplicate if necessary.
295:
296: -- add user the adhoc role by calling WF_DIRECTORY.AddUsersToAdHocRole
297: -- you can look at the original code in the procedure for example.
298:
299: -- set the item attribute REPORT_NOTFY_NAME
300:
343: l_user_id NUMBER;
344: l_approval_required VARCHAR2(10);
345: l_submitted_by_user_name VARCHAR2(100);
346: l_project_id NUMBER;
347: l_role_users_table WF_DIRECTORY.UserTable; /*bug 5716959*/
348: l_reporter_role_users_table WF_DIRECTORY.UserTable; /*bug 5716959*/
349: l_count NUMBER := 1; /*bug 5716959*/
350:
351: CURSOR get_report_info IS
344: l_approval_required VARCHAR2(10);
345: l_submitted_by_user_name VARCHAR2(100);
346: l_project_id NUMBER;
347: l_role_users_table WF_DIRECTORY.UserTable; /*bug 5716959*/
348: l_reporter_role_users_table WF_DIRECTORY.UserTable; /*bug 5716959*/
349: l_count NUMBER := 1; /*bug 5716959*/
350:
351: CURSOR get_report_info IS
352: SELECT pprv.*, pl.meaning progress_status FROM
627: -- Role must be less than 30 chars and all uppsercase
628: l_reporter_role := 'RPTBY_' || p_item_type || p_item_key;
629:
630:
631: WF_DIRECTORY.CreateAdHocRole( role_name => l_reporter_role
632: , role_display_name => l_reporter_role
633: , expiration_date => sysdate+1); -- Set expiration_date for bug#5962410
634:
635: -- l_reporter_role_users := NULL; /* Commented for bug 5716959 */
641: -- l_reporter_role_users := l_reporter_role_users || ',';
642: -- end if; */ /* Commented for Bug 5716959*/
643:
644: -- Create adhoc users
645: wf_directory.getroleinfo(Upper(v_reporters.user_name),display_name,
646: email_address,notification_preference,language,territory);
647: if display_name is null THEN
648:
649:
646: email_address,notification_preference,language,territory);
647: if display_name is null THEN
648:
649:
650: WF_DIRECTORY.CreateAdHocUser( name => v_reporters.user_name
651: , display_name => v_reporters.person_name
652: --, notification_preference => 'MAILTEXT'
653: , EMAIL_ADDRESS =>v_reporters.email_address);
654:
663: -- IF (l_reporter_role_users is NOT NULL) THEN /* commented out for Bug 5716959 */
664: IF (l_reporter_role_users_table.COUNT > 0 ) THEN /*bug 5716959*/
665:
666:
667: -- WF_DIRECTORY.AddUsersToAdHocRole( l_reporter_role
668: -- , l_reporter_role_users); -- /*Commented for Bug 5716959*/
669: WF_DIRECTORY.AddUsersToAdHocRole2( l_reporter_role
670: , l_reporter_role_users_table); /*bug 5716959 */
671:
665:
666:
667: -- WF_DIRECTORY.AddUsersToAdHocRole( l_reporter_role
668: -- , l_reporter_role_users); -- /*Commented for Bug 5716959*/
669: WF_DIRECTORY.AddUsersToAdHocRole2( l_reporter_role
670: , l_reporter_role_users_table); /*bug 5716959 */
671:
672:
673: wf_engine.SetItemAttrText( p_item_type
747: -- Role must be less than 30 chars and all uppsercase
748: l_submitter_role := 'RPT_' || p_item_type || p_item_key;
749:
750:
751: WF_DIRECTORY.CreateAdHocRole( role_name => l_submitter_role
752: , role_display_name => l_submitter_role
753: , expiration_date => sysdate+1); -- Set expiration_date for bug#5962410
754:
755: l_count := 1; /*Bug 5716959*/
759: l_role_users := l_role_users || ',';
760: end if;
761:
762: -- Create adhoc users
763: wf_directory.getroleinfo(Upper(v_submitters.user_name),display_name,
764: email_address,notification_preference,language,territory);
765: if display_name is null THEN
766:
767:
764: email_address,notification_preference,language,territory);
765: if display_name is null THEN
766:
767:
768: WF_DIRECTORY.CreateAdHocUser( name => v_submitters.user_name
769: , display_name => v_submitters.person_name
770: --, notification_preference => 'MAILTEXT'
771: , EMAIL_ADDRESS =>v_submitters.email_address);
772: END IF;
799: l_role_users := l_role_users || ',';
800: end if;
801:
802: -- Create adhoc users
803: wf_directory.getroleinfo(Upper(v_reporters.user_name),display_name,
804: email_address,notification_preference,language,territory);
805: if display_name is null THEN
806:
807: WF_DIRECTORY.CreateAdHocUser( name => v_reporters.user_name
803: wf_directory.getroleinfo(Upper(v_reporters.user_name),display_name,
804: email_address,notification_preference,language,territory);
805: if display_name is null THEN
806:
807: WF_DIRECTORY.CreateAdHocUser( name => v_reporters.user_name
808: , display_name => v_reporters.person_name
809: --, notification_preference => 'MAILTEXT'
810: , EMAIL_ADDRESS =>v_reporters.email_address);
811:
821: -- IF (l_role_users is NOT NULL) THEN /* commented for bug 5716959 */
822: IF (l_role_users_table.COUNT > 0) THEN /*bug 5716959*/
823:
824:
825: -- WF_DIRECTORY.AddUsersToAdHocRole( l_submitter_role
826: -- , l_role_users); /* commented for bug 5716959 */
827: WF_DIRECTORY.AddUsersToAdHocRole2( l_submitter_role
828: , l_role_users_table); /*bug 5716959*/
829:
823:
824:
825: -- WF_DIRECTORY.AddUsersToAdHocRole( l_submitter_role
826: -- , l_role_users); /* commented for bug 5716959 */
827: WF_DIRECTORY.AddUsersToAdHocRole2( l_submitter_role
828: , l_role_users_table); /*bug 5716959*/
829:
830:
831: wf_engine.SetItemAttrText( p_item_type
874: l_approver_source_type NUMBER;
875: l_approver_name per_all_people_f.full_name%type; --Added for bug 4165764.
876:
877: l_user_name VARCHAR2(250);
878: l_role_users_table WF_DIRECTORY.UserTable; /*bug 5716959*/
879: l_count NUMBER := 1; /*bug 5716959*/
880: CURSOR get_user_name
881: IS
882: SELECT user_name
973:
974: l_approval_role := 'APVR_' ||p_item_type || p_item_key;
975:
976: /* Commented for bug 4165764
977: WF_DIRECTORY.CreateAdHocRole( role_name => l_approval_role
978: , role_display_name => l_approval_role
979: , expiration_date => null
980: ); */
981: -- Moved the below code from after loop to before loop as role needs to be
985: open role_info;
986: fetch role_info into l_name,l_exp_date;
987: if role_info%found then
988: if l_exp_date <= sysdate then
989: wf_directory.SetAdHocRoleExpiration(role_name => l_approval_role
990: , expiration_date => sysdate+1);
991:
992: end if;
993: else
1013: -- l_role_users := l_role_users || ',';
1014: -- end if; /* commented for bug 5716959 */
1015:
1016: -- Create adhoc users
1017: wf_directory.getroleinfo(Upper(v_approvers.user_name),display_name,
1018: email_address,notification_preference,language,territory);
1019: if display_name is null THEN
1020:
1021:
1018: email_address,notification_preference,language,territory);
1019: if display_name is null THEN
1020:
1021:
1022: WF_DIRECTORY.CreateAdHocUser( name => v_approvers.user_name
1023: , display_name => v_approvers.person_name
1024: --, notification_preference => 'MAILTEXT'
1025: , EMAIL_ADDRESS =>v_approvers.email_address);
1026:
1056: -- l_role_users := l_role_users || ',';
1057: -- end if; /* commented for bug 5716959 */
1058:
1059: -- Create adhoc users
1060: wf_directory.getroleinfo(Upper(v_approvers.user_name),display_name,
1061: email_address,notification_preference,language,territory);
1062: if display_name is null THEN
1063:
1064:
1061: email_address,notification_preference,language,territory);
1062: if display_name is null THEN
1063:
1064:
1065: WF_DIRECTORY.CreateAdHocUser( name => v_approvers.user_name
1066: , display_name => v_approvers.person_name
1067: --, notification_preference => 'MAILTEXT'
1068: , EMAIL_ADDRESS =>v_approvers.email_address);
1069:
1091: -- l_role_users := l_role_users || ',';
1092: -- end if; /* commented for bug 5716959 */
1093:
1094: -- Create adhoc users
1095: wf_directory.getroleinfo(Upper(v_approvers.user_name),display_name,
1096: email_address,notification_preference,language,territory);
1097: if display_name is null THEN
1098:
1099:
1096: email_address,notification_preference,language,territory);
1097: if display_name is null THEN
1098:
1099:
1100: WF_DIRECTORY.CreateAdHocUser( name => v_approvers.user_name
1101: , display_name => v_approvers.person_name
1102: --, notification_preference => 'MAILTEXT'
1103: , EMAIL_ADDRESS =>v_approvers.email_address);
1104: END IF;
1125: l_approver_name :=wf_engine.GetItemAttrText( p_item_type
1126: , p_item_key
1127: , 'REPORT_APPROVER_FULL_NAME'
1128: );
1129: WF_DIRECTORY.CreateAdHocRole( role_name => l_approval_role
1130: , role_display_name => l_approver_name
1131: , expiration_date => sysdate+1 -- Set expiration_date for bug#5962410
1132: );
1133:
1132: );
1133:
1134: -- IF (l_role_users is NOT NULL) THEN /* commented for bug 5716959 */
1135: IF (l_role_users_table.COUNT > 0 ) THEN /* bug 5716959 */
1136: -- WF_DIRECTORY.AddUsersToAdHocRole( l_approval_role
1137: -- , l_role_users); /* commented for bug 5716959 */
1138:
1139: WF_DIRECTORY.AddUsersToAdHocRole2( l_approval_role
1140: , l_role_users_table); /*bug 5716959 */
1135: IF (l_role_users_table.COUNT > 0 ) THEN /* bug 5716959 */
1136: -- WF_DIRECTORY.AddUsersToAdHocRole( l_approval_role
1137: -- , l_role_users); /* commented for bug 5716959 */
1138:
1139: WF_DIRECTORY.AddUsersToAdHocRole2( l_approval_role
1140: , l_role_users_table); /*bug 5716959 */
1141:
1142: wf_engine.SetItemAttrText( p_item_type
1143: , p_item_key
1208: l_msg_count NUMBER;
1209: l_msg_data VARCHAR2(2000);
1210: i INTEGER;
1211:
1212: l_role_users_table WF_DIRECTORY.UserTable; /*bug 5716959*/
1213: l_count NUMBER := 1 ; /*bug 5716959 */
1214:
1215: CURSOR get_object_page_layout_id
1216: IS
1276:
1277:
1278:
1279:
1280: WF_DIRECTORY.CreateAdHocRole( role_name => l_notify_role
1281: , role_display_name => l_notify_role
1282: , expiration_date => sysdate+1); -- Set expiration_date for bug#5962410
1283:
1284:
1316: end if;
1317:
1318:
1319:
1320: wf_directory.getroleinfo(Upper(l_user_names(i)),display_name,
1321: email_address,notification_preference,language,territory);
1322: if display_name is null THEN
1323:
1324:
1321: email_address,notification_preference,language,territory);
1322: if display_name is null THEN
1323:
1324:
1325: WF_DIRECTORY.CreateAdHocUser( name => l_user_names(i)
1326: , display_name => l_full_names(i)
1327: , EMAIL_ADDRESS =>l_email_addresses(i));
1328: END IF;
1329: l_role_users := l_role_users || l_user_names(i);
1336:
1337: -- IF (l_role_users is NOT NULL) THEN /* commented out for bug 5716959 */
1338: IF (l_role_users_table.COUNT > 0) THEN /* bug 5716959 */
1339:
1340: -- WF_DIRECTORY.AddUsersToAdHocRole( l_notify_role
1341: -- , l_role_users); /* commented for bug 5716959 */
1342: WF_DIRECTORY.AddUsersToAdHocRole2( l_notify_role
1343: , l_role_users_table); /*bug 5716959 */
1344:
1338: IF (l_role_users_table.COUNT > 0) THEN /* bug 5716959 */
1339:
1340: -- WF_DIRECTORY.AddUsersToAdHocRole( l_notify_role
1341: -- , l_role_users); /* commented for bug 5716959 */
1342: WF_DIRECTORY.AddUsersToAdHocRole2( l_notify_role
1343: , l_role_users_table); /*bug 5716959 */
1344:
1345: wf_engine.SetItemAttrText( p_item_type
1346: , p_item_key
1368: -- Role must be less than 30 chars and all uppsercase
1369: l_notify_role := 'RNT_' || p_item_type || p_item_key;
1370:
1371:
1372: WF_DIRECTORY.CreateAdHocRole( role_name => l_notify_role
1373: , role_display_name => l_notify_role
1374: , expiration_date => sysdate+1); -- Set expiration_date for bug#5962410
1375:
1376: -- Bug 6843694 : Changed call to procedure get_dist_list_email
1403: l_role_users := l_role_users || ',';
1404: end if;
1405:
1406:
1407: wf_directory.getroleinfo(Upper(l_user_names(i)),display_name,
1408: email_address,notification_preference,language,territory);
1409: if display_name is null THEN
1410:
1411: WF_DIRECTORY.CreateAdHocUser( name => l_user_names(i)
1407: wf_directory.getroleinfo(Upper(l_user_names(i)),display_name,
1408: email_address,notification_preference,language,territory);
1409: if display_name is null THEN
1410:
1411: WF_DIRECTORY.CreateAdHocUser( name => l_user_names(i)
1412: , display_name => l_full_names(i)
1413: , EMAIL_ADDRESS =>l_email_addresses(i));
1414: END IF;
1415: l_role_users := l_role_users || l_user_names(i);
1454: end if;
1455:
1456:
1457: -- Create adhoc users
1458: wf_directory.getroleinfo(Upper(v_people.user_name),
1459: display_name,
1460: email_address,
1461: notification_preference,
1462: language,territory);
1461: notification_preference,
1462: language,territory);
1463: if display_name is null THEN
1464:
1465: WF_DIRECTORY.CreateAdHocUser( name => v_people.user_name
1466: , display_name => v_people.person_name
1467: --, notification_preference => 'MAILTEXT'
1468: , EMAIL_ADDRESS =>v_people.email_address);
1469: END IF;
1475: end loop;
1476:
1477: -- IF (l_role_users is NOT NULL) THEN /* commented for bug 5716959 */
1478: IF (l_role_users_table.COUNT > 0) THEN /*bug 5716959*/
1479: -- WF_DIRECTORY.AddUsersToAdHocRole( l_notify_role
1480: -- , l_role_users); /* commented for bug 5716959 */
1481: WF_DIRECTORY.AddUsersToAdHocRole2( l_notify_role
1482: , l_role_users_table); /*bug 5716959*/
1483:
1477: -- IF (l_role_users is NOT NULL) THEN /* commented for bug 5716959 */
1478: IF (l_role_users_table.COUNT > 0) THEN /*bug 5716959*/
1479: -- WF_DIRECTORY.AddUsersToAdHocRole( l_notify_role
1480: -- , l_role_users); /* commented for bug 5716959 */
1481: WF_DIRECTORY.AddUsersToAdHocRole2( l_notify_role
1482: , l_role_users_table); /*bug 5716959*/
1483:
1484: wf_engine.SetItemAttrText( p_item_type
1485: , p_item_key