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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBCRHU1

Package: Integrated Billing

Routine: IBCRHU1


Information

IBCRHU1 ;ALB/ARH - RATES: UPLOAD UTILITIES ;22-MAY-1996

Source Information

Source file <IBCRHU1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Integrated Billing 4 $$EXPAND^IBCRU1  ($$ITFILE,$$ITPTR)^IBCRU2  $$CSBI^IBCRU3  $$FINDCI^IBCRU4  
CPT HCPCS Codes 1 $$MOD^ICPTMOD  

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: 8

Package Total Caller Graph
Integrated Billing 8 IBCRHBA  IBCRHBC  IBCRHBR5  IBCRHBS5  IBCRHBT  IBCRHD  IBCRHL  IBCRHO  

Entry Points

Name Comments DBIA/ICR reference
GETXTMP(IBXRF,ARR,ARR1,CS) ; get list of available files
; Output: ARR(file) = upload file description ^ total cnt
; ARR(file,subfile) = I ^ count ^ billable item type ^ charge set
; ARR1(I) = file ^ subfile
DISP(ARR) ; display list of available files by number
DISP1(IBXRF,ARR,ARR1,CS) ; get and display uploaded files
CHKDUP(CS,IBLN,ADD) ; check that item would not be a duplicate
; check on same charge but different date removed so each version is complete even if the charge does not change
CHKDUPQ
CHKLN(BI,IBLN) ; check if data in line item is valid Billable Item
; Input: IBLN= item ^ eff dt ^ inact dt ^ charge ^ cpt modifier
; Output: if data not good: x ^ error description
; w/ x=1 - line/data warning - bad data but field not required
; x=2 - line/data error - bad required data, item can not be loaded into CM
; x=3 - subfile/set error stop all processing
; do not have to check if NDC is in source, since it is added if not there
; check on cpt-modifier pair removed with RC v2.0, charge pairings do not match official pairings
CHKLNQ
CHKFL(CS,FILE,IBSUBFL) ; Check the Charge Set and Host file are defined and match ok
; Output: if check is ok: 0
; if data not good: x ^ error description
; w/ x=3 - subfile/set error stop all processing
CHKFLQ
RVCD(CS,IBITEM) ; *634 - assign Revenue Code #124 to 5 ms-drg charges
; Input: charge set, charge item
; Output: 0 or 1
RVCDQ
VDATE(X) ; check for valid date, *667 check for valid year

External References

Name Field # of Occurrence
$$EXPAND^IBCRU1 DISP+10, CHKFL+13
$$ITFILE^IBCRU2 CHKLN+10
$$ITPTR^IBCRU2 CHKDUP+4, CHKLN+9
$$CSBI^IBCRU3 CHKDUP+3, CHKFL+6
$$FINDCI^IBCRU4 CHKDUP+7, CHKDUP+8
$$MOD^ICPTMOD CHKLN+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?5,IBX,?55,"Count = ",$P(IBLN,U,2)
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !,?5,$P(IBLN,U,1)
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !!,?6,"Subfile",?30,"Item",?39,"Count",?49,"Charge Set",!,?6,"-------",?30,"----",?39,"-----",?49,"-------------------------"
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !,?2,+IBLN,?6,IBY,?30,$E($$EXPAND^IBCRU1(363.3,.04,$P(IBLN,U,3)),1,5),?39,$P(IBLN,U,2),?49,$E($P($G(^IBE(363.1,+$P(IBLN,U,4),0)),U,1),1,30)
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(363.1 - [#363.1] DISP+10, RVCD+4
^XTMP( GETXTMP+7, GETXTMP+8, GETXTMP+9, GETXTMP+10, CHKFL+9, CHKFL+12

Label References

Name Line Occurrences
$$RVCD CHKDUP+7
$$VDATE CHKLN+13, CHKLN+14
CHKDUPQ CHKDUP+3, CHKDUP+5, CHKDUP+6, CHKDUP+7, CHKDUP+8
CHKFLQ CHKFL+5, CHKFL+6, CHKFL+8, CHKFL+9, CHKFL+11, CHKFL+12, CHKFL+13
CHKLNQ CHKLN+9, CHKLN+10, CHKLN+11, CHKLN+13, CHKLN+14
DISP DISP1+2
GETXTMP DISP1+1
RVCDQ RVCD+4, RVCD+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADD CHKDUP~, CHKDUP+5
ARR GETXTMP~, GETXTMP+5!*, GETXTMP+11*, DISP~, DISP1~, DISP1+1, DISP1+2
ARR( GETXTMP+12*, DISP+3, DISP+4, DISP+8, DISP+9
ARR1 GETXTMP~, GETXTMP+5!*, GETXTMP+11*, DISP1~, DISP1+1
ARR1( GETXTMP+11*
BI CHKLN~, CHKLN+9, CHKLN+10, CHKLN+11
CNT GETXTMP+5~*, GETXTMP+11*, GETXTMP+12
CS GETXTMP~, GETXTMP+10, DISP1~, DISP1+1, CHKDUP~, CHKDUP+3, CHKDUP+7, CHKDUP+8, CHKFL~, CHKFL+5
, CHKFL+6, RVCD~, RVCD+4
FILE CHKFL~, CHKFL+8, CHKFL+9, CHKFL+12
IBARR CHKDUP+2~
IBBI CHKDUP+2~, CHKDUP+3*, CHKDUP+4, CHKDUP+5
IBCS0 RVCD+3~, RVCD+4*, RVCD+5*, RVCD+6
IBCSBI CHKFL+4~, CHKFL+6*, CHKFL+13
IBCSBR CHKLN+8~
IBFCNT DISP+2~*, DISP+4*
IBITEM CHKDUP+2~, CHKDUP+4*, CHKDUP+5, CHKDUP+6, CHKDUP+7, CHKDUP+8, CHKLN+8~, CHKLN+9*, CHKLN+10, RVCD~
, RVCD+7
IBL GETXTMP+5~, GETXTMP+6*
IBLN GETXTMP+5~, GETXTMP+8*, GETXTMP+12, DISP+2~, DISP+4*, DISP+5, DISP+6, DISP+9*, DISP+10, CHKDUP~
, CHKDUP+4, CHKDUP+7, CHKDUP+8, CHKLN~, CHKLN+9, CHKLN+10, CHKLN+11, CHKLN+13, CHKLN+14
IBLN1 GETXTMP+5~, GETXTMP+10*, GETXTMP+12
IBMHDG RVCD+3~*, RVCD+7*, RVCDQ
IBSUBFL CHKFL~, CHKFL+11, CHKFL+12
IBX GETXTMP+5~, GETXTMP+6*, GETXTMP+7*, GETXTMP+8, GETXTMP+9, GETXTMP+10, GETXTMP+11, GETXTMP+12, DISP+2~, DISP+3*
, DISP+4, DISP+5, DISP+8, DISP+9, CHKDUP+2~*, CHKDUP+3*, CHKDUP+5*, CHKDUP+6*, CHKDUP+7*, CHKDUP+8*
, CHKDUPQ, CHKLN+8~*, CHKLN+9*, CHKLN+10*, CHKLN+11*, CHKLN+13*, CHKLN+14*, CHKLNQ, CHKFL+4~*, CHKFL+5*
, CHKFL+6*, CHKFL+8*, CHKFL+9*, CHKFL+11*, CHKFL+12*, CHKFL+13*, CHKFLQ
IBXRF GETXTMP~, GETXTMP+5*, GETXTMP+6, GETXTMP+7, DISP1~, DISP1+1
IBY GETXTMP+5~, GETXTMP+6*, GETXTMP+9*, GETXTMP+10, GETXTMP+11, GETXTMP+12, DISP+2~, DISP+8*, DISP+9, DISP+10
, CHKFL+4~, CHKFL+9*, CHKFL+12*, CHKFL+13
U GETXTMP+10, GETXTMP+11, GETXTMP+12, DISP+5, DISP+6, DISP+10, CHKDUP+4, CHKDUP+7, CHKDUP+8, CHKLN+9
, CHKLN+10, CHKLN+11, CHKLN+13, CHKLN+14, CHKFL+13, RVCD+5, RVCD+7
X VDATE~, VDATE+1
Y VDATE+1~*, VDATE+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All