BARPNP.m

BARPNP ; IHS/SD/LSL - POSTING ;

 ;;1.8;IHS ACCOUNTS RECEIVABLE;**21**;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

 ;IHS/SD/TPF BAR*1.8*21 8/3/2011 HEAT20490

 I $$NOTOPEN^BARUFUT(.DUZ,$G(UFMSESID)) Q  ;IS SESSION STILL OPEN

 W !!

 F  D  Q:BARPASS=0

 .S BARPASS=$$EN^BARPST1()

 .Q:BARPASS=0!($G(UFMSESID)="")

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

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

 .D EN^BARPNP3

 ;

EXIT ;

 D ^BARVKL0

 Q

BARPNP    ; IHS/SD/LSL - POSTING ;

 +1       ;;1.8;IHS ACCOUNTS RECEIVABLE;**21**;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       ;IHS/SD/TPF BAR*1.8*21 8/3/2011 HEAT20490

 +6       ;IS SESSION STILL OPEN

           IF $$NOTOPEN^BARUFUT(.DUZ,$GET(UFMSESID))

               QUIT 

 +7        WRITE !!

 +8        FOR 

               Begin DoDot:1

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

 +10               IF BARPASS=0!($GET(UFMSESID)="")

                       QUIT 

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

 +12               IF +BARCNT=0

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

                       WRITE !!

                       QUIT 

 +13               DO EN^BARPNP3

               End DoDot:1

               IF BARPASS=0

                   QUIT 

 +14      ;

EXIT      ;

 +1        DO ^BARVKL0

 +2        QUIT