Routine: IBCCPT

Package	Total	Call Graph
VA Fileman	4	(FILE,YN)^DICN ^DIE DT^DIQ ^DIR
Integrated Billing	3	(Q,Q1,VFILE1)^IBCOPV1 $$DSP^IBEFUNC $$CPTCHG^IBEFUNC1

Package	Total	Caller Graph
Integrated Billing	2	IBCD3 IBCSCE

Entry Points

Name	Comments	DBIA/ICR reference
OK1
ASC	; -find ambulatory procedures, flag if billable
FILE1	; file procedures, if BASC, only for 1 visit date
EN
OK
WRNO
TOMANYQ
HLP
CHDR
TOMANY(DATE)	; - returns 1 if more than 1 visit date on bill (for basc)
OK2
FILE
VST
CPRT
CPT
SCR

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+0
Function Call: WRITE	Prompt: ! Line Location: EN+3
Function Call: WRITE	Prompt: !,"Respond 'Y'es to include these codes in the bill.",!,"Respond 'N'o to reselect." Line Location: OK2+1
Function Call: WRITE	Prompt: !?10,"Can't add Amb. Surg. ",$P(^ICPT(+DGNOD,0),"^")," without visit date!" Line Location: FILE1+2
Function Call: WRITE	Prompt: !?10,"Can't add Billable Amb. Surg. ",$P(^ICPT(+DGNOD,0),"^")," when more than one visit date!",*7 Line Location: FILE1+3
Function Call: WRITE	Prompt: !,DGCNT,")",?5,$P(^(0),"^"),?13,$S(DGASC:"YES",1:""),?20,$E($P(^(0),"^",2),1,28),?50 Line Location: CPRT+1
Function Call: WRITE	Prompt: ?64," ON THIS BILL" Line Location: CPRT+1
Function Call: WRITE	Prompt: !,L,!,"NO.",?5,"CODE",?13,"BASC",?20,"SHORT NAME",?50,"PROCEDURE DATE",!,L,! Line Location: CHDR+1
Function Call: WRITE	Prompt: ! Line Location: SCR+0
Function Call: READ	Prompt: "Press return to continue or ""^"" to exit display " Formatting: ! Timeout: DTIME Variable: DGU Line Location: SCR+1
Function Call: READ	Timeout: 5 Variable: H Line Location: HLP+1
Routine Call	DIE Line Location: FILE+1 FILE1+8
Routine Call	DIR Line Location: OK+1

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

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	OK+2, FILE+2*, FILE1+9, VST, VST+1, VST+2, WRNO, CPT, ASC+6, TOMANY+2 , TOMANY+3
^ICPT - [#81]	FILE1+2, FILE1+3, FILE1+4, CPRT+1
^SDV - [#409.5]	ASC+3, ASC+4
^SDV("C"	ASC+3
^UTILITY($J	EN!, EN+2, OK1, FILE+3, WRNO, ASC+5, ASC+6*

Name	Field # of Occurrence
>> %	OK2*, OK2+1, OK2+2
DA	FILE+1!, FILE1+5, FILE1+10!
DA(1	FILE1+5, CPT
DATE	TOMANY~, TOMANY+1, TOMANY+3
DD	FILE1+5!
>> DFN	ASC+3
>> DGASC	EN+2*, CPRT+1
>> DGBIL	EN+2*, CPRT+1
>> DGCNT	EN+2, FILE, CPRT+1, VST, ASC+6
>> DGCNT1	EN+2*, OK, HLP
>> DGCNT2	FILE*
DGCPT	EN!, EN+2, CPRT+1, ASC+6
>> DGCPT1	FILE*, FILE+3
>> DGCPTS	ASC+4*, ASC+6
>> DGDAT	EN+2*, CPRT+1
>> DGDIV	EN+2, ASC+3, ASC+6
DGNOADD	FILE1+1!, FILE1+2
>> DGNOD	EN+2, FILE+3, FILE1+1, FILE1+2, FILE1+3, FILE1+4, FILE1+5, FILE1+6, ASC+4*
DGTE	CPT+1!
>> DGU	EN, EN+2, EN+3, CPRT, SCR, SCR+1
DGVCNT	TOMANY+2*, TOMANY+3!
DIC	FILE1+5*, FILE1+8, FILE1+10!
DIC(0	FILE1+5*
DIE	FILE+1!, FILE1+8, FILE1+10!
DIK	CPT+1!
DINUM	FILE1+1*!
DIR	IBCCPT+6!, EN, OK1
DIR("?"	OK*
DIR("A"	OK*
DIR(0	OK*
DO	FILE1+5!
DR	FILE+1!, FILE1+6, FILE1+7*, FILE1+10!
DTIME	SCR+1
H	HLP+1*!
>> I	ASC+3*, ASC+4, ASC+5
I1	FILE+3, CPT+1!, ASC+4
>> I2	ASC+6*
>> I7	ASC+4*, ASC+6
>> I9	FILE+3*
>> IBCCPTX	CPT*
>> IBCCPTZ	CPT*
>> IBFT	OK+2*, FILE1+3, FILE1+7
>> IBIFN	OK+2, FILE+1, FILE+2, FILE1+5, FILE1+7, FILE1+9, VST, VST+1, VST+2, WRNO , CPT, ASC+6, TOMANY+2, TOMANY+3
>> IBOPV1	VST, VST+2, ASC+3
>> IBOPV2	VST, VST+2, ASC+3
>> IBOUT	OK2*
IOF	EN, CHDR
IOSL	EN+3, CPRT, SCR
IOST	SCR
L	CHDR+1*!
U	CPT
>> V	VST*
X	FILE1+1!, FILE1+5
Y	EN+3, OK1!, OK+1, OK2, OK2+1, OK2+2, FILE, FILE1+5, CPRT+1, SCR*