[Home] [Help]
34: END IF;
35: END IF;
36: IF P_ALL_ORGS = 1 THEN
37: SELECT
38: BOM_LISTS_S.NEXTVAL
39: INTO P_SEQUENCE_ID
40: FROM
41: DUAL;
42: FOR C1 IN (SELECT
56: ORG_ACCESS_VIEW
57: WHERE RESPONSIBILITY_ID = FND_PROFILE.VALUE('RESP_ID')
58: AND RESP_APPLICATION_ID = FND_PROFILE.VALUE('RESP_APPL_ID') )) LOOP
59: N := N + 1;
60: INSERT INTO BOM_LISTS
61: (ORGANIZATION_ID
62: ,SEQUENCE_ID
63: ,ALTERNATE_DESIGNATOR)
64: VALUES (C1.ORGANIZATION_ID
71: INV_ORGHIERARCHY_PVT.ORG_HIERARCHY_LIST(P_ORG_HIERARCHY
72: ,P_ORG_ID
73: ,T_ORG_CODE_LIST);
74: SELECT
75: BOM_LISTS_S.NEXTVAL
76: INTO P_SEQUENCE_ID
77: FROM
78: DUAL;
79: FOR I IN T_ORG_CODE_LIST.FIRST .. T_ORG_CODE_LIST.LAST LOOP
76: INTO P_SEQUENCE_ID
77: FROM
78: DUAL;
79: FOR I IN T_ORG_CODE_LIST.FIRST .. T_ORG_CODE_LIST.LAST LOOP
80: INSERT INTO BOM_LISTS
81: (ORGANIZATION_ID
82: ,SEQUENCE_ID
83: ,ALTERNATE_DESIGNATOR)
84: VALUES (T_ORG_CODE_LIST(I)
86: ,T_ORG_CODE_LIST(I));
87: END LOOP;
88: ELSIF P_ORG_HIERARCHY IS NULL THEN
89: SELECT
90: BOM_LISTS_S.NEXTVAL
91: INTO P_SEQUENCE_ID
92: FROM
93: DUAL;
94: INSERT INTO BOM_LISTS
90: BOM_LISTS_S.NEXTVAL
91: INTO P_SEQUENCE_ID
92: FROM
93: DUAL;
94: INSERT INTO BOM_LISTS
95: (ORGANIZATION_ID
96: ,SEQUENCE_ID)
97: VALUES (P_ORG_ID
98: ,P_SEQUENCE_ID);
98: ,P_SEQUENCE_ID);
99: END IF;
100: ELSE
101: SELECT
102: BOM_LISTS_S.NEXTVAL
103: INTO P_SEQUENCE_ID
104: FROM
105: DUAL;
106: INSERT INTO BOM_LISTS
102: BOM_LISTS_S.NEXTVAL
103: INTO P_SEQUENCE_ID
104: FROM
105: DUAL;
106: INSERT INTO BOM_LISTS
107: (ORGANIZATION_ID
108: ,SEQUENCE_ID)
109: VALUES (P_ORG_ID
110: ,P_SEQUENCE_ID);
125: END BEFOREREPORT;
126:
127: FUNCTION AFTERREPORT RETURN BOOLEAN IS
128: BEGIN
129: DELETE FROM BOM_LISTS
130: WHERE SEQUENCE_ID = P_SEQUENCE_ID;
131: COMMIT;
132: /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
133: RETURN (TRUE);