BARRBSL.m

BARRBSL ; IHS/SD/LSL - BATCH STATISTICAL LISTING RPT JAN 16,1997 ;

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

 ;

START ; EP

 ; Collections report using FM print

 D DATE

 G:$D(BAREFLG) END

 D DIPVAR

 D PRINT

 D EOP^BARUTL(1)

 ;

END ;

 Q

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

 ;

DATE ;

 ; Select Date Range

 D DATE^BARRADAL

 Q

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

 ;

PRINT ;**Print

 ;

 S BAR("SITE")=$P(^DIC(4,DUZ(2),0),U)

 S DIC="90051.01"

 S L=0

 S FR=BAR("BDOS")_","

 S TO=BAR("EDOS")_","

 D EN1^DIP

 ;

DSP ; EP for VALM

 D ^%ZISC,HOME^%ZIS

 Q

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

 ;

DIPVAR ;

 ; Set up DIP variables and Header routine

 Q:$D(BAREFLG)

 S BY="'4,+2;S2;L16"

 ; Changes required by new Collection Batch DD (Triggers)

 S FLDS="[BAR BSL DET]"

 S DHD="[BAR BSL HDR]"

 Q

BARRBSL   ; IHS/SD/LSL - BATCH STATISTICAL LISTING RPT JAN 16,1997 ;

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

 +2       ;

START     ; EP

 +1       ; Collections report using FM print

 +2        DO DATE

 +3        IF $DATA(BAREFLG)

               GOTO END

 +4        DO DIPVAR

 +5        DO PRINT

 +6        DO EOP^BARUTL(1)

 +7       ;

END       ;

 +1        QUIT 

 +2       ; *********************************************************************

 +3       ;

DATE      ;

 +1       ; Select Date Range

 +2        DO DATE^BARRADAL

 +3        QUIT 

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

 +5       ;

PRINT     ;**Print

 +1       ;

 +2        SET BAR("SITE")=$PIECE(^DIC(4,DUZ(2),0),U)

 +3        SET DIC="90051.01"

 +4        SET L=0

 +5        SET FR=BAR("BDOS")_","

 +6        SET TO=BAR("EDOS")_","

 +7        DO EN1^DIP

 +8       ;

DSP       ; EP for VALM

 +1        DO ^%ZISC

           DO HOME^%ZIS

 +2        QUIT 

 +3       ; *********************************************************************

 +4       ;

DIPVAR    ;

 +1       ; Set up DIP variables and Header routine

 +2        IF $DATA(BAREFLG)

               QUIT 

 +3        SET BY="'4,+2;S2;L16"

 +4       ; Changes required by new Collection Batch DD (Triggers)

 +5        SET FLDS="[BAR BSL DET]"

 +6        SET DHD="[BAR BSL HDR]"

 +7        QUIT