eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.BOM_VALIDATE_RTG_HEADER dependencies on BOM_RTG_GLOBALS

Line 68: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN

64: l_err_text VARCHAR2(2000);
65:
66: BEGIN
67:
68: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
69: Error_Handler.Write_Debug('Quering Routing . . . ') ;
70: Error_Handler.Write_Debug('Assembly item : ' || to_char(p_rtg_header_unexp_rec.assembly_item_id));
71: Error_Handler.Write_Debug('Org Id : ' || to_char(p_rtg_header_unexp_rec.organization_id ));
72: Error_Handler.Write_Debug('Alternate : ' || p_rtg_header_rec.alternate_routing_code );

Line 88: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN

84: , x_rtg_header_unexp_rec => x_old_rtg_header_unexp_rec
85: , x_return_status => l_return_status
86: );
87:
88: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
89: Error_Handler.Write_Debug('Query Row Returned with : ' || l_return_status);
90: END IF;
91:
92: IF l_return_status = BOM_Rtg_Globals.G_RECORD_FOUND AND

Line 92: IF l_return_status = BOM_Rtg_Globals.G_RECORD_FOUND AND

88: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
89: Error_Handler.Write_Debug('Query Row Returned with : ' || l_return_status);
90: END IF;
91:
92: IF l_return_status = BOM_Rtg_Globals.G_RECORD_FOUND AND
93: p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
94: THEN
95: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
96: l_token_tbl(1).token_value :=

Line 93: p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE

89: Error_Handler.Write_Debug('Query Row Returned with : ' || l_return_status);
90: END IF;
91:
92: IF l_return_status = BOM_Rtg_Globals.G_RECORD_FOUND AND
93: p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
94: THEN
95: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
96: l_token_tbl(1).token_value :=
97: p_rtg_header_rec.assembly_item_name;

Line 106: ELSIF l_return_status = BOM_Rtg_Globals.G_RECORD_NOT_FOUND AND

102: , p_token_tbl => l_token_tbl
103: );
104: l_return_status := FND_API.G_RET_STS_ERROR;
105:
106: ELSIF l_return_status = BOM_Rtg_Globals.G_RECORD_NOT_FOUND AND
107: p_rtg_header_rec.transaction_type IN
108: (BOM_Rtg_Globals.G_OPR_UPDATE, BOM_Rtg_Globals.G_OPR_DELETE)
109: THEN
110: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';

Line 108: (BOM_Rtg_Globals.G_OPR_UPDATE, BOM_Rtg_Globals.G_OPR_DELETE)

104: l_return_status := FND_API.G_RET_STS_ERROR;
105:
106: ELSIF l_return_status = BOM_Rtg_Globals.G_RECORD_NOT_FOUND AND
107: p_rtg_header_rec.transaction_type IN
108: (BOM_Rtg_Globals.G_OPR_UPDATE, BOM_Rtg_Globals.G_OPR_DELETE)
109: THEN
110: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
111: l_token_tbl(1).token_value :=
112: p_rtg_header_rec.assembly_item_name;

Line 227: IF BOM_Rtg_Globals.Get_STD_Item_Access IS NULL AND

223: );
224: l_return_status := FND_API.G_RET_STS_ERROR;
225: END IF; */
226:
227: IF BOM_Rtg_Globals.Get_STD_Item_Access IS NULL AND
228: BOM_Rtg_Globals.Get_PLN_Item_Access IS NULL AND
229: BOM_Rtg_Globals.Get_MDL_Item_Access IS NULL AND
230: BOM_Rtg_Globals.Get_OC_Item_Access IS NULL
231: THEN

Line 228: BOM_Rtg_Globals.Get_PLN_Item_Access IS NULL AND

224: l_return_status := FND_API.G_RET_STS_ERROR;
225: END IF; */
226:
227: IF BOM_Rtg_Globals.Get_STD_Item_Access IS NULL AND
228: BOM_Rtg_Globals.Get_PLN_Item_Access IS NULL AND
229: BOM_Rtg_Globals.Get_MDL_Item_Access IS NULL AND
230: BOM_Rtg_Globals.Get_OC_Item_Access IS NULL
231: THEN
232: --

Line 229: BOM_Rtg_Globals.Get_MDL_Item_Access IS NULL AND

225: END IF; */
226:
227: IF BOM_Rtg_Globals.Get_STD_Item_Access IS NULL AND
228: BOM_Rtg_Globals.Get_PLN_Item_Access IS NULL AND
229: BOM_Rtg_Globals.Get_MDL_Item_Access IS NULL AND
230: BOM_Rtg_Globals.Get_OC_Item_Access IS NULL
231: THEN
232: --
233: -- Get respective profile values

Line 230: BOM_Rtg_Globals.Get_OC_Item_Access IS NULL

226:
227: IF BOM_Rtg_Globals.Get_STD_Item_Access IS NULL AND
228: BOM_Rtg_Globals.Get_PLN_Item_Access IS NULL AND
229: BOM_Rtg_Globals.Get_MDL_Item_Access IS NULL AND
230: BOM_Rtg_Globals.Get_OC_Item_Access IS NULL
231: THEN
232: --
233: -- Get respective profile values
234: --

Line 235: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN

231: THEN
232: --
233: -- Get respective profile values
234: --
235: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
236: Error_Handler.Write_Debug('Checking item type access . . . ');
237: END IF;
238:
239: IF fnd_profile.value('BOM:STANDARD_ITEM_ACCESS') = '1'

Line 241: BOM_Rtg_Globals.Set_STD_Item_Access

237: END IF;
238:
239: IF fnd_profile.value('BOM:STANDARD_ITEM_ACCESS') = '1'
240: THEN
241: BOM_Rtg_Globals.Set_STD_Item_Access
242: ( p_std_item_access => 4);
243: ELSE
244:
245: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN

Line 245: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN

241: BOM_Rtg_Globals.Set_STD_Item_Access
242: ( p_std_item_access => 4);
243: ELSE
244:
245: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
246: Error_Handler.Write_Debug('No access to Std Items');
247: END IF;
248: BOM_Rtg_Globals.Set_STD_Item_Access
249: (p_std_item_access => NULL);

Line 248: BOM_Rtg_Globals.Set_STD_Item_Access

244:
245: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
246: Error_Handler.Write_Debug('No access to Std Items');
247: END IF;
248: BOM_Rtg_Globals.Set_STD_Item_Access
249: (p_std_item_access => NULL);
250: END IF;
251:
252: IF fnd_profile.value('BOM:MODEL_ITEM_ACCESS') = '1'

Line 254: BOM_Rtg_Globals.Set_MDL_Item_Access

250: END IF;
251:
252: IF fnd_profile.value('BOM:MODEL_ITEM_ACCESS') = '1'
253: THEN
254: BOM_Rtg_Globals.Set_MDL_Item_Access
255: ( p_mdl_item_access => 1);
256: BOM_Rtg_Globals.Set_OC_Item_Access
257: ( p_oc_item_access => 2);
258:

Line 256: BOM_Rtg_Globals.Set_OC_Item_Access

252: IF fnd_profile.value('BOM:MODEL_ITEM_ACCESS') = '1'
253: THEN
254: BOM_Rtg_Globals.Set_MDL_Item_Access
255: ( p_mdl_item_access => 1);
256: BOM_Rtg_Globals.Set_OC_Item_Access
257: ( p_oc_item_access => 2);
258:
259: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
260: Error_Handler.Write_Debug('Model/OC items are accessible');

Line 259: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN

255: ( p_mdl_item_access => 1);
256: BOM_Rtg_Globals.Set_OC_Item_Access
257: ( p_oc_item_access => 2);
258:
259: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
260: Error_Handler.Write_Debug('Model/OC items are accessible');
261: END IF;
262:
263: ELSE

Line 264: BOM_Rtg_Globals.Set_MDL_Item_Access

260: Error_Handler.Write_Debug('Model/OC items are accessible');
261: END IF;
262:
263: ELSE
264: BOM_Rtg_Globals.Set_MDL_Item_Access
265: ( p_mdl_item_access => NULL);
266: BOM_Rtg_Globals.Set_OC_Item_Access
267: ( p_oc_item_access => NULL);
268:

Line 266: BOM_Rtg_Globals.Set_OC_Item_Access

262:
263: ELSE
264: BOM_Rtg_Globals.Set_MDL_Item_Access
265: ( p_mdl_item_access => NULL);
266: BOM_Rtg_Globals.Set_OC_Item_Access
267: ( p_oc_item_access => NULL);
268:
269: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
270: Error_Handler.Write_Debug('No access to Model/OC items ');

Line 269: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN

265: ( p_mdl_item_access => NULL);
266: BOM_Rtg_Globals.Set_OC_Item_Access
267: ( p_oc_item_access => NULL);
268:
269: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
270: Error_Handler.Write_Debug('No access to Model/OC items ');
271: END IF;
272: END IF;
273:

Line 276: BOM_Rtg_Globals.Set_PLN_Item_Access

272: END IF;
273:
274: IF fnd_profile.value('BOM:PLANNING_ITEM_ACCESS') = '1'
275: THEN
276: BOM_Rtg_Globals.Set_PLN_Item_Access
277: ( p_pln_item_access => 3);
278:
279: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
280: Error_Handler.Write_Debug('Planning item accessible');

Line 279: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN

275: THEN
276: BOM_Rtg_Globals.Set_PLN_Item_Access
277: ( p_pln_item_access => 3);
278:
279: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
280: Error_Handler.Write_Debug('Planning item accessible');
281: END IF;
282: ELSE
283: BOM_Rtg_Globals.Set_PLN_Item_Access

Line 283: BOM_Rtg_Globals.Set_PLN_Item_Access

279: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
280: Error_Handler.Write_Debug('Planning item accessible');
281: END IF;
282: ELSE
283: BOM_Rtg_Globals.Set_PLN_Item_Access
284: ( p_pln_item_access => NULL);
285:
286: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
287: Error_Handler.Write_Debug('No access to Planning items ');

Line 286: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN

282: ELSE
283: BOM_Rtg_Globals.Set_PLN_Item_Access
284: ( p_pln_item_access => NULL);
285:
286: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
287: Error_Handler.Write_Debug('No access to Planning items ');
288: END IF;
289:
290: END IF;

Line 298: ( NVL(BOM_Rtg_Globals.Get_STD_Item_Access, 0),

294: -- Use BOM Item Type of the Assembly Item that is queried above
295: -- to check if user has access to it.
296: --
297: IF l_Bom_Item_Type NOT IN
298: ( NVL(BOM_Rtg_Globals.Get_STD_Item_Access, 0),
299: NVL(BOM_Rtg_Globals.Get_PLN_Item_Access, 0),
300: NVL(BOM_Rtg_Globals.Get_OC_Item_Access, 0) ,
301: NVL(BOM_Rtg_Globals.Get_MDL_Item_Access, 0)
302: )

Line 299: NVL(BOM_Rtg_Globals.Get_PLN_Item_Access, 0),

295: -- to check if user has access to it.
296: --
297: IF l_Bom_Item_Type NOT IN
298: ( NVL(BOM_Rtg_Globals.Get_STD_Item_Access, 0),
299: NVL(BOM_Rtg_Globals.Get_PLN_Item_Access, 0),
300: NVL(BOM_Rtg_Globals.Get_OC_Item_Access, 0) ,
301: NVL(BOM_Rtg_Globals.Get_MDL_Item_Access, 0)
302: )
303: AND l_Bom_Item_Type <> 5

Line 300: NVL(BOM_Rtg_Globals.Get_OC_Item_Access, 0) ,

296: --
297: IF l_Bom_Item_Type NOT IN
298: ( NVL(BOM_Rtg_Globals.Get_STD_Item_Access, 0),
299: NVL(BOM_Rtg_Globals.Get_PLN_Item_Access, 0),
300: NVL(BOM_Rtg_Globals.Get_OC_Item_Access, 0) ,
301: NVL(BOM_Rtg_Globals.Get_MDL_Item_Access, 0)
302: )
303: AND l_Bom_Item_Type <> 5
304: THEN

Line 301: NVL(BOM_Rtg_Globals.Get_MDL_Item_Access, 0)

297: IF l_Bom_Item_Type NOT IN
298: ( NVL(BOM_Rtg_Globals.Get_STD_Item_Access, 0),
299: NVL(BOM_Rtg_Globals.Get_PLN_Item_Access, 0),
300: NVL(BOM_Rtg_Globals.Get_OC_Item_Access, 0) ,
301: NVL(BOM_Rtg_Globals.Get_MDL_Item_Access, 0)
302: )
303: AND l_Bom_Item_Type <> 5
304: THEN
305: l_Token_Tbl(1).Token_Name := 'BOM_ITEM_TYPE';

Line 346: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN

342:
343:
344: END IF;
345:
346: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
347: Error_Handler.Write_Debug('Check if this item is Asset Item for Enterprise Asset Management. . .');
348: END IF;
349: -- for eAM enhancement,
350: -- If eam item type is 1 : Asset Group or 3 : Rebuildable Component

Line 353: /* IF l_eam_item_type IN ( BOM_Rtg_Globals.G_ASSET_GROUP ,

349: -- for eAM enhancement,
350: -- If eam item type is 1 : Asset Group or 3 : Rebuildable Component
351: -- User cannnot create any type of routings
352:
353: /* IF l_eam_item_type IN ( BOM_Rtg_Globals.G_ASSET_GROUP ,
354: BOM_Rtg_Globals.G_REBUILDABLE )
355: THEN
356: */
357: /* Fix for bug 5903026 - Allow routings to be created for items with eam_item_type=3 (i.e.)Rebuildable

Line 354: BOM_Rtg_Globals.G_REBUILDABLE )

350: -- If eam item type is 1 : Asset Group or 3 : Rebuildable Component
351: -- User cannnot create any type of routings
352:
353: /* IF l_eam_item_type IN ( BOM_Rtg_Globals.G_ASSET_GROUP ,
354: BOM_Rtg_Globals.G_REBUILDABLE )
355: THEN
356: */
357: /* Fix for bug 5903026 - Allow routings to be created for items with eam_item_type=3 (i.e.)Rebuildable
358: Commented the earlier IF condition. Now we disallow only for G_ASSET_GROUP

Line 360: IF l_eam_item_type = BOM_Rtg_Globals.G_ASSET_GROUP

356: */
357: /* Fix for bug 5903026 - Allow routings to be created for items with eam_item_type=3 (i.e.)Rebuildable
358: Commented the earlier IF condition. Now we disallow only for G_ASSET_GROUP
359: */
360: IF l_eam_item_type = BOM_Rtg_Globals.G_ASSET_GROUP
361: THEN
362: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
363: l_token_tbl(1).token_value := p_assembly_item_name ;
364:

Line 377: BOM_Rtg_Globals.Set_Eam_Item_Type(p_eam_item_type => l_eam_item_type) ;

373:
374: END IF ;
375:
376: -- Set Eam Item Type to System Info Record.
377: BOM_Rtg_Globals.Set_Eam_Item_Type(p_eam_item_type => l_eam_item_type) ;
378:
379: x_return_status := l_return_status;
380: x_mesg_token_tbl := l_mesg_token_tbl;
381:

Line 438: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(

434: BEGIN
435:
436: x_return_status := FND_API.G_RET_STS_SUCCESS;
437:
438: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(
439: 'Within Routing Header Check flow routing operability . . . ');
440: END IF;
441:
442: IF NVL(p_cfm_routing_flag ,2) NOT IN ( 1, 2 ,3)

Line 525: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN

521: -- user cannot enter eam item type if eAM is not available. )
522: -- If eam item type is null,
523: -- Cfm Routing Flag is 1,2 or 3
524:
525: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
526: Error_Handler.Write_Debug('Check maintenance routings operability for eAM . . .');
527: END IF;
528: IF BOM_Rtg_Globals.Get_Eam_Item_Type = BOM_Rtg_Globals.G_ASSET_ACTIVITY
529: THEN

Line 528: IF BOM_Rtg_Globals.Get_Eam_Item_Type = BOM_Rtg_Globals.G_ASSET_ACTIVITY

524:
525: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
526: Error_Handler.Write_Debug('Check maintenance routings operability for eAM . . .');
527: END IF;
528: IF BOM_Rtg_Globals.Get_Eam_Item_Type = BOM_Rtg_Globals.G_ASSET_ACTIVITY
529: THEN
530: -- Check cfm routig flag.
531: -- the value should be Null or 2
532: IF NVL(p_cfm_routing_flag , 2) <> 2

Line 597: BOM_Rtg_Globals.Set_CFM_Rtg_Flag(p_cfm_rtg_type =>

593:
594: END IF ;
595:
596: -- Set Cfm Routing Flag to System Info Record.
597: BOM_Rtg_Globals.Set_CFM_Rtg_Flag(p_cfm_rtg_type =>
598: NVL(p_cfm_routing_flag, 2) ) ;
599:
600: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
601:

Line 650: IF BOM_Rtg_Globals.Get_Debug = 'Y'THEN

646: BEGIN
647:
648: x_return_status := FND_API.G_RET_STS_SUCCESS;
649:
650: IF BOM_Rtg_Globals.Get_Debug = 'Y'THEN
651: Error_Handler.Write_Debug('Within Rtg Header Check Attributes . . . ');
652: END IF;
653:
654: IF p_rtg_header_rec.eng_routing_flag IS NOT NULL AND

Line 670: IF p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE

666: );
667: x_return_status := FND_API.G_RET_STS_ERROR;
668: END IF;
669:
670: IF p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
671: THEN
672: IF p_rtg_header_rec.eng_routing_flag = FND_API.G_MISS_NUM
673: THEN
674: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';

Line 1004: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN

1000: l_dummy VARCHAR2(20) ;
1001:
1002: BEGIN
1003:
1004: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
1005: Error_Handler.Write_Debug('Check Locators. . .Locator Id is ' || to_char(p_locator_id));
1006: END IF;
1007:
1008: l_org_locator_control := 0 ;

Line 1033: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN

1029: WHERE organization_id = p_organization_id
1030: AND inventory_item_id = p_assembly_item_id ;
1031:
1032:
1033: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
1034: Error_Handler.Write_Debug('Org - Stock Locator Control : '|| to_char(l_org_locator_control) );
1035: Error_Handler.Write_Debug('Item - Location Control : '|| to_char(l_item_locator_control) );
1036: Error_Handler.Write_Debug('Item - Restrict Locator : '|| to_char(l_item_loc_restricted) );
1037: END IF;

Line 1062: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN

1058: THEN
1059: RETURN TRUE;
1060: END IF;
1061: */
1062: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
1063: Error_Handler.Write_Debug('Sub Inv - Loc Control : '|| to_char(l_sub_locator_control) );
1064: END IF;
1065:
1066:

Line 1079: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN

1075: Sub_Control => l_sub_locator_control,
1076: Item_Control => l_item_locator_control
1077: );
1078:
1079: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
1080: Error_Handler.Write_Debug('Calling BOM_Validate_Rtg_Header.Control. Loc Control '||
1081: to_char(x_control) );
1082: END IF;
1083: l_locator_control := x_control;

Line 1102: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN

1098: OR x_Control = 3 -- DYNAMIC ENTRY -- bug 3761854
1099: THEN
1100: BEGIN
1101:
1102: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
1103: Error_Handler.Write_Debug ('Checking when x_control returned 2 and ' ||
1104: ' item locator is ' ||
1105: to_char(l_item_locator_control));
1106: END IF;

Line 1127: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN

1123:
1124: IF l_item_loc_restricted = 1 -- Restrict Locators = YES
1125: THEN
1126: -- Check for restrict Locators YES
1127: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
1128: Error_Handler.Write_Debug ('Before Checking for restrict Locators Yes. ' );
1129: END IF;
1130: SELECT 'Valid'
1131: INTO l_dummy

Line 1142: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN

1138: AND mil.inventory_location_id = msl.secondary_locator
1139: AND mil.organization_id = msl.organization_id
1140: AND NVL(mil.disable_date, SYSDATE+1) > SYSDATE ;
1141:
1142: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
1143: Error_Handler.Write_Debug ('Restrict locators is Y . ' ||
1144: 'Sub Inv : ' || p_subinventory || 'Comp Loc : ' || to_char(p_locator_id )
1145: || ' are valid.' );
1146: END IF;

Line 1163: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN

1159: AND mil.inventory_location_id = p_locator_id
1160: AND mil.organization_id = p_organization_id
1161: AND NVL(mil.DISABLE_DATE, SYSDATE+1) > SYSDATE;
1162:
1163: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
1164: Error_Handler.Write_Debug ('Restrict locators is No . ' ||
1165: 'Sub Inv : ' || p_subinventory || 'Comp Loc : ' || to_char(p_locator_id )
1166: || ' are valid.' );
1167: END IF;

Line 1178: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN

1174:
1175: EXCEPTION
1176: WHEN NO_DATA_FOUND THEN
1177:
1178: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
1179: Error_Handler.Write_Debug ('Locator is invlaid . ' );
1180: END IF ;
1181:
1182: RETURN FALSE;

Line 1190: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN

1186: -- DYNAMIC LOCATORS ARE NOT ALLOWED IN OI.
1187: -- Dynamic locators are not allowed in open
1188: -- interface, so raise an error if the locator
1189: -- control is dynamic.
1190: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
1191: Error_Handler.Write_Debug ('Dynamic Locator Control. ' ) ;
1192: END IF ;
1193: l_locator_control := 3;
1194:

Line 1446: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

1442:
1443: --
1444: -- Performing Entity Validation in routing header
1445: --
1446: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1447: ('Performing Entitity Validation for Rtg header. . .') ;
1448: END IF;
1449:
1450:

Line 1623: IF p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE

1619: --
1620: -- If alternate routing code is NOT NULL, then Primary routing
1621: -- must exist if the user is trying to create an Alternate
1622: --
1623: IF p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
1624: AND p_rtg_header_rec.alternate_routing_code IS NOT NULL
1625: AND p_rtg_header_rec.alternate_routing_code <>
1626: FND_API.G_MISS_CHAR
1627: THEN

Line 1678: IF p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE

1674: --Bug:4293475 Checking for the disable date before creating an
1675: --alternate for a routing.If the alternate is disabled then
1676: --throwing an error.
1677:
1678: IF p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
1679: AND p_rtg_header_rec.alternate_routing_code IS NOT NULL
1680: AND p_rtg_header_rec.alternate_routing_code <> FND_API.G_MISS_CHAR
1681: THEN
1682: BEGIN

Line 1792: IF p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE

1788: -- Common_assembly_item_id check
1789: -- If Routing already has its child operation sequences, User
1790: -- cannnot assign Common_Assembly_Item_Id.
1791: --
1792: IF p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
1793: THEN
1794:
1795: FOR l_Operation in c_check_ops(
1796: p_routing_sequence_id =>

Line 1824: IF p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE

1820: -- is not updateable.
1821: --
1822: /* This check is not required as we should be able to update the routing details even for
1823: a routing referencing another routing as common -- bug 2923716
1824: IF p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
1825: THEN
1826:
1827: FOR l_checkCommon IN c_CheckCommon
1828: ( P_assembly_item_id => p_rtg_header_unexp_rec.assembly_item_id

Line 1858: AND ( p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE

1854: -- If the CTP Flag is 1:Yes, Verify if Routing for
1855: -- Same Item with active CTP Flag does not exist.
1856:
1857: IF p_rtg_header_rec.ctp_flag = 1
1858: AND ( p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
1859: OR ( p_rtg_header_rec.transaction_type
1860: = BOM_Rtg_Globals.G_OPR_UPDATE
1861: AND p_rtg_header_rec.ctp_flag <>
1862: p_old_rtg_header_rec.ctp_flag )

Line 1860: = BOM_Rtg_Globals.G_OPR_UPDATE

1856:
1857: IF p_rtg_header_rec.ctp_flag = 1
1858: AND ( p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
1859: OR ( p_rtg_header_rec.transaction_type
1860: = BOM_Rtg_Globals.G_OPR_UPDATE
1861: AND p_rtg_header_rec.ctp_flag <>
1862: p_old_rtg_header_rec.ctp_flag )
1863: )
1864: THEN

Line 1896: IF p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE

1892: -- For UPDATEs, conditionally non updatable Column Check.If Flow
1893: -- Routing and referring common routing has active operation
1894: -- sequences, user cannot update line code.
1895: --
1896: IF p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
1897: AND p_rtg_header_rec.cfm_routing_flag = 1
1898: AND p_rtg_header_unexp_rec.line_id
1899: <> p_old_rtg_header_unexp_rec.line_id
1900: THEN

Line 1927: AND ( p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE

1923: -- If Mixed Model Map Flag is 1: Yes, verify if Routing for Same
1924: -- item with active Mixed Model Map Flag does not exist.
1925: --
1926: IF p_rtg_header_rec.mixed_model_map_flag = 1
1927: AND ( p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
1928: OR ( p_rtg_header_rec.transaction_type
1929: = BOM_Rtg_Globals.G_OPR_UPDATE
1930: AND p_rtg_header_rec.mixed_model_map_flag <>
1931: p_old_rtg_header_rec.mixed_model_map_flag )

Line 1929: = BOM_Rtg_Globals.G_OPR_UPDATE

1925: --
1926: IF p_rtg_header_rec.mixed_model_map_flag = 1
1927: AND ( p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
1928: OR ( p_rtg_header_rec.transaction_type
1929: = BOM_Rtg_Globals.G_OPR_UPDATE
1930: AND p_rtg_header_rec.mixed_model_map_flag <>
1931: p_old_rtg_header_rec.mixed_model_map_flag )
1932: )
1933: THEN

Line 1966: AND ( p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE

1962:
1963: -- Unique priority check.
1964: IF p_rtg_header_rec.priority IS NOT NULL
1965: AND p_rtg_header_rec.priority <> FND_API.G_MISS_NUM
1966: AND ( p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
1967: OR ( p_rtg_header_rec.transaction_type
1968: = BOM_Rtg_Globals.G_OPR_UPDATE
1969: AND p_rtg_header_rec.priority <>
1970: NVL(p_old_rtg_header_rec.priority

Line 1968: = BOM_Rtg_Globals.G_OPR_UPDATE

1964: IF p_rtg_header_rec.priority IS NOT NULL
1965: AND p_rtg_header_rec.priority <> FND_API.G_MISS_NUM
1966: AND ( p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
1967: OR ( p_rtg_header_rec.transaction_type
1968: = BOM_Rtg_Globals.G_OPR_UPDATE
1969: AND p_rtg_header_rec.priority <>
1970: NVL(p_old_rtg_header_rec.priority
1971: , FND_API.G_MISS_NUM ) )
1972: )

Line 2036: AND ( p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE

2032:
2033: IF p_rtg_header_rec.Completion_Subinventory IS NOT NULL
2034: AND p_rtg_header_rec.Completion_Subinventory
2035: <> FND_API.G_MISS_CHAR
2036: AND ( p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
2037: OR ( p_rtg_header_rec.transaction_type
2038: = BOM_Rtg_Globals.G_OPR_UPDATE
2039: AND p_rtg_header_rec.Completion_Subinventory <>
2040: NVL( p_old_rtg_header_rec.Completion_Subinventory

Line 2038: = BOM_Rtg_Globals.G_OPR_UPDATE

2034: AND p_rtg_header_rec.Completion_Subinventory
2035: <> FND_API.G_MISS_CHAR
2036: AND ( p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
2037: OR ( p_rtg_header_rec.transaction_type
2038: = BOM_Rtg_Globals.G_OPR_UPDATE
2039: AND p_rtg_header_rec.Completion_Subinventory <>
2040: NVL( p_old_rtg_header_rec.Completion_Subinventory
2041: ,FND_API.G_MISS_CHAR )
2042: )

Line 2077: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

2073:
2074: IF l_sub_inv_exists THEN
2075:
2076: -- check completeion subinventory
2077: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2078: ('Performing completeion subinventory check. . .') ;
2079: END IF;
2080: l_allow_expense_to_asset := fnd_profile.value
2081: ('INV:EXPENSE_TO_ASSET_TRANSFER');

Line 2091: IF BOM_Rtg_Globals.get_debug = 'Y' THEN

2087: , x_rest_subinv_code => l_rest_subinv_code
2088: , x_inv_asset_flag => l_inv_asset_flag ) ;
2089:
2090:
2091: IF BOM_Rtg_Globals.get_debug = 'Y' THEN
2092: error_handler.write_debug('Get Sub Inv Flag . . . ');
2093: error_handler.write_debug('Expense to asset transfer : '|| l_allow_expense_to_asset );
2094: error_handler.write_debug('Restrict Sub Inv Code : ' || l_rest_subinv_code );
2095: error_handler.write_debug('Inv Asset Flag : '|| l_inv_asset_flag );

Line 2102: IF BOM_Rtg_Globals.get_debug = 'Y'

2098:
2099: IF l_rest_subinv_code = 'Y' THEN
2100: IF l_allow_expense_to_asset = '1' THEN
2101:
2102: IF BOM_Rtg_Globals.get_debug = 'Y'
2103: THEN
2104: error_handler.write_debug('Before OPEN c_Restrict_SubInv_Trk');
2105: END IF;
2106:

Line 2294: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

2290: --
2291: ********************************************************************/
2292: -- check completion locator
2293:
2294: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2295: ('Performing completion locator. . .') ;
2296: END IF;
2297:
2298: IF (( p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE

Line 2298: IF (( p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE

2294: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2295: ('Performing completion locator. . .') ;
2296: END IF;
2297:
2298: IF (( p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
2299: AND NVL(p_rtg_header_unexp_rec.completion_locator_id , 0) <>
2300: NVL(p_rtg_header_unexp_rec.completion_locator_id , 0)
2301: )
2302: OR (p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE

Line 2302: OR (p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE

2298: IF (( p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
2299: AND NVL(p_rtg_header_unexp_rec.completion_locator_id , 0) <>
2300: NVL(p_rtg_header_unexp_rec.completion_locator_id , 0)
2301: )
2302: OR (p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
2303: AND p_rtg_header_rec.completion_subinventory is not null --BUG 3872490
2304: AND p_rtg_header_rec.completion_subinventory <> FND_API.G_MISS_CHAR) --BUG 3872490
2305: )
2306: AND NOT Check_Locators( p_organization_id => p_rtg_header_unexp_rec.organization_id

Line 2397: IF p_rtg_header_rec.transaction_type IN (BOM_Rtg_Globals.G_OPR_UPDATE) AND -- Added for SSOS (bug 2689249)

2393:
2394: l_return_status := FND_API.G_RET_STS_ERROR;
2395: END IF; ---end of locator check
2396:
2397: IF p_rtg_header_rec.transaction_type IN (BOM_Rtg_Globals.G_OPR_UPDATE) AND -- Added for SSOS (bug 2689249)
2398: p_rtg_header_rec.ser_start_op_seq IS NOT NULL AND
2399: l_bom_item_type IN (1,2) THEN -- If the item is a model/option class item routing
2400: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2401: THEN

Line 2415: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN

2411:
2412: x_return_status := l_return_status;
2413: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2414:
2415: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
2416: Error_Handler.Write_Debug('Routing header : Entity Validation done . . . Return Status is ' || l_return_status);
2417: END IF ;
2418:
2419: EXCEPTION

Line 2423: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Expected Error in routing header Entity Validation . . .'); END IF;

2419: EXCEPTION
2420:
2421: WHEN FND_API.G_EXC_ERROR THEN
2422:
2423: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Expected Error in routing header Entity Validation . . .'); END IF;
2424:
2425: x_return_status := FND_API.G_RET_STS_ERROR;
2426: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2427:

Line 2430: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Unexpected Error in routing header Entity Validation . . .'); END IF;

2426: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2427:
2428: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2429:
2430: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Unexpected Error in routing header Entity Validation . . .'); END IF;
2431:
2432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2433: IF FND_MSG_PUB.Check_Msg_Level
2434: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

Line 2448: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(SQLERRM || ' ' || TO_CHAR(SQLCODE)); END IF;

2444: END IF;
2445: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2446:
2447: WHEN OTHERS THEN
2448: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(SQLERRM || ' ' || TO_CHAR(SQLCODE)); END IF;
2449: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2450: IF FND_MSG_PUB.Check_Msg_Level
2451: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2452: THEN

Line 2601: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('SSOS is invalid....'); END IF;

2597: , p_mesg_token_tbl => x_mesg_token_tbl
2598: , x_mesg_token_tbl => x_mesg_token_tbl
2599: );
2600: END IF;
2601: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('SSOS is invalid....'); END IF;
2602: x_return_status := FND_API.G_RET_STS_ERROR;
2603: END LOOP;
2604: END Check_SSOS;
2605:

Line 2624: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(

2620:
2621: BEGIN
2622: x_return_status := FND_API.G_RET_STS_SUCCESS;
2623:
2624: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(
2625: 'Within Routing Header Check lot controlled item . . . ');
2626: END IF;
2627:
2628: if BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_Lot_Rtg then

Line 2628: if BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_Lot_Rtg then

2624: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(
2625: 'Within Routing Header Check lot controlled item . . . ');
2626: END IF;
2627:
2628: if BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_Lot_Rtg then
2629: FOR cur_count IN lot_check LOOP
2630: if cur_count.lot_control_code = 1
2631: then x_return_status := FND_API.G_RET_STS_ERROR;
2632: end if;