Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BARVKL0

BARVKL0.m

Go to the documentation of this file.
  1. BARVKL0 ; IHS/SD/LSL - KILL NAME SPACE VARIABLES (BAR) ;
  1. ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005
  1. ;
  1. ;XQJMP=1 IF THE USER IS MENU JUMPING
  1. ;XQCH="HALT" if they typed halt
  1. ;B:DUZ=398 "S+"
  1. I $G(XQJMP) D
  1. .Q:'$G(XQJP)
  1. .S JUMPTO=$P(XQJP,",",$L(XQJP,",")-1)
  1. .S JUMPTO=$P($G(^DIC(19,JUMPTO,0)),U)
  1. I $G(UFMSESID),($G(XQCH)="HALT") D SIGNOUT^BARUFLOG Q
  1. I $G(UFMSESID),$G(XQJMP),($E($G(JUMPTO),1,3)'="BAR") D SIGNOUT^BARUFLOG Q
  1. I $G(UFMSESID),($P($G(XQSV),U,3)="BARMENU") D SIGNOUT^BARUFLOG Q
  1. I $G(UFMSESID),($G(XQUR)="Y") D SIGNOUT^BARUFLOG Q
  1. K DIR,DIC,DIQ
  1. D EN^XBVK("BAR")
  1. Q