Routine: IBCONS1

Package	Total	Call Graph
Integrated Billing	4	GVAR^IBCBB END^IBCBB1 ALL^IBCNS1 (BEGIN,HDRDV)^IBCONSC
VA FileMan	2	^%DT ^DIR
Kernel	1	$$S^%ZTLOAD
Registration	1	PID^VADPT6

Package	Total	Caller Graph
Integrated Billing	4	IB BACKGRND VET DISCHS W/INS IB BACKGRND VETS INPT W/INS IB BACKGRND VETS OPT W/INS IBCONSC

Name	Comments	DBIA/ICR reference
EN	; Inpatient Discharge entry to que background once weekly
EN1	; Inpatient Admission entry to que background once weekly
EN2	; Outpatient entry to que background once weekly
QUEUE	; Set up the background job to run for the previous week ; o For All Divisions ; o For Insured veterans with unbilled episodes of care ; o With the output sorted by Terminal Digit
LOOP25	; Print all NSC w/Insurance reports.
Q
LOOP3	; Loop through billed, unbilled, or both types of episodes of care.
LOOP31	; Loop through each name or terminal digit (and associated DFN).
LOOP4	; Loop through each episode of care for a patient.
PRINT	; Print each detail line.
PRINT1	; If an episode of care has been billed, display billing information.
HEAD	; Print header; don't pause on first pass through.
INSP(DFN,IBDAT)	; -- print ins. company on report logic
INSPQ
PAUSE
PRNSUM	; print 1 line of the summary
DATE(X)	;
SUMTOT	; total cnt of visits ^ cnt unbilled ^ cnt unbilled w/RNB ^ cnt billed/not auth ^ cnt billed/auth ^ cnt of pats
PTPRNT	; print patient specific data is requested: Rate Disabilities and expanded insurance Info
DDSET(FILE,FLD,X)	; returns external value for a set
PHDL	; Print header for Excel format
XLCOLS(PLACE,INS)	; Print spacers for Excel columns

