BARRCHK1 ; IHS/SD/LSL - Report Utility 2 to Check Parms ;12/19/2008
;;1.8;IHS ACCOUNTS RECEIVABLE;**6,7,10,19,20,23**;OCT 26, 2005
; MODIFIED XTMP FILE NAME TO TMP TO MEET SAC REQUIREMENTS;MRS:BAR*1.8*7 IM29892
;CREATED BECAUSE BARRCHK WAS GREATER THAN 15K
; TMM 08/18/10 V1.8*19
; Fix issue - Adjustments not displaying on TSR report
; TMM 08/19/10 V1.8*19
; TSR report should display A/R Account from A/R Transaction, not from A/R Bill
; P.OTTIS MAR 2013 ADDED NEW INS TYPE
; P.OTTIS SEP 2013,OCT 2013 BETA YAK: FIXED BARTR("BI")
Q
;
TRANS ;EP - CALLED FROM BARRCHK
; for checking Transaction File data parameters
S BARP("HIT")=0
S:$G(BAR("SUBR"))="" BAR("SUBR")=$S($G(BAR("RTN"))'="":BAR("RTN"),1:"UNKNOWN CALL")
I '$D(^BARTR(DUZ(2),BARTR,0)) S:$G(DEBUG) ^TMP($J,"BAR-"_BAR("SUBR"),"REASON REJECTED","NO ZERO NODE",BARTR)="" Q
S BARTR(0)=$G(^BARTR(DUZ(2),BARTR,0)) ; A/R Transaction 0 node
I '$D(^BARTR(DUZ(2),BARTR,1)) S:$G(DEBUG) ^TMP($J,"BAR-"_BAR("SUBR"),"REASON REJECTED","NO 1 NODE",BARTR)="" Q
S BARTR(1)=$G(^BARTR(DUZ(2),BARTR,1)) ; A/R Transaction 1 node
S BARTR("DATA SRC")=$S($P(BARTR(1),U,6)'="":$P(BARTR(1),U,6),1:"m") ;A/R Transaction DATA SOURCE (e=ERA posted) ;bar*1.8*20 REQ10
S BARTR("T")=$P(BARTR(1),U) ; Transaction type
S BARTR("ADJ CAT")=$P(BARTR(1),U,2) ;Adjustment Category
S BARTR("ADJ TYPE")=$P(BARTR(1),U,3) ;Adjustment Type
S:BARTR("T")="" BARTR("T")="NULL" ;bar*1.8*20 HEAT25436
S:BARTR("ADJ CAT")="" BARTR("ADJ CAT")="NULL"
S:BARTR("ADJ TYPE")="" BARTR("ADJ TYPE")="NULL" ;*TMM*1.8*19
I $D(BARY("TRANS TYPE")),'$D(BARY("TRANS TYPE",BARTR("T"))) D Q
.S:$G(DEBUG) ^TMP($J,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN TRANSACTION TYPE",$P(BARTR(0),U))=BARTR("T")
I $D(BARY("TRANS TYPE","ADJ CAT")),'$D(BARY("TRANS TYPE","ADJ CAT",BARTR("ADJ CAT"))) D Q
.S:$G(DEBUG) ^TMP($J,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN ADJUSTMENT CATEGORY",$P(BARTR(0),U))=BARTR("ADJ CAT")
I $D(BARY("TRANS TYPE","ADJ TYPE")),'$D(BARY("TRANS TYPE","ADJ TYPE",BARTR("ADJ TYPE"))) D Q ;TMM*1.8*19
.S:$G(DEBUG) ^TMP($J,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN ADJ TYPE",$P(BARTR(0),U))=BARTR("ADJ TYPE")
S BARTR("DT")=$P(BARTR(0),U) ; Transaction date/time
S BARTR("B")=$P(BARTR(0),U,14) ; A/R Collection batch IEN
K BARTR("B DT")
I BARTR("B")'="" D
.S BARTR("B DT")=$P($P($G(^BARCOL(DUZ(2),BARTR("B"),0)),U,4),".") ;MRS:BAR*1.8*10 IM30590
;
S:BARTR("B")="" BARTR("B")="No Collection Batch"
S BARTR("IT")=$P(BARTR(0),U,15) ; A/R Collection batch item
S:BARTR("IT")="" BARTR("IT")="No Collection Batch Item"
K BAR("QUIT")
I $G(BARY("DT"))="B" D Q:$G(BAR("QUIT"))
.I '$G(BARTR("B DT")) S BAR("QUIT")=1 S:$G(DEBUG) ^TMP($J,"BAR-"_BAR("SUBR"),"REASON REJECTED","NO BATCH DATE",$P(BARTR(0),U))="" Q
.I $D(BARTR("B DT")) D Q:$G(BAR("QUIT")) ; Not chosen batch date ;BAR*1.8*6 DD 4.1.1
..S:BARTR("B DT")<BARY("DT",1) BAR("QUIT")=1
..S:BARTR("B DT")>BARY("DT",2) BAR("QUIT")=1
..I $G(BAR("QUIT")) S:$G(DEBUG) ^TMP($J,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN BATCH DATE",$P(BARTR(0),U))=""
S BARTR("AR")=$P(BARTR(0),U,13) ; Entry by (AR Clerk)
S:BARTR("AR")="" BARTR("AR")=9999999
S:'$D(BARY("AR")) BARTR("AR")=0
S BARTR("CR-DB")=$$GET1^DIQ(90050.03,BARTR,3.5)
S BAR=$P(BARTR(0),U,4) ; A/R Bill IEN
I $D(BARY("BATCH")),BARTR("T")=100 S BAR("UN-ALLOCATED",BARTR("IT"))=$G(BAR("UN-ALLOCATED",BARTR("IT")))+BARTR("CR-DB")_U_DUZ(2)
I '+BAR S:$G(DEBUG) ^TMP($J,"BAR-"_BAR("SUBR"),"REASON REJECTED","NO BILL FOR TRANSACTION",$P(BARTR(0),U))=""
Q:'+BAR ; No bill for transaction
I '$D(^BARBL(DUZ(2),BAR)) S:$G(DEBUG) ^TMP($J,"BAR-"_BAR("SUBR"),"REASON REJECTED","TRANS PTS TO NON EXIST BILL",$P(BARTR(0),U))=""
Q:'$D(^BARBL(DUZ(2),BAR)) ; Trans points to non-existent bill
S BAR(0)=$G(^BARBL(DUZ(2),BAR,0)) ; A/R Bill 0 node
S BAR(10)=$G(^BARBL(DUZ(2),BAR,1)) ; A/R Bill 1 node
S BARTR("DOS BEGIN")=$P(BAR(10),U,2) ;A/R Bill DOS BEGIN
S BARTR("3P APPROVAL")=$P(BAR(0),U,18) ;3P APPROVAL DATE
S BARTR("3P PRINT")=$P(BAR(0),U,19) ;3P PRINT DATE
K BAR("QUIT")
I $G(BARY("DT"))="V" D Q:$G(BAR("QUIT")) ; Not chosen visit date
. S:BARTR("DOS BEGIN")<BARY("DT",1) BAR("QUIT")=1
. S:$P(BARTR("DOS BEGIN"),".")>BARY("DT",2) BAR("QUIT")=1
. I $G(BAR("QUIT")) S:$G(DEBUG) ^TMP($J,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN VISIT DATE",$P(BARTR(0),U))=""
I $G(BARY("DT"))="A" D Q:$G(BAR("QUIT")) ; Not chosen approval date
. S:BARTR("3P APPROVAL")<BARY("DT",1) BAR("QUIT")=1
. S:$P(BARTR("3P APPROVAL"),".")>BARY("DT",2) BAR("QUIT")=1
. I $G(BAR("QUIT")) S:$G(DEBUG) ^TMP($J,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN APPROVAL DATE",$P(BARTR(0),U))=""
I $G(BARY("DT"))="X" D Q:$G(BAR("QUIT")) ; Not chosen export date
. S:BARTR("3P PRINT")<BARY("DT",1) BAR("QUIT")=1
. S:$P(BARTR("3P PRINT"),".")>BARY("DT",2) BAR("QUIT")=1
. I $G(BAR("QUIT")) S:$G(DEBUG) ^TMP($J,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN EXPORT DATE",$P(BARTR(0),U))=""
S BARTR("I")=$P(BAR(0),U,3) ; A/R Account
S BARTR("L")=$P(BAR(10),U,8) ; Visit location
S BAR("PV")=$P(BAR(10),U,13) ; Provider (New Person)
S BAR("V")=$P(BAR(10),U,14) ; Visit type (3P Visit Type)
S BAR("C")=$P(BAR(10),U,12) ; Clinic (Clinic Stop File)
S BAR("DS")=$$GET1^DIQ(90050.01,BAR,23) ; Discharge Service (#)
S BARTMP=BARTR("I")
S BARTR("BI")=$$GETBI(BARTMP) ; Insurer Type / BILLING ENTITY CODE
I $G(BARTR("BI"))="" S BARTR("BI")="No Billing Entity"
I BARTR("BI")'="No Billing Entity" D
. S BARTR("ALL")="O" ; Other Allow Cat P.OTT UPDATED
. I ",R,MH,MD,MC,MMC,"[(","_BARTR("BI")_",") S BARTR("ALL")="R" Q ;MCR
. I ",D,K,FPL,"[(","_BARTR("BI")_",") S BARTR("ALL")="D" Q ;MCD
. I ",F,M,H,P,"[(","_BARTR("BI")_",") S BARTR("ALL")="P" Q ;Private
. I ",V,"[(","_BARTR("BI")_",") S BARTR("ALL")="V" Q ;VETERANS P.OTT
I $G(BARTR("ALL"))="" S BARTR("ALL")="No Allowance Category"
I BARTR("L")=""!(BARTR("I")="")!(BARTR("DT")="") D
.S:$G(DEBUG) ^TMP($J,"BAR-"_BAR("SUBR"),"REASON REJECTED","NULL LOCATION^INS TYPE^TRANS DATE/TIME",$P(BARTR(0),U))=BARTR("L")_U_BARTR("I")_U_BARTR("DT")
Q:BARTR("L")=""!(BARTR("I")="")!(BARTR("DT")="")
I $D(BARY("LOC")),BARY("LOC")'=BARTR("L") D Q ; Not chosen location
.S:$G(DEBUG) ^TMP($J,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN LOCATION",$P(BARTR(0),U))=""
I $D(BARY("ARACCT")),'$D(BARY("ARACCT",BARTR("I"))) D Q ;Not chosn acct
.S:$G(DEBUG) ^TMP($J,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN ACCT",$P(BARTR(0),U))=""
I $D(BARY("ACCT")),BARY("ACCT")'=BARTR("I") D Q ; Not chosen A/R acct ;TMM*1.8*19
.S:$G(DEBUG) ^TMP($J,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN A/R ACCT-"_BARTR("I"),$P(BARTR(0),U))="" ;TMM*1.8*19
I $G(BARY("SORT"))="V",BAR("V")="" S BAR("V")=99999
I $G(BARY("SORT"))="C",BAR("C")="" S BAR("C")=99999
I $D(BARY("AR")),BARY("AR")'=BARTR("AR") D Q ; Not chosen AR Clerk
.S:$G(DEBUG) ^TMP($J,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN AR CLERK",$P(BARTR(0),U))=""
I $D(BARY("PRV")),BARY("PRV")'=BAR("PV") D Q ; Not chosen provider
.S:$G(DEBUG) ^TMP($J,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN PROV",$P(BARTR(0),U))=""
I $D(BARY("TYP")),(U_BARY("TYP")_U)'[(U_BARTR("BI")_U) D Q ; Not chosen Bill entity BAR*1.8*6 DD 4.1.1 IM21585
.S:$G(DEBUG) ^TMP($J,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN BILL ENTITY",$P(BARTR(0),U))=""
I $D(BARY("ITYP")),BARY("ITYP")'=BARTR("BI") D Q ; Not chosen Ins Type
.S:$G(DEBUG) ^TMP($J,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN INS TYPE",$P(BARTR(0),U))=""
I $D(BARY("ALL")),(+BARY("ALL")=BARY("ALL")) S BARY("ALL")=$$CONVERT^BARRSL2(BARY("ALL")) ;BAR*1.8*6 DD 4.1.1 IM21585
I $D(BARY("ALL")),BARY("ALL")'=BARTR("ALL") D Q ; Not chosen Allow Cat
.S:$G(DEBUG) ^TMP($J,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN ALLOW CAT",$P(BARTR(0),U))=""
I $D(BARY("BATCH")),BARY("BATCH")'=BARTR("B") D Q ; Not chosen batch
.S:$G(DEBUG) ^TMP($J,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN BATCH",$P(BARTR(0),U))=""
I $D(BARY("ITEM")),BARY("ITEM")'=BARTR("IT") D Q ; Not chosen item
.S:$G(DEBUG) ^TMP($J,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN ITEM",$P(BARTR(0),U))=""
I $D(BARY("CLIN")),'$D(BARY("CLIN",BAR("C"))) D Q ; Not chosen clinic
.S:$G(DEBUG) ^TMP($J,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN CLINIC",$P(BARTR(0),U))=""
I $D(BARY("VTYP")),'$D(BARY("VTYP",BAR("V"))) D Q ; Not chosen visit typ
.S:$G(DEBUG) ^TMP($J,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN VISIT TYP",$P(BARTR(0),U))=""
I $D(BARY("DSCH")),BAR("DS")="" S BAR("DS")=99999
I $D(BARY("DSCH")),'$D(BARY("DSCH",BAR("DS"))) D Q ;Not chosen discharge svc
.S:$G(DEBUG) ^TMP($J,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN DISCHARGE SVC",$P(BARTR(0),U))=""
K BAR("QUIT")
I $G(BARY("DT"))="T" D Q:$G(BAR("QUIT")) ; Not chosen trans date
. S:BARTR("DT")<BARY("DT",1) BAR("QUIT")=1
. S:$P(BARTR("DT"),".")>BARY("DT",2) BAR("QUIT")=1
. I $G(BAR("QUIT")) S:$G(DEBUG) ^TMP($J,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN TRANS DATE",$P(BARTR(0),U))=""
I $D(BARY("PER")) D Q:$G(BAR("QUIT")) ; Not chosen period date range
. S:BARTR("DT")<BARBDT BAR("QUIT")=1
. S:$P(BARTR("DT"),".")>BAREDT BAR("QUIT")=1
. I $G(BAR("QUIT")) S:$G(DEBUG) ^TMP($J,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN PERIOD DATE",$P(BARTR(0),U))=""
I $D(BARY("DATA SRC")) D Q:$G(BAR("QUIT"))
.I BARY("DATA SRC")="MANUAL",(BARTR("DATA SRC")="e") S BAR("QUIT")=1
.I BARY("DATA SRC")="ELECTRONIC",(BARTR("DATA SRC")="m") S BAR("QUIT")=1
S BARP("HIT")=1
Q
GETBI(D0) ;keep D0 intact
I D0="" Q ""
Q $$VALI^BARVPM(8) ; Insurer Type CODE
;
;EOR
BARRCHK1 ; IHS/SD/LSL - Report Utility 2 to Check Parms ;12/19/2008
+1 ;;1.8;IHS ACCOUNTS RECEIVABLE;**6,7,10,19,20,23**;OCT 26, 2005
+2 ; MODIFIED XTMP FILE NAME TO TMP TO MEET SAC REQUIREMENTS;MRS:BAR*1.8*7 IM29892
+3 ;CREATED BECAUSE BARRCHK WAS GREATER THAN 15K
+4 ; TMM 08/18/10 V1.8*19
+5 ; Fix issue - Adjustments not displaying on TSR report
+6 ; TMM 08/19/10 V1.8*19
+7 ; TSR report should display A/R Account from A/R Transaction, not from A/R Bill
+8 ; P.OTTIS MAR 2013 ADDED NEW INS TYPE
+9 ; P.OTTIS SEP 2013,OCT 2013 BETA YAK: FIXED BARTR("BI")
+10 QUIT
+11 ;
TRANS ;EP - CALLED FROM BARRCHK
+1 ; for checking Transaction File data parameters
+2 SET BARP("HIT")=0
+3 IF $GET(BAR("SUBR"))=""
SET BAR("SUBR")=$SELECT($GET(BAR("RTN"))'="":BAR("RTN"),1:"UNKNOWN CALL")
+4 IF '$DATA(^BARTR(DUZ(2),BARTR,0))
IF $GET(DEBUG)
SET ^TMP($JOB,"BAR-"_BAR("SUBR"),"REASON REJECTED","NO ZERO NODE",BARTR)=""
QUIT
+5 ; A/R Transaction 0 node
SET BARTR(0)=$GET(^BARTR(DUZ(2),BARTR,0))
+6 IF '$DATA(^BARTR(DUZ(2),BARTR,1))
IF $GET(DEBUG)
SET ^TMP($JOB,"BAR-"_BAR("SUBR"),"REASON REJECTED","NO 1 NODE",BARTR)=""
QUIT
+7 ; A/R Transaction 1 node
SET BARTR(1)=$GET(^BARTR(DUZ(2),BARTR,1))
+8 ;A/R Transaction DATA SOURCE (e=ERA posted) ;bar*1.8*20 REQ10
SET BARTR("DATA SRC")=$SELECT($PIECE(BARTR(1),U,6)'="":$PIECE(BARTR(1),U,6),1:"m")
+9 ; Transaction type
SET BARTR("T")=$PIECE(BARTR(1),U)
+10 ;Adjustment Category
SET BARTR("ADJ CAT")=$PIECE(BARTR(1),U,2)
+11 ;Adjustment Type
SET BARTR("ADJ TYPE")=$PIECE(BARTR(1),U,3)
+12 ;bar*1.8*20 HEAT25436
IF BARTR("T")=""
SET BARTR("T")="NULL"
+13 IF BARTR("ADJ CAT")=""
SET BARTR("ADJ CAT")="NULL"
+14 ;*TMM*1.8*19
IF BARTR("ADJ TYPE")=""
SET BARTR("ADJ TYPE")="NULL"
+15 IF $DATA(BARY("TRANS TYPE"))
IF '$DATA(BARY("TRANS TYPE",BARTR("T")))
Begin DoDot:1
+16 IF $GET(DEBUG)
SET ^TMP($JOB,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN TRANSACTION TYPE",$PIECE(BARTR(0),U))=BARTR("T")
End DoDot:1
QUIT
+17 IF $DATA(BARY("TRANS TYPE","ADJ CAT"))
IF '$DATA(BARY("TRANS TYPE","ADJ CAT",BARTR("ADJ CAT")))
Begin DoDot:1
+18 IF $GET(DEBUG)
SET ^TMP($JOB,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN ADJUSTMENT CATEGORY",$PIECE(BARTR(0),U))=BARTR("ADJ CAT")
End DoDot:1
QUIT
+19 ;TMM*1.8*19
IF $DATA(BARY("TRANS TYPE","ADJ TYPE"))
IF '$DATA(BARY("TRANS TYPE","ADJ TYPE",BARTR("ADJ TYPE")))
Begin DoDot:1
+20 IF $GET(DEBUG)
SET ^TMP($JOB,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN ADJ TYPE",$PIECE(BARTR(0),U))=BARTR("ADJ TYPE")
End DoDot:1
QUIT
+21 ; Transaction date/time
SET BARTR("DT")=$PIECE(BARTR(0),U)
+22 ; A/R Collection batch IEN
SET BARTR("B")=$PIECE(BARTR(0),U,14)
+23 KILL BARTR("B DT")
+24 IF BARTR("B")'=""
Begin DoDot:1
+25 ;MRS:BAR*1.8*10 IM30590
SET BARTR("B DT")=$PIECE($PIECE($GET(^BARCOL(DUZ(2),BARTR("B"),0)),U,4),".")
End DoDot:1
+26 ;
+27 IF BARTR("B")=""
SET BARTR("B")="No Collection Batch"
+28 ; A/R Collection batch item
SET BARTR("IT")=$PIECE(BARTR(0),U,15)
+29 IF BARTR("IT")=""
SET BARTR("IT")="No Collection Batch Item"
+30 KILL BAR("QUIT")
+31 IF $GET(BARY("DT"))="B"
Begin DoDot:1
+32 IF '$GET(BARTR("B DT"))
SET BAR("QUIT")=1
IF $GET(DEBUG)
SET ^TMP($JOB,"BAR-"_BAR("SUBR"),"REASON REJECTED","NO BATCH DATE",$PIECE(BARTR(0),U))=""
QUIT
+33 ; Not chosen batch date ;BAR*1.8*6 DD 4.1.1
IF $DATA(BARTR("B DT"))
Begin DoDot:2
+34 IF BARTR("B DT")<BARY("DT",1)
SET BAR("QUIT")=1
+35 IF BARTR("B DT")>BARY("DT",2)
SET BAR("QUIT")=1
+36 IF $GET(BAR("QUIT"))
IF $GET(DEBUG)
SET ^TMP($JOB,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN BATCH DATE",$PIECE(BARTR(0),U))=""
End DoDot:2
IF $GET(BAR("QUIT"))
QUIT
End DoDot:1
IF $GET(BAR("QUIT"))
QUIT
+37 ; Entry by (AR Clerk)
SET BARTR("AR")=$PIECE(BARTR(0),U,13)
+38 IF BARTR("AR")=""
SET BARTR("AR")=9999999
+39 IF '$DATA(BARY("AR"))
SET BARTR("AR")=0
+40 SET BARTR("CR-DB")=$$GET1^DIQ(90050.03,BARTR,3.5)
+41 ; A/R Bill IEN
SET BAR=$PIECE(BARTR(0),U,4)
+42 IF $DATA(BARY("BATCH"))
IF BARTR("T")=100
SET BAR("UN-ALLOCATED",BARTR("IT"))=$GET(BAR("UN-ALLOCATED",BARTR("IT")))+BARTR("CR-DB")_U_DUZ(2)
+43 IF '+BAR
IF $GET(DEBUG)
SET ^TMP($JOB,"BAR-"_BAR("SUBR"),"REASON REJECTED","NO BILL FOR TRANSACTION",$PIECE(BARTR(0),U))=""
+44 ; No bill for transaction
IF '+BAR
QUIT
+45 IF '$DATA(^BARBL(DUZ(2),BAR))
IF $GET(DEBUG)
SET ^TMP($JOB,"BAR-"_BAR("SUBR"),"REASON REJECTED","TRANS PTS TO NON EXIST BILL",$PIECE(BARTR(0),U))=""
+46 ; Trans points to non-existent bill
IF '$DATA(^BARBL(DUZ(2),BAR))
QUIT
+47 ; A/R Bill 0 node
SET BAR(0)=$GET(^BARBL(DUZ(2),BAR,0))
+48 ; A/R Bill 1 node
SET BAR(10)=$GET(^BARBL(DUZ(2),BAR,1))
+49 ;A/R Bill DOS BEGIN
SET BARTR("DOS BEGIN")=$PIECE(BAR(10),U,2)
+50 ;3P APPROVAL DATE
SET BARTR("3P APPROVAL")=$PIECE(BAR(0),U,18)
+51 ;3P PRINT DATE
SET BARTR("3P PRINT")=$PIECE(BAR(0),U,19)
+52 KILL BAR("QUIT")
+53 ; Not chosen visit date
IF $GET(BARY("DT"))="V"
Begin DoDot:1
+54 IF BARTR("DOS BEGIN")<BARY("DT",1)
SET BAR("QUIT")=1
+55 IF $PIECE(BARTR("DOS BEGIN"),".")>BARY("DT",2)
SET BAR("QUIT")=1
+56 IF $GET(BAR("QUIT"))
IF $GET(DEBUG)
SET ^TMP($JOB,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN VISIT DATE",$PIECE(BARTR(0),U))=""
End DoDot:1
IF $GET(BAR("QUIT"))
QUIT
+57 ; Not chosen approval date
IF $GET(BARY("DT"))="A"
Begin DoDot:1
+58 IF BARTR("3P APPROVAL")<BARY("DT",1)
SET BAR("QUIT")=1
+59 IF $PIECE(BARTR("3P APPROVAL"),".")>BARY("DT",2)
SET BAR("QUIT")=1
+60 IF $GET(BAR("QUIT"))
IF $GET(DEBUG)
SET ^TMP($JOB,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN APPROVAL DATE",$PIECE(BARTR(0),U))=""
End DoDot:1
IF $GET(BAR("QUIT"))
QUIT
+61 ; Not chosen export date
IF $GET(BARY("DT"))="X"
Begin DoDot:1
+62 IF BARTR("3P PRINT")<BARY("DT",1)
SET BAR("QUIT")=1
+63 IF $PIECE(BARTR("3P PRINT"),".")>BARY("DT",2)
SET BAR("QUIT")=1
+64 IF $GET(BAR("QUIT"))
IF $GET(DEBUG)
SET ^TMP($JOB,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN EXPORT DATE",$PIECE(BARTR(0),U))=""
End DoDot:1
IF $GET(BAR("QUIT"))
QUIT
+65 ; A/R Account
SET BARTR("I")=$PIECE(BAR(0),U,3)
+66 ; Visit location
SET BARTR("L")=$PIECE(BAR(10),U,8)
+67 ; Provider (New Person)
SET BAR("PV")=$PIECE(BAR(10),U,13)
+68 ; Visit type (3P Visit Type)
SET BAR("V")=$PIECE(BAR(10),U,14)
+69 ; Clinic (Clinic Stop File)
SET BAR("C")=$PIECE(BAR(10),U,12)
+70 ; Discharge Service (#)
SET BAR("DS")=$$GET1^DIQ(90050.01,BAR,23)
+71 SET BARTMP=BARTR("I")
+72 ; Insurer Type / BILLING ENTITY CODE
SET BARTR("BI")=$$GETBI(BARTMP)
+73 IF $GET(BARTR("BI"))=""
SET BARTR("BI")="No Billing Entity"
+74 IF BARTR("BI")'="No Billing Entity"
Begin DoDot:1
+75 ; Other Allow Cat P.OTT UPDATED
SET BARTR("ALL")="O"
+76 ;MCR
IF ",R,MH,MD,MC,MMC,"[(","_BARTR("BI")_",")
SET BARTR("ALL")="R"
QUIT
+77 ;MCD
IF ",D,K,FPL,"[(","_BARTR("BI")_",")
SET BARTR("ALL")="D"
QUIT
+78 ;Private
IF ",F,M,H,P,"[(","_BARTR("BI")_",")
SET BARTR("ALL")="P"
QUIT
+79 ;VETERANS P.OTT
IF ",V,"[(","_BARTR("BI")_",")
SET BARTR("ALL")="V"
QUIT
End DoDot:1
+80 IF $GET(BARTR("ALL"))=""
SET BARTR("ALL")="No Allowance Category"
+81 IF BARTR("L")=""!(BARTR("I")="")!(BARTR("DT")="")
Begin DoDot:1
+82 IF $GET(DEBUG)
SET ^TMP($JOB,"BAR-"_BAR("SUBR"),"REASON REJECTED","NULL LOCATION^INS TYPE^TRANS DATE/TIME",$PIECE(BARTR(0),U))=BARTR("L")_U_BARTR("I")_U_BARTR("DT")
End DoDot:1
+83 IF BARTR("L")=""!(BARTR("I")="")!(BARTR("DT")="")
QUIT
+84 ; Not chosen location
IF $DATA(BARY("LOC"))
IF BARY("LOC")'=BARTR("L")
Begin DoDot:1
+85 IF $GET(DEBUG)
SET ^TMP($JOB,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN LOCATION",$PIECE(BARTR(0),U))=""
End DoDot:1
QUIT
+86 ;Not chosn acct
IF $DATA(BARY("ARACCT"))
IF '$DATA(BARY("ARACCT",BARTR("I")))
Begin DoDot:1
+87 IF $GET(DEBUG)
SET ^TMP($JOB,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN ACCT",$PIECE(BARTR(0),U))=""
End DoDot:1
QUIT
+88 ; Not chosen A/R acct ;TMM*1.8*19
IF $DATA(BARY("ACCT"))
IF BARY("ACCT")'=BARTR("I")
Begin DoDot:1
+89 ;TMM*1.8*19
IF $GET(DEBUG)
SET ^TMP($JOB,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN A/R ACCT-"_BARTR("I"),$PIECE(BARTR(0),U))=""
End DoDot:1
QUIT
+90 IF $GET(BARY("SORT"))="V"
IF BAR("V")=""
SET BAR("V")=99999
+91 IF $GET(BARY("SORT"))="C"
IF BAR("C")=""
SET BAR("C")=99999
+92 ; Not chosen AR Clerk
IF $DATA(BARY("AR"))
IF BARY("AR")'=BARTR("AR")
Begin DoDot:1
+93 IF $GET(DEBUG)
SET ^TMP($JOB,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN AR CLERK",$PIECE(BARTR(0),U))=""
End DoDot:1
QUIT
+94 ; Not chosen provider
IF $DATA(BARY("PRV"))
IF BARY("PRV")'=BAR("PV")
Begin DoDot:1
+95 IF $GET(DEBUG)
SET ^TMP($JOB,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN PROV",$PIECE(BARTR(0),U))=""
End DoDot:1
QUIT
+96 ; Not chosen Bill entity BAR*1.8*6 DD 4.1.1 IM21585
IF $DATA(BARY("TYP"))
IF (U_BARY("TYP")_U)'[(U_BARTR("BI")_U)
Begin DoDot:1
+97 IF $GET(DEBUG)
SET ^TMP($JOB,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN BILL ENTITY",$PIECE(BARTR(0),U))=""
End DoDot:1
QUIT
+98 ; Not chosen Ins Type
IF $DATA(BARY("ITYP"))
IF BARY("ITYP")'=BARTR("BI")
Begin DoDot:1
+99 IF $GET(DEBUG)
SET ^TMP($JOB,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN INS TYPE",$PIECE(BARTR(0),U))=""
End DoDot:1
QUIT
+100 ;BAR*1.8*6 DD 4.1.1 IM21585
IF $DATA(BARY("ALL"))
IF (+BARY("ALL")=BARY("ALL"))
SET BARY("ALL")=$$CONVERT^BARRSL2(BARY("ALL"))
+101 ; Not chosen Allow Cat
IF $DATA(BARY("ALL"))
IF BARY("ALL")'=BARTR("ALL")
Begin DoDot:1
+102 IF $GET(DEBUG)
SET ^TMP($JOB,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN ALLOW CAT",$PIECE(BARTR(0),U))=""
End DoDot:1
QUIT
+103 ; Not chosen batch
IF $DATA(BARY("BATCH"))
IF BARY("BATCH")'=BARTR("B")
Begin DoDot:1
+104 IF $GET(DEBUG)
SET ^TMP($JOB,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN BATCH",$PIECE(BARTR(0),U))=""
End DoDot:1
QUIT
+105 ; Not chosen item
IF $DATA(BARY("ITEM"))
IF BARY("ITEM")'=BARTR("IT")
Begin DoDot:1
+106 IF $GET(DEBUG)
SET ^TMP($JOB,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN ITEM",$PIECE(BARTR(0),U))=""
End DoDot:1
QUIT
+107 ; Not chosen clinic
IF $DATA(BARY("CLIN"))
IF '$DATA(BARY("CLIN",BAR("C")))
Begin DoDot:1
+108 IF $GET(DEBUG)
SET ^TMP($JOB,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN CLINIC",$PIECE(BARTR(0),U))=""
End DoDot:1
QUIT
+109 ; Not chosen visit typ
IF $DATA(BARY("VTYP"))
IF '$DATA(BARY("VTYP",BAR("V")))
Begin DoDot:1
+110 IF $GET(DEBUG)
SET ^TMP($JOB,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN VISIT TYP",$PIECE(BARTR(0),U))=""
End DoDot:1
QUIT
+111 IF $DATA(BARY("DSCH"))
IF BAR("DS")=""
SET BAR("DS")=99999
+112 ;Not chosen discharge svc
IF $DATA(BARY("DSCH"))
IF '$DATA(BARY("DSCH",BAR("DS")))
Begin DoDot:1
+113 IF $GET(DEBUG)
SET ^TMP($JOB,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN DISCHARGE SVC",$PIECE(BARTR(0),U))=""
End DoDot:1
QUIT
+114 KILL BAR("QUIT")
+115 ; Not chosen trans date
IF $GET(BARY("DT"))="T"
Begin DoDot:1
+116 IF BARTR("DT")<BARY("DT",1)
SET BAR("QUIT")=1
+117 IF $PIECE(BARTR("DT"),".")>BARY("DT",2)
SET BAR("QUIT")=1
+118 IF $GET(BAR("QUIT"))
IF $GET(DEBUG)
SET ^TMP($JOB,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN TRANS DATE",$PIECE(BARTR(0),U))=""
End DoDot:1
IF $GET(BAR("QUIT"))
QUIT
+119 ; Not chosen period date range
IF $DATA(BARY("PER"))
Begin DoDot:1
+120 IF BARTR("DT")<BARBDT
SET BAR("QUIT")=1
+121 IF $PIECE(BARTR("DT"),".")>BAREDT
SET BAR("QUIT")=1
+122 IF $GET(BAR("QUIT"))
IF $GET(DEBUG)
SET ^TMP($JOB,"BAR-"_BAR("SUBR"),"REASON REJECTED","NOT CHOSEN PERIOD DATE",$PIECE(BARTR(0),U))=""
End DoDot:1
IF $GET(BAR("QUIT"))
QUIT
+123 IF $DATA(BARY("DATA SRC"))
Begin DoDot:1
+124 IF BARY("DATA SRC")="MANUAL"
IF (BARTR("DATA SRC")="e")
SET BAR("QUIT")=1
+125 IF BARY("DATA SRC")="ELECTRONIC"
IF (BARTR("DATA SRC")="m")
SET BAR("QUIT")=1
End DoDot:1
IF $GET(BAR("QUIT"))
QUIT
+126 SET BARP("HIT")=1
+127 QUIT
GETBI(D0) ;keep D0 intact
+1 IF D0=""
QUIT ""
+2 ; Insurer Type CODE
QUIT $$VALI^BARVPM(8)
+3 ;
+4 ;EOR
