>PRIVATE P1,P2,P3,P4,P5,P6,P7,P8,P9,P0 AS Number >STORE 0 TO P1,P2,P3,P4,P5,P6,P7,P8,P9,P0 >STORE NULL TO P1,P2,P3,P4,P5,P6,P7,P8,P9,P0 > > >TEXT TO lcSQL TEXTMERGE NOSHOW PRETEXT 15 >{CALL ESC60.MOVE_PATIENTS_MAINT ('MTL', '<<THISFORM.PNO>>', > 'QC', > '9000', > '<<C_Import.PATNO>>', > '<<THISFORM.PNO>>', > 'QC', > '<<C_Import.CNO>>', > '<<C_Import.PATNO>>', > ?@P1, ?@P2, ?@P3, ?@P4, ?@P5, ?@P6, ?@P7, ?@P8, ?@P9, ?@P0 ) } >ENDTEXT > >lnResult = SQLEXEC(THISFORM.oESC.DataObj.ConnectHandle,lcSQL) >>