Name	Field # of Occurrence
^%DT	QUEUE+6, QUEUE+7
$$S^%ZTLOAD	HEAD+1
^DIR	PAUSE+2
GVAR^IBCBB	PRINT1+1
END^IBCBB1	PRINT1+18
ALL^IBCNS1	INSP+4, PTPRNT+16
BEGIN^IBCONSC	QUEUE+9
HDRDV^IBCONSC	LOOP25+2
PID^VADPT6	PRINT+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No matches found.",! Line Location: LOOP31+2
Function Call: WRITE	Prompt: ! Line Location: LOOP4+1
Function Call: WRITE	Prompt: ?60 Condition for execution: IBOUT="R" Line Location: PRINT+11
Function Call: WRITE	Prompt: U Condition for execution: IBOUT="E" Line Location: PRINT+11
Function Call: WRITE	Prompt: Y Line Location: PRINT+11
Function Call: WRITE	Prompt: ?82 Condition for execution: IBOUT="R" Line Location: PRINT+14
Function Call: WRITE	Prompt: U Condition for execution: IBOUT="E" Line Location: PRINT+14
Function Call: WRITE	Prompt: X Line Location: PRINT+14
Function Call: WRITE	Prompt: U Line Location: PRINT+19
Function Call: WRITE	Prompt: !?10 Condition for execution: IBOUT="R" Line Location: PRINT+21
Function Call: WRITE	Prompt: $P(X,"^") Line Location: PRINT+21
Function Call: WRITE	Prompt: " with " Line Location: PRINT+21
Function Call: WRITE	Prompt: " with " Line Location: PRINT+21
Function Call: WRITE	Prompt: U_$P(^DGCR(399,IBIFN,0),"^")_U_$P($G(^DGCR(399.3,+IBAT,0)),"^",4),"-",$S(IBCL<3:"INPT",IBCL>2:"OUTP",1:"") Line Location: PRINT1+4
Function Call: WRITE	Prompt: U_$S(IBST=1:"Entered",IBST=2:"Request MRA",IBST=3:"Authorized",IBST=4:"Prnt/Trans",IBST=7:"Cancelled",IBST=0:"Closed",1:"") Line Location: PRINT1+5
Function Call: WRITE	Prompt: U_$E(IBFDT,4,5)_"/"_$E(IBFDT,6,7)_"/"_$E(IBFDT,2,3)_U_$E(IBTDT,4,5)_"/"_$E(IBTDT,6,7)_"/"_$E(IBTDT,2,3) Line Location: PRINT1+6
Function Call: WRITE	Prompt: U_$S($P(IBND0,U,21)="S":"s",$P(IBND0,U,21)="T":"t",1:"")_U Line Location: PRINT1+7
Function Call: WRITE	Prompt: !?10,$P(^DGCR(399,IBIFN,0),"^"),?20,$P($G(^DGCR(399.3,+IBAT,0)),"^",4),"-",$S(IBCL<3:"INPT",IBCL>2:"OUTP",1:"") Line Location: PRINT1+9
Function Call: WRITE	Prompt: ?37,$S(IBST=1:"Entered",IBST=2:"Request MRA",IBST=3:"Authorized",IBST=4:"Prnt/Trans",IBST=7:"Cancelled",IBST=0:"Closed",1:"") Line Location: PRINT1+10
Function Call: WRITE	Prompt: ?50,"From: ",$E(IBFDT,4,5)_"/"_$E(IBFDT,6,7)_"/"_$E(IBFDT,2,3) Line Location: PRINT1+11
Function Call: WRITE	Prompt: ?68,"To: ",$E(IBTDT,4,5)_"/"_$E(IBTDT,6,7)_"/"_$E(IBTDT,2,3) Line Location: PRINT1+12
Function Call: WRITE	Prompt: ?88,$S($P(IBND0,U,21)="S":"s",$P(IBND0,U,21)="T":"t",1:"") Line Location: PRINT1+13
Function Call: WRITE	Prompt: ?91,"Debtor: " Line Location: PRINT1+14
Function Call: WRITE	Prompt: $P(^(0),"^") Line Location: PRINT1+15
Function Call: WRITE	Prompt: $P(^(0),"^") Line Location: PRINT1+16
Function Call: WRITE	Prompt: $P(^DPT(DFN,0),"^") Line Location: PRINT1+17
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+5
Function Call: WRITE	Prompt: IBHD,!,IBI Line Location: HEAD+11
Function Call: WRITE	Prompt: ! Condition for execution: $L(IBI)>78 Line Location: HEAD+11
Function Call: WRITE	Prompt: ?80,"Printed: ",IBDATE,?118,"Page: ",IBPAGE Line Location: HEAD+11
Function Call: WRITE	Prompt: !,?40,"Unbilled",?53,"Unbilled w/RNB",?70,"Billed/Not Auth",?88,"Billed/Auth",?103,"# Visits",?117,"# Patients",!,IBL Line Location: HEAD+12
Function Call: WRITE	Prompt: !,"PT ID PATIENT",?28,"SSN",?42,"ELIGIBILITY",?60,"DATE OF ",$S(IBINPT=2:"DISCHARGE",1:"CARE"),?82,"INSURANCE COMPANIES" Line Location: HEAD+13
Function Call: WRITE	Prompt: !,IBL Line Location: HEAD+15
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Function Call: WRITE	Prompt: $S(IBDV="TOTAL":IBDV,1:$P($G(^DG(40.8,+IBDV,0)),U,1)) Line Location: PRNSUM+4
Function Call: WRITE	Prompt: U_$P(IBSUM,U,2,5)_U_$P(IBSUM,U,1)_U_$P(IBSUM,U,6) Line Location: PRNSUM+5
Function Call: WRITE	Prompt: ?40,$P(IBSUM,U,2),?58,$P(IBSUM,U,3),?75,$P(IBSUM,U,4),?91,$P(IBSUM,U,5),?105,$P(IBSUM,U,1),?120,$P(IBSUM,U,6) Line Location: PRNSUM+6
Function Call: WRITE	Prompt: ! Line Location: PTPRNT+3
Function Call: WRITE	Prompt: !,IBPTINFO Line Location: PTPRNT+5
Function Call: WRITE	Prompt: ! Line Location: PTPRNT+8
Function Call: WRITE	Prompt: ! Line Location: PTPRNT+19
Function Call: WRITE	Prompt: !,?5,IBLN1,?33,"Group #: ",$P($G(^IBA(355.3,+IBPLAN,0)),U,4),?65,"Effective: ",$$DATE(+$P(IBY,U,8))," - ",$$DATE(+$P(IBY,U,4)),?100,"Last Ver: ",$$DATE($P(IBY1,U,3)) Line Location: PTPRNT+24
Function Call: WRITE	Prompt: U_IBLN1_U_$P(IBY,U,3)_U_$$DATE(+$P(IBY,U,8))_U_$$DATE(+$P(IBY,U,4))_U_$$DATE($P(IBY1,U,3)) Line Location: PTPRNT+26
Function Call: WRITE	Prompt: !,?5,IBLN1,?33,"Group #: ",$P(IBY,U,3) Line Location: PTPRNT+27
Function Call: WRITE	Prompt: !,?33,"Effective: ",$$DATE(+$P(IBY,U,8))," - ",$$DATE(+$P(IBY,U,4)),?68,"Last Ver: ",$$DATE($P(IBY1,U,3)) Line Location: PTPRNT+28
Function Call: WRITE	Prompt: ! Line Location: PTPRNT+30
Function Call: WRITE	Prompt: U_$P(IBY1,U,8) Line Location: PTPRNT+31
Function Call: WRITE	Prompt: !,?5,IBLN1,?33,IBLN2,?51,$P(IBY1,U,8) Line Location: PTPRNT+32
Function Call: WRITE	Prompt: U Line Location: PTPRNT+34
Function Call: WRITE	Prompt: ! Line Location: PTPRNT+35
Function Call: WRITE	Prompt: U_IBY3 Line Location: PTPRNT+37
Function Call: WRITE	Prompt: !,?5,IBLN1,?33,IBLN2,?51,IBY3 Line Location: PTPRNT+38
Function Call: WRITE	Prompt: "^^" Line Location: PTPRNT+40
Function Call: WRITE	Prompt: ! Line Location: PTPRNT+41
Function Call: WRITE	Prompt: ! Line Location: PTPRNT+45
Function Call: WRITE	Prompt: U_IBLN3_U_$G(^IBA(355.32,IBCVG,2,IBJ,0)) Line Location: PTPRNT+46
Function Call: WRITE	Prompt: !,?5,IBLN1,?33,IBLN2,?51,IBLN3,?104,$G(^IBA(355.32,IBCVG,2,IBJ,0)) Line Location: PTPRNT+47
Function Call: WRITE	Prompt: !,?5,IBLN1,?33,IBLN2,?51,IBLN3 Line Location: PTPRNT+48
Function Call: WRITE	Prompt: U_IBLN3_U Line Location: PTPRNT+49
Function Call: WRITE	Prompt: U Line Location: PTPRNT+51
Function Call: WRITE	Prompt: ! Line Location: PTPRNT+52
Function Call: WRITE	Prompt: U_$P($G(^IBE(355.6,+IBRIDE,0)),U,1) Line Location: PTPRNT+53
Function Call: WRITE	Prompt: !,?5,IBLN1,?33,IBLN2,?51,$P($G(^IBE(355.6,+IBRIDE,0)),U,1) Line Location: PTPRNT+54
Function Call: WRITE	Prompt: ! Line Location: PTPRNT+56
Function Call: WRITE	Prompt: "DIV^PT ID^PATIENT^SSN^ELIGIBILITY" Line Location: PHDL+1
Function Call: WRITE	Prompt: "^Rated Disabilities" Line Location: PHDL+2
Function Call: WRITE	Prompt: "^Insurance^Group #^Effective Begin Date^Effective End Date^Last Ver" Line Location: PHDL+3
Function Call: WRITE	Prompt: "^Policy Comment" Line Location: PHDL+4
Function Call: WRITE	Prompt: "^Group Comments" Line Location: PHDL+5
Function Call: WRITE	Prompt: "^Coverage Limits^Limitation Comments^Riders" Line Location: PHDL+6
Function Call: WRITE	Prompt: "^DATE OF "_$S(IBINPT=2:"DISCHARGE",1:"CARE")_"^INSURANCE COMPANIES" Line Location: PHDL+8
Function Call: WRITE	Prompt: "^NOT BILLABLE" Line Location: PHDL+9
Function Call: WRITE	Prompt: "^Encounter Add/Edits" Line Location: PHDL+10
Function Call: WRITE	Prompt: "^BILL NUMBER^LOCATION OF CARE^STATUS^From^To^Current Bill Payer Sequence^Debtor" Line Location: PHDL+12
Function Call: WRITE	Prompt: "^DIV TOTALS^Unbilled^Unbilled w/RNB^Billed/Not Auth^Billed/Auth^# Visits^# Patients" Line Location: PHDL+13
Function Call: WRITE	Prompt: !,IBPTINFO Line Location: XLCOLS+1
Function Call: WRITE	Prompt: U Line Location: XLCOLS+2
Function Call: WRITE	Prompt: U_INS_"^^^^" Line Location: XLCOLS+3
Function Call: WRITE	Prompt: U Line Location: XLCOLS+4
Function Call: WRITE	Prompt: U Line Location: XLCOLS+5
Function Call: WRITE	Prompt: "^^" Line Location: XLCOLS+6
Function Call: WRITE	Prompt: U Line Location: XLCOLS+7
Function Call: WRITE	Prompt: "^^" Line Location: XLCOLS+10
Function Call: WRITE	Prompt: U Line Location: XLCOLS+11
Function Call: WRITE	Prompt: U Line Location: XLCOLS+12
Function Call: WRITE	Prompt: "^^^^^^^^" Line Location: XLCOLS+13
Routine Call	DIR Line Location: PAUSE+2

Name	Line Occurrences (* Changed, ! Killed)
^DD(	DDSET+1
^DD("DD"	PRINT+11
^DG(40.8 - [#40.8]	PRINT+7, HEAD+8, PRNSUM+4
^DGCR(399 - [#399]	PRINT1+4, PRINT1+9
^DGCR(399.3 - [#399.3]	PRINT1+4, PRINT1+9
^DIC(31 - [#31]	PTPRNT+9
^DIC(36 - [#36]	PRINT1+15, INSP+8, PTPRNT+21
^DIC(4 - [#4]	PRINT1+16
^DIC(8 - [#8]	PRINT+7, PRINT+10
^DPT - [#2]	PRINT+7, PRINT+10, PRINT1+17, PTPRNT+3, PTPRNT+7, PTPRNT+8, PTPRNT+9
^IBA(355.3 - [#355.3]	PTPRNT+35, PTPRNT+36
^IBA(355.32 - [#355.32]	PTPRNT+41, PTPRNT+42, PTPRNT+45, PTPRNT+46, PTPRNT+47
^IBA(355.7 - [#355.7]	PTPRNT+52
^IBE(355.31 - [#355.31]	PTPRNT+43
^IBE(355.6 - [#355.6]	PTPRNT+53, PTPRNT+54
^TMP($J	QUEUE+5!, LOOP25+4, LOOP25+7, Q+1!, LOOP31+1, LOOP31+4, LOOP4+1, PRINT+1, PRINT+2, PRINT+3 , PRINT+4, PRINT+17, PRINT+20, PRINT+22, PRNSUM+1, SUMTOT+2, SUMTOT+3, SUMTOT+9, SUMTOT+10, SUMTOT+11* , SUMTOT+12*

Name	Line Occurrences
$$DATE	PTPRNT+26, PTPRNT+28, PTPRNT+44
$$DDSET	PTPRNT+44
$$INSP	PRINT+14
HEAD	LOOP25+6, LOOP3+1, LOOP3+2, LOOP4+1, PTPRNT+3, PTPRNT+8, PTPRNT+19, PTPRNT+30, PTPRNT+35, PTPRNT+41 , PTPRNT+45, PTPRNT+52
INSPQ	INSP+3
LOOP3	LOOP25+4
LOOP31	LOOP3+1, LOOP3+2
LOOP4	LOOP31+4
PAUSE	LOOP25+8, HEAD+2
PHDL	LOOP25+3
PRINT	LOOP4+1
PRINT1	PRINT+22
PRNSUM	LOOP25+7
PTPRNT	PRINT+9
Q	LOOP25+6
QUEUE	EN+1, EN1+1
SUMTOT	PRINT+6
XLCOLS	PRINT1+3, PRNSUM+3, PTPRNT+18, PTPRNT+37, PTPRNT+46, PTPRNT+49, PTPRNT+53

Name	Field # of Occurrence
^(0	PRINT1+15, PRINT1+16
^(2	PRINT+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	Q!
%DT	QUEUE+6, QUEUE+7!, Q!
B	Q!
DFN	Q!, LOOP31+4*, LOOP4+1, PRINT+1, PRINT+2, PRINT+3, PRINT+4, PRINT+7, PRINT+10, PRINT+14 , PRINT+17, PRINT+20, PRINT+22, PRINT1+17, INSP~, INSP+3, INSP+4, SUMTOT+2, SUMTOT+9, SUMTOT+10 , SUMTOT+11, SUMTOT+12, PTPRNT+3, PTPRNT+7, PTPRNT+8, PTPRNT+9, PTPRNT+16, PTPRNT+52
DIR	PAUSE+2!
DIR(0	PAUSE+2*
DIRUT	PAUSE+2!
DTOUT	PAUSE+2!
DUOUT	PAUSE+2!
FILE	DDSET~, DDSET+1
FLD	DDSET~, DDSET+1
I	Q!, LOOP4+1*
IBAPPT	Q+1!
>> IBAT	PRINT1+4, PRINT1+9
IBBEG	QUEUE+7*, Q+1!, PTPRNT+16
IBBEG1	Q!
IBBILL	Q!, LOOP3+1, LOOP3+2, LOOP31+1, LOOP31+4, LOOP4+1, PRINT+1, PRINT+2, PRINT+3, PRINT+4 , PRINT+17, PRINT+20, PRINT+22, HEAD+7, SUMTOT+2
IBBILLED	SUMTOT+1~, SUMTOT+2*, SUMTOT+5, SUMTOT+6, SUMTOT+7, SUMTOT+8
>> IBCL	PRINT1+4, PRINT1+9
IBCNT	Q!, INSP+1~, INSP+2, INSP+5, INSP+6, INSP+7
IBCOMFL	PTPRNT+2~, PTPRNT+45, PTPRNT+46, PTPRNT+49
IBCR1	PTPRNT+2~, PTPRNT+40, PTPRNT+41, PTPRNT+46, PTPRNT+49, PTPRNT+51, PTPRNT+52, PTPRNT+53*
IBCVG	PTPRNT+2~, PTPRNT+41*, PTPRNT+42, PTPRNT+45, PTPRNT+46, PTPRNT+47
IBD	PTPRNT+2~, PTPRNT+10*, PTPRNT+11
IBDAT	Q+1!, LOOP4+1*, PRINT+1, PRINT+2, PRINT+3, PRINT+4, PRINT+11, PRINT+14, PRINT+17, PRINT+20 , PRINT+22, INSP~, INSP+3, INSP+4, SUMTOT+2
IBDATE	Q!, HEAD+11
IBDC	Q+1!, PRINT+21*
IBDD	INSP+1~, INSP+4*
IBDD(	INSP+5, INSP+8
IBDD(0	INSP+10
IBDDINS	INSP+1~, INSP+2, INSP+7, INSP+8, INSP+9, INSP+10*, INSPQ
IBDFN	Q+1!
IBDT	Q!
>> IBDV	LOOP25+4, LOOP25+7, LOOP31+1, LOOP31+4, LOOP4+1, PRINT+1, PRINT+2, PRINT+3, PRINT+4, PRINT+7 , PRINT+17, PRINT+20, PRINT+22, HEAD+8, PRNSUM+1, PRNSUM+4, SUMTOT+2, SUMTOT+3, SUMTOT+9, SUMTOT+11
IBEND	QUEUE+6*, Q+1!, PTPRNT+16
>> IBFDT	PRINT1+6, PRINT1+11
>> IBFL	LOOP25+2, HEAD+2
IBFLAG	Q!, Q+1!, LOOP3+1!, LOOP3+2!, LOOP31+2, PRINT+6*
>> IBFORMFD	HEAD+5, HEAD+6*
IBGC1	PTPRNT+2~, PTPRNT+34, PTPRNT+35, PTPRNT+37
IBHD	Q!, HEAD+11
IBHDRDV	LOOP25+2*, Q!, HEAD+9
IBI	Q!, HEAD+2~, HEAD+7, HEAD+8, HEAD+9, HEAD+10, HEAD+11, PTPRNT+2~, PTPRNT+8, PTPRNT+9 , PTPRNT+19, PTPRNT+20, PTPRNT+52
IBIFN	Q!, PRINT+22*, PRINT1+4, PRINT1+9
IBINPT	EN+1, EN1+1, EN2+1*, Q+1!, PRINT+19, HEAD+13, PHDL+8, PHDL+10, XLCOLS+12
IBJ	PTPRNT+2~, PTPRNT+35, PTPRNT+36, PTPRNT+45, PTPRNT+46, PTPRNT+47
IBL	Q!, HEAD+12, HEAD+15
IBLN1	PTPRNT+2~, PTPRNT+3, PTPRNT+7, PTPRNT+11, PTPRNT+15, PTPRNT+21, PTPRNT+26, PTPRNT+27, PTPRNT+28, PTPRNT+32 , PTPRNT+37, PTPRNT+38, PTPRNT+46, PTPRNT+47, PTPRNT+48, PTPRNT+49, PTPRNT+53, PTPRNT+54
IBLN2	PTPRNT+2~, PTPRNT+6, PTPRNT+7, PTPRNT+11, PTPRNT+30, PTPRNT+32, PTPRNT+34, PTPRNT+38, PTPRNT+40, PTPRNT+47* , PTPRNT+48, PTPRNT+51, PTPRNT+54*
IBLN3	PTPRNT+2~, PTPRNT+43, PTPRNT+44, PTPRNT+46, PTPRNT+47, PTPRNT+48, PTPRNT+49
IBNAME	Q+1!, LOOP3+1, LOOP3+2, LOOP31+1*, LOOP31+2, LOOP31+3, LOOP31+4, LOOP4+1, PRINT+1, PRINT+2 , PRINT+3, PRINT+4, PRINT+17, PRINT+20, PRINT+22, SUMTOT+2
>> IBND0	PRINT1+7, PRINT1+13
>> IBNDM	PRINT1+16
>> IBNDMP	PRINT1+15
IBNEWPT	Q+1!, LOOP31+4, PRINT+9
IBOUT	LOOP25+1*, LOOP25+2, LOOP25+3, LOOP25+6, Q+1!, LOOP3+1, LOOP3+2, LOOP4+1, PRINT+7, PRINT+9 , PRINT+10, PRINT+11, PRINT+14, PRINT+17, PRINT+19, PRINT+21, PRINT1+2, PRINT1+8, PRNSUM+2, PRNSUM+3 , PRNSUM+5, PTPRNT+3, PTPRNT+5, PTPRNT+7, PTPRNT+8, PTPRNT+11, PTPRNT+13, PTPRNT+15, PTPRNT+18, PTPRNT+19 , PTPRNT+21, PTPRNT+26, PTPRNT+30, PTPRNT+31, PTPRNT+34, PTPRNT+35, PTPRNT+37, PTPRNT+40, PTPRNT+41, PTPRNT+43 , PTPRNT+45, PTPRNT+46, PTPRNT+48, PTPRNT+49, PTPRNT+51, PTPRNT+52, PTPRNT+53, PTPRNT+56
IBPAGE	LOOP25+6, Q!, LOOP3+1, LOOP3+2, HEAD+3, HEAD+5, HEAD+11
IBPLAN	PTPRNT+2~, PTPRNT+21*, PTPRNT+35, PTPRNT+36, PTPRNT+41
>> IBPRTICR	PTPRNT+13, PTPRNT+40, PTPRNT+51, PHDL+6, XLCOLS+6, XLCOLS+7
>> IBPRTIEX	PTPRNT+13, PTPRNT+25, PHDL+3, XLCOLS+3
>> IBPRTIGC	PTPRNT+13, PTPRNT+34, PHDL+5, XLCOLS+5
>> IBPRTIPC	PTPRNT+13, PTPRNT+30, PHDL+4, XLCOLS+4
>> IBPRTRDS	PTPRNT+5, PTPRNT+6, PHDL+2, XLCOLS+2
IBPTINFO	LOOP25+2, Q+1!, PRINT+7, PTPRNT+5, PTPRNT+7, PTPRNT+11, XLCOLS+1
>> IBQUIT	LOOP25+2, LOOP25+4, LOOP25+6, LOOP3+1, LOOP3+2, LOOP31+1, LOOP31+4, LOOP4+1, HEAD+1, HEAD+2 , PAUSE+2*, PTPRNT+3, PTPRNT+6, PTPRNT+8, PTPRNT+19, PTPRNT+30, PTPRNT+35, PTPRNT+41, PTPRNT+45, PTPRNT+52
IBRIDE	PTPRNT+2~, PTPRNT+52*, PTPRNT+53, PTPRNT+54
IBRMARK	SUMTOT+1~, SUMTOT+2*, SUMTOT+5, SUMTOT+6
>> IBSELBIL	LOOP3+2, PRINT+4
>> IBSELBNA	LOOP3+2, PRINT+3
>> IBSELCDV	LOOP25+2, HEAD+8, HEAD+9
>> IBSELRNB	QUEUE+8*, PRINT+1, PRINT+2, HEAD+14, PHDL+9, XLCOLS+11
>> IBSELTRM	QUEUE+8*
>> IBSELUBL	QUEUE+8*, LOOP3+1
>> IBST	PRINT1+5, PRINT1+10
>> IBSUB	EN+1, EN1+1, EN2+1*
IBSUM	LOOP25+2, LOOP25+6, Q!, HEAD+10, HEAD+12, PRNSUM+1~, PRNSUM+5, PRNSUM+6, SUMTOT+1~, SUMTOT+3 , SUMTOT+4, SUMTOT+5, SUMTOT+6, SUMTOT+7, SUMTOT+8, SUMTOT+9, SUMTOT+11
>> IBTDT	PRINT1+6, PRINT1+12
IBTOT	SUMTOT+1~, SUMTOT+3, SUMTOT+4, SUMTOT+5, SUMTOT+6, SUMTOT+7, SUMTOT+8, SUMTOT+10*, SUMTOT+12
>> IBWHO	PRINT1+15, PRINT1+16, PRINT1+17
IBX	PTPRNT+2~, PTPRNT+6!, PTPRNT+9*, PTPRNT+10
IBX(	PTPRNT+19, PTPRNT+20
IBX(0	PTPRNT+18
IBY	PTPRNT+2~, PTPRNT+6!, PTPRNT+9, PTPRNT+10, PTPRNT+20, PTPRNT+21, PTPRNT+26, PTPRNT+27, PTPRNT+28
IBY1	PTPRNT+2~, PTPRNT+20*, PTPRNT+26, PTPRNT+28, PTPRNT+31, PTPRNT+32
IBY3	PTPRNT+2~, PTPRNT+36, PTPRNT+37, PTPRNT+38, PTPRNT+42, PTPRNT+43, PTPRNT+44
INS	XLCOLS~, XLCOLS+3
IO	QUEUE+9
IOF	HEAD+5
IOSL	LOOP4+1, PAUSE+1, PTPRNT+3, PTPRNT+8, PTPRNT+19, PTPRNT+30, PTPRNT+35, PTPRNT+41, PTPRNT+45, PTPRNT+52
IOST	HEAD+5, PAUSE
J	Q!, PAUSE+1*
K	Q!, PRINT+22*, PRINT1+3
L	Q!
M	Q!
PLACE	XLCOLS~, XLCOLS+1, XLCOLS+2, XLCOLS+4, XLCOLS+5, XLCOLS+6, XLCOLS+8, XLCOLS+12
POP	Q+1!
T	DDSET+1~*
U	LOOP25+1, PRINT+7, PRINT+11, PRINT+14, PRINT+17, PRINT+19, PRINT1+4, PRINT1+5, PRINT1+6, PRINT1+7 , PRINT1+13, PRNSUM+4, PRNSUM+5, PRNSUM+6, SUMTOT+4, SUMTOT+5, SUMTOT+6, SUMTOT+7, SUMTOT+8, SUMTOT+9 , SUMTOT+10, PTPRNT+3, PTPRNT+10, PTPRNT+11, PTPRNT+21, PTPRNT+26, PTPRNT+27, PTPRNT+28, PTPRNT+31, PTPRNT+32 , PTPRNT+34, PTPRNT+37, PTPRNT+43, PTPRNT+44, PTPRNT+46, PTPRNT+49, PTPRNT+51, PTPRNT+53, PTPRNT+54, XLCOLS+2 , XLCOLS+3, XLCOLS+4, XLCOLS+5, XLCOLS+7, XLCOLS+11, XLCOLS+12
VA	PRINT+10!
VA("BID"	PRINT+7, PRINT+10
VA("PID"	PRINT+7, PRINT+10
VAERR	PRINT+10!
>> VAUTD	QUEUE+8*
X	QUEUE+6, QUEUE+7, Q!, PRINT+14, PRINT+20, PRINT+21, PRINT+22, INSP+1~, INSP+5, INSP+8 , DATE~, DATE+1, DDSET~, DDSET+1
X1	Q!
X2	Q!
Y	QUEUE+6, QUEUE+7, Q!, PRINT+11, DATE+1~, DATE+2, DDSET+1~*
Z	DDSET+1~*, DDSET+2
>> ZTQUEUED	HEAD+1
>> ZTSTOP	HEAD+1*

Customize PDF page

Package: Integrated Billing

Routine: IBCONS1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: