BARRNBRC.m

BARRNBRC ; IHS/SD/POT - Non Ben Payment Report PART 3 ; 08/20/2008

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

 ; IHS/SD/POT 07/15/13 HEAT114352 NEW REPORT BAR*1.8*24

 ; IHS/SD/POT 03/20/2014 FIXED ERROR IN PATIENT SELECTION "NO ACCOUNT ASSOCIATED WITH THIS PATIENT?!?" 

 Q

 ; ******

LOC ; EP

 ; Select Location inclusion parameters

 W !

 K DIC,BARY("LOC")

 S DIC="^BAR(90052.05,DUZ(2),"

 S DIC(0)="ZAEMQ"

 S DIC("A")="Select Visit LOCATION: "

 D ^DIC

 K DIC

 Q:$D(DTOUT)!($D(DUOUT))

 Q:+Y<1

 S BARY("LOC")=+Y

 S BARY("LOC","NM")=Y(0,0)

 Q

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

TYP ;

 K DIR,BARY("TYP"),BARY("ACCT")

 ;;;K BARY("PAT")

 K BARY("ALL"),BARY("ITYP")

 S BARY("TYP")="^N^"

 S BARY("TYP","NM")="NON-BENEFICIARY"

 Q

ACCT ; 

 ; Specific insurer of billing entity parameter

 Q

 ; *******

PAT ;

 ; Specific patient of billing entity parameter

 N BARTMP1,BARTMP2

PAT1 K BARY("TYP"),BARY("PAT")

 S DIC="^AUPNPAT("

 S DIC(0)="ZQEAM"

 D ^DIC

 K DIC

 Q:$D(DTOUT)!($D(DUOUT))

 K AUPNLK("ALL")

 Q:+Y<0

 ;3/20/2014 CODE DEACTIVATED

 ;I '$D(^BARAC(DUZ(2),"B",+Y_";AUPNPAT(")) D  G PAT

 ;. W !,"NO ACCOUNT ASSOCIATED WITH THIS PATIENT?!?"

 ;S BARTMP1=$O(^BARAC(DUZ(2),"B",+Y_";AUPNPAT("))

 ;I BARTMP1="" D  G PAT1

 ;. W !,"NO ACCOUNT ASSOCIATED WITH THIS PATIENT?!?"

 ;S BARTMP2=$P($G(^BARAC(DUZ(2),BARTMP1,1)),U,15) I BARTMP2 D  G PAT1

 ; . W !,"THIS IS NOT A NON-BENEFICIARY PATIENT"

 S BARY("PAT")=+Y

 S BARY("PAT","NM")=Y(0,0)

 Q

 ; **********

DT ; EP

 ; Select Date inclusion parameter

 K DIR,BARY("DT"),BARTYP

 S DIR(0)="SO^1:Visit Date;2:Transaction Date"

 S DIR("A")="Select TYPE of DATE Desired"

 D ^DIR

 K DIR

 I $D(DUOUT)!$D(DTOUT) S BARDONE=1 Q  ;P.OTT AUG

 S BARTYP=Y

 ;

DTYP ;

 K DIRUT,DUOUT,DTOUT

 S BARY("DT")=$S(BARTYP=1:"V",BARTYP=2:"T",1:"V")

 ;

 S BARDTYP="VISIT"

 S:BARTYP=2 BARDTYP="TRANSACTION"

 S BARDTYP=BARDTYP_" DATE"

 W !!," ============ Entry of ",BARDTYP," Range =============",!

 S DIR("A")="Enter STARTING "_BARDTYP_" for the Report"

 S DIR(0)="DOE"

 D ^DIR

 G DT:$D(DIRUT)

 S BARY("DT",1)=Y

 W !

 S DIR("A")="Enter ENDING DATE for the Report"

 S DIR(0)="DOE"

 D ^DIR

 K DIR

 G DT:$D(DIRUT)

 S BARY("DT",2)=Y

 I BARY("DT",1)>BARY("DT",2) W !!,*7,"INPUT ERROR: Start Date is Greater than the End Date, TRY AGAIN!",!! G DTYP

 Q

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

PRV ; EP

 ; Select Provider Inclusion Parameter

 K BARY("PRV")

 W !

 S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"

 S DIC="^VA(200,"

 S DIC(0)="QEAM"

 D ^DIC

 I $D(DTOUT)!($D(DUOUT)) S BARDONE=1 Q

 K DIC

 S:+Y>0 BARY("PRV")=+Y

 Q

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

