Routine: IBCU

Information

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

Source file <IBCU.m>

Package	Total	Call Graph
IFCAP	1	($$CATN,$$STA)^PRCAFN
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Integrated Billing	13	IBCF12 IBXSC1 IBXSC3 IBXSC42 IBXSC53 IBXSC6 IBXSC7 IBXST IBXX10 IBXX11 ^DGCR(399 RETURNED LOG DATE/TIME ^DGCR(399.3

Name	Comments	DBIA/ICR reference
DISQ
ARCAT	;Trigger logic to set who's responsible in 399.3 from AR Category
ARSTAT	;find status of bill in file 430.3 (ar) return status number
YN
PTF	;Screen for appropriate PTF records
AGE	;Input Transform for Condition Code 17
PTFQ
REV	;Input Transform for Revenue Code
PTFW
SEX	;Input Transform for Condition Code 18
INST	;Ask Institutution address info
SM	;Flag for printing medicare statment on UB-82
DIS	;Determine Billing Discharge status from PTF

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: !!,"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
Function Call: WRITE	Prompt: " (",$S(X:"YES",1:"NO"),")" Line Location: YN+0

Name	Line Occurrences (* Changed, ! Killed)
^DD(45	PTF+2
^DGCR(399 - [#399]	PTF+1, AGE+2, SEX+1, DIS+3, DIS+4, DIS+5, DIS+7
^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
^DPT - [#2]	PTF+1
^XUSEC("IB SUPERVISOR"	INST+1

Name	Line Occurrences
DISQ	DIS+3, DIS+4, DIS+5, DIS+6, DIS+7, DIS+9, DIS+10, DIS+11, DIS+12
PTFQ	PTF+4
PTFW	PTF+3
SEX	AGE+1

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

Name	Field # of Occurrence
A	DIS+2~, DIS+7*
>> D	REV+1*
>> D0	AGE+2, SEX+1
>> DA	ARCAT+1, PTF+1, DIS+3, DIS+4, DIS+5, DIS+7
>> DFN	PTF+1, PTF+3, AGE+2, SEX+1*
>> DGSM	SM+2*
>> DIC("DR"	INST+1*
>> DLAYGO	INST+1*
DUZ	INST+1
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
>> IBARST	ARSTAT+1*
IBC	AGE+2!, AGE+3, SEX+1!, SEX+2, REV+2
IBDD	PTFQ!
IBDD(	PTF+2*, PTFW
IBDD1	PTF+1!
IBDD1(	PTF+3*
IBDD1(0	PTF+4
>> IBIFN	ARSTAT+1
>> 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!, 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