BAR50LM1.m

BAR50LM1 ; IHS/SD/LSL - Main program to call ListMan AR File output ;

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

 ;

 ;

 Q

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

 ;

EN ; Entry point

 ;

 W #

 S Y=$$SELTRAN^BAR50I01

 Q:Y'>0

 S DLFL=Y

 D EN^BAREDLA1(DLFL)

 Q

BAR50LM1  ; IHS/SD/LSL - Main program to call ListMan AR File output ;

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

 +2       ;

 +3       ;

 +4        QUIT 

 +5       ; *********************************************************************

 +6       ;

EN        ; Entry point

 +1       ;

 +2        WRITE #

 +3        SET Y=$$SELTRAN^BAR50I01

 +4        IF Y'>0

               QUIT 

 +5        SET DLFL=Y

 +6        DO EN^BAREDLA1(DLFL)

 +7        QUIT