BARPRF.m

BARPRF ; IHS/SD/LSL - REFUND ENTRY POINT JAN 15,1997 ;

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

 ;

EN ;

 D ^BARVKL0

 S BARESIG=""

 ;

ENTRY ;

 I '$G(BARESIG) D SIG^XUSESIG Q:X1=""  ;elec signature test

 S BARESIG=1

 I '$D(BARUSR) D INIT^BARUTL

 D RAYGO^BARPST

 W !!

 F  D  Q:BARPASS=0

 .S BARPASS=$$EN^BARPST1()

 .Q:BARPASS=0

 .S BARCNT=$$EN^BARPNP2(BARPASS)

 .I +BARCNT=0 W *7,!!,"No bills in this date range!" W !! Q

 .D EN^BARPRF3

 ;

EXIT ;

 D ^BARVKL0

 Q

BARPRF    ; IHS/SD/LSL - REFUND ENTRY POINT JAN 15,1997 ;

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

 +2       ;

EN        ;

 +1        DO ^BARVKL0

 +2        SET BARESIG=""

 +3       ;

ENTRY     ;

 +1       ;elec signature test

           IF '$GET(BARESIG)

               DO SIG^XUSESIG

               IF X1=""

                   QUIT 

 +2        SET BARESIG=1

 +3        IF '$DATA(BARUSR)

               DO INIT^BARUTL

 +4        DO RAYGO^BARPST

 +5        WRITE !!

 +6        FOR 

               Begin DoDot:1

 +7                SET BARPASS=$$EN^BARPST1()

 +8                IF BARPASS=0

                       QUIT 

 +9                SET BARCNT=$$EN^BARPNP2(BARPASS)

 +10               IF +BARCNT=0

                       WRITE *7,!!,"No bills in this date range!"

                       WRITE !!

                       QUIT 

 +11               DO EN^BARPRF3

               End DoDot:1

               IF BARPASS=0

                   QUIT 

 +12      ;

EXIT      ;

 +1        DO ^BARVKL0

 +2        QUIT