Routine: IBCOMA

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$UP^XLFSTR
VA FileMan	2	^%DT ^DIR
Integrated Billing	1	BEG^IBCOMA1

Package	Total	Caller Graph
Integrated Billing	1	IBCN POL W/NO EFF DATE REPORT

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Entry point from option ; IBAIB - 1 (Patient Name Range) or 2 (Terminal Digit Range) sorting method ; IBAPPTE - Ending Appointment Date for filtering ; IBAPPTS - Starting Appointment Date for filtering ; IBBDT - Beginning Verification Date for filtering ; IBEDT - Ending Verification Date for filtering ; IBEXCEL - 1 for Excel Format, 0 for Report Format ; IBRF - First Patient Name or Terminal Digit, depending on sorting method ; IBRL - Last Patient Name or Terminal Digit, depending on sorting method ; IBPTYPE - 1 (Living Patients), 2 (Deceased Patients) or 3 (Both) ; IBSIN - 1 (Verified Policies), 2 (Non-Verified Policies) or 3 (Both)
STRT	;
PATLIFE	; IB2549 - Prompt for Living/Deceased Patient filter
VER	;
FILTYPE	; IB.2.0.549 added method
PVDATE	;
LADATE	;
FORMAT	; Prompt for Excel or Report Format
EXIT	;
WITEXT()	;
FORMATH	; Excel or Report Format Help
NR	; Ask Name Range
NRR	;
NRRHLP(LEVEL)	; ?? Help for the Range Prompt
TR	; Ask Terminal Digit Range
TRR	; IB*752/DTG new tag for return to if '^' on go to prompt
PATLIFEH	; Living/Deceased/Both patient filter help Text
FILTYPEH	; Filter by Verification Date or Last Appointment Date Help Text
GETDATES(TEXT,STRTDATE,ENDDATE)	; Ask Date Range
VRBDT	; - get begin date
VREDT	; - get ending date
VRQ	;
ENH	; Sort help Text
ICH	; Search criteria help Text
QUE	; Ask Device
QUEQ	; EXIT CLEAN-UP

External References

Name	Field # of Occurrence
^%DT	VRBDT+2, VREDT+6
^%ZIS	QUE+7
HOME^%ZIS	QUE+16
^%ZISC	QUEQ+2
^%ZTLOAD	QUE+14
^DIR	STRT+10, PATLIFE+10, VER+9, FILTYPE+11, FORMAT+6, NRR+5, NRR+15, TRR+4, TRR+9
BEG^IBCOMA1	QUE+20
$$UP^XLFSTR	FORMAT+7, NRR+7, NRR+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?10,"Identify Active Policies with NO Effective Date",! Line Location: STRT+3
Function Call: WRITE	Prompt: !! Line Location: STRT+14
Function Call: WRITE	Prompt: !! Line Location: PATLIFE+1
Function Call: WRITE	Prompt: !! Line Location: VER+1
Function Call: WRITE	Prompt: !! Line Location: FILTYPE+4
Function Call: WRITE	Prompt: !! Line Location: LADATE+4
Function Call: WRITE	Prompt: ! Line Location: FORMAT+1
Function Call: WRITE	Prompt: !! Line Location: FORMAT+11
Function Call: WRITE	Prompt: !,?5,"Enter E to Export data in a format readable by Microsoft Excel." Line Location: FORMATH+1
Function Call: WRITE	Prompt: !,?5,"Enter R to display output in Report format." Line Location: FORMATH+2
Function Call: WRITE	Prompt: !!,"Enter Start With value or Press <ENTER> to start at the beginning of the list.",! Line Location: NRR+2
Function Call: WRITE	Prompt: !!,"Enter Go To value or Press <ENTER> to finish at the end of the list.",! Line Location: NRR+10
Function Call: WRITE	Prompt: !!,?5,"* The Go to Patient Name must follow after the Start with Name. *",! Line Location: NRR+20
Function Call: WRITE	Prompt: !!,?5,"* The Go to Patient Name must follow after the Start with Name. *",! Line Location: NRR+21
Function Call: WRITE	Prompt: !!,?5,"Enter a value the Patient Name should ",LEVEL," with." Line Location: NRRHLP+1
Function Call: WRITE	Prompt: !,?5,"Press <ENTER> to start at the beginning of the list." Line Location: NRRHLP+2
Function Call: WRITE	Prompt: !,?5,"Press <ENTER> to finish at the end of the list." Line Location: NRRHLP+3
Function Call: WRITE	Prompt: !!,?5,"* The Go to Terminal Digit must follow after the Start with Digit. *",! Line Location: TRR+12
Function Call: WRITE	Prompt: !!,?5,"Enter 1 to only display Living Patients." Line Location: PATLIFEH+1
Function Call: WRITE	Prompt: !,?5,"Enter 2 to only display Deceased Patients." Line Location: PATLIFEH+2
Function Call: WRITE	Prompt: !,?5,"Enter 3 to display both Living and Deceased Patients." Line Location: PATLIFEH+3
Function Call: WRITE	Prompt: !!,?5,"Enter 1 to only display policies with a Verification Date falling" Line Location: FILTYPEH+1
Function Call: WRITE	Prompt: !,?11,"within a specified date range." Line Location: FILTYPEH+2
Function Call: WRITE	Prompt: !,?5,"Enter 2 to only display patients with a Last Appointment Date falling" Line Location: FILTYPEH+3
Function Call: WRITE	Prompt: !,?11,"within a specified date range." Line Location: FILTYPEH+4
Function Call: WRITE	Prompt: !!," Please enter ",TEXT," Dates:" Line Location: GETDATES+3
Function Call: READ	Formatting: ! Prompt: " Go to DATE: " Variable: X Timeout: DTIME Line Location: VREDT+2
Function Call: WRITE	Prompt: *7," ??",!,"ENDING DATE must follow BEGINNING DATE." Line Location: VREDT+2
Function Call: READ	Formatting: ! Prompt: " Go to DATE: " Variable: X Timeout: DTIME Line Location: VREDT+3
Function Call: WRITE	Prompt: *7," ??",!,"ENDING DATE must follow BEGINNING DATE." Line Location: VREDT+7
Function Call: WRITE	Prompt: " <Date Range not entered>" Line Location: VRQ+1
Function Call: WRITE	Prompt: !!,?5,"Enter 1 to search by a Patient Name Range. (i.e. ADAMS to ADAMSZ)" Line Location: ENH+1
Function Call: WRITE	Prompt: !!,?5,"Enter 2 to search by Terminal Digit. The output will be sorted" Line Location: ENH+2
Function Call: WRITE	Prompt: !?5,"by the 8th and 9th digits and then the 6th and 7th digits" Line Location: ENH+3
Function Call: WRITE	Prompt: !?5,"of the Patient's SSN.",! Line Location: ENH+4
Function Call: WRITE	Prompt: !!,?5,"Enter 1 to list active policies by Verification Date Range" Line Location: ICH+1
Function Call: WRITE	Prompt: !,?15,"(i.e. Sort Date By: 10-1-96 Go to Date: 01-1-97)" Line Location: ICH+2
Function Call: WRITE	Prompt: !,?5,"Enter 2 to list active policies with no Verification Date." Line Location: ICH+3
Function Call: WRITE	Prompt: !,?5,"Enter 3 to include active policies with or without a Verification Date." Line Location: ICH+4
Function Call: WRITE	Prompt: !!,?15,"... One Moment Please ..." Line Location: QUE+19
Function Call: WRITE	Prompt: ! Line Location: QUEQ+1
Routine Call	DIR Line Location: STRT+10 PATLIFE+10 VER+9 FILTYPE+11 FORMAT+6 NRR+5 NRR+15 TRR+4 TRR+9
Routine Call	%ZIS Line Location: QUE+7
Routine Call	%ZIS Line Location: QUE+16

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("IBCOMA"	QUEQ+3!

Label References

Name	Line Occurrences
$$GETDATES	PVDATE+2, LADATE+5
$$WITEXT	PATLIFE+3, VER+3
@(	STRT+15, PVDATE+2, LADATE+5
EXIT	STRT+11, PATLIFE+12, VER+11, FILTYPE+13, PVDATE+3, LADATE+6, FORMAT+9
FORMAT	PVDATE+4
LADATE	FILTYPE+3, FILTYPE+14
NRR	NRR+16, NRR+21
PATLIFE	VER+10
QUE	FORMAT+12
QUEQ	QUE+7, QUE+8
STRT	STRT+17, PATLIFE+11
TR	TRR+12
TRR	TRR+10
VER	FILTYPE+12
VRBDT	VREDT+5, VREDT+7
VREDT	VREDT+6
VRQ	VRBDT+2, VREDT+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	GETDATES+2~, VRBDT+2!, VREDT+3
%DT("A"	VRBDT+2*
%ZIS	QUE+1~, QUE+7*
DIR	EN+11~, STRT+13!, PATLIFE+2!, VER+2!, FILTYPE+2!, FORMAT+2!, NR+1~, TR+1~, GETDATES+1!
DIR("?"	NRR+4, NRR+12, TRR+2*
DIR("??"	STRT+9, PATLIFE+9, VER+9, FILTYPE+10, FORMAT+5*
DIR("A"	STRT+4, STRT+5, STRT+6, STRT+7, STRT+9, PATLIFE+3, PATLIFE+4, PATLIFE+5, PATLIFE+6, PATLIFE+7 , PATLIFE+9, VER+3, VER+4, VER+5, VER+6, VER+7, VER+9, FILTYPE+5, FILTYPE+6, FILTYPE+7 , FILTYPE+8, FILTYPE+10, FORMAT+4, NRR+3, NRR+11, TRR+3, TRR+6*
DIR("B"	STRT+9, PATLIFE+9, VER+9, FILTYPE+10, FORMAT+5, TRR+3, TRR+6*
DIR(0	STRT+8, PATLIFE+8, VER+8, FILTYPE+9, FORMAT+3, NRR+3, NRR+11, TRR+1
DIROUT	EN+11~, STRT+13!, PATLIFE+2!, VER+2!, FILTYPE+2!, FORMAT+2!, NR+1~, GETDATES+1!
DIRUT	EN+11~, STRT+13!, PATLIFE+2!, VER+2!, FILTYPE+2!, FORMAT+2!, NR+1~, TR+1~, GETDATES+1!
DTIME	VREDT+3
DTOUT	EN+11~, STRT+13!, PATLIFE+2!, VER+2!, FILTYPE+2!, FORMAT+2!, NR+1~, NRR+5, NRR+16, TR+1~ , TRR+4, TRR+10, GETDATES+1!
DUOUT	EN+11~, STRT+13!, PATLIFE+2!, PATLIFE+11, VER+2!, VER+10, FILTYPE+2!, FILTYPE+12, FORMAT+2!, NR+1~ , NRR+5, NRR+16, TR+1~, TRR+4, TRR+10, GETDATES+1!
ENDDATE	GETDATES~, VRBDT+1, VREDT+6, VRQ+1
IBAIB	EN+11~, STRT+2, STRT+12, STRT+15, WITEXT+1, QUEQ+3!
IBAPPTE	EN+11~, STRT+2, FILTYPE+1, LADATE+5, QUEQ+3!
IBAPPTS	EN+11~, STRT+2, FILTYPE+1, LADATE+5, QUEQ+3!
IBBDT	EN+11~, STRT+2, FILTYPE+1, PVDATE+2
IBEDT	EN+11~, STRT+2, FILTYPE+1, PVDATE+2
IBEXCEL	EN+11~, STRT+2, FORMAT+8, FORMAT+9, QUE+2, QUE+5, QUEQ+3!
IBPTYPE	EN+12~, PATLIFE+13*, QUEQ+3!
IBQUIT	EN+12~, STRT+2, STRT+17, PVDATE+3, LADATE+6, NRR+5, TRR+4*
IBRF	EN+11~, STRT+2, NRR+6, NRR+7, TRR+5*, TRR+12, QUEQ+3!
IBRFU	EN+13~, STRT+1, NRR+7, NRR+21, QUEQ+4!
IBRL	EN+12~, STRT+2, NRR+17, NRR+19, TRR+11*, TRR+12, QUEQ+3!
IBRLU	EN+13~, STRT+1, NRR+19, NRR+21, QUEQ+4!
IBSIN	EN+12~, STRT+2, VER+12, FILTYPE+3, PVDATE+2, LADATE+5, QUEQ+3!
IO	QUE+18
IO("Q"	QUE+8!
IOST	QUE+19
LEVEL	NRRHLP~, NRRHLP+1, NRRHLP+2, NRRHLP+3
POP	QUE+1~, QUE+7
STRTDATE	GETDATES~, VRBDT+1, VRBDT+2, VREDT+3, VREDT+7, VRQ+1
TEXT	GETDATES~, GETDATES+3
UPMOD	PVDATE+1~, PVDATE+2, LADATE+3~, LADATE+5
X	EN+12~, PATLIFE+2!, VER+2!, FILTYPE+2!, NR+1~, TR+1~, GETDATES+2~, VREDT+3*, VREDT+4, VREDT+5
Y	EN+12~, STRT+11, STRT+12, PATLIFE+2!, PATLIFE+12, PATLIFE+13, VER+2!, VER+11, VER+12, FILTYPE+2! , FILTYPE+13, FILTYPE+14, FORMAT+7, FORMAT+8, NR+1~, NRR+6, NRR+17, TR+1~, TRR+5, TRR+11 , GETDATES+2~, VRBDT+2, VREDT+6, VREDT+7
ZTDESC	QUE+1~, QUE+13*
ZTRTN	QUE+1~, QUE+9*
ZTSAVE	QUE+1~
ZTSAVE("IBAIB"	QUE+10*
ZTSAVE("IBAPPTE"	QUE+11*
ZTSAVE("IBAPPTS"	QUE+11*
ZTSAVE("IBBDT"	QUE+10*
ZTSAVE("IBEDT"	QUE+10*
ZTSAVE("IBEXCEL"	QUE+11*
ZTSAVE("IBPTYPE"	QUE+11*
ZTSAVE("IBRF"	QUE+9*
ZTSAVE("IBRFU"	QUE+12*
ZTSAVE("IBRL"	QUE+9*
ZTSAVE("IBRLU"	QUE+12*
ZTSAVE("IBSIN"	QUE+10*
ZTSK	QUE+15!

Customize PDF page

Package: Integrated Billing

Routine: IBCOMA

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: