IBCU71 ;ALB/AAS - INTERCEPT SCREEN INPUT OF PROCEDURE CODES ;29-OCT-91
Source file <IBCU71.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ADDCPT | ; - store cpt codes in visits file
|
|
DISPDX | ; - display diagnosis codes available for associated dx (CMS-1500) NO LONGER USED?
|
|
SCREEN(X,Y) | ; -- screen logic for active procs or surgeries - OBSOLETE
; -- input x = date to check, y = procedure ; -- output 0 if not active for billing or amb proc on date, 1 if either active |
|
VISDT | ; Find the actual encounter for the visit; update visit date/time
; input DGPROCDT, DFN, IBCLIN |
|
PRCDT(IBIFN,ARR) | ; return array of bill's procedures in date then code order
; returns ARR(DATE, NAME, CPIFN) = 399.0304 node |
|
PRCDIV(IBIFN) | ; change Bills Default Division (399,.22) to reflect care provided
; - set Bill Division to the first Procedures Division (399,304,5), if defined ; - or else if bill is an inpatient bill then get the Division of the Ward the patient was Admitted to ; return null if no change or 'new division ifn^message' |
|
DVTYP(IBIFN) | ; reset Bill Charge Type (399, .27) based on Bill Division (399, .22)
; if bill division is type 3 - Freestanding then reset Charge Type to 2 - Professional ; with RC 2.0+ Type 3 sites have only professional charges, start date of bill must be on/after beginning of RC 2.0 |
|
DVTYPQ |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DGCR(399 - [#399] | Classic Fileman Calls |