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

BPSPRRX2.m

Go to the documentation of this file.
  1. BPSPRRX2 ;ALB/SS - ePharmacy secondary billing ;16-DEC-08
  1. ;;1.0;E CLAIMS MGMT ENGINE;**8,11**;JUN 2004;Build 27
  1. ;;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;
  1. ;
  1. DISPBILL(BPSPAYSQ,BPSINS,BPSBILL,BPSSTAT,BPSRXIEN,BPSREF,BPSDOS,BPDISTTL) ;
  1. ;Display list of bills
  1. ;Input:
  1. ; BPSPAYSQ-CURRENT BILL PAYER SEQUENCE as text
  1. ; BPSINS-INSURANCE name
  1. ; BPSBILL-BILL NUMBER to display "Bill #"
  1. ; BPSSTAT-A/R bill status
  1. ; BPSRXIEN-Prescription (#52) file IEN
  1. ; BPSREF-Fill Number
  1. ; BPSDOS-Date of Service
  1. ; BPDISTTL (optional)- 1= display title and lines
  1. N BPSSTR
  1. S BPSSTR=BPSPAYSQ_": "_BPSINS
  1. I $G(BPDISTTL) W !,?2,"Payer Responsible",?34,"Bill #",?44,"Status" W:$G(BPSDOS) ?55,"Date"
  1. I $G(BPDISTTL) W !,?2,"------------------------------",?34,"--------",?44,"------" W:$G(BPSDOS) ?55,"----------"
  1. W !,?2,$E(BPSSTR,1,30),?34,BPSBILL,?44,BPSSTAT
  1. W:$G(BPSDOS) ?55,$G(BPSDOS)
  1. Q
  1. ;
  1. RATETYPE(BPSDEFRT) ;
  1. ;Prompt for the rate type
  1. ;Input:
  1. ; BPSDEFRT (optional) - default rate type
  1. ;Return Value:
  1. ; -1 - User exited
  1. ; "" - Unsuccessful lookup
  1. ; Rate Type Name (#.01) selected by the user
  1. N X,Y,DUOUT,DTOUT,BPQUIT
  1. S BPQUIT=0
  1. N DIC
  1. S DIC="^DGCR(399.3,"
  1. S DIC(0)="AEMNQ"
  1. S DIC("A")="SELECT RATE TYPE: "
  1. I $G(BPSDEFRT)>0 S DIC("B")=BPSDEFRT
  1. D ^DIC
  1. I (X="^")!$D(DUOUT)!$D(DTOUT) S BPQUIT=1
  1. I BPQUIT=1 Q -1
  1. I Y=-1,X="" Q ""
  1. Q $P(Y,U)
  1. ;
  1. SUBMCLM(RX,FILL,DOS,BWHERE,PAYSEQ,PLAN,COBDATA,RTYPE) ;
  1. ;Submit claim and create activity log entry in the Prescription file
  1. ;Input:
  1. ; RX (r) = Prescription IEN
  1. ; FILL (r) = Fill Number
  1. ; DOS (o) = Date of Service
  1. ; BWHERE (r) = RX action
  1. ; PAYSEQ (r) = Payer sequence for the claim: 1-primary, 2-secondary
  1. ; PLAN (o) = IEN of the entry in the GROUP INSURANCE PLAN file (#355.3)
  1. ; COBDATA (o) = Local array passed by reference. Contains data needed to submit a secondary claim (used by secondary only)
  1. ; RTYPE (o) = IEN of the Rate Type file (#399.3)
  1. ;Output:
  1. ; Submission result, either "" for invalid parameter or the return value from
  1. ; EN^BPSNCPDP - RESPONSE^MESSAGE^ELIGIBILITY^CLAIM STATUS
  1. ;
  1. N BPSRET
  1. I '$G(RX) Q ""
  1. I $G(FILL)="" Q ""
  1. I $G(BWHERE)="" Q ""
  1. I '$G(PAYSEQ) Q ""
  1. S BPSRET=$$EN^BPSNCPDP(RX,FILL,$G(DOS),BWHERE,"","","","","","",PAYSEQ,"F","","",$G(PLAN),.COBDATA,$G(RTYPE))
  1. D ECMEACT^PSOBPSU1(RX,FILL,"Claim submitted to third party payer: ECME P2 Bill")
  1. Q BPSRET
  1. ;
  1. MORE4SEC(BPSMORE,BPSECNDR) ;
  1. ; Add COB elements to the MOREDATA array
  1. ; Called by BPSNCPD4 and BPSNCPD5
  1. M BPSMORE=BPSECNDR
  1. Q
  1. ;