Routine: BARBAD

BARBAD ; IHS/SD/AR - POST STATUS CHANGE APR 12, 2010 ; 04/12/2010

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

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

EN ;

 S BARESIG=""

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

 S BARESIG=1

 I '$D(BARUSR) D INIT^BARUTL

 W !!

ENTRY ;

 N BARPASS

 S BARPASS=""

 S BARPASS=$$EN^BARBAD1()

 Q:BARPASS=0

 S BARCNT=$$EN^BARBAD2(BARPASS)

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

 D EN^BARBAD3

 G ENTRY

BARBAD    ; IHS/SD/AR - POST STATUS CHANGE APR 12, 2010 ; 04/12/2010

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

 +2       ;

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

 +4       ;

EN        ;

 +1        SET BARESIG=""

 +2       ;elec signature test

           IF '$GET(BARESIG)

               DO SIG^XUSESIG

               IF X1=""

                   QUIT

 +3        SET BARESIG=1

 +4        IF '$DATA(BARUSR)

               DO INIT^BARUTL

 +5        WRITE !!

 +6       ;

ENTRY     ;

 +1        NEW BARPASS

 +2        SET BARPASS=""

 +3        SET BARPASS=$$EN^BARBAD1()

 +4        IF BARPASS=0

               QUIT

 +5        SET BARCNT=$$EN^BARBAD2(BARPASS)

 +6        IF +BARCNT=0

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

               WRITE !!

               QUIT

 +7        DO EN^BARBAD3

 +8        GOTO ENTRY

 +9        QUIT

BARBAD.m