Routine: IBCU

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

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~

Customize PDF page

Package: Integrated Billing

Routine: IBCU

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 38

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: