source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBBAPI.m@ 1036

Last change on this file since 1036 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.4 KB
RevLine 
[613]1IBBAPI ;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 ;
7INSUR(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 ;
12CIDC(DFN) ; Return if CIDC questions should be asked for DFN
13 ;
14 Q $$CIDC^IBBASCI($G(DFN))
15 ;
16SWSTAT() ;Return the PFSS Master switch status
17 ;
18 Q $$SWSTAT^IBBASWCH()
19 ;
20GETACCT(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 ;
25GETCHGID() ;Obtain unique charge id for service being charged
26 ;
27 Q $$GETCHGID^IBBACHRG()
28 ;
29CHARGE(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 ;
34SETACCT(IBBDFN,HLMTIENS) ;Store external medical billing system's visit# in file #375 record
35 ;
36 Q $$SET^IBBAADTI(IBBDFN,HLMTIENS)
37 ;
38EXTNUM(IBBDFN,IBBARFN) ;Get external medical billing system's visit#
39 ;
40 Q $$EXTNUM^IBBAACCT(IBBDFN,IBBARFN)
41 ;
Note: See TracBrowser for help on using the repository browser.