IBTUBO2 ;ALB/AAS - UNBILLED AMOUNTS - GENERATE UNBILLED REPORTS ;03 Aug 2004 8:21 AM
Source file <IBTUBO2.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 |
|---|---|---|
| INPT(DGPM) | ; - Check if inpatient episode has bills or final bill; if not,
; ^TMP($J,"IBTUB",DIVISION,"INPT",NAME@@DFN,DATE,IBX)=bill status ; ^TMP($J,"IBTUB",DIVISION,"INPT_MRA",NAME@@DFN,DATE,IBX)=1 if MRA request ; *Pre-set variables: DFN=patient IEN, DGPM=pointer to file #405, ; IBDT=event date, IBRT=bill rate, ; IBEDT=reporting period date |
|
| INPTQ | ||
| RX(IBRX) | ; - Check if prescription has been billed; if not,
; ^TMP($J,"IBTUB",DIVISION,"RX",NAME@@DFN,DATE@RX#,IBX)=bill status^drug name^ ; original fill date ; ^TMP($J,"IBTUB",DIVISION,"RX_MRA",NAME@@DFN,DATE@RX#,IBX)=1 if req MRA |
|
| RX1 | ; - Calculate unbilled amounts.
|
|
| RXQ |
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | INPT+12, INPT+13, RX+21 |
| $$RATECHG^IBCRCC | RX1+32 |
| $$BICOST^IBCRCI | RX1+35 |
| $$EVNTITM^IBCRU3 | RX1+16 |
| $$FILE^IBRXUTL | RX+15, RX+20, RX1+53 |
| $$RFLNUM^IBRXUTL | RX1+20 |
| $$RXZERO^IBRXUTL | RX+12 |
| $$ZEROSUB^IBRXUTL | RX1+22 |
| ZERO^IBRXUTL | RX1+52 |
| $$CKBIL^IBTUBOU | INPT+31, RX+41 |
| $$HOSP^IBTUBOU | INPT+88 |
| $$SC^IBTUBOU | INPT+25 |
| $$PRIM^VASITE | INPT+13 |
| FileNo | Call Tags |
|---|---|
| ^DGPM - [#405] | GET1^DIQ |
| ^DIC(42 - [#42] | GET1^DIQ |
| ^SC - [#44] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | INPT+30 |
| ^DGPM - [#405] | INPT+24, INPT+25 |
| ^DPT - [#2] | INPT+9, RX+17 |
| ^IBA(362.4 - [#362.4] | RX+35, RX+36 |
| ^TMP($J | INPT+14, INPT+22, INPT+88*, INPT+89*, RX+22, RX+31, RX1+53*, RX1+54*, RX1+55! |
| ^VA(200 - [#200] | RX1+53 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DFN | INPT+7, INPT+9, INPT+22, INPT+30, INPT+88, INPT+89, RX+8, RX+12, RX+17, RX+31 , RX1+22, RX1+53, RX1+54 |
| DGPM | INPT~, INPT+7, INPT+12, INPT+24, INPT+25, INPT+88 |
| >> IB(1 | INPT+54* |
| >> IB(17 | RX1+47* |
| >> IB(18 | RX1+48* |
| >> IB(3 | INPT+68* |
| >> IB(5 | INPT+82* |
| IBBI | RX1+13~, RX1+16*, RX1+18, RX1+31 |
| IBCLIN | RX+9~, RX+20*, RX+21 |
| IBCO | RX+9~, RX1+32*, RX1+35*, RX1+39, RX1+40, RX1+43, RX1+44, RX1+48 |
| >> IBCOMP | INPT+38, RX+44 |
| IBCOST | RX1+13~, RX1+24*, RX1+29*, RX1+32 |
| IBDATA | INPT+8~, INPT+31*, INPT+34, INPT+38, INPT+40, RX+9~, RX+41*, RX+44, RX+45, RX+46 |
| IBDAY | RX+9~, RX+17*, RX+38, RX1+16, RX1+20, RX1+32, RX1+35 |
| >> IBDET | INPT+52, INPT+58, INPT+66, INPT+72 |
| IBDIV | INPT+8~, INPT+13*, INPT+14, INPT+20*, INPT+22, INPT+50, INPT+56, INPT+64, INPT+70, INPT+77 , INPT+80, INPT+88, INPT+89, RX+9~, RX+21*, RX+22, RX+28*, RX+31, RX1+2, RX1+6 , RX1+39, RX1+43, RX1+53, RX1+54 |
| IBDRX | RX+9~, RX+17*, RX+31, RX1+53, RX1+54 |
| >> IBDT | INPT+7, INPT+22, INPT+34, INPT+43, INPT+62, INPT+88, INPT+89, RX+8, RX+17 |
| >> IBEDT | INPT+38, RX+44 |
| IBFEE | RX1+13~, RX1+32 |
| IBFL | RX+9~, RX+34*, RX+35, RX+45*, RX+49 |
| IBFLG | RX+9~, RX+34*, RX+37*, RX1+53 |
| >> IBINMRA | INPT+84, INPT+85, INPT+88, INPT+89, RX1+53, RX1+54 |
| IBIP | INPT+8~ |
| IBIP( | INPT+40* |
| IBIP(1 | INPT+26*, INPT+30, INPT+43, INPT+48, INPT+49, INPT+55, INPT+76, INPT+79, INPT+84, INPT+85 |
| IBIP(2 | INPT+26*, INPT+30, INPT+43, INPT+62, INPT+63, INPT+69, INPT+76, INPT+79, INPT+84, INPT+85 |
| IBMRA | INPT+8~, INPT+46*, INPT+58*, INPT+72*, INPT+89, RX+9~, RX+34*, RX+45*, RX+46*, RX1+1 , RX1+38, RX1+42, RX1+53, RX1+54 |
| IBNAME | INPT+8~, INPT+9*, INPT+22, INPT+88, INPT+89, RX+9~, RX+17*, RX+31, RX1+53, RX1+54 |
| IBNCF | INPT+8~, INPT+29*, INPT+35*, INPT+88, RX+9~, RX+34*, RX+42*, RX1+53 |
| IBNCF(0 | RX+34* |
| IBND | RX+9~, RX+12*, RX1+28, RX1+29, RX1+52, RX1+53 |
| IBNO | RX+9~, RX+12*, RX+17, RX+35 |
| >> IBNONMRA | RX+44* |
| IBOFD | RX+9~, RX+15*, RX+37 |
| IBQTY | RX1+13~, RX1+23*, RX1+28*, RX1+32 |
| IBRFNUM | RX1+13~, RX1+20*, RX1+21, RX1+22 |
| IBRSNEW | RX1+13~, RX1+16, RX1+31*, RX1+32 |
| IBRSNEW( | RX1+31 |
| >> IBRT | INPT+7, RX+8, RX1+16, RX1+35 |
| IBRX | RX~, RX+8, RX+12, RX+15, RX+20, RX1+20, RX1+22, RX1+53 |
| >> IBSBD | INPT+20, RX+28 |
| IBSUBND | RX1+13~, RX1+22*, RX1+23, RX1+24 |
| >> IBUNB( | INPT+50*, INPT+56*, INPT+64*, INPT+70*, INPT+77*, INPT+80*, RX1+2*, RX1+6*, RX1+39*, RX1+43* |
| >> IBUNB("EPISM-A" | INPT+78* |
| >> IBUNB("EPISM-A-MRA" | INPT+81* |
| >> IBUNB("EPISM-I" | INPT+51* |
| >> IBUNB("EPISM-I-MRA" | INPT+57* |
| >> IBUNB("EPISM-P" | INPT+65* |
| >> IBUNB("EPISM-P-MRA" | INPT+71* |
| >> IBUNB("PRESCRP" | RX1+7* |
| >> IBUNB("PRESCRP-MRA" | RX1+3* |
| >> IBUNB("UNBILRX" | RX1+44* |
| >> IBUNB("UNBILRX-MRA" | RX1+40* |
| IBWARD | INPT+8~, INPT+12*, INPT+13 |
| >> IBX | INPT+88, INPT+89, RX+31, RX1+53, RX1+54 |
| >> IBXTRACT | INPT+54, INPT+68, INPT+82, RX1+46 |
| IBXX | INPT+8~, INPT+46*, INPT+52*, INPT+66*, INPT+88 |
| RX | RX+9~, RX+36*, RX+41 |
| RXDT | RX+9~, RX+36*, RX+37, RX+38 |
| U | INPT+9, INPT+24, INPT+25, INPT+34, INPT+38, INPT+40, INPT+88, INPT+89, RX+12, RX+17 , RX+36, RX+41, RX+44, RX+45, RX+46, RX1+23, RX1+24, RX1+28, RX1+29, RX1+52 , RX1+53 |
| X | INPT+8~, INPT+29*, INPT+30*, INPT+31, RX+9~, RX+34*, RX+35*, RX+36 |
| Y | INPT+8~ |
