6100 BSC Programming Manual

BSC Example
BEGIN
RSCAN DETAIL^NUMBERS^ERR22[28] UNTIL detail[1] -> @SP22;
IF $CARRY THEN
BUFFER ':=' UNKNOWN^ERROR^MESSAGE FOR error^message^length
ELSE
BEGIN
error^index := @SP22 - @DETAIL^NUMBERS^ERR22;
BUFFER ':=' detail^message^22[error^message^length *
error^index] FOR error^message^length;
END;
END;
END ! **** of detail status for error 22
ELSE IF status = 190 THEN
BEGIN
RSCAN DETAIL^NUMBERS^ERR190[2] UNTIL detail[1] -> @SP190;
! *********CHECK FOR ENTRY NOT ON LIST ************************
error^index := @SP190 - @detail^numbers^err190;
BUFFER ':=' detail^message^190[error^message^length * error^index] FOR
error^message^length;
END
ELSE ! ALL OTHER STATUS ERRORS
BEGIN
RSCAN detail^numbers^others[14] UNTIL detail[1] -> @sp^others;
! *********CHECK FOR ENTRY NOT ON LIST ************************
error^index := @sp^others - @detail^numbers^others;
BUFFER ':=' detail^message^others[error^message^length * error^index] FOR
error^message^length;
END;
CALL WRITE^TERM(IBUFFER,error^message^length);
END; !PROC CLIP^STATUS^HANDLER
B-12