FBAAUTL4 ;AISC/CMR,dmk,WCIOFO/SAB-UTILITY ROUTINE ; 8/21/12 3:39pm
Source file <FBAAUTL4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CPT(X,Y,FBSRVDT) | ;return external format of CPT code
|
|
| MOD(X,Y,FBSRVDT) | ;return external format of modifier
|
|
| CPTDATA(W,X,Y,Z) | ;get internal value of CPT
; input ; W = IEN of PATIENT in file 162 ; X = IEN of VENDOR multiple in file 162 ; Y = IEN of INITIAL TREATMENT DATE multiple in file 162 ; Z = IEN of SERVICE PROVIDED multiple in file 162 ; returns ; value of SERVICE PROVIDED (internal) |
|
| MODDATA(W,X,Y,Z) | ;get internal values of CPT Modifier
; input ; W = IEN of PATIENT in file 162 ; X = IEN of VENDOR multiple in file 162 ; Y = IEN of INITIAL TREATMENT DATE multiple in file 162 ; Z = IEN of SERVICE PROVIDED multiple in file 162 ; output ; FBMODA( array of CPT MODIFIERs ; FBMODA(#)=CPT MODIFIER (internal value) ; where # is the IEN for an entry in the CPT MODIFIER multiple |
|
| APS(FBJ,FBK,FBL,FBM) | ; amount paid symbol
; input ; FBJ = IEN of PATIENT in file 162 ; FBK = IEN of VENDOR multiple in file 162 ; FBL = IEN of INITIAL TREATMENT DATE multiple in file 162 ; FBM = IEN of SERVICE PROVIDED multiple in file 162 ; returns symbol ; where value is M (Mill Bill emergency care - 38 U.S.C. 1725) ; R (RBRVS fee schedule amount) ; F (VA fee schedule amount) ; C (contracted service amount) ; U (usual & customary - claimed) ; null if no amount paid |
|
| CHKBI(X,Y) | ;called to determine if batch number or invoice number
|
|
| MODL(FBAN,FBFLAG) | ;return sorted list given array of modifiers
; Input ; FBAN - closed root of array containing modifiers ; the data must be in nodes descendent from this root. ; The subscripts of the nodes below FBAN must be ; positive numbers. The CPT MODIFIER internal value ; must be the first piece in these nodes or in the ; 0-node descendent from these nodes. ; i.e. ; ARRAY(number)=CPT MODIFIER (internal value) ; OR ; ARRAY(number,0)=CPT MODIFIER (internal value) ; FBFLAG - (optional) flag, E or I, default I ; I to return internal values of modifiers ; E to return external values of modifiers ; Returns string of sorted modifiers (e.g. "1,3,7") |
|
| REPMOD(FBJ,FBK,FBL,FBM) | ; Replace CPT Modifier(s) in payment
; input ; FBJ = IEN of PATIENT in file 162 ; FBK = IEN of VENDOR multiple in file 162 ; FBL = IEN of INITIAL TREATMENT DATE multiple in file 162 ; FBM = IEN of SERVICE PROVIDED multiple in file 162 ; FBMODA( array of modifiers ; where FBMODA(number)=CPT Modifier (internal) |
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
