Routine: IBCCPT

Information

IBCCPT ;ALB/LDB - MCCR OUTPATIENT VISITS LISTING CONT. ;29 MAY 90

Package	Total	Call Graph
Integrated Billing	15	($$BDATE,$$ICD9)^IBACSV ($$NBOEP,ADDDX)^IBCCPT1 $$INPAT^IBCEF (Q,Q1,VFILE1)^IBCOPV1 $$PRVTYP^IBCRU6 $$CLNSCRN^IBCU $$QMED^IBCU1 ($$ADDTNL,$$DEFDIV,$$NOCPROC,$$SPCUNIT,ATTACH)^IBCU7 (DX,ORAL)^IBCU72 EN^IBCU7B EN^IBCU7C $$NBOE^IBCU81 $$GETSPEC^IBEFUNC $$BDSRC^IBEFUNC3 ($$SCE,SCAN)^IBSDU
VA FileMan	5	FIND^DIC (FILE,YN)^DICN ^DIE $$GET1^DIQ ^DIR
CPT HCPCS Codes	2	$$CPT^ICPTCOD $$MOD^ICPTMOD
Kernel	1	$$FMTE^XLFDT
Scheduling	1	GETCPT^SDOE
Vendor - Document Storage Systems	1	DX^VEJDIBE1

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Integrated Billing	3	IBCD3 IBCSCE IBCU7U

Entry Points

Name	Comments	DBIA/ICR reference
EN1(IBQUERY,IBHLP)	;
EN
OK1
OK
OK2
FILE
FILE1	; file procedures, if BASC, only for 1 visit date
CPRT
CHDR
ADDMOD(IBIFN,IBY,IBMOD)	; Add modifier(s) from PCE procedure to CPT code mult
DSPPRC(CPTNM,NOD,DX)	; display summary of procedure being added
VST(IBQUERY)	;Procedures for outpatient visits ... If IBQUERY is defined ; on entry, the QUERY OBJECT defined by this value will be used for ; loop to extract procedures for visits, otherwise, a new QUERY will be opened ; If passed by reference, IBQUERY will be ret'd as the new QUERY ref #
VSTQ
WRNO
SCR
HLP
CPT
PROC(IBQUERY)	; -find outpatient procedures, flag if billable ; - ^utility($j,cpt-cnt,count)=code^date^on bill^is BASC^divis^nb^nb mess^provider^clinic^mod,mod^Opt Enc Ptr ; - ^utility($j,cpt-cnt,count,"dx")=assoc dx(1)^assoc dx(2)^assoc dx(3)^assoc dx(4)
EXTPROC(IBIFN,IBOE,IBOE0,IBCNT)	; Extract procedures for an encounter ; IBIFN = the ien of the bill ; IBOE0 = 0-node of the outpatient encounter file entry IBOE ; IBCNT extracted entry counter
TOMANY(DATE)	; - returns 1 if more than 1 visit date on bill (for basc)
TOMANYQ
CHECK(IBPSCD,DGNOD)	;

External References

