©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
IBAMTS1 ;ALB/CPM - PROCESS NEW OUTPATIENT ENCOUNTERS ; 22-JUL-93
Source file <IBAMTS1.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 7 | ^IBAERR1 ^IBAFIL BULL^IBAMTS TYPE^IBAUTL2 CLADD^IBAUTL3 ADD^IBECEAU3 ($$IGN,$$NBCL,$$NBCSC,$$NBDIS)^IBEFUNC |
| Registration | 2 | $$BIL^DGMTUB ADM^VADPT2 |
| Scheduling | 2 | CL^SDCO21 $$EX^SDCOU2 |
| VA Fileman | 2 | NOW^%DTC ^DIE |
| Kernel | 1 | $$FMDIFF^XLFDT |
| Package | Total | Caller Graph |
|---|---|---|
| Integrated Billing | 3 | IBAMTS IBAMTS2 IBEMTO |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CLSF(IBUPD,Y) | ; Examine classification questions.
|
|
| CLOCK | ||
| OLDRATE(IBRTED,IBFR) | ; See if the copay rate effective date is too old.
|
|
| CLPT(DFN,VDATE) | ; Should the patient be asked the classification questions?
|
|
| CHKS() | ; Perform a batch of edits to determine whether to bill.
|
|
| CHKSQ | ||
| IBFLR | ; Drop the charge into the IB Background filer.
|
|
| BLD | ; - build the charge. May also enter from IBAMTS2 (requires IBSL)
|
|
| NEW | ; Appointment fully processed - prepare a new charge.
|
|
| INPT(DFN,VAINDT) | ; Was the patient an inpatient at VAINDT?
|
|
| NEWQ |
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | IBFLR+2 |
| $$BIL^DGMTUB | NEW+11 |
| ^DIE | BLD+10 |
| ^IBAERR1 | NEWQ |
| ^IBAFIL | IBFLR+4 |
| BULL^IBAMTS | BLD+6 |
| TYPE^IBAUTL2 | BLD+1 |
| CLADD^IBAUTL3 | CLOCK |
| ADD^IBECEAU3 | BLD+3 |
| $$IGN^IBEFUNC | CHKS+13 |
| $$NBCL^IBEFUNC | CHKS+16 |
| $$NBCSC^IBEFUNC | CHKS+17 |
| $$NBDIS^IBEFUNC | CHKS+18 |
| CL^SDCO21 | CLPT+3 |
| $$EX^SDCOU2 | BLD+6 |
| ADM^VADPT2 | INPT+4 |
| $$FMDIFF^XLFDT | OLDRATE+6 |
| FileNo | Call Tags |
|---|---|
| ^IB - [#350] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBE(350.1 - [#350.1] | IBFLR+3 |
| ^IBE(351 - [#351] | CLOCK |
| ^SC - [#44] | CHKS+10 |
| ^TMP("SDEVT" | NEW+6, NEW+8, CLSF+8 |
| Name | Line Occurrences |
|---|---|
| $$CHKS | NEW+14 |
| $$CLPT | BLD+6 |
| $$INPT | CHKS+21 |
| $$OLDRATE | BLD+9 |
| CHKSQ | CHKS+10, CHKS+13, CHKS+16, CHKS+17, CHKS+18, CHKS+21 |
| CLOCK | BLD+9 |
| CLSF | NEW+17 |
| IBFLR | BLD+13 |
| NEWQ | NEW+2, NEW+5, NEW+11, NEW+14, NEW+18, BLD+1, BLD+3, BLD+13 |
| Name | Field # of Occurrence |
|---|---|
| ^( | CLSF+8 |
| ^("AFTER" | CLSF+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | IBFLR+2 |
| DA | BLD+10*! |
| DFN | NEW+11, BLD+6, CLOCK, CHKS+21, CLPT~, CLPT+3, INPT~ |
| DIE | BLD+10*! |
| DR | BLD+10*! |
| DT | CHKS+21 |
| IBAFY | IBFLR+1~ |
| >> IBAPTY | CHKS+13 |
| IBARTYP | IBFLR+1~ |
| IBATYP | NEWQ+2!, IBFLR+3 |
| >> IBBILLED | NEW+2 |
| IBBS | NEWQ+1! |
| IBCHG | NEWQ+2! |
| IBCLDA | NEWQ+1! |
| IBCLDT | CLOCK*, NEWQ+1! |
| IBCLSF | NEW+17, NEW+18, NEWQ+1! |
| >> IBDAT | NEW+9*, BLD+2, BLD+6, CLOCK, CHKS+13, CHKS+21 |
| IBDESC | NEWQ+2! |
| IBDISP | NEW+5, NEW+6*, NEW+7, NEWQ+1!, CHKS+18 |
| >> IBDT | NEW+9*, NEW+11, CHKS+16, CHKS+17, CHKS+18 |
| IBEVDA | BLD+2*, NEWQ+2! |
| >> IBEVT | BLD+6, CHKS+10, CHKS+16, CHKS+17 |
| IBFAC | IBFLR+1~ |
| IBFR | BLD+2*, BLD+9, NEWQ+2!, OLDRATE~, OLDRATE+6 |
| IBIL | IBFLR+1~ |
| IBMED | NEWQ+1! |
| IBN | BLD+10, NEWQ+1!, IBFLR+2 |
| IBNOS | IBFLR+1~, IBFLR+2* |
| IBNOW | IBFLR+1~, IBFLR+2* |
| IBNUM | OLDRATE+5~, OLDRATE+6*, OLDRATE+7 |
| >> IBOE | NEW+20, CLSF+8 |
| >> IBORG | NEW+5, NEW+6, NEW+8, BLD+6, CHKS+16, CHKS+17, CHKS+18, CLSF+8 |
| IBRTED | BLD+9, OLDRATE~, OLDRATE+6 |
| IBSEQNO | IBFLR+1~, IBFLR+3* |
| IBSERV | IBFLR+1~ |
| IBSITE | IBFLR+1~ |
| IBSL | NEW+20*, NEWQ+2! |
| IBTEMP | NEW+8*, NEW+9, NEWQ+1! |
| IBTO | BLD+2*, NEWQ+2! |
| IBTOTL | IBFLR+1~ |
| IBTRAN | IBFLR+1~ |
| IBUNIT | BLD+2*, NEWQ+2! |
| IBUPD | CLSF~, CLSF+7, CLSF+9 |
| IBWHER | IBFLR+1~ |
| IBX | BLD+1*, NEWQ+2! |
| >> IBY | BLD+1, BLD+3, BLD+13, NEWQ, IBFLR+3*, IBFLR+4 |
| IBYR | OLDRATE+5~, OLDRATE+6*, OLDRATE+7 |
| >> SDHDL | NEW+6, NEW+8, CLSF+8 |
| VADMVT | INPT+4~, INPT+5 |
| VAINDT | INPT~ |
| VDATE | CLPT~, CLPT+3 |
| X | CLPT+3~, CLPT+4, CLSF+7~, CLSF+8* |
| Y | CHKS+7~*, CHKS+23*, CHKSQ, CLSF~, CLSF+7*, CLSF+9* |
| Y("AFTER" | CLSF+7*, CLSF+10* |
| Y("BEFORE" | CLSF+7*, CLSF+10* |
| ZA | CLSF+7~, CLSF+8*, CLSF+9, CLSF+10 |
| ZB | CLSF+7~, CLSF+8*, CLSF+10 |