Routine: IBCEPTC

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT $$UP^XLFSTR $$PROD^XUPROD
Integrated Billing	2	(LIST,LOC)^IBCEPTC0 RESUB^IBCEPTC3
VA FileMan	2	MIX^DIC1 ^DIR

Package	Total	Caller Graph
Integrated Billing	2	IBCE PREV TRANSMITTED CLAIMS IBCEPTC3

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Main entrypoint ; IBDT1,IBDT2 = last transmit date range to use ; IBSORT = primary sort criteria to use B=BATCH #,I=INS CO NAME ; IBFORM = form type to limit selection to U=UB-04,C=CMS-1500,J=J430D, OR A=ALL ; IBCRIT = the additional sort criteria needed ; IBPTCCAN = whether or not to include cancelled claims ; IBRCBFPC = whether or not to include force print @ clearinghouse ; ^TMP("IB_PREV_CLAIM_INS",$J) = 1 for specific ins co/null for all ; ^($J,1,ien)="" for ien of each ins co selected ; ^($J,2,payer ID,ien)="" if selected ; IBREP = format output should be put in R=report,S=Listman
Q1	;
Q1A
Q2	;; JWS;IB2.0592 US1108 - Dental EDI 837D / form J430D
Q3	;WCJ;IB665;start;allow times
Q3ED	; go to date
Q4	; Additional selection criteria
Q41	; Ask user if they want to include cancelled claims
Q42	; Include claims that are forced to print at clearinghouse?
Q5
Q6
Q7	; Select device
ENQ
DEVSEL(IBACT)	;
DEVSELQ
SELDSP(IBHOW)	; Display list of selected claims/batches ; IBHOW = "C" for claims "B" for batches
SCRN(Y)	; JWS;IB2.0641; added SCRN label to screen $$PROD^XUPROD(1) to allow more claim selections in non-prod environments

External References

Name	Field # of Occurrence
^%ZIS	DEVSEL+3
HOME^%ZIS	DEVSEL+11
^%ZTLOAD	DEVSEL+11
MIX^DIC1	Q1A+26
^DIR	EN+22, Q1+7, Q1+24, Q1A+3, Q1A+11, Q2+4, Q3+8, Q3ED+11, Q4+14, Q41+2 , Q42+2, Q5+4, Q6+3, DEVSEL+6, SELDSP+10
LIST^IBCEPTC0	Q6+10, Q7+5
LOC^IBCEPTC0	Q6+8, Q7+6
RESUB^IBCEPTC3	Q1+36
$$FMADD^XLFDT	Q3ED+1
$$FMTE^XLFDT	Q3ED+8, Q3ED+10
$$UP^XLFSTR	Q1A+32
$$PROD^XUPROD	SCRN+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"* Please Note *" Line Location: EN+16
Function Call: WRITE	Prompt: ?20,"2 '^' are needed to abort this option (^^)" Line Location: EN+17
Function Call: WRITE	Prompt: !?20,"1 '^' brings you back to the previous prompt (^)" Line Location: EN+18
Function Call: WRITE	Prompt: ! Line Location: EN+19
Function Call: WRITE	Prompt: ! Line Location: Q1+1
Function Call: WRITE	Prompt: !,"Previously printed claims to a payer that does not accept EDI are omitted." Line Location: Q1+10
Function Call: WRITE	Prompt: !!,"PAYER SELECTION:" Line Location: Q1A+3
Function Call: WRITE	Prompt: ! Line Location: Q1A+10
Function Call: WRITE	Prompt: ! Line Location: Q1A+15
Function Call: WRITE	Prompt: ! Line Location: Q1A+29
Function Call: WRITE	Prompt: *7,!!?3,"No payers have been selected. Please try again." Line Location: Q1A+41
Function Call: WRITE	Prompt: !!,"BILL FORM TYPE SELECTION:" Line Location: Q2+4
Function Call: WRITE	Prompt: !!,$S(IBLOC:"FIRST PRINT",1:"LAST BATCH TRANSMIT")_" DATE RANGE SELECTION:" Line Location: Q3+8
Function Call: WRITE	Prompt: !!,"'Go to Date' must be after 'Start with Date'",! Line Location: Q3ED+14
Function Call: WRITE	Prompt: ! Line Location: Q4+14
Function Call: WRITE	Prompt: ! Line Location: Q41+2
Function Call: WRITE	Prompt: ! Line Location: Q42+2
Function Call: WRITE	Prompt: ! Line Location: Q5+4
Function Call: WRITE	Prompt: ! Line Location: Q6+3
Function Call: WRITE	Prompt: !!,"You will need a 132 column printer for this report!" Line Location: DEVSEL+2
Function Call: WRITE	Prompt: ! Line Location: DEVSEL+6
Function Call: WRITE	Prompt: ! Line Location: DEVSEL+7
Function Call: WRITE	Prompt: !!,$S(IBHOW="C":"Claims",1:"Batches")," Already Selected:" Line Location: SELDSP+5
Function Call: WRITE	Prompt: !,?3,$P($G(^DGCR(399,Z,0)),U) Line Location: SELDSP+7
Function Call: WRITE	Prompt: !,?3,$P($G(^IBA(364.1,Z,0)),U)," ",$P(^(0),U,3)," Claims" Line Location: SELDSP+8
Function Call: WRITE	Prompt: ! Line Location: SELDSP+10
Function Call: WRITE	Prompt: ! Line Location: SELDSP+11
Routine Call	%ZIS Line Location: DEVSEL+3
Routine Call	%ZIS Line Location: DEVSEL+11
Routine Call	DIR Line Location: EN+22 Q1+7 Q1+24 Q1A+3 Q1A+11 Q2+4 Q3+8 Q3ED+11 Q4+14 Q41+2 Q42+2 Q5+4 Q6+3 DEVSEL+6 SELDSP+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	SELDSP+7
^DIC(36 - [#36]	Q1A+32
^IBA(364 - [#364]	Q1+34, SCRN+1, SCRN+2
^IBA(364.1 - [#364.1]	SELDSP+8
^TMP("IB_PREV_CLAIM_INS"	Q1A!, Q1A+7, Q1A+17, Q1A+23, Q1A+30, Q1A+34, Q1A+35*, Q1A+40, ENQ!
^TMP("IB_PREV_CLAIM_SELECT"	Q1+32, Q1+34, Q1+35, ENQ!
^TMP($J	Q1+14!, Q1+27*, Q1+30, Q1+32, Q1+33, SELDSP+3, SELDSP+6, SELDSP+10

Label References

Name	Line Occurrences
DEVSEL	Q7+1
DEVSELQ	DEVSEL+3, DEVSEL+4, DEVSEL+8
ENQ	EN+23, Q1+8, Q1+29, Q1+37, Q1A+4, Q1A+12, Q1A+38, Q2+5, Q3+9, Q3ED+12 , Q4+15, Q41+3, Q42+3, Q5+5, Q6+4, Q6+8, Q6+10, Q7+2
Q1	Q1+30, Q1A+5
Q1A	Q1+11, Q1A+13, Q1A+40, Q2+6
Q2	Q1A+7, Q3+10
Q3	Q3ED+13, Q4+16
Q3ED	Q3ED+14
Q4	Q41+4
Q41	Q42+4
Q42	Q5+6
Q5	Q6+5
Q6	Q41+7

Naked Globals

Name	Field # of Occurrence
^(	SELDSP+6
^(0	Q1+34*, SELDSP+8, SCRN+1, SCRN+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	EN+13~, DEVSEL+3*
CT	SELDSP+2~, SELDSP+4, SELDSP+9, SELDSP+10
D	Q1A+26~*!
DIC	EN+12~, Q1A+22*, Q1A+26!
DIC("A"	Q1A+22, Q1A+23
DIC("W"	Q1A+24*
DIC(0	Q1A+22*
DIR	EN+12~, EN+22!, Q1+7!, Q1+24!, Q1A+3!, Q1A+11!, Q2+4!, Q3+8!, Q3ED+11!, Q4+14! , Q41+2!, Q42+2!, Q5+4!, Q6+3!, DEVSEL+1~, DEVSEL+6!, SELDSP+2~, SELDSP+10!
DIR("?"	Q1+22, Q3+4, Q3+5, Q3+6, Q3+7, Q3ED+4, Q3ED+5, Q3ED+6, Q3ED+7, Q4+13
DIR("A"	EN+21, Q1+5, Q1+19, Q1+20, Q1+21, Q1A+2, Q1A+11, Q2+3, Q3+3, Q3ED+10 , Q4+5, Q4+8, Q4+9, Q4+11, Q41+1, Q42+1, Q5+3, Q6+1, DEVSEL+5, SELDSP+10
DIR("B"	EN+21, Q1+5, Q1A+2, Q1A+11, Q2+2, Q3ED+8, Q41+1, Q42+1, Q5+2, Q6+2 , DEVSEL+5*
DIR("L"	Q5, Q5+1
DIR("S"	Q1+19, Q1+20, Q1+21*
DIR(0	EN+21, Q1+5, Q1+19, Q1+20, Q1+21, Q1+23, Q1A+1, Q1A+11, Q2+2, Q3+2 , Q3ED+9, Q4+3, Q4+4, Q41+1, Q42+1, Q5+2, Q6, DEVSEL+5, SELDSP+10*
DIROUT	EN+14~, Q1A+12
DIRUT	EN+14~, Q1A+13, Q41+4, Q42+4
DT	Q3ED+3
DTOUT	EN+13~, EN+14~, EN+23, Q1+8, Q1A+5, Q2+6, Q3+10, Q3ED+13, Q4+16, Q5+6 , Q6+5, SELDSP+10
DUOUT	EN+13~, EN+14~, EN+23, Q1+8, Q1A+5, Q2+6, Q3+10, Q3ED+13, Q4+16, Q5+6 , Q6+5, SELDSP+10
EDI	EN+14~, Q1A+32*, Q1A+33
IBACT	EN+12~, Q7+1, Q7+2, DEVSEL~, DEVSEL+3, DEVSEL+4, DEVSEL+8, DEVSEL+12*
IBCRIT	EN+12~, Q4+17*
IBCT	EN+12~, Q1+13, Q1+19, Q1+20, Q1+21, Q1+23, Q1+27, Q1+33, Q1+34, Q1+35
IBDT1	EN+12~, Q3+11*, Q3ED+1, Q3ED+9, Q3ED+10, Q3ED+14
IBDT2	EN+12~, Q3ED+1, Q3ED+2, Q3ED+3, Q3ED+8, Q3ED+9, Q3ED+10, Q3ED+16
>> IBDTSAME	Q3+1*
IBFORM	EN+13~, Q2+7*
IBHOW	EN+12~, Q1+9*, Q1+11, Q1+14, Q1+19, Q1+20, Q1+21, Q1+26, Q1+27, Q1+30 , Q1+32, Q1+33, SELDSP~, SELDSP+3, SELDSP+5, SELDSP+6, SELDSP+7, SELDSP+10
IBLOC	EN+12~, EN+25*, Q1+10, Q1+19, Q1+20, Q1+26, Q3+3, Q3+5, Q3+8, Q3ED+5 , Q3ED+10, Q4+4, Q4+7, Q4+11, Q41+7, Q6+8, Q6+10, Q7+5, Q7+6
IBOK	EN+13~, DEVSEL+4, DEVSEL+7
IBPAYER	EN+14~, Q1A+14*, Q1A+31
IBPTCCAN	EN+14~, Q41+5*
IBQUIT	EN+13~, Q1+13, Q1+15, Q1+25, Q1+29, Q1+30, Q1A+18, Q1A+19, Q1A+27, Q1A+28* , Q1A+38
IBRCBFPC	EN+14~, Q41+7, Q42+5
IBREP	EN+12~, Q6+6*, Q6+8, Q6+10
IBSORT	EN+13~, Q41+7, Q5+7
IBY	EN+13~, Q1+26*, Q1+27
INST	EN+14~, Q1A+33*, Q1A+35
IO	Q7+3
IO("Q"	DEVSEL+8, DEVSEL+9!
IOM	DEVSEL+4, DEVSEL+5
POP	EN+14~, DEVSEL+1~, DEVSEL+3
PROF	EN+14~, Q1A+33*, Q1A+34
QUIT	SELDSP+2~, SELDSP+4, SELDSP+6, SELDSP+10
U	Q1+23, Q1A+33, SELDSP+7, SELDSP+8, SCRN+2
X	EN+12~, Q1+25, Q1A+4, Q1A+27, Q2+5, Q3+9, Q3ED+12, Q4+15, Q41+3, Q42+3 , Q5+5, Q6+4, DEVSEL+1~
Y	EN+12~, EN+25, Q1+9, Q1+25, Q1+26*, Q1+27, Q1A+7, Q1A+14, Q1A+28, Q1A+30 , Q1A+32, Q1A+34, Q1A+35, Q2+7, Q3+11, Q3ED+14, Q3ED+16, Q4+17, Q41+5, Q42+5 , Q5+7, Q6+6, DEVSEL+1~, DEVSEL+7, SCRN~, SCRN+1, SCRN+2
Y(0	Q1+26
Z	EN+12~, Q1+31, Q1+32, Q1+33, Q1+34, SELDSP+2~, SELDSP+6, SELDSP+7, SELDSP+8, SELDSP+10
Z0	EN+12~, Q1+34, SELDSP+6
Z1	EN+12~, Q1+34*
ZTDESC	EN+13~, DEVSEL+10*
ZTRTN	EN+13~, DEVSEL+1~, DEVSEL+10*
ZTSAVE	EN+13~, DEVSEL+1~
ZTSAVE("IB*"	DEVSEL+10*
ZTSAVE("IBCRIT("	DEVSEL+10*
ZTSAVE("^TMP(""IB_PREV_CLAIM_INS"",$J)"	DEVSEL+10*
ZTSAVE("^TMP(""IB_PREV_CLAIM_INS"",$J,"	DEVSEL+10*
ZTSK	DEVSEL+11!

Customize PDF page

Package: Integrated Billing

Routine: IBCEPTC

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: