Routine: BGOCPTP3

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
GUI Objects	5	ICD10^BGOCPTP3 SET^BGOPROB ($$ERR,$$UPDATE)^BGOUTL $$AICD^BGOUTL2 (CHECK,SET)^BGOVPOV
Kernel	4	(,HOME)^%ZIS ^%ZTLOAD $$NOW^XLFDT (EDIT,RESCH)^XUTMOPT
VA Fileman	3	$$FIND1^DIC $$GET1^DIQ ^DIR
DRG Grouper	2	($$ICDDX,$$ICDOP)^ICDCODE ($$CODEN,$$ICDDX,$$ICDOP,$$IMP)^ICDEX
IHS Patient	1	$$CONC^AUPNSICD

Package	Total	Caller Graph
GUI Objects	2	BGOCPTP3 BGOVPOV

Package

Total

Caller Graph

GUI Objects

BGOCPTP3 BGOVPOV

Entry Points

Name	Comments	DBIA/ICR reference
HDR2	;EP
RPT	; EP Report to return codes that are unmapped to SNOMED or are still ICD9 procedure codes
ICD10	;EP Entry to update SNOMED ICD associations
TMPGBL(X)	;EP
NOQUE	; Call report directly
STORE(RET,INP)	;EP Store POV and possibly problem
DEVICE	; Device handling ; Call with: ZTRTN
AUTOQ	;Queue this item to run
QUE	; Queue output
CHANGE	; Update and change all SNOMED ICD associations over to ICD-10 codes
SNOMED	;If SNOMED fields are not filled in add this to the report list
ADDPROB(DFN,SNO,DESC,ICD,FAC,SPEC,STAT)	;Add the problem is it isn't in the list
SNOUP	;Update the association
PROC	;If procedures is ICD-9 code add to report list
HDR(TYP)	;PRINT HEADER
OUT	;Run the report

External References

Name	Field # of Occurrence
^%ZIS	DEVICE+3
HOME^%ZIS	QUE+7
^%ZTLOAD	QUE+5
$$CONC^AUPNSICD	STORE+16, SNOUP+6
ICD10^BGOCPTP3	CHANGE+1
SET^BGOPROB	ADDPROB+5
$$ERR^BGOUTL	STORE+28
$$UPDATE^BGOUTL	SNOUP+16
$$AICD^BGOUTL2	STORE+24, SNOMED+5, PROC+5
CHECK^BGOVPOV	STORE+29
SET^BGOVPOV	STORE+45, STORE+46
$$FIND1^DIC	AUTOQ+5, AUTOQ+6
$$GET1^DIQ	STORE+10, STORE+40, SNOMED+4, PROC+4, SNOUP+10
^DIR	RPT+8
$$ICDDX^ICDCODE	SNOMED+9, SNOMED+10
$$ICDOP^ICDCODE	PROC+7
$$CODEN^ICDEX	STORE+25, SNOUP+9
$$ICDDX^ICDEX	SNOMED+6, SNOMED+7, SNOUP+11, SNOUP+12
$$ICDOP^ICDEX	PROC+6
$$IMP^ICDEX	AUTOQ+1, ICD10+2
$$NOW^XLFDT	SNOMED+6, SNOMED+7, SNOMED+9, SNOMED+10, PROC+6, PROC+7, AUTOQ+2, ICD10+3, SNOUP+11, SNOUP+12
EDIT^XUTMOPT	AUTOQ+7, AUTOQ+10
RESCH^XUTMOPT	AUTOQ+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: RPT+2
Function Call: WRITE	Prompt: !,"Unconverted ICD9 diagnosis or procedure codes",!! Line Location: RPT+3
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled!") Line Location: QUE+5
Function Call: WRITE	Prompt: @IOF Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Unconverted codes report for "_DTYP,! Line Location: HDR+4
Function Call: WRITE	Prompt: !,"Superbill",?20,"CPT IEN",?30,"Code",?40,"ICD",?50,"Text" Line Location: HDR+5
Function Call: WRITE	Prompt: ! Line Location: HDR+6
Function Call: WRITE	Prompt: "-" Line Location: HDR+6
Function Call: WRITE	Prompt: ! Line Location: HDR+7
Function Call: WRITE	Prompt: @IOF Line Location: SNOMED+11
Function Call: WRITE	Prompt: @IOF Line Location: PROC+11
Function Call: WRITE	Prompt: !,"Implementation date has not occurred. Cannot update items" Line Location: ICD10+3
Function Call: WRITE	Prompt: @IOF Line Location: HDR2+2
Function Call: WRITE	Prompt: !,"List of ICD-9 codes updated to ICD-10 for Super Bill Associations",! Line Location: HDR2+3
Function Call: WRITE	Prompt: !,"Superbill",?20,"CPT IEN",?30,"Code",?40,"ICD",?50,"Text" Line Location: HDR2+4
Function Call: WRITE	Prompt: ! Line Location: HDR2+5
Function Call: WRITE	Prompt: "-" Line Location: HDR2+5
Function Call: WRITE	Prompt: ! Line Location: HDR2+6
Function Call: WRITE	Prompt: @IOF Line Location: SNOUP+18
Routine Call	%ZIS Line Location: QUE+7
Routine Call	DIC Line Location: AUTOQ+5 AUTOQ+6
Routine Call	DIR Line Location: RPT+8
Routine Call	%ZIS Line Location: DEVICE+3

