Routine: IBERS

Information

;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

Source file <IBERS.m>

Package	Total	Call Graph
Integrated Billing	3	$$PT^IBEFUNC $$TDG^IBEFUNC2 ^IBERS1
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	^%DT ^DIC ^DIR
Registration	2	SDA^VADPT (DIVISION,FIRST)^VAUTOMA

Package	Total	Caller Graph
Integrated Billing	1	IB OUTPUT BASC FORMS FOR APPT

Name	Comments	DBIA/ICR reference
DISP	;display patients/clinics appointments found and get users choice
ENDP
C	;print all appointments for a clinic - find division then clinic, print all/some clinics for all/some divisions
EN	;determine print option from user (print by clinic or by patient)
END
ENDS
S1
SEARCH	;get the appointment data on a patient (IBLN=APPT DT^CLINIC^STATUS^APPT TYPE)
P	;print by patient - get patient then appointment(s) for date
ENDC
EXIT
ENDD
DATE	;get date for RS
E1
E2

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?5,"No Active Appointments for ",IBNM," on this date",! Line Location: DISP+1
Function Call: WRITE	Prompt: !!,?10,"No Active Appointments in a Clinic with a Check-Off Sheet",!,?10,"for ",IBNM," on this date.",! Line Location: DISP+2
Function Call: WRITE	Prompt: !,$J(IBI,3)," ",$E($S(IBC="C":$P(IBLN,"^",3),1:$P(IBLN,"^",5)),1,20),?25," " Line Location: DISP+4
Function Call: WRITE	Prompt: " ",$P(IBLN,"^",IBJ) Line Location: DISP+4
Routine Call	%ZIS Line Location: EN+3 END+3
Routine Call	DIC Line Location: P+1
Routine Call	DIR Line Location: E1+2 E1+5 DISP+5
Routine Call	%ZIS Line Location: END+2

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DATE+1
^SC - [#44]	S1+3
^TMP("IBRS"	END, EXIT!, C+4, C+5, C+6, DISP+8
^UTILITY("VASD"	S1+1, S1+2, S1+3, S1+4, DISP+1, ENDD!

Name	Field # of Occurrence
%DT	DATE+2*!
%DT("A"	DATE+2*
%DT("B"	DATE+2*
>> %ZIS	END+2*
>> %ZIS("A"	END+2*
DFN	SEARCH+1, S1, S1+3, S1+4, ENDS!
DIC	P+1!, C+3!, ENDC!
DIC("S"	C+2*
DIC(0	P+1*
DIR	E1+2!, E1+5!, DISP+5!
DIR("?"	E1+1, E1+4
DIR("A"	E1+2, E1+5, DISP+5*
DIR("B"	E1+1, E1+5
DIR(0	E1+2, E1+4, DISP+5*
DIROUT	EXIT+4!, ENDD!
DIRUT	E1+2, E1+5, EXIT+4!, DISP+5, ENDD!
DT	EN+3
DTOUT	EXIT+4!, ENDP!, ENDD!
DUOUT	EXIT+4!, ENDP!, ENDD!
IBC	E1+2*, E1+3, E2, EXIT+4!, DISP+4
IBCLN	C+6*, ENDC!
IBDFN	ENDS!
IBDFN(	P+2*, S1
IBDIV	C+5*, ENDC!
IBDT	EN+3, E2, EXIT+4!, C+4, C+5, C+6, S1+1, DATE+1, DATE+2
IBI	C+5, C+6, ENDC!, S1+2, ENDS!, DISP+4, DISP+5, DISP+6*, ENDD!
IBJ	DISP+4*, ENDD!
IBLN	S1+3, S1+4, ENDS!, DISP+4, ENDD!
IBNM	P+2*, ENDP!, DISP+1, DISP+2, DISP+3
IBPAT	S1+3*, S1+4, ENDS!
IBPFN	P+1*, P+2, ENDP!
IBPNM	P+1*, P+2, ENDP!
IBSRT	E1+3, E1+5, EXIT+4!, DISP+7
IBSRT1	DISP+7*, DISP+8, ENDD!
IBTMP	DISP+2, ENDD!
IBTMP(	S1+4*, DISP+4, DISP+6, DISP+7, DISP+8
IBX	S1+2, S1+3, S1+4, ENDS!, DISP+4, DISP+6*, DISP+7, DISP+8, ENDD!
IO	END+4
IO("Q"	END+3!
IOF	E1
>> POP	END+2
VAERR	S1+1, ENDS!
VASD	ENDS!
VASD("F"	S1+1*
VASD("T"	S1+1*
VASD("W"	S1+1*
VAUTC	C+3, C+4, C+5, C+6, ENDC!
VAUTC(	C+6
VAUTD	C+1, C+4, C+5, ENDC!
VAUTD(	C+5
VAUTNI	C+3*, ENDC!
VAUTSTR	C+3*, ENDC!
VAUTVB	C+3*, ENDC!
X	EXIT+4!, ENDP!, ENDD!
Y	E1+2, E1+5, EXIT+4!, P+1, ENDP!, DISP+6, ENDD!, DATE+1*, DATE+2
>> ZTDESC	END+3*
>> ZTQUEUED	EXIT+3
>> ZTREQ	EXIT+3*
>> ZTRTN	END+3*
>> ZTSAVE("IBSRT"	END+3*
>> ZTSAVE("^TMP(""IBRS"",$J,"	END+3*