Routine: IBCNQ1

Information

IBCNQ1 ;ALB/CPM - OUTPATIENT VISIT DATE INQUIRY ; 31-JUL-91

Source file <IBCNQ1.m>

Package	Total	Caller Graph
Integrated Billing	1	IB OUTPT VISIT DATE INQUIRY

Name	Comments	DBIA/ICR reference
DISP	; Write the bill number, rate type, and bill status.
PAUSE
END
HELP	; List all OP visit dates and bill numbers for patient.
ASKDAT
LIST	; If multiple bills for an OP visit date, list them.
ASKNUM
ASKPAT	;
LQ

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ASKPAT+4
Function Call: WRITE	Prompt: !!,"This patient has no bills with OP visits. Please enter another patient." Line Location: ASKPAT+5
Function Call: WRITE	Prompt: !!?5,"End of list.",! Line Location: LIST+5
Function Call: READ	Timeout: DTIME Variable: DGX Line Location: ASKNUM+0
Function Call: WRITE	Prompt: !!?5,*7,"Enter a NUMBER from 1 to "_$S(J#5:J-1,1:J)_".",! Line Location: ASKNUM+0
Function Call: WRITE	Prompt: !?5,$E(Y,4,5)_"-"_$E(Y,6,7)_"-"_$E(Y,2,3) Line Location: HELP+2
Function Call: READ	Timeout: DTIME Variable: DGY Line Location: PAUSE+0
Function Call: WRITE	Prompt: ?20,$P(^(0),"^"),?30,$P($G(^DGCR(399.3,+$P(^(0),"^",7),0)),"^") Line Location: DISP+1
Routine Call	%ZIS Line Location: IBCNQ1+6
Routine Call	DIC Line Location: ASKPAT+4
Routine Call	DIR Line Location: ASKDAT+2

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	ASKPAT+5, ASKDAT+3, LIST+4, HELP+2, DISP+1
^DGCR(399.3 - [#399.3]	DISP+1

Name	Field # of Occurrence
^(0	DISP+1

Name	Field # of Occurrence
DFN	ASKPAT+5*, ASKDAT+3, END!, LIST+4, HELP+2
DGI	END!, LIST+3, LIST+4, HELP+2*, DISP+1
DGX	END!, ASKNUM, ASKNUM+1, HELP+2
DGY	END!, HELP+2, PAUSE, PAUSE+1
DIC	ASKPAT+4*!
DIC(0	ASKPAT+4*
DIR	ASKDAT+2!
DIR("?"	ASKDAT+1*
DIR("??"	ASKDAT+1*
DIR("A"	ASKDAT*
DIR(0	ASKDAT*
DTIME	ASKNUM, PAUSE
IB	END!
IBAC	ASKPAT+7*, END!
IBAC1	END!
IBARR	ASKDAT+4!
IBARR(	LIST+4*, ASKNUM+1
IBBNO	END!
IBIFN	ASKDAT+3, ASKDAT+4, ASKDAT+5, END!, LIST+4, ASKNUM+1
IBN	END!
IBNOW	END!
IBNUM	END!
IBOPD	END!
IBPAGE	END!
IBPT	END!
IBQUIT	ASKPAT+7, ASKDAT+4, ASKDAT+6, END!, LIST+4, ASKNUM
IBS	END!, DISP+1*, DISP+2
IBSTAT	END!
IBU	END!
IBUK	END!
IBUN	END!
IBX	END!
J	END!, LIST+4, LIST+5, ASKNUM, HELP+2
X	ASKDAT+3*, END!
X2	END!
Y	ASKPAT+4, ASKPAT+5, ASKDAT+2, ASKDAT+3, END!, LIST+4, HELP+2*