IBCU64 ;ALB/ARH - AUTOMATED BILLER (INPT CONT) ;8/6/93
Source file <IBCU64.m>
| 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 |
