source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUSTERM2.m@ 623

Last change on this file since 623 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 721 bytes
Line 
1XUSTERM2 ;SFISC/RWF - USER TERMINATE, PACKAGE FILE RUN ;9/7/94 16:23
2 ;;8.0;KERNEL;;Jul 10, 1995
3 ;;.1;;
4 D B,A
5 Q
6A ;FOR v8 only, loop thru package file and do clean-up routines.
7 N XUI,XUJ,XUGRP
8 F XU1=0:0 S XU1=$O(^DIC(9.4,XU1)) Q:XU1'>0 S XU2=$P($G(^DIC(9.4,XU1,200)),"^",1,2) D:$L($P(XU2,"^",2)) T2(XU2,XUDA)
9 K XU1,XU2 Q
10T2(XU1,DA) ;Set trap and call one with DA=IFN of user.
11 ;Protect what we need to return.
12 N XUDA
13 S X="TX^XUSTERM2",@^%ZOSF("TRAP"),X=$P(XU1,"^",2) X ^%ZOSF("TEST") Q:'$T
14 D @XU1
15 Q
16TX D @^%ZOSF("ERRTN") Q
17 ;
18B ;Call XQOR to handle protocall.
19 N XUI,XUJ,XUGRP S XUIFN=XUDA N XUDA ;Protect ourself.
20 S X="TX^XUSTERM2",@^%ZOSF("TRAP"),DIC="^DIC(19,",X="XU USER TERMINATE"
21 D EN^XQOR
22 K X,DIC Q
Note: See TracBrowser for help on using the repository browser.