[Home] [Help]
1259: END IF;
1260: END IF;
1261:
1262:
1263: PO_CORE_S.get_document_ids(
1264: p_doc_type => p_document_type
1265: , p_doc_level => p_document_level
1266: , p_doc_level_id_tbl => po_tbl_number( p_document_level_id )
1267: , x_doc_id_tbl => l_id_tbl
1392: -- Sunset Memo Project : Skip SGD generation, if Mod is of Special Draft type
1393: IF ( (PO_CLM_INTG_GRP.is_clm_document(p_doc_type => p_document_type,
1394: p_document_id => l_document_id)='Y' )
1395: AND (l_draft_type = 'MOD') -- Change Desc only for Mod.
1396: AND ( l_draft_sub_type IS NULL OR PO_CORE_S3.get_bypass_sgd_generation_flag(l_draft_sub_type) <> 'Y') ) THEN
1397:
1398: PO_DEBUG.debug_stmt(l_log_head || l_api_name, l_progress, 'SGD validation starts');
1399:
1400: SELECT Nvl(Max(SEQUENCE), 0) + 1
1956: -- BELOW CODE FOR FPDS-NG PROJECT
1957: IF (l_is_clm_doc = 'Y' AND l_draft_type <> 'PAR' ) AND
1958: -- CLM Controls Project changes
1959: --(NVL(FND_PROFILE.VALUE('PO_CLM_ENABLE_FPDS_REPORTING'),'N') = 'Y') THEN
1960: (NVL(PO_CORE_S.retrieveOptionValue(p_org_id => l_org_id,
1961: p_option_column => PO_CORE_S.g_FPDS_REPORTING_COL)
1962: ,'N') = 'Y') THEN
1963: BEGIN
1964: SELECT REPORTING_METHOD, CAR_STATUS, APPROVED_WITHOUT_REPORTING
1957: IF (l_is_clm_doc = 'Y' AND l_draft_type <> 'PAR' ) AND
1958: -- CLM Controls Project changes
1959: --(NVL(FND_PROFILE.VALUE('PO_CLM_ENABLE_FPDS_REPORTING'),'N') = 'Y') THEN
1960: (NVL(PO_CORE_S.retrieveOptionValue(p_org_id => l_org_id,
1961: p_option_column => PO_CORE_S.g_FPDS_REPORTING_COL)
1962: ,'N') = 'Y') THEN
1963: BEGIN
1964: SELECT REPORTING_METHOD, CAR_STATUS, APPROVED_WITHOUT_REPORTING
1965: INTO l_reporting_method, l_car_status, l_approved_without_reporting
2553: END IF;
2554:
2555: -- Payment Instruction Checks.
2556: -- Payment instruction checks must be performed only if it is enabled in clm options page
2557: l_enable_payment_inst := PO_CORE_S.retrieveOptionValue(p_org_id => l_org_id,
2558: p_option_column => PO_CORE_S.g_PAYMENT_INSTR_COL);
2559: IF l_enable_payment_inst = 'Y' THEN
2560: payment_instruction_checks(l_document_id,
2561: l_draft_type,
2554:
2555: -- Payment Instruction Checks.
2556: -- Payment instruction checks must be performed only if it is enabled in clm options page
2557: l_enable_payment_inst := PO_CORE_S.retrieveOptionValue(p_org_id => l_org_id,
2558: p_option_column => PO_CORE_S.g_PAYMENT_INSTR_COL);
2559: IF l_enable_payment_inst = 'Y' THEN
2560: payment_instruction_checks(l_document_id,
2561: l_draft_type,
2562: l_online_report_id,
2599: END IF;
2600:
2601: --UCA Project CLMR4 Changes - Begin
2602: -- Call to Check_line_ucas
2603: l_isucaenabled := Nvl(po_core_s.Retrieveoptionvalue(l_org_id,
2604: po_core_s.g_undef_cont_act_col), 'N');
2605: IF l_isucaenabled = 'Y' THEN
2606: check_line_ucas(l_document_id,
2607: l_online_report_id,
2600:
2601: --UCA Project CLMR4 Changes - Begin
2602: -- Call to Check_line_ucas
2603: l_isucaenabled := Nvl(po_core_s.Retrieveoptionvalue(l_org_id,
2604: po_core_s.g_undef_cont_act_col), 'N');
2605: IF l_isucaenabled = 'Y' THEN
2606: check_line_ucas(l_document_id,
2607: l_online_report_id,
2608: l_user_id,
2824:
2825: --bug 16713804
2826: IF (p_document_type IN ('PO', 'PA')) THEN
2827: --SBCR Coding Begin
2828: l_isSbcrEnabled := Nvl(po_core_s.Retrieveoptionvalue(l_org_id,
2829: po_core_s.g_BUSS_COORDINATION_COL), 'N');
2830: IF l_isSbcrEnabled = 'Y' AND l_is_clm_doc = 'Y' THEN
2831: check_po_sbcr_reference(p_document_id => l_document_id,
2832: p_draft_id => p_draft_id,
2825: --bug 16713804
2826: IF (p_document_type IN ('PO', 'PA')) THEN
2827: --SBCR Coding Begin
2828: l_isSbcrEnabled := Nvl(po_core_s.Retrieveoptionvalue(l_org_id,
2829: po_core_s.g_BUSS_COORDINATION_COL), 'N');
2830: IF l_isSbcrEnabled = 'Y' AND l_is_clm_doc = 'Y' THEN
2831: check_po_sbcr_reference(p_document_id => l_document_id,
2832: p_draft_id => p_draft_id,
2833: p_online_report_id => l_online_report_id,
2846: (p_document_subtype IN ('STANDARD', 'BLANKET'))
2847: AND (p_action_requested = g_action_DOC_SUBMISSION_CHECK) THEN
2848:
2849: -- Profile Option IsExhibitEnabled
2850: l_isexhibitenabled := Nvl(po_core_s.Retrieveoptionvalue(l_org_id,
2851: po_core_s.g_exhibits_lines_col), 'N');
2852: l_progress := '044';
2853: IF g_debug_stmt THEN
2854: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2847: AND (p_action_requested = g_action_DOC_SUBMISSION_CHECK) THEN
2848:
2849: -- Profile Option IsExhibitEnabled
2850: l_isexhibitenabled := Nvl(po_core_s.Retrieveoptionvalue(l_org_id,
2851: po_core_s.g_exhibits_lines_col), 'N');
2852: l_progress := '044';
2853: IF g_debug_stmt THEN
2854: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2855: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
3676: NULL, --
3677: NULL, --
3678: p_sequence+l_rowCount(i),
3679: decode ( l_value_basis_tbl(i) --
3680: , 'RATE' , PO_CORE_S.get_translated_text
3681: ( 'PO_SUB_REQ_LINE_NE_DIST_AMT'
3682: , 'LINE_NUM', l_line_num(i)
3683: , 'LINE_AMT', l_line_amt_tbl(i)
3684: , 'DIST_AMT', l_dist_amt_tbl(i)
3682: , 'LINE_NUM', l_line_num(i)
3683: , 'LINE_AMT', l_line_amt_tbl(i)
3684: , 'DIST_AMT', l_dist_amt_tbl(i)
3685: )
3686: , 'FIXED PRICE' , PO_CORE_S.get_translated_text
3687: ( 'PO_SUB_REQ_LINE_NE_DIST_AMT'
3688: , 'LINE_NUM', l_line_num(i)
3689: , 'LINE_AMT', l_line_amt_tbl(i)
3690: , 'DIST_AMT', l_dist_amt_tbl(i)
3688: , 'LINE_NUM', l_line_num(i)
3689: , 'LINE_AMT', l_line_amt_tbl(i)
3690: , 'DIST_AMT', l_dist_amt_tbl(i)
3691: )
3692: , PO_CORE_S.get_translated_text
3693: ( 'PO_SUB_REQ_LINE_NE_DIST_QTY'
3694: , 'LINE_NUM', l_line_num(i)
3695: , 'LINE_QTY', l_line_qty_tbl(i)
3696: , 'DIST_QTY', l_dist_qty_tbl(i)
3812: -- PO_SUB_REQ_INVALID_GL_DATE
3813:
3814: --
3815:
3816: IF ( PO_CORE_S.is_encumbrance_on(
3817: p_doc_type => g_document_type_REQUISITION
3818: , p_org_id => NULL
3819: )
3820: )
4406: 0,
4407: 0,
4408: 0, --
4409: p_sequence+l_rowCount(i),
4410: substr(PO_CORE_S.get_translated_text
4411: ( 'PO_SUB_REL_INVALID_SHIP_TO',
4412: 'LINE_NUM',
4413: l_line_num(i),
4414: 'SHIP_TO_LOC',
4461: PLL.shipment_num,
4462: 0,
4463: p_sequence + ROWNUM,
4464: decode ( POL.order_type_lookup_code --
4465: , 'FIXED PRICE' , PO_CORE_S.get_translated_text
4466: ( 'PO_SUB_REL_PRICE_GT_LIMIT'
4467: , 'SHIP_NUM' , PLL.shipment_num
4468: , 'SHIP_PRICE' , nvl( PLL.price_override,PLL.amount)
4469: , 'LINE_PRICE' , nvl ( POL.not_to_exceed_price
4468: , 'SHIP_PRICE' , nvl( PLL.price_override,PLL.amount)
4469: , 'LINE_PRICE' , nvl ( POL.not_to_exceed_price
4470: , PLL.price_override )
4471: )
4472: , PO_CORE_S.get_translated_text
4473: ( 'PO_SUB_REL_AMT_GT_LIMIT'
4474: , 'SHIP_NUM' , PLL.shipment_num
4475: , 'SHIP_AMT' , PLL.amount
4476: , 'LINE_AMT' , nvl ( POL.not_to_exceed_price
4580: l_shipment_num(i),
4581: NULL, --
4582: p_sequence+l_rowCount(i),
4583: decode ( l_ship_qty_tbl(i) --
4584: , NULL , PO_CORE_S.get_translated_text
4585: ( 'PO_SUB_REL_SHIP_NE_DIST_AMT'
4586: , 'SHIP_NUM', l_shipment_num(i)
4587: , 'SHIP_AMT', l_ship_amt_tbl(i)
4588: , 'DIST_AMT', l_dist_amt_tbl(i)
4586: , 'SHIP_NUM', l_shipment_num(i)
4587: , 'SHIP_AMT', l_ship_amt_tbl(i)
4588: , 'DIST_AMT', l_dist_amt_tbl(i)
4589: )
4590: , PO_CORE_S.get_translated_text
4591: ( 'PO_SUB_REL_SHIP_NE_DIST_QTY'
4592: , 'SHIP_NUM', l_shipment_num(i)
4593: , 'SHIP_QTY', l_ship_qty_tbl(i)
4594: , 'DIST_QTY', l_dist_qty_tbl(i)
5002: -- PO_SUB_REL_INVALID_GL_DATE
5003:
5004: --
5005:
5006: IF ( PO_CORE_S.is_encumbrance_on(
5007: p_doc_type => g_document_type_RELEASE
5008: , p_org_id => NULL
5009: )
5010: )
7449: 0,
7450: 0,
7451: 0,
7452: p_sequence + 1,
7453: substr(PO_CORE_S.get_translated_text
7454: ( 'PO_SUB_INVALID_SHIP_TO_LOC',
7455: 'SHIP_TO_LOC',
7456: l_invalid_location),1,240),
7457: 'PO_SUB_INVALID_SHIP_TO_LOC'
7540: 0,
7541: 0,
7542: 0,
7543: p_sequence + 1,
7544: substr(PO_CORE_S.get_translated_text('PO_SUB_INVALID_BILL_TO_LOC','BILL_TO_LOC',l_invalid_location),1,240),
7545: 'PO_SUB_INVALID_BILL_TO_LOC'
7546: );
7547: p_sequence := p_sequence + 1;
7548: EXCEPTION
8775: -- PO_SUB_PO_INVALID_GL_DATE
8776:
8777: --
8778:
8779: IF ( PO_CORE_S.is_encumbrance_on(
8780: p_doc_type => g_document_type_PO
8781: , p_org_id => NULL
8782: )
8783: )
9523: l_line_num(i),
9524: l_shipment_num(i),
9525: NULL, --
9526: p_sequence+l_rowCount(i),
9527: PO_CORE_S.get_translated_text
9528: ( 'PO_SUB_SHIPTO_LOC_INVALID'
9529: , 'LINE_NUM', l_line_num(i)
9530: , 'SHIPMENT_NUM', l_shipment_num(i)
9531: , 'SHIP_TO_LOC', l_ship_to_location_tbl(i)
9767: pol.line_num,
9768: 0,
9769: 0,
9770: p_sequence + ROWNUM,
9771: po_core_s.GET_TRANSLATED_TEXT('PO_INVALID_OKE_CONTRACT_VER_ID',
9772: 'LINE_NUM',pol.line_num),
9773: 'PO_INVALID_OKE_CONTRACT_VER_ID'
9774: FROM po_lines_gt pol
9775: WHERE pol.oke_contract_version_id IS NOT NULL
9808: pol.line_num,
9809: pos.shipment_num,
9810: pod.distribution_num,
9811: p_sequence + ROWNUM,
9812: po_core_s.GET_TRANSLATED_TEXT('PO_INVALID_OKE_CONTRACT_LNE_ID',
9813: 'LINE_NUM',pol.line_num,
9814: 'SHIP_NUM',pos.shipment_num,
9815: 'DIST_NUM',pod.distribution_num),
9816: 'PO_INVALID_OKE_CONTRACT_LNE_ID'
9857: pol.line_num,
9858: pos.shipment_num,
9859: pod.distribution_num,
9860: p_sequence + ROWNUM,
9861: po_core_s.GET_TRANSLATED_TEXT('PO_INVALID_OKE_CONTRACT_DLV_ID',
9862: 'LINE_NUM',pol.line_num,
9863: 'SHIP_NUM',pos.shipment_num,
9864: 'DIST_NUM',pod.distribution_num),
9865: 'PO_INVALID_OKE_CONTRACT_DLV_ID'
10044: -- PO_PDOI_INVALID_FUND_VAL_ENC
10045:
10046: --
10047:
10048: IF ( PO_CORE_S.is_encumbrance_on(
10049: p_doc_type => g_document_type_PO
10050: , p_org_id => NULL
10051: ) AND (l_clm_document = 'Y')
10052: )
10118:
10119: -- Check 27: For CLM Documents, Check if Award Line has more funds than the Tolerance specified in Purchasing Options
10120: -- PO_SUB_PO_CLM_FUNDS_VAL_GT_TOL
10121:
10122: IF ( PO_CORE_S.is_encumbrance_on(
10123: p_doc_type => g_document_type_PO
10124: , p_org_id => NULL
10125: ) AND (l_clm_document = 'Y')
10126: )
10199: l_line_num(i),
10200: NULL,
10201: NULL,
10202: p_sequence+l_rowCount(i),
10203: PO_CORE_S.get_translated_text(
10204: 'PO_SUB_PO_CLM_FUNDS_VAL_GT_TOL',
10205: 'LINE_NUM', l_line_num(i)),
10206: 'PO_SUB_PO_CLM_FUNDS_VAL_GT_TOL',
10207: Decode(l_enf_funds_change_allowance, 'ADVISORY', 'W', 'E'));
10224:
10225: -- Check 28: For CLM Documents, Check if Total Funded Value of Distributions is greater than Funds remaining on the backing Requisition
10226: -- PO_SUB_FUNDED_VAL_GT_REQ_FUNDS
10227:
10228: IF ( PO_CORE_S.is_encumbrance_on(
10229: p_doc_type => g_document_type_PO
10230: , p_org_id => NULL
10231: ) AND (l_clm_document = 'Y')
10232: )
10870:
10871: -- Check 4: The PA GL date should be within an open purchasing period
10872: -- PO_SUB_PA_INVALID_GL_DATE ?
10873:
10874: IF ( PO_CORE_S.is_encumbrance_on(
10875: p_doc_type => g_document_type_PA
10876: , p_org_id => NULL
10877: )
10878: )
12443: 0,
12444: 0,
12445: p_sequence + ROWNUM,
12446: decode ( POL1.order_type_lookup_code --
12447: , 'FIXED PRICE' , PO_CORE_S.get_translated_text
12448: ( 'PO_SUB_PO_LINE_GT_GA_AMT_TOL'
12449: , 'LINE_NUM', POL1.line_num
12450: , 'LINE_AMT', POL1.amount
12451: , 'AMT_TOL' , nvl ( POL2.not_to_exceed_price
12450: , 'LINE_AMT', POL1.amount
12451: , 'AMT_TOL' , nvl ( POL2.not_to_exceed_price
12452: , POL1.amount )
12453: )
12454: , PO_CORE_S.get_translated_text
12455: ( 'PO_SUB_PO_LINE_GT_GA_PRICE_TOL'
12456: , 'LINE_NUM' , POL1.line_num
12457: , 'LINE_PRICE', POL1.unit_price
12458: , 'PRICE_TOL' , nvl ( POL2.not_to_exceed_price
13491: DELETE FROM po_req_distributions_gt;
13492: DELETE FROM po_online_report_text_gt;
13493:
13494:
13495: PO_CORE_S.get_document_ids(
13496: p_doc_type => p_doc_type
13497: , p_doc_level => p_doc_level
13498: , p_doc_level_id_tbl => po_tbl_number( p_doc_level_id )
13499: , x_doc_id_tbl => l_id_tbl
14646: END IF;
14647:
14648: l_progress := '010';
14649:
14650: PO_CORE_S.get_line_ids(
14651: p_doc_type => p_doc_type
14652: , p_doc_level => p_doc_level
14653: , p_doc_level_id_tbl => po_tbl_number( p_doc_level_id )
14654: , p_draft_id => p_draft_id
16257:
16258: -- The original approach was to do a fake UPDATE on DUAL table. However, this
16259: -- is causing locking issue. Therefore, BULK INSERT is used instead of
16260: -- BULK UPDATE
16261: l_procedure_id := PO_CORE_S.get_session_gt_nextval;
16262:
16263: FORALL i IN 1..p_count
16264: INSERT INTO PO_SESSION_GT
16265: ( key,
16483:
16484: -- The original approach was to do a fake UPDATE on DUAL table. However, this
16485: -- is causing locking issue. Therefore, BULK INSERT is used instead of
16486: -- BULK UPDATE
16487: l_procedure_id := PO_CORE_S.get_session_gt_nextval;
16488:
16489: FORALL i IN 1..p_count
16490: INSERT INTO PO_SESSION_GT
16491: ( key,
16661: -- SQL What: Checks if current PO Header/Line/Shipment is in unreservable status
16662: -- The original approach was to do a fake UPDATE on DUAL table. However, this
16663: -- is causing locking issue. Therefore, BULK INSERT is used instead of
16664: -- BULK UPDATE
16665: l_procedure_id := PO_CORE_S.get_session_gt_nextval;
16666:
16667: FORALL i IN 1..p_count
16668: INSERT INTO PO_SESSION_GT
16669: ( key,
17235: , POLL.shipment_num
17236: , 0
17237: , p_sequence + ROWNUM
17238: , decode ( POL.quantity --
17239: , NULL , PO_CORE_S.get_translated_text
17240: ( 'PO_SUB_SHIP_BILL_GT_ORD_AMT'
17241: , 'LINE_NUM' , POL.line_num
17242: , 'SHIP_NUM' , POLL.shipment_num
17243: , 'AMT_BILLED' , nvl(POLL.amount_billed, 0)
17242: , 'SHIP_NUM' , POLL.shipment_num
17243: , 'AMT_BILLED' , nvl(POLL.amount_billed, 0)
17244: , 'AMT_ORDERED' , nvl(POLL.amount, 0)
17245: )
17246: , PO_CORE_S.get_translated_text
17247: ( 'PO_SUB_SHIP_BILL_GT_ORD_QTY'
17248: , 'LINE_NUM' , POL.line_num
17249: , 'SHIP_NUM' , POLL.shipment_num
17250: , 'QTY_BILLED' , nvl(POLL.quantity_billed, 0)
17320: , POLL.shipment_num
17321: , POD.distribution_num
17322: , p_sequence + ROWNUM
17323: , decode ( POL.quantity --
17324: , NULL , PO_CORE_S.get_translated_text
17325: ( 'PO_SUB_DIST_BILL_GT_ORD_AMT'
17326: , 'LINE_NUM' , POL.line_num
17327: , 'SHIP_NUM' , POLL.shipment_num
17328: , 'DIST_NUM' , POD.distribution_num
17328: , 'DIST_NUM' , POD.distribution_num
17329: , 'AMT_BILLED' , nvl(POD.amount_billed, 0)
17330: , 'AMT_ORDERED' , nvl(POD.amount_ordered, 0)
17331: )
17332: , PO_CORE_S.get_translated_text
17333: ( 'PO_SUB_DIST_BILL_GT_ORD_QTY'
17334: , 'LINE_NUM' , POL.line_num
17335: , 'SHIP_NUM' , POLL.shipment_num
17336: , 'DIST_NUM' , POD.distribution_num
17407: , POLL.shipment_num
17408: , POD.distribution_num
17409: , p_sequence + ROWNUM
17410: , decode ( POL.quantity --
17411: , NULL , PO_CORE_S.get_translated_text
17412: ( 'PO_SUB_DIST_DLVR_GT_ORD_AMT'
17413: , 'LINE_NUM' , POL.line_num
17414: , 'SHIP_NUM' , POLL.shipment_num
17415: , 'DIST_NUM' , POD.distribution_num
17415: , 'DIST_NUM' , POD.distribution_num
17416: , 'AMT_DELIVERED' , nvl(POD.amount_delivered, 0)
17417: , 'AMT_ORDERED' , nvl(POD.amount_ordered, 0)
17418: )
17419: , PO_CORE_S.get_translated_text
17420: ( 'PO_SUB_DIST_DLVR_GT_ORD_QTY'
17421: , 'LINE_NUM' , POL.line_num
17422: , 'SHIP_NUM' , POLL.shipment_num
17423: , 'DIST_NUM' , POD.distribution_num
17467:
17468: IF (l_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
17469: --d_msg := 'check_unvalidated_invoices not successful';
17470: l_progress := 110;
17471: RAISE PO_CORE_S.g_early_return_exc;
17472: END IF;
17473:
17474:
17475: l_progress := '260';
17555: END IF;
17556:
17557: l_progress := '010';
17558:
17559: PO_CORE_S.get_line_location_ids(
17560: p_doc_type => p_doc_type
17561: , p_doc_level => p_doc_level
17562: , p_doc_level_id_tbl => po_tbl_number( p_doc_level_id )
17563: , p_draft_id => p_draft_id
17992: IF g_debug_stmt THEN
17993: PO_DEBUG.debug_stmt(l_log_head,l_progress,'not requisition');
17994: END IF;
17995:
17996: PO_CORE_S.get_distribution_ids(
17997: p_doc_type => p_doc_type
17998: , p_doc_level => p_doc_level
17999: , p_doc_level_id_tbl => po_tbl_number( p_doc_level_id )
18000: , p_draft_id => p_draft_id
18341: THEN
18342: l_msg_name := 'PO_PDOI_INVALID_GL_ENC_PER';
18343: ELSE
18344: l_progress := '020';
18345: RAISE PO_CORE_S.g_INVALID_CALL_EXC;
18346: END IF;
18347:
18348: l_progress := '030';
18349: IF g_debug_stmt THEN
18968:
18969: IF (l_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
18970: d_msg := 'check_rcv_trans_interface not successful';
18971: d_progress := 30;
18972: RAISE PO_CORE_S.g_early_return_exc;
18973: END IF;
18974:
18975: d_progress := 40;
18976:
18986:
18987: IF (l_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
18988: d_msg := 'check_asn_not_fully_received not successful';
18989: d_progress := 50;
18990: RAISE PO_CORE_S.g_early_return_exc;
18991: END IF;
18992:
18993: d_progress := 60;
18994:
19003:
19004: IF (l_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
19005: d_msg := 'check_qty_rcv_but_not_deliv not successful';
19006: d_progress := 70;
19007: RAISE PO_CORE_S.g_early_return_exc;
19008: END IF;
19009:
19010: d_progress := 80;
19011:
19020:
19021: IF (l_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
19022: d_msg := 'check_amt_rcv_but_not_deliv not successful';
19023: d_progress := 90;
19024: RAISE PO_CORE_S.g_early_return_exc;
19025: END IF;
19026:
19027: d_progress := 100;
19028:
19040:
19041: IF (l_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
19042: d_msg := 'check_invalid_acct_flex not successful';
19043: d_progress := 110;
19044: RAISE PO_CORE_S.g_early_return_exc;
19045: END IF;
19046:
19047: -- Bug#5462677
19048: d_progress := 100;
19064:
19065: IF (l_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
19066: d_msg := 'check_unvalidated_invoices not successful';
19067: d_progress := 110;
19068: RAISE PO_CORE_S.g_early_return_exc;
19069: END IF;
19070:
19071: ELSIF ((p_document_type = g_document_type_PO) AND (p_document_subtype = 'PLANNED'))
19072: THEN
19087:
19088: IF (l_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
19089: d_msg := 'check_invalid_acct_flex not successful';
19090: d_progress := 210;
19091: RAISE PO_CORE_S.g_early_return_exc;
19092: END IF;
19093:
19094: d_progress := 220;
19095:
19103:
19104: IF (l_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
19105: d_msg := 'check_ppo_has_open_release not successful';
19106: d_progress := 230;
19107: RAISE PO_CORE_S.g_early_return_exc;
19108: END IF;
19109:
19110: ELSIF ((p_document_type = g_document_type_PA) AND (p_document_subtype = 'BLANKET'))
19111: THEN
19122:
19123: IF (l_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
19124: d_msg := 'check_bpa_has_open_release not successful';
19125: d_progress := 310;
19126: RAISE PO_CORE_S.g_early_return_exc;
19127: END IF;
19128:
19129: d_progress := 320;
19130:
19138:
19139: IF (l_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
19140: d_msg := 'check_bpa_has_open_stdref not successful';
19141: d_progress := 330;
19142: RAISE PO_CORE_S.g_early_return_exc;
19143: END IF;
19144:
19145: ELSIF ((p_document_type = g_document_type_PA) AND (p_document_subtype = 'CONTRACT'))
19146: THEN
19157:
19158: IF (l_ret_sts <> FND_API.G_RET_STS_SUCCESS) THEN
19159: d_msg := 'check_cpa_has_open_stdref not successful';
19160: d_progress := 410;
19161: RAISE PO_CORE_S.g_early_return_exc;
19162: END IF;
19163:
19164: END IF; -- p_document_type = ...
19165:
19165:
19166: l_ret_sts := FND_API.G_RET_STS_SUCCESS;
19167:
19168: EXCEPTION
19169: WHEN PO_CORE_S.g_early_return_exc THEN
19170: IF (PO_LOG.d_exc) THEN
19171: PO_LOG.exc(d_module, d_progress, d_msg);
19172: END IF;
19173: l_ret_sts := FND_API.G_RET_STS_UNEXP_ERROR;
19529:
19530: d_progress := 70;
19531: d_msg := 'Bad document level';
19532: l_ret_sts := FND_API.G_RET_STS_UNEXP_ERROR;
19533: RAISE PO_CORE_S.g_early_return_exc;
19534:
19535: END IF; -- if p_document_level = ...
19536:
19537: p_sequence := p_sequence + SQL%ROWCOUNT;
19537: p_sequence := p_sequence + SQL%ROWCOUNT;
19538: l_ret_sts := FND_API.G_RET_STS_SUCCESS;
19539:
19540: EXCEPTION
19541: WHEN PO_CORE_S.g_early_return_exc THEN
19542: IF (PO_LOG.d_exc) THEN
19543: PO_LOG.exc(d_module, d_progress, d_msg);
19544: END IF;
19545: END;
19898:
19899: d_progress := 70;
19900: d_msg := 'Bad document level';
19901: l_ret_sts := FND_API.G_RET_STS_UNEXP_ERROR;
19902: RAISE PO_CORE_S.g_early_return_exc;
19903:
19904: END IF; -- if p_document_level = ...
19905:
19906: d_progress := 80;
19992: , p_sequence + ROWNUM
19993: , substr(
19994: DECODE(p_document_type, g_document_type_RELEASE,
19995: g_shipmsg || g_delim || poll.shipment_num || g_delim
19996: || PO_CORE_S.get_translated_text('PO_CAN_POLL_REC_NOT_DEL'
19997: , 'QTY2', round(NVL(poll.quantity_received, 0),5) /* Bug:13427569 rounded to 5 digits */
19998: , 'QTY1', round(sum(NVL(pod.quantity_delivered, 0)),5) /* Bug:13427569 rounded to 5 digits */
19999: ),
20000: g_linemsg || g_delim || pol.line_num || g_delim || g_shipmsg || g_delim
19998: , 'QTY1', round(sum(NVL(pod.quantity_delivered, 0)),5) /* Bug:13427569 rounded to 5 digits */
19999: ),
20000: g_linemsg || g_delim || pol.line_num || g_delim || g_shipmsg || g_delim
20001: || poll.shipment_num || g_delim
20002: || PO_CORE_S.get_translated_text('PO_CAN_POLL_REC_NOT_DEL'
20003: , 'QTY2', round(NVL(poll.quantity_received, 0),5) /* Bug:13427569 rounded to 5 digits */
20004: , 'QTY1', round(sum(NVL(pod.quantity_delivered, 0)),5) /* Bug:13427569 rounded to 5 digits */
20005: )
20006: ), 1, 240)
20115: , p_sequence + ROWNUM
20116: , substr(
20117: DECODE(p_document_type, g_document_type_RELEASE,
20118: g_shipmsg || g_delim || poll.shipment_num || g_delim
20119: || PO_CORE_S.get_translated_text('PO_CAN_POLL_AMT_REC_NOT_DEL'
20120: , 'QTY2', NVL(poll.amount_received, 0)
20121: , 'QTY1', sum(NVL(pod.amount_delivered, 0))
20122: ),
20123: g_linemsg || g_delim || pol.line_num || g_delim || g_shipmsg || g_delim
20121: , 'QTY1', sum(NVL(pod.amount_delivered, 0))
20122: ),
20123: g_linemsg || g_delim || pol.line_num || g_delim || g_shipmsg || g_delim
20124: || poll.shipment_num || g_delim
20125: || PO_CORE_S.get_translated_text('PO_CAN_POLL_AMT_REC_NOT_DEL'
20126: , 'QTY2', NVL(poll.amount_received, 0)
20127: , 'QTY1', sum(NVL(pod.amount_delivered, 0))
20128: )
20129: ), 1, 240)
20837: NULL, --
20838: NULL, --
20839: x_sequence+ l_rowCount(i),
20840: decode ( l_line_qty_tbl(i) --
20841: , NULL , PO_CORE_S.get_translated_text
20842: ( 'PO_SUB_PO_LINE_NE_SHIP_AMT'
20843: , 'LINE_NUM', l_line_num(i)
20844: , 'LINE_AMT', l_line_amt_tbl(i)
20845: , 'SHIP_AMT', l_lineloc_amt_tbl(i)
20843: , 'LINE_NUM', l_line_num(i)
20844: , 'LINE_AMT', l_line_amt_tbl(i)
20845: , 'SHIP_AMT', l_lineloc_amt_tbl(i)
20846: )
20847: , PO_CORE_S.get_translated_text
20848: ( 'PO_SUB_PO_LINE_NE_SHIP_QTY'
20849: , 'LINE_NUM', l_line_num(i)
20850: , 'LINE_QTY', l_line_qty_tbl(i)
20851: , 'SHIP_QTY', l_lineloc_qty_tbl(i)
20874: || l_progress,'PO Pay Item Qty/Amt Rollup');
20875: END IF;
20876: END IF;
20877:
20878: l_is_financing_flag := PO_CORE_S.boolean_to_flag(
20879: PO_COMPLEX_WORK_PVT.is_financing_po(p_document_id));
20880:
20881: l_progress := '022';
20882:
20885: INTO l_currency_code
20886: FROM po_headers_all poh
20887: WHERE poh.po_header_id = p_document_id;
20888:
20889: PO_CORE_S2.get_currency_info(
20890: x_currency_code => l_currency_code
20891: , x_min_unit => l_min_acct_unit
20892: , x_precision => l_precision);
20893:
21008: NULL,
21009: x_sequence+ l_rowCount(i),
21010: decode ( l_fin_adv_amount(i),
21011: NULL,
21012: PO_CORE_S.get_translated_text
21013: ( 'PO_SUB_PAY_ITEM_NE_LINE_AMT'
21014: , 'LINE_NUM', l_line_num(i)
21015: , 'PAY_ITEM_AMT', l_lineloc_amt_tbl(i)
21016: , 'LINE_AMT', l_line_amt_tbl(i)
21014: , 'LINE_NUM', l_line_num(i)
21015: , 'PAY_ITEM_AMT', l_lineloc_amt_tbl(i)
21016: , 'LINE_AMT', l_line_amt_tbl(i)
21017: ),
21018: PO_CORE_S.get_translated_text
21019: ( 'PO_SUB_PRE_PAY_GE_LINE_AMT'
21020: , 'LINE_NUM', l_line_num(i)
21021: , 'PAY_ITEM_AMT', (l_lineloc_amt_tbl(i)-l_fin_adv_amount(i) )
21022: , 'ADV_AMT', l_fin_adv_amount(i)
21166: l_shipment_num(i),
21167: NULL, --
21168: x_sequence+l_rowCount(i),
21169: decode ( l_lineloc_qty_tbl(i)
21170: , NULL , PO_CORE_S.get_translated_text
21171: ( 'PO_SUB_PO_SHIP_NE_DIST_AMT'
21172: , 'LINE_NUM', l_line_num(i)
21173: , 'SHIP_NUM', l_shipment_num(i)
21174: , 'SHIP_AMT', l_lineloc_amt_tbl(i)
21173: , 'SHIP_NUM', l_shipment_num(i)
21174: , 'SHIP_AMT', l_lineloc_amt_tbl(i)
21175: , 'DIST_AMT', l_dist_amt_tbl(i)
21176: )
21177: , PO_CORE_S.get_translated_text
21178: ( 'PO_SUB_PO_SHIP_NE_DIST_QTY'
21179: , 'LINE_NUM', l_line_num(i)
21180: , 'SHIP_NUM', l_shipment_num(i)
21181: , 'SHIP_QTY', l_lineloc_qty_tbl(i)
21262: l_is_price_updateable := FALSE;
21263:
21264: d_progress := 30;
21265:
21266: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
21267: d_progress := 40;
21268: --
21269: FND_MESSAGE.set_name('PO','CWPOTODOMESSAGE');
21270: FND_MSG_PUB.add;
22130: WHEN NO_DATA_FOUND THEN
22131: l_org_id := NULL;
22132: END;
22133:
22134: l_ko_sign_required := PO_CORE_S.retrieveOptionValue(p_org_id => l_org_id,
22135: p_option_column => PO_CORE_S.g_KO_SIGNATURE_REQD_COL);
22136: --NVL(FND_PROFILE.VALUE('PO_CLM_KO_SIGNATURE_REQD'),'N');
22137: --We need to check the profile determine if the ko signature is required.
22138: IF l_ko_sign_required <> 'Y' THEN
22131: l_org_id := NULL;
22132: END;
22133:
22134: l_ko_sign_required := PO_CORE_S.retrieveOptionValue(p_org_id => l_org_id,
22135: p_option_column => PO_CORE_S.g_KO_SIGNATURE_REQD_COL);
22136: --NVL(FND_PROFILE.VALUE('PO_CLM_KO_SIGNATURE_REQD'),'N');
22137: --We need to check the profile determine if the ko signature is required.
22138: IF l_ko_sign_required <> 'Y' THEN
22139: -- if Contract officer signature is not required, then there is no warrant check.
22278: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,l_log_head || 'l_doc_amount '||l_doc_amount);
22279: END IF;
22280:
22281: -- Getting the ledger currency
22282: po_core_s2.get_po_currency(p_header_id, l_currency_code, l_doc_currency);
22283: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'ledger currency '||l_currency_code);
22284: IF itemtype is not NULL and itemkey is not NULL THEN
22285: PO_DEBUG.debug_stmt(l_log_head , l_progress, 'ledger currency '||l_currency_code);
22286: END IF;
22514: PO_DEBUG.debug_var(l_log_head,l_progress,'changedesc_gen_date', changedesc_gen_date);
22515: PO_DEBUG.debug_var(l_log_head,l_progress,'changedesc_edit_flag', changedesc_edit_flag);
22516:
22517: --find the latest date of the modification document
22518: mod_last_update_date := PO_CORE_S.get_last_update_date_for_mod(p_draft_id);
22519:
22520: PO_DEBUG.debug_var(l_log_head,l_progress,'mod_last_update_date', mod_last_update_date);
22521: --IF edited_by_user flag is Y, throw the warning message saying that
22522: -- change description is edited and out of sync with mod document
22814: PO_DEBUG.DEBUG_STMT(G_LOG_HEAD || '.'||L_API_NAME||'.',
22815: L_PROGRESS,'PO_ALL_NO_BUDGET_FLEX');
22816: END IF;
22817:
22818: IF (PO_CORE_S.is_encumbrance_on(
22819: p_doc_type => g_document_type_PO
22820: , p_org_id => NULL)) THEN
22821:
22822: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_ALL_NO_BUDGET_FLEX');
22946: POL.LINE_NUM,
22947: PLL.SHIPMENT_NUM,
22948: 0,
22949: P_SEQUENCE + ROWNUM,
22950: PO_CORE_S.get_translated_text
22951: ('PO_LINE_SHIP_UOM_MISMATCH'
22952: , 'LINE_NUM', POL.LINE_NUM
22953: , 'SHIP_NUM', PLL.SHIPMENT_NUM
22954: ),
22985: POL.LINE_NUM,
22986: PLL.SHIPMENT_NUM,
22987: 0,
22988: P_SEQUENCE + ROWNUM,
22989: PO_CORE_S.get_translated_text
22990: ('PO_LINE_SHIP_UOM_MISMATCH'
22991: , 'LINE_NUM', POL.LINE_NUM
22992: , 'SHIP_NUM', PLL.SHIPMENT_NUM
22993: ),
23089: l_loas varchar2(100);
23090: l_charge_acc varchar2(100);
23091: Begin
23092:
23093: l_key := PO_CORE_S.get_session_gt_nextval;
23094:
23095:
23096: /*Collecting the Charge Accounts, LOAs and the ACRN values populated
23097: into session gt for validation. */
23153: These two values will be pased to form the message PO_DUPLICATE_ACRN which
23154: will be inserted into the po_online_report_text_gt
23155: */
23156: --Extracting the names from the
23157: l_loas := PO_CORE_S.get_translated_text('PO_LOA_DISPLAY');
23158: l_charge_acc := PO_CORE_S.get_translated_text('PO_CHARGE_ACC_DISP');
23159:
23160: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
23161: (ONLINE_REPORT_ID,
23154: will be inserted into the po_online_report_text_gt
23155: */
23156: --Extracting the names from the
23157: l_loas := PO_CORE_S.get_translated_text('PO_LOA_DISPLAY');
23158: l_charge_acc := PO_CORE_S.get_translated_text('PO_CHARGE_ACC_DISP');
23159:
23160: INSERT INTO PO_ONLINE_REPORT_TEXT_GT
23161: (ONLINE_REPORT_ID,
23162: LAST_UPDATE_LOGIN,
23173: SYSDATE,
23174: P_USER_ID,
23175: SYSDATE,
23176: P_SEQUENCE + ROWNUM,
23177: PO_CORE_S.get_translated_text
23178: ( 'PO_DUPLICATE_ACRN'
23179: , 'ACRN', acrn
23180: , 'CHARGE_LOA',ERROR_MESSAGE
23181: ),
23280: SYSDATE,
23281: P_USER_ID,
23282: SYSDATE,
23283: P_SEQUENCE + ROWNUM,
23284: PO_CORE_S.get_translated_text ( 'PO_ACRN_CHARGE_ACCOUNT' , 'CHARGE_LOA', c_l , 'ACRNS',ERROR_MESSAGE ),
23285: 'PO_ACRN_CHARGE_ACCOUNT'
23286: FROM -- This part of the query takes the o/p from below query, inserts into gt
23287: (SELECT c_l
23288: || ' '
23681: p_sequence := p_sequence + SQL%ROWCOUNT;
23682:
23683:
23684: -- Validate Req Budget Account
23685: IF PO_CORE_S.is_encumbrance_on( p_doc_type => p_document_type, p_org_id => NULL ) THEN
23686: INSERT INTO PO_ONLINE_REPORT_TEXT_GT(
23687: ONLINE_REPORT_ID,
23688: LAST_UPDATE_LOGIN,
23689: LAST_UPDATED_BY,
23920: p_sequence := p_sequence + SQL%ROWCOUNT;
23921:
23922:
23923: -- Validate Release Budget Account for non cancelled, non finally closed, not approved shipments.
23924: IF PO_CORE_S.is_encumbrance_on( p_doc_type => 'PO', p_org_id => NULL ) THEN
23925:
23926: INSERT INTO PO_ONLINE_REPORT_TEXT_GT(
23927: ONLINE_REPORT_ID,
23928: LAST_UPDATE_LOGIN,
24168: p_sequence := p_sequence + SQL%ROWCOUNT;
24169:
24170:
24171: -- Validate PO/BPA Budget Account
24172: IF PO_CORE_S.is_encumbrance_on( p_doc_type => 'PO', p_org_id => NULL ) THEN
24173: -- Validate PO/BPA Budget Account
24174: INSERT INTO PO_ONLINE_REPORT_TEXT_GT(
24175: ONLINE_REPORT_ID,
24176: LAST_UPDATE_LOGIN,
25103: 'E'
25104: FROM (SELECT lines.line_num,
25105: pll.shipment_num,
25106: pda.distribution_num,
25107: po_core_s3.Get_fiscal_year(
25108: (SELECT Min(pll.clm_period_perf_start_date)
25109: FROM po_line_locations_gt poll
25110: WHERE poll.po_line_id = pll.po_line_id
25111: AND poll.po_header_id = pll.po_header_id),
25109: FROM po_line_locations_gt poll
25110: WHERE poll.po_line_id = pll.po_line_id
25111: AND poll.po_header_id = pll.po_header_id),
25112: pda.set_of_books_id) Min_start_date_fiscal_year,
25113: po_core_s3.Get_fiscal_year(pll.clm_period_perf_end_date,
25114: pda.set_of_books_id) end_date_fiscal_year
25115: FROM po_distributions_gt pda,
25116: po_line_locations_gt pll,
25117: (SELECT pol.po_line_id,
25136: AND pll.po_line_id = lines.po_line_id
25137: AND pda.line_location_id = pll.line_location_id
25138: AND pda.po_line_id = pll.po_line_id
25139: AND pda.po_header_id = pll.po_header_id
25140: AND po_core_s3.Is_non_annual_fund(pda.code_combination_id, pda.set_of_books_id) = 'Y'
25141: AND pda.code_combination_id IS NOT NULL)
25142: WHERE min_start_date_fiscal_year <> end_date_fiscal_year ;
25143:
25144: p_sequence := p_sequence + SQL%ROWCOUNT;
25296: POL.line_num,
25297: 0,
25298: 0,
25299: p_sequence + ROWNUM,
25300: po_core_s.Get_translated_text('PO_UCA_PDD_PAST_DATE',
25301: 'LINE_NUM', pol.line_num_display),
25302: 'PO_UCA_PDD_PAST_DATE',
25303: 'W'
25304: FROM po_line_ucas uc,
25346: POL.line_num,
25347: 0,
25348: 0,
25349: p_sequence + ROWNUM,
25350: po_core_s.Get_translated_text('PO_UCA_UNDEF_INCOMPLETE', 'LINE_NUM',
25351: pol.line_num_display),
25352: 'PO_UCA_UNDEF_INCOMPLETE',
25353: 'E'
25354: FROM po_line_ucas uc,
25401: POL.line_num,
25402: 0,
25403: 0,
25404: p_sequence + ROWNUM,
25405: po_core_s.Get_translated_text('PO_UCA_DEF_DESC_ERR', 'DOC_NUM',
25406: uc.undef_clm_document_number, 'LINE_NUM', pol.line_num_display),
25407: 'PO_UCA_DEF_DESC_ERR',
25408: 'E'
25409: FROM po_line_ucas uc,
25460: line_num,
25461: 0,
25462: 0,
25463: p_sequence + ROWNUM,
25464: po_core_s.Get_translated_text('PO_UCA_MAX_CHANGE_ERR', 'CP_LABEL',
25465: cp_label,
25466: 'CP_LABEL2', cp_label, 'LINE_NUM', line_num_display),
25467: 'PO_UCA_MAX_CHANGE_ERR',
25468: 'W'
25521: line_num,
25522: 0,
25523: 0,
25524: p_sequence + ROWNUM,
25525: po_core_s.Get_translated_text('PO_UCA_LINE_DEF_NO_UCAS', 'LINE_NUM',
25526: line_num_display),
25527: 'PO_UCA_LINE_DEF_NO_UCAS',
25528: 'E'
25529: FROM po_lines_gt pol,
25635: 0,
25636: 0,
25637: 0,
25638: p_sequence + ROWNUM,
25639: po_core_s.Get_translated_text('PO_CLM_EXHIBIT_ORPHAN', 'EXHIBIT_NAME', poe.exhibit_name),
25640: 'PO_CLM_EXHIBIT_ORPHAN',
25641: 'E'
25642: FROM
25643: po_exhibit_details_merge_v poe,
25678: 0,
25679: 0,
25680: 0,
25681: p_sequence + ROWNUM,
25682: po_core_s.Get_translated_text('PO_CLM_EXHIBIT_INVALID_REF', 'EXHIBIT_NAME', poed.exhibit_name),
25683: 'PO_CLM_EXHIBIT_INVALID_REF',
25684: 'E'
25685: FROM po_lines_gt pol,
25686: po_exhibit_details_merge_v poed,
25784: BEGIN
25785:
25786: d_progress := 0;
25787:
25788: l_procedure_id := PO_CORE_S.get_session_gt_nextval;
25789:
25790: IF (PO_LOG.d_proc) THEN
25791: PO_LOG.proc_begin(d_module);
25792: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
26052: GT.char3,
26053: GT.char5,
26054: GT.char6,
26055: p_sequence + ROWNUM,
26056: PO_CORE_S.get_translated_text(
26057: 'PO_MIPR_MULTI_ASST_OFF_REF',
26058: 'LINE_NUM', GT.char4,
26059: 'SHIP_NUM', GT.char5,
26060: 'DIST_NUM', GT.char6),
26097: GT.char3,
26098: GT.char5,
26099: GT.char6,
26100: p_sequence + ROWNUM,
26101: PO_CORE_S.get_translated_text(
26102: 'PO_MIPR_OWN_AND_PR_REF',
26103: 'LINE_NUM', GT.char4,
26104: 'SHIP_NUM', GT.char5,
26105: 'DIST_NUM', GT.char6),
26137: GT.char3,
26138: GT.char5,
26139: GT.char6,
26140: p_sequence + ROWNUM,
26141: PO_CORE_S.get_translated_text(
26142: 'PO_MIPR_MULTI_OBLIG_REF',
26143: 'LINE_NUM', GT.char4,
26144: 'SHIP_NUM', GT.char5,
26145: 'DIST_NUM', GT.char6),
26558: PO_LOG.proc_begin(d_module, 'p_draft_id', p_draft_id);
26559:
26560: END IF;
26561: IF Nvl(p_draft_id,-1) <> -1 THEN
26562: l_doc_threshold_amount := Nvl(po_core_s.Retrieveoptionvalue(p_org_id,
26563: po_core_s.g_DOC_AMT_THRESHOLD_COL), 0);
26564:
26565: SELECT ( CASE
26566: WHEN phda.type_lookup_code = 'BLANKET' THEN 'PA_BLANKET_MOD'
26559:
26560: END IF;
26561: IF Nvl(p_draft_id,-1) <> -1 THEN
26562: l_doc_threshold_amount := Nvl(po_core_s.Retrieveoptionvalue(p_org_id,
26563: po_core_s.g_DOC_AMT_THRESHOLD_COL), 0);
26564:
26565: SELECT ( CASE
26566: WHEN phda.type_lookup_code = 'BLANKET' THEN 'PA_BLANKET_MOD'
26567: WHEN phda.type_lookup_code = 'CONTRACT' THEN 'PA_CONTRACT_MOD'
26620: ,p_user_id
26621: ,sysdate
26622: ,0 ,0 ,0
26623: ,p_sequence+1
26624: ,po_core_s.Get_translated_text('PO_OKC_NO_SBCR', 'AMOUNT',l_limit_amount)
26625: ,'PO_OKC_NO_SBCR'
26626: ,'W'
26627: );
26628:
26651: ,p_user_id
26652: ,sysdate
26653: ,0 ,0 ,0
26654: ,p_sequence+1
26655: ,po_core_s.Get_translated_text('PO_OKC_NO_SIGNED_SBCR')
26656: ,'PO_OKC_NO_SIGNED_SBCR'
26657: ,'W'
26658: );
26659: