- BAREDLM1 ; IHS/SD/LSL - Main program to call ListMan AR File output ;
- ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005
- ;
- ;
- Q
- ; *********************************************************************
- ;
- EN ; Entry point
- ;
- W #
- S Y=$$SELTRAN^BAREDI01
- Q:Y'>0
- S DLFL=Y
- D EN^BAREDLA1(DLFL)
- Q
- BAREDLM1 ; IHS/SD/LSL - Main program to call ListMan AR File output ;
- +1 ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005
- +2 ;
- +3 ;
- +4 QUIT
- +5 ; *********************************************************************
- +6 ;
- EN ; Entry point
- +1 ;
- +2 WRITE #
- +3 SET Y=$$SELTRAN^BAREDI01
- +4 IF Y'>0
- QUIT
- +5 SET DLFL=Y
- +6 DO EN^BAREDLA1(DLFL)
- +7 QUIT