Routine: BGOVCPT

Package	Total	Call Graph
DRG Grouper	3	($$ICDDX,$$ICDOP)^ICDCODE ($$ICDDX,$$ICDOP)^ICDEX ($$CODEN,$$CPT)^ICPTCOD
GUI Objects	2	($$CHKVISIT,$$CVTDATE,$$DELETE,$$ERR,$$FMTDATE,$$MAKEHIST,$$TMPGBL,$$UPDATE)^BGOUTL ($$AICD,$$CSVACT,$$FNDNARR,VFDEL,VFEVT,VFNEW)^BGOUTL2
Kernel	2	($$FMDIFF,$$NOW)^XLFDT $$UP^XLFSTR
IHS Electronic Health Record	1	($$ISLOCKED,$$VSTR2VIS)^BEHOENCX
MSC RPC Broker	1	$$GETVAR^CIANBUTL
Taxonomy	1	$$ICD^ATXAPI

Package	Total	Caller Graph
GUI Objects	5	BGOCPTP2 BGOCPTPR BGOVIMM BGOVIMM2 BGOVSK

Entry Points

Name	Comments	DBIA/ICR reference
DEL(RET,INP)	;EP
GET(RET,INP)	;EP
ADDCPT(CPT,ICD,VSIT,DFN,PRV)	;EP
MODGBL()
TRANBLD
IMMCK(RET,CPTIEN)	;EP
PRCBLD(SRCH)
G0
FNUM()
SET(RET,INP)	;EP
GETIEN(RET,CPT)	;EP
DENBLD
ARRAY
GETPRIN(VIEN)	;
SETQTY(RET,INP)	;EP
CHKCPT(CPTIEN,ACTDT,IEN)	;EP
SETDX(RET,INP)	;EP
G1
CPTBLD(SRCH)	;EP- Find CPTs
SETPRIN(VIEN,VCPTIEN)	;
TIUSTR()	;EP
SETVAL(RET,IEN,VAL,FLD)	;
INIT(X)

External References

Name	Field # of Occurrence
$$ICD^ATXAPI	CPTBLD+32, PRCBLD+29
$$ISLOCKED^BEHOENCX	ARRAY+19
$$VSTR2VIS^BEHOENCX	TIUSTR+4
$$CHKVISIT^BGOUTL	SET+40
$$CVTDATE^BGOUTL	SET+7
$$DELETE^BGOUTL	SET+76
$$ERR^BGOUTL	DEL+3, DEL+14, CHKCPT+8, CHKCPT+9, CHKCPT+13, CHKCPT+14, CHKCPT+18, SET+27
$$FMTDATE^BGOUTL	ARRAY+8
$$MAKEHIST^BGOUTL	SET+38
$$TMPGBL^BGOUTL	GET+3
$$UPDATE^BGOUTL	SETVAL+3, SET+75, SETPRIN+5, ADDCPT+10
$$AICD^BGOUTL2	PRCBLD+12, PRCBLD+35, ARRAY+13
$$CSVACT^BGOUTL2	MODGBL, CHKCPT+4
$$FNDNARR^BGOUTL2	SET+17
VFDEL^BGOUTL2	DEL+15
VFEVT^BGOUTL2	SETVAL+4, SET+94, ADDCPT+11
VFNEW^BGOUTL2	SET+44
$$GETVAR^CIANBUTL	TIUSTR+2
$$ICDDX^ICDCODE	ARRAY+14
$$ICDOP^ICDCODE	PRCBLD+36
$$ICDDX^ICDEX	ARRAY+13
$$ICDOP^ICDEX	PRCBLD+12, PRCBLD+35
$$CODEN^ICPTCOD	CHKCPT+6
$$CPT^ICPTCOD	CHKCPT+7
$$FMDIFF^XLFDT	CHKCPT+18
$$NOW^XLFDT	SET+9, ADDCPT+8
$$UP^XLFSTR	GET+10

Used in RPC

RPC Name	Call Tags
BGOVCPT GET	GET
BGOVCPT GETIEN	GETIEN
BGOVCPT SET	SET
BGOVCPT DEL	DEL
BGOVCPT SETQTY	SETQTY
BGOVCPT SETDX	SETDX
BGOVCPT IMMCK	IMMCK

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX("B"	CPTBLD+29, PRCBLD+29
^AUPNVCPT - [#9000010.18]	CPTBLD+2, CPTBLD+23, CPTBLD+24, CPTBLD+25, PRCBLD+24, DEL+8, SET+59, SET+61, GETPRIN+3
^AUPNVCPT("AD"	G1+2, PRCBLD+24, GETPRIN+3, SETPRIN+3
^AUPNVCPT("C"	G0+1
^AUPNVDEN - [#9000010.05]	DENBLD+2, DENBLD+13
^AUPNVDEN("AC"	G0+3
^AUPNVDEN("AD"	G1+1
^AUPNVPRC - [#9000010.08]	PRCBLD+2, PRCBLD+10, DEL+12
^AUPNVPRC("AC"	G0+5
^AUPNVPRC("AD"	G1+4, DEL+11
^AUPNVSIT - [#9000010]	CPTBLD+13, PRCBLD+7, ARRAY+1, ARRAY+5, ARRAY+6, SET+8, SET+28
^AUPNVTC - [#9000010.33]	TRANBLD+1, TRANBLD+9
^AUPNVTC("AD"	G1+3
^AUTNPOV - [#9999999.27]	CPTBLD+8, ARRAY+9
^AUTTADA - [#9999999.31]	DENBLD+4
^AUTTIMM - [#9999999.14]	IMMCK+3, IMMCK+4
^AUTTLOC - [#9999999.06]	ARRAY+2, ARRAY+3
^BCMTCF(	TRANBLD+5, TRANBLD+7
^DIC(4 - [#4]	ARRAY+4
^ICD0 - [#80.1]	PRCBLD+13
^ICPT - [#81]	CPTBLD+7, CPTBLD+26, CPTBLD+38, CPTBLD+41, CPTBLD+42, DENBLD+8, DENBLD+10, DEL+9, CHKCPT+12
^ICPT("B"	DENBLD+6, SET+30
^ICPT("BA"	GETIEN+1
^ICPT("I"	PRCBLD+22
^TMP("BGOVCPT"	CPTBLD+10*
^VA(200 - [#200]	ARRAY+15

Label References

Name	Line Occurrences
$$CHKCPT	SET+35
$$FNUM	SETVAL+2, SETVAL+4, SET+3, SETPRIN+4, ADDCPT+2, ADDCPT+11
$$GETPRIN	SET+47
$$MODGBL	ARRAY+16, ARRAY+17
$$SETPRIN	SET+78
ARRAY	CPTBLD+39, DENBLD+14, TRANBLD+10, PRCBLD+38
CPTBLD	G0+1, G1+2
DEL	DEL+12
DENBLD	G0+3, G1+1
G0	GET+13
G1	GET+13
GET	TIUSTR+6
INIT	CPTBLD+1, DENBLD+1, TRANBLD, PRCBLD+1
PRCBLD	G0+5, G1+4
SETVAL	SETQTY+1, SETDX+1
TRANBLD	G1+3

Naked Globals

Name	Field # of Occurrence
^(	IMMCK+3, CPTBLD+23, CPTBLD+24
^(0	IMMCK+3
^(21	ARRAY+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTDT	CHKCPT~, CHKCPT+3, CHKCPT+7, CHKCPT+17, CHKCPT+18
ADA	DENBLD~, DENBLD+4*, DENBLD+5, DENBLD+6
APCDALVR	SET+1~
APCDOVR	SET+2~, SET+43*
BGO	GET+1~
BHSCPT2	GET+2~
CHKDT	SET+2~, SET+33, SET+34, SET+35
CNT	GET+1~, GET+4, G0+1, G0+3, G0+5, G1+1, G1+2, G1+3, G1+4, CPTBLD+9 , CPTBLD+10, ARRAY+18*, ARRAY+19
COD	GET+1~
CODE	GET+2~, CPTBLD+26, CPTBLD+27, CPTBLD+30, CPTBLD+32, CPTBLD+33, CPTBLD+34, CPTBLD+35, CPTBLD+36, CPTBLD+37 , CPTBLD+43, DENBLD+8, DENBLD+9, TRANBLD+5, PRCBLD+12, PRCBLD+13*, PRCBLD+14, ARRAY+19
CPT	GETIEN~, GETIEN+1, GET+2~, INIT*, ADDCPT~, ADDCPT+3
CPTIEN	IMMCK~, IMMCK+3, GET+2~, CPTBLD+5, CPTBLD+6, CPTBLD+7, CPTBLD+11, CPTBLD+26, CPTBLD+38, CPTBLD+41 , CPTBLD+42, DENBLD+6, DENBLD+7, DENBLD+8, DENBLD+10, INIT, ARRAY+19, DEL+7~, DEL+8, DEL+9 , CHKCPT~, CHKCPT+6, CHKCPT+7, CHKCPT+12
DELDT	CHKCPT+11~, CHKCPT+15*, CHKCPT+16, CHKCPT+18, SET+2~
DFN	TIUSTR+4, TIUSTR+6, GET+1~, GET+5, GET+6, G0+1, G0+3, G0+5, SET+1~, SET+6 , SET+38, SET+40, ADDCPT~, ADDCPT+4
DT	CHKCPT+3, CHKCPT+17, SET+43
DUZ	SET+67, SET+71, SET+74, ADDCPT+9
DUZ("AG"	CPTBLD+18, MODGBL, SET+54
DX	GET+1~, CPTBLD+15, PRCBLD+8, INIT, ARRAY+12, ARRAY+13, ARRAY+14, ARRAY+19, SET+1~, SET+11 , SET+52
EVNTDT	SET+1~, SET+7, SET+8, SET+9*, SET+33, SET+34, SET+38, SET+43
F	ARRAY~, ARRAY+1*, ARRAY+2, ARRAY+3
FAC	ARRAY~, ARRAY+2*, ARRAY+19
FACNAM	ARRAY~, ARRAY+3, ARRAY+4, ARRAY+5*, ARRAY+19
FDA	SETVAL+1~, SETVAL+3, SET+2~, SET+49, SET+50, SET+51, SET+52, SET+53, SET+55, SET+56 , SET+64, SET+65, SET+67, SET+70, SET+71, SET+73, SET+74, SET+75, SETPRIN+1~, SETPRIN+5 , ADDCPT+1~, ADDCPT+2, ADDCPT+3, ADDCPT+4, ADDCPT+5, ADDCPT+6, ADDCPT+7, ADDCPT+8, ADDCPT+9, ADDCPT+10
FDA(	SETVAL+2, SET+49, SET+60, SET+62, SETPRIN+4, ADDCPT+2
FLD	SETVAL~, SETVAL+2
FNUM	DEL+1~, DEL+13, DEL+14, DEL+15, SET+2~, SET+3, SET+44, SET+49, SET+76, SET+94
FORMAT	GET+1~, GET+11*, CPTBLD+4
HIST	SET+1~, SET+23, SET+27, SET+29, SET+37
ICD	ADDCPT~, ADDCPT+6
ICD0FLG	SET+2~
ICD0IEN	GET+1~, PRCBLD+4, PRCBLD+5, PRCBLD+12, PRCBLD+13, PRCBLD+20, PRCBLD+22, PRCBLD+29, PRCBLD+35, PRCBLD+36 , INIT, ARRAY+19, DEL+7~, DEL+8, DEL+9, DEL+12
ICDARRY	GET+2~
ICDARRY(	CPTBLD+43*, PRCBLD+19, PRCBLD+20
ICDCNT	GET+2~, GET+4*
ICODE	PRCBLD~, PRCBLD+19*, PRCBLD+20
IEN	GET+1~, GET+12, G0+1, G0+3, G0+5, G1+1, G1+2, G1+3, G1+4, CPTBLD+2 , CPTBLD+23, CPTBLD+24, CPTBLD+25, DENBLD+2, DENBLD+13, TRANBLD+1, TRANBLD+9, PRCBLD+2, PRCBLD+10, ARRAY+19 , DEL+1~, DEL+2, DEL+3, DEL+8, DEL+15, SETVAL~, SETVAL+2, SETVAL+4, CHKCPT~, CHKCPT+2 , CHKCPT+6, SET+2~, SET+75, ADDCPT+1~, ADDCPT+10
IEN(1	ADDCPT+11
IEN(2	SET+63*
IEN(3	SET+63*
INP	GET~, GET+5, GET+7, GET+9, GET+10, GET+11, DEL~, DEL+2, DEL+4, SETQTY~ , SETQTY+1, SETDX~, SETDX+1, SET~, SET+4, SET+5, SET+6, SET+7, SET+10, SET+11 , SET+12, SET+13, SET+14, SET+15, SET+17, SET+20, SET+21, SET+22, SET+23, SET+26
ITEMNAME	GET+2~, CPTBLD+38, DENBLD+10, TRANBLD+7, PRCBLD+35, PRCBLD+36, INIT, ARRAY+10, ARRAY+19
LOCIEN	SET+1~, SET+21*, SET+38
MATCH	GET+2~
MAX	GET+1~, GET+7, GET+8, G0+1, G0+3, G0+5, G1+1, G1+2, G1+3, G1+4
MOD1	GET+1~, CPTBLD+19, CPTBLD+23, TRANBLD+8, INIT, ARRAY+16, ARRAY+19, SET+1~, SET+12, SET+55 , SET+59, SET+60
MOD2	GET+1~, CPTBLD+20, CPTBLD+24, INIT, ARRAY+17, ARRAY+19, SET+1~, SET+20*, SET+56, SET+61 , SET+62
NARR	SET+1~, SET+19*, SET+51
NODUP	SET+2~, SET+26*, SET+44
OUTLOC	SET+1~, SET+22*, SET+38
PNAR	GET+2~, CPTBLD+7, CPTBLD+8, CPTBLD+10, CPTBLD+14, PRCBLD+9, INIT, ARRAY+9, ARRAY+10*, ARRAY+19
PRCIEN	DEL+7~, DEL+10, DEL+11, DEL+12
PRIM	GET+2~, CPTBLD+17, INIT, ARRAY+19
PRIN	SET+1~, SET+14, SET+46, SET+48, SET+53, SET+78
PRV	GET+2~, CPTBLD+25, DENBLD+13, TRANBLD+9, PRCBLD+10, INIT, ARRAY+15, ARRAY+19, SET+1~, SET+13* , ADDCPT~, ADDCPT+9
QTY	GET+1~, CPTBLD+16, INIT, ARRAY+19, SET+1~, SET+10*, SET+64
REC	GET+1~, CPTBLD+2, CPTBLD+3, CPTBLD+5, CPTBLD+8, CPTBLD+11, CPTBLD+12, CPTBLD+14, CPTBLD+15, CPTBLD+16 , CPTBLD+17, CPTBLD+19, CPTBLD+20, DENBLD+2, DENBLD+3, DENBLD+4, DENBLD+11, TRANBLD+1, TRANBLD+2, TRANBLD+3 , TRANBLD+6, TRANBLD+8, PRCBLD+2, PRCBLD+3, PRCBLD+4, PRCBLD+6, PRCBLD+8, PRCBLD+9
RET	GETIEN~, GETIEN+1, IMMCK~, IMMCK+2, IMMCK+4, GET~, GET+3, ARRAY+19, DEL~, DEL+2* , DEL+3, DEL+6, DEL+11, DEL+12, DEL+14, DEL+15, SETQTY~, SETQTY+1, SETDX~, SETDX+1 , SETVAL~, SETVAL+3, SETVAL+4, CHKCPT+1~, CHKCPT+2, CHKCPT+8, CHKCPT+9, CHKCPT+13, CHKCPT+14, CHKCPT+18* , CHKCPT+19, SET~, SET+3, SET+17, SET+18, SET+19, SET+27, SET+35, SET+36, SET+37 , SET+38, SET+39, SET+40, SET+41, SET+42, SET+44, SET+45, SET+75, SET+76, SET+77 , SET+78, SET+94, SET+95, ADDCPT+1~, ADDCPT+10, ADDCPT+11, ADDCPT+12
SCODE	GET+2~, CPTBLD+42*, CPTBLD+43
SKIP	PRCBLD~, PRCBLD+16, PRCBLD+20, PRCBLD+22, PRCBLD+24, PRCBLD+25, PRCBLD+26, PRCBLD+27, PRCBLD+34*
SRCH	CPTBLD~, CPTBLD+32, PRCBLD~, PRCBLD+29
TAX	GET+2~, CPTBLD+29*, CPTBLD+32
TRANIEN	GET+1~, TRANBLD+3, TRANBLD+4, TRANBLD+5, TRANBLD+7, INIT, ARRAY+19
TYP	GET+1~, GET+10, G0, G0+2, G0+4, G1, CPTBLD+30, CPTBLD+32, CPTBLD+33, CPTBLD+34 , CPTBLD+35, CPTBLD+36, CPTBLD+37, PRCBLD+26, DEL+1~, DEL+4, DEL+5*, DEL+6, DEL+13, DEL+14
TYPE	SET+1~, SET+5, SET+30, SET+35, SET+44, SET+50
U	IMMCK+3, IMMCK+4, GET+7, GET+9, GET+10, GET+11, CPTBLD+5, CPTBLD+7, CPTBLD+8, CPTBLD+11 , CPTBLD+12, CPTBLD+13, CPTBLD+14, CPTBLD+15, CPTBLD+16, CPTBLD+17, CPTBLD+19, CPTBLD+20, CPTBLD+23, CPTBLD+24 , CPTBLD+25, CPTBLD+26, CPTBLD+38, DENBLD+4, DENBLD+8, DENBLD+10, DENBLD+11, DENBLD+13, TRANBLD+3, TRANBLD+5 , TRANBLD+6, TRANBLD+7, TRANBLD+8, TRANBLD+9, PRCBLD+4, PRCBLD+6, PRCBLD+7, PRCBLD+8, PRCBLD+9, PRCBLD+10 , PRCBLD+12, PRCBLD+13, PRCBLD+20, PRCBLD+35, PRCBLD+36, ARRAY+1, ARRAY+2, ARRAY+3, ARRAY+4, ARRAY+5 , ARRAY+6, ARRAY+9, ARRAY+13, ARRAY+14, ARRAY+15, ARRAY+16, ARRAY+17, ARRAY+19, DEL+4, DEL+8 , DEL+13, SETQTY+1, SETDX+1, CHKCPT+9, CHKCPT+14, CHKCPT+15, SET+5, SET+6, SET+7, SET+8 , SET+10, SET+11, SET+12, SET+13, SET+14, SET+15, SET+17, SET+20, SET+21, SET+22 , SET+23, SET+26, SET+28, GETPRIN+3
V	ARRAY~, ARRAY+6*, ARRAY+7, ARRAY+8
V2	GET+2~, CPTBLD+13*, CPTBLD+43
V3	GET+2~, PRCBLD+7*, PRCBLD+12, PRCBLD+20, PRCBLD+35, PRCBLD+36
VAL	SETVAL~, SETVAL+2
VCAT	SET+2~, SET+28*, SET+29
VCPT	GETPRIN+1~, GETPRIN+2, GETPRIN+3, GETPRIN+4, SETPRIN+1~, SETPRIN+2, SETPRIN+3, SETPRIN+4
VCPTIEN	SETPRIN~, SETPRIN+4
VDATE	ARRAY~, ARRAY+8*, ARRAY+13, ARRAY+14, ARRAY+19
VF	GET+2~, INIT*, ARRAY+19
VFIEN	SET+1~, SET+15, SET+16, SET+42, SET+45, SET+48, SET+49, SET+59, SET+60, SET+61 , SET+62, SET+76, SET+78, SET+94, SET+95
VFNEW	SET+2~, SET+16*, SET+69, SET+76, SET+94
VIEN	GET+1~, CPTBLD+12, CPTBLD+13, DENBLD+11, DENBLD+12, TRANBLD+6, PRCBLD+6, PRCBLD+7, INIT, ARRAY+1 , ARRAY+5, ARRAY+6, ARRAY+19, DEL+7~, DEL+8, DEL+11, SET+1~, SET+4, SET+8, SET+27 , SET+28, SET+38, SET+39, SET+40, SET+44, SET+47, SET+78, GETPRIN~, GETPRIN+3, SETPRIN~ , SETPRIN+3
VISITIEN	GET+1~, GET+9*, GET+13, G1+1, G1+2, G1+3, G1+4, PRCBLD+18, PRCBLD+24
VSIT	ADDCPT~, ADDCPT+5
X	TIUSTR+1~, TIUSTR+2, TIUSTR+3, TIUSTR+4, TIUSTR+5, TIUSTR+6, TIUSTR+7, TIUSTR+8, IMMCK+1~, IMMCK+2* , IMMCK+3, IMMCK+4, GET+2~, CPTBLD+22~, CPTBLD+23, CPTBLD+24, PRCBLD~, PRCBLD+16, PRCBLD+22, PRCBLD+24 , INIT~, DEL+7~, DEL+8, CHKCPT+1~, CHKCPT+7, CHKCPT+8, CHKCPT+9, CHKCPT+12, CHKCPT+13, CHKCPT+14 , CHKCPT+15, SET+1~, SET+47*, SET+48
Y	TIUSTR+1~, TIUSTR+7, TIUSTR+9, PRCBLD~, PRCBLD+23, PRCBLD+24*
Z	GET+2~

Customize PDF page

Package: GUI Objects

Routine: BGOVCPT

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Used in RPC

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: