IBAMTS1 ;ALB/CPM - PROCESS NEW OUTPATIENT ENCOUNTERS ; 22-JUL-93
Source file <IBAMTS1.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 11 | ^IBAERR1 ^IBAFIL UPDCANC^IBAMTC BULL^IBAMTS CANC^IBAMTS2 $$CHKHRFS^IBAMTS3 TYPE^IBAUTL2 CLADD^IBAUTL3 ADD^IBECEAU3 ($$IGN,$$NBCL,$$NBCSC,$$NBDIS)^IBEFUNC $$GETSC^IBEMTSCU |
| Registration | 3 | $$BIL^DGMTUB ELIG^VADPT ADM^VADPT2 |
| Scheduling | 2 | CL^SDCO21 $$EXOE^SDCOU2 |
| VA FileMan | 2 | NOW^%DTC ($$GET1,GETS)^DIQ |
| Kernel | 1 | $$FMDIFF^XLFDT |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NEW | ; Appointment fully processed - prepare a new charge.
|
|
| BLD | ; - build the charge. May also enter from IBAMTS2 (requires IBSL)
|
|
| CLOCK | ||
| NEWQ | ||
| CHKS() | ; Perform a batch of edits to determine whether to bill.
; Input variables required: IBEVT -- encounter ; IBAPTY -- appt type ; IBDAT -- appt date ; IBDT -- appt date/time ; IBORG -- originating process ; IBDISP -- disposition (if registration) |
|
| IBFLR | ; Drop the charge into the IB Background filer.
|
|
| CLPT(DFN,VDATE) | ; Should the patient be asked the classification questions?
; Input: DFN -- Pointer to the patient in file #2 ; VDATE -- Visit date |
|
| INPT(DFN,VAINDT) | ; Was the patient an inpatient at VAINDT?
; Input: DFN -- Pointer to the patient in file #2 ; VAINDT -- Date/time to check for inpatient status ; Output: 1 - inpatient | 0 - not an inpatient |
|
| OLDRATE(IBRTED,IBFR) | ; See if the copay rate effective date is too old.
; Input: IBRTED -- Charge Effective Date ; IBFR -- Visit Date ; Output: 1 -- Effective Date is too old ; 0 -- Not |
|
| CHKPRIM | ; check to see if patient has been billed for primary
; and this is a specialty stop. if so, cancel the primary ; bill and let the software create the new specialty charge ; input ibbilled = last parent bill to check (ien 350) ; used to check the rate ; output ibbilled = last parent bill number to prevent ; adding specialty charge |
|
| CHKELIG(DFN) | ; check if patient eligibilities prevent billing IB*2.0*817
|
|
| GETSA(IBOE) | ; get special authority flags IB*2.0*795
|
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | IBFLR+2 |
| $$BIL^DGMTUB | NEW+14 |
| $$GET1^DIQ | GETSA+8 |
| GETS^DIQ | GETSA+9 |
| ^IBAERR1 | NEWQ |
| ^IBAFIL | IBFLR+4 |
| UPDCANC^IBAMTC | CHKPRIM+29 |
| BULL^IBAMTS | BLD+17 |
| CANC^IBAMTS2 | CHKPRIM+28 |
| $$CHKHRFS^IBAMTS3 | NEW+23 |
| TYPE^IBAUTL2 | BLD+12 |
| CLADD^IBAUTL3 | CLOCK |
| ADD^IBECEAU3 | BLD+14 |
| $$IGN^IBEFUNC | CHKS+18, CHKS+34 |
| $$NBCL^IBEFUNC | CHKS+21 |
| $$NBCSC^IBEFUNC | CHKS+22 |
| $$NBDIS^IBEFUNC | CHKS+23 |
| $$GETSC^IBEMTSCU | BLD+6, CHKPRIM+10 |
| CL^SDCO21 | CLPT+3 |
| $$EXOE^SDCOU2 | BLD+17 |
| ELIG^VADPT | CHKELIG+8 |
| ADM^VADPT2 | INPT+4 |
| $$FMDIFF^XLFDT | OLDRATE+7 |
| FileNo | Call Tags |
|---|---|
| ^SCE - [#409.68] | GET1^DIQ |
| ^AUPNVSIT - [#9000010] | GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IB - [#350] | CHKPRIM+19, CHKPRIM+23, CHKPRIM+26 |
| ^IBE(350.1 - [#350.1] | IBFLR+3 |
| ^IBE(351 - [#351] | CLOCK |
| ^IBE(352.5 - [#352.5] | BLD+9, CHKPRIM+13, CHKPRIM+19 |
| ^SC - [#44] | CHKS+15, CHKS+37 |
| ^TMP("SDEVT" | NEW+9, NEW+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | BLD+5~, BLD+6*, IBFLR+2, CHKPRIM+7~ |
| CNT | GETSA+6~, GETSA+10* |
| DFN | NEW+14, NEW+23, NEW+25, BLD+17, CLOCK, CHKS+26, CHKS+40, CLPT~, CLPT+3, INPT~ , CHKELIG~ |
| DT | CHKS+26, CHKS+40 |
| ELSTR | CHKELIG+5~, CHKELIG+6*, CHKELIG+9 |
| IBAFY | IBFLR+1~ |
| >> IBAPTY | CHKS+18, CHKS+34 |
| IBARR | CLPT+3~, CLPT+4 |
| IBARTYP | IBFLR+1~ |
| IBATYP | NEWQ+2!, IBFLR+3 |
| >> IBBILLED | NEW+5, CHKPRIM+19, CHKPRIM+23, CHKPRIM+26, CHKPRIM+29, CHKPRIM+32* |
| IBBS | NEWQ+1! |
| IBCHG | NEWQ+2! |
| IBCLDA | NEWQ+1! |
| IBCLDT | CLOCK*, NEWQ+1! |
| IBCRES | CHKPRIM+7~, CHKPRIM+23* |
| >> IBDAT | NEW+5, NEW+12*, NEW+23, BLD+6, BLD+13, BLD+17, CLOCK, CHKS+13, CHKS+18, CHKS+26 , CHKS+34, CHKS+40, CHKPRIM+10 |
| IBDESC | NEWQ+2! |
| IBDISP | NEW+8, NEW+9*, NEW+10, NEWQ+1!, CHKS+23 |
| >> IBDT | NEW+12*, NEW+14, CHKS+21, CHKS+22, CHKS+23 |
| IBEVDA | BLD+13*, NEWQ+2! |
| >> IBEVT | CHKS+15, CHKS+21, CHKS+22, CHKS+37 |
| IBFAC | IBFLR+1~ |
| IBFR | BLD+13*, NEWQ+2!, OLDRATE~, OLDRATE+7 |
| IBI | CHKPRIM+7~, CHKPRIM+26* |
| IBIL | IBFLR+1~ |
| IBMED | NEWQ+1! |
| IBN | NEWQ+1!, IBFLR+2 |
| IBNOS | IBFLR+1~, IBFLR+2* |
| IBNOW | IBFLR+1~, IBFLR+2* |
| IBNUM | OLDRATE+6~, OLDRATE+7*, OLDRATE+8 |
| IBOE | NEW+20, NEW+28, BLD+17, CHKPRIM+10, GETSA~, GETSA+8 |
| >> IBOEN | BLD+17 |
| >> IBORG | NEW+8, NEW+9, NEW+11, CHKS+21, CHKS+22, CHKS+23 |
| IBRESULT | CHKS+7~, CHKS+10*, CHKS+13, CHKS+29* |
| IBRTED | OLDRATE~, OLDRATE+7 |
| IBS | CHKPRIM+7~, CHKPRIM+23*, CHKPRIM+26* |
| IBSA | GETSA+6~ |
| IBSA(9000010 | GETSA+10 |
| IBSEQNO | IBFLR+1~, IBFLR+3* |
| IBSERV | IBFLR+1~ |
| IBSITE | IBFLR+1~ |
| IBSL | NEW+28*, BLD+6, NEWQ+2! |
| IBSTOPDA | BLD+5~, BLD+6*, BLD+9, CHKPRIM+7~, CHKPRIM+10*, CHKPRIM+13 |
| IBTEMP | NEW+11*, NEW+12, NEWQ+1! |
| IBTO | BLD+13*, NEWQ+2! |
| IBTOTL | IBFLR+1~ |
| IBTRAN | IBFLR+1~ |
| IBTYPE | BLD+5~, BLD+9*, BLD+11*, CHKPRIM+7~, CHKPRIM+13*, CHKPRIM+16 |
| IBUNIT | BLD+13*, NEWQ+2! |
| IBVST | GETSA+6~, GETSA+8*, GETSA+9 |
| IBWHER | IBFLR+1~ |
| IBX | BLD+12*, NEWQ+2! |
| >> IBY | BLD+12, BLD+14, BLD+24, NEWQ, IBFLR+3*, IBFLR+4 |
| IBYR | OLDRATE+6~, OLDRATE+7*, OLDRATE+8 |
| IENS | GETSA+6~, GETSA+9*, GETSA+10 |
| RES | CHKELIG+5~, CHKELIG+7*, CHKELIG+9*, CHKELIG+10, GETSA+6~, GETSA+7*, GETSA+8, GETSA+10*, GETSA+11 |
| >> SDHDL | NEW+9, NEW+11 |
| U | CHKELIG+9, GETSA+10 |
| VADMVT | INPT+4~, INPT+5 |
| VAEL | CHKELIG+5~ |
| VAEL(1 | CHKELIG+9 |
| VAINDT | INPT~ |
| VDATE | CLPT~, CLPT+3 |
| Z | CHKELIG+5~, CHKELIG+9*, GETSA+6~, GETSA+10* |
