FBAAFSR ;WCIOFO/TCK,SS,DMK,SAB - RBRVS FEE SCHEDULE ;1/14/11 11:07am
Source file <FBAAFSR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RBRVS(CPT,MODL,DOS,ZIP,FAC,TIME) | ; calculate RBRVS Fee Schedule amount
; Input ; CPT = CPT/HCPCS code (external value) ; MODL = list of CPT/HCPCS modifiers (external values) ; delimited by commas (e.g. "26,51") ; DOS = date of service (fileman format e.g. 2980101) ; ZIP = ZIP code of service (external 5 digit value) ; FAC = facility flag =1 if site of service is facility setting ; TIME = time in minutes, only passed on anesthesia CPT codes ; Returns string ; dollar amount^sched year OR null value if not on RBRVS schedule ; Output ; FBERR( array of error messages OR undefined if none |
|
| PROC(CPT,MODL,FBCY,FBNONPBL) | ; get procedure data for RBRVS schedule
; Input ; CPT = CPT/HCPCS code (external value) ; MODL = list of CPT/HCPCS modifiers (external value) ; delimited by commas ; FBCY = calendar year (4 digit) ; FBNONPBL ( optional): ; if $G(FBNONPBL)=0 then will make search among payable records only in #162.97 ; ignoring those non-payable ones with field #.08 NONPAYABLE = 1 ; if $G(FBNONPBL)=1 then will make search among all items in #162.97 ; ; Output ; FBCPT0 = zero node from file 162.97 OR "" if not covered ; FBCPTY0 = zero node from subfile 162.971 or "" if not covered |
|
| PROC1(CPTM,FBCY,FBNONPBL) | ; get procedure data for CPT-Modifier
; input ; CPTM - CPT Code - Modifier (e.g. 57335-TC or 57335) ; FBCY - 4 digit calendar year ; FBNONPBL ( optional): ; if $G(FBNONPBL)=0 then will make search among payable records only in #162.97 ; ignoring those non-payable ones with field #.08 NONPAYABLE = 1 ; if $G(FBNONPBL)=1 then will make search among all items in #162.97 ; output ; FBCPT0 = zero node from file 162.97 OR "" if not covered ; FBCPTY0 = zero node from subfile 162.971 or "" if not covered |
|
| ZIP(FBCY,ZIP) | ; get GPCIs
; Input ; FBCY = calendar year (4 digit) ; ZIP = zip code (5 digit external value) ; Output ; FBGPCIY0 = zero node from file 162.96 or "" if not found |
|
| CF(FBCY,FBDA) | ; get conversion factor
; Input ; FBCY = calendar year ; FBDA = optional conversion category (internal) ; Returns ; conversion factor from file 162.99 |
|
| CALC(FBCY,FAC,FBCPTY0,FBGPCIY0,FBCF) | ;
; Input ; FBCY = calendar year (4 digit) ; FAC = facility flag (0 or 1) ; FBCPTY0 = zero node from file 162.71 ; FBGPCI0 = zero node from file 162.61 ; FBCF = conversion factor (number) ; Returns $ amount |
|
| MULT(FBCY,MODL,FBCPT0,FBCPTY0) | ;returns multiplier based on table type
; Input ; FBCY = calendar year (4 digit) ; MODL = list of CPT/HCPCS modifiers (external values) ; delimited by commas ; FBCPT0 = zero node of file 162.7 for procedure ; FBCPTY0 = zero node of subfile 162.71 for year ; Returns ; multiplier value OR 1 if none |
|
| LASTCY() | ; Determine last calendar year of RBRVS FEE schedule data
; based on last year for Medicine conversion factor |
|
| ADJ(CPT,DOS) | ;Apply Adjustments to Fee Amount
|
