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 Oct 16, 2024@18:09:03 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 ;
