Routine: IBCOPV1

Package	Total	Call Graph
VA Fileman	3	(FILE,YN)^DICN DT^DIQ ^DIR
Integrated Billing	2	($$DUPCHK,$$OPV1,$$OPV2)^IBCU41 $$DAT2^IBOUTL

Package

Total

Call Graph

VA Fileman

(FILE,YN)^DICN DT^DIQ ^DIR

Integrated Billing

($$DUPCHK,$$OPV1,$$OPV2)^IBCU41 $$DAT2^IBOUTL

Package	Total	Caller Graph
Integrated Billing	3	IBCCPT IBCOPV IBCU7

Package

Total

Caller Graph

Integrated Billing

IBCCPT IBCOPV IBCU7

Entry Points

Name	Field # of Occurrence
FILE^DICN	VFILE1+8
YN^DICN	OK1
DT^DIQ	PRT+3
^DIR	OK
$$DUPCHK^IBCU41	VFILE1+5
$$OPV1^IBCU41	OK+3, VFILE1+3
$$OPV2^IBCU41	VFILE1+3
$$DAT2^IBOUTL	VFILE1+4, VFILE1+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PRT+3
Function Call: WRITE	Prompt: ?1,I_")",?5 Line Location: PRT+3
Function Call: WRITE	Prompt: ! Line Location: PRT+5
Function Call: WRITE	Prompt: !,"Maximum of 30 visits allowed per bill!",!,"The visits already on the bill along with those selected total more than 30." Line Location: OK+4
Function Call: WRITE	Prompt: !,*7,"THIS INSURANCE COMPANY WILL ONLY ACCEPT ONE VISIT PER BILL.",! Line Location: OK+5
Function Call: WRITE	Prompt: !,"YOU HAVE SELECTED VISIT(S) NUMBERED- ",$E(Y,1,$L(Y)-1),!,"IS THIS CORRECT" Line Location: OK1+0
Function Call: WRITE	Prompt: !,"Enter 'Y'es to include these visits.",!,"Enter 'N'o to reselect." Line Location: OK1+1
Function Call: WRITE	Prompt: !,?10,"Can't add OP Visit Date of ",$$DAT2^IBOUTL(X) Line Location: VFILE1+4
Function Call: WRITE	Prompt: !?4,"Only 1 visit date allowed on bills with Amb. Surg. Codes!" Line Location: VFILE1+6
Function Call: WRITE	Prompt: X Line Location: HDR1+0
Function Call: WRITE	Prompt: ! Condition for execution: $X>1 Line Location: VT1+0
Function Call: WRITE	Prompt: ?5,$G(IBDATE) Line Location: VT1+0
Function Call: WRITE	Prompt: ! Condition for execution: P>4 Line Location: VT1+2
Function Call: WRITE	Prompt: ?40,$J($P(^UTILITY($J,"OPV","AP",I),"^",P),7),"-",$P(^UTILITY($J,"OPV","AP",I),"^",P+1) Line Location: VT1+2
Function Call: WRITE	Prompt: ?60,$E($P(^UTILITY($J,"OPV",I1,I2,I3),"^",6),1,20) Line Location: VT1+3
Function Call: WRITE	Prompt: ! Line Location: SCR+0
Function Call: WRITE	Prompt: @IOF Line Location: SCR+1
Function Call: WRITE	Prompt: ! Line Location: SCR+1
Function Call: READ	Timeout: 5 Variable: H Line Location: HLP+1
Function Call: WRITE	Prompt: !!,"NO OUTPATIENT VISITS FOUND DURING THE PERIOD COVERED BY THIS STATEMENT" Line Location: NOVT+0
Routine Call	DIR Line Location: OK

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	VFILE1+1, VFILE1+2, VFILE1+8
^UTILITY($J	PRT+3, VFILE, VT, VT1+2, VT1+3, CHG

Name	Line Occurrences
CHG	VT1+1
HDR	PRT+3, SCR+1
HDR1	PRT+3, SCR+1, NOVT
OK	OK+3, OK1+2
OK1	OK1+1
PICK	PRT+6, SCR+1
Q	Q2, NOVT
Q1	OK1+3
Q2	PRT+7, OK1, OK1+6
SCR	PRT+3, VT1
VFILE	OK1+5
VFILEQ	VFILE1+2, VFILE1+3
VT	PRT+3
VT1	VT

Name	Field # of Occurrence
^(0	VFILE1+1*

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	OK1*, OK1+1, OK1+2
>> C	PRT+5*
DA	Q!
DA(1	VFILE1*, VFILE1+1, VFILE1+2
DD	VFILE1+8!
DGAP	OK1+5*, VFILE, Q+1!
DGASC	Q+1!
DGBIL	Q!
DGBIL1	Q+1!
DGCNT	Q!, NOVT
DGCNT1	Q!
DGCNT2	Q!
DGCOD	Q!
DGCPT	Q!
DGCPT0	Q+1!
DGCPT1	Q!
DGCPT2	Q+1!
DGCPT3	Q+1!
DGCPTS	Q+1!
DGCT1	Q!
DGDAT	Q+1!
DGDIV	Q+1!
DGDT	Q!
DGDT1	Q!
DGFIL	Q!
DGLP	Q+1!
DGMT	Q!
DGMT1	Q!
DGNO	Q!
DGNOADD	VFILE1+3*, Q+1!
DGNOD	Q!
DGTE	Q+1!
DGTYP	Q!
DGTYPE	Q!
DIC	VFILE1*, Q!
DIC(0	VFILE1*
DIE	Q!
DINUM	VFILE*, VFILE1+2, VFILE1+3, VFILE1+5, Q!
DIR	Q2!, Q1!
DIR("A"	PICK*
DIR(0	OK*
DIRUT	Q2!, Q1!
DO	VFILE1+8!
DR	Q!
>> DTOUT	OK+1, Q1
>> DUOUT	OK+1, Q1
>> I	PRT+3, OK1+5, VT1+2, CHG
>> I1	PRT+3*, VT, VT1+3
>> I2	VT*, VT1+3
>> I3	VT*, VT1+3
I4	Q+1!, VT*, VT1, VT1+2, CHG
I7	Q+1!
I9	Q+1!
IBCD	Q!
IBCHG1	Q!
IBCHG2	Q!
IBCOPV1	Q!
IBDATE	PRT+1~, PRT+3*, VT1
IBFT	Q+1!
>> IBIFN	OK+3, VFILE1, VFILE1+3, VFILE1+5, VFILE1+8
IBNUM	PRT+1~, PRT+3*, PICK, OK
IBOPV	Q!
IBOPV2	Q!
IBOPV3	Q!, VT*, VT1+1
IBOPV4	Q!
>> IBOUT	OK1, Q1
IBQUIT	PRT+1~, PRT+3, PRT+6, OK+1, Q2*, VT, VT1, SCR, SCR+1
IBRVCE	Q!
IBVDT	Q!
IBVT	OK1+4*, OK1+5, Q+1!
IOF	HDR1, SCR+1
IOSL	PRT+5, SCR
IOST	SCR
L	Q!
P	Q+1!, VT1+2*
U	OK+3
V	Q!
X	OK+2, VFILE, VFILE1+4, VFILE1+7, Q!, HDR1
Y	PRT+3!, PICK!, OK+3, OK1, OK1+1, OK1+2, OK1+3, OK1+4, VFILE1+5, Q! , SCR*
Z	Q+1!
Z1	PRT+1~, VT*, VT1, VT1+2, CHG

Customize PDF page

Package: Integrated Billing

Routine: IBCOPV1

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
OK1
Q1
Q2
OK
HDR
NOVT
HDR1
VFILE
CHG
HLP	;W !!,"Enter a number between 1 and ",DGCNT," or a list or range separated with commas",!,"or dashes, e.g., 1,3,5 or 2-4,8"
Q
PRT	;
VFILE1
VT
PICK
VT1
SCR
VFILEQ