| 1 | IBBAPI ;OAK/ELZ - APIS FOR OTHER PACKAGES FOR PFSS ;6-MAY-2003
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**256,228,267,260,286**;21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | ; -- See IBBDOC for API details
|
|---|
| 6 | ;
|
|---|
| 7 | INSUR(DFN,IBDT,IBSTAT,IBR,IBFLDS) ; Return Patient Insurance Information
|
|---|
| 8 | ;
|
|---|
| 9 | Q $$INSUR^IBBFAPI($G(DFN),$G(IBDT),$G(IBSTAT),.IBR,$G(IBFLDS))
|
|---|
| 10 | ;
|
|---|
| 11 | ;
|
|---|
| 12 | CIDC(DFN) ; Return if CIDC questions should be asked for DFN
|
|---|
| 13 | ;
|
|---|
| 14 | Q $$CIDC^IBBASCI($G(DFN))
|
|---|
| 15 | ;
|
|---|
| 16 | SWSTAT() ;Return the PFSS Master switch status
|
|---|
| 17 | ;
|
|---|
| 18 | Q $$SWSTAT^IBBASWCH()
|
|---|
| 19 | ;
|
|---|
| 20 | GETACCT(IBBDFN,IBBARFN,IBBEVENT,IBBAPLR,IBBPV1,IBBPV2,IBBPR1,IBBDG1,IBBZCL,IBBDIV,IBBRAIEN,IBBSURG) ;
|
|---|
| 21 | ;Send visit data to external medical billing system
|
|---|
| 22 | ;
|
|---|
| 23 | Q $$GET^IBBAACCT(IBBDFN,IBBARFN,IBBEVENT,$G(IBBAPLR),.IBBPV1,.IBBPV2,.IBBPR1,.IBBDG1,.IBBZCL,$G(IBBDIV),$G(IBBRAIEN),.IBBSURG)
|
|---|
| 24 | ;
|
|---|
| 25 | GETCHGID() ;Obtain unique charge id for service being charged
|
|---|
| 26 | ;
|
|---|
| 27 | Q $$GETCHGID^IBBACHRG()
|
|---|
| 28 | ;
|
|---|
| 29 | CHARGE(IBBDFN,IBBARFN,IBBCTYPE,IBBUCID,IBBFT1,IBBPR1,IBBDG1,IBBZCL,IBBRXE,IBBORIEN,IBBPROS) ;
|
|---|
| 30 | ;Send charge data to external medical billing system
|
|---|
| 31 | ;
|
|---|
| 32 | Q $$CHARGE^IBBACHRG(IBBDFN,IBBARFN,IBBCTYPE,IBBUCID,.IBBFT1,.IBBPR1,.IBBDG1,.IBBZCL,.IBBRXE,$G(IBBORIEN),.IBBPROS)
|
|---|
| 33 | ;
|
|---|
| 34 | SETACCT(IBBDFN,HLMTIENS) ;Store external medical billing system's visit# in file #375 record
|
|---|
| 35 | ;
|
|---|
| 36 | Q $$SET^IBBAADTI(IBBDFN,HLMTIENS)
|
|---|
| 37 | ;
|
|---|
| 38 | EXTNUM(IBBDFN,IBBARFN) ;Get external medical billing system's visit#
|
|---|
| 39 | ;
|
|---|
| 40 | Q $$EXTNUM^IBBAACCT(IBBDFN,IBBARFN)
|
|---|
| 41 | ;
|
|---|
