COMPILE ROUTINE TEST_OBJ_ICAR(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE obj_Notes, Set_Status, obj_Export, ErrMsg
DECLARE FUNCTION Get_Status, Utility, obj_ICAR


debug

a = obj_ICAR('RespSup')




* * * * * * *
Bail:
* * * * * * *

RETURN