added LSL2 stored procedures
This commit is contained in:
Infineon\StieberD
327
LSL2/STPROC/PRINT_COC.txt
Normal file
327
LSL2/STPROC/PRINT_COC.txt
Normal file
@ -0,0 +1,327 @@
|
||||
COMPILE SUBROUTINE Print_Coc( ShipNo, PrintBackPage, ShipRec )
|
||||
|
||||
DECLARE FUNCTION FieldCount, Msg, Key_Sort, Set_Printer, obj_RDS, obj_Install
|
||||
DECLARE SUBROUTINE Btree.Extract,Extract_SI_Keys
|
||||
|
||||
$insert company_equates
|
||||
$insert coc_equ
|
||||
$insert email_pENDing_equ
|
||||
$insert logical
|
||||
$insert lsl_users_equ
|
||||
$insert msg_equates
|
||||
$insert popup_equates
|
||||
$insert rds_equ
|
||||
$insert rds_layer_info_equ
|
||||
$insert quote_equ
|
||||
$insert quote_spec_equ
|
||||
$insert oiprint_equates
|
||||
$insert schedule_equ
|
||||
$insert security_rights_equ
|
||||
$insert prod_spec_equ
|
||||
$insert srp_coc_results_equ
|
||||
|
||||
$INSERT RDS_LAYER_EQUATES
|
||||
$INSERT RDS_TEST_EQUATES
|
||||
|
||||
DEBUG
|
||||
* Initialize Common Printer parms
|
||||
|
||||
EQU PI$LEFT TO 1
|
||||
EQU PI$TOP TO 2
|
||||
EQU PI$RIGHT TO 3
|
||||
EQU PI$BOTTOM TO 4
|
||||
EQU PI$WIDTH TO 5
|
||||
EQU PI$HEIGHT TO 6
|
||||
EQU PI$SIZE TO 7
|
||||
|
||||
* This is the id code number FOR first wafer inspection out of the tw_codes table
|
||||
|
||||
EQU FirstWaferInspection$ TO 5
|
||||
|
||||
|
||||
IF NOT(ASSIGNED(ShipNo)) THEN RETURN
|
||||
IF NOT(ASSIGNED(PrintBackPage)) THEN PrintBackPage = ''
|
||||
|
||||
IF ShipNo = '' THEN RETURN
|
||||
|
||||
IF ShipRec = '' THEN
|
||||
ShipRec = XLATE('COC',ShipNo,'','X')
|
||||
END
|
||||
|
||||
RDSNos = ShipRec<COC_RDS_NO$>
|
||||
|
||||
RDSCnt = COUNT(RDSNos,@VM) + (RDSNos NE '')
|
||||
|
||||
* Initialize Common Printer parms
|
||||
|
||||
PageInfo = ''
|
||||
PageInfo<PI$LEFT> = 0.5 ;* Margins
|
||||
PageInfo<PI$TOP> = 1.35
|
||||
PageInfo<PI$RIGHT> = 0.25
|
||||
PageInfo<PI$BOTTOM> = 0.25
|
||||
|
||||
PageSetup = '0' ;* Portrait
|
||||
PrintSetup = '2' ;* Print Preview
|
||||
|
||||
stat = Set_Printer("INIT",'Printing','CofC Back',PageInfo,PageSetup,PrintSetup)
|
||||
|
||||
font = 'Arial' ;* Font basics
|
||||
font<2> = 10
|
||||
font<4> = 0
|
||||
|
||||
stat = Set_Printer('FONTHEADFOOT', font)
|
||||
|
||||
*stat = Set_Printer('FOOTER',"Page 'P'":@VM:@VM:"'T' 'D'")
|
||||
|
||||
stat = Set_Printer('LINESTYLE', PS_SOLID:@FM:2)
|
||||
stat = Set_Printer('LINE', -0.1:@FM:-1.2:@FM:7.5:@FM:-1.2, 1)
|
||||
stat = Set_Printer('LINE', -0.1:@FM:-0.1:@FM:7.5:@FM:-0.1, 1)
|
||||
|
||||
location = -.15:@fm:-1.150:@fm:1.57:@fm:1
|
||||
stat = Set_Printer('BMP',obj_Install('Get_Prop','ColorBMP'),location, 0,1)
|
||||
|
||||
|
||||
* * * * Added 10/8/2015 JCH - Updated 'CONFIG','COMPANY' * * * *
|
||||
|
||||
InstDat = obj_Install('Get_Prop','Company':@FM:'Division')
|
||||
Company = InstDat<1>
|
||||
Division = InstDat<2>
|
||||
|
||||
font = 'Arial'
|
||||
font<2> = '12' ;* Big type
|
||||
font<4> = 1 ;* Bold on
|
||||
font<5> = 0 ;* Italics
|
||||
|
||||
stat = Set_Printer('TEXTXY',Company,5.7:@FM:-1.15,font,1)
|
||||
stat = Set_Printer('TEXTXY',Division,5.7:@FM:-0.970,font,1)
|
||||
|
||||
font<2> = 10 ;* 10 point font
|
||||
font<4> = 0 ;* Bold off
|
||||
font<5> = 0 ;* Italics Off
|
||||
|
||||
stat = Set_Printer('TEXTXY',obj_Install('Get_Prop','Address'), 5.7:@fm:-0.775, font,1)
|
||||
stat = Set_Printer('TEXTXY',obj_Install('Get_Prop','CSZC'), 5.7:@fm:-0.625, font,1)
|
||||
stat = Set_Printer('TEXTXY','Tel: ':obj_Install('Get_Prop','Phone'), 5.7:@fm:-0.475, font, 1)
|
||||
stat = Set_Printer('TEXTXY','FAX: ':obj_Install('Get_Prop','FAX'), 5.7:@fm:-0.325, font, 1)
|
||||
|
||||
* * * * End of changes 10/8/2015 JCH * * * *
|
||||
|
||||
|
||||
|
||||
font = 'Arial'
|
||||
font<2> = '18' ;* Big type
|
||||
font<4> = 1 ;* Bold on
|
||||
font<5> = 1 ;* Italics
|
||||
stat = Set_Printer('TEXTXY','Certificate of Compliance',1.9:@FM:-0.80,font,0)
|
||||
|
||||
Font = "Courier New,9,L,1"
|
||||
convert ',' to @fm in Font
|
||||
Stat = set_printer( 'FONT', Font )
|
||||
|
||||
|
||||
TShipQty = xlate( 'RDS', RDSNos, 'WFRS_OUT', 'X' )
|
||||
|
||||
CocFrontShipQty = sum( TShipQty )
|
||||
ThisRdsRec = xlate( 'RDS', RDSNos<1,1>, '', 'X' )
|
||||
Dopant = xlate( 'RDS', RDSNos<1,1>, 'DOPANT_L1', 'X' )
|
||||
SameLayCnt = fieldcount( ThisRdsRec<rds_layer_info$>, char(248) )
|
||||
|
||||
Tfont = Font
|
||||
Tfont<2> = 12
|
||||
Tfont<3> = 'R'
|
||||
Tfont<4> = 1
|
||||
Tfont<6> = 0
|
||||
Void = set_printer( 'FONT', Tfont )
|
||||
Void = set_printer( 'TEXT', 'Date: ':oconv( date(), 'D2/' ) )
|
||||
Void = set_printer( 'TEXT', '' )
|
||||
Void = set_printer( 'TEXT', '' )
|
||||
Tfont<2> = 10
|
||||
Tfont<3> = 'L'
|
||||
Tfont<4> = 1
|
||||
Void = set_printer( 'FONT', Tfont )
|
||||
Void = set_printer( 'TEXT', 'Customer: ':oconv( ThisRdsRec<rds_cust_no$>, '[XLATE_CONV,COMPANY*CO_NAME]' ) )
|
||||
Addr = xlate( 'COMPANY', ThisRdsRec<rds_cust_no$>, company_address$, 'X' )
|
||||
Acnt = fieldcount( Addr, @vm )
|
||||
Void = set_printer( 'TEXT', 'Address: ':Addr<1,1> )
|
||||
for k = 2 to Acnt
|
||||
Tvar = fmt( '', 'L#9' ):Addr<1,k>
|
||||
Void = set_printer( 'TEXT', Tvar )
|
||||
next k
|
||||
Void = set_printer( 'TEXT', '' )
|
||||
Void = set_printer( 'TEXT', '' )
|
||||
Tvar = fmt( 'P.O. Number: ':ThisRdsRec<rds_po$>, 'L#65' ):' Part Number: ':ThisRdsRec<rds_part_num$>
|
||||
Void = set_printer( 'TEXT', Tvar )
|
||||
|
||||
* ADD THE SPECIFICATION INFORMATION FROM THE PSN
|
||||
|
||||
SpecInfo = ''
|
||||
SpecNums = xlate( 'PROD_SPEC', ThisRdsRec<rds_prod_spec_id$>, prod_spec_spec_num$, 'X' )
|
||||
convert @vm to ';' in SpecNums
|
||||
RevNum = xlate( 'PROD_SPEC', ThisRdsRec<rds_prod_spec_id$>, prod_spec_rev_num$, 'X' )
|
||||
RevDate = oconv( xlate( 'PROD_SPEC', ThisRdsRec<rds_prod_spec_id$>, prod_spec_rev_date$, 'X' ), 'D2/' )
|
||||
if ( SpecNums <> '' ) then
|
||||
SpecInfo:= 'Spec#: ':SpecNums:space(2)
|
||||
end
|
||||
if ( RevNum <> '' ) then
|
||||
SpecInfo:= 'Rev#: ':RevNum:space(2)
|
||||
end
|
||||
if ( RevDate <> '' ) then
|
||||
SpecInfo:= 'Rev Date: ':RevDate:space(2)
|
||||
end
|
||||
SpecInfo[-2,2] = ''
|
||||
*
|
||||
Tvar = fmt( SpecInfo, 'L#68' ):' Quantity: ':CocFrontShipQty
|
||||
Void = set_printer( 'TEXT', Tvar )
|
||||
Void = set_printer( 'TEXT', '' )
|
||||
|
||||
* lets figure out what layer number to start with
|
||||
|
||||
StartingLayerNo = 1
|
||||
|
||||
stat = set_printer( 'LINESTYLE', ps_solid:@fm:0 )
|
||||
|
||||
* first print base layer
|
||||
Tfont<2> = 9
|
||||
Tfont<4> = 0
|
||||
Tfont<1> = 'MS LineDraw'
|
||||
Void = set_printer( 'FONT', Tfont )
|
||||
DEBUG
|
||||
|
||||
SortedLSKeys = XLATE('RDS',RDSNos<1,1>,'RDS_LS_SORTED','X')
|
||||
|
||||
IF SortedLSKeys NE '' THEN
|
||||
LayerCnt = COUNT(SortedLSKeys,@VM) + (SortedLSKeys NE '')
|
||||
FOR I = 1 TO LayerCnt
|
||||
LSKey = SortedLSKeys<1,I>
|
||||
LayerRec = XLATE('RDS_LAYER',LSKey,'','X')
|
||||
FirstTestKey = LayerRec<RDS_LAYER_RDS_TEST_KEYS$,1>
|
||||
TestRec = XLATE('RDS_TEST',FirstTestKey,'','X')
|
||||
|
||||
LineOut = ''
|
||||
IF I > 1 THEN
|
||||
LineOut := FMT( 'Layer ':I, 'L#10' )
|
||||
END ELSE
|
||||
LineOut := STR(' ',10)
|
||||
END
|
||||
Dopant = LayerRec<RDS_LAYER_DOPANT$>
|
||||
ThickTarget = TestRec<RDS_TEST_SPEC_THICK_TARGET$>
|
||||
ThickUnits = TestRec<RDS_TEST_SPEC_THICK_UNITS$>
|
||||
ResTarget = TestRec<RDS_TEST_SPEC_RES_TARGET$>
|
||||
ResTarget = TestRec<RDS_TEST_SPEC_RES_UNITS$>
|
||||
ConTarget = TestRec<RDS_TEST_SPEC_CON_TARGET$>
|
||||
ContUnits = TestRec<RDS_TEST_SPEC_CON_UNITS$>
|
||||
|
||||
LineOut := FMT('Dopant: ':Dopant,'L#30')
|
||||
LineOut := FMT('Target Thickness ':OCONV(ThickTarget,'MD2'):ThickUnits,'L#30')
|
||||
|
||||
IF ResTarget NE '' THEN
|
||||
LineOut := FMT('Target Resistivity ':OCONV(ResTarget,'MD3'):ResUnits,'L#30')
|
||||
END ELSE
|
||||
LineOut := FMT('Target Concentration ':OCONV(ConTarget,'MS21'):ConUnits,'L#30')
|
||||
END
|
||||
|
||||
stat = Set_Printer('TEXT',LineOut)
|
||||
|
||||
NEXT I
|
||||
END ELSE
|
||||
LineOut = ''
|
||||
if StartingLayerNo > 1 then
|
||||
LineOut := fmt( 'Layer ':StartingLayerNo, 'L#10' )
|
||||
end
|
||||
LineOut:= fmt( 'Dopant: ':Dopant, 'L#30' )
|
||||
LineOut:= fmt( 'Target Thickness ':oconv( ThisRdsRec<rds_thick_target$>, 'MD2' ):ThisRdsRec<rds_thick_units$>, 'L#30' )
|
||||
if ThisRdsRec<rds_res_target$> then
|
||||
LineOut:= fmt( 'Target Resistivity ':oconv( ThisRdsRec<rds_res_target$>, 'MD3' ):ThisRdsRec<rds_res_units$>, 'L#30' )
|
||||
end else
|
||||
LineOut:= 'Target Concentration ':oconv( ThisRdsRec<rds_con_target$,1>, 'MS21' ):ThisRdsRec<rds_con_units$>
|
||||
if ThisRdsRec<rds_con_min$,2> then
|
||||
LineOut:= ' - ':oconv( ThisRdsRec<rds_con_target$,2>, 'MS21' ):ThisRdsRec<rds_con_units$>
|
||||
end
|
||||
end
|
||||
Void = set_printer( 'TEXT', LineOut )
|
||||
StartingLayerNo += 1
|
||||
|
||||
for k = 1 to SameLayCnt
|
||||
LineOut = ''
|
||||
if StartingLayerNo > 1 then
|
||||
LineOut:= fmt( 'Layer ':StartingLayerNo, 'L#10' )
|
||||
end
|
||||
Tl = field( ThisRdsRec<rds_layer_info$>, char(248), k )
|
||||
Dopant = xlate( 'RDS', LayerIds<i,1>, 'DOPANT_L':K+1, 'X' )
|
||||
LineOut:= fmt( 'Dopant: ':Dopant, 'L#30' )
|
||||
LineOut:= fmt( 'Target Thickness ':oconv( Tl<1,RLThickTarget$>, 'MD2' ):Tl<1,RLThickUnits$>, 'L#30' )
|
||||
if Tl<1,RLResTarget$> then
|
||||
LineOut:= fmt( 'Target Resistivity ':oconv( Tl<1,RLResTarget$>, 'MD3' ):Tl<1,RLResUnits$>, 'L#30' )
|
||||
end else
|
||||
LineOut:= 'Target Concentration ':oconv( Tl<1,RLConTarget$,1>, 'MS21' ):Tl<1,RLConUnits$>
|
||||
if Tl<1,RLConMin$,2> then
|
||||
LineOut:= ' - ':oconv( Tl<1,RLConTarget$,2>, 'MS21' ):Tl<1,RLConUnits$>
|
||||
end
|
||||
end
|
||||
Void = set_printer( 'TEXT', LineOut )
|
||||
StartingLayerNo += 1
|
||||
next k
|
||||
END
|
||||
|
||||
|
||||
Tfont = Font
|
||||
Tfont<4> = 0
|
||||
Tfont<2> = 11
|
||||
Void = set_printer( 'FONT', Tfont )
|
||||
Void = set_printer( 'TEXT', '' )
|
||||
Void = set_printer( 'TEXT', '' )
|
||||
TextOut = 'The enclosed material has been manufactured, inspected and/or tested in the'
|
||||
Void = set_printer( 'TEXT', TextOut )
|
||||
TextOut= 'U.S.A. in accordance with specifications outlined on your purchase order.'
|
||||
Void = set_printer( 'TEXT', TextOut )
|
||||
Void = set_printer( 'TEXT', '' )
|
||||
Tfont<4> = 1
|
||||
Void = set_printer( 'FONT', Tfont )
|
||||
TextOut = 'This material was processed as Work Order Number: ':quote( ThisRdsRec<rds_wo$> ):' and manufactured under process control recipe ':quote( oconv( ThisRdsRec<rds_recipe_no$>, '[XLATE_CONV,RECIPE*RECIPE_NAME]' ) ):'.'
|
||||
Void = set_printer( 'TEXT', TextOut )
|
||||
Tfont<4> = 0
|
||||
Void = set_printer( 'FONT', Tfont )
|
||||
Void = set_printer( 'TEXT', '' )
|
||||
TextOut = 'Pertinent test and/or inspection records are on file and available for review'
|
||||
if PrintBackPage then
|
||||
Void = set_printer( 'TEXT', TextOut )
|
||||
TextOut = 'under run numbers specified in the following page(s) of this document.'
|
||||
Void = set_printer( 'TEXT', TextOut )
|
||||
end else
|
||||
TextOut := '.'
|
||||
Void = set_printer( 'TEXT', TextOut )
|
||||
end
|
||||
for k = 1 to 5
|
||||
Void = set_printer( 'TEXT', '' )
|
||||
next k
|
||||
Void = set_printer( 'TEXT', 'Approved by,' )
|
||||
for k = 1 to 5
|
||||
Void = set_printer( 'TEXT', '' )
|
||||
next k
|
||||
Tvar = fmt( ' ', 'L#65' )
|
||||
Tfont<6> = 1
|
||||
Void = set_printer( 'FONT', Tfont )
|
||||
Void = set_printer( 'TEXT', Tvar )
|
||||
Tfont<6> = 0
|
||||
Void = set_printer( 'FONT', Tfont )
|
||||
TextOut = fmt( '', 'L#50' ):'Date'
|
||||
Void = set_printer( 'TEXT', TextOut )
|
||||
Void = set_printer( 'TEXT', '' )
|
||||
Void = set_printer( 'TEXT', '' )
|
||||
TextOut = 'Document Control'
|
||||
Void = set_printer( 'TEXT', TextOut )
|
||||
for k = 1 to 7
|
||||
Void = set_printer( 'TEXT', '' )
|
||||
next k
|
||||
Tfont<4> = 1
|
||||
Void = set_printer( 'FONT', Tfont )
|
||||
TextOut = 'Quality Assurance Registration Number ':quote( ThisRdsRec<rds_wo$> )
|
||||
Void = set_printer( 'TEXT', TextOut )
|
||||
Tfont<4> = 0
|
||||
Void = set_printer( 'FONT', Tfont )
|
||||
Void = set_printer( 'PAGEBREAK' )
|
||||
|
||||
|
||||
|
||||
stat = Set_Printer('TERM')
|
||||
|
||||
Reference in New Issue
Block a user