Routine: IBOUNP3

Package	Total	Call Graph
Registration	1	(ADD,DEM,ELIG,KVAR,OAD,OPD)^VADPT
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Integrated Billing	1	IBOUNP1

Entry Points

Name	Comments	DBIA/ICR reference
PAUSE	;
DIVTOT	; prints subtotal for division
HEADER	; writes the report header
PRINT
CLNTOT	; prints subtotal for clinic
INS	; writes insurance data
Q
ITEM	; prints patient data for a single appt
CKSPACE	; tries to keep vet's data on same page
REPORT	;
TOTAL	; prints total for all clincis
DATA
LOOP	;

External References

Name	Field # of Occurrence
NOW^%DTC	REPORT+6
ADD^VADPT	CKSPACE+1
DEM^VADPT	DATA+1
ELIG^VADPT	DATA+3
KVAR^VADPT	Q
OAD^VADPT	CKSPACE+3, CKSPACE+7
OPD^VADPT	DATA+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?6,"Clinic: ",?31,CLNC,! Line Location: LOOP+5
Function Call: WRITE	Prompt: ! Line Location: TOTAL+4
Function Call: WRITE	Prompt: !?31,"Employer:",?51,E1,?87,"Tele: ",?104,E1(8) Line Location: PRINT+2
Function Call: WRITE	Prompt: !?51,E1(1) Condition for execution: E1(1)]"" Line Location: PRINT+2
Function Call: WRITE	Prompt: !?51,E1(2) Condition for execution: E1(2)]"" Line Location: PRINT+2
Function Call: WRITE	Prompt: !?51,E1(3) Condition for execution: E1(3)]"" Line Location: PRINT+2
Function Call: WRITE	Prompt: !?51,E1(4)_","_$P($G(^DIC(5,+E1(5),0)),"^",2)_" "_E1(6) Condition for execution: E1(4)]"" Line Location: PRINT+2
Function Call: WRITE	Prompt: !?31,"Sps's Emplr:",?51,E2,?87,"Tele: ",?104,E2(8) Line Location: PRINT+3
Function Call: WRITE	Prompt: !?51,E2(1) Condition for execution: E2(1)]"" Line Location: PRINT+3
Function Call: WRITE	Prompt: !?51,E2(2) Condition for execution: E2(2)]"" Line Location: PRINT+3
Function Call: WRITE	Prompt: !?51,E2(3) Condition for execution: E2(3)]"" Line Location: PRINT+3
Function Call: WRITE	Prompt: !?51,E2(4)_","_$P($G(^DIC(5,+E2(5),0)),"^",2)_" "_E2(6) Condition for execution: E2(4)]"" Line Location: PRINT+3
Function Call: WRITE	Prompt: ! Line Location: INS+1
Function Call: WRITE	Prompt: ?31,"Insurance:" Condition for execution: J Line Location: INS+1
Function Call: WRITE	Prompt: ?51,$P($G(^DIC(36,$P(INS,"^",1),0)),"^",1),?87 Line Location: INS+1
Function Call: WRITE	Prompt: ?31,"Insurance:" Condition for execution: J Line Location: INS+1
Function Call: WRITE	Prompt: ?51,$P($G(^DIC(36,$P(INS,"^",1),0)),"^",1),?87 Line Location: INS+1
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+4
Function Call: READ	Prompt: " Press RETURN to continue" Timeout: DTIME Variable: T Line Location: PAUSE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	REPORT+6, REPORT+7, REPORT+8, DATA, INS+1
^DIC(36 - [#36]	INS+1
^DIC(5 - [#5]	PRINT+1, PRINT+2, PRINT+3
^DPT - [#2]	CKSPACE+11, INS+1
^TMP($J	LOOP+2, LOOP+5, LOOP+6, LOOP+7

Label References

Name	Line Occurrences
CLNTOT	LOOP+6
DIVTOT	LOOP+2
HEADER	LOOP+3, LOOP+5, CLNTOT+1, DIVTOT+1, TOTAL+1, CKSPACE+12, INS+1
ITEM	LOOP+7
LOOP	REPORT+11, REPORT+12, REPORT+13
PAUSE	REPORT+14, HEADER+3
Q	REPORT+11, REPORT+12
TOTAL	LOOP+8

Naked Globals

Name	Field # of Occurrence
^(	INS+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AGE	ITEM+1~, DATA+1, PRINT
B	REPORT+1~, REPORT+7*, REPORT+9, REPORT+10
BOT	REPORT+1~, REPORT+2*, LOOP+5, CLNTOT+1, DIVTOT+1, TOTAL+1, CKSPACE+12, INS+1
CLNC	REPORT+1~, LOOP+2, LOOP+5, LOOP+6, LOOP+7
CLNTOT	REPORT+1~, LOOP+1, LOOP+5, LOOP+6, CLNTOT+3, ITEM+1*
CNT	ITEM+1~, CKSPACE+2, CKSPACE+4, CKSPACE+6, CKSPACE+8, CKSPACE+10, CKSPACE+11*, CKSPACE+12
CRT	REPORT+1~, REPORT+2*, REPORT+4, REPORT+14, HEADER+1
CTG	REPORT+1~, REPORT+11, REPORT+12, REPORT+13*, LOOP+2, LOOP+5, LOOP+6, LOOP+7
DFN	REPORT+1~, LOOP+7*, CKSPACE+11, INS+1
DIVTOT	REPORT+1~, LOOP+1, LOOP+2, LOOP+5*, DIVTOT+3
DTIME	PAUSE+1
E	REPORT+1~, REPORT+8*, REPORT+9, REPORT+10
E1	ITEM+1~, CKSPACE+3, PRINT+2
E1(	CKSPACE+5*
E1(1	PRINT+2
E1(2	PRINT+2
E1(3	PRINT+2
E1(4	PRINT+2
E1(5	PRINT+2
E1(6	PRINT+2
E1(8	PRINT+2
E2	ITEM+1~, CKSPACE+7, PRINT+3
E2(	CKSPACE+9*
E2(1	PRINT+3
E2(2	PRINT+3
E2(3	PRINT+3
E2(4	PRINT+3
E2(5	PRINT+3
E2(6	PRINT+3
E2(8	PRINT+3
ES	ITEM+1~, DATA+2, PRINT
FIRST	REPORT+1~, REPORT+3, HEADER+1, HEADER+4, HEADER+5
HDR	REPORT+1~, REPORT+5*, REPORT+11, REPORT+12, REPORT+13
HDR1	REPORT+1~, REPORT+11, REPORT+12, REPORT+13*, HEADER+6
HDR2	REPORT+1~, REPORT+9, REPORT+10, HEADER+6
I	ITEM+1~, CKSPACE+2, CKSPACE+5, CKSPACE+6, CKSPACE+9, CKSPACE+10, INS+1~
>> IBOBEG	REPORT+7
IBODIV	REPORT+1~, LOOP+1, LOOP+2, LOOP+4, LOOP+5, LOOP+6, LOOP+7
>> IBOEND	REPORT+8
>> IBOEXP	REPORT+12
>> IBOUI	REPORT+11
>> IBOUK	REPORT+13
INS	ITEM+1~, INS+1*
IOF	REPORT+4, HEADER+4
IOSL	LOOP+5, CLNTOT+1, DIVTOT+1, TOTAL+1, TOTAL+4, CKSPACE+12, INS+1, HEADER+2
IOST	REPORT+2
J	INS+1~*
LINE	REPORT+1~, REPORT+5*, HEADER+8
MS	ITEM+1~, DATA+1, PRINT
NAME	REPORT+1~, LOOP+5, LOOP+6, LOOP+7, PRINT
NOW	REPORT+1~, REPORT+6*, HEADER+6
PAGE	REPORT+1~, LOOP+1, HEADER+6, HEADER+9
PID	ITEM+1~, DATA+1, PRINT
QUIT	REPORT+1~, REPORT+2, REPORT+11, REPORT+12, REPORT+14, LOOP+2, LOOP+3, LOOP+5, LOOP+6, LOOP+7 , LOOP+8, TOTAL+1, CKSPACE+12, INS+1, HEADER+1, PAUSE+1
SC	ITEM+1~, DATA+3, PRINT
T	PAUSE+1~*
TIME	REPORT+1~, LOOP+7*, DATA
TM	ITEM+1~, DATA*, PRINT
TOTAL	REPORT+1~, LOOP+1, LOOP+2, TOTAL+3
VA	Q!
VA("PID"	DATA+1
>> VADM(10	DATA+1
>> VADM(4	DATA+1
>> VAEL(3	DATA+3
>> VAERR	DATA+1, DATA+2, DATA+3, CKSPACE+1, CKSPACE+3, CKSPACE+7
>> VAOA(	CKSPACE+5, CKSPACE+6, CKSPACE+9, CKSPACE+10
>> VAOA("A"	CKSPACE+3, CKSPACE+7
>> VAOA(9	CKSPACE+3, CKSPACE+7
VAPA	ITEM+1~
VAPA(	CKSPACE+2
VAPA("P"	CKSPACE+1*
VAPA(1	PRINT+1
VAPA(2	PRINT+1
VAPA(3	PRINT+1
VAPA(4	PRINT+1
VAPA(5	PRINT+1
VAPA(6	PRINT+1
VAPA(8	PRINT+1
>> VAPD(7	DATA+2
>> X	REPORT+6
>> Y	REPORT+6, REPORT+7, REPORT+8, DATA, INS+1*

Customize PDF page

Package: Integrated Billing

Routine: IBOUNP3

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: