IBBAPI.m

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 ---IBBAPI   1486     printed  Apr 09, 2024@21:29:05                                                                                                                                                                                                      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       ;