compile function SPC_CLEAN_HF_RPT1() begin condition pre: post: end condition * THIS FUNCTION WILL PLOT INTEGER VALUES UP TO A MAXIMUM OF 20 POINTS declare function msg, set_property, send_event, dialog_box, utility, get_property declare function set_printer, get_printer,Printer_Select declare subroutine rlist, or_view, activate_save_select, yield $insert rlist_equates $insert msg_equates $insert oiprint_equates $insert spc_limits_equ $insert logical $insert spc_clean_hf_equ TableToUse = 'SPC_CLEAN_HF' open TableToUse to TableVar else MsgInfo = '' MsgInfo = -2 MsgInfo = -2 MsgInfo = 'Unable to open ':TableToUse:'...' Void = msg( '', MsgInfo ) return 0 end Params = dialog_box( 'SPC_CLEAN_HF_RPT1', @window, '*CENTER' ) if Params = 'CANCEL' or Params = '' then return 0 end ** PROGRAM IS DESIGNED TO ONLY GO UP TO 20 POINTS AND THE SPC_LIMITS WINDOW FOR ** HF MAX VALIDATES FOR 1-20 convert '*' to @fm in Params TestDateFrom = Params<1> TestDateThru = Params<2> SC1 = Params<3> DirToPrinter = Params<4> Stat = utility( 'CURSOR', 'H' ) Stmt = 'SELECT ':TableToUse:' BY DATE_TESTED BY TIME_TESTED' * XPOSS ARE STATIC CAUSE THERE WILL ONLY BE SEVEN PLOTS PRINTED PER PAPER XPosS1 = 1.11:@fm:2.49:@fm:3.87:@fm:5.25:@fm:6.63:@fm:8.01:@fm:9.38 XPosS2 = 1.17:@fm:2.55:@fm:3.93:@fm:5.31:@fm:6.69:@fm:8.07:@fm:9.44 YStartPos1 = '' YStartPos2 = '' XPosLast2 = '' YPosLast2 = '' EndStmt = '' * TEST DATE INFORMATION if TestDateFrom and TestDateThru then EndStmt := " WITH DATE_TESTED FROM ":QUOTE(TestDateFrom):' TO ':QUOTE(TestDateThru) end else if TestDateFrom then EndStmt := " WITH TEST_DATE GE ":QUOTE(TestDateFrom) end if TestDateThru then EndStmt := " WITH TEST_DATE LE ":QUOTE(TestDateThru) end end EndStmt := " AND WITH CODE = ":QUOTE(SC1) Stmt:=EndStmt Void = set_status(0) rlist( Stmt, target_activelist$, '', '', '' ) if @reccount then TestDateS = '' TestTimeS = '' ShiftS = '' EntryIDS = '' PreS = '' PostS = '' DeltaS = '' PointsPlotted = 0 YDeltaNums = '' PrintPageBreak = 0 if DirToPrinter = 'Yes' then PrnFlag = 0 end else PrnFlag = 3 ;* THREE IN OIPI IS SCREEN MAXIMIZED end * PULL OFF VARIABLES SPCLimitInfo = xlate( 'CONFIG', 'SPC_LIMITS', '', 'X' ) HFMin = SPCLimitInfo HFMax = SPCLimitInfo HFDateChg = oconv( SPCLimitInfo, 'D2/' ) PrintPath = Printer_Select('',1) ;* Get default printer path Void = set_printer( 'INIT', '', '', '':@fm:'':@fm:'':@fm:'', 1, PrnFlag:@fm:75 ,PrintPath) Void = set_printer( 'LINESTYLE', PS_SOLID:@fm:1 ) Void = set_printer( 'FILLSTYLE', BS_SOLID ) gosub PrintTOF Eof = false$ NumKeys = @reccount Cnt = 0 loop readnext HFKey else Eof = true$ until Eof read HFEntry from TableVar, HFKey else MsgInfo = '' MsgInfo = -2 MsgInfo = -2 MsgInfo = 'Error reading ':HFKey:' from ':TableToUse:'!' MsgInfo = '!' Void = MSG( '', MsgInfo ) return 0 end * PULL OFF VARIABLES TestDate = oconv( HFEntry, 'D2/' ) TestTime = oconv( HFEntry, 'MTH' ) Shift = HFEntry EntryID = HFEntry Pre = HFEntry Post = HFEntry Delta = xlate( 'SPC_CLEAN_HF', HFKey, 'DELTA', 'X' ) HoldDelta = Delta * locate Delta in YDeltaNums using @fm setting DPos then YPosToUse1 = YStartPos1 YPosToUse2 = YStartPos2 end else if Delta > HFMax then * POINT OUT OF CONTROL * SET OTHER VARS UP TOP FOR OUT OF CONTROL YPosToUse1 = OutofControlY YPosToUse2 = OutofControlY+.06 end else * NOT OUT OF CONTROL BUT IS NOT EVENLY DIVISIBLE BY FIVE SO * FIND THE REMAINDER AND IF IT IS 1 OR 2 THEN ROUND DOWN * OTHERWISE ROUND UP DeltaMod = mod( Delta, 5 ) begin case case ( DeltaMod = 1 ) Delta -= DeltaMod case ( DeltaMod = 2 ) Delta -= DeltaMod case ( DeltaMod = 3 ) Delta += 2 case ( deltaMod = 4 ) Delta += 1 case otherwise$ Delta += DeltaMod end case locate Delta in YDeltaNums using @fm setting DPos then YPosToUse1 = YStartPos1 YPosToUse2 = YStartPos2 end end end if PointsPlotted = 7 then ;* CAN ONLY PLOT SEVEN SO DO A PAGEBREAK AND PRINT TOF AND PRINT COLUMNS PrintPageBreak = 1 gosub PrintBOF gosub PrintTOF end XPosToUse1 = XPosS1 XPosToUse2 = XPosS2 if YPosToUse1 = OutofControlY then Void = set_printer( "TEXTXY", Delta, XPosToUse1-.06:@fm:OutofControlY-.19, '', 0 ) end * TestDateS<1,-1> = TestDate TestTimeS<1,-1> = TestTime ShiftS<1,-1> = Shift EntryIDS<1,-1> = EntryID PreS<-1> = Pre PostS<-1> = Post DeltaS<-1> = HoldDelta * SET YOUR POINT AND THEN SET XY FOR THE LINE TO Void = set_printer( 'ELLIPSE', XPosToUse1:@FM:YPosToUse1:@FM:XPosToUse2:@FM:YPosToUse2, 0 ) PointsPlotted += 1 if PointsPlotted > 1 then Void = set_printer( 'LINE', XPosLast2-.03:@fm:YPosLast2:@fm:XPosToUse2-.03:@fm:YPosToUse2, 0 ) end YPosLast2 = YPosToUse2 XPosLast2 = XPosToUse2 repeat PrintPageBreak = 0 gosub PrintBOF Void = set_printer( 'TERM', 1 ) end else MsgInfo = '' MsgInfo = -2 MsgInfo = -2 MsgInfo = 'NO Records meeting your date criteria!!' MsgInfo = '!' Void = MSG( '', MsgInfo ) end return 0 *===============================================================================================* PrintTOF: Font = "Courier New,18,C,1" convert ',' to @fm in Font Tfont = Font Stat = set_printer( 'FONT', Font ) Void = set_printer( 'TEXT', 'HF Code# ':SC1:' Control Chart' ) Font<2> = 12 Font<3> = 'L' Stat = set_printer( 'FONT', Font ) Void = set_printer( 'TEXT', '' ) TableColInfo = '^+4680':@vm:'^+4680':@vm:'^+4680' PrintTbl = 'Characteristic Measured: Particles':@vm:'Recipe: Production':@vm:'Date ctl Limits Calculated: ':HFDateChg Void = set_printer( 'ADDTABLE', TableColInfo, '', PrintTbl, '', '', 0, TB_ALL:@fm:'C' ) PrintTbl = 'Unit of Measure: Delta (Post-Pre)':@vm:'Frequency: after HF change':@vm:'Limits Calculated By: Peter Z.' Void = set_printer( 'ADDTABLE', TableColInfo, '', PrintTbl, '', '', 0, TB_ALL:@fm:'C' ) PrintTbl = 'Sample ID:1 test wafer with <200 particles':@vm:'Upper Limit is: ':HFMax:@vm:'Target: ':HFMin ;* REMEMBER MIN IS TARGET IN THIS CASE Void = set_printer( 'ADDTABLE', TableColInfo, '', PrintTbl, '', '', 0, TB_ALL:@fm:'C' ) Void = set_printer( 'TEXT', '' ) Void = set_printer( 'TEXT', 'Delta X-Bar' ) Void = set_printer( 'TEXT', '' ) Void = set_printer( 'TEXT', 'UCL-':HFMax ) TableColInfo = '^+720':@vm:'^+1987':@vm:'^+1987':@vm:'^+1987':@vm:'^+1987':@vm:'^+1987':@vm:'^+1987':@vm:'^+1987' CurPos = get_printer( 'POS' )<2> OutofControlY = CurPos-.13 YDeltaNums = '' YStartPos1 = '' YStartPos2 = '' for i = HFMax to HFMin step -5 PrintTbl = i:@vm:'':@vm:'':@vm:'':@vm:'':@vm:'':@vm:'':@vm:'' Void = set_printer( 'ADDTABLE', TableColInfo, '', PrintTbl, '', '', 1, TB_ALL:@fm:'L' ) CurPos = get_printer( 'POS' )<2> CurPos -= .13 TStartPos1 = CurPos TStartPos2 = CurPos+.06 YDeltaNums<-1> = i YStartPos1<-1> = TStartPos1 YStartPos2<-1> = TStartPos2 next i return *===============================================================================================* PrintBOF: Void = set_printer( 'TEXT', '' ) Font<2> = 8 Font<3> = 'L' Stat = set_printer( 'FONT', Font ) ColSize = '^+662':@vm:'^+662':@vm:'^+662' NewColSize = '' ColData = 'Pre':@vm:'Post':@vm:'Delta' for i = 1 to PointsPlotted NewColSize<1,-1> = ColSize ColData<1,-1> = 'Pre':@vm:'Post':@vm:'Delta' next i NewColSize = '^+720':@vm:NewColSize ColData = '':@vm:ColData Void = set_printer( 'ADDTABLE', NewColSize, '', ColData, '', '', 0, TB_ALL:@fm:'L' ) ColData = '' for i = 1 to PointsPlotted ColData<1,-1> = PreS ColData<1,-1> = PostS ColData<1,-1> = DeltaS next i ColData = '':@vm:ColData Void = set_printer( 'ADDTABLE', NewColSize, '', ColData, '', '', 1, TB_ALL:@fm:'L' ) * Void = set_printer( 'TEXT', '' ) ColSize = '^+1987' NewColSize = '' for i = 1 to PointsPlotted NewColSize<1,-1> = ColSize next i NewColSize = '^+720':@vm:NewColSize NewColData = '' NewColData<-1> = TestDateS NewColData<-1> = TestTimeS NewColData<-1> = ShiftS NewColData<-1> = EntryIDS NewColData = insert( NewColData, 1, 1, 0, 'Date' ) NewColData = insert( NewColData, 2, 1, 0, 'Time' ) NewColData = insert( NewColData, 3, 1, 0, 'Shift' ) NewColData = insert( NewColData, 4, 1, 0, 'User' ) Void = set_printer( 'ADDTABLE', NewColSize, '', NewColData, '', '', 1, TB_ALL:@fm:'L' ) TestDateS = '' TestTimeS = '' ShiftS = '' EntryIDS = '' PreS = '' PostS = '' DeltaS = '' PointsPlotted = 0 Font<2> = 12 Font<3> = 'L' Stat = set_printer( 'FONT', Font ) if PrintPageBreak then Void = set_printer( 'PAGEBREAK' ) end return *===============================================================================================*