Routine: BMCFUNC

Package	Total	Call Graph
Lexicon Utility	3	^LEXA1 CONFIG^LEXSET ($$CSYS,$$IMPDATE)^LEXU
VA Fileman	3	^%DTC ^DIE ^DIR
Referred Care Information System	2	DIE^BMCFMC $$AVDOS^BMCRLU
DRG Grouper	1	$$CODEN^ICDEX
IHS Patient	1	^AUPNPAT

Package

Total

Call Graph

Lexicon Utility

^LEXA1 CONFIG^LEXSET ($$CSYS,$$IMPDATE)^LEXU

VA Fileman

^%DTC ^DIE ^DIR

Referred Care Information System

DIE^BMCFMC $$AVDOS^BMCRLU

DRG Grouper

$$CODEN^ICDEX

IHS Patient

^AUPNPAT

Package	Total	Caller Graph
Referred Care Information System	1	BMCFIXVPOV

Package

Total

Caller Graph

Referred Care Information System

BMCFIXVPOV

Name	Comments	DBIA/ICR reference
GETCODE	;
POV	;EP
BMCDIE	;
PROCESS	;
XIT	;
CONT	;
SETDEF	;SET DEFAULT OF .9999

Name	Field # of Occurrence
^%DTC	BMCDIE+4
^AUPNPAT	BMCDIE+3
DIE^BMCFMC	BMCDIE+25
$$AVDOS^BMCRLU	BMCDIE+13
^DIE	BMCDIE+32
^DIR	CONT+2
$$CODEN^ICDEX	BMCDIE+21
^LEXA1	BMCDIE+18
CONFIG^LEXSET	BMCDIE+17
$$CSYS^LEXU	BMCDIE+16
$$IMPDATE^LEXU	BMCDIE+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"All done with the ",$P(^DIC(BMCFILE,0),U)," file",! Line Location: POV+5
Function Call: WRITE	Prompt: !!,"ERROR -- UNCODED DX IS NOT IN ICD DIAGNOSIS FILE, NOTIFY YOUR SUPERVISOR" Line Location: PROCESS+1
Function Call: WRITE	Prompt: !!,"FILE DOES NOT EXIST -- NOTIFY YOUR SUPERVISOR" Line Location: PROCESS+3
Function Call: WRITE	Prompt: !,"ERROR IN ^DIC -- NOTIFY PROGRAMMER" Line Location: PROCESS+4
Function Call: WRITE	Prompt: ?10,!!,"*There are no Uncoded DX codes to change.*" Line Location: PROCESS+8
Function Call: WRITE	Prompt: !!,"Searching the ",$P(^DIC(BMCFILE,0),U)," File",! Line Location: PROCESS+10
Function Call: WRITE	Prompt: !! Line Location: CONT+1
Function Call: WRITE	Prompt: ! Line Location: CONT+5
Function Call: WRITE	Prompt: !,"ERROR IN GLOBAL -- NOTIFY PROGRAMMER - PATIENT OR VISIT DFN MISSING" Line Location: BMCDIE+2
Function Call: WRITE	Prompt: !,"NAME: ",$P(^DPT(AUPNPAT,0),U)," DOB: ",BMCDOB," SEX: ",AUPNSEX," HRN: ",$S(BMCHRN]"":BMCHRN,1:"NONE") Line Location: BMCDIE+7
Function Call: WRITE	Prompt: !,"Referral: ",$P(^BMCREF(BMCRIEN,0),U,2)," DX NAR: ",$P($G(^BMCREF(BMCRIEN,12)),U) Line Location: BMCDIE+8
Function Call: WRITE	Prompt: !,"DATE OF VISIT: " Line Location: BMCDIE+9
Function Call: WRITE	Prompt: !! Line Location: BMCDIE+18
Function Call: WRITE	Prompt: !,"Unable to add DX code." Line Location: BMCDIE+22
Routine Call	DIE Line Location: BMCDIE+32
Routine Call	DIR Line Location: CONT+2

