Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: BPSRPT5A

Package: E Claims Management Engine

Routine: BPSRPT5A


Information

BPSRPT5A ;AITC/CKB - ECME REPORTS ;3/9/2020

Source Information

Source file <BPSRPT5A.m>

Entry Points

Name Comments DBIA/ICR reference
WRLINE1(BPRTYPE,BPREC,BPDIV,BPGRPLAN,BPDFN,BPRX,BPREF,BPX,BPSRTDT,BPBIL,BPINS,BPCOLL,BPEXCEL,BPPSEQ) ;
WRLINE2(BPRTYPE,BPREC,BPX,BPRX,BPREF,BPBIL,BPGRPLAN,BPEXCEL,BPICNT,BPPSEQ) ;
WRLINE3(BPRTYPE,BPREC,BPX,BPEXCEL)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$PATNAME^BPSRPT6(BPDFN)
  • Line Location: WRLINE1+4
Function Call: WRITE
  • Prompt: ?27,"("_$$SSN4^BPSRPT6(BPDFN)_")"
  • Line Location: WRLINE1+5
Function Call: WRITE
  • Prompt: ?35,$S(ELGCD="V":"VET",ELGCD="T":"TRI",ELGCD="C":"CVA",1:"UNK")
  • Line Location: WRLINE1+8
Function Call: WRITE
  • Prompt: ?40,$$RXNUM^BPSRPT6(BPRX)_$$COPAY^BPSRPT6(BPRX)
  • Line Location: WRLINE1+9
Function Call: WRITE
  • Prompt: ?52,BPREF,"/",$$ECMENUM^BPSRPT1($P(BPX,U,3))
  • Line Location: WRLINE1+10
Function Call: WRITE
  • Prompt: ?73,$$DATTIM^BPSRPT1(BPSRTDT)
  • Line Location: WRLINE1+11
Function Call: WRITE
  • Prompt: ?83,$J(BPBIL,10,2),?105,$J(BPINS,10,2),?122,$S(BPCOLL]"":$J(BPCOLL,10,2),1:"")
  • Line Location: WRLINE1+12
Function Call: WRITE
  • Prompt: ?35,$S(ELGCD="V":"VET",ELGCD="T":"TRI",ELGCD="C":"CVA",1:"UNK")
  • Line Location: WRLINE1+15
Function Call: WRITE
  • Prompt: ?40,$$RXNUM^BPSRPT6(BPRX)_$$COPAY^BPSRPT6(BPRX)
  • Line Location: WRLINE1+16
Function Call: WRITE
  • Prompt: ?52,BPREF,"/",$$ECMENUM^BPSRPT1($P(BPX,U,3))
  • Line Location: WRLINE1+17
Function Call: WRITE
  • Prompt: ?73,$$DATTIM^BPSRPT1(BPSRTDT)
  • Line Location: WRLINE1+18
Function Call: WRITE
  • Prompt: ?83,$$DATTIM^BPSRPT1(+BPX)
  • Line Location: WRLINE1+19
Function Call: WRITE
  • Prompt: ?96,$$MWC^BPSRPT6(BPRX,BPREF)
  • Line Location: WRLINE1+20
Function Call: WRITE
  • Prompt: ?99,$$RTBCKNAM^BPSRPT1($$RTBCK^BPSRPT1($P(BPX,U,3)))
  • Line Location: WRLINE1+21
Function Call: WRITE
  • Prompt: ?103,$$RXSTATUS^BPSRPT6($P(BPX,U,3))
  • Line Location: WRLINE1+22
Function Call: WRITE
  • Prompt: ?105,$S($P(BPX,U):"/R",1:"/N")
  • Line Location: WRLINE1+23
Function Call: WRITE
  • Prompt: ?114,$$RXCOB^BPSRPT8(BPPSEQ)
  • Line Location: WRLINE1+24
Function Call: WRITE
  • Prompt: ?121,$S($$CLOSED02^BPSSCR03($P(^BPST($P(BPX,U,3),0),U,4))=1:"Closed",1:"Open")
  • Line Location: WRLINE1+25
Function Call: WRITE
  • Prompt: ?35,$$RXNUM^BPSRPT6(BPRX)_$$COPAY^BPSRPT6(BPRX)
  • Line Location: WRLINE1+27
Function Call: WRITE
  • Prompt: ?47,BPREF,"/",$$ECMENUM^BPSRPT1($P(BPX,U,3))
  • Line Location: WRLINE1+28
Function Call: WRITE
  • Prompt: ?68,$$DATTIM^BPSRPT1(BPSRTDT)
  • Line Location: WRLINE1+29
Function Call: WRITE
  • Prompt: ?100,$J(BPBIL,10,2),?122,$J(BPINS,10,2)
  • Line Location: WRLINE1+30
Function Call: WRITE
  • Prompt: ?35,$$RXNUM^BPSRPT6(BPRX)_$$COPAY^BPSRPT6(BPRX)
  • Line Location: WRLINE1+32
Function Call: WRITE
  • Prompt: ?47,BPREF,"/",$$ECMENUM^BPSRPT1($P(BPX,U,3))
  • Line Location: WRLINE1+33
Function Call: WRITE
  • Prompt: ?65,$$DATTIM^BPSRPT1($$TRANDT^BPSRPT2($P(BPX,U,3),1))
  • Line Location: WRLINE1+34
Function Call: WRITE
  • Prompt: ?83,$$TTYPE^BPSRPT7($P(BPX,U,4),$P(BPX,U,5),BPPSEQ)
  • Line Location: WRLINE1+35
Function Call: WRITE
  • Prompt: ?100,$$RESPONSE^BPSRPT7($P(BPX,U,4),$P(BPX,U,5),BPPSEQ)
  • Line Location: WRLINE1+36
Function Call: WRITE
  • Prompt: ?125,$$RXCOB^BPSRPT8(BPPSEQ)
  • Line Location: WRLINE1+37
Function Call: WRITE
  • Prompt: ?35,$S(ELGCD="V":"VET",ELGCD="T":"TRI",ELGCD="C":"CVA",1:"UNK")
  • Line Location: WRLINE1+40
Function Call: WRITE
  • Prompt: ?40,$$RXNUM^BPSRPT6(BPRX)_$$COPAY^BPSRPT6(BPRX)
  • Line Location: WRLINE1+41
Function Call: WRITE
  • Prompt: ?52,BPREF,"/",$$ECMENUM^BPSRPT1($P(BPX,U,3))
  • Line Location: WRLINE1+42
Function Call: WRITE
  • Prompt: ?70,$$MWC^BPSRPT6(BPRX,BPREF)
  • Line Location: WRLINE1+43
Function Call: WRITE
  • Prompt: ?73,$$RTBCKNAM^BPSRPT1($$RTBCK^BPSRPT1($P(BPX,U,3)))
  • Line Location: WRLINE1+44
Function Call: WRITE
  • Prompt: ?77,$$RXSTATUS^BPSRPT6($P(BPX,U,3))
  • Line Location: WRLINE1+45
Function Call: WRITE
  • Prompt: ?79,$S($P(BPX,U):"/R",1:"/N")
  • Line Location: WRLINE1+46
Function Call: WRITE
  • Prompt: ?84,$S($P(BPX,U,13):"REJ",1:"")
  • Line Location: WRLINE1+47
Function Call: WRITE
  • Prompt: ?89,$$DRGNAM^BPSRPT6($P(BPX,U,14),27)
  • Line Location: WRLINE1+48
Function Call: WRITE
  • Prompt: ?118,$$GETNDC^BPSRPT6(BPRX,BPREF)
  • Line Location: WRLINE1+49
Function Call: WRITE
  • Prompt: ?35,$$RXNUM^BPSRPT6(BPRX)_$$COPAY^BPSRPT6(BPRX)
  • Line Location: WRLINE1+51
Function Call: WRITE
  • Prompt: ?47,BPREF,"/",$$ECMENUM^BPSRPT1($P(BPX,U,3))
  • Line Location: WRLINE1+52
Function Call: WRITE
  • Prompt: ?68,$$DATTIM^BPSRPT1(BPSRTDT)
  • Line Location: WRLINE1+53
Function Call: WRITE
  • Prompt: ?78,$J(BPBIL,10,2),?100,$J(BPINS,10,2),?122,$S(BPCOLL]"":$J(BPCOLL,10,2),1:"")
  • Line Location: WRLINE1+54
Function Call: WRITE
  • Prompt: ?35,$S(ELGCD="V":"VET",ELGCD="T":"TRI",ELGCD="C":"CVA",1:"UNK")
  • Line Location: WRLINE1+57
Function Call: WRITE
  • Prompt: ?40,$$RXNUM^BPSRPT6(BPRX)_$$COPAY^BPSRPT6(BPRX)
  • Line Location: WRLINE1+58
Function Call: WRITE
  • Prompt: ?52,BPREF
  • Line Location: WRLINE1+59
Function Call: WRITE
  • Prompt: ?64,$$DATTIM^BPSRPT1(BPSRTDT)
  • Line Location: WRLINE1+60
Function Call: WRITE
  • Prompt: ?84,$J($P(BPX,U,2),10,2)
  • Line Location: WRLINE1+61
Function Call: WRITE
  • Prompt: ?35,$S(ELGCD="V":"VET",ELGCD="T":"TRI",ELGCD="C":"CVA",1:"UNK")
  • Line Location: WRLINE1+66
Function Call: WRITE
  • Prompt: ?45,BPREF,"/",$$ECMENUM^BPSRPT1($P(BPX,U,3))
  • Line Location: WRLINE1+67
Function Call: WRITE
  • Prompt: ?65,$$DATTIM^BPSRPT1(BPSRTDT)
  • Line Location: WRLINE1+68
Function Call: WRITE
  • Prompt: ?77,$J(BPBIL,10,2)
  • Line Location: WRLINE1+69
Function Call: WRITE
  • Prompt: ?90,$J(BPINS,13,2)
  • Line Location: WRLINE1+70
Function Call: WRITE
  • Prompt: ?106,$S(BPCOLL]"":$J(BPCOLL,10,2),1:"")
  • Line Location: WRLINE1+71
Function Call: WRITE
  • Prompt: ?118,$J(BPDUPPAY,12,2)
  • Line Location: WRLINE1+72
Function Call: WRITE
  • Prompt: !,?4,$$DRGNAM^BPSRPT6($P(BPX,U,14),27),?32,$$GETNDC^BPSRPT6(BPRX,BPREF)
  • Line Location: WRLINE2+6
Function Call: WRITE
  • Prompt: ?47,$$DATTIM^BPSRPT1(+BPX)
  • Line Location: WRLINE2+7
Function Call: WRITE
  • Prompt: ?68,$$MWC^BPSRPT6(BPRX,BPREF)
  • Line Location: WRLINE2+8
Function Call: WRITE
  • Prompt: ?71,$$RTBCKNAM^BPSRPT1($$RTBCK^BPSRPT1($P(BPX,U,3)))
  • Line Location: WRLINE2+9
Function Call: WRITE
  • Prompt: ?75,$$RXSTATUS^BPSRPT6($P(BPX,U,3))
  • Line Location: WRLINE2+10
Function Call: WRITE
  • Prompt: ?77,$S($P(BPX,U):"/R",1:"/N")
  • Line Location: WRLINE2+11
Function Call: WRITE
  • Prompt: ?82,$S($P(BPX,U,13):"REJ",1:"")
  • Line Location: WRLINE2+12
Function Call: WRITE
  • Prompt: ?92,$$RXCOB^BPSRPT8(BPPSEQ)
  • Line Location: WRLINE2+13
Function Call: WRITE
  • Prompt: ?115,$$BILLCOB^BPSRPT5(BPRX,BPREF,BPPSEQ)
  • Line Location: WRLINE2+14
Function Call: WRITE
  • Prompt: !,?3,$E($$CRDHLDID^BPSRPT2(+$P(BPX,U,3)),3,23)
  • Line Location: WRLINE2+16
Function Call: WRITE
  • Prompt: ?26,$E($$GRPID^BPSRPT2(+$P(BPX,U,3)),3,17)
  • Line Location: WRLINE2+17
Function Call: WRITE
  • Prompt: ?41,$J(BPBIL,10,2)
  • Line Location: WRLINE2+18
Function Call: WRITE
  • Prompt: ?54,$$QTY^BPSRPT6($P(BPX,U,3))
  • Line Location: WRLINE2+19
Function Call: WRITE
  • Prompt: ?61,$$GETNDC^BPSRPT6(BPRX,BPREF)
  • Line Location: WRLINE2+20
Function Call: WRITE
  • Prompt: ?82,$P(BPSX,U),?98,$P(BPSX,U,2)
  • Line Location: WRLINE2+22
Function Call: WRITE
  • Prompt: !,?4,$$DRGNAM^BPSRPT6($P(BPX,U,14),32)
  • Line Location: WRLINE2+24
Function Call: WRITE
  • Prompt: ?41,$$GETNDC^BPSRPT6(BPRX,BPREF)
  • Line Location: WRLINE2+25
Function Call: WRITE
  • Prompt: ?68,$$MWC^BPSRPT6(BPRX,BPREF)
  • Line Location: WRLINE2+26
Function Call: WRITE
  • Prompt: ?71,$$RTBCKNAM^BPSRPT1($$RTBCK^BPSRPT1($P(BPX,U,3)))
  • Line Location: WRLINE2+27
Function Call: WRITE
  • Prompt: ?74,$$RXSTATUS^BPSRPT6($P(BPX,U,3))
  • Line Location: WRLINE2+28
Function Call: WRITE
  • Prompt: ?76,$S($P(BPX,U):"/R",1:"/N")
  • Line Location: WRLINE2+29
Function Call: WRITE
  • Prompt: ?81,$S($P(BPX,U,13):"REJ",1:"")
  • Line Location: WRLINE2+30
Function Call: WRITE
  • Prompt: ?88,$$RXCOB^BPSRPT8(BPPSEQ)
  • Line Location: WRLINE2+31
Function Call: WRITE
  • Prompt: ?96,$S(ELGCD="V":"VET",ELGCD="T":"TRI",ELGCD="C":"CVA",1:"UNK")
  • Line Location: WRLINE2+33
Function Call: WRITE
  • Prompt: !,?4,$$DRGNAM^BPSRPT6($P(BPX,U,14),23)
  • Line Location: WRLINE2+35
Function Call: WRITE
  • Prompt: ?28,$$GETNDC^BPSRPT6(BPRX,BPREF)
  • Line Location: WRLINE2+36
Function Call: WRITE
  • Prompt: ?47,$$MWC^BPSRPT6(BPRX,BPREF)
  • Line Location: WRLINE2+37
Function Call: WRITE
  • Prompt: ?50,$$RTBCKNAM^BPSRPT1($$RTBCK^BPSRPT1($P(BPX,U,3)))
  • Line Location: WRLINE2+38
Function Call: WRITE
  • Prompt: ?53,$$RXSTATUS^BPSRPT6($P(BPX,U,3))
  • Line Location: WRLINE2+39
Function Call: WRITE
  • Prompt: ?55,$S($P(BPX,U):"/R",1:"/N")
  • Line Location: WRLINE2+40
Function Call: WRITE
  • Prompt: ?60,$S($P(BPX,U,13):"REJ",1:"")
  • Line Location: WRLINE2+41
Function Call: WRITE
  • Prompt: ?69,$E($P(BPGRPLAN,U,2),1,30)
  • Line Location: WRLINE2+42
Function Call: WRITE
  • Prompt: ?122,$J($$ELAPSE^BPSRPT6($P(BPX,U,3)),10)
  • Line Location: WRLINE2+43
Function Call: WRITE
  • Prompt: !,?3,$E($$CRDHLDID^BPSRPT2(+$P(BPX,U,3)),3,23)
  • Line Location: WRLINE2+45
Function Call: WRITE
  • Prompt: ?28,$E($$GRPID^BPSRPT2(+$P(BPX,U,3)),3,17)
  • Line Location: WRLINE2+46
Function Call: WRITE
  • Prompt: ?46,$$DATTIM^BPSRPT1(+$$CLOSEDT^BPSRPT2(+$P(BPX,U,3)))
  • Line Location: WRLINE2+47
Function Call: WRITE
  • Prompt: ?65,BPCLBY
  • Line Location: WRLINE2+49
Function Call: WRITE
  • Prompt: ?93,$E($P($$CLRSN^BPSRPT7(+$P(BPX,U,3)),U,2),1,30)
  • Line Location: WRLINE2+50
Function Call: WRITE
  • Prompt: ?128,$$RXCOB^BPSRPT8(BPPSEQ)
  • Line Location: WRLINE2+51
Function Call: WRITE
  • Prompt: !,?2,$$DRGNAM^BPSRPT6($P(BPX,U,14),34)
  • Line Location: WRLINE2+53
Function Call: WRITE
  • Prompt: ?38,$$MWC^BPSRPT6(BPRX,BPREF)
  • Line Location: WRLINE2+54
Function Call: WRITE
  • Prompt: ?42,$$RTBCKNAM^BPSRPT1($$RTBCK^BPSRPT1($P(BPX,U,3)))
  • Line Location: WRLINE2+55
Function Call: WRITE
  • Prompt: ?46,$$RXSTATUS^BPSRPT6($P(BPX,U,3))
  • Line Location: WRLINE2+56
Function Call: WRITE
  • Prompt: ?48,$S($P(BPX,U):"/R",1:"/N")
  • Line Location: WRLINE2+57
Function Call: WRITE
  • Prompt: ?54,$E($$GRPID^BPSRPT2(+$P(BPX,U,3)),3,10)
  • Line Location: WRLINE2+58
Function Call: WRITE
  • Prompt: ?72,$E(BPGRPLAN,1,50)
  • Line Location: WRLINE2+59
Function Call: WRITE
  • Prompt: ?125,$$BILL^BPSRPT6(BPRX,BPREF,BPPSEQ)
  • Line Location: WRLINE2+60
Function Call: WRITE
  • Prompt: !,?4,$$DRGNAM^BPSRPT6($P(BPX,U,4),27)
  • Line Location: WRLINE2+62
Function Call: WRITE
  • Prompt: ?32,$$GETNDC^BPSRPT6(BPRX,BPREF)
  • Line Location: WRLINE2+63
Function Call: WRITE
  • Prompt: ?47,$$DATTIM^BPSRPT1($P(BPX,U,5))
  • Line Location: WRLINE2+64
Function Call: WRITE
  • Prompt: ?62,$$MWC^BPSRPT6(BPRX,BPREF)
  • Line Location: WRLINE2+65
Function Call: WRITE
  • Prompt: ?65,$$RXSTANAM^BPSSCRU2($P(BPX,U,6))
  • Line Location: WRLINE2+66
Function Call: WRITE
  • Prompt: ?67,$S($P(BPX,U,5):"/R",1:"/N")
  • Line Location: WRLINE2+67
Function Call: WRITE
  • Prompt: ?75,$E($$GET1^DIQ(366.17,$P(BPX,U,7),.01,"E"),1,57)
  • Line Location: WRLINE2+68
Function Call: WRITE
  • Prompt: !,?4,$$DRGNAM^BPSRPT6($P(BPX,U,14),27)
  • Line Location: WRLINE2+72
Function Call: WRITE
  • Prompt: ?32,$$GETNDC^BPSRPT6(BPRX,BPREF)
  • Line Location: WRLINE2+73
Function Call: WRITE
  • Prompt: ?47,$$DATTIM^BPSRPT1(+BPX)
  • Line Location: WRLINE2+74
Function Call: WRITE
  • Prompt: ?68,$$MWC^BPSRPT6(BPRX,BPREF)
  • Line Location: WRLINE2+75
Function Call: WRITE
  • Prompt: ?71,$$RTBCKNAM^BPSRPT1($$RTBCK^BPSRPT1($P(BPX,U,3)))
  • Line Location: WRLINE2+76
Function Call: WRITE
  • Prompt: ?75,$$RXSTATUS^BPSRPT6($P(BPX,U,3))
  • Line Location: WRLINE2+77
Function Call: WRITE
  • Prompt: ?77,$S($P(BPX,U):"/R",1:"/N")
  • Line Location: WRLINE2+78
Function Call: WRITE
  • Prompt: ?82,$S($P(BPX,U,13):"REJ",1:"")
  • Line Location: WRLINE2+79
Function Call: WRITE
  • Prompt: ?94,$$BILL^BPSRPT6(BPRX,BPREF,BPPSEQ)
  • Line Location: WRLINE2+80
Function Call: WRITE
  • Prompt: ?113,$$RXCOB^BPSRPT8(BPPSEQ)
  • Line Location: WRLINE2+81
Function Call: WRITE
  • Prompt: ?122,BPDUPST
  • Line Location: WRLINE2+82
Function Call: WRITE
  • Prompt: !,?6,$$DATTIM^BPSRPT1(+BPX)
  • Line Location: WRLINE3+8
Function Call: WRITE
  • Prompt: ?22,"AUTO/"
  • Line Location: WRLINE3+10
Function Call: WRITE
  • Prompt: ?22,"REGULAR/"
  • Line Location: WRLINE3+11
Function Call: WRITE
  • Prompt: "ACCEPTED/"
  • Line Location: WRLINE3+13
Function Call: WRITE
  • Prompt: "REJECTED/"
  • Line Location: WRLINE3+14
Function Call: WRITE
  • Prompt: $$RVSRSN^BPSRPT7(+$P(BPX,U,3))
  • Line Location: WRLINE3+16
Function Call: WRITE
  • Prompt: !,?4,$S($P(BPRICINF,U,3)]"":$P(BPRICINF,U,3),1:"N/A")
  • Line Location: WRLINE3+20
Function Call: WRITE
  • Prompt: ?23,$S($P(BPRICINF,U,4)]"":$P(BPRICINF,U,4),1:"N/A")
  • Line Location: WRLINE3+21
Function Call: WRITE
  • Prompt: ?38,$S($P(BPRICINF,U,5)]"":$P(BPRICINF,U,5),1:"N/A")
  • Line Location: WRLINE3+22
Function Call: WRITE
  • Prompt: ?56,$S($P(BPRICINF,U,6)]"":$P(BPRICINF,U,6),1:"N/A")
  • Line Location: WRLINE3+23
Function Call: WRITE
  • Prompt: ?81,$S($P(BPRICINF,U,7)]"":$P(BPRICINF,U,7),1:"N/A")
  • Line Location: WRLINE3+24
Function Call: WRITE
  • Prompt: ?96,$S($P(BPRICINF,U,2)]"":$P(BPRICINF,U,2),1:"N/A")
  • Line Location: WRLINE3+25
Function Call: WRITE
  • Prompt: ?111,$S($P(BPRICINF,U,1)]"":$P(BPRICINF,U,1),1:"N/A")
  • Line Location: WRLINE3+26

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBCNR(366.17 - [#366.17] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call