F3460EditLineAndUpdate

F3460, Edit Line And Update Master Business Function

Major Business Rule

Object Name: B3401200

Parent DLL: CMFG

Location: Client/Server

Language: C

1.Functional Description

1.1Purpose
To provide an entry-point for data dictionary validation, defaulting and other special edits on a
typical F3460 "detail" record, as well as database I/O (add, update, delete) for the record after editing
is completed. This business function will edit as needed and perform the appropriate database I/O for
a detail record. The handling of all other accompanying database operations, such as updating the net
change flag in F4102, and updating/inserting/deletion of the appropriate "year" record in F3460 will
be handled by this function.

1.2Setup Notes and Prerequisites

• Note that the Revision Flag (RVIS) need not be passed in as the MBF will handle the correct RVIS
value to update to the table.

1.3Special Logic

2.Technical Specifications
1)Set Error Message ID to Blanks.
2)
3)If Input Edit Action Code <> 'N' then
4) Call Internal Function F3460 Edit Line with
5) Input lpDS 'e0 BsFn Data Structure.
6) All Valid Handles'e0 Special EDI Processing
7)End if
8)If Error Flag(wf) and Input Database Action Code <> 'S' then
9) If Input Special EDI Processing is "Y" then
10) Call Internal Function EDIUpdates
11) Else
12) Call Internal Function NormalUpdates
13) End If
14)End If
15)If Input Error Message ID is not Blank then
16) Return ER_ERROR
17)End If
18)Close all requests and user handles.

F3460 Edit Line Specification

1.Functional Description

1.1Purpose
This internal function will perform line level edits the F3460 record passed in through the parameter
list.

2.1Processing
1)If Input Validate Header = 'Y' then
2)
3) // Validate the Existence of F3460 Branch in the Business Unit table F0006.
4) If Input Business Unit is not blanks then
5) Call ISCOLBU F0006 Get Business Unit to validate Cost Center
6) F3460 Branch 'e0 szCostcenter

7) If Error Then Set Error Code "0052" and Exit Business Function.
8) Else
9) Set Error Code "0052" and Exit Business Function
10) End If
11)
12)// Validate Item Number(unknown) and retrieve Item Master information.
13)Call X4101 F4101 Get Item Master Row to Validate Item and Existence of Inventory Constants
with
14) F3460 Unknown Item <-> #IITM
15) F3460 Branch 'e0 Branch Plant
16) F3460 Item Number 'df ITM
17) F3460 2nd Item Number 'df LITM
18) F3460 3rd Item Number 'df AITM
19) Primary UoM 'df UOM1
20) Item TFLA(wf) 'df IMTFLA
21)If Error is No Inventory Constants then Set Error Code "0964" and Exit Business Function.
22)If Error is Item Not Found in F4101 then Set Error Code "0267" and Exit Business
Function.
23)
24)// Validate Exsitence of an Item Branch record for F3460 Short Item Number and F3460
Branch.
25)Call B4000920 F4102 Get Item Mfg Information to Validate Existence of Item Balance
Record and Retrieve Stocking Type.
26) F3460 Item Number 'e0 IBITM
27) F3460 Branch 'e0 IBMCU
28) $$STKT(wf) 'df IBSTKT
29) Potency Control(wf) 'df OT1Y
30) Std Potency(wf) 'df STDP
31)
32) If Error then Set Error Code "0294" and Exit Business Function.
33)
34) // Get UDC for $$STKT retrieved from F4102 and check if this item is defined as a
Process Item.
35) Call X0005 Get UDC.
36) 'STKT' 'e0 DD Item Name
37) $$STKT(wf) 'e0 Key
38) #USPHD(wf) 'df szSpecialHandlingCode
39) If No Error And #USPHD(wf) = 'R' then Set Error Code "4632" and Exit Business
Function.
40)
41) // Get Item Conversion Factor from From UOM to Primary UOM
42) Call B4000520 Get UoM Conversion
43) F3460 Branch 'e0 MCU
44) UnitOfMeasure 'e0 From UoM
45) Primary UoM 'e0 To UoM
46) 'Y' 'e0 IVI
47) Potency Control(wf) 'e0 OT1Y
48) Std Potency(wf) 'e0 STDP
49) Item TFLA(wf) 'e0 TFLA
50) F3460 Short Item Number'e0 ITM
51) Conversion Factor 'df Conversion From to To
52) End If
53)
54)// F3460 Request Date must not be null.
55)If F3460 Request Date Is NULL then
56) Set Error on DRQJ "0004"
57)End If
58)
59)// Validate F3460 Address Number in the Address Book( F0101).
60)If F3460 Address Number <> 0 then
61) Call B4000880 F0101 Get Address Information for OP with
62) F3460 Address Number 'e0 Address Boook Number
63) Error Message(wf) 'df Error Message ID
64) If Address Number Error then Set Error Code "0002"
65)End If
66)
67)// Default if necessary and Validate F3460 Forecast Type in the DD and the UDC Table.
68)If F3460 Forecast Type = " " then
69) Call B9800420 Get DD Definition with
70) 'TYPF' 'e0 DD Item Name
71) F3460 Forecast Type 'df szDefaultValString
72)End If
73)ValidateF3460 Forecast Type with Validation API.
74)If Error then Set Error Code "2185"
75)
76)Call X0005 Get UDC to Validate TYPF.
77) 'TYPF' 'e0 DD Item Name
78) F3460 Forecast Type 'e0 Key
79)If Error then Set Error Code "0027"
80)
81)// Default the Document Type if Necessary
82)If F3460 Document Type = " " then
83) F3460 Document Type = "FR"
84)End If
85)
86)// Default if necessary and Validate the F3460 Bypass Forcing flag.
87)If F3460 Bypass Forcing = " " then
88) Call B9800420 Get DD Definition with
89) 'BPFC' 'e0 DD Item Name
90) F3460 Bypass Forcing 'df szDefaultValString
91)End If
92)ValidateF3460 Bypass Forcingwith Validation API
93)
94)If Error then Set Error Code "0025"
95)If Any Errors Occurred then
96) Set Error Flag (wf) = '1'
97)Else
98) Set Error Flag(wf) = '0'
99)End If

F3460 Delete Record Specification

1.Functional Description

1.1Purpose
This internal function will delete the F3460 Record with Item Number, Branch, Forecast Type, Request
Date, Address Number, and Year = 0

2.Technical Specifications

2.1Parameters:
Data Item Data Structure DescriptionI/ORequiredNotes
lpDSBsFn Data StructureIR
lpdsHandlesHandlesIR
QtysQtysIR
Bypass FetchBypass Fetch routineIR
lpdsKeyKey for F3460IR

2.4Processing
1)Fetch Successful(wf) = '0'
2)If Input Bypass Fetch <> 'Y'
3) Fetch the Record with
4) lpdsKey Item Number 'e0 ITM
5) lpdsKey Branch 'e0 MCU
6) lpdsKey Request Date 'e0 DRQJ
7) lpdsKey Forecast Type 'e0 TYPF
8) lpdsKey Address Number 'e0 AN8
9) 0 'e0 YR
10) Forecast Qty(wf) 'df FQT
11) Forecast Amt(wf) 'df FAM
12) Original Qty(wf) 'df UORG
13) Original Amt(wf) 'df AEXP
14) Fetch Successful(wf) 'df '1' if Successful, '0' if not.
15) Else
16) Forecast Qty(wf) = Input Qtys Forecast Qty
17) Forecast Amt(wf)= Input Qtys Forecast Amt
18) Original Qty(wf) = Input Qtys Original Qty
19) Original Amt(wf) = Input Qtys Original Amt
20) Set Fetch Successful(wf) = '1'
21) End If
22)
23) If Fetch Successful(wf) is '1' then
24) Delete with
25) Item Number 'e0 ITM
26) Branch 'e0 MCU
27) Request Date 'e0 DRQJ
28) Forecast Type

Data Structure

D3401200 - F3460, Edit Line and Update

Data Item Data Structure DescriptionI/OReqNotes
EV01            Database Action Code            IR'A' to Add Detail Record, No Edits.

                                                                  'C' to Update Detail Record, No
Edits.
                                                                  'D' to Delete Detail Record, No
Edits.
                                                                  'R' to replace record.(EDI Only)
                                                                  'I' to Inquire. (EDI Only)
                                                                  'S' to Skip All Database I/O.
EV01            Edit Action Code                  IR'Y' to Perform Editing. (Default)
'N' to
                                                                  Skip Editing.
EV01            Validate Header                  IR'Y' Will Validate Item & Branch.
                                                                  'N' will skip. (Default)
EV01            Special EDI Processing            IR'Y' to perform EDI-Specific Tasks
during
                                                                  validation and updates.
                                                                  'N' for normal
processing.(Default).
UOM            Primary UoM                        I/ONLoaded by function when Validate
Header is
                                                                  'Y'. Need not be loaded by user
when
                                                                  Validate Header is 'N'
UOM            From UoM                        IRThis is the 'From' Unit of Measure.
UITM            F3460 Unknown Item            I/ONRequired when Validate Header is
'Y'. Need
                                                                  not be loaded by user when Validate
Header
                                                                  is 'N'
ITM            F3460 Item Number                  I/ORLoaded by function if Validate
Header is
                                                                  'Y'. If Validate Header is 'N' this

                                                                  parameter needs to be loaded by the
user.
LITM            F3460 2nd Item Number            I/ORLoaded by function if Validate
Header is
                                                                  'Y'. If Validate Header is 'N' this

                                                                  parameter needs to be loaded by the
user.
AITM            F3460 3rd Item Number            I/ORLoaded by function if Validate
Header is
                                                                  'Y'. If Validate Header is 'N' this

                                                                  parameter needs to be loaded by the
user.
MCU            F3460 Branch                  IRNew Branch value(MCU)
DRQJ            F3460 Request Date            IRNew Request Date value(DRQJ)
DRQJ            Old F3460 Request                  IRThis parameter is the Request
Date(DRQJ)
                                                                  before the change. Same as F3460
Request
                                                                  Date if a new record is being
added.
AN8            F3460 Address Number            IRNew Address Number value(AN8)
AN8            Old F3460 Address                  IRThis parameter is the Address
Number(AN8)
                                                                  before the change. Same as F3460
Address
                                                                  Number if a new record is being
added.
UORG            F3460 Qty Original            IRNew Value for Original Qty (UORG)
AEXP            F3460 Amt Original            IRNew Value for Original Amt (AEXP)
FAM            F3460 Amt Forecast            IRNew Value for Forecast Amt (FAM)
FQT          F3460 Qty Forecast            IRNew Value for Forecast Qty (FQT)
TYPF            F3460 Forecast Type            IRNew Forecast Type value(TYPF). If
Blanks
                                                                  are Passed In, The DD Default Will
Be
                                                                  Loaded In.
TYPF            Old F3460 Forecast Type            IRThis parameter is the Forecast
Type(TYPF)
                                                                  before the change. Same as F3460
Forecast
                                                                  Type if a new record is being
added.
DCTO            F3460 Document Type            I/ORNew Document Type value(DCTO) If
Blanks are
                                                                  Passed In, "FR" Will Be Loaded In.
BPFC            F3460 Bypass Forcing            IRNew Bypass Forcing value(BPFC) If
Blanks
                                                                  are passed in, the DD Default will
be
                                                                  used.
PID            F3460 Program ID                  IRProgram ID.
DTAI            Error Message ID                  OError Message if any errors were
                                                                  encountered.
EV01            Suppress Error Message            I'1' to Suppress Error Messages from
being
                                                                  listed in the Error List.
CONV            Conversion Factor                  I/ORWhen Validate Header is 'Y' this
will be
                                                                  the conversion factor from "From
UoM" to
                                                                  "Primary UOM". If Validate Header
is 'N'
                                                                  this parameter needs to be loaded
by the
                                                                  user.

^

Parameter Name	Data Item	Data Type	Req/Opt	I/O/Both
cDatabaseActionCode	EV01	char	NONE	NONE
An option that specifies the type of processing for an event.
cEditActionCode	EV01	char	NONE	NONE
An option that specifies the type of processing for an event.
cValidateHeader	EV01	char	NONE	NONE
An option that specifies the type of processing for an event.
cSpecialEDIProcessing	EV01	char	NONE	NONE
An option that specifies the type of processing for an event.
szPrimaryUOM	UOM	char	NONE	NONE
A user defined code (00/UM) that indicates the quantity in which to express an inventory item, for example, CS (case) or BX (box).
szUnitOfMeasure	UM	char	NONE	NONE
A user defined code (00/UM) that identifies the unit of measurement for an amount or quantity. For example, it can represent a barrel, box, cubic meter, liter, hour, and so on.
szF3460UnknownItem	UITM	char	NONE	NONE
A number that the system assigns to an item. It can be in short, long, or third item number format.
mnF3460ShortItemNumber	ITM	MATH_NUMERIC	NONE	NONE
An inventory item number. The system provides three separate item numbers plus an extensive cross-reference capability to other item numbers (see data item XRT) to accommodate substitute item numbers, replacements, bar codes, customer numbers, supplier numbers, and so forth. The item numbers are as follows: o Item Number (short) - An eight-digit, computer-assigned item number o 2nd Item Number - The 25-digit, free-form, user defined alphanumeric item number o 3rd Item Number - Another 25-digit, free-form, user defined alphanumeric item number
szF34602ndItemNumber	LITM	char	NONE	NONE
A number that identifies the item. The system provides three separate item numbers plus an extensive cross-reference capability to alternative item numbers. The three types of item numbers are: Item Number (short) An 8-digit, computer-assigned item number. 2nd Item Number A 25-digit, user defined, alphanumeric item number. 3rd Item Number Another 25-digit, user defined, alphanumeric item number. In addition to these three basic item numbers, the system provides an extensive cross-reference search capability. You can define numerous cross-references to alternative part numbers. For example, you can define substitute item numbers, replacements, bar codes, customer numbers, or supplier numbers.
szF34603rdItemNumber	AITM	char	NONE	NONE
The system provides three separate item numbers plus an extensive cross-reference capability to alternate item numbers. These item numbers are as follows: 1. Item Number (short) - An 8-digit, computer-assigned item number. 2. 2nd Item Number - The 25-digit, free-form, user defined alphanumeric item number. 3. 3rd Item Number - Another 25-digit, free-form, user defined alphanumeric item number. In addition to these three basic item numbers, an extensive cross-reference search capability has been provided (see XRT). Numerous cross references to alternate part numbers can be user defined, such as substitute item numbers, replacements, bar codes, customer numbers, or supplier numbers.
szF3460Branch	MCU	char	NONE	NONE
An alphanumeric code that identifies a separate entity within a business for which you want to track costs. For example, a business unit might be a warehouse location, job, project, work center, branch, or plant. You can assign a business unit to a document, entity, or person for purposes of responsibility reporting. For example, the system provides reports of open accounts payable and accounts receivable by business unit to track equipment by responsible department. Business unit security might prevent you from viewing information about business units for which you have no authority.
jdF3460RequestDate	DRQJ	JDEDATE	NONE	NONE
The date that an item is scheduled to arrive or that an action is scheduled for completion.
jdF3460OldF3460Request	DRQJ	JDEDATE	NONE	NONE
The date that an item is scheduled to arrive or that an action is scheduled for completion.
mnF3460AddressNumber	AN8	MATH_NUMERIC	NONE	NONE
A number that identifies an entry in the Address Book system, such as employee, applicant, participant, customer, supplier, tenant, or location.
mnOldF3460AddressNumber	AN8	MATH_NUMERIC	NONE	NONE
A number that identifies an entry in the Address Book system, such as employee, applicant, participant, customer, supplier, tenant, or location.
mnF3460QtyOriginal	UORG	MATH_NUMERIC	NONE	NONE
The quantity of units affected by this transaction.
mnF3460AmtOriginal	AEXP	MATH_NUMERIC	NONE	NONE
The number of units multiplied by the unit price.
mnF3460AmtForecast	FAM	MATH_NUMERIC	NONE	NONE
The current amount of the forecasted units for a planning period.
mnF3460QtyForecast	FQT	MATH_NUMERIC	NONE	NONE
The quantity of units forecasted for production during a planning period.
szF3460ForecastType	TYPF	char	NONE	NONE
A user defined code (34/DF) that indicates one of the following: o The forecasting method used to calculate the numbers displayed about the item o The actual historical information about the item
szOldF3460ForecastType	TYPF	char	NONE	NONE
A user defined code (34/DF) that indicates one of the following: o The forecasting method used to calculate the numbers displayed about the item o The actual historical information about the item
szF3460DocumentType	DCTO	char	NONE	NONE
A user defined code (00/DT) that identifies the type of document. This code also indicates the origin of the transaction. J.D. Edwards has reserved document type codes for vouchers, invoices, receipts, and time sheets, which create automatic offset entries during the post program. (These entries are not self-balancing when you originally enter them.) The following document types are defined by J.D. Edwards and should not be changed: P Accounts Payable documents R Accounts Receivable documents T Payroll documents I Inventory documents O Purchase Order Processing documents J General Accounting/Joint Interest Billing documents S Sales Order Processing documents
cF3460BypassForcing	BPFC	char	NONE	NONE
A code that indicates whether to bypass the Forecast Forcing program (R34610). A Y indicates that the quantity and amount of a forecast should not be changed by an adjustment made to a forecast higher in the summary hierarchy. This flag is effective only when forecast forcing is done down the summary hierarchy.
szF3460ProgramID	PID	char	NONE	NONE
The number that identifies the batch or interactive program (batch or interactive object). For example, the number of the Sales Order Entry interactive program is P4210, and the number of the Print Invoices batch process report is R42565. The program ID is a variable length value. It is assigned according to a structured syntax in the form TSSXXX, where: T The first character of the number is alphabetic and identifies the type, such as P for Program, R for Report, and so on. For example, the value P in the number P4210 indicates that the object is a program. SS The second and third characters of the number are numeric and identify the system code. For example, the value 42 in the number P4210 indicates that this program belongs to system 42, which is the Sales Order Processing system. XXX The remaining characters of the numer are numeric and identify a unique program or report. For example, the value 10 in the number P4210 indicates that this is the Sales Order Entry program.
szErrorMessageID	DTAI	char	NONE	NONE
A code that identifies and defines a unit of information. It is an alphanumeric code up to 8 characters long that does not allow blanks or special characters such as %, &, or +. You create new data items using system codes 55-59. You cannot change the alias.
cSuppressErrorMessage	EV01	char	NONE	NONE
An option that specifies the type of processing for an event.
mnUoMConversionFactor	CONV	MATH_NUMERIC	NONE	NONE
The factor that the system uses to convert one unit of measure to another unit of measure.

Related Functions

B3100170 Set Net Change Flag
B4000520 Get Item UoM Conversion Factor
B4000880 Verify And Get Address Book for OP
B4000920 Get Item Branch Mfg Data
B9800100 Get Audit Information
B9800420 Get Data Dictionary Definition
ISCOLBU Is Business Unit in Business Unit Table
X0005 Get User Defined Codes
X4101 Validate and Retrieve Item Master

Related Tables

F3460 Forecast File

New;font-size:10pt">'e0 TFLA </