IBAMTS1 ;ALB/CPM - PROCESS NEW OUTPATIENT ENCOUNTERS ; 22-JUL-93
Source file <IBAMTS1.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 10 | ^IBAERR1 ^IBAFIL BULL^IBAMTS CANC^IBAMTS2 $$CHKHRFS^IBAMTS3 TYPE^IBAUTL2 CLADD^IBAUTL3 ADD^IBECEAU3 ($$IGN,$$NBCL,$$NBCSC,$$NBDIS)^IBEFUNC $$GETSC^IBEMTSCU |
| Registration | 2 | $$BIL^DGMTUB ADM^VADPT2 |
| Scheduling | 2 | CL^SDCO21 $$EXOE^SDCOU2 |
| Kernel | 1 | $$FMDIFF^XLFDT |
| VA FileMan | 1 | NOW^%DTC |
| 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 |
|
| CLSF(IBUPD,Y) | ; Examine classification questions.
; Input: IBUPD -- 0 if event just checked out ; 1 if event is being updated ; Y -- array to place output ; Output: indicators returned as ao^ir^sc^swa^mst^hnc^cv^shad [1|yes, 0|no] ; if IBUPD=0, Y is returned as a single string ; if IBUPD=1, Y("BEFORE"),Y("AFTER") are defined. |
|
| 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 |
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | IBFLR+2 |
| $$BIL^DGMTUB | NEW+14 |
| ^IBAERR1 | NEWQ |
| ^IBAFIL | IBFLR+4 |
| BULL^IBAMTS | BLD+17 |
| CANC^IBAMTS2 | CHKPRIM+28 |
| $$CHKHRFS^IBAMTS3 | NEW+24 |
| 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 |
| ADM^VADPT2 | INPT+4 |
| $$FMDIFF^XLFDT | OLDRATE+7 |
| 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, CLSF+8 |
| Name | Field # of Occurrence |
|---|---|
| ^( | CLSF+8 |
| ^("AFTER" | CLSF+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | BLD+5~, BLD+6*, IBFLR+2, CHKPRIM+7~ |
| DFN | NEW+14, NEW+24, BLD+17, CLOCK, CHKS+26, CHKS+40, CLPT~, CLPT+3, INPT~ |
| DT | CHKS+26, CHKS+40 |
| 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+31* |
| IBBS | NEWQ+1! |
| IBCHG | NEWQ+2! |
| IBCLDA | NEWQ+1! |
| IBCLDT | CLOCK*, NEWQ+1! |
| IBCLSF | NEW+20, NEW+21, NEWQ+1! |
| IBCRES | CHKPRIM+7~, CHKPRIM+23* |
| >> IBDAT | NEW+5, NEW+12*, NEW+24, 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+26, BLD+17, CLSF+8, CHKPRIM+10 |
| >> IBOEN | BLD+17 |
| >> IBORG | NEW+8, NEW+9, NEW+11, CHKS+21, CHKS+22, CHKS+23, CLSF+8 |
| IBRESULT | CHKS+7~, CHKS+10*, CHKS+13, CHKS+29* |
| IBRTED | OLDRATE~, OLDRATE+7 |
| IBS | CHKPRIM+7~, CHKPRIM+23*, CHKPRIM+26* |
| IBSEQNO | IBFLR+1~, IBFLR+3* |
| IBSERV | IBFLR+1~ |
| IBSITE | IBFLR+1~ |
| IBSL | NEW+26*, 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! |
| IBUPD | CLSF~, CLSF+7, CLSF+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 |
| >> SDHDL | NEW+9, NEW+11, CLSF+8 |
| VADMVT | INPT+4~, INPT+5 |
| VAINDT | INPT~ |
| VDATE | CLPT~, CLPT+3 |
| X | CLSF+7~, CLSF+8* |
| Y | 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 |