Name	Field # of Occurrence
FIND^DIC	FILE1+43, FILE1+49, FILE1+61
FILE^DICN	FILE1+13, FILE1+134, FILE1+137, ADDMOD+5
YN^DICN	OK2
^DIE	FILE+1, FILE1+24, FILE1+81, FILE1+107, FILE1+108, FILE1+121, FILE1+140
$$GET1^DIQ	FILE1+53, FILE1+55, FILE1+64, FILE1+65, FILE1+66, FILE1+70, FILE1+71, FILE1+72, CHECK+2
^DIR	OK+1
$$BDATE^IBACSV	EN+2, CPRT+2, DSPPRC+7
$$ICD9^IBACSV	DSPPRC+11
$$NBOEP^IBCCPT1	EXTPROC+20
ADDDX^IBCCPT1	FILE1+21
$$INPAT^IBCEF	FILE1+93
Q^IBCOPV1	OK2
Q1^IBCOPV1	OK+1, FILE+3
VFILE1^IBCOPV1	FILE1+4
$$PRVTYP^IBCRU6	DSPPRC+4
$$CLNSCRN^IBCU	EXTPROC+12
$$QMED^IBCU1	FILE1+111
$$ADDTNL^IBCU7	FILE1+116
$$DEFDIV^IBCU7	FILE1+105
$$NOCPROC^IBCU7	FILE1+68, FILE1+78
$$SPCUNIT^IBCU7	FILE1+108
ATTACH^IBCU7	FILE1+95
DX^IBCU72	FILE1+115
ORAL^IBCU72	FILE1+143
EN^IBCU7B	FILE1+88
EN^IBCU7C	FILE1+34
$$NBOE^IBCU81	EXTPROC+10
$$GETSPEC^IBEFUNC	FILE1+10, ADDMOD+3
$$BDSRC^IBEFUNC3	EXTPROC+9
$$SCE^IBSDU	EXTPROC+6
SCAN^IBSDU	PROC+8
$$CPT^ICPTCOD	FILE1+5, CPRT+3
$$MOD^ICPTMOD	CPRT+10, DSPPRC+8
GETCPT^SDOE	EXTPROC+7
DX^VEJDIBE1	FILE1+111
$$FMTE^XLFDT	CPRT+4, DSPPRC+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+0
Function Call: WRITE	Prompt: ! Line Location: EN+4
Function Call: WRITE	Prompt: !,"YOU HAVE SELECTED CPT CODE(S) NUMBERED-",$E(Y,1,$L(Y)-1),!,"IS THIS CORRECT" Line Location: OK2+0
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(IBCPTNM,U,2)," without visit date!" Line Location: FILE1+6
Function Call: WRITE	Prompt: !?10,"Can't add Billable Amb. Surg. ",$P(IBCPTNM,U,2)," when more than one visit date!",*7 Line Location: FILE1+7
Function Call: WRITE	Prompt: ! Line Location: FILE1+143
Function Call: WRITE	Prompt: !,DGCNT,")",?5,$P(IBCPTNM,U,2),?13,$E($P(IBCPTNM,U,3),1,24),?39,$E($P($G(^SC(+$P(DGNOD,U,9),0)),U,1),1,15),?56,$$FMTE^XLFDT(DGDAT,2) Line Location: CPRT+4
Function Call: WRITE	Prompt: ?64,IBNBM Line Location: CPRT+8
Function Call: WRITE	Prompt: !,?13,$P(IBZ,U,2),?18,$P(IBZ,U,3) Line Location: CPRT+10
Function Call: WRITE	Prompt: @IOF,!,?15,"<<CURRENT PROCEDURAL TERMINOLOGY CODES>>",!!,?10,"LISTING FROM VISIT DATES WITH ASSOCIATED CPT CODES",!,?22,"IN OUTPT ENCOUNTERS FILE",! Line Location: CHDR+0
Function Call: WRITE	Prompt: !,L,!,"NO.",?5,"CODE",?13,"SHORT NAME",?39,"CLINIC",?56,"DATE",!,L,! Line Location: CHDR+2
Function Call: WRITE	Prompt: !!?4,"Adding CPT Procedure: ",$P(CPTNM,U,2),?34,$P(CPTNM,U,3) Line Location: DSPPRC+6
Function Call: WRITE	Prompt: !,?34,$P(IBMOD,U,2)," - ",$E($P(IBMOD,U,3),1,40) Line Location: DSPPRC+8
Function Call: WRITE	Prompt: !,?34,"Visit: ",$$FMTE^XLFDT(+$P(NOD,U,2),2),", ",$E($P($G(^SC(+$P(NOD,U,9),0)),U,1),1,29) Line Location: DSPPRC+9
Function Call: WRITE	Prompt: !,?44 Condition for execution: IBL="" Line Location: DSPPRC+10
Function Call: WRITE	Prompt: IBL,IBPRVTYP Line Location: DSPPRC+10
Function Call: WRITE	Prompt: !,?34,"Assoc Dx: ",$E($P(IBDXT,"^")_" "_$P(IBDXT,"^",3),1,35) Line Location: DSPPRC+11
Function Call: WRITE	Prompt: ! Line Location: DSPPRC+12
Function Call: WRITE	Prompt: ! Line Location: SCR+0
Function Call: READ	Formatting: ! Prompt: "Press return to continue or ""^"" to exit display " Variable: DGU Timeout: DTIME Line Location: SCR+1
Function Call: WRITE	Prompt: !!,"Enter a number between 1 and ",DGCNT1," or a range of numbers separated with commas",!,"or dashes, e.g., 1,3,5 or 2-4,8" Line Location: HLP+0
Function Call: READ	Variable: H Timeout: 5 Line Location: HLP+1
Function Call: WRITE	Prompt: !,"The number(s) must appear as a selectable number in the sequential list." Line Location: HLP+1
Routine Call	DIC Line Location: FILE1+43 FILE1+49 FILE1+61
Routine Call	DIE Line Location: FILE+1 FILE1+24 FILE1+81 FILE1+107 FILE1+108 FILE1+121 FILE1+140
Routine Call	DIR Line Location: OK+1

