Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Integrated Billing 5 ($$BDATE,$$ICD9)^IBACSV  ($$INPAT,$$INSPRF)^IBCEF  ($$RCDV,$$VERSDT)^IBCRU8  $$PRCNM^IBCSCH1  SCAN^IBSDU  
VA FileMan 2 ^DIE  ^DIR  
CPT HCPCS Codes 1 $$MOD^ICPTMOD  
PCE Patient Care Encounter 1 $$DATA2PCE^PXAPI  
Registration 1 $$PRIM^VASITE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Integrated Billing 4 IBCD2  IBCSCH1  IBCU6  IBCU7  

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

External References

Name Field # of Occurrence
^DIE PRCDIV+22, DVTYP+7
^DIR ADDCPT+3
$$BDATE^IBACSV DISPDX+2
$$ICD9^IBACSV DISPDX+3
$$INPAT^IBCEF PRCDIV+8
$$INSPRF^IBCEF PRCDIV+8
$$RCDV^IBCRU8 DVTYP+6
$$VERSDT^IBCRU8 DVTYP+5
$$PRCNM^IBCSCH1 PRCDT+5
SCAN^IBSDU VISDT+7
$$MOD^ICPTMOD ADDCPT+29
$$DATA2PCE^PXAPI ADDCPT+34
$$PRIM^VASITE PRCDIV+11

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
Routine Call
  • DIE
  • Line Location:
    • PRCDIV+22
    • DVTYP+7
Routine Call
  • DIR
  • Line Location:
    • ADDCPT+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGCR(399 - [#399] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] PRCDIV+23
^DGCR(399 - [#399] DISPDX+3, PRCDT+3, PRCDT+4, PRCDIV+6, PRCDIV+8, PRCDIV+9, PRCDIV+15, PRCDIV+16, DVTYP+4, DVTYP+5
^DGPT - [#45] PRCDIV+19
^DIC(42 - [#42] PRCDIV+19
^DIC(9.4 - [#9.4] ADDCPT+5
^SC - [#44] ADDCPT+35
^TMP("IBPXAPI" ADDCPT+9!, ADDCPT+13*, ADDCPT+21*, ADDCPT+27*, ADDCPT+28*, ADDCPT+29*, ADDCPT+32, ADDCPT+39!

Label References

Name Line Occurrences
DVTYPQ DVTYP+5
VISDT ADDCPT+12

Naked Globals

Name Field # of Occurrence
^("ENCOUNTER TYPE" ADDCPT+13*
^("EVENT D/T" ADDCPT+27*
^("HOS LOC" ADDCPT+13*
^("PATIENT" ADDCPT+13*
^("QTY" ADDCPT+27*
^("SERVICE CATEGORY" ADDCPT+13*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARR PRCDT~, PRCDT+2!
ARR( PRCDT+6*
DA ADDCPT+2~, PRCDIV+5~, PRCDIV+22*!, DVTYP+3~, DVTYP+7*!
>> DFN ADDCPT+13, VISDT+4
>> DGCPT ADDCPT+1
>> DGCPT( ADDCPT+7, ADDCPT+16, ADDCPT+17, ADDCPT+24
>> DGPROCDT ADDCPT+12, VISDT+3, VISDT+4
DIC ADDCPT+2~, PRCDIV+5~, DVTYP+3~
DIE ADDCPT+2~, PRCDIV+5~, PRCDIV+22*!, DVTYP+3~, DVTYP+7*!
DIR ADDCPT+3!
DIR("A" ADDCPT+3*
DIR("B" ADDCPT+3*
DIR(0 ADDCPT+3*
DIROUT ADDCPT+2~
DIRUT ADDCPT+2~, ADDCPT+3
DR ADDCPT+2~, PRCDIV+5~, PRCDIV+22*!, DVTYP+3~, DVTYP+7*!
DTOUT ADDCPT+2~
DUOUT ADDCPT+2~
DUZ ADDCPT+34
I DISPDX+1~, DISPDX+3*, DISPDX+6*
IB0 PRCDIV+5~, PRCDIV+6*, PRCDIV+18, PRCDIV+19, PRCDIV+21, DVTYP+3~, DVTYP+4*
IBCBK VISDT+2~, VISDT+6*, VISDT+7
IBCHGTYP DVTYP+3~, DVTYP+4*, DVTYP+6, DVTYP+8*, DVTYPQ
IBCLIN ADDCPT+4~, ADDCPT+7*, ADDCPT+13, ADDCPT+16, ADDCPT+17, ADDCPT+24, ADDCPT+35
IBCOUNT ADDCPT+4~, ADDCPT+24*, ADDCPT+27
IBCPT PRCDIV+5~, PRCDIV+8*, PRCDIV+9, PRCDIV+15*, PRCDIV+16*
IBCPT0 PRCDIV+5~, PRCDIV+9*, PRCDIV+11
IBD VISDT+2~, VISDT+3*
IBDATE DISPDX+1~, DISPDX+2*, DISPDX+3
IBDV DVTYP+3~, DVTYP+4*, DVTYP+6
IBDVTYP DVTYP+3~, DVTYP+6*
IBDX DISPDX+1~, DISPDX+3*, DISPDX+6*, DISPDX+7
IBDXL DISPDX+1~, DISPDX+4
IBDXL( DISPDX+3*, DISPDX+6
IBEVT VISDT+2~
IBF VISDT+2~, VISDT+3*
IBFILTER VISDT+2~, VISDT+5*, VISDT+7
IBI PRCDT+2~, PRCDT+3*, PRCDT+4, PRCDT+6
IBIFN DISPDX+2, DISPDX+3, PRCDT~, PRCDT+3, PRCDT+4, PRCDIV~, PRCDIV+6, PRCDIV+8, PRCDIV+9, PRCDIV+15
, PRCDIV+16, PRCDIV+22, DVTYP~, DVTYP+4, DVTYP+5, DVTYP+7
IBK ADDCPT+4~, ADDCPT+16*, ADDCPT+18*, ADDCPT+21, ADDCPT+27, ADDCPT+28, ADDCPT+29
IBNAME PRCDT+2~, PRCDT+5*, PRCDT+6
IBOEN VISDT+2~
IBOTH ADDCPT+4~, ADDCPT+17*, ADDCPT+21, ADDCPT+24, ADDCPT+28, ADDCPT+29
IBPDIV PRCDIV+5~*, PRCDIV+8, PRCDIV+11*, PRCDIV+15, PRCDIV+16*, PRCDIV+18, PRCDIV+19*, PRCDIV+21, PRCDIV+22, PRCDIV+23
IBPKG ADDCPT+4~, ADDCPT+5*, ADDCPT+34
IBPROC ADDCPT+4~, ADDCPT+16*, ADDCPT+17, ADDCPT+24, ADDCPT+27
IBRESULT ADDCPT+4~, ADDCPT+34*, ADDCPT+36, ADDCPT+37
IBVAL VISDT+2~, VISDT+7
IBVAL("BDT" VISDT+4*
IBVAL("DFN" VISDT+4*
IBVAL("EDT" VISDT+4*
IBVDATE ADDCPT+4~, ADDCPT+12*, ADDCPT+13, ADDCPT+27
IBWRD PRCDIV+5~, PRCDIV+19*
IBX PRCDT+2~, PRCDT+4*, PRCDT+5, PRCDT+6, PRCDIV+5~*, PRCDIV+23*, PRCDIV+24
J DISPDX+1~, DISPDX+6*
U ADDCPT+21, ADDCPT+28, ADDCPT+29, PRCDT+5, PRCDT+6, PRCDIV+11, PRCDIV+16, PRCDIV+18, PRCDIV+19, PRCDIV+21
, PRCDIV+23, DVTYP+4, DVTYP+6
VADM ADDCPT+2~
X ADDCPT+24*, DISPDX+1~, DISPDX+3*, DISPDX+6*, DISPDX+7, SCREEN~, PRCDIV+5~, PRCDIV+22!, DVTYP+3~, DVTYP+7!
Y ADDCPT+3, SCREEN~, PRCDIV+5~, PRCDIV+22!, DVTYP+3~, DVTYP+7!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All