IBATEI ;ALB/BGA - TRANSFER PRICING INPATIENT TRACKER ; 02-FEB-99
Source file <IBATEI.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Main Entry Point
|
|
| FINDRT(PTF,ADMIS,IBDFN) | ; Find the Rate
|
|
| TYPRATE(X) | ; Pass in PTF ien and return either DRG or Bedsection or ERROR
; see if PTF has a DRG |
|
| CALCRT(Z,Y,V,R) | ; Calculate LOS, and price out claim.
; INPUT: ; Z = a string either "BED" or "DRG" ; Y = ien for the admission movement ; V = value either bedsection NAME or the drg NUMBER ; R = used only with DRG and it is the dollar value of the drg. ; OUTPUT: ; IBCALC=" if 0^ 2nd piece is error message ; if 1^ there are 2 possible options that can be returned ; Option 1 - If we are calculating a Bed Section ; 1^calculated amount^"B" ; Option 2 - If we are calculating a DRG ; 1^calculated amt^ien drg^los^hightrim^outlier days ; ^bedsection rate for the outliers |
|
| END | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DGPT - [#45] | Classic Fileman Calls |
