- IBBAPI ;OAK/ELZ - APIS FOR OTHER PACKAGES FOR PFSS ;6-MAY-2003
- ;;2.0;INTEGRATED BILLING;**256,228,267,260,286**;21-MAR-94
- ;;Per VHA Directive 10-93-142, this routine should not be modified.
- ;
- ; -- See IBBDOC for API details
- ;
- INSUR(DFN,IBDT,IBSTAT,IBR,IBFLDS) ; Return Patient Insurance Information
- ;
- Q $$INSUR^IBBFAPI($G(DFN),$G(IBDT),$G(IBSTAT),.IBR,$G(IBFLDS))
- ;
- ;
- CIDC(DFN) ; Return if CIDC questions should be asked for DFN
- ;
- Q $$CIDC^IBBASCI($G(DFN))
- ;
- SWSTAT() ;Return the PFSS Master switch status
- ;
- Q $$SWSTAT^IBBASWCH()
- ;
- GETACCT(IBBDFN,IBBARFN,IBBEVENT,IBBAPLR,IBBPV1,IBBPV2,IBBPR1,IBBDG1,IBBZCL,IBBDIV,IBBRAIEN,IBBSURG) ;
- ;Send visit data to external medical billing system
- ;
- Q $$GET^IBBAACCT(IBBDFN,IBBARFN,IBBEVENT,$G(IBBAPLR),.IBBPV1,.IBBPV2,.IBBPR1,.IBBDG1,.IBBZCL,$G(IBBDIV),$G(IBBRAIEN),.IBBSURG)
- ;
- GETCHGID() ;Obtain unique charge id for service being charged
- ;
- Q $$GETCHGID^IBBACHRG()
- ;
- CHARGE(IBBDFN,IBBARFN,IBBCTYPE,IBBUCID,IBBFT1,IBBPR1,IBBDG1,IBBZCL,IBBRXE,IBBORIEN,IBBPROS) ;
- ;Send charge data to external medical billing system
- ;
- Q $$CHARGE^IBBACHRG(IBBDFN,IBBARFN,IBBCTYPE,IBBUCID,.IBBFT1,.IBBPR1,.IBBDG1,.IBBZCL,.IBBRXE,$G(IBBORIEN),.IBBPROS)
- ;
- SETACCT(IBBDFN,HLMTIENS) ;Store external medical billing system's visit# in file #375 record
- ;
- Q $$SET^IBBAADTI(IBBDFN,HLMTIENS)
- ;
- EXTNUM(IBBDFN,IBBARFN) ;Get external medical billing system's visit#
- ;
- Q $$EXTNUM^IBBAACCT(IBBDFN,IBBARFN)
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBBAPI 1486 printed Jan 18, 2025@03:09:36 Page 2
- IBBAPI ;OAK/ELZ - APIS FOR OTHER PACKAGES FOR PFSS ;6-MAY-2003
- +1 ;;2.0;INTEGRATED BILLING;**256,228,267,260,286**;21-MAR-94
- +2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
- +3 ;
- +4 ; -- See IBBDOC for API details
- +5 ;
- INSUR(DFN,IBDT,IBSTAT,IBR,IBFLDS) ; Return Patient Insurance Information
- +1 ;
- +2 QUIT $$INSUR^IBBFAPI($GET(DFN),$GET(IBDT),$GET(IBSTAT),.IBR,$GET(IBFLDS))
- +3 ;
- +4 ;
- CIDC(DFN) ; Return if CIDC questions should be asked for DFN
- +1 ;
- +2 QUIT $$CIDC^IBBASCI($GET(DFN))
- +3 ;
- SWSTAT() ;Return the PFSS Master switch status
- +1 ;
- +2 QUIT $$SWSTAT^IBBASWCH()
- +3 ;
- GETACCT(IBBDFN,IBBARFN,IBBEVENT,IBBAPLR,IBBPV1,IBBPV2,IBBPR1,IBBDG1,IBBZCL,IBBDIV,IBBRAIEN,IBBSURG) ;
- +1 ;Send visit data to external medical billing system
- +2 ;
- +3 QUIT $$GET^IBBAACCT(IBBDFN,IBBARFN,IBBEVENT,$GET(IBBAPLR),.IBBPV1,.IBBPV2,.IBBPR1,.IBBDG1,.IBBZCL,$GET(IBBDIV),$GET(IBBRAIEN),.IBBSURG)
- +4 ;
- GETCHGID() ;Obtain unique charge id for service being charged
- +1 ;
- +2 QUIT $$GETCHGID^IBBACHRG()
- +3 ;
- CHARGE(IBBDFN,IBBARFN,IBBCTYPE,IBBUCID,IBBFT1,IBBPR1,IBBDG1,IBBZCL,IBBRXE,IBBORIEN,IBBPROS) ;
- +1 ;Send charge data to external medical billing system
- +2 ;
- +3 QUIT $$CHARGE^IBBACHRG(IBBDFN,IBBARFN,IBBCTYPE,IBBUCID,.IBBFT1,.IBBPR1,.IBBDG1,.IBBZCL,.IBBRXE,$GET(IBBORIEN),.IBBPROS)
- +4 ;
- SETACCT(IBBDFN,HLMTIENS) ;Store external medical billing system's visit# in file #375 record
- +1 ;
- +2 QUIT $$SET^IBBAADTI(IBBDFN,HLMTIENS)
- +3 ;
- EXTNUM(IBBDFN,IBBARFN) ;Get external medical billing system's visit#
- +1 ;
- +2 QUIT $$EXTNUM^IBBAACCT(IBBDFN,IBBARFN)
- +3 ;