- 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
- Q
- 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