[Home] [Help]
160: --End of Comments
161: -------------------------------------------------------------------------------
162: FUNCTION Get_Po_Contract_Doctype(p_sub_doc_type IN VARCHAR2) RETURN VARCHAR2 IS
163: BEGIN
164: IF (p_sub_doc_type = 'STANDARD') THEN
165: RETURN 'PO_STANDARD';
166: ELSIF (p_sub_doc_type = 'BLANKET') THEN
167: RETURN 'PA_BLANKET';
168: ELSIF (p_sub_doc_type = 'CONTRACT') THEN
161: -------------------------------------------------------------------------------
162: FUNCTION Get_Po_Contract_Doctype(p_sub_doc_type IN VARCHAR2) RETURN VARCHAR2 IS
163: BEGIN
164: IF (p_sub_doc_type = 'STANDARD') THEN
165: RETURN 'PO_STANDARD';
166: ELSIF (p_sub_doc_type = 'BLANKET') THEN
167: RETURN 'PA_BLANKET';
168: ELSIF (p_sub_doc_type = 'CONTRACT') THEN
169: RETURN 'PA_CONTRACT';
197: -------------------------------------------------------------------------------
198: --CLM Mod
199: FUNCTION Get_Po_Contract_Doctype_Mod(p_sub_doc_type IN VARCHAR2) RETURN VARCHAR2 IS
200: BEGIN
201: IF (p_sub_doc_type = 'STANDARD') THEN
202: RETURN 'PO_STANDARD_MOD';
203: ELSIF (p_sub_doc_type = 'BLANKET') THEN
204: RETURN 'PA_BLANKET_MOD';
205: ELSIF (p_sub_doc_type = 'CONTRACT') THEN
198: --CLM Mod
199: FUNCTION Get_Po_Contract_Doctype_Mod(p_sub_doc_type IN VARCHAR2) RETURN VARCHAR2 IS
200: BEGIN
201: IF (p_sub_doc_type = 'STANDARD') THEN
202: RETURN 'PO_STANDARD_MOD';
203: ELSIF (p_sub_doc_type = 'BLANKET') THEN
204: RETURN 'PA_BLANKET_MOD';
205: ELSIF (p_sub_doc_type = 'CONTRACT') THEN
206: RETURN 'PA_CONTRACT_MOD';
231: --IN:
232: --p_document_id
233: -- PO header ID
234: --p_document_type
235: -- Contracts business document type ex: PA_BLANKET or PO_STANDARD
236: -- This will be parsed to retrieve the PO document type
237: --p_external_contact_id
238: -- supplier contact ID on a contract deliverable. Default is NULL
239: --p_init_msg_list
304: l_document_type := SUBSTR(p_document_type, 1, 2);
305: /* Mod changes */
306: /* Get the po_header_id from the draft table using the
307: draft_id */
308: IF p_document_type = 'PO_STANDARD_MOD' OR
309: p_document_type = 'PA_BLANKET_MOD' OR --
310: p_document_type = 'PA_CONTRACT_MOD' THEN --
311: l_document_id := get_po_header_id(p_document_id);
312: ELSE
373: --IN:
374: --p_document_id
375: -- PO header ID
376: --p_document_type
377: -- Contracts business document type ex: PA_BLANKET or PO_STANDARD
378: -- This will be parsed to retrieve the PO document type
379: --p_external_contact_id
380: -- Supplier contact ID on the deliverable. Default is null.
381: --p_init_msg_list
446: l_document_type := SUBSTR(p_document_type, 1, 2);
447: /* Mod changes */
448: /* Get the po_header_id from the draft table using the
449: draft_id */
450: IF p_document_type = 'PO_STANDARD_MOD' OR
451: p_document_type = 'PA_BLANKET_MOD' OR --
452: p_document_type = 'PA_CONTRACT_MOD' THEN --
453: l_document_id := get_po_header_id(p_document_id);
454: ELSE
586: FND_MSG_PUB.initialize;
587: END IF;
588:
589: /* Mod changes */
590: IF p_doc_type = 'PO_STANDARD_MOD' OR
591: p_doc_type = 'PA_BLANKET_MOD' OR --
592: p_doc_type = 'PA_CONTRACT_MOD' THEN --
593: l_is_mod := 'Y';
594: END IF;
700: -- Return the current status and version back to Contracts with the results.
701: --Parameters:
702: --IN:
703: --p_api_version
704: -- Standard Parameter. API version number expected by the caller
705: --p_init_msg_list
706: -- Standard parameter.Initialize message list
707: --p_doc_type
708: -- OKC Document type
702: --IN:
703: --p_api_version
704: -- Standard Parameter. API version number expected by the caller
705: --p_init_msg_list
706: -- Standard parameter.Initialize message list
707: --p_doc_type
708: -- OKC Document type
709: --p_header_id
710: -- PO header id
720: --OUT:
721: --x_update_allowed
722: -- Returns Y or N depending PO is in updatable status or not
723: --x_msg_count
724: -- Standard parameter.Message count
725: --x_msg_data
726: -- Standard parameter.message data
727: --x_return_status
728: -- Standard parameter. Status Returned to calling API. Possible values are following
722: -- Returns Y or N depending PO is in updatable status or not
723: --x_msg_count
724: -- Standard parameter.Message count
725: --x_msg_data
726: -- Standard parameter.message data
727: --x_return_status
728: -- Standard parameter. Status Returned to calling API. Possible values are following
729: -- FND_API.G_RET_STS_ERROR - for expected error
730: -- FND_API.G_RET_STS_UNEXP_ERROR - for unexpected error
724: -- Standard parameter.Message count
725: --x_msg_data
726: -- Standard parameter.message data
727: --x_return_status
728: -- Standard parameter. Status Returned to calling API. Possible values are following
729: -- FND_API.G_RET_STS_ERROR - for expected error
730: -- FND_API.G_RET_STS_UNEXP_ERROR - for unexpected error
731: -- FND_API.G_RET_STS_SUCCESS - for success
732: --Notes:
790: MESSAGE =>'10: Start' ||l_api_name);
791: END IF;
792: End if;
793:
794: -- Standard call to check for call compatibility.
795: IF NOT FND_API.Compatible_API_Call (p_current_version_number=>l_api_version,
796: p_caller_version_number =>p_api_version,
797: p_api_name =>l_api_name,
798: p_pkg_name =>G_PKG_NAME)
890: x_return_status := FND_API.G_RET_STS_ERROR;
891: RAISE FND_API.G_EXC_ERROR;
892: END IF;
893: /* Mod changes */
894: IF p_doc_type = 'PO_STANDARD_MOD' OR
895: p_doc_type = 'PA_BLANKET_MOD' OR --
896: p_doc_type = 'PA_CONTRACT_MOD' THEN --
897: l_is_mod := 'Y';
898: END IF;
902: -- SQL WHY - Needed to compare status and revision with passed in values
903: -- SQL JOIN- PO_header_id
904: IF l_is_mod = 'N' THEN
905: SELECT nvl(authorization_status,'INCOMPLETE'), revision_num, type_lookup_code
906: ,DECODE(type_lookup_code,'STANDARD','PO','BLANKET','PA','CONTRACT','PA',null)
907: INTO l_po_status,l_po_revision, l_doc_type_code
908: ,l_document_type
909: FROM po_headers_all
910: WHERE po_header_id = p_header_id;
909: FROM po_headers_all
910: WHERE po_header_id = p_header_id;
911: ELSE -- CLM Mod
912: SELECT nvl(authorization_status,'INCOMPLETE'), revision_num, type_lookup_code
913: ,DECODE(type_lookup_code,'STANDARD','PO','BLANKET','PA','CONTRACT','PA',null)
914: INTO l_po_status,l_po_revision, l_doc_type_code
915: ,l_document_type
916: FROM po_headers_draft_all
917: WHERE draft_id = p_header_id;
1200:
1201: --Parameters:
1202: --IN:
1203: --p_api_version
1204: -- Standard Parameter. API version number expected by the caller
1205: --p_init_msg_list
1206: -- Standard parameter.Initialize message list
1207: --p_doc_type
1208: -- OKC Document type
1202: --IN:
1203: --p_api_version
1204: -- Standard Parameter. API version number expected by the caller
1205: --p_init_msg_list
1206: -- Standard parameter.Initialize message list
1207: --p_doc_type
1208: -- OKC Document type
1209: --p_header_id
1210: -- PO header id
1223: --OUT:
1224: --x_update_allowed
1225: -- Returns Y or N depending PO is in updatable status or not
1226: --x_msg_count
1227: -- Standard parameter.Message count
1228: --x_msg_data
1229: -- Standard parameter.message data
1230: --x_return_status
1231: -- Standard parameter. Status Returned to calling API. Possible values are following
1225: -- Returns Y or N depending PO is in updatable status or not
1226: --x_msg_count
1227: -- Standard parameter.Message count
1228: --x_msg_data
1229: -- Standard parameter.message data
1230: --x_return_status
1231: -- Standard parameter. Status Returned to calling API. Possible values are following
1232: -- FND_API.G_RET_STS_ERROR - for expected error
1233: -- FND_API.G_RET_STS_UNEXP_ERROR - for unexpected error
1227: -- Standard parameter.Message count
1228: --x_msg_data
1229: -- Standard parameter.message data
1230: --x_return_status
1231: -- Standard parameter. Status Returned to calling API. Possible values are following
1232: -- FND_API.G_RET_STS_ERROR - for expected error
1233: -- FND_API.G_RET_STS_UNEXP_ERROR - for unexpected error
1234: -- FND_API.G_RET_STS_SUCCESS - for success
1235: --Notes:
1291: END IF;
1292: End if;
1293: --Savepoint
1294: SAVEPOINT SP_APPLY_TEMPLATE_CHANGE;
1295: -- Standard call to check for call compatibility.
1296: IF NOT FND_API.Compatible_API_Call (p_current_version_number=>l_api_version,
1297: p_caller_version_number =>p_api_version,
1298: p_api_name =>l_api_name,
1299: p_pkg_name =>G_PKG_NAME)
1333: END IF;
1334:
1335: End if;
1336: /* Mod changes */
1337: IF p_doc_type = 'PO_STANDARD_MOD' OR
1338: p_doc_type = 'PA_BLANKET_MOD' OR --
1339: p_doc_type = 'PA_CONTRACT_MOD' THEN --
1340: l_is_mod := 'Y';
1341: END IF;
1632: -- Changed between latest revision (working copy) and the last archived one.
1633: --Parameters:
1634: --IN:
1635: --p_api_version
1636: -- Standard Parameter. API version number expected by the caller
1637: --p_init_msg_list
1638: -- Standard parameter.Initialize message list
1639: --p_doc_type
1640: -- OKC Document type
1634: --IN:
1635: --p_api_version
1636: -- Standard Parameter. API version number expected by the caller
1637: --p_init_msg_list
1638: -- Standard parameter.Initialize message list
1639: --p_doc_type
1640: -- OKC Document type
1641: --p_doc_id
1642: -- PO header id
1646: -- Contracts will pass list of all PO attributes being used in Contract terms fot that PO
1647: -- This APi will filter that list to return only those which changed since last revsion
1648: --OUT:
1649: --x_msg_count
1650: -- Standard parameter.Message count
1651: --x_msg_data
1652: -- Standard parameter.message data
1653: --x_return_status
1654: -- Standard parameter. Status Returned to calling API. Possible values are following
1648: --OUT:
1649: --x_msg_count
1650: -- Standard parameter.Message count
1651: --x_msg_data
1652: -- Standard parameter.message data
1653: --x_return_status
1654: -- Standard parameter. Status Returned to calling API. Possible values are following
1655: -- FND_API.G_RET_STS_ERROR - for expected error
1656: -- FND_API.G_RET_STS_UNEXP_ERROR - for unexpected error
1650: -- Standard parameter.Message count
1651: --x_msg_data
1652: -- Standard parameter.message data
1653: --x_return_status
1654: -- Standard parameter. Status Returned to calling API. Possible values are following
1655: -- FND_API.G_RET_STS_ERROR - for expected error
1656: -- FND_API.G_RET_STS_UNEXP_ERROR - for unexpected error
1657: -- FND_API.G_RET_STS_SUCCESS - for success
1658: --Notes:
1694: MODULE =>g_module_prefix||l_api_name,
1695: MESSAGE =>'10: Start API' ||l_api_name);
1696: END IF;
1697: END IF;
1698: -- Standard call to check for call compatibility.
1699: IF NOT FND_API.Compatible_API_Call (p_current_version_number=>l_api_version,
1700: p_caller_version_number =>p_api_version,
1701: p_api_name =>l_api_name,
1702: p_pkg_name =>G_PKG_NAME)
1723: END IF;
1724:
1725:
1726: /* Mod changes */
1727: IF p_doc_type = 'PO_STANDARD_MOD' OR
1728: p_doc_type = 'PA_BLANKET_MOD' OR --
1729: p_doc_type = 'PA_CONTRACT_MOD' THEN --
1730: l_is_mod := 'Y';
1731: END IF;
1823: -- Get Change for PO_total_amount for SPO
1824: -- The following query has an outer join based on the assumption that
1825: -- it is possible that only header was archived and the line was not
1826: -- since all the changes that happened were in Header only
1827: IF l_type_lookup_code = 'STANDARD' then
1828: -- get total amount for working copy of PO
1829: l_spo_amt := po_core_s.get_total(x_object_type=>'H',
1830: x_object_id =>p_doc_id);
1831: --get total amount for last archived version of PO
1831: --get total amount for last archived version of PO
1832: l_archived_spo_amt:=po_core_s.get_archive_total
1833: (p_object_id =>p_doc_id,
1834: p_doc_type => 'PO',
1835: p_doc_subtype => 'STANDARD');
1836: IF l_spo_amt <> l_archived_spo_amt THEN
1837: l_po_attrib_tbl(27) := 'OKC$B_PO_TOTAL_AMOUNT_TXN' ;
1838: --If amount for transaction currency has changed, then assume that amount in
1839: --Function currency Changed as well.
1847: MODULE =>g_module_prefix||l_api_name,
1848: MESSAGE =>'150: Got header amount differnce');
1849: END IF;
1850: END IF;
1851: END IF;-- type_lookup_code='STANDARD'
1852: IF g_fnd_debug = 'Y' then
1853: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1854: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1855: MODULE =>g_module_prefix||l_api_name,
2069: -- have a value.
2070: --Parameters:
2071: --IN:
2072: --p_api_version
2073: -- Standard Parameter. API version number expected by the caller
2074: --p_init_msg_list
2075: -- Standard parameter.Initialize message list
2076: --p_doc_type
2077: -- OKC Document type
2071: --IN:
2072: --p_api_version
2073: -- Standard Parameter. API version number expected by the caller
2074: --p_init_msg_list
2075: -- Standard parameter.Initialize message list
2076: --p_doc_type
2077: -- OKC Document type
2078: --p_doc_id
2079: -- PO header id
2081: --p_sys_var_value_tbl
2082: -- A table of records to hold the system variable codes and values in working copy
2083: --OUT:
2084: --x_msg_count
2085: -- Standard parameter.Message count
2086: --x_msg_data
2087: -- Standard parameter.message data
2088: --x_return_status
2089: -- Standard parameter. Status Returned to calling API. Possible values are following
2083: --OUT:
2084: --x_msg_count
2085: -- Standard parameter.Message count
2086: --x_msg_data
2087: -- Standard parameter.message data
2088: --x_return_status
2089: -- Standard parameter. Status Returned to calling API. Possible values are following
2090: -- FND_API.G_RET_STS_ERROR - for expected error
2091: -- FND_API.G_RET_STS_UNEXP_ERROR - for unexpected error
2085: -- Standard parameter.Message count
2086: --x_msg_data
2087: -- Standard parameter.message data
2088: --x_return_status
2089: -- Standard parameter. Status Returned to calling API. Possible values are following
2090: -- FND_API.G_RET_STS_ERROR - for expected error
2091: -- FND_API.G_RET_STS_UNEXP_ERROR - for unexpected error
2092: -- FND_API.G_RET_STS_SUCCESS - for success
2093: --Notes:
2146: MODULE =>g_module_prefix||l_api_name,
2147: MESSAGE =>'10: Start API' ||l_api_name);
2148: END IF;
2149: END IF;
2150: -- Standard call to check for call compatibility.
2151: IF NOT FND_API.Compatible_API_Call (p_current_version_number=>l_api_version,
2152: p_caller_version_number =>p_api_version,
2153: p_api_name =>l_api_name,
2154: p_pkg_name =>G_PKG_NAME)
2376: l_po_attrib_tbl(88).variable_code := 'OKC$B_PURCHASING_STYLE'; --
2377:
2378:
2379: /* Mod changes */
2380: IF p_doc_type = 'PO_STANDARD_MOD' OR
2381: p_doc_type = 'PA_BLANKET_MOD' OR --
2382: p_doc_type = 'PA_CONTRACT_MOD' THEN --
2383: l_is_mod := 'Y';
2384: END IF;
2411: ,cuf.precision
2412: --Bug#3809298.Commenting out the below two calculations of funational
2413: --and transaction amounts as they will be replaced subsequently.
2414: /*Start of commenting for Bug#3809298 .
2415: ,decode(poh.type_lookup_code, 'STANDARD',l_po_total_amount,0)
2416: ,round(round(
2417: decode (poh.type_lookup_code,
2418: 'STANDARD',l_po_total_amount,0)
2419: * nvl(poh.rate,1)/nvl(cu.MINIMUM_ACCOUNTABLE_UNIT,1),decode(cu.MINIMUM_ACCOUNTABLE_UNIT,null,cu.precision,0)
2414: /*Start of commenting for Bug#3809298 .
2415: ,decode(poh.type_lookup_code, 'STANDARD',l_po_total_amount,0)
2416: ,round(round(
2417: decode (poh.type_lookup_code,
2418: 'STANDARD',l_po_total_amount,0)
2419: * nvl(poh.rate,1)/nvl(cu.MINIMUM_ACCOUNTABLE_UNIT,1),decode(cu.MINIMUM_ACCOUNTABLE_UNIT,null,cu.precision,0)
2420: ) * nvl(cu.MINIMUM_ACCOUNTABLE_UNIT,1) /
2421: nvl(cuf.MINIMUM_ACCOUNTABLE_UNIT,1),decode(cuf.MINIMUM_ACCOUNTABLE_UNIT,null,cuf.precision,0)
2422: )* nvl(cuf.MINIMUM_ACCOUNTABLE_UNIT,1) po_total_amount_func
2545: ,cuf.precision
2546: --Bug#3809298.Commenting out the below two calculations of funational
2547: --and transaction amounts as they will be replaced subsequently.
2548: /*Start of commenting for Bug#3809298 .
2549: ,decode(poh.type_lookup_code, 'STANDARD',l_po_total_amount,0)
2550: ,round(round(
2551: decode (poh.type_lookup_code,
2552: 'STANDARD',l_po_total_amount,0)
2553: * nvl(poh.rate,1)/nvl(cu.MINIMUM_ACCOUNTABLE_UNIT,1),decode(cu.MINIMUM_ACCOUNTABLE_UNIT,null,cu.precision,0)
2548: /*Start of commenting for Bug#3809298 .
2549: ,decode(poh.type_lookup_code, 'STANDARD',l_po_total_amount,0)
2550: ,round(round(
2551: decode (poh.type_lookup_code,
2552: 'STANDARD',l_po_total_amount,0)
2553: * nvl(poh.rate,1)/nvl(cu.MINIMUM_ACCOUNTABLE_UNIT,1),decode(cu.MINIMUM_ACCOUNTABLE_UNIT,null,cu.precision,0)
2554: ) * nvl(cu.MINIMUM_ACCOUNTABLE_UNIT,1) /
2555: nvl(cuf.MINIMUM_ACCOUNTABLE_UNIT,1),decode(cuf.MINIMUM_ACCOUNTABLE_UNIT,null,cuf.precision,0)
2556: )* nvl(cuf.MINIMUM_ACCOUNTABLE_UNIT,1) po_total_amount_func
2657: AND cuf.currency_code = gsb.currency_code
2658: ;
2659: END IF; -- CLM Mod
2660:
2661: --Bug#3809298.Check if the document type is "Standard"
2662: --If so then calculate the amount in functional and transaction currency.
2663: --If not assign zero those two.
2664: IF(l_poh_type_lookup_code='STANDARD')THEN
2665: l_po_total_amount :=po_core_s.get_total('H',p_doc_id);
2660:
2661: --Bug#3809298.Check if the document type is "Standard"
2662: --If so then calculate the amount in functional and transaction currency.
2663: --If not assign zero those two.
2664: IF(l_poh_type_lookup_code='STANDARD')THEN
2665: l_po_total_amount :=po_core_s.get_total('H',p_doc_id);
2666: l_po_attrib_tbl(12).variable_value_id :=l_po_total_amount;
2667: SELECT ROUND
2668: (
2886: -- This API will be called by Contracts to get the last signed document revision
2887: --Parameters:
2888: --IN:
2889: --p_api_version
2890: -- Standard Parameter. API version number expected by the caller
2891: --p_init_msg_list
2892: -- Standard parameter.Initialize message list
2893: --p_doc_type
2894: -- OKC Document type
2888: --IN:
2889: --p_api_version
2890: -- Standard Parameter. API version number expected by the caller
2891: --p_init_msg_list
2892: -- Standard parameter.Initialize message list
2893: --p_doc_type
2894: -- OKC Document type
2895: --p_header_id
2896: -- PO header id
2897: --p_revision_num
2898: -- Document Revision Number
2899: --OUT:
2900: --x_msg_count
2901: -- Standard parameter.Message count
2902: --x_msg_data
2903: -- Standard parameter.message data
2904: --x_return_status
2905: -- Standard parameter. Status Returned to calling API. Possible values are following
2899: --OUT:
2900: --x_msg_count
2901: -- Standard parameter.Message count
2902: --x_msg_data
2903: -- Standard parameter.message data
2904: --x_return_status
2905: -- Standard parameter. Status Returned to calling API. Possible values are following
2906: -- FND_API.G_RET_STS_ERROR - for expected error
2907: -- FND_API.G_RET_STS_UNEXP_ERROR - for unexpected error
2901: -- Standard parameter.Message count
2902: --x_msg_data
2903: -- Standard parameter.message data
2904: --x_return_status
2905: -- Standard parameter. Status Returned to calling API. Possible values are following
2906: -- FND_API.G_RET_STS_ERROR - for expected error
2907: -- FND_API.G_RET_STS_UNEXP_ERROR - for unexpected error
2908: -- FND_API.G_RET_STS_SUCCESS - for success
2909: --x_signed_records
2955: END IF;
2956:
2957:
2958: /* Mod changes */
2959: IF p_doc_type = 'PO_STANDARD_MOD' OR
2960: p_doc_type = 'PA_BLANKET_MOD' OR --
2961: p_doc_type = 'PA_CONTRACT_MOD' THEN --
2962: l_is_mod := 'Y';
2963: END IF;
3151: l_org_id := null;
3152: End;
3153:
3154: -- Check the Contract terms auto Apply profile option value
3155: IF l_document_type not in ('STANDARD', 'BLANKET','CONTRACT') OR
3156: nvl(l_conterms_flag,'N') = 'Y' THEN
3157:
3158: l_progress := 40;
3159: IF g_debug_stmt THEN
3420: l_document_type := null;
3421: End;
3422: END IF;
3423: -- Check the Contract terms auto Apply profile option value
3424: IF l_document_type not in ('STANDARD', 'BLANKET','CONTRACT') OR
3425: (p_to_mod = 'N' AND l_conterms_flag_mod = 'N') OR
3426: (p_to_mod = 'Y' AND l_conterms_flag = 'N') THEN
3427:
3428: l_progress := 40;
3445: l_doc_target := p_draft_id;
3446: ELSE
3447: l_k_doc_type_source := get_po_contract_doctype_mod(l_document_type);
3448: l_doc_source := p_draft_id;
3449: -- In case of PAR_MERGE, target doc should be 'PO_STANDARD_MOD' itself.
3450: IF p_mode ='PAR_MERGE' THEN
3451: l_k_doc_type_target := get_po_contract_doctype_mod(l_document_type);
3452: l_doc_target := p_draft_id;
3453: ELSIF p_mode = 'MERGE' THEN
3614: RETURN;
3615: END IF;
3616:
3617: -- Check the Contract terms auto Apply profile option value
3618: IF p_doc_subtype NOT IN ('STANDARD', 'BLANKET', 'CONTRACT')
3619: OR NVL (p_conterms_exist_flag, 'N') = 'Y'
3620: THEN
3621: l_progress := 40;
3622:
3792: BEGIN
3793:
3794:
3795: -- Check that the doc subtype is allowed.
3796: IF p_doc_subtype NOT IN ('STANDARD', 'BLANKET', 'CONTRACT')
3797: THEN
3798: l_progress := 20;
3799: IF g_debug_stmt
3800: THEN