ISNB(BARBL) ;

 N BARTMP,BARBSTAT,BARPTAC,BARACDA

 S BARACDA=$P($G(^BARBL(DUZ(2),BARBL)),U,3)

 K BARTMP

 D ENP^XBDIQ1(90050.01,BARBL,".01;3;13;15;16;17;17.2;22;101;102;108;112;113;114;115","BARTMP(","I")

 S BARBSTAT=BARTMP(17.2)  ;Bill Status in TPB which can be diff from A/R

 ;If bill is in list & has pmts applied, it should print on stmt anyway

 I BARBSTAT="CANCELLED" Q "0;CANCELLED"  ;S BARCXL=1  ; if cancelled 1.8*19

 S BARPTAC=$S(BARACDA=BARTMP(3,"I"):1,1:0)  ; PT Resp if INSURER TYPE=NON-BEN or INSURER=SELF

 N D0,X

 S D0=BARTMP(3,"I")

 S X=$$VAL^BARVPM(8) ;(STRING)

 ;W !,BARBL," ==> ",X," ===> IS NON-BEN: ",BARTMP(115)," ; ",BARTMP(115,"I")

 I X["NON-BEN"!(BARPTAC'=0) Q 1  ;

 Q 0

 ;90050.01,115  BEN/NON-BEN            1;15 SET

 ;                               '0' FOR NON-BENEFICIARY;

 ;                               '1' FOR BENEFICIARY;

GETNBIT() ;RETURNS INS TYPE (TO FIND IN ACCOUNT #)

 Q $O(^AUTNINS("B","NON-BENEFICIARY PATIENT",""))

 ;

BARRNBRC  ; IHS/SD/POT - Non Ben Payment Report PART 3 ; 08/20/2008

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

 +2       ; IHS/SD/POT 07/15/13 HEAT114352 NEW REPORT BAR*1.8*24

 +3       ; IHS/SD/POT 03/20/2014 FIXED ERROR IN PATIENT SELECTION "NO ACCOUNT ASSOCIATED WITH THIS PATIENT?!?" 

 +4        QUIT 

 +5       ; ******

LOC       ; EP

 +1       ; Select Location inclusion parameters

 +2        WRITE !

 +3        KILL DIC,BARY("LOC")

 +4        SET DIC="^BAR(90052.05,DUZ(2),"

 +5        SET DIC(0)="ZAEMQ"

 +6        SET DIC("A")="Select Visit LOCATION: "

 +7        DO ^DIC

 +8        KILL DIC

 +9        IF $DATA(DTOUT)!($DATA(DUOUT))

               QUIT 

 +10       IF +Y<1

               QUIT 

 +11       SET BARY("LOC")=+Y

 +12       SET BARY("LOC","NM")=Y(0,0)

 +13       QUIT 

 +14      ; **************

TYP       ;

 +1        KILL DIR,BARY("TYP"),BARY("ACCT")

 +2       ;;;K BARY("PAT")

 +3        KILL BARY("ALL"),BARY("ITYP")

 +4        SET BARY("TYP")="^N^"

 +5        SET BARY("TYP","NM")="NON-BENEFICIARY"

 +6        QUIT 

ACCT      ; 

 +1       ; Specific insurer of billing entity parameter

 +2        QUIT 

 +3       ; *******

PAT       ;

 +1       ; Specific patient of billing entity parameter

 +2        NEW BARTMP1,BARTMP2

PAT1       KILL BARY("TYP"),BARY("PAT")

 +1        SET DIC="^AUPNPAT("

 +2        SET DIC(0)="ZQEAM"

 +3        DO ^DIC

 +4        KILL DIC

 +5        IF $DATA(DTOUT)!($DATA(DUOUT))

               QUIT 

 +6        KILL AUPNLK("ALL")

 +7        IF +Y<0

               QUIT 

 +8       ;3/20/2014 CODE DEACTIVATED

 +9       ;I '$D(^BARAC(DUZ(2),"B",+Y_";AUPNPAT(")) D  G PAT

 +10      ;. W !,"NO ACCOUNT ASSOCIATED WITH THIS PATIENT?!?"

 +11      ;S BARTMP1=$O(^BARAC(DUZ(2),"B",+Y_";AUPNPAT("))

 +12      ;I BARTMP1="" D  G PAT1

 +13      ;. W !,"NO ACCOUNT ASSOCIATED WITH THIS PATIENT?!?"

 +14      ;S BARTMP2=$P($G(^BARAC(DUZ(2),BARTMP1,1)),U,15) I BARTMP2 D  G PAT1

 +15      ; . W !,"THIS IS NOT A NON-BENEFICIARY PATIENT"

 +16       SET BARY("PAT")=+Y

 +17       SET BARY("PAT","NM")=Y(0,0)

 +18       QUIT 

 +19      ; **********

DT        ; EP

 +1       ; Select Date inclusion parameter

 +2        KILL DIR,BARY("DT"),BARTYP

 +3        SET DIR(0)="SO^1:Visit Date;2:Transaction Date"

 +4        SET DIR("A")="Select TYPE of DATE Desired"

 +5        DO ^DIR

 +6        KILL DIR

 +7       ;P.OTT AUG

           IF $DATA(DUOUT)!$DATA(DTOUT)

               SET BARDONE=1

               QUIT 

 +8        SET BARTYP=Y

 +9       ;

DTYP      ;

 +1        KILL DIRUT,DUOUT,DTOUT

 +2        SET BARY("DT")=$SELECT(BARTYP=1:"V",BARTYP=2:"T",1:"V")

 +3       ;

 +4        SET BARDTYP="VISIT"

 +5        IF BARTYP=2

               SET BARDTYP="TRANSACTION"

 +6        SET BARDTYP=BARDTYP_" DATE"

 +7        WRITE !!," ============ Entry of ",BARDTYP," Range =============",!

 +8        SET DIR("A")="Enter STARTING "_BARDTYP_" for the Report"

 +9        SET DIR(0)="DOE"

 +10       DO ^DIR

 +11       IF $DATA(DIRUT)

               GOTO DT

 +12       SET BARY("DT",1)=Y

 +13       WRITE !

 +14       SET DIR("A")="Enter ENDING DATE for the Report"

 +15       SET DIR(0)="DOE"

 +16       DO ^DIR

 +17       KILL DIR

 +18       IF $DATA(DIRUT)

               GOTO DT

 +19       SET BARY("DT",2)=Y

 +20       IF BARY("DT",1)>BARY("DT",2)

               WRITE !!,*7,"INPUT ERROR: Start Date is Greater than the End Date, TRY AGAIN!",!!

               GOTO DTYP

 +21       QUIT 

 +22      ; **************************

PRV       ; EP

 +1       ; Select Provider Inclusion Parameter

 +2        KILL BARY("PRV")

 +3        WRITE !

 +4        SET DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"

 +5        SET DIC="^VA(200,"

 +6        SET DIC(0)="QEAM"

 +7        DO ^DIC

 +8        IF $DATA(DTOUT)!($DATA(DUOUT))

               SET BARDONE=1

               QUIT 

 +9        KILL DIC

 +10       IF +Y>0

               SET BARY("PRV")=+Y

 +11       QUIT 

 +12      ; *******************************

ISNB(BARBL) ;

 +1        NEW BARTMP,BARBSTAT,BARPTAC,BARACDA

 +2        SET BARACDA=$PIECE($GET(^BARBL(DUZ(2),BARBL)),U,3)

 +3        KILL BARTMP

 +4        DO ENP^XBDIQ1(90050.01,BARBL,".01;3;13;15;16;17;17.2;22;101;102;108;112;113;114;115","BARTMP(","I")

 +5       ;Bill Status in TPB which can be diff from A/R

           SET BARBSTAT=BARTMP(17.2)

 +6       ;If bill is in list & has pmts applied, it should print on stmt anyway

 +7       ;S BARCXL=1  ; if cancelled 1.8*19

           IF BARBSTAT="CANCELLED"

               QUIT "0;CANCELLED"

 +8       ; PT Resp if INSURER TYPE=NON-BEN or INSURER=SELF

           SET BARPTAC=$SELECT(BARACDA=BARTMP(3,"I"):1,1:0)

 +9        NEW D0,X

 +10       SET D0=BARTMP(3,"I")

 +11      ;(STRING)

           SET X=$$VAL^BARVPM(8)

 +12      ;W !,BARBL," ==> ",X," ===> IS NON-BEN: ",BARTMP(115)," ; ",BARTMP(115,"I")

 +13      ;

           IF X["NON-BEN"!(BARPTAC'=0)

               QUIT 1

 +14       QUIT 0

 +15      ;90050.01,115  BEN/NON-BEN            1;15 SET

 +16      ;                               '0' FOR NON-BENEFICIARY;

 +17      ;                               '1' FOR BENEFICIARY;

GETNBIT() ;RETURNS INS TYPE (TO FIND IN ACCOUNT #)

 +1        QUIT $ORDER(^AUTNINS("B","NON-BENEFICIARY PATIENT",""))

 +2       ;