Thanks Sergey,
This meeans that my code should look like this:
LOCAL 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','AC019_CLIN_01', 'QC', '0001', '80047', 'AC019_CLIN_01', 'QC', '0035', '80047',
?P1, ?P2, ?P3, ?P4, ?P5, ?P6, ?P7, ?P8, ?P9, ?P0 ) }
ENDTEXT
? SQLEXEC(ConnectHandle,lcSQL) > 0When I try it, VFP crashes...
Sergey. how would you call the following store proc:
PROCEDURE move_patients_maint
( o_siteid VARCHAR2,
o_pno VARCHAR2,
o_sctry VARCHAR2,
o_cno VARCHAR2,
o_patno VARCHAR2,
n_pno VARCHAR2,
n_sctry VARCHAR2,
n_cno VARCHAR2,
n_patno VARCHAR2,
mon_b_ade_rowcnt IN OUT NUMBER,
mon_b_pats_rowcnt IN OUT NUMBER,
mon_b_pats_comm_rowcnt IN OUT NUMBER,
mon_b_crfparts_rowcnt IN OUT NUMBER,
mon_b_crfchkl_rowcnt IN OUT NUMBER,
mon_b_pachklit_rowcnt IN OUT NUMBER,
mon_b_patadd_rowcnt IN OUT NUMBER,
mon_b_prealloc_rowcnt IN OUT NUMBER,
mon_b_patsphase_rowcnt IN OUT NUMBER,
mon_b_supform_rowcnt IN OUT NUMBER)
Luc Nadeau
lnadeau@neova.ca"the theory, it is when all is known and that nothing works. The practice, it is when all works and that nobody knows why." - Albert Einstein (Nobel of physique 1921)
