BARAC.m

BARAC ; IHS/SD/LSL - A/R ACCOUNTS UTILITY ;

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

 ;;

 Q

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

 ;

DSP(DA)          ;** display an account

 N BART,I

 D ENP^XBDIQ1(90050.02,DA,".01;301:305","BART(")

 S I=""

 F  S I=$O(BART(I)) Q:I'>0  W !,I,?7,BART(I),?19,$P(^DD(90050.02,I,0),U)

 D EOP^BARUTL(0)

 ;

EDSP ;

 Q

BARAC     ; IHS/SD/LSL - A/R ACCOUNTS UTILITY ;

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

 +2       ;;

 +3        QUIT 

 +4       ; *********************************************************************

 +5       ;

DSP(DA)   ;** display an account

 +1        NEW BART,I

 +2        DO ENP^XBDIQ1(90050.02,DA,".01;301:305","BART(")

 +3        SET I=""

 +4        FOR 

               SET I=$ORDER(BART(I))

               IF I'>0

                   QUIT 

               WRITE !,I,?7,BART(I),?19,$PIECE(^DD(90050.02,I,0),U)

 +5        DO EOP^BARUTL(0)

 +6       ;

EDSP      ;

 +1        QUIT