- BARVKL0 ; IHS/SD/LSL - KILL NAME SPACE VARIABLES (BAR) ;
- ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005
- ;
- ;XQJMP=1 IF THE USER IS MENU JUMPING
- ;XQCH="HALT" if they typed halt
- ;B:DUZ=398 "S+"
- I $G(XQJMP) D
- .Q:'$G(XQJP)
- .S JUMPTO=$P(XQJP,",",$L(XQJP,",")-1)
- .S JUMPTO=$P($G(^DIC(19,JUMPTO,0)),U)
- I $G(UFMSESID),($G(XQCH)="HALT") D SIGNOUT^BARUFLOG Q
- I $G(UFMSESID),$G(XQJMP),($E($G(JUMPTO),1,3)'="BAR") D SIGNOUT^BARUFLOG Q
- I $G(UFMSESID),($P($G(XQSV),U,3)="BARMENU") D SIGNOUT^BARUFLOG Q
- I $G(UFMSESID),($G(XQUR)="Y") D SIGNOUT^BARUFLOG Q
- K DIR,DIC,DIQ
- D EN^XBVK("BAR")
- Q
- BARVKL0 ; IHS/SD/LSL - KILL NAME SPACE VARIABLES (BAR) ;
- +1 ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005
- +2 ;
- +3 ;XQJMP=1 IF THE USER IS MENU JUMPING
- +4 ;XQCH="HALT" if they typed halt
- +5 ;B:DUZ=398 "S+"
- +6 IF $GET(XQJMP)
- Begin DoDot:1
- +7 IF '$GET(XQJP)
- QUIT
- +8 SET JUMPTO=$PIECE(XQJP,",",$LENGTH(XQJP,",")-1)
- +9 SET JUMPTO=$PIECE($GET(^DIC(19,JUMPTO,0)),U)
- End DoDot:1
- +10 IF $GET(UFMSESID)
- IF ($GET(XQCH)="HALT")
- DO SIGNOUT^BARUFLOG
- QUIT
- +11 IF $GET(UFMSESID)
- IF $GET(XQJMP)
- IF ($EXTRACT($GET(JUMPTO),1,3)'="BAR")
- DO SIGNOUT^BARUFLOG
- QUIT
- +12 IF $GET(UFMSESID)
- IF ($PIECE($GET(XQSV),U,3)="BARMENU")
- DO SIGNOUT^BARUFLOG
- QUIT
- +13 IF $GET(UFMSESID)
- IF ($GET(XQUR)="Y")
- DO SIGNOUT^BARUFLOG
- QUIT
- +14 KILL DIR,DIC,DIQ
- +15 DO EN^XBVK("BAR")
- +16 QUIT