BARUPCHK.m

BARUPCHK ; IHS/SD/LSL - CHECK 3P UPLOAD ;

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

 ;;

 ; IHS/SD/LSL - 12/17/02 - V1.7 - NHA-0601-180049

 ;      Modified to find bill in 3P correctly.  Responsible for

 ;      entire routine.  Removed TPR (Reload by date) option and

 ;      related code.

 ;

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

 ;

CMP(BARUPDA)         ;EP Compare 3p abma to a/r called from BARUP1

 S BARDSP=$G(^TMP("BAR",$J,"BARUPDSP",$J))

 S BARDIF=0,BARSHOW=0

 D BILL^BARUPCH2

 S BARDSP=$G(^TMP("BAR",$J,"BARUPDSP",$J))

 I BARDSP,BARDIF D DIF

 S BARDIF=+$G(BARDIF)

 Q BARDIF

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

 ;

DIF ;EP display differences

 Q:'BARDSP

 S BARSHOW=1

 D BILL^BARUPCH2

 D IT^BARUPCH2

 Q

BARUPCHK  ; IHS/SD/LSL - CHECK 3P UPLOAD ;

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

 +2       ;;

 +3       ; IHS/SD/LSL - 12/17/02 - V1.7 - NHA-0601-180049

 +4       ;      Modified to find bill in 3P correctly.  Responsible for

 +5       ;      entire routine.  Removed TPR (Reload by date) option and

 +6       ;      related code.

 +7       ;

 +8       ; *********************************************************************

 +9       ;

CMP(BARUPDA) ;EP Compare 3p abma to a/r called from BARUP1

 +1        SET BARDSP=$GET(^TMP("BAR",$JOB,"BARUPDSP",$JOB))

 +2        SET BARDIF=0

           SET BARSHOW=0

 +3        DO BILL^BARUPCH2

 +4        SET BARDSP=$GET(^TMP("BAR",$JOB,"BARUPDSP",$JOB))

 +5        IF BARDSP

               IF BARDIF

                   DO DIF

 +6        SET BARDIF=+$GET(BARDIF)

 +7        QUIT BARDIF

 +8       ; ********************************************************************

 +9       ;

DIF       ;EP display differences

 +1        IF 'BARDSP

               QUIT 

 +2        SET BARSHOW=1

 +3        DO BILL^BARUPCH2

 +4        DO IT^BARUPCH2

 +5        QUIT