11 lines
5.5 KiB
JSON
11 lines
5.5 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "DECLARE FUNCTION Next_Key, send_event, msg, security_check, fieldcount, NextKey\r\nDECLARE SUBROUTINE security_err_msg, delete_row, ErrMsg, Comm_Prod_Spec\r\n\r\n$INSERT Security_Rights_Equ\r\n$INSERT Quote_Spec_Equ\r\n$INSERT PROD_SPEC_EQUATES\r\n\r\n\r\nIF Security_Check( 'Prod Spec', Write$ ) THEN\r\n\r\n \r\n\tOrgPSNo\t= Get_Property(@WINDOW:'.PROD_SPEC_ID','TEXT')\r\n\tvoid\t= Send_Event(@WINDOW,'WRITE')\r\n\tOrgRec\t= XLATE('PROD_SPEC',OrgPSNo,'','X')\r\n\t\r\n\t\r\n * Rat Hole Data\r\n\t\r\n\tPartNums\t= OrgRec<PROD_SPEC_PART_NUMS$>\r\n QualReacts\t= OrgRec<PROD_SPEC_QUAL_REACTS$>\r\n SpecEpi\t\t= OrgRec<PROD_SPEC_SPEC_EPI$>\r\n SpecAddl\t= OrgRec<PROD_SPEC_SPEC_ADDTL$>\r\n SpecSub\t\t= OrgRec<PROD_SPEC_SPEC_SUBSTRATE$>\r\n\r\n NewRec = OrgRec\r\n \r\n CONVERT CHAR(248) TO @FM IN SpecEpi\r\n \r\n\tLayerCnt = COUNT(SpecEpi,@FM) + (SpecEpi NE '')\r\n\t\r\n\tFOR I = 1 TO LayerCnt\r\n\t SpecEpi<I,QSEpiConcMinThick$>\t= ''\r\n\t\tSpecEpi<I,QSEpiConcMaxThick$>\t= ''\r\n\t\tSpecEpi<I,QSEpiConcUnits$>\t\t= ''\r\n\t\tSpecEpi<I,QSEpiResMinThick$>\t= ''\r\n\t\tSpecEpi<I,QSEpiResMaxThick$>\t= ''\r\n\t\tSpecEpi<I,QSEpiResUnits$>\t\t= ''\r\n\t\tSpecEpi<I,QSEpiMinThick$>\t\t= ''\r\n\t\tSpecEpi<I,QSEpiMaxThick$>\t\t= ''\r\n\t\tSpecEpi<I,QSEpiThickUnits$>\t\t= ''\r\n\t\t*SpecEpi<I,QSEpiDopant$>\t\t= ''\r\n\t\t*SpecEpi<I,QSEpiRecipe$>\t\t= ''\r\n\t\t*SpecEpi<I,QSEpiRecipeName$>\t= ''\r\n\t\tSpecEpi<I,QSEpiThickMeasure$>\t= ''\r\n\t\tSpecEpi<I,QSEpiResMeasure$>\t\t= ''\r\n\t\tSpecEpi<I,QSEpiConcMeasure$>\t= ''\r\n\tNEXT I\r\n\t\r\n\tCONVERT @FM TO CHAR(248) IN SpecEpi\r\n\t\r\n\t\r\n\t*SpecAddl<1,QSAddProdSig$>\t\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddQualSig$>\t\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\tSpecAddl<1,QSAddStressMeasure$>\t\t= ''\r\n\tSpecAddl<1,QSAddTransMeasure$>\t\t= ''\r\n\tSpecAddl<1,QSAddStressMin$>\t\t\t= ''\r\n\tSpecAddl<1,QSAddStressMax$>\t\t\t= ''\r\n\tSpecAddl<1,QSAddTransSpec$>\t\t\t= ''\r\n\t*SpecAddl<1,QSAddPreProdSig$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreQualSig$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddProdSigDate$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddProdSigTime$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddQualSigDate$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddQualSigTime$>\t\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreProdSigDate$>\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreProdSigTime$>\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreQualSigDate$>\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t*SpecAddl<1,QSAddPreQualSigTime$>\t= ''\t;* Deprecated 8/22/2012 JCH\r\n\t\r\n\t\r\n\tNewRec<PROD_SPEC_SPEC_EPI$>\t\t\t= SpecEpi\r\n\tNewRec<PROD_SPEC_SPEC_ADDTL$>\t\t= SpecAddl\r\n\tNewRec<PROD_SPEC_ENTRY_DATE$> \t\t= Date()\t\t;* .entry_date->text\t\t= oconv( date(), 'D2/' )\r\n\tNewRec<PROD_SPEC_ENTRY_ID$>\t\t\t= @USER4\t\t;* .entry_id->text\t\t\t= oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\tNewRec<PROD_SPEC_STATUS$>\t\t\t= 'I'\t\t\t;*\t.status->value\t\t\t= 'I'\r\n\tNewRec<PROD_SPEC_STD_OH_COST$>\t\t= ''\r\n\tNewRec<PROD_SPEC_MTL_COST$>\t\t\t= ''\r\n\tNewRec<PROD_SPEC_IR_FAB$>\t\t\t= ''\r\n\tNewRec<PROD_SPEC_QUOTE_NO$>\t\t\t= ''\r\n\tNewRec<PROD_SPEC_MOD_ID$>\t\t\t= ''\t\t\t;* Added 1/13/2009 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec<PROD_SPEC_MOD_DATE$>\t\t\t= ''\t\t\t;* Added 1/13/2009 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec<PROD_SPEC_DESCRIPTION$>\t\t= ''\t\t\t;* Added 1/13/2009 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec<PROD_SPEC_SUB_PART_NUMS$>\t= ''\t\t\t;* Added 1/17/2011 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec<PROD_SPEC_SUB_WAFER_MFG$>\t= ''\t\t\t;* Added 1/17/2011 JCH, J.C. Henry & Co., Inc.\r\n\t\r\n\tNewRec<PROD_SPEC_MODE_SIG$>\t\t\t= ''\t\t\t;* Added 8/22/2012 JCH, J.C. Henry & Co., Inc.\r\n\tNewRec<PROD_SPEC_MODE_SIG_DTM$>\t\t= ''\t\t\t;* Added 8/22/2012 JCH, J.C. Henry & Co., Inc.\r\n\t\r\n\t\r\n\t\r\n\t* Shipping_Info items\r\n\t\r\n\tNewRec<PROD_SPEC_TR_HGPROBE$>\t\t\t= ''\r\n\tNewRec<PROD_SPEC_TR_FTIR$>\t\t\t\t= ''\r\n\tNewRec<PROD_SPEC_TR_TEST_WAFER$>\t\t= ''\r\n\tNewRec<PROD_SPEC_TR_SRP$>\t\t\t\t= ''\r\n\tNewRec<PROD_SPEC_TR_SRP_WWAFER$>\t\t= ''\r\n\tNewRec<PROD_SPEC_TR_TENCOR$>\t\t\t= ''\r\n\tNewRec<PROD_SPEC_TR_STRESS$>\t\t\t= ''\r\n\tNewRec<PROD_SPEC_TR_4PP$>\t\t\t\t= ''\r\n\tNewRec<PROD_SPEC_SHIP_CUST_RDS$>\t\t\t= ''\r\n\tNewRec<PROD_SPEC_SHIP_COC_FRONT$>\t\t\t= ''\r\n\tNewRec<PROD_SPEC_SHIP_COC_FRONT_COPIES$>\t= ''\r\n\tNewRec<PROD_SPEC_SHIP_COC_BACK$\t>\t\t\t= ''\r\n\tNewRec<PROD_SPEC_SHIP_COC_BACK_COPIES$>\t\t= ''\r\n\t\r\n\tNewRec<PROD_SPEC_SHIP_PARTIAL$>\t\t\t\t= ''\r\n\tNewRec<PROD_SPEC_SHIP_FULL_TYPE$>\t\t\t= ''\r\n\tNewRec<PROD_SPEC_SHIP_NCR_REJ$>\t\t\t\t= ''\r\n\tNewRec<PROD_SPEC_SHIP_BAG_REQ$>\t\t\t\t= ''\t\r\n\tNewRec<PROD_SPEC_RDS_CLEANROOM_PAPER$>\t\t= ''\r\n\t\r\n\tNewRec<PROD_SPEC_SCANNED_IMG_PATH$>\t\t\t= ''\r\n\r\n\r\n\tNextPSKey = NextKey('PROD_SPEC')\r\n\t\r\n\tOPEN 'PROD_SPEC' TO PSTable THEN\r\n\t\tWRITE NewRec ON PSTable,NextPSKey THEN\r\n\t\t\tvoid = Set_Property(@WINDOW:'.PROD_SPEC_ID','TEXT',NextPSKey)\r\n\t\t\tvoid = Send_Event(@WINDOW:'.PROD_SPEC_ID','LOSTFOCUS')\r\n\t\tEND ELSE\r\n\t\t\tErrMsg('Unable to write new PSN ':QUOTE(NextPSKey):' on PROD_SPEC file.')\r\n\t\tEND\r\n\tEND ELSE\r\n\t\tErrMsg('Unable to open PROD_SPEC table for write.')\r\n\tEND\r\n\tRETURN 0\r\n\t\r\nEND ELSE\r\n Security_Err_Msg( 'Prod Spec', Write$ )\r\nEND\r\n\r\nRETURN 0"
|
|
}
|
|
}
|
|
} |