RPC Name	Call Tags
BGOCPTP3 STORE	STORE

FileNo	Call Tags
^DIC(19 - [#19]	FIND1^DIC
^DIC(19.2 - [#19.2]	FIND1^DIC
^ICPT - [#81]	GET1^DIQ
^AUPNVSIT - [#9000010]	GET1^DIQ
^AUPNPROB - [#9000011]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB("APCT"	STORE+39
^AUPNVPOV - [#9000010.07]	STORE+34
^AUPNVPOV("AD"	STORE+33
^AUPNVSIT - [#9000010]	STORE+12
^BGOCPTPR - [#90362.31]	OUT+3, OUT+4, OUT+6, OUT+7, OUT+8, OUT+10, OUT+11, SNOMED+2, PROC+2, ICD10+5 , ICD10+6, ICD10+8, ICD10+9, ICD10+10, ICD10+12, ICD10+13, SNOUP+2, SNOUP+3
^ICD9("AB"	STORE+27
^TMP("BGOMAP"	TMPGBL+1!

Name	Line Occurrences
$$ADDPROB	STORE+42
@(	NOQUE+1
DEVICE	RPT+11
HDR	OUT+2, SNOMED+11, PROC+11
HDR2	ICD10+4, SNOUP+18
PROC	OUT+13
QUE	DEVICE+4
SNOMED	OUT+12
SNOUP	ICD10+14

Name	Field # of Occurrence
^($J	TMPGBL+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	QUE+1~
%ZIS	DEVICE+2~, DEVICE+3*
ASSOC	OUT+1~, OUT+11, OUT+12, OUT+13, SNOMED+3, PROC+3, ICD10+13, ICD10+14
BGORPT	RPT+1~, RPT+9*, OUT+2, OUT+12, OUT+13, ICD10+14
CANDUP	STORE+1~
CNAME	OUT+1~, OUT+8, ICD10+1~, ICD10+10
CPT	OUT+1~, OUT+7, SNOMED+4, PROC+4, ICD10+1~, ICD10+9, SNOUP+10
CPTCODE	SNOMED+1~, SNOMED+4, SNOMED+12, PROC+1~, PROC+4, PROC+12, SNOUP+1~, SNOUP+10*, SNOUP+19
DATA	ADDPROB+1~, ADDPROB+5, ADDPROB+6, PROC+6, PROC+7, PROC+8, PROC+9, PROC+10
DEL	STORE+2~, STORE+40*, STORE+41
DESC	STORE+1~, STORE+18*, STORE+42, STORE+44, ADDPROB~, ADDPROB+4
DFN	STORE+1~, STORE+3*, STORE+4, STORE+29, STORE+39, STORE+42, STORE+44, ADDPROB~, ADDPROB+5
DIR	RPT+1~
DIR("?"	RPT+7*
DIR("A"	RPT+5*
DIR("B"	RPT+6*
DIR(0	RPT+4*
DT	AUTOQ+1, ICD10+2
DTYP	HDR+1~, HDR+2*, HDR+4, HDR2+1~
FAC	STORE+1~, STORE+10*, STORE+42, ADDPROB~, ADDPROB+4
>> FDA	SNOUP+14*, SNOUP+15, SNOUP+16
>> FDA(	SNOUP+14
FOUND	STORE+1~, STORE+32, STORE+33, STORE+34, STORE+35
I	OUT+1~, OUT+3, OUT+4, OUT+6, OUT+7, OUT+8, OUT+10, OUT+11, SNOMED+2, PROC+2 , ICD10+1~, ICD10+5, ICD10+6, ICD10+8, ICD10+9, ICD10+10, ICD10+12, ICD10+13, SNOUP+2, SNOUP+3 , SNOUP+13
ICD	STORE+1~, STORE+9, STORE+21, STORE+25, STORE+27, ADDPROB~, ADDPROB+4, SNOUP+1~, SNOUP+7, SNOUP+8 , SNOUP+9
ICD2	STORE+1~, STORE+19, STORE+20, STORE+21
ICDCODE	SNOMED+1~, SNOMED+7, SNOMED+10, SNOMED+12, PROC+1~, PROC+10, PROC+12, SNOUP+1~, SNOUP+12, SNOUP+19
ICDIEN	STORE+1~, STORE+25, STORE+27, STORE+28, STORE+29, STORE+34, SNOMED+1~, SNOMED+3, SNOMED+6, SNOMED+7 , SNOMED+9, SNOMED+10, PROC+1~, PROC+3, PROC+6, PROC+7, SNOUP+9*, SNOUP+11, SNOUP+12
>> IEN	SNOUP+16
>> IENS	SNOUP+13*, SNOUP+14
IMP	AUTOQ+1, AUTOQ+2, ICD10+1~, ICD10+2, ICD10+3
INP	STORE~, STORE+3, STORE+5, STORE+7, STORE+9, STORE+11, STORE+13
IO("Q"	DEVICE+4, QUE+3!
IOF	RPT+2, HDR+3, SNOMED+11, PROC+11, HDR2+2, SNOUP+18
ION	QUE+4
IOSL	SNOMED+11, PROC+11, SNOUP+18
IOST	HDR+3, SNOMED+11, PROC+11, HDR2+2, SNOUP+18
J	OUT+1~, OUT+6, OUT+7, OUT+8, OUT+10, OUT+11, SNOMED+2, SNOMED+12, PROC+2, PROC+12 , ICD10+1~, ICD10+8, ICD10+9, ICD10+10, ICD10+12, ICD10+13, SNOUP+2, SNOUP+3, SNOUP+13, SNOUP+19
>> K	OUT+10, OUT+11, SNOMED+2, PROC+2, ICD10+12, ICD10+13, SNOUP+2, SNOUP+3, SNOUP+13
LIN	HDR+1~, HDR+6, HDR2+1~, HDR2+5
LIST	ADDPROB+1~, ADDPROB+5
LIST(0	ADDPROB+4*
MATCH	STORE+2~, STORE+38, STORE+39, STORE+41
NAME	OUT+1~, OUT+4, SNOMED+12, PROC+12, ICD10+1~, ICD10+6, SNOUP+19
>> NEWCODE	SNOUP+15
NORM	STORE+2~, STORE+13*, STORE+45, STORE+46
PCPT	OUT+1~, OUT+9, ICD10+1~, ICD10+11
PNAME	OUT+1~, OUT+5, ICD10+1~, ICD10+7
>> POP	DEVICE+3
PROB	STORE+1~, STORE+39*, STORE+40, STORE+41
PRV	STORE+1~, STORE+11*, STORE+44
RET	STORE~, STORE+28, STORE+29, STORE+30, STORE+35, STORE+36, STORE+45, STORE+46
>> RET2	SNOUP+16*, SNOUP+17
SNO	STORE+7, STORE+8, STORE+16, STORE+29, STORE+39, STORE+42, STORE+44, ADDPROB~, ADDPROB+4, SNOUP+1~ , SNOUP+3, SNOUP+6
SNODATA	STORE+2~, STORE+22, STORE+42, STORE+44, SNOUP+6, SNOUP+7
SNOMED	STORE+1~
SPEC	ADDPROB~, ADDPROB+5
SPROB	STORE+2~, STORE+38, STORE+41, STORE+42*, STORE+43, STORE+44
STAT	STORE+2~, STORE+17, STORE+42, ADDPROB~, ADDPROB+3, ADDPROB+4
STRING	STORE+1~, STORE+44*, STORE+45, STORE+46
TXT	SNOMED+1~, SNOMED+6, SNOMED+9, SNOMED+12, PROC+1~, PROC+9, PROC+12, SNOUP+1~, SNOUP+11, SNOUP+19
TYP	HDR~, HDR+2
TYPE	STORE+2~, STORE+27
U	STORE+3, STORE+5, STORE+7, STORE+9, STORE+11, STORE+13, STORE+17, STORE+18, STORE+19, STORE+22 , STORE+29, STORE+34, STORE+44, ADDPROB+4, OUT+4, OUT+7, OUT+8, OUT+11, SNOMED+2, SNOMED+6 , SNOMED+7, SNOMED+9, SNOMED+10, PROC+2, PROC+8, PROC+9, PROC+10, ICD10+6, ICD10+9, ICD10+10 , ICD10+13, SNOUP+2, SNOUP+3, SNOUP+7, SNOUP+11, SNOUP+12
VDT	STORE+1~, STORE+12*, STORE+29
VIEN	STORE+1~, STORE+5*, STORE+6, STORE+10, STORE+12, STORE+33, STORE+44, ADDPROB+5
VPOV	STORE+1~, STORE+33*, STORE+34
X	STORE+1~, STORE+16*, STORE+17, STORE+18, STORE+19, STORE+22, TMPGBL~
Y	RPT+1~, RPT+9
ZTDESC	QUE+4*, QUE+6!
ZTDTH	QUE+1~, QUE+6!
ZTIO	QUE+1~, QUE+4*, QUE+6!
ZTRTN	RPT+1~, RPT+10*, NOQUE+1, QUE+2, QUE+6!
ZTSAVE	QUE+1~, QUE+6!
ZTSAVE("BGORPT"	QUE+3*
ZTSK	QUE+1~, QUE+5, QUE+6!

Customize PDF page

Package: GUI Objects

Routine: BGOCPTP3

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: