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_EV01< cLanguage 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
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
D3700100 - F3702 Specifications Master Business Function
Parameter Name | Data Item | Data Type | Req/Opt | I/O/Both |
---|---|---|---|---|
cActionCode | ACTN | char | OPT | NONE |
A code that specifies the action that is performed. Valid values are: A Add C Change | ||||
cUpdateMasterFile | EV01 | char | OPT | NONE |
An option that specifies the type of processing for an event. | ||||
cProcessEdits | EV01 | char | OPT | NONE |
An option that specifies the type of processing for an event. | ||||
cSuppressErrorMessage | SUPPS | char | OPT | NONE |
A flag indicating whether or not runtime error messaging will occur when an error message is issued from a business function.
0 = allow
| ||||
szErrorMessageID | DTAI | char | OPT | 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
| ||||
szProgramId | PID | char | OPT | NONE |
The number that identifies the batch or interactive program (batch or interactive object). For example, the number of the Sales Order Entry
| ||||
szVersion | VERS | char | OPT | NONE |
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
| ||||
szSpecification | QSPC | char | OPT | NONE |
The unique identification for a set of tests which need to be performed together. For example:
F-156 - FDA Specification 156
SP34 -
| ||||
szSpecificationRevisionLevel | QREV | char | OPT | NONE |
An alphanumeric character that represents the number of times a specification has changed. To avoid overlapping revisions, the system
| ||||
szBusinessUnit | MCU | char | OPT | NONE |
An alphanumeric code that identifies a separate entity within a business for which you want to track costs. For example, a business unit
| ||||
szDescription | DSC1 | char | OPT | NONE |
Brief information about an item; a remark or an explanation. | ||||
jdEffectiveFromDate | EFFF | JDEDATE | OPT | NONE |
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
| ||||
jdEffectiveThruDate | EFFT | JDEDATE | OPT | NONE |
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
| ||||
szSpecificationCatCode1 | QSC1 | char | OPT | NONE |
One of five reporting codes that can be assigned to each specification defined. Use these codes to categorize specifications into different
| ||||
szSpecificationCatCode2 | QSC2 | char | OPT | NONE |
One of five reporting codes that can be assigned to each specification defined. Use these codes to categorize specifications into different
| ||||
szSpecificationCatCode3 | QSC3 | char | OPT | NONE |
One of five reporting codes that can be assigned to each specification defined. Use these codes to categorize specifications into different
| ||||
szSpecificationCatCode4 | QSC4 | char | OPT | NONE |
One of five reporting codes that can be assigned to each specification defined. Use these codes to categorize specifications into different
| ||||
szSpecificationCatCode5 | QSC5 | char | OPT | NONE |
One of five reporting codes that can be assigned to each specification defined. Use these codes to categorize specifications into different
| ||||
szBranch | MMCU | char | OPT | NONE |
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
| ||||
szUserReservedCode | URCD | char | OPT | NONE |
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. | ||||
jdUserReservedDate | URDT | JDEDATE | OPT | NONE |
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. | ||||
mnUserReservedAmount | URAT | MATH_NUMERIC | OPT | NONE |
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. | ||||
mnUserReservedNumber | URAB | MATH_NUMERIC | OPT | NONE |
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. | ||||
szUserReservedReference | URRF | char | OPT | NONE |
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. | ||||
szUserId | USER | char | OPT | NONE |
The code that identifies a user profile. | ||||
szProgramId_2 | PID | char | OPT | NONE |
The number that identifies the batch or interactive program (batch or interactive object). For example, the number of the Sales Order Entry
| ||||
jdDateUpdated | UPMJ | JDEDATE | OPT | NONE |
The date that specifies the last update to the file record. | ||||
mnTimeOfDay | TDAY | MATH_NUMERIC | OPT | NONE |
The computer clock in hours:minutes:seconds. | ||||
szWorkStationId | JOBN | char | OPT | NONE |
The code that identifies the work station ID that executed a particular job. | ||||
cStatus9 | STAW | char | OPT | NONE |
A user-defined code (00/WS) that indicates the approval status. | ||||
cOriginCode | EV01 | char | OPT | NONE |
An option that specifies the type of processing for an event. | ||||
cApprovalActionCode | APPRACT | char | OPT | NONE |
A code that determines whether a workflow recipient has accepted or rejected a workflow task that has been submitted for approval. Valid
| ||||
cActivateWorkflow | EV01 | char | OPT | NONE |
An option that specifies the type of processing for an event. | ||||
cActivateLogging | EV01 | char | OPT | NONE |
An option that specifies the type of processing for an event. | ||||
mnQualityTableSequenceNumber | QTSN | MATH_NUMERIC | OPT | NONE |
A control number that uniquely identifies master table records in the Quality Management system. The system automatically generates this
| ||||
mnUniqueKeyIDInternal | UKID | MATH_NUMERIC | OPT | NONE |
This field is a unique number used to identify a record in a file. | ||||
mnAddNoOriginator | ANO | MATH_NUMERIC | OPT | NONE |
The address book number of the person who originated the change request. The system verifies this number against the Address Book. | ||||
mnDeleteHistorySequenceNumber | QTSN | MATH_NUMERIC | OPT | NONE |
A control number that uniquely identifies master table records in the Quality Management system. The system automatically generates this
| ||||
cResequenceTestSortSequence | EV01 | char | OPT | NONE |
An option that specifies the type of processing for an event. | ||||
mnQualityMgmtAB2 | QMAB2 | MATH_NUMERIC | OPT | NONE |
Reserved for Quality Management. | ||||
szQualityMgmtCode2 | QMCD2 | char | OPT | NONE |
Reserved for Quality Management. | ||||
jdQualityMgmtDate2 | QMDT2 | JDEDATE | OPT | NONE |
Reserved for Quality Management. | ||||
mnQualityMgmtNumeric2 | QMNUM2 | MATH_NUMERIC | OPT | NONE |
Reserved for Quality Management. | ||||
szQualityMgmtReference2 | QMRF2 | char | OPT | NONE |
Reserved for Quality Management. |
None |
None |