added LSL2 stored procedures

LSL2/STPROC/FIX_COA_COC.txt

@@ -0,0 +1,47 @@
+COMPILE ROUTINE FIX_coa_coc(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info
+DECLARE FUNCTION Get_Status, Set_Printer
+
+$INSERT OIPRINT_EQUATES
+
+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
+
+DEBUG
+
+$INSERT rpt_cfg_equ
+
+CoaCocKey = '6771*13212.4556018519'
+CoaCocRec = ''
+CoaCocRec<1> = ''
+CoaCocRec<2> = ''
+CoaCocRec<3> = 'EpiMSA PS-5044 Rev.2'
+CoaCocRec<4> = '5B3B0416'
+CoaCocRec<5> = '250'
+CoaCocRec<6> = 'S:\InboundCofA\Helitek\'
+CoaCocRec<7> = 'HelitekCofC.xls'
+
+OPEN 'COA_COC' TO FILE.OUT THEN
+	WRITE CoaCocRec ON FILE.OUT,CoaCocKey THEN Null
+END
+
+
+
+IF Get_Status(errCode) THEN DEBUG
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+
+*stat = Set_Printer("TERM",1)
+
+RETURN