3:
4:
5: GET_MESSAGE_ERROR EXCEPTION;
6:
7: Cursor c_hz_parties(p_party_id NUMBER) IS
8: SELECT Party_Name,Person_First_Name,Person_Middle_Name,Person_Last_name,party_type,Person_title
9: FROM hz_parties
10: WHERE party_id = p_party_id;
11:
5: GET_MESSAGE_ERROR EXCEPTION;
6:
7: Cursor c_hz_parties(p_party_id NUMBER) IS
8: SELECT Party_Name,Person_First_Name,Person_Middle_Name,Person_Last_name,party_type,Person_title
9: FROM hz_parties
10: WHERE party_id = p_party_id;
11:
12: Cursor c_quote_header (p_quote_id NUMBER) IS
13: SELECT org_id,party_id, quote_name, quote_number, quote_version, quote_password,
954:
955:
956: Cursor c_b2b_contact(pPartyId Number) IS
957: Select p.party_id Person_Party_id,l.party_id contact_party_id,p.person_first_name,p.person_last_name,p.party_type
958: from hz_relationships l,hz_parties p
959: where l.party_id = pPartyId
960: and l.subject_id = p.party_id
961: and l.subject_type = 'PERSON'
962: and l.subject_table_name = 'HZ_PARTIES';
958: from hz_relationships l,hz_parties p
959: where l.party_id = pPartyId
960: and l.subject_id = p.party_id
961: and l.subject_type = 'PERSON'
962: and l.subject_table_name = 'HZ_PARTIES';
963:
964: Begin
965:
966: FOR c_quote_rec In c_quote_header(to_number(document_id)) LOOP
967: l_party_id := c_quote_rec.party_id;
968: l_order_id := c_quote_rec.order_id;
969: END LOOP;
970:
971: FOR c_hz_parties_rec IN c_hz_parties(l_party_id) LOOP
972: If c_hz_parties_rec.Party_type = 'PARTY_RELATIONSHIP' Then
973: For c_b2b_contact_rec in c_b2b_contact(l_party_id) Loop
974: l_first_name := upper(rtrim(c_b2b_contact_rec.person_first_name));
975: End Loop;
968: l_order_id := c_quote_rec.order_id;
969: END LOOP;
970:
971: FOR c_hz_parties_rec IN c_hz_parties(l_party_id) LOOP
972: If c_hz_parties_rec.Party_type = 'PARTY_RELATIONSHIP' Then
973: For c_b2b_contact_rec in c_b2b_contact(l_party_id) Loop
974: l_first_name := upper(rtrim(c_b2b_contact_rec.person_first_name));
975: End Loop;
976: Else
973: For c_b2b_contact_rec in c_b2b_contact(l_party_id) Loop
974: l_first_name := upper(rtrim(c_b2b_contact_rec.person_first_name));
975: End Loop;
976: Else
977: l_first_name := upper(rtrim(c_hz_parties_rec.person_first_name));
978: End If;
979: END LOOP;
980:
981: document := l_first_name;
1001: l_order_id number;
1002:
1003: Cursor c_b2b_contact(pPartyId Number) IS
1004: Select p.party_id Person_Party_id,l.party_id contact_party_id,p.person_first_name,p.person_last_name,p.party_type
1005: from hz_relationships l,hz_parties p
1006: where l.party_id = pPartyId
1007: and l.subject_id = p.party_id
1008: and l.subject_type = 'PERSON'
1009: and l.subject_table_name = 'HZ_PARTIES';
1005: from hz_relationships l,hz_parties p
1006: where l.party_id = pPartyId
1007: and l.subject_id = p.party_id
1008: and l.subject_type = 'PERSON'
1009: and l.subject_table_name = 'HZ_PARTIES';
1010:
1011: Begin
1012:
1013: FOR c_quote_rec In c_quote_header(to_number(document_id)) LOOP
1014: l_party_id := c_quote_rec.party_id;
1015: l_order_id := c_quote_rec.order_id;
1016: END LOOP;
1017:
1018: FOR c_hz_parties_rec IN c_hz_parties(l_party_id) LOOP
1019: If c_hz_parties_rec.Party_type = 'PARTY_RELATIONSHIP' Then
1020: For c_b2b_contact_rec in c_b2b_contact(l_party_id) Loop
1021: l_last_name := upper(rtrim(c_b2b_contact_rec.person_last_name));
1022: End Loop;
1015: l_order_id := c_quote_rec.order_id;
1016: END LOOP;
1017:
1018: FOR c_hz_parties_rec IN c_hz_parties(l_party_id) LOOP
1019: If c_hz_parties_rec.Party_type = 'PARTY_RELATIONSHIP' Then
1020: For c_b2b_contact_rec in c_b2b_contact(l_party_id) Loop
1021: l_last_name := upper(rtrim(c_b2b_contact_rec.person_last_name));
1022: End Loop;
1023: Else
1020: For c_b2b_contact_rec in c_b2b_contact(l_party_id) Loop
1021: l_last_name := upper(rtrim(c_b2b_contact_rec.person_last_name));
1022: End Loop;
1023: Else
1024: l_last_name := upper(rtrim(c_hz_parties_rec.person_last_name));
1025: End If;
1026: END LOOP;
1027:
1028: document := l_last_name;
1042: ) IS
1043:
1044: l_party_id number;
1045: l_order_id number;
1046: l_person_title HZ_PARTIES.PERSON_TITLE%TYPE;
1047:
1048: Cursor c_b2b_contact(pPartyId Number) IS
1049: Select p.party_id Person_Party_id,l.party_id contact_party_id,p.person_first_name,p.person_last_name,p.party_type,p.person_title
1050: from hz_relationships l,hz_parties p
1046: l_person_title HZ_PARTIES.PERSON_TITLE%TYPE;
1047:
1048: Cursor c_b2b_contact(pPartyId Number) IS
1049: Select p.party_id Person_Party_id,l.party_id contact_party_id,p.person_first_name,p.person_last_name,p.party_type,p.person_title
1050: from hz_relationships l,hz_parties p
1051: where l.party_id = pPartyId
1052: and l.subject_id = p.party_id
1053: and l.subject_table_name = 'HZ_PARTIES'
1054: and l.subject_type = 'PERSON';
1049: Select p.party_id Person_Party_id,l.party_id contact_party_id,p.person_first_name,p.person_last_name,p.party_type,p.person_title
1050: from hz_relationships l,hz_parties p
1051: where l.party_id = pPartyId
1052: and l.subject_id = p.party_id
1053: and l.subject_table_name = 'HZ_PARTIES'
1054: and l.subject_type = 'PERSON';
1055:
1056: Begin
1057:
1059: l_party_id := c_quote_rec.party_id;
1060: l_order_id := c_quote_rec.order_id;
1061: END LOOP;
1062:
1063: FOR c_hz_parties_rec IN c_hz_parties(l_party_id) LOOP
1064: If c_hz_parties_rec.Party_type = 'PARTY_RELATIONSHIP' Then
1065: For c_b2b_contact_rec in c_b2b_contact(l_party_id) Loop
1066: l_person_title := upper(rtrim(c_b2b_contact_rec.person_title));
1067: End Loop;
1060: l_order_id := c_quote_rec.order_id;
1061: END LOOP;
1062:
1063: FOR c_hz_parties_rec IN c_hz_parties(l_party_id) LOOP
1064: If c_hz_parties_rec.Party_type = 'PARTY_RELATIONSHIP' Then
1065: For c_b2b_contact_rec in c_b2b_contact(l_party_id) Loop
1066: l_person_title := upper(rtrim(c_b2b_contact_rec.person_title));
1067: End Loop;
1068: Else
1065: For c_b2b_contact_rec in c_b2b_contact(l_party_id) Loop
1066: l_person_title := upper(rtrim(c_b2b_contact_rec.person_title));
1067: End Loop;
1068: Else
1069: l_person_title := upper(rtrim(c_hz_parties_rec.person_title));
1070: End If;
1071: END LOOP;
1072:
1073: document := l_person_title;
1109: l_PartyType Varchar2(30);
1110: l_UserType Varchar2(30) := 'B2B';
1111: BEGIN
1112:
1113: FOR c_hz_parties_rec IN c_hz_parties(pPartyId) LOOP
1114: l_PartyType := rtrim(c_hz_parties_rec.party_type);
1115: END LOOP;
1116:
1117: If l_PartyType = 'PERSON' Then
1110: l_UserType Varchar2(30) := 'B2B';
1111: BEGIN
1112:
1113: FOR c_hz_parties_rec IN c_hz_parties(pPartyId) LOOP
1114: l_PartyType := rtrim(c_hz_parties_rec.party_type);
1115: END LOOP;
1116:
1117: If l_PartyType = 'PERSON' Then
1118: l_userType := 'B2C';
1364: AND nvl(status,'A') = 'A';
1365:
1366: Cursor C_B2b_Contact(l_party_id Number) IS
1367: Select p.party_id Person_Party_id
1368: from hz_relationships l,hz_parties p
1369: where l.party_id = l_party_id
1370: and l.subject_id = p.party_id
1371: and l.subject_table_name = 'HZ_PARTIES'
1372: and l.subject_type = 'PERSON';
1367: Select p.party_id Person_Party_id
1368: from hz_relationships l,hz_parties p
1369: where l.party_id = l_party_id
1370: and l.subject_id = p.party_id
1371: and l.subject_table_name = 'HZ_PARTIES'
1372: and l.subject_type = 'PERSON';
1373:
1374: BEGIN
1375: l_debug := ASO_QUOTE_UTIL_PVT.is_debug_enabled;