BARVKL0.m

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