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 |  Local Variables |  All
Print Page as PDF
Routine: IBCU64

Package: Integrated Billing

Routine: IBCU64


Information

IBCU64 ;ALB/ARH - AUTOMATED BILLER (INPT CONT) ;8/6/93

Source Information

Source file <IBCU64.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Integrated Billing 2 ($$BDATE,$$DRGTD)^IBACSV  ($$FT,$$INPAT)^IBCEF  
Kernel 1 ($$FMADD,$$FMDIFF,$$NOW)^XLFDT  
Registration 1 $$APLD^DGUTL2  
VA FileMan 1 $$GET1^DIQ  

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

Package Total Caller Graph
Integrated Billing 21 IBAECI  IBAECU2  IBCA  IBCD5  IBCRBG  IBCU6  IBCU82  IBEFUR  
IBJTBA  IBXS6  IBXS62  IBXS7  IBXS72  IBXSC62  IBXSC64  IBXSC67  
IBXSC75  IBXSC77  IBXX19  IBXX20  ^DGCR(399  

Entry Points

Name Comments DBIA/ICR reference
LOS1(IFN,IBDTS) ; returns length of stay for a bill's date range
; If actual leave dates needed, pass IBDTS by reference
; Returns IBDTS(begin leave dt)=end leave dt)
LOS1Q
AD(IBPMCA) ; returns inpatient admit and discharge date, DFN, PTF, Facility Treating Specialty, if one/both don't exist "0^0"
ADQ
LOS(IBBDT,IBEDT,BTF,IBPMCA,IBDTS) ; calculate the inpatient length of stay for a given time period
LOSQ
DUPCHKI(DT1,DT2,PTF,RTG,DISP,IFN) ;Check for duplicate billing of inpt admission - checks for overlapping date range on other
DCIQ
ADM(DFN,IBDT) ; -- send back Admission and Discharge Dates for a patient on IBDT (or now) if any, 0 otherwise
ADME
PTFADM(PTF) ; given a PTF #, return the Patient Movement Admission entry pointer (405)
NONCOV(IBBDT,IBEDT,IBPMCA,IBDTS) ; Determine the total # of non billable
; days in an inpt date range
; variables are input to DGUTL2 call
; Array IBDTS(movement from date)=movement to date is returned if passed
; by reference
PPS(IBIFN,IBPTF) ; Calculate the claim's default PPS - prospective payment system code.
; Also known as the DRG - diagnosis-related group.
; This field is a trigger from the .08 field PTF entry# to field# 170 for the PPS.
; IB*2*400 addition
; Input - IBIFN - ien to file 399
; IBPTF - ien to file 45 - value of the .08 field
PPSX ;
PPSC(IBIFN) ; Trigger condition for setting the PPS field (field# 170)
; Function value=1 if it is OK to fire the trigger
PPSCX ;

External References

Name Field # of Occurrence
$$APLD^DGUTL2 NONCOV+7
$$GET1^DIQ PPS+9
$$BDATE^IBACSV PPS+10
$$DRGTD^IBACSV PPS+10
$$FT^IBCEF PPS+8, PPSC+5
$$INPAT^IBCEF PPS+7, PPSC+4
$$FMADD^XLFDT LOS+9
$$FMDIFF^XLFDT LOS+10, LOS+14
$$NOW^XLFDT ADM+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?10,$P(Y,U,2)
  • Line Location: DCIQ+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPT - [#45] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] LOS1+3, LOS1+7, DUPCHKI+11, DUPCHKI+14, DUPCHKI+15, DUPCHKI+16, DUPCHKI+18, PPSC+3
^DGCR(399.3 - [#399.3] DUPCHKI+19
^DGPM - [#405] AD+2, AD+3, ADM+6, ADM+7
^DGPM("AMV1" LOS1+6
^DGPM("APTF" PTFADM+1
^DGPM("ATID1" ADM+5, ADM+6
^DPT - [#2] ADM+3

Label References

Name Line Occurrences
$$AD LOS+11
$$LOS LOS1+8
$$NONCOV LOS+15
ADME ADM+3
ADQ AD+1
DCIQ DUPCHKI+12, DUPCHKI+13, DUPCHKI+14
LOS1Q LOS1+3
LOSQ LOS+8
PPSCX PPSC+3, PPSC+4, PPSC+5
PPSX PPS+7, PPS+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ADM+2~
BTF LOS~, LOS+9
DFN LOS1+3~, LOS1+5*, LOS1+6, LOS+8~, LOS+11*, ADM~, ADM+3, ADM+5, ADM+6
DISP DUPCHKI~, DCIQ
DT1 DUPCHKI~, DUPCHKI+13*, DUPCHKI+14*, DUPCHKI+18
DT2 DUPCHKI~, DUPCHKI+13*, DUPCHKI+14*, DUPCHKI+18
IBA LOS+8~
IBADM LOS1+3~, LOS1+5*, LOS1+6, LOS+8~, LOS+11*, LOS+13, ADM+2~, ADM+6*, ADM+9
IBADT1 ADM+2~, ADM+6*, ADM+7, ADM+9
IBADT2 ADM+2~, ADM+4*, ADM+7*, ADM+8*, ADM+9
IBBDT LOS~, LOS+8, LOS+9, LOS+10, LOS+13*, LOS+14, LOS+15, NONCOV~, NONCOV+7
IBDIS ADM+2~, ADM+7*, ADM+9
IBDISDT LOS+8~, LOS+11*, LOS+13
IBDT ADM~, ADM+3*, ADM+4, ADM+9
IBDTS LOS1~, LOS1+8, LOS~, LOS+15, NONCOV~, NONCOV+8*
IBDTS( NONCOV+9*
IBEDT LOS~, LOS+8, LOS+9*, LOS+10, LOS+13*, LOS+14, LOS+15, NONCOV~, NONCOV+7
IBIFN PPS~, PPS+7, PPS+8, PPS+10, PPSC~, PPSC+3, PPSC+4, PPSC+5
IBINPT ADM+2~, ADM+3*, ADM+5, ADM+9*, ADME
IBNDT ADM+2~, ADM+4*, ADM+5*, ADM+6
IBNOW ADM+2~*, ADM+3, ADM+4
IBPMCA LOS1+3~*, LOS1+6*, LOS1+8, AD~, AD+1, AD+2, LOS~, LOS+11, LOS+15, NONCOV~
, NONCOV+7
IBPTF PPS~, PPS+9
IBX LOS+8~*, LOS+10*, LOS+14*, LOS+15*, LOSQ, PTFADM+1~*, PTFADM+2
IBY LOS+8~, LOS+11*
IBZ NONCOV+6~, NONCOV+7
IBZ( NONCOV+9
IBZ(0 NONCOV+8, NONCOV+10
IFN LOS1~, LOS1+3, LOS1+7, DUPCHKI~, DUPCHKI+11*, DUPCHKI+15
IFN2 DUPCHKI+11~, DUPCHKI+15*, DUPCHKI+16, DUPCHKI+18, DUPCHKI+19
OK PPSC+2~*, PPSC+6*, PPSCX+1
PPS PPS+6~*, PPS+9*, PPS+10*, PPSX+1
PTF DUPCHKI~, DUPCHKI+12*, DUPCHKI+14, DUPCHKI+15, PTFADM~, PTFADM+1
RTG DUPCHKI~, DUPCHKI+12*, DUPCHKI+17
U LOS1+3, LOS1+5, LOS1+8, AD+3, LOS+11, DUPCHKI+12, DUPCHKI+13, DUPCHKI+16, DUPCHKI+17, DUPCHKI+18
, DUPCHKI+19, DCIQ, ADM+7, ADM+9, NONCOV+9, PPSC+3
X LOS1+3~*, LOS1+7*, LOS1+8*, LOS1Q, AD+1~*, AD+3*, ADQ, LOS+8~, DUPCHKI+11~*, DUPCHKI+12
, DUPCHKI+18*, ADM+2~
X1 DUPCHKI+11~*, DUPCHKI+13, DUPCHKI+16*, DUPCHKI+17, DUPCHKI+19
Y LOS1+3~*, LOS1+5, LOS1+8, AD+1~, AD+2*, AD+3, DUPCHKI+11~*, DUPCHKI+15, DUPCHKI+19*, DCIQ
, DCIQ+1, ADM+2~
Z NONCOV+6~, NONCOV+7*, NONCOV+8, NONCOV+9*
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 |  Local Variables |  All