Routine: IBCB

Name	Line Occurrences
Function Call: READ	Prompt: "Enter BILL NUMBER or PATIENT NAME: " Formatting: !! Timeout: DTIME Variable: IBX Line Location: EN+6
Function Call: WRITE	Prompt: !?17,"* ELIGIBILITY NOT VERIFIED *" Line Location: HINQ+0
Function Call: WRITE	Prompt: ! Line Location: HINQ1+0
Function Call: WRITE	Prompt: ! Line Location: HINQ1+1
Function Call: WRITE	Prompt: !!?4,"YES - To establish a new billing record in the billing file.",!?4,"NO - To discontinue this process immediately." Line Location: ASK+2
Function Call: WRITE	Prompt: !,"No ",$S($D(^DGCR(399,"C",DFN)):"UNCANCELLED ",1:""),"billing records on file for this patient." Line Location: DATE+1
Function Call: WRITE	Prompt: Y,?25,$P(^DGCR(399,+$P(IBDATA,"^",2),0),"^",1),?34,$P(IBDATA,"^",3),?49,$P(IBDATA,"^",4),?71,$P(IBDATA,"^",5) Line Location: WRLINE+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: WDATE+0
Function Call: WRITE	Prompt: !! Line Location: WDATE+0
Function Call: WRITE	Prompt: "PRESS <RETURN> TO CONTINUE, OR",! Condition for execution: K<CT Line Location: WDATE+0
Function Call: WRITE	Prompt: "CHOOSE 1",$S(CT=1:"",1:"-"_K),": " Line Location: WDATE+0
Function Call: WRITE	Prompt: "CHOOSE 1",$S(CT=1:"",1:"-"_K),": " Line Location: WDATE+0
Function Call: WRITE	Prompt: !!,"NOT A VALID CHOICE!!",*7 Line Location: WDATE+1
Function Call: WRITE	Prompt: !,"No further processing of this record permitted at this time.",!,"Record locked by another user. Try again later." Line Location: ST+0
Routine Call	%ZIS Line Location: EN+1
Routine Call	DIC Line Location: EN+8 EN+12

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^DGCR(399 - [#399]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	HINQ1
^DD("DD"	WRLINE
^DD(399	SET2+1
^DGCR(399 - [#399]	EN+8, DATE, DATE+1, WRLINE, DATE1, SET, SET2, ST
^DGCR(399.3 - [#399.3]	SET2+1
^DISV(	ST+1*
^DPT - [#2]	HINQ, ASK+1
^IBE(350.9 - [#350.9]	HINQ1, SET2+2
^IBE(353 - [#353]	SET2+2
^UTILITY($J	EN+6!, DATE+1, DATE+2, CT, CT+1, CT+2!, WRLINE, DATE1, WDATE+1, WDATE+2 , SET2+1, SET2+2*, ST1!

Label References

Name	Line Occurrences
ASK	EN+9, EN+10, ASK+2
AUT	AUT
CT	CT+1
DATE	EN+10
DATE1	DATE
EDI	EDI
EN	EN+8, EN+9, EN+10, EN+12, EN+13, EDI, AUT, GEN
GEN	GEN
HINQ	EN+8, EN+12
HINQ1	HINQ
Q	ST1, EDI, AUT, GEN
SET	DATE+2
SET2	SET
ST	EN+10, EN+12
ST2	ST+3
WDATE	CT+1, WDATE, WDATE+1
WRLINE	CT

Name	Field # of Occurrence
^(	HINQ
^("S"	DATE1
^(0	DATE1, SET2+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ASK+1*, ASK+2, ASK+3
CT	DATE+2, CT, CT+2!, WDATE, SET, SET2+1, SET2+2
CT1	DATE+2, CT, CT+1, CT+2!
CT2	CT*, CT+2!
DA	ASK+4!, DATE*, DATE1
DFN	EN+6!, EN+8, EN+9, EN+10, EN+12, HINQ, MT+1, ASK+1, DATE, DATE+1 , DATE1
DIC	EN+6!, EN+8, EN+11
DIC("S"	EN+11*
DIC(0	EN+6*
DINUM	ASK+4!
DTIME	EN+6, WDATE
DUZ	ST+1
>> G	CT*
>> I	DATE*
>> IB	CT+1, WDATE+2*
IBAC	EN+1, EN+9, EN+11, ASK, DATE+1, DATE1, ST+3, Q+1!, EDI, AUT , GEN*
>> IBAC1	EN+6, EN+7, ST+2, EDI, AUT, GEN
>> IBDATA	WRLINE*
IBIFN	EN+6!, EN+9, EN+10, EN+12, ASK!, ASK+3!, ASK+4!, WDATE+2, ST, ST+1 , Q+1!
>> IBND0	SET2*, SET2+1, SET2+2
>> IBNEW	ASK+4*
>> IBT	DATE+2, DATE1, SET2+1
IBV	EN+6, SET, Q+1!, EDI, AUT, GEN
>> IBX	EN+6*, EN+8, EN+11
>> IBYN	ASK+4*
>> J	DATE+2*
>> J1	DATE+2*
K	CT*, CT+1, CT+2!, WRLINE, WDATE, WDATE+1
U	DATE1, SET2+2
X	EN+8, EN+9, EN+11, HINQ1!, DATE+2, CT+1, WDATE, WDATE+1, WDATE+2, SET , SET2, SET2+1
Y	EN+8, EN+12, HINQ1+2!, ASK+4!, WRLINE*
Y(0	EN+12

Customize PDF page

Package: Integrated Billing

Routine: IBCB

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: