BARPMUP.m

BARPMUP ; IHS/SD/LSL - MANUAL UPLOAD PROCESS JAN 15,1997 ;

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

 ;

 ; IHS/SD/LSL - 06/09/03 - V1.7 Patch 1

 ;      Modified to set BAR("OPT") to menu option to disquinish

 ;      Single bill upload during AR Bill creation

 ;

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

 ;** Manual upload process

 ;

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

 S BAROPT="Upload 1 bill"

 ;

LOOP ;

 F  D  Q:Y<0

 .W !!

 .D ONE^BARPMUP1

 ;

EXIT ;

 D EOP^BARUTL(1)

 D ^BARVKL0

 Q

BARPMUP   ; IHS/SD/LSL - MANUAL UPLOAD PROCESS JAN 15,1997 ;

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

 +2       ;

 +3       ; IHS/SD/LSL - 06/09/03 - V1.7 Patch 1

 +4       ;      Modified to set BAR("OPT") to menu option to disquinish

 +5       ;      Single bill upload during AR Bill creation

 +6       ;

 +7       ; ********************************************************************

 +8       ;** Manual upload process

 +9       ;

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        SET BAROPT="Upload 1 bill"

 +5       ;

LOOP      ;

 +1        FOR 

               Begin DoDot:1

 +2                WRITE !!

 +3                DO ONE^BARPMUP1

               End DoDot:1

               IF Y<0

                   QUIT 

 +4       ;

EXIT      ;

 +1        DO EOP^BARUTL(1)

 +2        DO ^BARVKL0

 +3        QUIT