IBCU64 ;ALB/ARH - AUTOMATED BILLER (INPT CONT) ;8/6/93
Source file <IBCU64.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 |
|---|---|---|
| LOS1(IFN,IBDTS) | ; returns length of stay for a bill's date range
; If actual leave dates needed, pass IBDTS by reference ; Returns IBDTS(begin leave dt)=end leave dt) |
|
| LOS1Q | ||
| AD(IBPMCA) | ; returns inpatient admit and discharge date, DFN, PTF, Facility Treating Specialty, if one/both don't exist "0^0"
|
|
| ADQ | ||
| LOS(IBBDT,IBEDT,BTF,IBPMCA,IBDTS) | ; calculate the inpatient length of stay for a given time period
|
|
| LOSQ | ||
| DUPCHKI(DT1,DT2,PTF,RTG,DISP,IFN) | ;Check for duplicate billing of inpt admission - checks for overlapping date range on other
|
|
| DCIQ | ||
| ADM(DFN,IBDT) | ; -- send back Admission and Discharge Dates for a patient on IBDT (or now) if any, 0 otherwise
|
|
| ADME | ||
| PTFADM(PTF) | ; given a PTF #, return the Patient Movement Admission entry pointer (405)
|
|
| NONCOV(IBBDT,IBEDT,IBPMCA,IBDTS) | ; Determine the total # of non billable
; days in an inpt date range ; variables are input to DGUTL2 call ; Array IBDTS(movement from date)=movement to date is returned if passed ; by reference |
|
| PPS(IBIFN,IBPTF) | ; Calculate the claim's default PPS - prospective payment system code.
; Also known as the DRG - diagnosis-related group. ; This field is a trigger from the .08 field PTF entry# to field# 170 for the PPS. ; IB*2*400 addition ; Input - IBIFN - ien to file 399 ; IBPTF - ien to file 45 - value of the .08 field |
|
| PPSX | ;
|
|
| PPSC(IBIFN) | ; Trigger condition for setting the PPS field (field# 170)
; Function value=1 if it is OK to fire the trigger |
|
| PPSCX | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DGPT - [#45] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | LOS1+3, LOS1+7, DUPCHKI+11, DUPCHKI+14, DUPCHKI+15, DUPCHKI+16, DUPCHKI+18, PPSC+3 |
| ^DGCR(399.3 - [#399.3] | DUPCHKI+19 |
| ^DGPM - [#405] | AD+2, AD+3, ADM+6, ADM+7 |
| ^DGPM("AMV1" | LOS1+6 |
| ^DGPM("APTF" | PTFADM+1 |
| ^DGPM("ATID1" | ADM+5, ADM+6 |
| ^DPT - [#2] | ADM+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | ADM+2~ |
| BTF | LOS~, LOS+9 |
| DFN | LOS1+3~, LOS1+5*, LOS1+6, LOS+8~, LOS+11*, ADM~, ADM+3, ADM+5, ADM+6 |
| DISP | DUPCHKI~, DCIQ |
| DT1 | DUPCHKI~, DUPCHKI+13*, DUPCHKI+14*, DUPCHKI+18 |
| DT2 | DUPCHKI~, DUPCHKI+13*, DUPCHKI+14*, DUPCHKI+18 |
| IBA | LOS+8~ |
| IBADM | LOS1+3~, LOS1+5*, LOS1+6, LOS+8~, LOS+11*, LOS+13, ADM+2~, ADM+6*, ADM+9 |
| IBADT1 | ADM+2~, ADM+6*, ADM+7, ADM+9 |
| IBADT2 | ADM+2~, ADM+4*, ADM+7*, ADM+8*, ADM+9 |
| IBBDT | LOS~, LOS+8, LOS+9, LOS+10, LOS+13*, LOS+14, LOS+15, NONCOV~, NONCOV+7 |
| IBDIS | ADM+2~, ADM+7*, ADM+9 |
| IBDISDT | LOS+8~, LOS+11*, LOS+13 |
| IBDT | ADM~, ADM+3*, ADM+4, ADM+9 |
| IBDTS | LOS1~, LOS1+8, LOS~, LOS+15, NONCOV~, NONCOV+8* |
| IBDTS( | NONCOV+9* |
| IBEDT | LOS~, LOS+8, LOS+9*, LOS+10, LOS+13*, LOS+14, LOS+15, NONCOV~, NONCOV+7 |
| IBIFN | PPS~, PPS+7, PPS+8, PPS+10, PPSC~, PPSC+3, PPSC+4, PPSC+5 |
| IBINPT | ADM+2~, ADM+3*, ADM+5, ADM+9*, ADME |
| IBNDT | ADM+2~, ADM+4*, ADM+5*, ADM+6 |
| IBNOW | ADM+2~*, ADM+3, ADM+4 |
| IBPMCA | LOS1+3~*, LOS1+6*, LOS1+8, AD~, AD+1, AD+2, LOS~, LOS+11, LOS+15, NONCOV~ , NONCOV+7 |
| IBPTF | PPS~, PPS+9 |
| IBX | LOS+8~*, LOS+10*, LOS+14*, LOS+15*, LOSQ, PTFADM+1~*, PTFADM+2 |
| IBY | LOS+8~, LOS+11* |
| IBZ | NONCOV+6~, NONCOV+7 |
| IBZ( | NONCOV+9 |
| IBZ(0 | NONCOV+8, NONCOV+10 |
| IFN | LOS1~, LOS1+3, LOS1+7, DUPCHKI~, DUPCHKI+11*, DUPCHKI+15 |
| IFN2 | DUPCHKI+11~, DUPCHKI+15*, DUPCHKI+16, DUPCHKI+18, DUPCHKI+19 |
| OK | PPSC+2~*, PPSC+6*, PPSCX+1 |
| PPS | PPS+6~*, PPS+9*, PPS+10*, PPSX+1 |
| PTF | DUPCHKI~, DUPCHKI+12*, DUPCHKI+14, DUPCHKI+15, PTFADM~, PTFADM+1 |
| RTG | DUPCHKI~, DUPCHKI+12*, DUPCHKI+17 |
| U | LOS1+3, LOS1+5, LOS1+8, AD+3, LOS+11, DUPCHKI+12, DUPCHKI+13, DUPCHKI+16, DUPCHKI+17, DUPCHKI+18 , DUPCHKI+19, DCIQ, ADM+7, ADM+9, NONCOV+9, PPSC+3 |
| X | LOS1+3~*, LOS1+7*, LOS1+8*, LOS1Q, AD+1~*, AD+3*, ADQ, LOS+8~, DUPCHKI+11~*, DUPCHKI+12 , DUPCHKI+18*, ADM+2~ |
| X1 | DUPCHKI+11~*, DUPCHKI+13, DUPCHKI+16*, DUPCHKI+17, DUPCHKI+19 |
| Y | LOS1+3~*, LOS1+5, LOS1+8, AD+1~, AD+2*, AD+3, DUPCHKI+11~*, DUPCHKI+15, DUPCHKI+19*, DCIQ , DCIQ+1, ADM+2~ |
| Z | NONCOV+6~, NONCOV+7*, NONCOV+8, NONCOV+9* |
