BAR50R02.m

BAR50R02 ;IHS/DIT/CPC - 20171031 A/R ERA CORRECTED INFORMATION NOTICE

 ;;1.8;IHS ACCOUNTS RECEIVABLE;**27**;NOV 30, 2017;Build 12

 ;

 ;

 ;

 ; IHS/DIT/CPC New Medicare Card Initiative CR09273 11/3/2017 - BAR*1.8*27

 ;

 ;

 ;

MENUHDR ;

 D ^BARBAN

 W !!

 W "This report will provide a list of corrected patient and/or insured",!

 W "information that is sent back in an ERA file from the payer. This report",!

 W "is informational only; there will be no changes made by this option to",!

 W "the patient/insured information in Patient Registration. Changes to",!

 W "Patient Registration data must be made manually.",!!

 W "Information reported on the RPMS line is pulled from RPMS Accounts",!

 W "Receivable. If an ERA claim cannot be matched to an RPMS Bill, there will",!

 W "not be a BILL# listed for the patient. Instead, the BILL(s) field will",!

 W "display the ERA claim number(s) along with "_""""_"BILL NOT FOUND IN RPMS"_"""",!

 W "(for example: 12345A-BILL NOT FOUND IN RPMS).",!!

 W "Information reported on the ERA line is pulled from the ERA file.",!

 Q

CENTER(TEXT,LNWDTH,LFILL,RFILL,CTRTXT) ;

 ;TEXT = TEXT TO CENTER

 ;LNWDTH = NUMBER OF CHARACTERS AVAILABLE IN LINE (DEFAULT 80)

 ;LFILL = CHARACTER TO PAD LEFT 

 ;RFILL = CHARACTER TO PAD RIGHT

 ;CTRTXT = ARRAY WITH CENTERED LINES - PASS BY REFERENCE

 Q:$L(TEXT)<1

 S:$G(LNWDTH)']"0" LNWDTH=80

 S CENTER=LNWDTH\2

 S K=($L(TEXT)\LNWDTH)+1

 F I=1:1:K D

 .I $L(TEXT)>LNWDTH D

 ..S J=$S($L(TEXT)\2>LNWDTH:CENTER,1:$L(TEXT)\2)

 ..F  Q:J>LNWDTH  D

 ...I $E(TEXT,J)=" " S CTRTXT(I)=$E(TEXT,1,J-1),TEXT=$E(TEXT,J+1,$L(TEXT)),J=LNWDTH

 ...S J=J+1

 .E  S CTRTXT(I)=TEXT

 S I=0 F  S I=$O(CTRTXT(I)) Q:I=""  D

 .S FILLTXT=""

 .F J=1:1:CENTER-($L(CTRTXT(I))\2) S FILLTXT=FILLTXT_LFILL

 .S CTRTXT(I)=FILLTXT_CTRTXT(I)

 .S FILLTXT=""

 .F J=1:1:LNWDTH-$L(CTRTXT(I)) S FILLTXT=FILLTXT_RFILL

 .S CTRTXT(I)=CTRTXT(I)_FILLTXT

 K I,J,K,FILLTXT,CENTER

 Q

BAR50R02  ;IHS/DIT/CPC - 20171031 A/R ERA CORRECTED INFORMATION NOTICE

 +1       ;;1.8;IHS ACCOUNTS RECEIVABLE;**27**;NOV 30, 2017;Build 12

 +2       ;

 +3       ;

 +4       ;

 +5       ; IHS/DIT/CPC New Medicare Card Initiative CR09273 11/3/2017 - BAR*1.8*27

 +6       ;

 +7       ;

 +8       ;

MENUHDR   ;

 +1        DO ^BARBAN

 +2        WRITE !!

 +3        WRITE "This report will provide a list of corrected patient and/or insured",!

 +4        WRITE "information that is sent back in an ERA file from the payer. This report",!

 +5        WRITE "is informational only; there will be no changes made by this option to",!

 +6        WRITE "the patient/insured information in Patient Registration. Changes to",!

 +7        WRITE "Patient Registration data must be made manually.",!!

 +8        WRITE "Information reported on the RPMS line is pulled from RPMS Accounts",!

 +9        WRITE "Receivable. If an ERA claim cannot be matched to an RPMS Bill, there will",!

 +10       WRITE "not be a BILL# listed for the patient. Instead, the BILL(s) field will",!

 +11       WRITE "display the ERA claim number(s) along with "_""""_"BILL NOT FOUND IN RPMS"_"""",!

 +12       WRITE "(for example: 12345A-BILL NOT FOUND IN RPMS).",!!

 +13       WRITE "Information reported on the ERA line is pulled from the ERA file.",!

 +14       QUIT 

CENTER(TEXT,LNWDTH,LFILL,RFILL,CTRTXT) ;

 +1       ;TEXT = TEXT TO CENTER

 +2       ;LNWDTH = NUMBER OF CHARACTERS AVAILABLE IN LINE (DEFAULT 80)

 +3       ;LFILL = CHARACTER TO PAD LEFT 

 +4       ;RFILL = CHARACTER TO PAD RIGHT

 +5       ;CTRTXT = ARRAY WITH CENTERED LINES - PASS BY REFERENCE

 +6        IF $LENGTH(TEXT)<1

               QUIT 

 +7        IF $GET(LNWDTH)']"0"

               SET LNWDTH=80

 +8        SET CENTER=LNWDTH\2

 +9        SET K=($LENGTH(TEXT)\LNWDTH)+1

 +10       FOR I=1:1:K

               Begin DoDot:1

 +11               IF $LENGTH(TEXT)>LNWDTH

                       Begin DoDot:2

 +12                       SET J=$SELECT($LENGTH(TEXT)\2>LNWDTH:CENTER,1:$LENGTH(TEXT)\2)

 +13                       FOR 

                               IF J>LNWDTH

                                   QUIT 

                               Begin DoDot:3

 +14                               IF $EXTRACT(TEXT,J)=" "

                                       SET CTRTXT(I)=$EXTRACT(TEXT,1,J-1)

                                       SET TEXT=$EXTRACT(TEXT,J+1,$LENGTH(TEXT))

                                       SET J=LNWDTH

 +15                               SET J=J+1

                               End DoDot:3

                       End DoDot:2

 +16              IF '$TEST

                       SET CTRTXT(I)=TEXT

               End DoDot:1

 +17       SET I=0

           FOR 

               SET I=$ORDER(CTRTXT(I))

               IF I=""

                   QUIT 

               Begin DoDot:1

 +18               SET FILLTXT=""

 +19               FOR J=1:1:CENTER-($LENGTH(CTRTXT(I))\2)

                       SET FILLTXT=FILLTXT_LFILL

 +20               SET CTRTXT(I)=FILLTXT_CTRTXT(I)

 +21               SET FILLTXT=""

 +22               FOR J=1:1:LNWDTH-$LENGTH(CTRTXT(I))

                       SET FILLTXT=FILLTXT_RFILL

 +23               SET CTRTXT(I)=CTRTXT(I)_FILLTXT

               End DoDot:1

 +24       KILL I,J,K,FILLTXT,CENTER

 +25       QUIT