©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
IBCU3 ;ALB/AAS - BILLING UTILITY ROUTINE (CONTINUED) ;12-FEB-90
Source file <IBCU3.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 1 | $$DAT1^IBOUTL |
| Registration | 1 | ELIG^VADPT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FTQ | ||
| BILLEDQ | ||
| FT(IFN) | ;return a bills form type, based on current (399,.19), default (350.9,1.26), and ins co (36,.14) form types
|
|
| RXDUPE | ||
| BILLED(PTF) | ;returns bill "IFN^^rate group" if PTF record is already associated with an uncancelled final bill
|
|
| SC(DFN) | ; returns 1 if service connection indicated, 0 otherwise (based on VAEL(3))
|
|
| APPT(DATE,DFN,DISP) | ;Check date to see if patient has Sched. Appt., add/edit or Registration
|
|
| APPTE | ||
| FNT(FTN) | ;returns the ifn of the form type name passed in, must be exact match, 0 if none found
|
|
| SCE | ||
| BDT(DFN,DATE) | ; returns primary bill defined for an event date, "" if none
|
|
| BDTE | ||
| RXDUP(RX,DATE,IFN,DISP,DFN,RTG) | ;returns bill ifn if rx # exists on another bill
|
|
| BILLDEV(IFN,PRT) | ;returns the default device for a bill's form type, if PRT is passed as true then returns the AR follow up device, otherwise the billing device
|
|
| FTN(FT) | ;returns name of the form type passed in, "" if not defined
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | BDT+1, BDT+2, BDT+3, BILLED+2, BILLED+3, BILLED+4, BILLED+5, FT+1, FT+4, BILLDEV+1 , RXDUP+7, RXDUP+9 |
| ^DGCR(399.3 - [#399.3] | RXDUP+13 |
| ^DIC(36 - [#36] | FT+4 |
| ^DPT - [#2] | APPT+10, APPT+11, APPT+13 |
| ^IBA(362.4 - [#362.4] | RXDUP+8 |
| ^IBE(350.9 - [#350.9] | FT+4 |
| ^IBE(353 - [#353] | FTN+1, FNT+1, BILLDEV+1 |
| ^SDV("ADT" | APPT+12 |
| Name | Line Occurrences |
|---|---|
| $$FT | BILLDEV+1 |
| $$FTN | FT+2, FT+6, FT+7 |
| APPTE | APPT+10, APPT+12 |
| BDTE | BDT+1 |
| BILLEDQ | BILLED+2 |
| FTQ | FT+2, FT+5 |
| RXDUPE | RXDUP+6 |
| SCE | SC+1 |
| Name | Field # of Occurrence |
|---|---|
| ^( | APPT+11, APPT+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BIFN | RXDUP+6~, RXDUP+9*, RXDUP+13 |
| BLN | RXDUP+6~, RXDUP+9*, RXDUP+10, RXDUP+11, RXDUP+12, RXDUP+13 |
| DATE | APPT~, APPT+9*, APPT+10, APPT+11, APPT+12, APPT+13, BDT~, BDT+1, BDT+2*, BDT+3 , RXDUP~, RXDUP+6*, RXDUP+8, RXDUP+13 |
| DFN | SC~, SC+1, APPT~, APPT+10, APPT+11, APPT+12, APPT+13, BDT~, BDT+1, BDT+2 , BDT+3, RXDUP~, RXDUP+7*, RXDUP+11 |
| DISP | APPT~, APPTE, RXDUP~, RXDUPE |
| FT | FTN~, FTN+1 |
| FTC | FT+1~*, FT+2, FT+5, FT+8 |
| FTD | FT+1~, FT+4*, FT+5, FT+7 |
| FTI | FT+1~, FT+4*, FT+5, FT+6 |
| FTN | FT+1~, FNT~, FNT+1 |
| IFN | BILLED+2~, BILLED+3*, BILLED+4, BILLED+5, FT~, FT+1*, FT+4, BILLDEV~, BILLDEV+1, RXDUP~ , RXDUP+6*, RXDUP+7, RXDUP+9 |
| INS | FT+1~, FT+4* |
| LN | RXDUP+6~, RXDUP+7* |
| PRT | BILLDEV~, BILLDEV+1* |
| PTF | BILLED~, BILLED+2, BILLED+3 |
| RIFN | RXDUP+6~*, RXDUP+8* |
| RLN | RXDUP+6~, RXDUP+8*, RXDUP+9 |
| RTG | RXDUP~, RXDUP+7*, RXDUP+12 |
| RX | RXDUP~, RXDUP+6*, RXDUP+8, RXDUP+13 |
| U | APPT+13, APPTE, BDT+3, BILLED+3, BILLED+4, BILLED+5, FTN+1, FT+1, FT+4, BILLDEV+1 , RXDUP+7, RXDUP+8, RXDUP+9, RXDUP+10, RXDUP+11, RXDUP+12, RXDUP+13, RXDUPE |
| VAEL | SC+3! |
| VAEL(3 | SC+2, SC+3 |
| VAERR | SC+3! |
| X | SC+1~*, SC+3*, SCE, APPT+9~, APPT+11*, APPT+13*, BDT+1~*, BDT+3*, BDTE, BILLED+2~ , BILLED+4*, BILLED+5, FTN+1~*, FTN+2, FT+1~*, FT+2*, FT+5*, FT+6*, FT+7*, FT+8* , FTQ, FNT+1~*, FNT+2, BILLDEV+1~*, BILLDEV+2, RXDUP+6~*, RXDUP+8, RXDUP+13*, RXDUPE, RXDUPE+1 |
| X1 | APPT+9~, APPT+11*, APPT+13* |
| X2 | APPT+9~, APPT+13* |
| Y | SC+1~*, SC+2*, SC+3, APPT+9~*, APPT+10*, APPT+11*, APPT+12*, APPT+13*, APPTE, APPTE+1 , BDT+1~, BDT+2*, BDT+3, BILLED+2~*, BILLED+3, BILLED+5*, BILLEDQ, FT+1~*, FNT+1~, BILLDEV+1~* |