F3702ProcessSpecDefinitionMaster

F3702 Specifications Master Business Function

Master Business Function

Object Name: N3700100

Parent DLL: CMFG

Location: Client/Server

Language: NER

1.Functional Description

1.1Purpose
This business function is designed as a Master Business function to control all Additions, Deletions 
and Inquiries to the Specifications Definitions Master.   


1.2Setup Notes and Prerequisites


1.3Special Logic


2.Technical Specifications


2.4Processing 


Preprocessing

// Initialize Stop Processing

//

VA evt_StopProcessing_EV01=0

//

// If Action Code Invalid, Stop Processing

//

IFa BF Action Code NE 'A' 

AND Action Code NE '1'

AND Action Code NE 'C'

AND Action Code NE '2'

AND Action Code NE 'D'

AND Action Code NE 'I'

AND Action Code NE '4'

AND Action Code NE 'S'

Set on error '0001'

Move '1' to evt_StopProcessing_EV01

ENDIFa

//

// Retrieve Language Type and Audit Information

//

IFa  VA evt_StopProcessing_EV01 NE '1'

Call B9800002(LanguageTypeEditing) 

System Value Language Preference>szLanguage Preference

VA evt_Language Type_EV01cLanguage Type

Call B9800100(GetAuditInfo)

VA evt_UserId_USER<szUser Name
VA evt_DateUpdated_UPMJ <jdDate

VA evt_TimeOfDay_TDAY<mnTime

VA evt_WorkStationId_JOBN<szWorkstation User Id

//

// Assign Program ID from BSFN to Variable

//

VA evt_ProgramId_PID=BF ProgramId

ENDIFa


Inquiries


IFa  VA evt_StopProcessing_EV01 NE '1'

IFbBF ActionCode  =  'I'

OR BF ActionCode  = '4'

Fetch Single F3702 with QSPC, QREV and MCU as Key

IFcSV FileIO _StatusNESUCCESS
VA evt_StopProcessing_EV01='1'

Set NER  Error (4908, None)

ENDIFc

ENDIFb 

ENDIFa


Copy


//  Future Use  //


Changes/Additions Edits


IFa  VA evt_StopProcessing_EV01 NE '1'

IFbBF ActionCode  =  'A'

OR BF ActionCode  = '1'

OR BF ActionCode  = 'C'

OR BF ActionCode  = '2'

//

Perform Additional Edits

//

//  If  From Date is Greater Than Thru Date, Stop Processing

//

IFcBF jdEffectiveFromDateGTBF jdEffectiveThruDate

Set NER  Error (002W, BF jdEffectiveFromDate)

VA evt_StopProcessing_EV01='1'

ENDIFc

//

//  If  Dates for This Revision Level Overlap Dates for Previous Revision Level, Stop Processing

//

Select  F3702 with QSPC and MCU as Key

BF szSpecification=Specification  BF szBusinessUnit
= CostCenter

BF jdEffectiveFromDateLTEffectiveThruDate

//

WHILEcSV FileIO _StatusEQSUCCESS

ANDVA evt_StopProcessing_EV01NE'1'

//

Fetch Next  F3702

VA evt_EffectiveFromDate_EFFF<EffectiveFromDate

VA evt_EffectiveThruDate_EFFT<EffectiveThruDate




IFdBF jdEffectiveThruDateGTVA evt_EffectiveFromDate_EFFF

AND BF jdEffectiveFromDateNEVA evt_EffectiveFromDate_EFFF
AND BF jdEffectiveThruDateNEVA evt_EffectiveThruDate_EFFT
Set NER  Error (0452, BF jdEffectiveFromDate)
VA evt_StopProcessing_EV01='1'

ENDIFd

ENDWHILE c

ENDIFb

//

//  Edit each field through Data Dictionary Validation

//

//  Edit Specification

//

Call DDValidation (Data Dictionary Validation)

 
IFdSV Error _StatusNESUCCESS

VA evt_StopProcessing_EV01='1'

ENDIFd

//

//  Edit Branch/Plant

//

Call DDValidation (Data Dictionary Validation)

IFdSV Error _StatusNESUCCESS
VA evt_StopProcessing_EV01='1'

ENDIFd

//

//  Edit Specification Revision Level

//

Call DDValidation (Data Dictionary Validation)


IFdSV Error _StatusNESUCCESS

VA evt_StopProcessing_EV01='1'

ENDIFd

//

//  Edit Description

//

Call DDValidation (Data Dictionary Validation)


IFdSV Error _StatusNESUCCESS

VA evt_StopProcessing_EV01='1'

ENDIFd

//

//  Edit Effective From Date

//

Call DDValidation (Data Dictionary Validation)

 
IFdSV Error _StatusNESUCCESS

VA evt_StopProcessing_EV01='1'

ENDIFd

//

//  Edit Effective Thru Date

//

Call DDValidation (Data Dictionary Validation)

IFdSV Error _StatusNESUCCESS
VA evt_StopProcessing_EV01='1'

ENDIFd

//

//  Edit Spec Category Code 1, If Not Equal To Blank

//

IFd BF szSpecificationCode1NEBlank

Call DDValidation (Data Dictionary Validation)


IFe   SV Error _StatusNESUCCESS

VA evt_StopProcessing_EV01='1'

ENDIFe

ENDIFd 

//

//  Edit Spec Category Code 2, If Not Equal To Blank

// IFd BF szSpecificationCode2NEBlank

Call DDValidation (Data Dictionary Validation)


IFe   SV Error _StatusNESUCCESS

VA evt_StopProcessing_EV01='1'

ENDIFe

ENDIFd 

//

//  Edit Spec Category Code 3, If Not Equal To Blank

//

IFd BF szSpecificationCode3NEBlank

Call DDValidation (Data Dictionary Validation)

IFe   SV Error _StatusNESUCCESS
VA evt_StopProcessing_EV01='1'

ENDIFe

ENDIFd 

//

//  Edit Spec Category Code 4, If Not Equal To Blank

//

IFd BF szSpecificationCode4NEBlank

Call DDValidation (Data Dictionary Validation)


IFe   SV Error _StatusNESUCCESS

VA evt_StopProcessing_EV01='1'

ENDIFe

ENDIFd 

//

//  Edit Spec Category Code 5, If Not Equal To Blank

//

IFd BF szSpecificationCode5NEBlank

Call DDValidation (Data Dictionary Validation)

IFe  SV Error _StatusNESUCCESS
VA evt_StopProcessing_EV01='1'

ENDIFe

ENDIFd 

//

//  Edit Branch

//
Call DDValidation (Data Dictionary Validation)

IFdSV Error _StatusNESUCCESS
VA evt_StopProcessing_EV01='1'

ENDIFd

//

ENDIFc

//

ENDIFb

//

ENDIFa

//

// If No Errors Update the Database.

//


Additions

IFa  VA evt_StopProcessing_EV01 NE '1'
IFb BF Action Code = 'A'

OR BF ActionCode  = '1'

//

// Verify that the record does not already exist.

//

Fetch Single F3702 with QSPC, QREV and MCU as Key

BF szSpecification=Specification  BF 
szSpecificationRevisionLevel=SpecificationRevisionLev  

 BF szBusinessUnit=CostCenter

IFcSV FileIO _StatusNESUCCESS

Insert F3702 

ELSEc
Set NER  Error (2432, BF szTestID)

VA evt_StopProcessing_EV01='1'

ENDIFc

Data Structure

D3700100 - F3702 Specifications Master Business Function

Parameter NameData ItemData TypeReq/OptI/O/Both
cActionCodeACTNcharOPTNONE

A code that specifies the action that is performed. Valid values are: A Add C Change

cUpdateMasterFileEV01charOPTNONE

An option that specifies the type of processing for an event.

cProcessEditsEV01charOPTNONE

An option that specifies the type of processing for an event.

cSuppressErrorMessageSUPPScharOPTNONE

A flag indicating whether or not runtime error messaging will occur when an error message is issued from a business function.        0 = allow 
runtime error message handling.        1 = suppress runtime error message handling.

szErrorMessageIDDTAIcharOPTNONE

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.

szProgramIdPIDcharOPTNONE

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.

szVersionVERScharOPTNONE

A user-defined set of specifications that control how applications and reports run. You use versions to group and save a set of user-defined 
processing option values and data selection and sequencing options. Interactive versions are associated with applications (usually as a 
menu selection). Batch versions are associated with batch jobs or reports. To run a batch process, you must choose a version.

szSpecificationQSPCcharOPTNONE

The unique identification for a set of tests which need to be performed together. For example:        F-156 - FDA Specification 156        SP34 - 
Specification 34

szSpecificationRevisionLevelQREVcharOPTNONE

An alphanumeric character that represents the number of times a specification has changed. To avoid overlapping revisions, the system 
verifies that the start dates of revisions are greater than the end dates of other revisions.

szBusinessUnitMCUcharOPTNONE

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.

szDescriptionDSC1charOPTNONE

Brief information about an item; a remark or an explanation.

jdEffectiveFromDateEFFFJDEDATEOPTNONE

A date that indicates one of the following:     o When a component part goes into effect on a bill of material     o When a routing step goes into 
effect as a sequence on the routing for an item     o When a rate schedule is in effect The default is the current system date. You can enter 
future effective dates so that the system plans for upcoming changes. Items that are no longer effective in the future can still be recorded and 
recognized in Product Costing, Shop Floor Management, and Capacity Requirements Planning. The Material Requirements Planning system 
determines valid components by effectivity dates, not by the bill of material revision level. Some forms display data based on the effectivity 
dates you enter.

jdEffectiveThruDateEFFTJDEDATEOPTNONE

A date that indicates one of the following:     o When a component part is no longer in effect on a bill of material     o When a routing step is no 
longer in effect as a sequence on the routing for an item     o When a rate schedule is no longer active The default is December 31 of the 
default year defined in the Data Dictionary for Century Change Year. You can enter future effective dates so that the system plans for upcoming 
changes. Items that are no longer effective in the future can still be recorded and recognized in Product Costing, Shop Floor Management, 
and Capacity Requirements Planning. The Material Requirements Planning system determines valid components by effectivity dates, not by 
the bill of material revision level. Some forms display data based on the effectivity dates you enter.

szSpecificationCatCode1QSC1charOPTNONE

One of five reporting codes that can be assigned to each specification defined. Use these codes to categorize specifications into different 
groups. Category codes are user defined (System 37, types S1 through S5). Examples:        Category code S1 - Specification Group        
Category code S2 - FDA Code

szSpecificationCatCode2QSC2charOPTNONE

One of five reporting codes that can be assigned to each specification defined. Use these codes to categorize specifications into different 
groups. Category codes are user defined (System 37, types S1 through S5). Examples:        Category code S1 - Specification Group         
Category code S2 - FDA Code

szSpecificationCatCode3QSC3charOPTNONE

One of five reporting codes that can be assigned to each specification defined. Use these codes to categorize specifications into different 
groups. Category codes are user defined (System 37, types S1 through S5). Examples:        Category code S1 - Specification Group         
Category code S2 - FDA Code

szSpecificationCatCode4QSC4charOPTNONE

One of five reporting codes that can be assigned to each specification defined. Use these codes to categorize specifications into different 
groups. Category codes are user defined (System 37, types S1 through S5). Examples:        Category code S1 - Specification Group         
Category code S2 - FDA Code

szSpecificationCatCode5QSC5charOPTNONE

One of five reporting codes that can be assigned to each specification defined. Use these codes to categorize specifications into different 
groups. Category codes are user defined (System 37, types S1 through S5). Examples:        Category code S1 - Specification Group         
Category code S2 - FDA Code

szBranchMMCUcharOPTNONE

A code that represents a high-level business unit. Use this code to refer to a branch or plant that might have departments or jobs, which 
represent lower-level business units, subordinate to it. For example:     o Branch/Plant (MMCU)     o Dept A (MCU)     o Dept B (MCU)     o Job 123 
(MCU) Business unit security is based on the higher-level business unit.

szUserReservedCodeURCDcharOPTNONE

This is a 2 position code that is reserved for the user.  JDE does not currently use this field and will not utilize this field in the future.

jdUserReservedDateURDTJDEDATEOPTNONE

This is a 6 position code that is reserved for the user.  JDE does not currently use this field and will not utilize this field in the future.

mnUserReservedAmountURATMATH_NUMERICOPTNONE

This is a 15 position code that is reserved for the user.  JDE does not currently use this field and will not utilize this field in the future.

mnUserReservedNumberURABMATH_NUMERICOPTNONE

This is a 8 position code that is reserved for the user.  JDE does not currently use this field and will not utilize this field in the future.

szUserReservedReferenceURRFcharOPTNONE

A 15-position reference that is reserved for the user.  J.D. Edwards does not currently use this field and does not plan to use it in the future.

szUserIdUSERcharOPTNONE

The code that identifies a user profile.

szProgramId_2PIDcharOPTNONE

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.

jdDateUpdatedUPMJJDEDATEOPTNONE

The date that specifies the last update to the file record.

mnTimeOfDayTDAYMATH_NUMERICOPTNONE

The computer clock in hours:minutes:seconds.

szWorkStationIdJOBNcharOPTNONE

The code that identifies the work station ID that executed a particular job.

cStatus9STAWcharOPTNONE

A user-defined code (00/WS) that indicates the approval status.

cOriginCodeEV01charOPTNONE

An option that specifies the type of processing for an event.

cApprovalActionCodeAPPRACTcharOPTNONE

A code that determines whether a workflow recipient has accepted or rejected a workflow task that has been submitted for approval. Valid 
values are: A Accept. R Reject.

cActivateWorkflowEV01charOPTNONE

An option that specifies the type of processing for an event.

cActivateLoggingEV01charOPTNONE

An option that specifies the type of processing for an event.

mnQualityTableSequenceNumberQTSNMATH_NUMERICOPTNONE

A control number that uniquely identifies master table records in the Quality Management system. The system automatically generates this 
number.

mnUniqueKeyIDInternalUKIDMATH_NUMERICOPTNONE

This field is a unique number used to identify a record in a file.

mnAddNoOriginatorANOMATH_NUMERICOPTNONE

The address book number of the person who originated the change request. The system verifies this number against the Address Book.

mnDeleteHistorySequenceNumberQTSNMATH_NUMERICOPTNONE

A control number that uniquely identifies master table records in the Quality Management system. The system automatically generates this 
number.

cResequenceTestSortSequenceEV01charOPTNONE

An option that specifies the type of processing for an event.

mnQualityMgmtAB2QMAB2MATH_NUMERICOPTNONE

Reserved for Quality Management. 

szQualityMgmtCode2QMCD2charOPTNONE

Reserved for Quality Management.

jdQualityMgmtDate2QMDT2JDEDATEOPTNONE

Reserved for Quality Management.

mnQualityMgmtNumeric2QMNUM2MATH_NUMERICOPTNONE

Reserved for Quality Management. 

szQualityMgmtReference2QMRF2charOPTNONE

Reserved for Quality Management. 

Related Functions

None

Related Tables

None
0in">

//

//  If  Dates for This Revision Level Overlap Dates for Previous Revision Level, Stop Processing

//

Select  F3702 with QSPC and MCU as Key

BF szSpecification=Specification  BF szBusinessUnit
= CostCenter

BF jdEffectiveFromDateLTEffectiveThruDate

//

WHILEcSV FileIO _StatusEQSUCCESS

ANDVA evt_StopProcessing_EV01NE'1'

//

Fetch Next  F3702

VA evt_EffectiveFromDate_EFFF<EffectiveFromDate

VA evt_EffectiveThruDate_EFFT<EffectiveThruDate




IFdBF jdEffectiveThruDateGTVA evt_EffectiveFromDate_EFFF

AND BF jdEffectiveFromDateNEVA evt_EffectiveFromDate_EFFF
AND BF jdEffectiveThruDateNEVA evt_EffectiveThruDate_EFFT

Set NER  Error (0452, BF jdEffectiveFromDate)
VA evt_StopProcessing_EV01='1'

ENDIFd

ENDWHILE c

ENDIFb

//

//  Edit each field through Data Dictionary Validation

//

//  Edit Specification

//

Call DDValidation (Data Dictionary Validation)

 
IFdSV Error _StatusNESUCCESS

VA evt_StopProcessing_EV01='1'

ENDIFd

//

//  Edit Branch/Plant

//

Call DDValidation (Data Dictionary Validation)

IFdSV Error _StatusNESUCCESS
VA evt_StopProcessing_EV01='1'

ENDIFd

//

//  Edit Specification Revision Level

//

Call DDValidation (Data Dictionary Validation)


IFd