SDECERR.m

SDECERR ;ALB/SAT - VISTA SCHEDULING RPCS ;JAN 15, 2016

 ;;5.3;Scheduling;**627**;Aug 13, 1993;Build 249

 ;

 Q

 ;

 ;  ERROR  = General error catch routine used by @^%ZOSF("TRAP")

 ;  ERR    = Error logging routine

 ;

ERROR ;

 D ERR("Error")

 Q

 ;

ERR(SDECERR) ;Error processing

 ; SDECERR = Error text OR error code

 ; SDECI   = pointer into return global array (might decide to pass this in for clarity)

 I +SDECERR S SDECERR=SDECERR+134234112 ;vbObjectError

 S SDECI=SDECI+1

 S ^TMP("SDEC",$J,SDECI)=SDECERR_$C(30)

 S SDECI=SDECI+1

 S ^TMP("SDEC",$J,SDECI)=$C(31)

 Q

 ;

ERR1(ERRCODE,ERRTXT,SDECI,SDECY) ;Error processing

 ; ERRCODE = represents Return code in first ^ piece

 ; ERRTXT  = represents Message text in 2nd ^ piece

 ; SDECI   = pointer into return global array

 S SDECI=SDECI+1

 S @SDECY@(SDECI)=ERRCODE_"^"_ERRTXT_$C(30,31)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDECERR   869     printed  Apr 09, 2024@21:50:59                                                                                                                                                                                                      Page 2

SDECERR   ;ALB/SAT - VISTA SCHEDULING RPCS ;JAN 15, 2016

 +1       ;;5.3;Scheduling;**627**;Aug 13, 1993;Build 249

 +2       ;

 +3        QUIT 

 +4       ;

 +5       ;  ERROR  = General error catch routine used by @^%ZOSF("TRAP")

 +6       ;  ERR    = Error logging routine

 +7       ;

ERROR     ;

 +1        DO ERR("Error")

 +2        QUIT 

 +3       ;

ERR(SDECERR) ;Error processing

 +1       ; SDECERR = Error text OR error code

 +2       ; SDECI   = pointer into return global array (might decide to pass this in for clarity)

 +3       ;vbObjectError

           IF +SDECERR

               SET SDECERR=SDECERR+134234112

 +4        SET SDECI=SDECI+1

 +5        SET ^TMP("SDEC",$JOB,SDECI)=SDECERR_$CHAR(30)

 +6        SET SDECI=SDECI+1

 +7        SET ^TMP("SDEC",$JOB,SDECI)=$CHAR(31)

 +8        QUIT 

 +9       ;

ERR1(ERRCODE,ERRTXT,SDECI,SDECY) ;Error processing

 +1       ; ERRCODE = represents Return code in first ^ piece

 +2       ; ERRTXT  = represents Message text in 2nd ^ piece

 +3       ; SDECI   = pointer into return global array

 +4        SET SDECI=SDECI+1

 +5        SET @SDECY@(SDECI)=ERRCODE_"^"_ERRTXT_$CHAR(30,31)

 +6        QUIT