Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBCU71

Package: Integrated Billing

Routine: IBCU71


Information

IBCU71 ;ALB/AAS - INTERCEPT SCREEN INPUT OF PROCEDURE CODES ;29-OCT-91

Source Information

Source file <IBCU71.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Adding Procedures to PCE..."
  • Line Location: ADDCPT+6
Function Call: WRITE
  • Prompt: "were added okay."
  • Line Location: ADDCPT+36
Function Call: WRITE
  • Prompt: !!,"Bill has no ICD DIAGNOSIS."
  • Line Location: DISPDX+4
Function Call: WRITE
  • Prompt: !!,?24,"<<<ASSOCIATED ICD-9 DIAGNOSIS>>>",!!
  • Line Location: DISPDX+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPDX+6
Function Call: WRITE
  • Prompt: ?X," ",$P(IBDX,"^",2),?(X+13),$E($P(IBDX,"^",4),1,28)
  • Line Location: DISPDX+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPDX+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGCR(399 - [#399] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call