Routine: IBCSC6

Information

IBCSC6 ;ALB/MJB - MCCR SCREEN 6 (INPT. BILLING INFO) ;27 MAY 88 10:19

Source file <IBCSC6.m>

Package	Total	Call Graph
Integrated Billing	6	(OFFSET,REV)^IBCSC61 EN^IBCSC7 ^IBCSCP (,H)^IBCSCU ^IBCU6 (4,5)^IBCVA1
VA Fileman	2	COMMA^%DTC D^DIQ

Package	Total	Caller Graph
Integrated Billing	2	IBCA0 IBCSC7

Name	Comments	DBIA/ICR reference
ROI
EN
BILL
REV
BED
1
3
FROMTO	; - Print From and To dates of bill
SC	; -if patient is sc, are movements for sc care
SC1	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !?4,"R.O.I. Form : ",$S($P(IB("U"),U,7)=1:"COMPLETED",$P(IB("U"),U,7)=0:"NOT COMPLETED",1:"STATUS UNKNOWN") Line Location: ROI+3
Function Call: WRITE	Prompt: !?4,"PTF record indicates ",IBSCM," of ",IBM," movements are for Service Connected Care." Line Location: BED+7
Function Call: WRITE	Prompt: !,?4,"Too many Revenue Codes to display, enter '5' to list" Line Location: REV+1
Function Call: WRITE	Prompt: X Line Location: BILL+1
Function Call: WRITE	Prompt: !?4,"FY 2 : ",$P(IB("U1"),U,11) Line Location: BILL+2
Function Call: WRITE	Prompt: ?40,"Charges: ",X Line Location: BILL+2
Function Call: WRITE	Prompt: $S($L(Y):Y,1:IBU) Line Location: FROMTO+1
Function Call: WRITE	Prompt: $S($L(Y):Y,1:IBU) Line Location: FROMTO+2

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	EN, EN+2
^DGCR(399.1 - [#399.1]	BED+1
^DGPT - [#45]	SC1+6, SC1+7
^DPT - [#2]	BED+7

Name	Line Occurrences
FROMTO	3
SC	BED+7

Name	Field # of Occurrence
^(	EN+2

Name	Field # of Occurrence
>> DFN	BED+7
DGRVRCAL	EN+1!
>> I	EN+2, ROI+4, REV*
>> IB(	EN+2*
>> IB("U"	ROI+1, ROI+2, ROI+3, ROI+5, BED+1, FROMTO+1, FROMTO+2
>> IB("U1"	BILL+1, BILL+2
>> IB("U2"	1+3, 1+4
>> IB(0	EN+4, SC+1
>> IBBT	EN+4*, 1
>> IBIFN	EN, EN+2
>> IBLS	BED+5
>> IBM	BED+7, SC1+5, SC1+7
>> IBOA	ROI+4*
>> IBOCN(	ROI+4
>> IBOX	ROI+4*, ROI+5
>> IBREVC(	REV
>> IBREVC(11	REV+1
>> IBSCM	BED+7, SC1+5, SC1+7
>> IBSR	EN+2*
>> IBSR1	EN+2*
IBTF	1+1!
>> IBU	1, 1+3, 1+4, ROI+1, ROI+2, BED+1, BILL+1, FROMTO+1, FROMTO+2
>> IBV	EN+2
>> IBV1	EN+2*
>> IBW	1, ROI, 3, BED, REV*
>> IBWW	1, ROI, 3, BED, REV
>> M	SC1+5, SC1+7
>> PTF	SC+1*, SC1+6, SC1+7
U	EN+4, 1+3, 1+4, ROI+1, ROI+2, ROI+3, ROI+5, BED+1, BILL+1, BILL+2
>> X	BILL+1, BILL+2
>> X2	BILL+1, BILL+2
>> Y	FROMTO+1, FROMTO+2
>> Z	1, ROI, 3, BED, REV*