Routine: IBCU7

Package	Total	Call Graph
VA Fileman	6	^%DT ^DIC YN^DICN ^DIE ^DIK (D,DT)^DIQ
Integrated Billing	4	VFILE1^IBCOPV1 ($$OPV,$$OPV2)^IBCU41 ($$SCREEN,ADDCPT)^IBCU71 $$CPTBSTAT^IBEFUNC1

Package	Total	Caller Graph
Integrated Billing	4	PROCEDURES ^DGCR(399 IBCSC4 IBCSC5

Entry Points

Name	Comments	DBIA/ICR reference
CODHLP	;Display Additional Procedure codes
DTMESQ
CODMUL	;Date oriented entry of procedure
CODDT
CHKX	; -interception of input x from Additional Procedure input
DTMES	;Message if procedure date not in date range
ASKCOD
DELASK
CHKXQ
DICV
CODQ
DELADD

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Procedure Date: " Line Location: CHKX+5
Function Call: WRITE	Prompt: Y,! Line Location: CHKX+5
Function Call: WRITE	Prompt: !,"SINCE THE PROCEDURE CODING METHOD HAS BEEN CHANGED, DO YOU WANT TO DELETE ALL",!,"PROCEDURE CODES IN THIS BILL" Line Location: DELASK+0
Function Call: WRITE	Prompt: !!,"If you answer 'Yes', all procedure codes will be DELETED from this bill.",! Line Location: DELASK+1
Function Call: WRITE	Prompt: " (",Y,")" Line Location: CODDT+3
Function Call: WRITE	Prompt: " (",Y,")" Line Location: CODDT+4
Function Call: WRITE	Prompt: !,*7,"Warning: Procedure code is currently inactive",! Line Location: ASKCOD+2
Function Call: WRITE	Prompt: !,*7,"Warning: Procedure code is currently inactive",! Line Location: ASKCOD+3
Function Call: WRITE	Prompt: !?4,"This bill has more than 1 visit date and you are adding a Billable Amb. Surg." Line Location: ASKCOD+13
Function Call: WRITE	Prompt: Y,! Line Location: DTMES+5
Function Call: WRITE	Prompt: !!?5,"No Codes Entered!",! Line Location: CODHLP+1
Function Call: WRITE	Prompt: !?17,$E($P(Z,"^",$S($P(Y,"^")["ICD":4,1:2)),1,28),?47,"- ",$P(Z,"^"),?57,"Date: " Line Location: CODHLP+2
Routine Call	DIE Line Location: ASKCOD+5 ASKCOD+6 ASKCOD+14
Routine Call	DIC Line Location: ASKCOD+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	CHKX+5, DTMES+4, DTMES+5
^DG(40.8 - [#40.8]	ASKCOD+12
^DGCR(399 - [#399]	CHKX+2, DELASK, DELASK+3*, CODDT, CODDT+1, CODDT+4, ASKCOD, ASKCOD+8, ASKCOD+9, ASKCOD+15 , DELADD, DTMES+1, CODHLP+1, CODHLP+2, DICV
^IBE(350.9 - [#350.9]	CHKX+2, ASKCOD, ASKCOD+12
^ICD0 - [#80.1]	ASKCOD+2
^ICPT - [#81]	ASKCOD+3
^UTILITY($J	CHKX+3, CHKX+4, CHKX+5, CODDT+1

Name	Field # of Occurrence
%	DELASK*, DELASK+1, DELASK+2!
%DT	CODDT+5*, CODQ!
%Y	DELASK+1, DELASK+2!
DA	DELASK+2!, ASKCOD+5, ASKCOD+9, ASKCOD+15, DELADD
DA(1	CHKX+2, ASKCOD+1, DELADD
DGADDVST	ASKCOD, ASKCOD+4, ASKCOD+17!, CODQ+1!
DGCPT	CODDT+3, CODDT+4, CODDT+5, ASKCOD!, ASKCOD+15, CODQ+1!
DGCPT(	ASKCOD+15*
DGCPTNEW	ASKCOD+4, ASKCOD+9, ASKCOD+15, CODQ+1!
DGCPTUP	ASKCOD*, ASKCOD+14, ASKCOD+15, CODQ+1!
DGNOADD	ASKCOD+17!, CODQ+1!
DGNODUU	DTMES+1*, DTMES+2, DTMES+4, DTMES+5, DTMESQ!
DGPROC	ASKCOD+9, ASKCOD+11, ASKCOD+12, ASKCOD+15, CODQ!
DGPROCDT	CHKX+5, CODDT+1, CODDT+3, CODDT+4, CODDT+5, ASKCOD+11, ASKCOD+12, ASKCOD+17, CODQ!
DIC	ASKCOD+1*, ASKCOD+5, CODQ!
DIC("A"	ASKCOD+1*
DIC("DR"	ASKCOD+1*
DIC("S"	ASKCOD+1*
DIC("V"	CODDT, DICV
DIC(0	ASKCOD+1*
DIE	ASKCOD+5*, CODQ!
DIK	DELASK+2!, DELADD*
DINUM	ASKCOD+17*!
DR	ASKCOD+5, ASKCOD+6, ASKCOD+12, ASKCOD+14, CODQ!
DT	ASKCOD+2
DTIME	CODDT+2
>> I	CODHLP+2*
IBFT	ASKCOD*, ASKCOD+6, CODQ+1!
>> IBIFN	DELASK, DELASK+3, CODDT, CODDT+1, CODDT+4, CODDT+5, ASKCOD, ASKCOD+1, ASKCOD+6, ASKCOD+8 , ASKCOD+9, ASKCOD+15, DELADD, DTMES+1, CODHLP+1, CODHLP+2, DICV
IBZ20	DELASK, DELASK+2!
IBZTYPE	CODDT+1*, CODDT+5, CODQ+1!
>> M	CHKX+4*, CHKX+5
>> S	CHKX+4*
U	DELASK, CODDT, CODHLP+2, DICV
X	CHKX+1, CHKX+2!, CHKX+4, CODDT+2, CODDT+3, CODDT+4, CODDT+5, ASKCOD+17!, DTMES+2, DTMES+6!
Y	CHKX+5, CODDT+3, CODDT+4, CODDT+5, ASKCOD+1, ASKCOD+2, ASKCOD+3, ASKCOD+4, ASKCOD+5, DTMES+4 , DTMES+5, DTMES+6!, CODHLP+2
Z	CODHLP+2*, CODHLP+3!