Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BPSRPT5A

BPSRPT5A.m

Go to the documentation of this file. 
  1. BPSRPT5A ;AITC/CKB - ECME REPORTS ;3/9/2020
  1.  ;;1.0;E CLAIMS MGMT ENGINE;**28**;JUN 2004;Build 22
  1.  ;;Per VA Directive 6402, this routine should not be modified.
  1.  ;
  1.  ;
  1.  ;Routine to Display the Detailed Lines of the Report, the code was moved from BPSRPT5 
  1.  ;
  1.  ;Print Report Line 1
  1. WRLINE1(BPRTYPE,BPREC,BPDIV,BPGRPLAN,BPDFN,BPRX,BPREF,BPX,BPSRTDT,BPBIL,BPINS,BPCOLL,BPEXCEL,BPPSEQ) ;
  1.  ;Excel Output
  1.  I $G(BPEXCEL) D WRLINE1^BPSRPT8(BPRTYPE,.BPREC,BPDIV,BPGRPLAN,BPDFN,BPRX,BPREF,BPX,BPSRTDT,BPBIL,BPINS,BPCOLL,BPPSEQ) Q
  1.  ;Report Output
  1.  W !,$$PATNAME^BPSRPT6(BPDFN)
  1.  W ?27,"("_$$SSN4^BPSRPT6(BPDFN)_")"
  1.  I (BPRTYPE=1)!(BPRTYPE=4) D  Q
  1.  . N ELGCD S ELGCD=$$ELIGCODE^BPSSCR05($P(BPX,U,3))
  1.  . W ?35,$S(ELGCD="V":"VET",ELGCD="T":"TRI",ELGCD="C":"CVA",1:"UNK")
  1.  . W ?40,$$RXNUM^BPSRPT6(BPRX)_$$COPAY^BPSRPT6(BPRX)
  1.  . W ?52,BPREF,"/",$$ECMENUM^BPSRPT1($P(BPX,U,3))
  1.  . W ?73,$$DATTIM^BPSRPT1(BPSRTDT)
  1.  . W ?83,$J(BPBIL,10,2),?105,$J(BPINS,10,2),?122,$S(BPCOLL]"":$J(BPCOLL,10,2),1:"")
  1.  I BPRTYPE=2 D  Q
  1.  . N ELGCD S ELGCD=$$ELIGCODE^BPSSCR05($P(BPX,U,3))
  1.  . W ?35,$S(ELGCD="V":"VET",ELGCD="T":"TRI",ELGCD="C":"CVA",1:"UNK")
  1.  . W ?40,$$RXNUM^BPSRPT6(BPRX)_$$COPAY^BPSRPT6(BPRX)
  1.  . W ?52,BPREF,"/",$$ECMENUM^BPSRPT1($P(BPX,U,3))
  1.  . W ?73,$$DATTIM^BPSRPT1(BPSRTDT)
  1.  . W ?83,$$DATTIM^BPSRPT1(+BPX)
  1.  . W ?96,$$MWC^BPSRPT6(BPRX,BPREF)
  1.  . W ?99,$$RTBCKNAM^BPSRPT1($$RTBCK^BPSRPT1($P(BPX,U,3)))
  1.  . W ?103,$$RXSTATUS^BPSRPT6($P(BPX,U,3))
  1.  . W ?105,$S($P(BPX,U):"/R",1:"/N")
  1.  . W ?114,$$RXCOB^BPSRPT8(BPPSEQ)
  1.  . W ?121,$S($$CLOSED02^BPSSCR03($P(^BPST($P(BPX,U,3),0),U,4))=1:"Closed",1:"Open")
  1.  I BPRTYPE=3 D  Q
  1.  . W ?35,$$RXNUM^BPSRPT6(BPRX)_$$COPAY^BPSRPT6(BPRX)
  1.  . W ?47,BPREF,"/",$$ECMENUM^BPSRPT1($P(BPX,U,3))
  1.  . W ?68,$$DATTIM^BPSRPT1(BPSRTDT)
  1.  . W ?100,$J(BPBIL,10,2),?122,$J(BPINS,10,2)
  1.  I BPRTYPE=5 D  Q
  1.  . W ?35,$$RXNUM^BPSRPT6(BPRX)_$$COPAY^BPSRPT6(BPRX)
  1.  . W ?47,BPREF,"/",$$ECMENUM^BPSRPT1($P(BPX,U,3))
  1.  . W ?65,$$DATTIM^BPSRPT1($$TRANDT^BPSRPT2($P(BPX,U,3),1))
  1.  . W ?83,$$TTYPE^BPSRPT7($P(BPX,U,4),$P(BPX,U,5),BPPSEQ)
  1.  . W ?100,$$RESPONSE^BPSRPT7($P(BPX,U,4),$P(BPX,U,5),BPPSEQ)
  1.  . W ?125,$$RXCOB^BPSRPT8(BPPSEQ)
  1.  I BPRTYPE=7 D  Q
  1.  . N ELGCD S ELGCD=$$ELIGCODE^BPSSCR05($P(BPX,U,3))
  1.  . W ?35,$S(ELGCD="V":"VET",ELGCD="T":"TRI",ELGCD="C":"CVA",1:"UNK")
  1.  . W ?40,$$RXNUM^BPSRPT6(BPRX)_$$COPAY^BPSRPT6(BPRX)
  1.  . W ?52,BPREF,"/",$$ECMENUM^BPSRPT1($P(BPX,U,3))
  1.  . W ?70,$$MWC^BPSRPT6(BPRX,BPREF)
  1.  . W ?73,$$RTBCKNAM^BPSRPT1($$RTBCK^BPSRPT1($P(BPX,U,3)))
  1.  . W ?77,$$RXSTATUS^BPSRPT6($P(BPX,U,3))
  1.  . W ?79,$S($P(BPX,U):"/R",1:"/N")
  1.  . W ?84,$S($P(BPX,U,13):"REJ",1:"")
  1.  . W ?89,$$DRGNAM^BPSRPT6($P(BPX,U,14),27)
  1.  . W ?118,$$GETNDC^BPSRPT6(BPRX,BPREF)
  1.  I BPRTYPE=8 D
  1.  . W ?35,$$RXNUM^BPSRPT6(BPRX)_$$COPAY^BPSRPT6(BPRX)
  1.  . W ?47,BPREF,"/",$$ECMENUM^BPSRPT1($P(BPX,U,3))
  1.  . W ?68,$$DATTIM^BPSRPT1(BPSRTDT)
  1.  . W ?78,$J(BPBIL,10,2),?100,$J(BPINS,10,2),?122,$S(BPCOLL]"":$J(BPCOLL,10,2),1:"")
  1.  I BPRTYPE=9 D  Q
  1.  . N ELGCD S ELGCD=$P(BPX,U,1)
  1.  . W ?35,$S(ELGCD="V":"VET",ELGCD="T":"TRI",ELGCD="C":"CVA",1:"UNK") ; Eligibility
  1.  . W ?40,$$RXNUM^BPSRPT6(BPRX)_$$COPAY^BPSRPT6(BPRX)  ; RX and Copay indicator
  1.  . W ?52,BPREF                     ; Refill
  1.  . W ?64,$$DATTIM^BPSRPT1(BPSRTDT) ; Transaction Date
  1.  . W ?84,$J($P(BPX,U,2),10,2)      ; Drug Cost
  1.  I BPRTYPE=10 D  Q
  1.  . N ELGCD,BPDUPPAY
  1.  . S BPDUPPAY=$P(BPX,U,17)
  1.  . S ELGCD=$$ELIGCODE^BPSSCR05($P(BPX,U,3))
  1.  . W ?35,$S(ELGCD="V":"VET",ELGCD="T":"TRI",ELGCD="C":"CVA",1:"UNK") ; Eligibility
  1.  . W ?45,BPREF,"/",$$ECMENUM^BPSRPT1($P(BPX,U,3)) ; Refill/ECME#
  1.  . W ?65,$$DATTIM^BPSRPT1(BPSRTDT)                ; Transaction Date
  1.  . W ?77,$J(BPBIL,10,2)                           ; $Billed
  1.  . W ?90,$J(BPINS,13,2)                           ; $Ins Response
  1.  . W ?106,$S(BPCOLL]"":$J(BPCOLL,10,2),1:"")      ; $Collected
  1.  . W ?118,$J(BPDUPPAY,12,2)                       ; Pt. Resp (Ins)
  1.  Q
  1.  ;
  1.  ;Print Report Line 2
  1. WRLINE2(BPRTYPE,BPREC,BPX,BPRX,BPREF,BPBIL,BPGRPLAN,BPEXCEL,BPICNT,BPPSEQ) ;
  1.  ;Excel Output
  1.  N BPSX
  1.  I $G(BPEXCEL) D WRLINE2^BPSRPT8(BPRTYPE,.BPREC,BPX,BPRX,BPREF,BPBIL,BPGRPLAN,BPPSEQ) Q
  1.  ;Report Output
  1.  I (BPRTYPE=1)!(BPRTYPE=4) D  Q
  1.  . W !,?4,$$DRGNAM^BPSRPT6($P(BPX,U,14),27),?32,$$GETNDC^BPSRPT6(BPRX,BPREF)
  1.  . I BPRTYPE=1 W ?47,$$DATTIM^BPSRPT1(+BPX)
  1.  . W ?68,$$MWC^BPSRPT6(BPRX,BPREF)
  1.  . W ?71,$$RTBCKNAM^BPSRPT1($$RTBCK^BPSRPT1($P(BPX,U,3)))
  1.  . W ?75,$$RXSTATUS^BPSRPT6($P(BPX,U,3))
  1.  . W ?77,$S($P(BPX,U):"/R",1:"/N")
  1.  . W ?82,$S($P(BPX,U,13):"REJ",1:"")
  1.  . I BPRTYPE=4 W ?92,$$RXCOB^BPSRPT8(BPPSEQ)
  1.  . I BPRTYPE=1 W ?115,$$BILLCOB^BPSRPT5(BPRX,BPREF,BPPSEQ)
  1.  I BPRTYPE=2 D  Q
  1.  . W !,?3,$E($$CRDHLDID^BPSRPT2(+$P(BPX,U,3)),3,23)
  1.  . W ?26,$E($$GRPID^BPSRPT2(+$P(BPX,U,3)),3,17)
  1.  . W ?41,$J(BPBIL,10,2)
  1.  . W ?54,$$QTY^BPSRPT6($P(BPX,U,3))
  1.  . W ?61,$$GETNDC^BPSRPT6(BPRX,BPREF)
  1.  . S BPSX=$$PRESCIN^BPSRPT6($P(BPX,U,3))
  1.  . W ?82,$P(BPSX,U),?98,$P(BPSX,U,2)
  1.  I BPRTYPE=3 D  Q
  1.  . W !,?4,$$DRGNAM^BPSRPT6($P(BPX,U,14),32)
  1.  . W ?41,$$GETNDC^BPSRPT6(BPRX,BPREF)
  1.  . W ?68,$$MWC^BPSRPT6(BPRX,BPREF)
  1.  . W ?71,$$RTBCKNAM^BPSRPT1($$RTBCK^BPSRPT1($P(BPX,U,3)))
  1.  . W ?74,$$RXSTATUS^BPSRPT6($P(BPX,U,3))
  1.  . W ?76,$S($P(BPX,U):"/R",1:"/N")
  1.  . W ?81,$S($P(BPX,U,13):"REJ",1:"")
  1.  . W ?88,$$RXCOB^BPSRPT8(BPPSEQ)
  1.  . N ELGCD S ELGCD=$$ELIGCODE^BPSSCR05($P(BPX,U,3))
  1.  . W ?96,$S(ELGCD="V":"VET",ELGCD="T":"TRI",ELGCD="C":"CVA",1:"UNK")
  1.  I BPRTYPE=5 D  Q
  1.  . W !,?4,$$DRGNAM^BPSRPT6($P(BPX,U,14),23)
  1.  . W ?28,$$GETNDC^BPSRPT6(BPRX,BPREF)
  1.  . W ?47,$$MWC^BPSRPT6(BPRX,BPREF)
  1.  . W ?50,$$RTBCKNAM^BPSRPT1($$RTBCK^BPSRPT1($P(BPX,U,3)))
  1.  . W ?53,$$RXSTATUS^BPSRPT6($P(BPX,U,3))
  1.  . W ?55,$S($P(BPX,U):"/R",1:"/N")
  1.  . W ?60,$S($P(BPX,U,13):"REJ",1:"")
  1.  . I $P(BPGRPLAN,U,2)]"" W ?69,$E($P(BPGRPLAN,U,2),1,30)
  1.  . W ?122,$J($$ELAPSE^BPSRPT6($P(BPX,U,3)),10)
  1.  I BPRTYPE=7 D  Q
  1.  . W !,?3,$E($$CRDHLDID^BPSRPT2(+$P(BPX,U,3)),3,23)
  1.  . W ?28,$E($$GRPID^BPSRPT2(+$P(BPX,U,3)),3,17)
  1.  . W ?46,$$DATTIM^BPSRPT1(+$$CLOSEDT^BPSRPT2(+$P(BPX,U,3)))
  1.  . N BPCLBY S BPCLBY=$E($$CLSBY^BPSRPT6(+$P(BPX,U,3)),1,25) S:BPCLBY="" BPCLBY="BLANK"
  1.  . W ?65,BPCLBY S BPCNT(BPCLBY)=$G(BPCNT(BPCLBY))+1,BPGCNT(BPCLBY)=$G(BPGCNT(BPCLBY))+1,BPICNT(BPCLBY)=$G(BPICNT(BPCLBY))+1
  1.  . W ?93,$E($P($$CLRSN^BPSRPT7(+$P(BPX,U,3)),U,2),1,30)
  1.  . W ?128,$$RXCOB^BPSRPT8(BPPSEQ)
  1.  I BPRTYPE=8 D  Q
  1.  . W !,?2,$$DRGNAM^BPSRPT6($P(BPX,U,14),34)
  1.  . W ?38,$$MWC^BPSRPT6(BPRX,BPREF)
  1.  . W ?42,$$RTBCKNAM^BPSRPT1($$RTBCK^BPSRPT1($P(BPX,U,3)))
  1.  . W ?46,$$RXSTATUS^BPSRPT6($P(BPX,U,3))
  1.  . W ?48,$S($P(BPX,U):"/R",1:"/N")
  1.  . W ?54,$E($$GRPID^BPSRPT2(+$P(BPX,U,3)),3,10)
  1.  . W ?72,$E(BPGRPLAN,1,50)
  1.  . W ?125,$$BILL^BPSRPT6(BPRX,BPREF,BPPSEQ)
  1.  I BPRTYPE=9 D  Q
  1.  . W !,?4,$$DRGNAM^BPSRPT6($P(BPX,U,4),27) ;Drug
  1.  . W ?32,$$GETNDC^BPSRPT6(BPRX,BPREF)  ;NDC
  1.  . W ?47,$$DATTIM^BPSRPT1($P(BPX,U,5)) ;Release Date
  1.  . W ?62,$$MWC^BPSRPT6(BPRX,BPREF)     ;Fill Location
  1.  . W ?65,$$RXSTANAM^BPSSCRU2($P(BPX,U,6))  ;Status
  1.  . W ?67,$S($P(BPX,U,5):"/R",1:"/N")   ;Released
  1.  . W ?75,$E($$GET1^DIQ(366.17,$P(BPX,U,7),.01,"E"),1,57) ;Non-Billalble Reason - ICR 6136
  1.  I BPRTYPE=10 D  Q
  1.  . N BPDUPST
  1.  . S BPDUPST=$P(BPX,U,16)
  1.  . W !,?4,$$DRGNAM^BPSRPT6($P(BPX,U,14),27) ; Drug
  1.  . W ?32,$$GETNDC^BPSRPT6(BPRX,BPREF)       ; NDC
  1.  . W ?47,$$DATTIM^BPSRPT1(+BPX)             ; Released On Date
  1.  . W ?68,$$MWC^BPSRPT6(BPRX,BPREF)          ; Fill Location
  1.  . W ?71,$$RTBCKNAM^BPSRPT1($$RTBCK^BPSRPT1($P(BPX,U,3)))
  1.  . W ?75,$$RXSTATUS^BPSRPT6($P(BPX,U,3))
  1.  . W ?77,$S($P(BPX,U):"/R",1:"/N")
  1.  . W ?82,$S($P(BPX,U,13):"REJ",1:"")
  1.  . W ?94,$$BILL^BPSRPT6(BPRX,BPREF,BPPSEQ)   ; Bill #
  1.  . W ?113,$$RXCOB^BPSRPT8(BPPSEQ)            ; COB
  1.  . W ?122,BPDUPST                            ; Status (Duplicate Trans Status)
  1.  Q
  1.  ;
  1.  ;Print Report Line 3
  1. WRLINE3(BPRTYPE,BPREC,BPX,BPEXCEL) N BP59,BPRICINF
  1.  S BP59=+$P(BPX,U,3)
  1.  ;Excel Output
  1.  I $G(BPEXCEL) D WRLINE3^BPSRPT8(BPRTYPE,.BPREC,BPX) Q
  1.  ;Report Output
  1.  I BPRTYPE=4 D  Q
  1.  . S NP=$$CHKP^BPSRPT5(1) Q:BPQ
  1.  . ;Released On
  1.  . W !,?6,$$DATTIM^BPSRPT1(+BPX)
  1.  . ;Method
  1.  . I $$AUTOREV^BPSRPT1(BP59) W ?22,"AUTO/"
  1.  . E  W ?22,"REGULAR/"
  1.  . ;Return Status
  1.  . I $P(BPX,U,15)["ACCEPTED" W "ACCEPTED/"
  1.  . E  W "REJECTED/"
  1.  . ;Reason
  1.  . W $$RVSRSN^BPSRPT7(+$P(BPX,U,3))
  1.  ;
  1.  I BPRTYPE=8 D  Q
  1.  . S BPRICINF=$$PRICEVAL^BPSRPT5(BP59)
  1.  . W !,?4,$S($P(BPRICINF,U,3)]"":$P(BPRICINF,U,3),1:"N/A")
  1.  . W ?23,$S($P(BPRICINF,U,4)]"":$P(BPRICINF,U,4),1:"N/A")
  1.  . W ?38,$S($P(BPRICINF,U,5)]"":$P(BPRICINF,U,5),1:"N/A")
  1.  . W ?56,$S($P(BPRICINF,U,6)]"":$P(BPRICINF,U,6),1:"N/A")
  1.  . W ?81,$S($P(BPRICINF,U,7)]"":$P(BPRICINF,U,7),1:"N/A")
  1.  . W ?96,$S($P(BPRICINF,U,2)]"":$P(BPRICINF,U,2),1:"N/A")
  1.  . W ?111,$S($P(BPRICINF,U,1)]"":$P(BPRICINF,U,1),1:"N/A")
  1.  ;
  1.  Q
  1.  ;