IBCE837Q ;EDE/JWS - POST EXECUTE OUTPUT FOR 837 TRANSMISSION - CONTINUED ;
;;2.0;INTEGRATED BILLING;**742,759**;21-MAR-94;Build 24
;;Per VA Directive 6402, this routine should not be modified.
;
Q
;
11 ;IB*2.0*742;JWS;11/3/22:EBILL-2517;VistA will perform edits done by FSC's PayerIDSwitches.exe
N FT,COB,X1,IBOPID,IBPPID,OK,IBTPAID,IBTPAOID,IB3648,IB3648TF,IB3648FT,IBEXSV,IBCLM
I $G(IBXIEN)="" Q
S IBCLM=$P($G(^DGCR(399,IBXIEN,0)),"^")
S COB=$$COBN^IBCEF(IBXIEN)
;skip if not a secondary (Medicare Supplemental) claim
I COB'=2 Q
; primary other payer will always be the 1st OI6 record.
S IBOPID=$G(^TMP("IBXDATA",$J,1,114,1,4))
; quit if Other Payer ID is NOT one of the Medicare Payer IDs
I '$F(",12M61,SMTX1,SMDEV",","_IBOPID) Q
S IBPPID=$G(^TMP("IBXDATA",$J,1,37,1,3))
; if no CI5-3, Primary Payer ID, then stop
I IBPPID="" Q
; get form type, 2 = prof, 3 = inst
S FT=$$FT^IBCEF(IBXIEN)
; if Primary Payer ID, CI5-3 is not in the PayerIDSwitch file, send as is.
S (OK,IB3648)=0 F S IB3648=$O(^IBA(364.8,"B",IBPPID,IB3648)) Q:IB3648="" D Q:OK
. ; has entry been deactivate or flagged as deleted
. I $P($G(^IBA(364.8,IB3648,0)),"^",9)=1 Q
. S IB3648FT=$P($G(^IBA(364.8,IB3648,0)),"^",4)
. I IB3648FT'=1,FT'=IB3648FT Q
. S IB3648TF=$P($G(^IBA(364.8,IB3648,0)),"^",8)
. I $$PROD^XUPROD(1),'+$$TEST^IBCEF4(IBXIEN),IB3648TF Q
. S OK=1
. Q
Q:'IB3648
;
; F:REQ-1
S IBTPAID=$P($G(^IBA(364.8,IB3648,0)),"^",2)
I IBTPAID="" D Q
. S ^TMP("IBXDATA",$J,1,37,1,3)=$S(FT=2:"PPRNT",1:"IPRNT"),^(2)="PI"
. D UP11(IB3648)
. Q
;
; F:REQ-2 and F:REQ-4
S IBTPAOID=$P($G(^IBA(364.8,IB3648,0)),"^",3)
;;I IBTPAID'=$G(^TMP("IBXDATA",$J,1,37,1,3)) S ^(3)=IBTPAID
S ^TMP("IBXDATA",$J,1,37,1,3)=IBTPAID
I IBTPAOID'="" D
. I $G(^TMP("IBXDATA",$J,1,37,1,5))="" S ^(4)="FY",^(5)=IBTPAOID Q
. S ^TMP("IBXDATA",$J,1,37,1,6)="FY",^(7)=IBTPAOID
. Q
D UP11(IB3648)
; F:REQ-6; Medicare excluded service(s)
S X1=0 S X1=$O(^TMP("IBXDATA",$J,1,107,X1)) Q:X1="" I $G(^(X1,5))="A8" D Q
. S IBEXSV=$P($G(^IBA(364.8,IB3648,0)),"^",11)
. I IBEXSV=1!(IBEXSV=FT) Q
. S ^TMP("IBXDATA",$J,1,37,1,3)="NOEXC"
. D UP11(IB3648,"X")
Q
;
UP11(IEN,EXSV) ;update file 364.8 record for use
N X,Y,F1
S %DT="TXR",X="N" D ^%DT
S F1=6 I $G(EXSV)="X" S F1=13
S X=$G(^IBA(364.8,IEN,0)),$P(X,"^",F1)=Y,$P(X,"^",F1+1)=$P(X,"^",F1+1)+1,^(0)=X I F1=6 S $P(^(0),"^",15)=IBCLM
Q
;
12 ;IB*2.0*742;JWS;12/5/22:EBILL-2321;VistA will perform edits done by FSC's SvcFacilityAddress.exe
N I,X
;if a Lab/Facility name exists already, leave as is
I $G(^TMP("IBXDATA",$J,1,55,1,2))'="" Q
; set SUB2[1]="SUB2" in case it does not exist
; set SUB2[2]=77 - Lab/Facility Entity Code
; set SUB2[3]=2 - non-person
S ^TMP("IBXDATA",$J,1,57,1,1)="SUB2",^(2)=77,^(3)=2
; set SUB2[7] Lab/Facility Secondary ID Qualifier(1) = CI1A[4] Billing Prov Sec ID Qualifier(2)
; set SUB2[8] Lab/Facility Secondary ID(1) = CI1A[5] Billing Prov Sec ID(2)
; set SUB2[9] Lab/Facility Secondary ID Qualifier(2) = CI1A[6] Billing Prov Sec ID Qualifier(3)
; set SUB2[10] Lab/Facility Secondary ID(2) = CI1A[7] Billing Prov Sec ID(3)
; set SUB2[11] Lab/Facility ID Qualifier(3) = CI1A[8] Billing Prov Sec ID Qualifier(4)
; set SUB2[12] Lab/Facility ID(3) = CI1A[9] Billing Prov Sec ID(4)
F I=4:1:9 S X=$G(^TMP("IBXDATA",$J,1,28,1,I)) I X'="" S ^TMP("IBXDATA",$J,1,57,1,I+3)=X
; set SUB[2] Lab/Facility Name = PRV[3] Billing Prov Organization Name
; set SUB[3] Lab/Facility Address 1 = PRV[4] Billing Prov Address 1
; set SUB[4] Lab/Facility City = PRV[5] Billing Prov City Name
; set SUB[5] Lab/Facility State = PRV[6] Billing Prov State Code
; set SUB[6] Lab Facility ZIP code = PRV[7] Billing Prov ZIP Code
; set SUB[1] RECORD ID = "SUB" - just in case it does not already exist
S ^TMP("IBXDATA",$J,1,55,1,1)="SUB"
F I=3:1:7 S X=$G(^TMP("IBXDATA",$J,1,15,1,I)) I X'="" S ^TMP("IBXDATA",$J,1,55,1,I-1)=X
; set SUB2[5] Lab/Facility Primary ID Qualifier = "XX"
; set SUB2[6] Lab/Facility Primary ID = PRV[9] Billing Prov Primary ID
S X=$G(^TMP("IBXDATA",$J,1,15,1,9)) I X'="" S ^TMP("IBXDATA",$J,1,57,1,5)="XX",^(6)=X
; set SUB[12] Lab/Facility Address 2 = PRV[11] Billing Prov Address 2
S X=$G(^TMP("IBXDATA",$J,1,15,1,11)) I X'="" S ^TMP("IBXDATA",$J,1,55,1,12)=X
Q
;
13 ;IB*2.0*742;JWS;12/5/22:EBILL-2852;VistA will perform edits done by FSC's RemoveLoopsForPayerSDMEV.exe
N X
; remove the following segments from the 837 Output Formatter results
; seq 96 - OPR: Attending/Other Oper/Operating Physician/Provider Data
; seq 97 - OPR1: Attending/Other Oper/Operating Physician/Provider Data
; seq 101 - OPR5: Referring Provider Secondary ID Data
; seq 103 - OPR7: Supervising Provider Data
; seq 104 - OPR8: Supervising Provider Secondary ID Data
; seq 104.2 - OPR9: Rendering Provider Data
; seq 104.4 - OPRA: Rendering Provider Secondary ID
; seq 170 - OP1: Other Payer Rendering Provider Data
; seq 173 - OP4: Other Payer Referring Provider Data
; seq 176 - OP7: Other Payer Service Facility Data
; seq 177 - OP8: Other Payer Supervising Provider Data
; seq 193.3 - LREN: Line Rendering Provider Data
; seq 193.6 - LPUR: Line Purchase Service Provider Data
; seq 194 - LSUP: Line Supervising Provider Data
; seq 194.3 - LREF: Line Referring Provider Data
; seq 191 - LDAT: Supplemental Line Information [13] Purchase Service Provider ID and [14] Purchase Service Amount
K ^TMP("IBXDATA",$J,1,96),^(97),^(101),^(103),^(104),^(104.2),^(104.4),^(170),^(173),^(176),^(177),^(193.3),^(193.6),^(194),^(194.3)
S X=0 F S X=$O(^TMP("IBXDATA",$J,1,191,X)) Q:X="" K ^TMP("IBXDATA",$J,1,191,X,13),^(14)
Q
;
14 ;IB*2.0*759;JWS;4/8/23;EBILL-2323;VistA will perform edits done by FSC's RemoveOtherPayerProviderInfromation.exe
; remove the following segments from the 837 Output Formatter results
; seq 170 - OP1: Other Payer Rendering Provider Data
; seq 170.5 - OP1A: Other Payer Attending Physician Data
; seq 171 - OP2: Other Payer Operating Physician Data
; seq 172 - OP3: Other Payer Service Facility Data
; seq 173 - OP4: Other Payer Referring Provider Data
; seq 176 - OP7: Other Payer Service Facility Data
; seq 177 - OP8: Other Payer Supervising Provider Data
; seq 178 - OP9: Other Payer Other Operating Provider Data
;; removed 4/24/23 seq 178.1 - OP10: Other Payer Assistant Surgeon
K ^TMP("IBXDATA",$J,1,170),^(170.5),^(171),^(172),^(173),^(176),^(177),^(178) ;;,^(178.1)
Q
;
15 ;IB*2.0*759;JWS;4/24/23;EBILL-2324;VistA will perform edits done by FSC's RemoveSecondaryIDsFromClaims.exe
; remove the following values if CI5-3 Payer Primary ID = 12B60, 12B53, 12B45, SB890, SB891, SB892
; remove CI1A-6, CI1A-7, CI1A-8, CI1A-9 Billing Provider Secondary IDs
; do not remove CI1A-2, CI1A-3 (2 and 3 are non-HIPAA CHC requirement, Site ID)
; do not remove CI1A-4, CI1A-5 (4 and 5 are 'EI' and EIN (Tax ID) for entity)
N X,I
F I=6:1:9 K ^TMP("IBXDATA",$J,1,28,1,I)
; remove SUB-7, SUB-8, SUB-9, SUB-10, SUB-11, SUB-12 Lab Facility Secondary IDs
F I=7:1:12 K ^TMP("IBXDATA",$J,1,57,1,I)
; remove OPR2 Attending Provider Secondary IDs
K ^TMP("IBXDATA",$J,1,98)
; remove OPR3 Operating Provider Secondary IDs
K ^TMP("IBXDATA",$J,1,99)
; remove OPR4 Other Operating Provider Secondary IDs
K ^TMP("IBXDATA",$J,1,100)
; remove OPR5 Referring Provider Secondary IDs
K ^TMP("IBXDATA",$J,1,101)
; remove OPR8 Supervising Provider Secondary IDs
K ^TMP("IBXDATA",$J,1,104)
; remove OPRA Rendering Provider Secondary IDs
K ^TMP("IBXDATA",$J,1,104.4)
; remove OPRC Assistant Surgeon Secondary IDs
K ^TMP("IBXDATA",$J,1,104.61)
; remove LOPE Line Level Operating Physician Secondary IDs
S X=0 F S X=$O(^TMP("IBXDATA",$J,1,192,X)) Q:X="" K ^(X,10),^(11),^(12),^(13),^(14),^(15)
; remove LOP1 Line Level Other Operating Physician Secondary IDs
S X=0 F S X=$O(^TMP("IBXDATA",$J,1,193,X)) Q:X="" K ^(X,10),^(11),^(12),^(13),^(14),^(15)
; remove LREN Line Level Rendering Provider Secondary IDs
S X=0 F S X=$O(^TMP("IBXDATA",$J,1,193.3,X)) Q:X="" K ^(X,10),^(11),^(12),^(13),^(14),^(15)
; remove LPUR Line Level Purchase Service Provider Secondary IDs
S X=0 F S X=$O(^TMP("IBXDATA",$J,1,193.6,X)) Q:X="" K ^(X,6),^(7)
; remove LSUP Line Level Supervising Provider Secondary IDs
S X=0 F S X=$O(^TMP("IBXDATA",$J,1,194,X)) Q:X="" K ^(X,10),^(11),^(12),^(13),^(14),^(15)
; remove LREF Line Level Referring Provider Secondary IDs
S X=0 F S X=$O(^TMP("IBXDATA",$J,1,194.3,X)) Q:X="" K ^(X,10),^(11),^(12),^(13),^(14),^(15)
; remove LSR1 Line Level Assistant Surgeon Secondary IDs
S X=0 F S X=$O(^TMP("IBXDATA",$J,1,194.6,X)) Q:X="" K ^(X,3),^(4),^(5),^(6),^(7),^(8)
Q
;
16 ;JWS;IB*2.0*759;EBILL-3312; ClearOI14whenEqualOI23.exe
N X1,X2,IBOI14,IBOI12
S X1=0 F S X1=$O(^TMP("IBXDATA",$J,1,105,X1)) Q:X1="" I $G(^(X1,4))'="" S IBOI14=$G(^(4)),IBOI12=$G(^(2)) D
. S X2=0 F S X2=$O(^TMP("IBXDATA",$J,1,110,X2)) Q:X2="" I $G(^(X2,2))=IBOI12,$G(^(3))=IBOI14 K ^TMP("IBXDATA",$J,1,105,X1,4)
. Q
Q
;
SW(IBIEN) ; check file 364.8
;IB*2.0*759;JWS;5/22/23;EBILL-2923;Prevent claims going out via EDI with NOEXC Payer ID;need function to check file 364.8
N IBPID,FT,OK,IB3648,IB3648FT,IB3648TF,IBTPAID,IBCWS,IBTPAOID,IBEXSV
; get payer id for claim COB value
S IBPID=$$PAYERID^IBCEF2(IBIEN)
; if no payer id, quit not allowed for edi
I IBPID="" Q 1
; get form type, 2 = prof, 3 = inst
S FT=$$FT^IBCEF(IBIEN)
; if Primary Payer ID, CI5-3 is not in the PayerIDSwitch file, send as is.
S (OK,IB3648)=0 F S IB3648=$O(^IBA(364.8,"B",IBPID,IB3648)) Q:IB3648="" D Q:OK
. ; has entry been deactivate or flagged as deleted
. I $P($G(^IBA(364.8,IB3648,0)),"^",9)=1 Q
. S IB3648FT=$P($G(^IBA(364.8,IB3648,0)),"^",4)
. I IB3648FT'=1,FT'=IB3648FT Q
. S IB3648TF=$P($G(^IBA(364.8,IB3648,0)),"^",8)
. I $$PROD^XUPROD(1),'+$$TEST^IBCEF4(IBIEN),IB3648TF Q
. S OK=1
. Q
; if no entry found in COB-SWITCH file, quit not allowed for edi
I 'IB3648 Q 1
S IBEXSV=$P($G(^IBA(364.8,IB3648,0)),"^",11)
; if entry in PAYER ID - COB SWITCH file is found for all form types or specific form, quit 0 (approved for EDI)
I IBEXSV=1!(IBEXSV=FT) Q 0
; otherwise, quit not allowed for EDI
Q 1
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCE837Q 10351 printed Sep 02, 2024@18:54:47 Page 2
IBCE837Q ;EDE/JWS - POST EXECUTE OUTPUT FOR 837 TRANSMISSION - CONTINUED ;
+1 ;;2.0;INTEGRATED BILLING;**742,759**;21-MAR-94;Build 24
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 QUIT
+5 ;
11 ;IB*2.0*742;JWS;11/3/22:EBILL-2517;VistA will perform edits done by FSC's PayerIDSwitches.exe
+1 NEW FT,COB,X1,IBOPID,IBPPID,OK,IBTPAID,IBTPAOID,IB3648,IB3648TF,IB3648FT,IBEXSV,IBCLM
+2 IF $GET(IBXIEN)=""
QUIT
+3 SET IBCLM=$PIECE($GET(^DGCR(399,IBXIEN,0)),"^")
+4 SET COB=$$COBN^IBCEF(IBXIEN)
+5 ;skip if not a secondary (Medicare Supplemental) claim
+6 IF COB'=2
QUIT
+7 ; primary other payer will always be the 1st OI6 record.
+8 SET IBOPID=$GET(^TMP("IBXDATA",$JOB,1,114,1,4))
+9 ; quit if Other Payer ID is NOT one of the Medicare Payer IDs
+10 IF '$FIND(",12M61,SMTX1,SMDEV",","_IBOPID)
QUIT
+11 SET IBPPID=$GET(^TMP("IBXDATA",$JOB,1,37,1,3))
+12 ; if no CI5-3, Primary Payer ID, then stop
+13 IF IBPPID=""
QUIT
+14 ; get form type, 2 = prof, 3 = inst
+15 SET FT=$$FT^IBCEF(IBXIEN)
+16 ; if Primary Payer ID, CI5-3 is not in the PayerIDSwitch file, send as is.
+17 SET (OK,IB3648)=0
FOR
SET IB3648=$ORDER(^IBA(364.8,"B",IBPPID,IB3648))
if IB3648=""
QUIT
Begin DoDot:1
+18 ; has entry been deactivate or flagged as deleted
+19 IF $PIECE($GET(^IBA(364.8,IB3648,0)),"^",9)=1
QUIT
+20 SET IB3648FT=$PIECE($GET(^IBA(364.8,IB3648,0)),"^",4)
+21 IF IB3648FT'=1
IF FT'=IB3648FT
QUIT
+22 SET IB3648TF=$PIECE($GET(^IBA(364.8,IB3648,0)),"^",8)
+23 IF $$PROD^XUPROD(1)
IF '+$$TEST^IBCEF4(IBXIEN)
IF IB3648TF
QUIT
+24 SET OK=1
+25 QUIT
End DoDot:1
if OK
QUIT
+26 if 'IB3648
QUIT
+27 ;
+28 ; F:REQ-1
+29 SET IBTPAID=$PIECE($GET(^IBA(364.8,IB3648,0)),"^",2)
+30 IF IBTPAID=""
Begin DoDot:1
+31 SET ^TMP("IBXDATA",$JOB,1,37,1,3)=$SELECT(FT=2:"PPRNT",1:"IPRNT")
SET ^(2)="PI"
+32 DO UP11(IB3648)
+33 QUIT
End DoDot:1
QUIT
+34 ;
+35 ; F:REQ-2 and F:REQ-4
+36 SET IBTPAOID=$PIECE($GET(^IBA(364.8,IB3648,0)),"^",3)
+37 ;;I IBTPAID'=$G(^TMP("IBXDATA",$J,1,37,1,3)) S ^(3)=IBTPAID
+38 SET ^TMP("IBXDATA",$JOB,1,37,1,3)=IBTPAID
+39 IF IBTPAOID'=""
Begin DoDot:1
+40 IF $GET(^TMP("IBXDATA",$JOB,1,37,1,5))=""
SET ^(4)="FY"
SET ^(5)=IBTPAOID
QUIT
+41 SET ^TMP("IBXDATA",$JOB,1,37,1,6)="FY"
SET ^(7)=IBTPAOID
+42 QUIT
End DoDot:1
+43 DO UP11(IB3648)
+44 ; F:REQ-6; Medicare excluded service(s)
+45 SET X1=0
SET X1=$ORDER(^TMP("IBXDATA",$JOB,1,107,X1))
if X1=""
QUIT
IF $GET(^(X1,5))="A8"
Begin DoDot:1
+46 SET IBEXSV=$PIECE($GET(^IBA(364.8,IB3648,0)),"^",11)
+47 IF IBEXSV=1!(IBEXSV=FT)
QUIT
+48 SET ^TMP("IBXDATA",$JOB,1,37,1,3)="NOEXC"
+49 DO UP11(IB3648,"X")
End DoDot:1
QUIT
+50 QUIT
+51 ;
UP11(IEN,EXSV) ;update file 364.8 record for use
+1 NEW X,Y,F1
+2 SET %DT="TXR"
SET X="N"
DO ^%DT
+3 SET F1=6
IF $GET(EXSV)="X"
SET F1=13
+4 SET X=$GET(^IBA(364.8,IEN,0))
SET $PIECE(X,"^",F1)=Y
SET $PIECE(X,"^",F1+1)=$PIECE(X,"^",F1+1)+1
SET ^(0)=X
IF F1=6
SET $PIECE(^(0),"^",15)=IBCLM
+5 QUIT
+6 ;
12 ;IB*2.0*742;JWS;12/5/22:EBILL-2321;VistA will perform edits done by FSC's SvcFacilityAddress.exe
+1 NEW I,X
+2 ;if a Lab/Facility name exists already, leave as is
+3 IF $GET(^TMP("IBXDATA",$JOB,1,55,1,2))'=""
QUIT
+4 ; set SUB2[1]="SUB2" in case it does not exist
+5 ; set SUB2[2]=77 - Lab/Facility Entity Code
+6 ; set SUB2[3]=2 - non-person
+7 SET ^TMP("IBXDATA",$JOB,1,57,1,1)="SUB2"
SET ^(2)=77
SET ^(3)=2
+8 ; set SUB2[7] Lab/Facility Secondary ID Qualifier(1) = CI1A[4] Billing Prov Sec ID Qualifier(2)
+9 ; set SUB2[8] Lab/Facility Secondary ID(1) = CI1A[5] Billing Prov Sec ID(2)
+10 ; set SUB2[9] Lab/Facility Secondary ID Qualifier(2) = CI1A[6] Billing Prov Sec ID Qualifier(3)
+11 ; set SUB2[10] Lab/Facility Secondary ID(2) = CI1A[7] Billing Prov Sec ID(3)
+12 ; set SUB2[11] Lab/Facility ID Qualifier(3) = CI1A[8] Billing Prov Sec ID Qualifier(4)
+13 ; set SUB2[12] Lab/Facility ID(3) = CI1A[9] Billing Prov Sec ID(4)
+14 FOR I=4:1:9
SET X=$GET(^TMP("IBXDATA",$JOB,1,28,1,I))
IF X'=""
SET ^TMP("IBXDATA",$JOB,1,57,1,I+3)=X
+15 ; set SUB[2] Lab/Facility Name = PRV[3] Billing Prov Organization Name
+16 ; set SUB[3] Lab/Facility Address 1 = PRV[4] Billing Prov Address 1
+17 ; set SUB[4] Lab/Facility City = PRV[5] Billing Prov City Name
+18 ; set SUB[5] Lab/Facility State = PRV[6] Billing Prov State Code
+19 ; set SUB[6] Lab Facility ZIP code = PRV[7] Billing Prov ZIP Code
+20 ; set SUB[1] RECORD ID = "SUB" - just in case it does not already exist
+21 SET ^TMP("IBXDATA",$JOB,1,55,1,1)="SUB"
+22 FOR I=3:1:7
SET X=$GET(^TMP("IBXDATA",$JOB,1,15,1,I))
IF X'=""
SET ^TMP("IBXDATA",$JOB,1,55,1,I-1)=X
+23 ; set SUB2[5] Lab/Facility Primary ID Qualifier = "XX"
+24 ; set SUB2[6] Lab/Facility Primary ID = PRV[9] Billing Prov Primary ID
+25 SET X=$GET(^TMP("IBXDATA",$JOB,1,15,1,9))
IF X'=""
SET ^TMP("IBXDATA",$JOB,1,57,1,5)="XX"
SET ^(6)=X
+26 ; set SUB[12] Lab/Facility Address 2 = PRV[11] Billing Prov Address 2
+27 SET X=$GET(^TMP("IBXDATA",$JOB,1,15,1,11))
IF X'=""
SET ^TMP("IBXDATA",$JOB,1,55,1,12)=X
+28 QUIT
+29 ;
13 ;IB*2.0*742;JWS;12/5/22:EBILL-2852;VistA will perform edits done by FSC's RemoveLoopsForPayerSDMEV.exe
+1 NEW X
+2 ; remove the following segments from the 837 Output Formatter results
+3 ; seq 96 - OPR: Attending/Other Oper/Operating Physician/Provider Data
+4 ; seq 97 - OPR1: Attending/Other Oper/Operating Physician/Provider Data
+5 ; seq 101 - OPR5: Referring Provider Secondary ID Data
+6 ; seq 103 - OPR7: Supervising Provider Data
+7 ; seq 104 - OPR8: Supervising Provider Secondary ID Data
+8 ; seq 104.2 - OPR9: Rendering Provider Data
+9 ; seq 104.4 - OPRA: Rendering Provider Secondary ID
+10 ; seq 170 - OP1: Other Payer Rendering Provider Data
+11 ; seq 173 - OP4: Other Payer Referring Provider Data
+12 ; seq 176 - OP7: Other Payer Service Facility Data
+13 ; seq 177 - OP8: Other Payer Supervising Provider Data
+14 ; seq 193.3 - LREN: Line Rendering Provider Data
+15 ; seq 193.6 - LPUR: Line Purchase Service Provider Data
+16 ; seq 194 - LSUP: Line Supervising Provider Data
+17 ; seq 194.3 - LREF: Line Referring Provider Data
+18 ; seq 191 - LDAT: Supplemental Line Information [13] Purchase Service Provider ID and [14] Purchase Service Amount
+19 KILL ^TMP("IBXDATA",$JOB,1,96),^(97),^(101),^(103),^(104),^(104.2),^(104.4),^(170),^(173),^(176),^(177),^(193.3),^(193.6),^(194),^(194.3)
+20 SET X=0
FOR
SET X=$ORDER(^TMP("IBXDATA",$JOB,1,191,X))
if X=""
QUIT
KILL ^TMP("IBXDATA",$JOB,1,191,X,13),^(14)
+21 QUIT
+22 ;
14 ;IB*2.0*759;JWS;4/8/23;EBILL-2323;VistA will perform edits done by FSC's RemoveOtherPayerProviderInfromation.exe
+1 ; remove the following segments from the 837 Output Formatter results
+2 ; seq 170 - OP1: Other Payer Rendering Provider Data
+3 ; seq 170.5 - OP1A: Other Payer Attending Physician Data
+4 ; seq 171 - OP2: Other Payer Operating Physician Data
+5 ; seq 172 - OP3: Other Payer Service Facility Data
+6 ; seq 173 - OP4: Other Payer Referring Provider Data
+7 ; seq 176 - OP7: Other Payer Service Facility Data
+8 ; seq 177 - OP8: Other Payer Supervising Provider Data
+9 ; seq 178 - OP9: Other Payer Other Operating Provider Data
+10 ;; removed 4/24/23 seq 178.1 - OP10: Other Payer Assistant Surgeon
+11 ;;,^(178.1)
KILL ^TMP("IBXDATA",$JOB,1,170),^(170.5),^(171),^(172),^(173),^(176),^(177),^(178)
+12 QUIT
+13 ;
15 ;IB*2.0*759;JWS;4/24/23;EBILL-2324;VistA will perform edits done by FSC's RemoveSecondaryIDsFromClaims.exe
+1 ; remove the following values if CI5-3 Payer Primary ID = 12B60, 12B53, 12B45, SB890, SB891, SB892
+2 ; remove CI1A-6, CI1A-7, CI1A-8, CI1A-9 Billing Provider Secondary IDs
+3 ; do not remove CI1A-2, CI1A-3 (2 and 3 are non-HIPAA CHC requirement, Site ID)
+4 ; do not remove CI1A-4, CI1A-5 (4 and 5 are 'EI' and EIN (Tax ID) for entity)
+5 NEW X,I
+6 FOR I=6:1:9
KILL ^TMP("IBXDATA",$JOB,1,28,1,I)
+7 ; remove SUB-7, SUB-8, SUB-9, SUB-10, SUB-11, SUB-12 Lab Facility Secondary IDs
+8 FOR I=7:1:12
KILL ^TMP("IBXDATA",$JOB,1,57,1,I)
+9 ; remove OPR2 Attending Provider Secondary IDs
+10 KILL ^TMP("IBXDATA",$JOB,1,98)
+11 ; remove OPR3 Operating Provider Secondary IDs
+12 KILL ^TMP("IBXDATA",$JOB,1,99)
+13 ; remove OPR4 Other Operating Provider Secondary IDs
+14 KILL ^TMP("IBXDATA",$JOB,1,100)
+15 ; remove OPR5 Referring Provider Secondary IDs
+16 KILL ^TMP("IBXDATA",$JOB,1,101)
+17 ; remove OPR8 Supervising Provider Secondary IDs
+18 KILL ^TMP("IBXDATA",$JOB,1,104)
+19 ; remove OPRA Rendering Provider Secondary IDs
+20 KILL ^TMP("IBXDATA",$JOB,1,104.4)
+21 ; remove OPRC Assistant Surgeon Secondary IDs
+22 KILL ^TMP("IBXDATA",$JOB,1,104.61)
+23 ; remove LOPE Line Level Operating Physician Secondary IDs
+24 SET X=0
FOR
SET X=$ORDER(^TMP("IBXDATA",$JOB,1,192,X))
if X=""
QUIT
KILL ^(X,10),^(11),^(12),^(13),^(14),^(15)
+25 ; remove LOP1 Line Level Other Operating Physician Secondary IDs
+26 SET X=0
FOR
SET X=$ORDER(^TMP("IBXDATA",$JOB,1,193,X))
if X=""
QUIT
KILL ^(X,10),^(11),^(12),^(13),^(14),^(15)
+27 ; remove LREN Line Level Rendering Provider Secondary IDs
+28 SET X=0
FOR
SET X=$ORDER(^TMP("IBXDATA",$JOB,1,193.3,X))
if X=""
QUIT
KILL ^(X,10),^(11),^(12),^(13),^(14),^(15)
+29 ; remove LPUR Line Level Purchase Service Provider Secondary IDs
+30 SET X=0
FOR
SET X=$ORDER(^TMP("IBXDATA",$JOB,1,193.6,X))
if X=""
QUIT
KILL ^(X,6),^(7)
+31 ; remove LSUP Line Level Supervising Provider Secondary IDs
+32 SET X=0
FOR
SET X=$ORDER(^TMP("IBXDATA",$JOB,1,194,X))
if X=""
QUIT
KILL ^(X,10),^(11),^(12),^(13),^(14),^(15)
+33 ; remove LREF Line Level Referring Provider Secondary IDs
+34 SET X=0
FOR
SET X=$ORDER(^TMP("IBXDATA",$JOB,1,194.3,X))
if X=""
QUIT
KILL ^(X,10),^(11),^(12),^(13),^(14),^(15)
+35 ; remove LSR1 Line Level Assistant Surgeon Secondary IDs
+36 SET X=0
FOR
SET X=$ORDER(^TMP("IBXDATA",$JOB,1,194.6,X))
if X=""
QUIT
KILL ^(X,3),^(4),^(5),^(6),^(7),^(8)
+37 QUIT
+38 ;
16 ;JWS;IB*2.0*759;EBILL-3312; ClearOI14whenEqualOI23.exe
+1 NEW X1,X2,IBOI14,IBOI12
+2 SET X1=0
FOR
SET X1=$ORDER(^TMP("IBXDATA",$JOB,1,105,X1))
if X1=""
QUIT
IF $GET(^(X1,4))'=""
SET IBOI14=$GET(^(4))
SET IBOI12=$GET(^(2))
Begin DoDot:1
+3 SET X2=0
FOR
SET X2=$ORDER(^TMP("IBXDATA",$JOB,1,110,X2))
if X2=""
QUIT
IF $GET(^(X2,2))=IBOI12
IF $GET(^(3))=IBOI14
KILL ^TMP("IBXDATA",$JOB,1,105,X1,4)
+4 QUIT
End DoDot:1
+5 QUIT
+6 ;
SW(IBIEN) ; check file 364.8
+1 ;IB*2.0*759;JWS;5/22/23;EBILL-2923;Prevent claims going out via EDI with NOEXC Payer ID;need function to check file 364.8
+2 NEW IBPID,FT,OK,IB3648,IB3648FT,IB3648TF,IBTPAID,IBCWS,IBTPAOID,IBEXSV
+3 ; get payer id for claim COB value
+4 SET IBPID=$$PAYERID^IBCEF2(IBIEN)
+5 ; if no payer id, quit not allowed for edi
+6 IF IBPID=""
QUIT 1
+7 ; get form type, 2 = prof, 3 = inst
+8 SET FT=$$FT^IBCEF(IBIEN)
+9 ; if Primary Payer ID, CI5-3 is not in the PayerIDSwitch file, send as is.
+10 SET (OK,IB3648)=0
FOR
SET IB3648=$ORDER(^IBA(364.8,"B",IBPID,IB3648))
if IB3648=""
QUIT
Begin DoDot:1
+11 ; has entry been deactivate or flagged as deleted
+12 IF $PIECE($GET(^IBA(364.8,IB3648,0)),"^",9)=1
QUIT
+13 SET IB3648FT=$PIECE($GET(^IBA(364.8,IB3648,0)),"^",4)
+14 IF IB3648FT'=1
IF FT'=IB3648FT
QUIT
+15 SET IB3648TF=$PIECE($GET(^IBA(364.8,IB3648,0)),"^",8)
+16 IF $$PROD^XUPROD(1)
IF '+$$TEST^IBCEF4(IBIEN)
IF IB3648TF
QUIT
+17 SET OK=1
+18 QUIT
End DoDot:1
if OK
QUIT
+19 ; if no entry found in COB-SWITCH file, quit not allowed for edi
+20 IF 'IB3648
QUIT 1
+21 SET IBEXSV=$PIECE($GET(^IBA(364.8,IB3648,0)),"^",11)
+22 ; if entry in PAYER ID - COB SWITCH file is found for all form types or specific form, quit 0 (approved for EDI)
+23 IF IBEXSV=1!(IBEXSV=FT)
QUIT 0
+24 ; otherwise, quit not allowed for EDI
+25 QUIT 1
+26 ;
