11 lines
4.6 KiB
JSON
11 lines
4.6 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function security_check, set_printer, get_printer, msg, fieldcount, start_window, post_event, Printer_Select\r\ndeclare subroutine security_err_msg\r\n\r\n$insert msg_equates\r\n$insert oiprint_equates\r\n$insert rds_equ\r\n$insert security_rights_equ\r\n\r\nPrinterID\t\t \t= ''\r\nGetDefaultPrinter\t= 1\r\nPrintPath\t\t\t= Printer_Select(PrinterID,GetDefaultPrinter)\t;* Get Default printer path\r\n\r\nStat = set_printer( 'INIT', '', '', 0:@fm:0:@fm:0:@fm:0, 0,'' ,PrintPath )\r\n\r\ngosub CheckErr\r\nFont = \"Times New Roman,16,L,1\"\r\nconvert ',' to @fm in Font\r\nStat = set_printer( 'FONT', Font )\r\ngosub CheckErr\r\nVoid = set_printer( 'BMP', 'BMPS\\RECBROWS.BMP', 1:@fm:1:@fm:6.5:@fm:7.38, 0, 0 )\r\n\r\nRdsNo = .rds_no->text\r\nReactor = .reactor->text\r\nRecipe = .recipe_no->text\r\nRecipeName = .recipe_name->text\r\nWO = .wo->text\r\nRunOrder = .run_order->text\r\n\r\nEpiTime = .epi_time->text\r\nEpiDopantFlow = .epi_dopant_flow->text\r\nAux1 = .aux1->text\r\nAux2 = .aux2->text\r\nEpiH2Flow = .epi_h2_flow->text\r\nTCSFlow = .tcs_flow->text\r\nDCSFlow = .dcs_flow->text\r\nBakeTime = .bake_time->text\r\nInjectors = .injectors->text\r\nHCLFlow = .hcl_flow->text\r\nAdjDiluent = .adj_diluent->text\r\nFOffset = .f_offset->text\r\nSOffset = .s_offset->text\r\nROffset = .r_offset->text\r\n\r\nEpiTemp = .epi_temp->text\r\nEpiDiluent = .epi_diluent->text\r\nEpiDopant = .epi_dopant->text\r\nEtchTime = .etch_time->text\r\nEpiGases = .epi_gases->text\r\nEpiGasRate = .epi_gas_rate->text\r\nEpiGasUnits = .epi_gasunits->text\r\n\r\n* RECIPE, RUN DATA SHEET AND WORK ORDER INFORAMTION\r\nVoid = set_printer( 'TEXTXY', RdsNo, 6.06:@fm:2.19, '', 0 )\r\nVoid = set_printer( 'TEXTXY', Reactor, 1.25:@fm:3.34, '', 0 )\r\nVoid = set_printer( 'TEXTXY', Recipe, 2.25:@fm:3.34, '', 0 )\r\nVoid = set_printer( 'TEXTXY', RecipeName, 3.81:@fm:3.34, '', 0 )\r\nVoid = set_printer( 'TEXTXY', WO, 1.31:@fm:4.25, '', 0 )\r\nVoid = set_printer( 'TEXTXY', RunOrder, 4.88:@fm:4.25, '', 0 )\r\n\r\n* ADJUSTABLE PARAMATERS\r\nFont<2> = 14\r\nStat = set_printer( 'FONT', Font )\r\nVoid = set_printer( 'TEXTXY', EpiTime, 2.06:@fm:5.06, '', 0 )\r\nVoid = set_printer( 'TEXTXY', EpiDopantFlow, 3.63:@fm:5.06, '', 0 )\r\nVoid = set_printer( 'TEXTXY', Aux1, 2.06:@fm:5.5, '', 0 )\r\nVoid = set_printer( 'TEXTXY', Aux2, 3.63:@fm:5.5, '', 0 )\r\nVoid = set_printer( 'TEXTXY', EpiH2Flow, 2.06:@fm:6.41, '', 0 )\r\nVoid = set_printer( 'TEXTXY', TCSFlow, 2.06:@fm:5.97, '', 0 )\r\nVoid = set_printer( 'TEXTXY', DCSFlow, 3.63:@fm:5.97, '', 0 )\r\nVoid = set_printer( 'TEXTXY', BakeTime, 2.06:@fm:6.78, '', 0 )\r\nVoid = set_printer( 'TEXTXY', Injectors, 3.63:@fm:6.78, '', 0 )\r\nVoid = set_printer( 'TEXTXY', HCLFlow, 2.06:@fm:7.23, '', 0 )\r\nVoid = set_printer( 'TEXTXY', AdjDiluent, 3.63:@fm:7.23, '', 0 )\r\nVoid = set_printer( 'TEXTXY', FOffset, 1.69:@fm:7.88, '', 0 )\r\nVoid = set_printer( 'TEXTXY', SOffset, 2.75:@fm:7.88, '', 0 )\r\nVoid = set_printer( 'TEXTXY', ROffset, 3.75:@fm:7.88, '', 0 )\r\n\r\n* NON ADJUSTABLE PARAMETERS\r\nVoid = set_printer( 'TEXTXY', EpiTemp, 5.13:@fm:5.13, '', 0 )\r\nVoid = set_printer( 'TEXTXY', EpiDiluent, 6.69:@fm:5.13, '', 0 )\r\nVoid = set_printer( 'TEXTXY', EpiDopant, 4.56:@fm:5.97, '', 0 )\r\nVoid = set_printer( 'TEXTXY', EtchTime, 6.66:@fm:7.56, '', 0 )\r\nVoid = set_printer( 'TEXTXY', EpiGases, 4.56:@fm:6.81, '', 0 )\r\nVoid = set_printer( 'TEXTXY', EpiGasRate, 4.56:@fm:7.84, '', 0 )\r\nVoid = set_printer( 'TEXTXY', EpiGasUnits, 5.38:@fm:7.81, '', 0 )\r\n\r\nFont<2> = 16\r\nStat = set_printer( 'FONT', Font )\r\nCurPSN = xlate( 'RDS', .rds_no->text, rds_prod_spec_id$, 'X' )\r\nFooter = 'PSN ':CurPSN:' Current Instructions and Recipe Limits...See next page=========>'\r\nVoid = set_printer( 'TEXTXY', Footer, 1:@fm:9.5, '', 0 )\r\n\r\nstat = set_printer( 'TERM' ) \r\ngosub CheckErr\r\n\r\nVoid = start_window( 'RECIPE_BROWSE2', @window, CurPSN:'*CENTER', '', '' )\r\nVoid = post_event( 'RECIPE_BROWSE2.PRINT', 'CLICK' )\r\nVoid = post_event( 'RECIPE_BROWSE2.CLOSE', 'CLICK' )\r\nRETURN 0\r\n*===========================================================================*\r\nCheckErr:\r\n if stat < 0 then\r\n goto FatalExit\r\n end\r\nreturn \r\n\r\n*===========================================================================*\r\nFatalExit:\r\n Void = msg( '', Stat )\r\n Stat = set_printer( 'TERM' )\r\nreturn \r\n\r\n*===========================================================================*\r\n"
|
|
}
|
|
}
|
|
} |