Routine: IBCOMC

Information

IBCOMC ;ALB/CMS - IDENTIFY PT BY AGE WITH OR WITHOUT INSURANCE;10-09-98

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Integrated Billing	2	BEG^IBCOMC1 DATE^IBOUTL
VA FileMan	2	^DIC ^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Integrated Billing	1	IBCN PT W/WO INSURANCE REPORT

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Entry point from option
INS	; -- sort by Insurance Company or no Insurance
VISIT	; -- sort by Treated Date Range
AGE	; -- sort by AGE optional
AGEQ
EXIT
NR	; Ask Name Range
NRR
TR	; Ask Terminal Digit Range
INSR	; -- sort by Insurance Company Range
INSR1
INSS	; -- select up to six Insurance Companies
INSSQ
QUE	; Ask Device
QUEQ	; Exit clean-UP
OUT()	;

External References

Name	Field # of Occurrence
^%ZIS	QUE+3
HOME^%ZIS	QUE+8
^%ZISC	QUEQ+1
^%ZTLOAD	QUE+8
^DIC	INSS+3, INSS+7
^DIR	INS+7, VISIT+11, AGE+2, AGE+5, NRR+1, NRR+4, TR+5, TR+8, INSR1+1, INSR1+4 , OUT+6
BEG^IBCOMC1	QUE+12
DATE^IBOUTL	VISIT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report will identify patients who were treated within a specified" Line Location: EN+5
Function Call: WRITE	Prompt: !,"date range who do or do not have insurance coverage." Line Location: EN+6
Function Call: WRITE	Prompt: !!,"Sort by Insurance Company or No Insurance" Line Location: INS+1
Function Call: WRITE	Prompt: !!,"Sort by Date Last Treated Range." Line Location: VISIT+1
Function Call: WRITE	Prompt: *7," <Date Last Treated Range not entered>" Line Location: VISIT+3
Function Call: WRITE	Prompt: !! Line Location: VISIT+6
Function Call: WRITE	Prompt: !! Line Location: VISIT+15
Function Call: WRITE	Prompt: !!,"Sort by Patient Age Range. (Optional)" Line Location: AGE+1
Function Call: WRITE	Prompt: !! Line Location: AGEQ+4
Function Call: WRITE	Prompt: !!,?5,"* The Go to Patient Name must follow after the Start with Name. *",! Line Location: NRR+6
Function Call: WRITE	Prompt: !!,?5,"* The Go to Terminal Digit must follow after the Start with Digit. *",! Line Location: TR+10
Function Call: WRITE	Prompt: !!,?5,"* The Go to Insurance Company must follow after the Start with Company Name. *",! Line Location: INSR1+6
Function Call: WRITE	Prompt: " <No Insurance Companies selected>" Line Location: INSS+4
Function Call: WRITE	Prompt: !,?10,"You may want to queue this report!",! Line Location: QUE+2
Function Call: WRITE	Prompt: !!,?15,"... One Moment Please ..." Line Location: QUE+11
Function Call: WRITE	Prompt: ! Line Location: QUEQ+1
Function Call: WRITE	Prompt: ! Line Location: OUT+2
Routine Call	%ZIS Line Location: QUE+3
Routine Call	%ZIS Line Location: QUE+8
Routine Call	DIC Line Location: INSS+3 INSS+7
Routine Call	DIR Line Location: INS+7 VISIT+11 AGE+2 AGE+5 NRR+1 NRR+4 TR+5 TR+8 INSR1+1 INSR1+4 OUT+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(36 - [#36]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("IBCOMC"	QUEQ+1!

Label References

Name	Line Occurrences
$$OUT	AGEQ+2
@(	VISIT+15
AGEQ	AGE+4
EXIT	INS+8, INS+13, VISIT+3, VISIT+12, VISIT+16, AGE+3, AGE+6, AGEQ+2
INSR	INS+11
INSR1	INSR1+6
INSS	INS+12
INSSQ	INSS+4
NRR	NRR+6
QUE	AGEQ+4
QUEQ	QUE+3, QUE+4
TR	TR+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	QUE+1~, QUE+3*
DA	EN+1~, INSS+1~
DIC	EN+1~, INSS+1~, INSS+2*
DIC("A"	INSS+3, INSS+5
DIC("S"	INSS+2*
DIC(0	INSS+2*
DIE	EN+1~
DIR	EN+1~, INS+10!, VISIT+14!, AGEQ!, NR+1~, TR+1~, INSR+1~, OUT+1~
DIR("?"	TR+3*
DIR("??"	INS+7, VISIT+11, AGE+2*
DIR("A"	INS+2, INS+3, INS+4, INS+5, INS+7, VISIT+6, VISIT+7, VISIT+8, VISIT+9, VISIT+11 , AGE+2, AGE+5, NRR, NRR+3, TR+4, TR+7, INSR1, INSR1+3, OUT+4*
DIR("B"	INS+7, VISIT+11, AGE+5, NRR, NRR+3, TR+4, TR+7, INSR1, INSR1+3, OUT+5
DIR(0	INS+6, VISIT+10, AGE+2, AGE+5, NRR, NRR+3, TR+2, INSR1, INSR1+3, OUT+3
DIROUT	EN+1~, INS+10!, VISIT+14!, AGEQ!, NR+1~, INSR+1~, OUT+1~
DIRUT	EN+1~, INS+10!, VISIT+14!, AGEQ!, NR+1~, TR+1~, INSR+1~, OUT+1~, OUT+6
DR	EN+1~
DT	VISIT+4
DTOUT	EN+1~, INS+10!, VISIT+14!, AGEQ!, NR+1~, NRR+1, NRR+4, TR+1~, TR+5, TR+8 , INSR+1~, INSR1+1, INSR1+4, OUT+1~
DUOUT	EN+1~, INS+10!, VISIT+14!, AGEQ!, NR+1~, NRR+1, NRR+4, TR+1~, TR+5, TR+8 , INSR+1~, INSR1+1, INSR1+4, OUT+1~
IBAGEF	EN+2~, EN+3, AGE+5
IBAGEL	EN+2~, EN+3, AGE+7
IBAIB	EN+2~, EN+3, VISIT+13, VISIT+15, QUEQ+1!
IBBDT	EN+2~, EN+3*, VISIT+3, VISIT+4
IBEDT	EN+2~, EN+3, VISIT+4
IBOUT	EN+2~, AGEQ+2*, QUEQ+1!
IBQUIT	EN+2~, EN+3, INS+8, INS+13, VISIT+12, VISIT+16, AGE+3, AGE+6, NRR+1, NRR+4* , TR+5, TR+8, INSR1+1, INSR1+4, INSS+4*
IBRF	EN+2~, EN+3, NRR+2, NRR+6, TR+6*, TR+10, QUEQ+1!
IBRL	EN+2~, EN+3, NRR+5, NRR+6, TR+9*, TR+10, QUEQ+1!
IBSIN	EN+2~, EN+3, INS+9, INS+11, INS+12, QUEQ+1!
IBSIN(	INSS+5, INSS+8
IBSINF	EN+2~, EN+3, INSR1+2, INSR1+6
IBSINL	EN+2~, EN+3, INSR1+5, INSR1+6
IBSTR	QUEQ+1!
IBTMP	QUEQ+1!
IBX	INSS+1~, INSS+5, INSS+6, INSS+8, QUE+6*
IO	QUE+10
IO("Q"	QUE+4!
IOST	QUE+11
>> POP	QUE+3
U	INSS+5, INSS+8
VA	QUEQ+1!
VADM	QUEQ+1!
VAERR	QUEQ+1!
VAPA	QUEQ+1!
X	EN+1~, AGE+3, AGE+6, NR+1~, TR+1~, INSR+1~, INSS+1~, OUT+1~
Y	EN+1~, INS+8, INS+9, VISIT+12, VISIT+13, AGE+4, AGE+5, AGE+7, NR+1~, NRR+2* , NRR+5, TR+1~, TR+6, TR+9, INSR+1~, INSR1+2, INSR1+5*, INSS+1~, INSS+4, INSS+5 , INSS+6, INSS+7, INSS+8, OUT+1~, OUT+7
Y(0	INSS+5, INSS+8
ZTDESC	QUE+1~, QUE+7*
ZTRTN	QUE+1~, QUE+5*
ZTSAVE	QUE+1~
ZTSAVE(	QUE+6*
ZTSK	QUE+8!

Customize PDF page

Package: Integrated Billing