BARX003.m

BARX003 ; IHS/SD/LSL - X-REF FOR TRANS FILE ;

 ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005

 ;

SET(N) ; EP - set

 D SV

 I $G(BARX3("QUIT")) K BARX3 Q

 S ^BARTR(DUZ(2),"ACB",BARX3(14),BARX3(15),BARX3(101),DA)=""

 K BARX3

 Q

 ; *********************************************************************

 ;

KILL(N) ; EP - kill

 D SV

 I $G(BARX3("QUIT")) K BARX3 Q

 K ^BARTR(DUZ(2),"ACB",BARX3(14),BARX3(15),BARX3(101),DA)

 K BARX3

 Q

 ; *********************************************************************

 ;

SV ; SET VARIABLES

 K BARX3

 S BARX3(N)=X

 S:'$G(BARX3(14)) BARX3(14)=$P($G(^BARTR(DUZ(2),DA,0)),"^",14)

 I 'BARX3(14) S BARX3("QUIT")=1 Q

 S:'$G(BARX3(15)) BARX3(15)=$P($G(^BARTR(DUZ(2),DA,0)),"^",15)

 I 'BARX3(15) S BARX3("QUIT")=1 Q

 S:'$G(BARX3(101)) BARX3(101)=$P($G(^BARTR(DUZ(2),DA,1)),"^",1)

 I 'BARX3(101) S BARX3("QUIT")=1

 Q

BARX003   ; IHS/SD/LSL - X-REF FOR TRANS FILE ;

 +1       ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005

 +2       ;

SET(N)    ; EP - set

 +1        DO SV

 +2        IF $GET(BARX3("QUIT"))

               KILL BARX3

               QUIT 

 +3        SET ^BARTR(DUZ(2),"ACB",BARX3(14),BARX3(15),BARX3(101),DA)=""

 +4        KILL BARX3

 +5        QUIT 

 +6       ; *********************************************************************

 +7       ;

KILL(N)   ; EP - kill

 +1        DO SV

 +2        IF $GET(BARX3("QUIT"))

               KILL BARX3

               QUIT 

 +3        KILL ^BARTR(DUZ(2),"ACB",BARX3(14),BARX3(15),BARX3(101),DA)

 +4        KILL BARX3

 +5        QUIT 

 +6       ; *********************************************************************

 +7       ;

SV        ; SET VARIABLES

 +1        KILL BARX3

 +2        SET BARX3(N)=X

 +3        IF '$GET(BARX3(14))

               SET BARX3(14)=$PIECE($GET(^BARTR(DUZ(2),DA,0)),"^",14)

 +4        IF 'BARX3(14)

               SET BARX3("QUIT")=1

               QUIT 

 +5        IF '$GET(BARX3(15))

               SET BARX3(15)=$PIECE($GET(^BARTR(DUZ(2),DA,0)),"^",15)

 +6        IF 'BARX3(15)

               SET BARX3("QUIT")=1

               QUIT 

 +7        IF '$GET(BARX3(101))

               SET BARX3(101)=$PIECE($GET(^BARTR(DUZ(2),DA,1)),"^",1)

 +8        IF 'BARX3(101)

               SET BARX3("QUIT")=1

 +9        QUIT