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

Package: Integrated Billing

Routine: IBCU


Information

IBCU ;ALB/MRL - BILLING UTILITY ROUTINE ;01 JUN 88 12:00

Source Information

Source file <IBCU.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 5 ^%DT  EN^DDIOL  $$FIND1^DIC  FILE^DIE  ($$GET1,GETS)^DIQ  
Integrated Billing 2 $$FT^IBCEF  $$FACNUM^IBCEP2B  
Accounts Receivable 1 ($$CATN,$$STA)^PRCAFN  
Registration 1 DEM^VADPT  

Caller Graph

Caller Graph Total: 38

Package Total Caller Graph
Integrated Billing 38 IBCA3  IBCB  IBCCPT  IBCEF79  IBCEP2B  IBCEP7C  IBCF12  IBCNADD  
IBCRBC  IBOHPT2  IBXS1  IBXS3  IBXS4  IBXS6  IBXS61  IBXS7  
IBXSA2  IBXSA24  IBXSA25  IBXSAH  IBXSAH4  IBXSAH5  IBXSC1  IBXSC31  
IBXSC4  IBXSC61  IBXSC66  IBXSC74  IBXST  IBXST5  IBXST6  IBXX19  
IBXX20  IBY232PO  IBY288PO  ^DGCR(399  RETURNED LOG DATE/TIME  ^DGCR(399.3  

Entry Points

Name Comments DBIA/ICR reference
ARSTAT ;find status of bill in file 430.3 (ar) return status number
ARCAT ;Trigger logic to set who's responsible in 399.3 from AR Category
PTF ;Screen for appropriate PTF records
PTFQ
PTFW
AGE ;Input Transform for Condition Code 17
SEX ;Input Transform for Condition Code 18
REV ;Input Transform for Revenue Code
YN
NOPTF ; Input transform for file 399, field 159.5 (NON-VA ADMIT TIME)
DIS ;Determine Billing Discharge status from PTF
DISQ
INST ;Ask Institutution address info
PTADD(DFN,MAXL) ; outputs patient address for the trigger on Patient Short Address (399,110)
SM ;Flag for printing medicare statment on UB-82
CHGTYP(IBIFN,ARR) ; sets up array of all charge types defined on a bill: ARR(TYPE, COMPONENT)=""
CHGTYPE(IBIFN) ; returns list of charge types on a bill: TYPE ^ TYPE ^ ... ; EXTERNAL TYPE , EXTERNAL TYPE , ...
BCHGTYPE(IBIFN) ; returns type of bill and charges: (CLASS (.05): TYPE, TYPE, ...)
CLNSCRN(IBDT,CLIFN) ; screen for a Procedures Associated Clinic (399, 304, 6), returns true if clinic can be used
; clinic must be defined as a 'Clinic' and it must be active on date of procedure
PRVNUM(IBIFN,IBINS,COB) ; Trigger code (399:122,123,124)
; on Primary Secondary/Tertiary Carrier (399:101,102,103)
; returns the Provider Number for the Insurance Company
; Hospital Provider Number for prov id in file 355.92
; or Medicare A provider Number (psych/non-psych) if Medicare A
PRVNQ
BF() ; Returns ien of billing fac primary id type
BILLPNS(IBIFN) ; Trigger Code that sets all Bill P/S/T Prov# and QUAL (399: .122,123,124,128,129,130)
; on Bill Form Type (399:.19)
PRVQUAL(IBIFN,IBINS,COB) ; Trigger code for Bill P/S/T Prov QUAL (399:128,129,130)
; on P/S/T Carrier (399: 101,102,103)
; returns the Provider ID QUALIFIER
PRVQUALQ
ACIDS(IBIFN,COB,ENTRY) ; Administrative Contractor IDS
; This is called as a screen from fields 140, 142, and 144 in the BILL/CLAIMS file #399
; It should only allow types that have previously been defined for this insurance company and
; are allowed for this form type.
ACIDD(IBIFN,COB,ENTRY) ; Administrative Contractor ID Default
; This will default the ID based on the valid type entered.
; It is called from a trigger on fields 140, 142, and 144 in the BILL/CLAIMS file #399
; and triggers fields 141, 143, and 145

External References

Name Field # of Occurrence
^%DT NOPTF+5
EN^DDIOL YN, YN+1
$$FIND1^DIC PRVQUAL+41
FILE^DIE BILLPNS+8
$$GET1^DIQ PRVNUM+35, PRVNUM+36, PRVNUM+39, PRVQUAL+33, PRVQUAL+34, PRVQUAL+37, PRVQUAL+41
GETS^DIQ ACIDS+54
$$FT^IBCEF PRVNUM+35, PRVNUM+36, PRVNUM+39, PRVQUAL+33, PRVQUAL+34, PRVQUAL+37, ACIDS+44, ACIDD+19
$$FACNUM^IBCEP2B PRVNUM+41, PRVQUAL+39
$$CATN^PRCAFN ARCAT+1
$$STA^PRCAFN ARSTAT+1
DEM^VADPT AGE+2, SEX+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Patient has no ACTIVE PTF RECORDS for this event date.",!,"A 'PTF NUMBER' is required for inpatient billing records."
  • Line Location: PTF+4
Function Call: WRITE
  • Prompt: !!,"Select the appropriate billing record from the above listing by number."
  • Line Location: PTF+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PTFQ+0
Function Call: WRITE
  • Prompt: !!,"This patient is only ",VADM(4)," years old!!",!!
  • Line Location: AGE+2
Function Call: WRITE
  • Prompt: !!,"This patient is a MALE!! Condition code 18 applies only to FEMALES!!",!!
  • Line Location: SEX+1
Function Call: WRITE
  • Prompt: !!,"Choose only ACTIVE Revenue Codes!!",!!
  • Line Location: REV+1
Function Call: WRITE
  • Prompt: !,$P(^DGCR(399.2,X,0),"^",1),?30,$P(^(0),"^",2)
  • Line Location: REV+1
Function Call: WRITE
  • Prompt: !!,"Only ACTIVE Revenue Codes may be selected!!",!!
  • Line Location: REV+2
Routine Call
  • DIC
  • Line Location:
    • PRVQUAL+41
Routine Call
  • DIE
  • Line Location:
    • BILLPNS+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(350.9 - [#350.9] GET1^DIQ
^IBE(355.97 - [#355.97] FIND1^DIC
^DIC(36 - [#36] GET1^DIQ,  GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(45 PTF+2
^DGCR(399 - [#399] PTF+1, AGE+2, SEX+1, NOPTF+3, DIS+3, DIS+4, DIS+5, DIS+7, CHGTYP+2, CHGTYP+3
, BCHGTYPE+2, PRVNUM+12, PRVNUM+13, PRVNUM+28, BILLPNS+4, BILLPNS+5, BILLPNS+6, PRVQUAL+10, PRVQUAL+11, PRVQUAL+26
, PRVQUAL+41, ACIDS+19, ACIDD+22
^DGCR(399.1 - [#399.1] DIS+4, DIS+6, DIS+7, DIS+9, DIS+10, DIS+11, DIS+12
^DGCR(399.2 - [#399.2] REV+2
^DGCR(399.3 - [#399.3] ARCAT+1
^DGPT - [#45] PTF+3, DIS+5, DIS+6, DIS+7, DIS+8
^DGPT("B" PTF+3
^DIC(36 - [#36] PRVNUM+26, PRVNUM+30, PRVQUAL+24, PRVQUAL+28, ACIDS+50, ACIDD+30, ACIDD+33, ACIDD+36
^DIC(5 - [#5] PTADD+3
^DPT - [#2] PTF+1, PTADD+2
^IBA(355.3 - [#355.3] PRVNUM+29, PRVQUAL+27, ACIDS+28
^IBE(350.9 - [#350.9] ACIDS+69
^IBE(355.97 - [#355.97] BF+2
^SC - [#44] CLNSCRN+4
^XUSEC("IB SUPERVISOR" INST+1

Label References

Name Line Occurrences
$$CHGTYPE BCHGTYPE+3
$$PRVNUM BILLPNS+4, BILLPNS+5, BILLPNS+6
$$PRVQUAL BILLPNS+4, BILLPNS+5, BILLPNS+6
CHGTYP CHGTYPE+2
DISQ DIS+3, DIS+4, DIS+5, DIS+6, DIS+7, DIS+9, DIS+10, DIS+11, DIS+12
PRVNQ PRVNUM+14, PRVNUM+18, PRVNUM+32, PRVNUM+35, PRVNUM+36, PRVNUM+39
PRVQUALQ PRVQUAL+12, PRVQUAL+16, PRVQUAL+30, PRVQUAL+33, PRVQUAL+34, PRVQUAL+37
PTFQ PTF+4
PTFW PTF+3
SEX AGE+1

Naked Globals

Name Field # of Occurrence
^( PTF+2, BF+2
^(0 PTF+1, PTF+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT NOPTF+1~, NOPTF+5*
A DIS+2~, DIS+7*
ADMINCON ACIDS+67~
ADMINCON( ACIDS+70*, ACIDS+80
ARR CHGTYP~, CHGTYP+1!
ARR( CHGTYP+3*
CLIFN CLNSCRN~, CLNSCRN+4
COB PRVNUM~, PRVNUM+11*, PRVNUM+12, PRVNUM+13, PRVNUM+28, PRVNUM+41, PRVQUAL~, PRVQUAL+9*, PRVQUAL+10, PRVQUAL+11
, PRVQUAL+26, PRVQUAL+39, PRVQUAL+41, ACIDS~, ACIDS+13, ACIDS+19, ACIDD~, ACIDD+13, ACIDD+22
>> D REV+1*
>> D0 AGE+2, SEX+1
>> DA ARCAT+1, PTF+1, NOPTF+3, DIS+3, DIS+4, DIS+5, DIS+7
DFN PTF+1*, PTF+3, AGE+2*, SEX+1*, PTADD~, PTADD+2
>> DGSM SM+2*
>> DIC("DR" INST+1*
>> DLAYGO INST+1*
DT NOPTF+5
DUZ INST+1
ENTRY ACIDS~, ACIDS+12, ACIDS+80, ACIDD~, ACIDD+12, ACIDD+33
ERROR ACIDS+53~
IB01 PTF+2*, PTF+3*, PTFQ!
IB02 PTF+2*, PTFQ!, PTFW*
IB03 PTF+1*, PTF+3, PTFQ!
IB04 PTF+3*, PTFQ!
IB05 PTF+1*, PTFQ!, PTFW
IBACID ACIDD+16~, ACIDD+36*, ACIDD+38
IBAR CHGTYPE+1~, CHGTYPE+2
IBAR( CHGTYPE+3, CHGTYPE+5
>> IBARST ARSTAT+1*
IBB0 PRVNUM+10~, PRVNUM+12*, PRVQUAL+8~, PRVQUAL+10*
IBBF PRVNUM+10~, PRVQUAL+8~
IBC AGE+2*!, AGE+3, SEX+1*!, SEX+2, REV+2, CHGTYPE+1~, CHGTYPE+5*, CHGTYPE+6
IBCL0 CLNSCRN+3~, CLNSCRN+4*, CLNSCRN+5
IBCLASS BCHGTYPE+1~, BCHGTYPE+2*, BCHGTYPE+4
IBCLI CLNSCRN+3~, CLNSCRN+4*, CLNSCRN+5
IBDD PTFQ!
IBDD( PTF+2*, PTFW
IBDD1 PTF+1!
IBDD1( PTF+3*
IBDD1(0 PTF+4
IBDPT PTADD+1~*, PTADD+2*, PTADD+3, PTADD+4
IBDR BILLPNS+2~
IBDR(0 BILLPNS+8
IBDR(399 BILLPNS+4*, BILLPNS+5*, BILLPNS+6*
IBDT CLNSCRN~, CLNSCRN+5
IBFT PRVNUM+10~, PRVQUAL+8~
IBI PTADD+1~, PTADD+2*, CHGTYP+1~, CHGTYP+2*, CHGTYP+3, CHGTYPE+1~, CHGTYPE+3*, CHGTYPE+4, CHGTYPE+5, CHGTYPE+6
IBIFN ARSTAT+1, CHGTYP~, CHGTYP+2, CHGTYP+3, CHGTYPE~, CHGTYPE+2, BCHGTYPE~, BCHGTYPE+2, BCHGTYPE+3, PRVNUM~
, PRVNUM+12, PRVNUM+13, PRVNUM+26, PRVNUM+28, PRVNUM+35, PRVNUM+36, PRVNUM+39, PRVNUM+41, BILLPNS~, BILLPNS+4
, BILLPNS+5, BILLPNS+6, PRVQUAL~, PRVQUAL+10, PRVQUAL+11, PRVQUAL+24, PRVQUAL+26, PRVQUAL+33, PRVQUAL+34, PRVQUAL+37
, PRVQUAL+39, PRVQUAL+41, ACIDS~, ACIDS+14, ACIDS+19, ACIDS+44, ACIDD~, ACIDD+14, ACIDD+19, ACIDD+22
IBINS PRVNUM~, PRVNUM+13*, PRVNUM+14, PRVNUM+26, PRVNUM+30, PRVNUM+35, PRVNUM+36, PRVNUM+39, PRVQUAL~, PRVQUAL+11*
, PRVQUAL+12, PRVQUAL+24, PRVQUAL+28, PRVQUAL+33, PRVQUAL+34, PRVQUAL+37
IBINSCO ACIDS+16~, ACIDS+21*, ACIDS+50, ACIDS+54, ACIDD+16~, ACIDD+24*, ACIDD+30, ACIDD+33, ACIDD+36
IBINSDAT ACIDS+16~, ACIDS+19*, ACIDS+20, ACIDS+21, ACIDS+24, ACIDD+16~, ACIDD+22*, ACIDD+23, ACIDD+24
IBINSSF ACIDS+16~, ACIDS+47*, ACIDS+50, ACIDS+54, ACIDS+64, ACIDD+16~, ACIDD+27*, ACIDD+30, ACIDD+33, ACIDD+36
IBINST ACIDS+16~, ACIDS+44*, ACIDS+47, ACIDD+16~, ACIDD+19*, ACIDD+27
IBJ CHGTYPE+1~, CHGTYPE+5*
IBPLAN ACIDS+16~, ACIDS+24*, ACIDS+25, ACIDS+28
IBPLDAT ACIDS+16~, ACIDS+28*, ACIDS+29, ACIDS+32
IBPLTYPE ACIDS+16~, ACIDS+32*, ACIDS+33, ACIDS+41
>> IBPRCOB PRVNUM+18, PRVQUAL+16
IBS CHGTYPE+1~, CHGTYPE+3*, CHGTYPE+6*
IBSFIEN ACIDD+16~, ACIDD+33*, ACIDD+34, ACIDD+36
IBSPSF ACIDS+16~, ACIDS+41*, ACIDS+69
IBT CHGTYP+1~, CHGTYP+3*
IBTYPE BCHGTYPE+1~, BCHGTYPE+3*, BCHGTYPE+4
IBX PTADD+1~*, PTADD+2*, PTADD+3*, PTADD+4*, PTADD+5*, PTADD+6, CHGTYP+1~, CHGTYP+3*, CHGTYPE+1~, CHGTYPE+3*
, CHGTYPE+4*, CHGTYPE+7, CLNSCRN+3~*, CLNSCRN+5*, CLNSCRN+6, PRVNUM+10~, PRVNUM+12*, PRVNUM+18, PRVNUM+31*, PRVNUM+41*
, PRVNQ, BF+1~, BF+2*, BF+3, PRVQUAL+8~, PRVQUAL+10*, PRVQUAL+16, PRVQUAL+29*, PRVQUAL+39*, PRVQUAL+41*
, PRVQUALQ
IBY PTADD+1~, PTADD+2*, PTADD+3*, CHGTYPE+1~, CHGTYPE+3*, CHGTYPE+6*, CHGTYPE+7*, CHGTYPE+8, BCHGTYPE+1~*, BCHGTYPE+4*
, BCHGTYPE+5
LOOP1 ACIDS+67~, ACIDS+68*, ACIDS+69, ACIDS+70
MAXL PTADD~, PTADD+1*, PTADD+5
NOSEC PRVNUM+25~*, PRVNUM+31*, PRVNUM+32, PRVQUAL+23~*, PRVQUAL+29*, PRVQUAL+30
PLAN PRVNUM+27~, PRVNUM+28*, PRVNUM+29, PRVQUAL+25~, PRVQUAL+26*, PRVQUAL+27
PLANTYPE PRVNUM+27~, PRVNUM+29*, PRVNUM+30, PRVQUAL+25~, PRVQUAL+27*, PRVQUAL+28
SUBFILE ACIDS+63~, ACIDS+64*, ACIDS+68, ACIDS+69, ACIDS+70
TARGET ACIDS+53~, ACIDS+55
TARGET( ACIDS+68, ACIDS+69, ACIDS+70
U NOPTF+3, PTADD+2, PTADD+3, PTADD+4, CHGTYP+3, CHGTYPE+4, BCHGTYPE+2, CLNSCRN+5, PRVNUM+12, PRVNUM+28
, PRVNUM+29, BF+2, PRVQUAL+10, PRVQUAL+26, PRVQUAL+27, PRVQUAL+41, ACIDS+24, ACIDS+32, ACIDS+50, ACIDD+30
, ACIDD+36
>> VADM(4 AGE+2
>> VADM(5 SEX+1
X ARCAT+1*, ARCAT+2*, PTF+3, PTF+4, AGE+1, AGE+2, AGE+3*, SEX+1!, SEX+2*, REV+1
, REV+2!, YN*, YN+1!, NOPTF+2!, NOPTF+3!, NOPTF+4*, NOPTF+5*!, DIS+3*, DIS+4*, DIS+5*
, DIS+6*, DIS+7*, DIS+8*, DIS+9*, DIS+10*, DIS+11*, DIS+12*, DIS+13*
>> Y PTF+3*, PTFW, NOPTF+5*
Z PRVNUM+10~, BF+1~, BF+2*, PRVQUAL+8~
Z0 PRVNUM+10~, PRVQUAL+8~
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