IBTUBO1 ;ALB/AAS - UNBILLED AMOUNTS - GENERATE UNBILLED REPORTS ;29-SEP-94
Source file <IBTUBO1.m>
| 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 |
|---|---|---|
| OPT(IBOE,IBQUERY) | ; - Has the outpatient encounter been billed?
; Input: IBOE=pointer to outpatient encounter in file #409.68 ; (NOTE: this value may be null) ; IBQUERY (Passed by reference)=flag that is incremented when ; the Scheduling query API is invoked ; *Pre-set variables: DFN=patient IEN, IBDT=event date, IBRT=bill rate, ; IBEDT=End of reporting period date. ; IBX=ien of CLAIMS TRACKING entry file 356 |
|
| OPTQ | ||
| PRERC | ; - Determine if a pre-9/1/99 visit has been billed.
; Output: IBQUIT will be set to 1 if the visit has been billed. ; *Pre-set variables DFN,IBDAY,IBDET,IBNAME,IBNCF,IBQUIT,IBRT,IBEDT ; and IB/IBUNB arrays required. ; NO MRA Extract code needed for pre-RC processes |
|
| PRCQ | ||
| NOOE | ; - If there is no encounter, look for add/edits or registrations.
; Output: IBQUIT will be set to 1 if the visit is non-billable. ; *Pre-set variable IBQUIT required. |
|
| NOOEQ | ||
| SETUB | ; Set array elements for the detail report.
; Array element format: ; NON-MRA: ; ^TMP($J,"IBTUB",DIVISION,"OPT",NAME@@DFN,DATE,IBX)=bill status^claim type ; ^TMP($J,"IBTUB",DIVISION,"OPT",NAME@@DFN,DATE,IBX,CPT no)=inst rate^prof rate ; MRA: ; ^TMP($J,"IBTUB",DIVISION,"OPT_MRA",NAME@@DFN,DATE,IBX,CPT no)=1 if MRA req |
|
| SETUBQ |
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | PRERC+17 |
| $$INPT^IBAMTS1 | OPT+14 |
| $$ENCL^IBAMTS2 | OPT+15 |
| $$BICOST^IBCRCI | OPT+51, OPT+52, PRERC+30 |
| $$CKBIL^IBTUBOU | OPT+68, PRERC+16 |
| CKENC^IBTUBOU | NOOE+7 |
| SCAN^IBTUBOU | NOOE+10 |
| $$CODEC^ICPTCOD | SETUB+13 |
| $$CPT^ICPTCOD | OPT+45 |
| $$EXOE^SDOE | NOOE+6 |
| $$GETOE^SDOE | OPT+19 |
| GETCPT^SDOE | OPT+39 |
| $$PRIM^VASITE | OPT+19 |
| FileNo | Call Tags |
|---|---|
| ^DGCR(399 - [#399] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | OPT+65, OPT+78, PRERC+13 |
| ^DPT - [#2] | OPT+16 |
| ^TMP($J | OPT+21, PRERC+7, PRERC+8, SETUB+9*, SETUB+10*, SETUB+16*, SETUB+17* |
| Name | Field # of Occurrence |
|---|---|
| ^( | OPT+78 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DFN | OPT+9, OPT+14, OPT+16, OPT+65, PRERC+8, PRERC+13, NOOE+6, NOOE+10, SETUB+9, SETUB+10 , SETUB+16, SETUB+17 |
| >> IB(10 | OPT+134* |
| >> IB(11 | OPT+152* |
| >> IB(12 | OPT+152* |
| >> IB(13 | OPT+117* |
| >> IB(14 | OPT+110* |
| >> IB(7 | PRERC+36* |
| >> IB(8 | PRERC+36* |
| >> IB(9 | OPT+134* |
| IBCN | OPT+10~, OPT+45*, OPT+48 |
| >> IBCOMP | OPT+73, PRERC+20 |
| IBCPT | OPT+10~, OPT+60, OPT+94, SETUB+12 |
| IBCPT( | OPT+51*, OPT+52*, OPT+55, OPT+56!, OPT+57!, OPT+85, OPT+87!, OPT+88!, OPT+89!, OPT+113 , OPT+121, OPT+125, OPT+126, OPT+131, OPT+132, OPT+134, OPT+139, OPT+143, OPT+144, OPT+149 , OPT+150, OPT+152, SETUB+12, SETUB+14, SETUB+15, SETUB+16 |
| IBCPT("MRA" | OPT+85*, OPT+106, OPT+115, SETUB+9, SETUB+10, SETUB+16, SETUB+17 |
| IBCPTNM | SETUB+8~, SETUB+13*, SETUB+16, SETUB+17 |
| IBCPTSUM | OPT+10~ |
| IBCPTSUM( | OPT+55*, OPT+87 |
| IBCT | OPT+10~, OPT+82*, OPT+84, OPT+85, OPT+88 |
| IBCTF | SETUB+8~, SETUB+14*, SETUB+15*, SETUB+16 |
| IBDATA | OPT+10~, OPT+68*, OPT+69, OPT+73, OPT+82, PRERC+16*, PRERC+20, NOOE+3~ |
| IBDAY | OPT+10~, OPT+16*, OPT+29, OPT+51, OPT+52, OPT+65, PRERC+8, PRERC+13, PRERC+30, SETUB+9 , SETUB+10, SETUB+16, SETUB+17 |
| >> IBDET | SETUB+11 |
| IBDIV | OPT+10~, OPT+19*, OPT+21, OPT+51, OPT+52, OPT+100*, OPT+108, OPT+123, OPT+125, OPT+129 , OPT+131, OPT+141, OPT+143, OPT+147, OPT+149, PRERC+6*, PRERC+7*, PRERC+8, PRERC+17*, PRERC+26* , PRERC+31, PRERC+33, SETUB+9, SETUB+10, SETUB+16, SETUB+17 |
| >> IBDT | OPT+9, OPT+14, OPT+16, NOOE+6, NOOE+10 |
| >> IBEDT | OPT+73, PRERC+20 |
| IBFL | OPT+10~ |
| >> IBINMRA | SETUB+9, SETUB+10, SETUB+16, SETUB+17 |
| IBMRA | OPT+11~, OPT+106*, OPT+107, OPT+115*, OPT+122, OPT+140 |
| IBMRA( | OPT+69*, OPT+73, OPT+85 |
| IBNAME | OPT+10~, OPT+16*, PRERC+8, SETUB+9, SETUB+10, SETUB+16, SETUB+17 |
| IBNCF | OPT+11~, OPT+16*, OPT+70*, PRERC+16*, SETUB+9 |
| IBOE | OPT~, OPT+15, OPT+19, OPT+24, OPT+30, OPT+39 |
| IBQUERY | OPT~, NOOE+10 |
| IBQUIT | OPT+11~, OPT+16*, OPT+24, OPT+29, PRERC+7, PRERC+8*, PRERC+9, PRERC+13, PRERC+22*, PRERC+25 , NOOE+7 |
| >> IBRT | OPT+9, OPT+51, OPT+52, PRERC+30 |
| >> IBSBD | OPT+100 |
| IBSC | NOOE+3~ |
| IBSDV | NOOE+3~ |
| IBTCHRG | OPT+11~, OPT+83*, OPT+87 |
| >> IBUNB( | OPT+108*, OPT+123*, OPT+125*, OPT+129*, OPT+131*, OPT+141*, OPT+143*, OPT+147*, OPT+149*, PRERC+31* , PRERC+33* |
| >> IBUNB("CPTMS" | OPT+130*, OPT+148* |
| >> IBUNB("CPTMS-MRA" | OPT+124*, OPT+142* |
| >> IBUNB("ENCNTRS" | OPT+109*, PRERC+34* |
| >> IBUNB("UNBILOP" | OPT+132*, OPT+150*, PRERC+32* |
| >> IBUNB("UNBILOP-MRA" | OPT+126*, OPT+144* |
| >> IBX | OPT+9, SETUB+9, SETUB+10, SETUB+16, SETUB+17 |
| >> IBXTRACT | OPT+110, OPT+117, OPT+134, OPT+152, PRERC+36 |
| IBXX | OPT+11~, OPT+42*, OPT+45, OPT+64*, OPT+65*, OPT+68, OPT+69, OPT+73, OPT+78, OPT+85 , PRERC+12~*, PRERC+13*, PRERC+16, PRERC+17, PRERC+30*, PRERC+31, PRERC+32, PRERC+36, NOOE+3~, NOOE+6* , NOOE+7, SETUB+12*, SETUB+13, SETUB+14, SETUB+15, SETUB+16, SETUB+17 |
| IBYD | OPT+11~, OPT+78*, OPT+81, OPT+82, OPT+83 |
| IBYY | OPT+11~, OPT+39, OPT+77*, OPT+78* |
| IBYY( | OPT+42, OPT+45 |
| IBZ | OPT+11~, OPT+45*, OPT+51, OPT+52, OPT+55, OPT+56, OPT+57, OPT+81*, OPT+84, OPT+85 , OPT+87, OPT+88, OPT+89, OPT+113*, OPT+115, OPT+121, OPT+125, OPT+126, OPT+131, OPT+132 , OPT+134, OPT+139, OPT+143, OPT+144, OPT+149, OPT+150, OPT+152 |
| IBZERR | NOOE+3~ |
| U | OPT+16, OPT+19, OPT+69, OPT+73, OPT+81, OPT+82, OPT+83, PRERC+20, SETUB+16 |
