BPSFLD01 ;ALB/SS - ePharmacy secondary billing - COB fields processing ;27-FEB-09
;;1.0;E CLAIMS MGMT ENGINE;**8,10,23,24**;JUN 2004;Build 43
;;Per VA Directive 6402, this routine should not be modified.
;
SET337 ; 337-4C Other Payments Count
; This field is used twice.
; The total count is stored in 9002313.0201,337. BPSOPIEN is not defined for this case.
; The individual counter is stored in 9002313.0401,.01 where BPSOPIEN is defined.
;
I '$G(BPSOPIEN) S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),330),U,7)=BPS("X") Q
;
S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,0),U,1)=BPS("X")
S ^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,"B",BPS("X"),BPSOPIEN)=""
S ^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,0)="^9002313.0401A^"_BPSOPIEN_U_BPSOPIEN
Q
;
SET338 ; 338-5C Other Payer Coverage Type
I $G(BPSOPIEN) S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,0),U,2)=BPS("X")
Q
;
SET339 ; 339-6C Other Payer ID Qualifier
I $G(BPSOPIEN) S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,0),U,3)=BPS("X")
Q
;
SET340 ; 340-7C Other Payer ID
I $G(BPSOPIEN) S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,0),U,4)=BPS("X")
Q
;
SET443 ; 443-E8 Other Payer Date
I $G(BPSOPIEN) S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,0),U,5)=BPS("X")
Q
;
SET341 ; 341-HB Other Payer Amount Paid Count
I $G(BPSOPIEN) S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,0),U,6)=BPS("X")
Q
;
SET471 ; 471-5E Other Payer Reject Count
I $G(BPSOPIEN) S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,0),U,7)=BPS("X")
Q
;
SET342 ; 342-HC Other Payer Amount Paid Qualifier
; .01 field in the 9002313.401342 sub-file
I '$G(BPSOPIEN)!'$G(BPSOAIEN) Q
S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,1,BPSOAIEN,0),U,1)=BPS("X")
S ^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,1,"B",BPS("X"),BPSOAIEN)=""
S ^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,1,0)="^9002313.401342A^"_BPSOAIEN_U_BPSOAIEN
Q
;
SET431 ; 431-DV Other Payer Amount Paid
I '$G(BPSOPIEN)!'$G(BPSOAIEN) Q
S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,1,BPSOAIEN,0),U,2)=BPS("X")
; This is an old field, probably not needed anymore
S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),430),U,1)=BPS("X")
Q
;
SET472 ; 472-6E Other Payer Reject Code
; .01 field in the 9002313.401472 sub-file
I '$G(BPSOPIEN)!'$G(BPSORIEN) Q
S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,2,BPSORIEN,0),U,1)=BPS("X")
S ^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,2,"B",BPS("X"),BPSORIEN)=""
S ^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,2,0)="^9002313.401472A^"_BPSORIEN_U_BPSORIEN
Q
;
SET353 ; 353-NR Other Payer-Patient Responsibility Amount Count
I $G(BPSOPIEN) S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,0),U,8)=BPS("X")
Q
;
SET351 ; 351-NP Other Payer-Patient Responsibility Amount Qualifier
I '$G(BPSOPIEN)!'$G(BPSCOUNT) Q
S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,3,BPSCOUNT,0),U,1,2)=BPSCOUNT_U_BPS("X")
S ^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,3,"B",BPSCOUNT,BPSCOUNT)=""
S ^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,3,0)="^9002313.401353A^"_BPSCOUNT_U_BPSCOUNT
Q
;
SET352 ; 352-NQ Other Payer-Patient Responsibility Amount Paid
I '$G(BPSOPIEN)!'$G(BPSCOUNT) Q
S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,3,BPSCOUNT,0),U,3)=BPS("X")
Q
;
SET392 ; 392-MU Benefit Stage Count
I $G(BPSOPIEN) S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,0),U,9)=BPS("X")
Q
;
SET393 ; 393-MV Benefit Stage Qualifier
I '$G(BPSOPIEN)!'$G(BPSOAIEN) Q
S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,4,BPSOAIEN,0),U,1,2)=BPSOAIEN_U_BPS("X")
S ^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,4,"B",BPSOAIEN,BPSOAIEN)=""
S ^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,4,0)="^9002313.401392^"_BPSOAIEN_U_BPSOAIEN
Q
;
SET394 ; 394-MW Benefit Stage Amount
I '$G(BPSOPIEN)!'$G(BPSOAIEN) Q
S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,4,BPSOAIEN,0),U,3)=BPS("X")
Q
;
SET2149 ; C49-9V Other Payer-Patient Reconciliation ID
I '$G(BPSOPIEN) Q
S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,0),U,11)=BPS("X")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HBPSFLD01 4450 printed Dec 13, 2024@01:50:56 Page 2
BPSFLD01 ;ALB/SS - ePharmacy secondary billing - COB fields processing ;27-FEB-09
+1 ;;1.0;E CLAIMS MGMT ENGINE;**8,10,23,24**;JUN 2004;Build 43
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
SET337 ; 337-4C Other Payments Count
+1 ; This field is used twice.
+2 ; The total count is stored in 9002313.0201,337. BPSOPIEN is not defined for this case.
+3 ; The individual counter is stored in 9002313.0401,.01 where BPSOPIEN is defined.
+4 ;
+5 IF '$GET(BPSOPIEN)
SET $PIECE(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),330),U,7)=BPS("X")
QUIT
+6 ;
+7 SET $PIECE(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,0),U,1)=BPS("X")
+8 SET ^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,"B",BPS("X"),BPSOPIEN)=""
+9 SET ^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,0)="^9002313.0401A^"_BPSOPIEN_U_BPSOPIEN
+10 QUIT
+11 ;
SET338 ; 338-5C Other Payer Coverage Type
+1 IF $GET(BPSOPIEN)
SET $PIECE(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,0),U,2)=BPS("X")
+2 QUIT
+3 ;
SET339 ; 339-6C Other Payer ID Qualifier
+1 IF $GET(BPSOPIEN)
SET $PIECE(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,0),U,3)=BPS("X")
+2 QUIT
+3 ;
SET340 ; 340-7C Other Payer ID
+1 IF $GET(BPSOPIEN)
SET $PIECE(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,0),U,4)=BPS("X")
+2 QUIT
+3 ;
SET443 ; 443-E8 Other Payer Date
+1 IF $GET(BPSOPIEN)
SET $PIECE(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,0),U,5)=BPS("X")
+2 QUIT
+3 ;
SET341 ; 341-HB Other Payer Amount Paid Count
+1 IF $GET(BPSOPIEN)
SET $PIECE(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,0),U,6)=BPS("X")
+2 QUIT
+3 ;
SET471 ; 471-5E Other Payer Reject Count
+1 IF $GET(BPSOPIEN)
SET $PIECE(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,0),U,7)=BPS("X")
+2 QUIT
+3 ;
SET342 ; 342-HC Other Payer Amount Paid Qualifier
+1 ; .01 field in the 9002313.401342 sub-file
+2 IF '$GET(BPSOPIEN)!'$GET(BPSOAIEN)
QUIT
+3 SET $PIECE(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,1,BPSOAIEN,0),U,1)=BPS("X")
+4 SET ^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,1,"B",BPS("X"),BPSOAIEN)=""
+5 SET ^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,1,0)="^9002313.401342A^"_BPSOAIEN_U_BPSOAIEN
+6 QUIT
+7 ;
SET431 ; 431-DV Other Payer Amount Paid
+1 IF '$GET(BPSOPIEN)!'$GET(BPSOAIEN)
QUIT
+2 SET $PIECE(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,1,BPSOAIEN,0),U,2)=BPS("X")
+3 ; This is an old field, probably not needed anymore
+4 SET $PIECE(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),430),U,1)=BPS("X")
+5 QUIT
+6 ;
SET472 ; 472-6E Other Payer Reject Code
+1 ; .01 field in the 9002313.401472 sub-file
+2 IF '$GET(BPSOPIEN)!'$GET(BPSORIEN)
QUIT
+3 SET $PIECE(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,2,BPSORIEN,0),U,1)=BPS("X")
+4 SET ^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,2,"B",BPS("X"),BPSORIEN)=""
+5 SET ^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,2,0)="^9002313.401472A^"_BPSORIEN_U_BPSORIEN
+6 QUIT
+7 ;
SET353 ; 353-NR Other Payer-Patient Responsibility Amount Count
+1 IF $GET(BPSOPIEN)
SET $PIECE(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,0),U,8)=BPS("X")
+2 QUIT
+3 ;
SET351 ; 351-NP Other Payer-Patient Responsibility Amount Qualifier
+1 IF '$GET(BPSOPIEN)!'$GET(BPSCOUNT)
QUIT
+2 SET $PIECE(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,3,BPSCOUNT,0),U,1,2)=BPSCOUNT_U_BPS("X")
+3 SET ^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,3,"B",BPSCOUNT,BPSCOUNT)=""
+4 SET ^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,3,0)="^9002313.401353A^"_BPSCOUNT_U_BPSCOUNT
+5 QUIT
+6 ;
SET352 ; 352-NQ Other Payer-Patient Responsibility Amount Paid
+1 IF '$GET(BPSOPIEN)!'$GET(BPSCOUNT)
QUIT
+2 SET $PIECE(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,3,BPSCOUNT,0),U,3)=BPS("X")
+3 QUIT
+4 ;
SET392 ; 392-MU Benefit Stage Count
+1 IF $GET(BPSOPIEN)
SET $PIECE(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,0),U,9)=BPS("X")
+2 QUIT
+3 ;
SET393 ; 393-MV Benefit Stage Qualifier
+1 IF '$GET(BPSOPIEN)!'$GET(BPSOAIEN)
QUIT
+2 SET $PIECE(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,4,BPSOAIEN,0),U,1,2)=BPSOAIEN_U_BPS("X")
+3 SET ^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,4,"B",BPSOAIEN,BPSOAIEN)=""
+4 SET ^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,4,0)="^9002313.401392^"_BPSOAIEN_U_BPSOAIEN
+5 QUIT
+6 ;
SET394 ; 394-MW Benefit Stage Amount
+1 IF '$GET(BPSOPIEN)!'$GET(BPSOAIEN)
QUIT
+2 SET $PIECE(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,4,BPSOAIEN,0),U,3)=BPS("X")
+3 QUIT
+4 ;
SET2149 ; C49-9V Other Payer-Patient Reconciliation ID
+1 IF '$GET(BPSOPIEN)
QUIT
+2 SET $PIECE(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),337,BPSOPIEN,0),U,11)=BPS("X")
+3 QUIT
