Routine: IBECPTE

Information

IBECPTE ;ALB/ARH - ENTER/EDIT CPT BILLING TIME SENS DATA (350.4&350.5) ; 11/5/91

Source Information

Source file <IBECPTE.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA Fileman	4	^DIC FILE^DICN ^DIE ^DIR
Integrated Billing	2	^IBXCPTR ^IBXDIVD
Kernel	1	HOME^%ZIS

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Integrated Billing	2	IB BASC LOCALITY MODIFIER IB BASC RATE GROUP ENTRY

Entry Points

Name	Comments	DBIA/ICR reference
EFFDIV	;enter/edit time sensitve division data
EDITC
EFFDIVQ
EDITD
EFFCPTQ
LISTDIV	;provide list of effective dates already defined for division
CPTQ
DISCPT	;display data on procedure
LISTCPT	;provide list of effective dates already defined for CPT
EN4	;entry point - enter/edit procedure and rate group for amb surg billing (350.4)
EN5	;entry point - enter/edit division and wage percentage data for amb surg billing (350.5)
EFFCPT	;enter/edit time sensitve procedure data
DIV
DISDIV	;display data on division
CPT
DIVQ

External References

Name	Field # of Occurrence
HOME^%ZIS	EN4+1, EN5+1
^DIC	CPT+1, DIV+1
FILE^DICN	EFFCPT+6, EFFDIV+5
^DIE	CPT+2, EDITC, EDITD
^DIR	EFFCPT+3, EFFCPT+5, EFFDIV+2, EFFDIV+4
^IBXCPTR	DISCPT+3
^IBXDIVD	DISDIV+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?5,Y,?20,$P($G(^ICPT(+$P(IBLN,"^",2),0)),"^",1),?30,$S($P(IBLN,"^",4):"ACTIVE",1:"INACTIVE"),?43,$P($G(^IBE(350.1,+$P(IBLN,"^",3),0)),"^",1) Line Location: LISTCPT+5
Function Call: WRITE	Prompt: !,?4,Y,?20,$E($P($G(^DG(40.8,+$P(IBLN,"^",2),0)),"^",1),1,20),?43,$S($P(IBLN,"^",4):"ACTIVE",1:"INACTIVE"),?52,$J($P(IBLN,"^",5),7),?61,$J($P(IBLN,"^",6),7),?70,$J($P(IBLN,"^",7),7) Line Location: LISTDIV+5
Routine Call	%ZIS Line Location: EN4+1 EN5+1
Routine Call	DIE Line Location: CPT+2 EDITC EDITD
Routine Call	DIC Line Location: CPT+1 DIV+1
Routine Call	DIR Line Location: EFFCPT+3 EFFCPT+5 EFFDIV+2 EFFDIV+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IBE(350.4 - [#350.4]	Classic Fileman Calls
^IBE(350.5 - [#350.5]	Classic Fileman Calls
^DG(40.8 - [#40.8]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	DISCPT+1, DISDIV+1
^DD("DD"	LISTCPT+4, LISTDIV+4
^DG(40.8 - [#40.8]	LISTDIV+5
^IBE(350.1 - [#350.1]	LISTCPT+5
^IBE(350.4 - [#350.4]	EFFCPT+4, LISTCPT+1, LISTCPT+2, LISTCPT+3, LISTCPT+4
^IBE(350.5 - [#350.5]	EFFDIV+3, LISTDIV+1, LISTDIV+2, LISTDIV+3, LISTDIV+4
^ICPT - [#81]	LISTCPT+5

Label References

Name	Line Occurrences
CPT	CPT+2, CPT+3
CPTQ	CPT+1
DISCPT	CPT+3
DISDIV	DIV+2
DIV	DIV+2
DIVQ	DIV+1
EDITC	EFFCPT+4
EDITD	EFFDIV+3
EFFCPT	CPT+3, EFFCPT+5, EDITC+1
EFFCPTQ	EFFCPT+3, EFFCPT+6
EFFDIV	DIV+2, EFFDIV+4, EFFDIV+5, EDITD+1
EFFDIVQ	EFFDIV+2

Naked Globals

Name	Field # of Occurrence
^(	EFFCPT+4, EFFDIV+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	EFFCPTQ!, EFFDIVQ!
D0	DISCPT+3!, DISDIV+3!
DA	CPT+2!, CPTQ!, DIVQ!, EDITC!, EFFCPTQ!, EDITD*!, EFFDIVQ!
DD	EFFCPT+6!, EFFDIV+5!
DIC	CPT+1!, CPT+2!, DIV+1!, EFFCPT+6!, EDITC!, EFFDIV+5!, EDITD!
DIC("A"	CPT, DIV
DIC("DR"	EFFCPT+6, EFFDIV+5
DIC(0	CPT+1, DIV+1, EFFCPT+6, EFFDIV+5
DIE	CPT+2!, EDITC!, EDITD*!
DIE("NO^"	EDITC, EDITD
DIR	EFFCPT+3!, EFFCPT+5!, EFFDIV+2!, EFFDIV+4!
DIR("?"	EFFCPT+2, EFFDIV+1
DIR("??"	EFFCPT+2, EFFDIV+1
DIR("A"	EFFCPT+3, EFFCPT+5, EFFDIV+2, EFFDIV+4
DIR(0	EFFCPT+3, EFFCPT+5, EFFDIV+2, EFFDIV+4
DIROUT	EFFCPTQ!, EFFDIVQ!
DIRUT	EFFCPT+3, EFFCPTQ!, EFFDIV+2, EFFDIVQ!
DO	EFFCPT+6!, EFFDIV+5!
DR	CPT+2!, EDITC!, EFFCPTQ!, EDITD*!, EFFDIVQ!
DTOUT	CPTQ!, DIVQ!, EFFCPTQ!, EFFDIVQ!
DUOUT	CPTQ!, DIVQ!, EFFCPTQ!, EFFDIVQ!
DXS	DISCPT+3!, DISDIV+3!
IBCPT	CPT+1*, CPT+2, CPTQ!, EFFCPT+4, EFFCPT+6, DISCPT+3, LISTCPT+1, LISTCPT+2, LISTCPT+3
IBDIV	DIV+1*, DIVQ!, EFFDIV+3, EFFDIV+5, DISDIV+3, LISTDIV+1, LISTDIV+2, LISTDIV+3
IBEDT	CPT+3, CPTQ!, DIV+2, DIVQ!, EDITC, EDITD
IBEFF	EFFCPT+3, EFFCPT+4, EFFCPT+6, EFFCPTQ!, EFFDIV+2, EFFDIV+3, EFFDIV+5, EFFDIVQ!
IBLN	LISTCPT+1~, LISTCPT+4, LISTCPT+5, LISTDIV+1~, LISTDIV+4, LISTDIV+5
IBX	LISTCPT+1~, LISTCPT+2, LISTCPT+3, LISTCPT+4, LISTDIV+1~, LISTDIV+2, LISTDIV+3, LISTDIV+4
IBY	LISTCPT+1~, LISTCPT+3, LISTCPT+4, LISTDIV+1~, LISTDIV+3, LISTDIV+4
IOF	DISCPT+2, DISDIV+2
X	CPTQ!, DIVQ!, EFFCPT+6, EFFCPTQ!, EFFDIV+5, EFFDIVQ!, DISCPT+1, DISCPT+3!, DISDIV+1, DISDIV+3!
Y	CPT+1, CPT+2!, CPTQ!, DIV+1, DIVQ!, EFFCPT+3, EFFCPT+4, EFFCPT+5, EFFCPT+6, EDITC! , EFFCPTQ!, EFFDIV+2, EFFDIV+3, EFFDIV+4, EFFDIV+5, EDITD!, EFFDIVQ!, LISTCPT+1~, LISTCPT+4, LISTCPT+5 , LISTDIV+1~, LISTDIV+4, LISTDIV+5

Customize PDF page

Package: Integrated Billing

Routine: IBECPTE

Call Graph Total: 7

Caller Graph Total: 2