BARPMUP4.m

BARPMUP4 ; IHS/SD/LSL - OVERFLOW FROM BARPMUP2 ;

 ;;1.8;IHS ACCOUNTS RECEIVABLE;*24*;OCT 26, 2005;Build 69

 ;

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

 ;      Modified to carry through changes made to BARPMUP2

 ;JULY 2013 IHS/SD/SDR belcourt HEAT118656

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

 ;;

STAT ;EP - Status review of previous run

 S BARLDUZ=$G(^BARTMP("BARUP","DUZ(2)"))

 S BAREND=$G(^BARTMP("BARUP","PREVIOUS END DATE"))

 S BARSTART=$G(^BARTMP("BARUP","PREVIOUS START DATE"))

 S BARDA=$G(^BARTMP("BARUP","LAST BILL IEN",BARLDUZ))

 S BARBLNM=$G(^BARTMP("BARUP","LAST BILL NAME",BARLDUZ))

 S BARUSTAT=$G(^BARTMP("BARUP","STATUS"))

 S BARGO=$G(^BARTMP("BARUP","LAST AP DATE",BARLDUZ))

 S BARCNT=$G(^BARTMP("BARUP","COUNT"))

 S BARDTS=$G(^BARTMP("BARUP","LAST DATE"))

 W !,"PREVIOUS START DATE",?30,BARSTART

 W !,"PREVIOUS END DATE",?30,BAREND

 W !,"LAST 3P BILL LOCATION",?30,$$GET1^DIQ(4,BARLDUZ,.01)

 W !,"LAST BILL NAME",?30,BARBLNM

 W !,"LAST BILL IEN",?30,BARDA

 W !,"STATUS OF LAST RUN",?30,BARUSTAT

 W !,"LAST TRANSACTION TIME",?30,BARDTS

 ;W !,"UPLOAD COUNT",?30,+BARCNT,!!  ;IHS/SD/SDR belcourt HEAT118656

 W !,"BILLS REVIEWED COUNT",?30,+BARCNT,!!  ;IHS/SD/SDR belcourt HEAT118656

 I $D(^BARTMP("BARUP","ERRORS")) D

 . W "PAST BAD BILLS ARE:",!

 . W !,"# OF ERRORS: ",$O(^BARTMP("BARUP","ERRORS",""),-1)  ;belcourt HEAT118656

 . S BARDTS=""

 . F  S BARDTS=$O(^BARTMP("BARUP","ERRORS",BARDTS)) Q:'$L(BARDTS)  W !,?10,^(BARDTS)

 . W !!,"You must note the above as the >BAD< Bill(s) above"

 . W !,"did not cross over to A/R and will have to be manually"

 . ;W !,"uploaded after being reseached as to why they broke."  ;IHS/SD/SDR belcourt HEAT118656

 . W !,"uploaded after being researched as to why they broke."  ;IHS/SD/SDR belcourt HEAT118656

 . W !!

STATE Q

 ;;overflow from BARPMUP2

BARPMUP4  ; IHS/SD/LSL - OVERFLOW FROM BARPMUP2 ;

 +1       ;;1.8;IHS ACCOUNTS RECEIVABLE;*24*;OCT 26, 2005;Build 69

 +2       ;

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

 +4       ;      Modified to carry through changes made to BARPMUP2

 +5       ;JULY 2013 IHS/SD/SDR belcourt HEAT118656

 +6       ; *********************************************************************

 +7       ;;

STAT      ;EP - Status review of previous run

 +1        SET BARLDUZ=$GET(^BARTMP("BARUP","DUZ(2)"))

 +2        SET BAREND=$GET(^BARTMP("BARUP","PREVIOUS END DATE"))

 +3        SET BARSTART=$GET(^BARTMP("BARUP","PREVIOUS START DATE"))

 +4        SET BARDA=$GET(^BARTMP("BARUP","LAST BILL IEN",BARLDUZ))

 +5        SET BARBLNM=$GET(^BARTMP("BARUP","LAST BILL NAME",BARLDUZ))

 +6        SET BARUSTAT=$GET(^BARTMP("BARUP","STATUS"))

 +7        SET BARGO=$GET(^BARTMP("BARUP","LAST AP DATE",BARLDUZ))

 +8        SET BARCNT=$GET(^BARTMP("BARUP","COUNT"))

 +9        SET BARDTS=$GET(^BARTMP("BARUP","LAST DATE"))

 +10       WRITE !,"PREVIOUS START DATE",?30,BARSTART

 +11       WRITE !,"PREVIOUS END DATE",?30,BAREND

 +12       WRITE !,"LAST 3P BILL LOCATION",?30,$$GET1^DIQ(4,BARLDUZ,.01)

 +13       WRITE !,"LAST BILL NAME",?30,BARBLNM

 +14       WRITE !,"LAST BILL IEN",?30,BARDA

 +15       WRITE !,"STATUS OF LAST RUN",?30,BARUSTAT

 +16       WRITE !,"LAST TRANSACTION TIME",?30,BARDTS

 +17      ;W !,"UPLOAD COUNT",?30,+BARCNT,!!  ;IHS/SD/SDR belcourt HEAT118656

 +18      ;IHS/SD/SDR belcourt HEAT118656

           WRITE !,"BILLS REVIEWED COUNT",?30,+BARCNT,!!

 +19       IF $DATA(^BARTMP("BARUP","ERRORS"))

               Begin DoDot:1

 +20               WRITE "PAST BAD BILLS ARE:",!

 +21      ;belcourt HEAT118656

                   WRITE !,"# OF ERRORS: ",$ORDER(^BARTMP("BARUP","ERRORS",""),-1)

 +22               SET BARDTS=""

 +23               FOR 

                       SET BARDTS=$ORDER(^BARTMP("BARUP","ERRORS",BARDTS))

                       IF '$LENGTH(BARDTS)

                           QUIT 

                       WRITE !,?10,^(BARDTS)

 +24               WRITE !!,"You must note the above as the >BAD< Bill(s) above"

 +25               WRITE !,"did not cross over to A/R and will have to be manually"

 +26      ;W !,"uploaded after being reseached as to why they broke."  ;IHS/SD/SDR belcourt HEAT118656

 +27      ;IHS/SD/SDR belcourt HEAT118656

                   WRITE !,"uploaded after being researched as to why they broke."

 +28               WRITE !!

               End DoDot:1

STATE      QUIT 

 +1       ;;overflow from BARPMUP2