XMCTRAP.m

XMCTRAP ;(WASH ISC)/THM/CAP-Error Trap ;04/17/2002  08:14

 ;;8.0;MailMan;;Jun 28, 2002

 ;Modified for TCP/IP under INET_SERVERS of Wollongong

 ;

C ;set in XMC1

 N XMCTRAP S XMCTRAP=1

R ;set in XMRUCX

TRP N %,%E,X S (%,X)=""

 S %E=$$EC^%ZOSV()

 I '$$SCREEN^%ZTER(%E) D ^%ZTER

 ;Error Trap for Script processing (remove back-up tasks)...

 I $G(ZTQUEUED),$G(XMCTRAP) D ERRTRAP^XMTDR

 ;I $D(XMHANG),$L(XMHANG) X XMHANG

 ;D:IO'=IO(0) ^%ZISC

 S ER=1 G UNWIND^%ZTER

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XMCTRAP   474     printed  Apr 09, 2024@21:13:48                                                                                                                                                                                                      Page 2

XMCTRAP   ;(WASH ISC)/THM/CAP-Error Trap ;04/17/2002  08:14

 +1       ;;8.0;MailMan;;Jun 28, 2002

 +2       ;Modified for TCP/IP under INET_SERVERS of Wollongong

 +3       ;

C         ;set in XMC1

 +1        NEW XMCTRAP

           SET XMCTRAP=1

R         ;set in XMRUCX

TRP        NEW %,%E,X

           SET (%,X)=""

 +1        SET %E=$$EC^%ZOSV()

 +2        IF '$$SCREEN^%ZTER(%E)

               DO ^%ZTER

 +3       ;Error Trap for Script processing (remove back-up tasks)...

 +4        IF $GET(ZTQUEUED)

               IF $GET(XMCTRAP)

                   DO ERRTRAP^XMTDR

 +5       ;I $D(XMHANG),$L(XMHANG) X XMHANG

 +6       ;D:IO'=IO(0) ^%ZISC

 +7        SET ER=1

           GOTO UNWIND^%ZTER