Routine: IBTOSUM

Package	Total	Call Graph
Integrated Billing	4	$$INSURED^IBCNS1 DATE^IBOUTL RCNT^IBTOSUM1 (CHK,PRINT)^IBTOSUM2
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	DT^DICRW D^DIQ ^DIR
Registration	1	PAUSE^VALM1

Package	Total	Caller Graph
Integrated Billing	1	IBT OUTPUT MCCR/UR SUMMARY

Entry Points

Name	Comments	DBIA/ICR reference
SORT	; -- ask how they want it sorted
APPEALQ
END	; -- Clean up
RPT	; -- entry point from task man
DEV	; -- select device, run option
APPEAL(IBTRN)	; -- was this case appealed:
ADM	; -- count admission
PROC	; -- Process each admission or discharge
DIS	; -- count discharges

External References

Name	Field # of Occurrence
^%ZIS	DEV+1
HOME^%ZIS	DEV+2
^%ZISC	END+5
^%ZTLOAD	DEV+2
DT^DICRW	%
D^DIQ	RPT+3
^DIR	SORT+14
$$INSURED^IBCNS1	PROC+9
DATE^IBOUTL	SORT+18
RCNT^IBTOSUM1	PROC+21
CHK^IBTOSUM2	RPT+9, ADM+1, DIS+1
PRINT^IBTOSUM2	RPT+12
PAUSE^VALM1	END+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	PROC+1
^DGPM("AMV1"	ADM+3, ADM+4, ADM+5
^DGPM("AMV3"	DIS+3, DIS+4, DIS+5
^IBE(356.11 - [#356.11]	APPEAL+5, APPEAL+7
^IBT(356 - [#356]	PROC+3, PROC+6, PROC+15
^IBT(356.2 - [#356.2]	PROC+21, APPEAL+6, APPEAL+8
^TMP($J	RPT+2!, END+3!

Label References

Name	Line Occurrences
$$APPEAL	PROC+18
ADM	RPT+7
APPEALQ	APPEAL+4, APPEAL+6, APPEAL+8
DIS	RPT+8
END	SORT+15, SORT+19, DEV+1, DEV+2, RPT+10
PROC	ADM+5, DIS+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV+1*, END+6!
A	APPEAL+2~, APPEAL+3, APPEAL+6, APPEAL+8*, APPEALQ
DA	END+6!, ADM+5, DIS+5, PROC+1
DFN	END+7!, ADM+4, ADM+5, DIS+4, DIS+5, PROC+9
DGPM	END+7!, PROC+1*, PROC+3
DIR	SORT+1~, SORT+14!
DIR("?"	SORT+5, SORT+6, SORT+7, SORT+8, SORT+9, SORT+10, SORT+11, SORT+12, SORT+13*
DIR("A"	SORT+3*
DIR("B"	SORT+4*
DIR(0	SORT+2*
DIRUT	SORT+15, END+6!
DT	%, RPT+3
DUOUT	END+6!
I	RPT+4, RPT+5, RPT+6*, END+7!
IBAC	END+7!
IBBBS	END+6!
IBBDT	SORT+19, END+7!, ADM+2, DIS+2
IBC	END+6!
IBCDT	END+6!
IBCNT	END+7!
IBCNT(	RPT+4, RPT+5
IBCNT(1	END+2, PROC+2*
IBCNT(13	PROC+23*
IBCNT(2	PROC+11*
IBCNT(3	PROC+13*
IBCNT(30	RPT+6*
IBCNT(4	PROC+15, PROC+16
IBCNT(80	PROC+18*
IBCNT(99	PROC+22*
IBDAY	END+7!
IBDCNT	END+6!, PROC+20!
IBDT	END+7!, ADM+2, ADM+3, ADM+4, ADM+5, DIS+2, DIS+3, DIS+4, DIS+5, PROC+9
IBEDT	SORT+19, END+7!, ADM+3, DIS+3
IBFAC	END+7!
IBHDT	RPT+3*, END+7!
IBINS	END+7!
IBMAX	END+6!
IBNOD	END+7!
IBPAG	RPT+3*, END+7!
IBPCNT	END+6!, PROC+20!
IBPCNT(	PROC+22, PROC+23
IBPEN	END+7!
IBPEND	END+7!
IBQUIT	%+2, RPT+3, END+7!
IBRATE	END+6!
IBSITE	END+7!
IBSNM	END+7!
IBSORT	SORT+15*, RPT+7, RPT+8, END+6!
IBSPEC	END+7!
IBTRC	END+7!, PROC+21*
IBTRCD	END+7!
IBTRN	END+7!, PROC+3*, PROC+4, PROC+6, PROC+15, PROC+18, PROC+21, PROC+22, PROC+23, APPEAL~ , APPEAL+4, APPEAL+6, APPEAL+8
IBTRND	END+7!, PROC+6*, PROC+7, PROC+13, PROC+16
IO	DEV+3
IO("Q"	DEV+2!
IOST	END+2
J	END+7!
POP	DEV+1, END+6!
X	END+6!, END+7!, PROC+15, PROC+16, APPEAL+2~, APPEAL+5, APPEAL+6, APPEAL+7*, APPEAL+8
X1	END+6!
X2	END+6!
X3	END+6!
Y	SORT+15, RPT+3*, END+6!, END+7!
>> ZTDESC	DEV+2*
>> ZTQUEUED	END+4
>> ZTREQ	END+4*
>> ZTRTN	DEV+2*
>> ZTSAVE("IB*"	DEV+2*
ZTSK	DEV+2!
>> ZTSTOP	RPT+10, ADM+1, DIS+1

Customize PDF page

Package: Integrated Billing

Routine: IBTOSUM

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: