Routine: IBCONSC

Information

IBCONSC ;ALB/MJB,SGD,AAS,RLW - NSC W/INSURANCE OUTPUT ;06 JUN 88 13:51

Source file <IBCONSC.m>

Package	Total	Caller Graph
Integrated Billing	5	IB INPATIENT VET REPORT IB OUTPATIENT VET REPORT IB OUTPUT VETS BY DISCH IBCMENU IBCONS1

Name	Comments	DBIA/ICR reference
DATE1
SORT	; Select Billed, Unbilled, or All episodes for insured patients
TERM	; Sort by Patient Name or Terminal Digit?
INPDIS	; Entry point for Inpatient Discharge report
RNB	; -- ask if should print those flagged with Reason not billable
INP	; Entry point for Inpatient Admission report
BEGIN	; Background job main entry point. Set up the report header.
DEV	; -- ask device
Q	; Clean up variables and close the output device.
EN1	;
ASKDIV	; Issue prompt for Division
EN	; Entry point for Outpatient report
DATE	; Issue prompts for Begin and End dates

Name	Line Occurrences
Function Call: READ	Prompt: "Go to DATE: " Formatting: ! Timeout: DTIME Variable: X Line Location: DATE1+0
Function Call: WRITE	Prompt: *7," ??",!,"ENDING DATE must follow BEGINNING DATE." Line Location: DATE1+1
Function Call: WRITE	Prompt: " ??" Line Location: DATE1+2
Function Call: WRITE	Prompt: !!?5,"Enter: '<CR>' - To sort the output by patient name." Line Location: TERM+3
Function Call: WRITE	Prompt: !?14,"'T' - To sort the output by Terminal Digit." Line Location: TERM+4
Function Call: WRITE	Prompt: !?23,"The output will be sorted by the 8th and 9th digits," Line Location: TERM+5
Function Call: WRITE	Prompt: !?23,"and then the 6th and 7th digits of the patient's SSN." Line Location: TERM+6
Function Call: WRITE	Prompt: !?14,"'^' - To quit this option.",! Line Location: TERM+7
Routine Call	%ZIS Line Location: DEV+7
Routine Call	DIR Line Location: SORT+2 RNB+4
Routine Call	%ZIS Line Location: DEV+3

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	BEGIN+15
^DD("DD"	BEGIN+3, BEGIN+6, BEGIN+7
^IBE(350.9 - [#350.9]	BEGIN+8
^TMP($J	EN1+4!, Q+8!

Name	Line Occurrences
@(	BEGIN+11
DATE1	DATE1+1
EN1	INP+1, INPDIS+1
Q	DATE+1, DATE1, ASKDIV+1, SORT+3, RNB+5, TERM+1, DEV+3, DEV+4, BEGIN+12
TERM	TERM+2

Name	Field # of Occurrence
%	Q+4!
%DT	DATE+1, DATE1, BEGIN+7!*, Q+4!
%DT("A"	DATE+1*
>> %ZIS	DEV+3*
B	BEGIN+3*, Q+4!
C	Q+4!
DFN	Q+4!
DIR	SORT+2!, RNB+4!
DIR("?"	SORT+1, RNB+3
DIR("A"	SORT+1, RNB+2
DIR("B"	SORT+1, RNB+2
DIR(0	SORT+1, RNB+2
>> DIRUT	SORT+3, RNB+5
DT	EN1+3
DTIME	DATE1, TERM+1
I	Q+4!
I1	Q+4!
IBADMVT	Q+6!
IBAPPT	Q+7!
IBBEG	DATE+1*, DATE1, DATE1+1, BEGIN+3, BEGIN+5, BEGIN+6, Q+5!
IBBEG1	Q+5!
IBBILL	Q+4!
IBCNT	Q+4!
IBDAT	Q+7!
IBDATE	BEGIN+7*, Q+8!
IBDC	Q+7!
IBDFN	Q+7!
IBDT	Q+5!
IBDV	Q+8!
IBEND	DATE1+1*, BEGIN+5, BEGIN+6, Q+5!
IBETYP	Q+6!
IBFL	Q+8!
IBFLAG	Q+5!, Q+7!
IBFORMFD	Q+4!
IBHD	BEGIN+4, BEGIN+5, BEGIN+6*, Q+5!
IBI	Q+5!
IBIFN	Q+4!
IBINDT	Q+8!
IBINPT	INP+1, INPDIS+1, EN+1*, DEV+6, BEGIN+4, BEGIN+11, Q+7!
IBINS	Q+8!
IBL	BEGIN+3*, Q+5!
IBMOV	Q+8!
IBNAME	Q+7!
IBOE	Q+6!
IBPAGE	Q+5!
IBPGM	Q+7!
IBQUIT	BEGIN+8*, BEGIN+12, Q+6!, Q+7!
IBRMARK	Q+6!
IBRNB	RNB+4*, Q+6!
IBSC	Q+8!
IBSORT	SORT+2*, Q+4!
IBSTOP	Q+5!
IBSUB	INP+1, INPDIS+1, EN+1*, Q+8!
IBTERM	TERM+8*, Q+7!
IBTRKR	BEGIN+8*, Q+6!
IBVAR	Q+7!
II	Q+4!
IO	DEV+9
IO("Q"	DEV+4!
IOM	BEGIN+3
J	Q+4!
K	Q+4!
L	Q+4!
M	Q+4!
N	Q+4!
POP	DEV+3, Q+8!
PTF	Q+8!
VAUTD	Q+8!
X	DATE1, TERM+1, TERM+2, TERM+8, BEGIN+7, BEGIN+15, Q+4!
X1	Q+4!
X2	Q+4!
Y	DATE+1, DATE1+1, ASKDIV+1, SORT+2, RNB+4, BEGIN+3, BEGIN+5, BEGIN+6, BEGIN+7, Q+4!
>> ZTDESC	DEV+6*
>> ZTQUEUED	Q+2
>> ZTREQ	Q+2*
>> ZTRTN	DEV+5*
>> ZTSAVE("IB*"	DEV+5*
>> ZTSAVE("VAUTD"	DEV+5*
>> ZTSAVE("VAUTD("	DEV+5*
ZTSK	DEV+7!