BARRFCR.m

BARRFCR ; IHS/SD/LSL - REPORT--FAC COLLECTIONS REGISTER JAN 16,1997 ;

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

 ;

START ; EP

 ; Collections report using FM print

 ;

 D DIPVAR

 G:$D(BAREFLG) END

 D PRINT

 D EOP^BARUTL(1)

 ;

END ;

 Q

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

 ;

LOOKUP ;

 ; Collection Register name lookup--Batch Name

 K DUOUT,DTOUT,BAREFLG

 S DIC="90051.01"

 S DIC(0)="AEMQZ"

 D ^DIC

 K DIC

 S:Y<0 BAREFLG=1

 S:$D(DUOUT) BAREFLG=1

 S:$D(DTOUT) BAREFLG=1

 I $D(BAREFLG) Q

 I Y>0 S BARBATCH=+Y,BARBEX=$P(Y(0),U)

 Q

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

 ;

PRINT ;

 ; Print

 S DIC="90051.01"

 S L=0

 I $D(BARBEX) S FR=BARBEX,TO=BARBEX

 D EN1^DIP

 D ^%ZISC,HOME^%ZIS

 Q

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

 ;

DIPVAR ;

 ; Set up Print Variables

 D LOOKUP

 Q:$D(BAREFLG)

 S DHD="[BAR CRH FAC]"

 S BY="[BAR CRS DET]"

 S FLDS="[BAR CR DET]"

 Q

BARRFCR   ; IHS/SD/LSL - REPORT--FAC COLLECTIONS REGISTER JAN 16,1997 ;

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

 +2       ;

START     ; EP

 +1       ; Collections report using FM print

 +2       ;

 +3        DO DIPVAR

 +4        IF $DATA(BAREFLG)

               GOTO END

 +5        DO PRINT

 +6        DO EOP^BARUTL(1)

 +7       ;

END       ;

 +1        QUIT 

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

 +3       ;

LOOKUP    ;

 +1       ; Collection Register name lookup--Batch Name

 +2        KILL DUOUT,DTOUT,BAREFLG

 +3        SET DIC="90051.01"

 +4        SET DIC(0)="AEMQZ"

 +5        DO ^DIC

 +6        KILL DIC

 +7        IF Y<0

               SET BAREFLG=1

 +8        IF $DATA(DUOUT)

               SET BAREFLG=1

 +9        IF $DATA(DTOUT)

               SET BAREFLG=1

 +10       IF $DATA(BAREFLG)

               QUIT 

 +11       IF Y>0

               SET BARBATCH=+Y

               SET BARBEX=$PIECE(Y(0),U)

 +12       QUIT 

 +13      ; *********************************************************************

 +14      ;

PRINT     ;

 +1       ; Print

 +2        SET DIC="90051.01"

 +3        SET L=0

 +4        IF $DATA(BARBEX)

               SET FR=BARBEX

               SET TO=BARBEX

 +5        DO EN1^DIP

 +6        DO ^%ZISC

           DO HOME^%ZIS

 +7        QUIT 

 +8       ; *********************************************************************

 +9       ;

DIPVAR    ;

 +1       ; Set up Print Variables

 +2        DO LOOKUP

 +3        IF $DATA(BAREFLG)

               QUIT 

 +4        SET DHD="[BAR CRH FAC]"

 +5        SET BY="[BAR CRS DET]"

 +6        SET FLDS="[BAR CR DET]"

 +7        QUIT