Routine: IBOAMS

Information

IBOAMS ;ALB/AAS - PRINT REVENUE CODE TOTALS FOR MEANS TEST AMIS ; 10-SEP-91

Package	Total	Call Graph
VA Fileman	5	^%DT (COMMA,NOW)^%DTC ^DIC (D,DT)^DIQ ^DIR
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Registration	1	PID^VADPT

Package	Total	Caller Graph
Integrated Billing	1	IB REV CODE TOTALS
Registration	1	DGCRAMS1

Name	Comments	DBIA/ICR reference
DATE1
EN	; - Report of inpatient and nhcu per diems
HDR	; - patient data header
DEV
TOTALS	; - print revenue code totals
ENQ	;
PAUSE
DATE
BLD	;
BLD1
DQ	; - start report here

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,?19,"Report of Revenue Code Totals by Rate Type",!!! Line Location: EN+4
Function Call: READ	Prompt: "GO TO DATE FIRST PRINTED: " Formatting: ! Timeout: DTIME Variable: X Line Location: DATE1+0
Function Call: WRITE	Prompt: *7," ??",!,"ENDING DATE must follow BEGINNING DATE." Line Location: DATE1+0
Function Call: WRITE	Prompt: !,"No Matches Found" Line Location: DQ+9
Function Call: WRITE	Prompt: !,$E($P(^DPT(DFN,0),"^"),1,20),?23,VA("PID"),?38,$P(^DGCR(399,IBIFN,0),"^") Line Location: BLD+7
Function Call: WRITE	Prompt: ?59,$S($D(^DGCR(399.2,+R,0)):$P(^(0),"^"),1:R),?67 Line Location: BLD+8
Function Call: WRITE	Prompt: X,! Line Location: BLD+8
Function Call: WRITE	Prompt: !,"Revenue Code: ",$S($D(^DGCR(399.2,+R,0)):$P(^(0),"^"),1:R)," .........." Line Location: TOTALS+5
Function Call: WRITE	Prompt: ?32,X,?50,$J(IBCNT(R),8)," Bills" Line Location: TOTALS+5
Function Call: WRITE	Prompt: !,?31,"--------------",!," ",?32,X,?50,$J(IBCNT,8)," Bills" Line Location: TOTALS+6
Function Call: WRITE	Prompt: " to " Line Location: HDR+4
Function Call: WRITE	Prompt: !,IBLINE Line Location: HDR+6
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Routine Call	%ZIS Line Location: EN+4
Routine Call	DIC Line Location: EN+7
Routine Call	DIR Line Location: DATE1+2 PAUSE+2
Routine Call	%ZIS Line Location: DEV

FileNo	Call Tags
^DGCR(399.3 - [#399.3]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	DQ+6, BLD+2, BLD+3, BLD+4, BLD+7, BLD1
^DGCR(399.2 - [#399.2]	BLD+8, TOTALS+5
^DGCR(399.3 - [#399.3]	EN+6, HDR+3
^DPT - [#2]	BLD+7

Name	Field # of Occurrence
>> %	DQ+3
%DT	DATE!, DATE1!, ENQ+4!
%DT("A"	DATE*
>> %ZIS	DEV*
>> %ZIS("A"	DEV*
DFN	ENQ+4!, BLD+7*
DIC	EN+5*, EN+7!, ENQ+4!
DIC("A"	EN+5*
DIC("B"	EN+6*
DIC(0	EN+5*
DIR	DATE1+2!, ENQ+4!, PAUSE+2!
DIR("A"	DATE1+2*
DIR("B"	DATE1+2*
DIR(0	DATE1+2, PAUSE+2
DIRUT	DATE1+2, PAUSE+2!
DTIME	DATE1
DTOUT	PAUSE+2!
DUOUT	PAUSE+2!
IB	ENQ+4!, BLD+1!, BLD1*
IB(	BLD+8, BLD1*
IBBDT	DATE*, DATE1, DQ+5, ENQ+4!, HDR+4
IBC	ENQ+4!, BLD+3, BLD+6, BLD1
IBCNT	DQ+3, ENQ+4!, BLD+4, TOTALS+6
IBCNT(	BLD+4*, TOTALS+5
IBDT	DQ+5, DQ+6, ENQ+4!
IBEDT	DATE1*, DQ+6, ENQ+4!, HDR+4
IBGT	ENQ+4!, TOTALS+3, TOTALS+5, TOTALS+6
IBIFN	DQ+6*, ENQ+4!, BLD+2, BLD+3, BLD+4, BLD+7, BLD1
IBLINE	ENQ+4!, HDR+6*
IBPAG	DQ+3, ENQ+4!, HDR+1, HDR+2, HDR+3
IBPDT	DQ+3*, ENQ+4!, HDR+3
IBQUIT	DQ+3, DQ+6, DQ+8, DQ+10, ENQ+4!, BLD+6, TOTALS+2, PAUSE+2
IBRT	EN+6, EN+7, ENQ+4!, BLD+2, HDR+3
IBSUM	DATE1+2, ENQ+4!, BLD+5, TOTALS+2, TOTALS+4, HDR+5
IBT	DQ+5!, DQ+9, ENQ+4!, TOTALS+1
IBT(	BLD1*, TOTALS+5
IBTC	DQ+3, ENQ+4!, BLD1, TOTALS+2
IBY	ENQ+4!, PAUSE+1*
IO	DEV+2
IO("Q"	DEV+1!
IOF	EN+4, HDR+2
IOM	HDR+3, HDR+6
IOSL	BLD+6, TOTALS+2, PAUSE+1
IOST	HDR+2, PAUSE
>> POP	DEV
R	ENQ+4!, BLD+3, BLD+4, BLD+8, BLD1, TOTALS+5
VA	ENQ+4!
VA("PID"	BLD+7
VAERR	ENQ+4!
X	DATE1, ENQ+4!, BLD+8, TOTALS+5, TOTALS+6
X2	ENQ+4!, BLD+8, TOTALS+5, TOTALS+6*
X3	ENQ+4!, BLD+8, TOTALS+5, TOTALS+6*
Y	EN+7, DATE, DATE1, DATE1+2, DQ+3, ENQ+4!, HDR+4
>> ZTDESC	DEV+1*
>> ZTQUEUED	ENQ+3
>> ZTREQ	ENQ+3*
>> ZTRTN	DEV+1*
>> ZTSAVE("IB*"	DEV+1*
ZTSK	DEV+1!