FileNo	Call Tags
^DGCR(399 - [#399]	Classic Fileman Calls
399.0304	GET1^DIQ
^ICPT - [#81]	GET1^DIQ
^AUPNVCPT - [#9000010.18]	FIND^DIC, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	OK+2, FILE1+10, FILE1+56, FILE1+86, FILE1+144, ADDMOD+2, ADDMOD+3, VST+4, VST+5, VST+6 , WRNO, CPT, EXTPROC+16, TOMANY+2, TOMANY+3
^SC - [#44]	CPRT+4, DSPPRC+9
^TMP("DIERR"	PROC+8!
^TMP("IBVIS"	CHDR+1!, VST+5!, VST+7!
^UTILITY($J	EN!, EN+3, OK1, FILE+2, WRNO, EXTPROC+24*, EXTPROC+26
^VA(200 - [#200]	FILE1+87, DSPPRC+4

Label References

Name	Line Occurrences
$$CHECK	FILE1+64
$$TOMANY	FILE1+7
ADDMOD	FILE1+25
CHDR	EN+1, SCR+1
CPRT	EN+3
DSPPRC	FILE1+8
FILE1	FILE+2
HLP	EN
OK	OK2+2
OK2	OK2+1
PROC	VST+4, VST+7
SCR	CPRT
TOMANYQ	TOMANY+1
VST	EN
VSTQ	VST+5
WRNO	EN+1

Naked Globals

Name	Field # of Occurrence
^(	EN+3, FILE+2
^("U"	VST+6
^(0	EXTPROC+26*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	OK2*, OK2+1, OK2+2
CPTNM	DSPPRC~, DSPPRC+2, DSPPRC+6
DA	FILE+1!, FILE1+13, FILE1+32!, FILE1+33, FILE1+79, FILE1+86, FILE1+90, FILE1+116, FILE1+121!, FILE1+124! , FILE1+134!, FILE1+140!, FILE1+142*, FILE1+145!, ADDMOD+1~
DA(1	FILE1+13, FILE1+33, FILE1+79, FILE1+86, FILE1+126, FILE1+137, FILE1+142, ADDMOD+2, ADDMOD+3, CPT
DA(2	FILE1+126, ADDMOD+2, ADDMOD+3
DATE	TOMANY~, TOMANY+1, TOMANY+3
DD	FILE1+13!, FILE1+121!, FILE1+134!, FILE1+137!, FILE1+140!, ADDMOD+1~, ADDMOD+5!
DFN	PROC+4, EXTPROC+4~
>> DGASC	EN+3*
>> DGBIL	EN+3*, CPRT+5, CPRT+6
>> DGCNT	EN+3, FILE, CPRT+4, VST+4*
>> DGCNT1	EN+3*, OK, HLP
>> DGCNT2	FILE*
DGCPT	EN!, EN+3*, CPRT+3
>> DGCPT1	FILE*, FILE+2
>> DGDAT	EN+3*, CPRT+4
>> DGDIV	EN+3*
DGNOADD	FILE1+4!, FILE1+6
DGNOD	EN+3, FILE+2, FILE1+4, FILE1+5, FILE1+7, FILE1+8, FILE1+13, FILE1+14, FILE1+15, FILE1+16 , FILE1+17, FILE1+18, FILE1+25, FILE1+40, FILE1+55, FILE1+64, FILE1+87, FILE1+99, FILE1+100, FILE1+101 , CPRT+4, CPRT+5, CPRT+7, CPRT+10, CHECK~, CHECK+2
DGNOD("DX"	FILE+2*, FILE1+8, FILE1+21
DGTE	CPT+1!
>> DGU	EN, EN+3, EN+4, CPRT, SCR, SCR+1
DGVCNT	TOMANY+2*, TOMANY+3!
DIC	FILE1+13, FILE1+23, FILE1+24, FILE1+106, FILE1+107, FILE1+121!, FILE1+124!, FILE1+125, FILE1+134!, FILE1+137* , FILE1+140!, FILE1+145!, ADDMOD+1~, ADDMOD+4*, ADDMOD+5!
DIC("DR"	FILE1+127, FILE1+129, FILE1+130, FILE1+131, FILE1+132, FILE1+133, ADDMOD+4*
DIC("P"	FILE1+10, FILE1+13!, ADDMOD+3
DIC(0	FILE1+13, FILE1+125, FILE1+137, ADDMOD+4
DIE	FILE+1!, FILE1+24, FILE1+107, FILE1+121!, FILE1+140!, FILE1+142*, FILE1+145!, ADDMOD+1~
DIK	CPT+1!
DINUM	FILE1+4*!, FILE1+121!, FILE1+140!
DIR	EN1+3!, EN, OK1, OK+1!
DIR("?"	OK*
DIR("A"	OK*
DIR(0	OK*
DLAYGO	FILE1+13!, FILE1+124!, FILE1+125, FILE1+137!, ADDMOD+4
DO	FILE1+13!, FILE1+121!, FILE1+134!, FILE1+137!, FILE1+140!, ADDMOD+1~, ADDMOD+5!
DR	FILE+1!, FILE1+14, FILE1+15, FILE1+16, FILE1+17, FILE1+18, FILE1+21, FILE1+80, FILE1+84!, FILE1+85 , FILE1+91!, FILE1+94, FILE1+96!, FILE1+98, FILE1+99, FILE1+100, FILE1+101, FILE1+103, FILE1+105, FILE1+107 , FILE1+108, FILE1+119!, FILE1+120, FILE1+121!, FILE1+124!, FILE1+134!, FILE1+139*, FILE1+140!, FILE1+145!, ADDMOD+1~
DTIME	SCR+1
DX	DSPPRC~, DSPPRC+11
H	HLP+1*!
>> I	FILE1+73*
I1	FILE+2, FILE1+73~, CPT+1!
I2	EXTPROC+4~, EXTPROC+13*, EXTPROC+14, EXTPROC+15, EXTPROC+17, EXTPROC+24
I7	EXTPROC+4~, EXTPROC+11*, EXTPROC+12, EXTPROC+16, EXTPROC+21
>> I9	FILE+2*
IBARR	EXTPROC+4~
IBARR("CPT"	EXTPROC+26
IBCBK	PROC+3~, PROC+7*, PROC+8
>> IBCCPTX	CPT*
>> IBCCPTZ	CPT*
IBCLINIC	EXTPROC+4~, EXTPROC+12*, EXTPROC+21
IBCNT	EXTPROC~, EXTPROC+24*
IBCPT	EXTPROC+4~, EXTPROC+14*, EXTPROC+16, EXTPROC+20, EXTPROC+21
IBCPTDAT	EXTPROC+4~, EXTPROC+21, EXTPROC+23, EXTPROC+24
IBCPTNM	FILE1+5~, FILE1+6, FILE1+7, FILE1+8, CPRT+1~, CPRT+3, CPRT+4
IBCPTPRV	EXTPROC+4~, EXTPROC+15*, EXTPROC+21
IBCPTS	EXTPROC+4~
IBCPTS(	EXTPROC+13, EXTPROC+14, EXTPROC+15, EXTPROC+17, EXTPROC+24
IBCPTS(0	EXTPROC+8
IBDATE	CPRT+1~, CPRT+2, CPRT+3, CPRT+10, DSPPRC+1~, DSPPRC+7, DSPPRC+8
IBDENH	FILE1+38~, FILE1+45*, FILE1+46, FILE1+49
IBDENH0	FILE1+38~, FILE1+44*, FILE1+45
IBDENHD	FILE1+2~, FILE1+51, FILE1+53, FILE1+56, FILE1+57, FILE1+58, FILE1+70, FILE1+71, FILE1+72, FILE1+75 , FILE1+133
IBDENHD0	FILE1+47~, FILE1+50, FILE1+51
IBDICSAV	FILE1+3~, FILE1+13*, FILE1+23, FILE1+106
IBDIV	EXTPROC+4~, EXTPROC+11*, EXTPROC+21
IBDT	FILE1+68, FILE1+78, EXTPROC+4~
IBDX	EXTPROC+4~, EXTPROC+20, EXTPROC+24, EXTPROC+25!
IBDXT	DSPPRC+1~, DSPPRC+11*
IBEX	EXTPROC+4~
IBFILTER	PROC+3~, PROC+6*, PROC+8
>> IBFT	OK+2*, FILE1+7, FILE1+37, FILE1+93, FILE1+103, FILE1+105, FILE1+115, FILE1+116, FILE1+118
IBHLP	EN1~, OK1
IBI	DSPPRC+1~, DSPPRC+8*
IBIFN	EN+2, OK+2, FILE+1, FILE1+10, FILE1+13, FILE1+21, FILE1+25, FILE1+33, FILE1+66, FILE1+79 , FILE1+93, FILE1+105, FILE1+108, FILE1+111, FILE1+115, FILE1+116, FILE1+125, FILE1+126, FILE1+137, FILE1+142 , FILE1+144, CPRT+2, ADDMOD~, ADDMOD+2, ADDMOD+4, DSPPRC+7, VST+4, VST+5, VST+6, WRNO , CPT, EXTPROC~, EXTPROC+16, TOMANY+2, TOMANY+3
IBL	DSPPRC+1~, DSPPRC+4*, DSPPRC+10
>> IBLNPRV("IBCCPT"	FILE1+87*, FILE1+89!
IBM	ADDMOD+1~, ADDMOD+2*, ADDMOD+4
IBMOD	ADDMOD~, ADDMOD+2, DSPPRC+1~, DSPPRC+8*
IBMODS	CPRT+1~, CPRT+10, DSPPRC+1~, DSPPRC+3, DSPPRC+8, EXTPROC+4~, EXTPROC+17*, EXTPROC+21
IBNBM	CPRT+1~, CPRT+3, CPRT+5, CPRT+6, CPRT+7, CPRT+8
IBOE	EXTPROC~, EXTPROC+6, EXTPROC+7, EXTPROC+10, EXTPROC+21
IBOE0	EXTPROC~, EXTPROC+6*, EXTPROC+9, EXTPROC+10, EXTPROC+11, EXTPROC+12, EXTPROC+20, EXTPROC+23, EXTPROC+26
IBOED	EXTPROC+4~, EXTPROC+10*, EXTPROC+20
IBOEDP	EXTPROC+4~, EXTPROC+20*, EXTPROC+21
IBONBILL	EXTPROC+4~, EXTPROC+16*, EXTPROC+21
>> IBOPV1	VST+4, VST+6, PROC+4
>> IBOPV2	VST+4, VST+6, PROC+4
>> IBOUT	OK2*
IBP	DSPPRC+1~, DSPPRC+11*
IBPROCP	FILE1+13*, FILE1+21, FILE1+25, FILE1+33, FILE1+34, FILE1+66, FILE1+79, FILE1+90, FILE1+108, FILE1+111 , FILE1+115, FILE1+125, FILE1+126, FILE1+142, FILE1+145!
IBPRV	DSPPRC+1~, DSPPRC+3, DSPPRC+4, DSPPRC+10
IBPRVTYP	DSPPRC+1~, DSPPRC+3, DSPPRC+4, DSPPRC+10
IBPSC	FILE1+38~, FILE1+53*, FILE1+55, FILE1+64, FILE1+66, FILE1+68, FILE1+78
IBPSC2	FILE1+38~, FILE1+66*, FILE1+68, FILE1+78
IBPSCD	FILE1+47~, FILE1+64*, FILE1+65, CHECK~, CHECK+2
IBPSCD0	FILE1+47~, FILE1+62, FILE1+64
IBPSCDS	FILE1+2~, FILE1+62, FILE1+65, FILE1+68*, FILE1+80, FILE1+120
IBQUERY	EN1~, EN, VST~, VST+4, VST+7, PROC~, PROC+8
IBS	ADDMOD+1~, ADDMOD+2*
IBSURF	FILE1+2~, FILE1+71*, FILE1+73
IBSURF(	FILE1+73*
IBSURF(1	FILE1+127
IBSURF(2	FILE1+129
IBSURF(3	FILE1+130
IBSURF(4	FILE1+131
IBSURF(5	FILE1+132
>> IBTNUM	FILE1+138*, FILE1+140
IBTON	FILE1+2~, FILE1+70*, FILE1+124, FILE1+127, FILE1+128, FILE1+136, FILE1+137
IBTSTAT	FILE1+2~, FILE1+72*, FILE1+136, FILE1+139
IBUSED	EN1+2~
IBUSED(	FILE1+64, FILE1+65*
IBUSED("D"	FILE1+57, FILE1+58*
IBVAL	PROC+3~, PROC+8
IBVAL("BDT"	PROC+4*
IBVAL("DFN"	PROC+4*
IBVAL("EDT"	PROC+4*
IBVST	FILE1+38~, FILE1+40*, FILE1+43, FILE1+61
IBY	ADDMOD~, ADDMOD+2, ADDMOD+4
IBZ	CPRT+1~, CPRT+10, EXTPROC+4~, EXTPROC+16, EXTPROC+17*
IBZERR	EXTPROC+4~
ICPTVDT	EN+2~*
IOF	EN, CHDR
IOSL	EN+4, CPRT, SCR
IOST	SCR
J	CPRT+1~, CPRT+10*
L	CHDR+2*!
NOD	DSPPRC~, DSPPRC+2, DSPPRC+3, DSPPRC+4, DSPPRC+9, DSPPRC+11
>> RET	CHECK+1, CHECK+2, CHECK+3
STOP	FILE1+38~, FILE1+44, FILE1+47, FILE1+50, FILE1+67, FILE1+75
TARGET	FILE1+47~
TARGET("DILIST"	FILE1+50, FILE1+51
TARGET0	FILE1+38~
TARGET0("DILIST"	FILE1+44, FILE1+45
TARGET1	FILE1+47~
TARGET1("DILIST"	FILE1+64
U	FILE1+5, FILE1+6, FILE1+7, FILE1+25, FILE1+87, CPRT+4, CPRT+5, CPRT+7, CPRT+10, DSPPRC+3 , DSPPRC+4, DSPPRC+6, DSPPRC+8, DSPPRC+9, DSPPRC+11, CPT, EXTPROC+9, EXTPROC+11, EXTPROC+12, EXTPROC+14 , EXTPROC+15, EXTPROC+16, EXTPROC+20, EXTPROC+21, EXTPROC+23, EXTPROC+24
>> V	VST+4*
X	FILE1+4!, FILE1+13, FILE1+73, FILE1+116, FILE1+128, FILE1+137, ADDMOD+2*
Y	EN+4, OK1!, OK+1, OK2, OK2+1, OK2+2, FILE, FILE1+13, FILE1+113, FILE1+138 , SCR
Z	EXTPROC+4~, EXTPROC+24*

Customize PDF page

Package: Integrated Billing

Routine: IBCCPT

Information

Source Information

Call Graph

Call Graph Total: 25

Caller Graph

Legends:

Package Component Superscript legend

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: