create procedure chgpad(
@tbl varchar(31),
@col varchar(31),
@type char,
@len int)
as
update dbo.sqismvar
set var_trmx=@type, var_trmmin=@len
where tbl_id = (select tbl_id
from dbo.sqismtbl
where tbl_name = @tbl) and var_name = @col;
return(0)
GO
--- Run procedure CHGPAD ---
EXEC CHGPAD 'ASCL99','PRACTICE_ID','S',0;
EXEC CHGPAD 'ASCL99','PVID','N',3;
EXEC CHGPAD 'ASCL99','TEMPLATE_ID','S',0;
EXEC CHGPAD 'ASCL99','CALENDAR_NOTE','S',0;
EXEC CHGPAD 'ASCL99','HOLD_DAY','S',0;
EXEC CHGPAD 'ASCL99','CANCEL_DAY','S',0;
EXEC CHGPAD 'ASHR99','PVID','N',3;
EXEC CHGPAD 'ASHR99','HOSP_RNDS_NAME','S',0;
EXEC CHGPAD 'ASHR99','HOSP_CODE','S',0;
EXEC CHGPAD 'ASHR99','HOSP_ROOM','S',0;
EXEC CHGPAD 'ASHR99','HOSP_DX','S',0;
EXEC CHGPAD 'ASHP99','PVID','N',3;
EXEC CHGPAD 'ASSC99','PVID','N',3;
EXEC CHGPAD 'ASSC99','PRACTICE_ID','S',0;
EXEC CHGPAD 'ASSC99','APPT_REASON','S',0;
EXEC CHGPAD 'ASSC99','APPT_LENGTH','S',0;
EXEC CHGPAD 'ASSC99','APPT_TYPE','S',0;
EXEC CHGPAD 'ASSC99','APPT_STATUS','S',0;
EXEC CHGPAD 'ASSC99','APPT_ROOM','N',3;
EXEC CHGPAD 'ASSC99','APPT_SLOT','S',0;
EXEC CHGPAD 'ASSC99','APPT_NEW','S',0;
EXEC CHGPAD 'ASSC99','APPT_PRINT','S',0;
EXEC CHGPAD 'ASSX99','PRACTICE_ID','S',0;
EXEC CHGPAD 'ASSX99','INTERP_ID','N',3;
EXEC CHGPAD 'ASSX99','CANCEL_NOTE','S',0;
EXEC CHGPAD 'ASSX99','REF_PVID','S',0;
EXEC CHGPAD 'ASSX99','RESOURCE1','N',3;
EXEC CHGPAD 'ASSX99','RESOURCE2','N',3;
EXEC CHGPAD 'ASSX99','RESOURCE3','N',3;
EXEC CHGPAD 'ASSX99','REF_SOURCE','S',0;
EXEC CHGPAD 'ASSX99','REF_SOURCE1','S',0;
EXEC CHGPAD 'ASSX99','REF_SOURCE2','S',0;
EXEC CHGPAD 'ASSX99','REF_SOURCE3','S',0;
EXEC CHGPAD 'ASSX99','REF_SOURCE4','S',0;
EXEC CHGPAD 'ASSX99','INTERP_LANG','B',0;
EXEC CHGPAD 'ASSX99','INTERP_PREF','S',0;
EXEC CHGPAD 'ASSX99','PVID','N',3;
EXEC CHGPAD 'ASWT99','PRACTICE_ID','S',0;
EXEC CHGPAD 'ASWT99','PVID','N',3;
EXEC CHGPAD 'ASWT99','ALT_PVID','N',3;
EXEC CHGPAD 'ASWT99','EXT_PAT_ID','S',0;
EXEC CHGPAD 'ASWT99','WAIT_REASON','S',0;
EXEC CHGPAD 'ASWT99','WAIT_LENGTH','S',0;
EXEC CHGPAD 'ASWT99','WAIT_VISIT_TYPE','S',0;
EXEC CHGPAD 'ASWT99','WAIT_ROOM','N',3;
EXEC CHGPAD 'ASWT99','WAIT_TOV','S',0;
EXEC CHGPAD 'ASWT99','WAIT_INTERP_LANG','B',0;
EXEC CHGPAD 'ASWT99','REF_PVID','B',0;
EXEC CHGPAD 'ASWT99','REF_SOURCE','S',0;
EXEC CHGPAD 'ASWT99','WAIT_RESOURCE1','N',3;
EXEC CHGPAD 'ASWT99','WAIT_RESOURCE2','N',3;
EXEC CHGPAD 'ASWT99','WAIT_RESOURCE3','N',3;
EXEC CHGPAD 'MRFI99','PVID','N',3;
EXEC CHGPAD 'MRFI99','FLOW_TEMPL_NAME','B',0;
EXEC CHGPAD 'MRFP99','PVID','N',3;
EXEC CHGPAD 'MRFP99','FLOW_TEMPL_NAME','B',0;
EXEC CHGPAD 'MRLN99','LAB_NAME','N',0;
EXEC CHGPAD 'MRLN99','LAB_DESC','N',0;
EXEC CHGPAD 'MRLN99','LAB_UNITS','N',0;
EXEC CHGPAD 'MRLN99','LAB_XREF','N',0;
EXEC CHGPAD 'MRLR99','LAB_NAME','N',0;
EXEC CHGPAD 'MRLR99','LAB_RANGE_SEX','N',0;
EXEC CHGPAD 'MRLR99','LAB_RANGE_BOTH','N',0;
EXEC CHGPAD 'MRLR99','LAB_RANGE_LOWAGE','N',0;
EXEC CHGPAD 'MRLR99','LAB_RANGE_UPAGE','N',0;
EXEC CHGPAD 'MRLR99','LAB_RANGE_LOWV','N',0;
EXEC CHGPAD 'MRLR99','LAB_RANGE_UPV','N',0;
EXEC CHGPAD 'MRLR99','LAB_RANGE_LOWP','N',0;
EXEC CHGPAD 'MRLR99','LAB_RANGE_UPP','N',0;
EXEC CHGPAD 'MRLR99','LAB_RANGE_LOWN','N',0;
EXEC CHGPAD 'MRLR99','LAB_RANGE_UPN','N',0;
EXEC CHGPAD 'MRLR99','LAB_RANGE_MSG','N',0;
GO
-Mike