FileNo	Call Tags
^BMCREF - [#90001]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	POV+4
^AUPNPAT - [#9000001]	BMCDIE+6
^BMCREF - [#90001]	BMCDIE+4, BMCDIE+8
^DD("DD"	BMCDIE+5
^DIC - [#1]	POV+5, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+10
^DPT - [#2]	BMCDIE+7
^ICD9("AB"	POV+4

Name	Line Occurrences
BMCDIE	PROCESS+11
CONT	PROCESS+11
PROCESS	POV+4
XIT	POV+6, PROCESS+1, PROCESS+3, PROCESS+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AUPNDAYS	XIT+1!, BMCDIE+4*
AUPNDOB	XIT+1!, BMCDIE+4, BMCDIE+5
AUPNDOD	XIT+1!
AUPNPAT	XIT+1!, BMCDIE+6, BMCDIE+7
AUPNSEX	XIT+1!, BMCDIE+7
BMC999	POV+4*, XIT+1!, PROCESS+1
BMCCAT	XIT+1!
BMCCONT	POV+3, POV+4, XIT+1!, PROCESS+11, CONT+4*
BMCDFN	XIT+1!, PROCESS+2, PROCESS+11, BMCDIE+23
BMCDOB	XIT+1!, BMCDIE+5*, BMCDIE+7
>> BMCDOS	BMCDIE+13*, BMCDIE+14, BMCDIE+17
BMCDX	BMCDIE+26!
BMCDX10	XIT+2!
BMCDXCPT	XIT+2!
BMCDXPR	XIT+2!
BMCEIN	XIT+1!, PROCESS+2*
BMCFILE	POV+3*, POV+5, XIT+1!, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+10, BMCDIE+4
BMCG	XIT+1!, PROCESS+6, PROCESS+7, PROCESS+8, BMCDIE+2
BMCHRN	XIT+1!, BMCDIE+6*, BMCDIE+7
BMCICD	XIT+2!, BMCDIE+14, BMCDIE+15, BMCDIE+16, BMCDIE+17, BMCDIE+26!
BMCICD1	XIT+2!, BMCDIE+14, BMCDIE+15, BMCDIE+17, BMCDIE+26!
BMCL	XIT+1!, PROCESS+11*
BMCLEX	XIT+2!, BMCDIE+16*, BMCDIE+21, BMCDIE+26!
>> BMCQ	BMCDIE+1, BMCDIE+19, BMCDIE+22*
BMCRIEN	XIT+1!, BMCDIE+2*, BMCDIE+4, BMCDIE+8, BMCDIE+13, BMCDIE+23, BMCDIE+32
BMCTEMP	XIT+1!
BMCVDG	XIT+1!, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+9, BMCDIE+2, BMCDIE+24
BMCVIGR	XIT+1!, PROCESS+9*, PROCESS+11
DA	BMCDIE+23, BMCDIE+26!, BMCDIE+32!
>> DFN	BMCDIE+23
DIC	XIT+2!, BMCDIE+20!, BMCDIE+26!
DIC("A"	BMCDIE+18*
DIE	BMCDIE+24, BMCDIE+26!, BMCDIE+32!
DIR	CONT+6!
DIR("A"	CONT+2*
DIR("B"	CONT+2*
DIR(0	CONT+2*
DIROUT	CONT+6!
DIRUT	CONT+3, CONT+6!
DIU	BMCDIE+32!
DIV	BMCDIE+32!
DR	BMCDIE+23, BMCDIE+26!, BMCDIE+32!
DT	BMCDIE+32
DTOUT	CONT+6!
DUOUT	CONT+6!
DUZ(2	POV+4, BMCDIE+6
>> I	POV+4*, PROCESS+7
ICDV	BMCDIE+26!
LEXQ	BMCDIE+26!
LEXVDT	XIT+2!, BMCDIE+26!
U	POV+4, POV+5, PROCESS+2*, PROCESS+4, PROCESS+10, BMCDIE+2, BMCDIE+4, BMCDIE+6, BMCDIE+7, BMCDIE+8
X	CONT+3, CONT+4, BMCDIE+4, BMCDIE+18!, BMCDIE+21, BMCDIE+23, BMCDIE+26!
>> X1	BMCDIE+4*
>> X2	BMCDIE+4*
>> Y	BMCDIE+2, BMCDIE+5, BMCDIE+19, BMCDIE+22
>> Y(	BMCDIE+21

Customize PDF page

Package: Referred Care Information System

Routine: BMCFUNC

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: