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

Package: Integrated Billing

Routine: IBCU4


Information

IBCU4 ;ALB/AAS - BILLING UTILITY ROUTINE (CONTINUED) ;12-FEB-90

Source Information

Source file <IBCU4.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Integrated Billing 3 $$CSVDATE^IBACSV  $$FT^IBCEF  $$PHYSFUNC^IBCU4  
VA FileMan 2 DD^%DT  EN^DDIOL  

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

Package Total Caller Graph
Integrated Billing 19 IBCA  IBCA2  IBCBB  IBCD5  IBCU4  IBXS41  IBXS6  IBXS7  
IBXSC41  IBXSC6  IBXSC61  IBXSC7  IBXSC74  IBXX19  ^DGCR(399  ^IBA(355.93  
LINE PROVIDER  OTHER CARE  PROVIDER  

Entry Points

Name Comments DBIA/ICR reference
DDAT ;Input transform for Statement Covers From field
DDAT1 ;Input transform for Statement covers to
DDAT3 ; - x-ref call for to and from dates, REPLACED BY TRIGGERS ON .08, 151, 152 ON 10/18/93
DDAT4
OTDAT ; Input transform for Other Care Start Date (399,48,.02)
CHDAT ; Input transform for chiropractic-related dates (399/245,246,247)
; Make sure that date entered is not after end date of the bill
TO ;151 pseudo input x-form
FROM ;152 pseudo input x-form
FY(DATE) ; return a dates Fiscal Year
SPEC ; - calculate discharge specialty
; - input IBids(.08) = ptf record number
; - output IBids(161) = pointer to billing specialty in 399.1
PROCDT ; - find first and last dates of procedures
; can't set from and to date inside of this range
ICD10S(BDT,EDT,IBIFN) ; return Code Version Date if bill dates span the ICD-10 activation date
; enter either the bill to check or the dates to check
TOBIN(Y,DA) ; Screen for UB-04 bill classification based on UB-04 location of care
; Y = internal value of code for field .25 (UB-04 BILL CLASSIFICATION)
; DA = bill ien in file 399
TRIG05(X,D0) ; Trigger executed on field .05 of file 399 to set field .25
; Find the correct entry in file 399.1 that corresponds to the value in .05
; X = value of field .05, location of care
; D0 = IEN of bill entry in file 399
TOB(IBIFN,POS) ;Function returns the 3 digit type of bill from UB-04
; fields or the position (1-3) as determined by POS (optional)
INDIVIDUAL(IBIFN,PROVTYPE,PHYSFUNC) ;EP - ONLY INDIVIDUAL TYPE
INDIVHELP ;EP - DISPLAY XECUTABLE HELP FOR NEW SCREEN IN 399.002 AND 399.0404
PHYSFUNC(PHYSFUNC) ;EP -RETURN PHYSFUNC FOR SETCODE

External References

Name Field # of Occurrence
DD^%DT CHDAT+6
EN^DDIOL INDIVHELP+24
$$CSVDATE^IBACSV ICD10S+3
$$FT^IBCEF INDIVIDUAL+55
$$PHYSFUNC^IBCU4 INDIVHELP+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?4,"Cannot precede the 'EVENT DATE'!",*7
  • Line Location: DDAT+2
Function Call: WRITE
  • Prompt: !?4,"Cannot bill for future treatment!",*7
  • Line Location: DDAT+3
Function Call: WRITE
  • Prompt: !?4,"Can't be greater than date of specified Procedures!",*7
  • Line Location: DDAT+5
Function Call: WRITE
  • Prompt: !?4,"'Start Date' must be specified first!",*7
  • Line Location: DDAT1+2
Function Call: WRITE
  • Prompt: !?4,"Cannot bill for future treatment!",*7
  • Line Location: DDAT1+3
Function Call: WRITE
  • Prompt: !?4,"Cannot precede the 'Start Date'!",*7
  • Line Location: DDAT1+4
Function Call: WRITE
  • Prompt: !?4,"Bill Statement dates cannot span ICD-10 activation date!",*7
  • Line Location: DDAT1+5
Function Call: WRITE
  • Prompt: !?4,"Must be in same fiscal year!",*7
  • Line Location: DDAT1+6
Function Call: WRITE
  • Prompt: !?4,"Must be in same fiscal year!",*7
  • Line Location: DDAT1+7
Function Call: WRITE
  • Prompt: !?4,"Must be in same calendar year!",*7
  • Line Location: DDAT1+8
Function Call: WRITE
  • Prompt: !?4,"Can't be less than date of specified Procedures!",*7
  • Line Location: DDAT1+10
Function Call: WRITE
  • Prompt: !?4,*7,"No 'Start Date' on file...can't enter OP visit dates..."
  • Line Location: DDAT1+14
Function Call: WRITE
  • Prompt: !?4,*7,"No 'End Date' on file...can't enter OP visit dates..."
  • Line Location: DDAT1+15
Function Call: WRITE
  • Prompt: !?4,*7,"Can't enter a visit date prior to 'Start Date'..."
  • Line Location: DDAT1+16
Function Call: WRITE
  • Prompt: !?4,*7,"Can't enter a visit date later than 'End Date'..."
  • Line Location: DDAT1+17
Function Call: WRITE
  • Prompt: !?4,*7,"Only 1 visit date allowed on bills with Amb. Surg. Codes!"
  • Line Location: DDAT1+18
Function Call: WRITE
  • Prompt: !,?4,"Can Not Precede Bill Start Date!",!,*7
  • Line Location: OTDAT+3
Function Call: WRITE
  • Prompt: !,?4,"Cannot be after Bill End Date!",!,*7
  • Line Location: OTDAT+4
Function Call: WRITE
  • Prompt: !?4,*7,"No end date of the bill on file - can't enter chiropractic-related dates "
  • Line Location: CHDAT+5
Function Call: WRITE
  • Prompt: !,?4,*7,"This date cannot be after the end date of the claim ("_Y_") "
  • Line Location: CHDAT+6
Function Call: WRITE
  • Prompt: !?4,"Cannot precede the 'EVENT DATE'!",*7
  • Line Location: TO+1
Function Call: WRITE
  • Prompt: !?4,"Cannot bill for future treatment!",*7
  • Line Location: TO+2
Function Call: WRITE
  • Prompt: !?4,"'Start Date' must be specified first!",*7
  • Line Location: FROM+1
Function Call: WRITE
  • Prompt: !?4,"Cannot precede the 'Start Date'!",*7
  • Line Location: FROM+2
Function Call: WRITE
  • Prompt: !?4,"Bill Statement dates cannot span ICD-10 activation date!",*7
  • Line Location: FROM+3
Function Call: WRITE
  • Prompt: !?4,"Must be in same fiscal year!",*7
  • Line Location: FROM+4
Function Call: WRITE
  • Prompt: !?4,"Must be in same fiscal year!",*7
  • Line Location: FROM+5
Function Call: WRITE
  • Prompt: !?4,"Must be in same calendar year!",*7
  • Line Location: FROM+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(399.0222 PHYSFUNC+2
^DGCR(399 - [#399] DDAT+2, DDAT1+2, DDAT1+5, DDAT3+3, DDAT3+4, DDAT3+5*, OTDAT+2, CHDAT+4, PROCDT+3, ICD10S+4
, TOBIN+4, TRIG05+5, TOB+3, INDIVIDUAL+47, INDIVIDUAL+50, INDIVHELP+6, INDIVHELP+8
^DGCR(399.1 - [#399.1] SPEC+6, SPEC+7, TOBIN+5, TRIG05+8, TOB+3
^DGPT - [#45] SPEC+4
^DIC(42.4 - [#42.4] SPEC+4, SPEC+5

Label References

Name Line Occurrences
$$ICD10S DDAT1+5, FROM+3
DDAT4 DDAT+2, DDAT+3, DDAT+5, DDAT+6, DDAT1+2, DDAT1+3, DDAT1+4, DDAT1+5, DDAT1+10, DDAT1+11
, DDAT1+20, DDAT3+2, DDAT3+4
FROM DDAT1+1
PROCDT DDAT+4, DDAT1+9
TO DDAT+1

Naked Globals

Name Field # of Occurrence
^("U" DDAT1+2, DDAT3+4
^(0 DDAT3+3
^(70 SPEC+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BDT ICD10S~, ICD10S+4*, ICD10S+5
CHOICES PHYSFUNC+1~
CHOICES( PHYSFUNC+6*, PHYSFUNC+7, PHYSFUNC+8
CODE PHYSFUNC+1~, PHYSFUNC+4*, PHYSFUNC+6
CODEPAIR PHYSFUNC+1~, PHYSFUNC+3*, PHYSFUNC+4, PHYSFUNC+5
D0 TRIG05~, TRIG05+5
>> D1 INDIVIDUAL+47, INDIVIDUAL+50, INDIVHELP+6, INDIVHELP+8
>> D2 INDIVIDUAL+47, INDIVHELP+6
DA DDAT+1, DDAT+2, DDAT1+1, DDAT1+2, DDAT1+5, DDAT3+3, DDAT3+4, DDAT3+5, CHDAT+4, PROCDT+3
, TOBIN~, TOBIN+4
DA(1 OTDAT+1, OTDAT+2
DATE FY~, FY+2
DESC PHYSFUNC+1~, PHYSFUNC+5*, PHYSFUNC+6
DGJ DDAT4!
>> DGNEWLOS DDAT3+3*
DGNOAP DDAT4!
DGPRDT DDAT4!, PROCDT+2*, PROCDT+3*, PROCDT+4, PROCDT+5
DGPRDTB DDAT+5, DDAT4!, PROCDT+2*, PROCDT+4*
DGPRDTE DDAT1+10, DDAT4!, PROCDT+2*, PROCDT+5*
DGPROC DDAT4!, PROCDT+2*, PROCDT+3*
DGX DDAT4!
DT DDAT+3, DDAT1+3, TO+2
EDT ICD10S~, ICD10S+4*, ICD10S+5
FUNCDESC INDIVHELP+2~, INDIVHELP+9*, INDIVHELP+14
IB0 TOBIN+3~, TOBIN+4*, TOBIN+5
IB00 DDAT+2*, DDAT1+2*, DDAT1+4, DDAT1+5, DDAT3+4*, DDAT3+5, DDAT4!
IB01 DDAT3+5*, DDAT4!
IB02 DDAT3+5*, DDAT4!
IB03 DDAT4!
IBCUBFT INDIVIDUAL+54~, INDIVIDUAL+55*, INDIVIDUAL+56, INDIVIDUAL+59, INDIVIDUAL+60
IBFY FY+1~*, FY+2*, FY+3
>> IBIDS( TO+1, FROM+3, SPEC+4
>> IBIDS(151 FROM+1, FROM+2, FROM+3
>> IBIDS(161 SPEC+3!, SPEC+4*, SPEC+5*!, SPEC+6*, SPEC+7!
IBIFN ICD10S~, ICD10S+4, TOB~, TOB+3, INDIVIDUAL~, INDIVIDUAL+47, INDIVIDUAL+50, INDIVIDUAL+52, INDIVIDUAL+55, INDIVHELP+6
, INDIVHELP+8
>> IBLNPRV INDIVIDUAL+46, INDIVHELP+5
>> IBPRV INDIVIDUAL+49, INDIVHELP+7
IBS ICD10S+2~*, ICD10S+5*, ICD10S+6
IBU ICD10S+2~, ICD10S+4*
IBV ICD10S+2~, ICD10S+3*, ICD10S+5
IBX OTDAT+2~*, OTDAT+3, OTDAT+4, CHDAT+3~, CHDAT+4*, CHDAT+5, CHDAT+6
IBYR FY+1~, FY+2*
IEN TRIG05+4~, TRIG05+6*, TRIG05+8*, TRIG05+9
LOC TRIG05+4~, TRIG05+5*, TRIG05+8
MSG INDIVHELP+11~, INDIVHELP+24
MSG(1 INDIVHELP+12*, INDIVHELP+13*
MSG(2 INDIVHELP+14*, INDIVHELP+15*
MSG(3 INDIVHELP+16*, INDIVHELP+17*
MSG(4 INDIVHELP+18*, INDIVHELP+19*
MSG(5 INDIVHELP+20*, INDIVHELP+21*
MSG(6 INDIVHELP+22*, INDIVHELP+23*
PHYSFUNC INDIVIDUAL~, INDIVIDUAL+46, INDIVIDUAL+47*, INDIVIDUAL+49, INDIVIDUAL+50*, INDIVIDUAL+52, INDIVIDUAL+59, INDIVIDUAL+60, INDIVHELP+6*, INDIVHELP+8*
, INDIVHELP+9, PHYSFUNC~, PHYSFUNC+7, PHYSFUNC+8
PIECE PHYSFUNC+1~, PHYSFUNC+3*
POS TOB~, TOB+4
PROVTYPE INDIVIDUAL~, INDIVIDUAL+44, INDIVIDUAL+59, INDIVIDUAL+60
SETCODES PHYSFUNC+1~, PHYSFUNC+2*, PHYSFUNC+3
U DDAT1+5, OTDAT+4, CHDAT+4, ICD10S+4, TOBIN+4, TOBIN+5, TRIG05+5, TRIG05+8, TOB+3, INDIVIDUAL+47
, INDIVIDUAL+50, INDIVHELP+6, INDIVHELP+8, PHYSFUNC+2
X DDAT+2!, DDAT+3!, DDAT+5!, DDAT1+2!, DDAT1+3!, DDAT1+4!, DDAT1+5!, DDAT1+10!, DDAT3+2, DDAT3+4!
, OTDAT+1, OTDAT+3!, OTDAT+4!, CHDAT+2, CHDAT+5!, CHDAT+6!, TO+1!, TO+2!, FROM+1!, FROM+2!
, FROM+3!, TRIG05~, TRIG05+8
>> XQY0 INDIVIDUAL+42, INDIVHELP+3
Y CHDAT+3~, CHDAT+6*, TOBIN~, TOBIN+5
Z TRIG05+4~, TRIG05+6*, TRIG05+8*, TOB+2~, TOB+3*, TOB+4
Z0 TRIG05+4~, TRIG05+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All