Routine: BMCFUNC1

Package	Total	Call Graph
VA Fileman	3	^%DTC ^DIE ^DIR
IHS Patient	1	^AUPNPAT

Package	Total	Caller Graph
Referred Care Information System	2	BMCFIXCPT BMCFIXVPROC

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"ERROR -- 00099 NOT IN CPT 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 00099 codes to change.*" Line Location: PROCESS+7
Function Call: WRITE	Prompt: !!,"Searching the ",$P(^DIC(BMCFILE,0),U)," File",! Line Location: PROCESS+9
Function Call: WRITE	Prompt: !!,"All done with the ",$P(^DIC(BMCFILE,0),U)," file",! Line Location: PROCESS+11
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+1
Function Call: WRITE	Prompt: !,"NAME: ",$P(^DPT(AUPNPAT,0),U)," DOB: ",BMCDOB," SEX: ",AUPNSEX," HRN: ",$S(BMCHRN]"":BMCHRN,1:"NONE") Line Location: BMCDIE+6
Function Call: WRITE	Prompt: !,"DATE OF VISIT: " Line Location: BMCDIE+7
Function Call: WRITE	Prompt: !,"REFERRAL NUMBER: ",BMCRNUM Line Location: BMCDIE+12
Routine Call	DIE Line Location: BMCDIE+15 BMCDIE+20
Routine Call	DIR Line Location: CONT+2

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

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	PRO+2, GETCODE+1, GETCODE+2
^AUPNPAT - [#9000001]	BMCDIE+5
^BMCREF - [#90001]	BMCDIE+3
^DD("DD"	BMCDIE+4
^DIC - [#1]	PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+9, PROCESS+11
^DPT - [#2]	BMCDIE+6
^ICPT("B"	PRO+2, SETDEF+1

Name	Line Occurrences
BMCDIE	PROCESS+10
CONT	PROCESS+10
GETCODE	PRO+1
PROCESS	PRO+1, PRO+2
SETDEF	GETCODE+1
XIT	PROCESS+1, PROCESS+3, PROCESS+4, PROCESS+12

Name	Field # of Occurrence
AUPNDAYS	XIT+1!, BMCDIE+3*
AUPNDOB	XIT+1!, BMCDIE+3, BMCDIE+4
AUPNDOD	XIT+1!
AUPNPAT	XIT+1!, BMCDIE+5, BMCDIE+6
AUPNSEX	XIT+1!, BMCDIE+6
BMC999	PRO+2, GETCODE+2, SETDEF+1*, XIT+1!, PROCESS+1
BMCCAT	XIT+1!
BMCCONT	XIT+1!, PROCESS+10, CONT+4
BMCDFN	XIT+1!, PROCESS+2, PROCESS+10, BMCDIE+15
BMCDOB	XIT+1!, BMCDIE+4*, BMCDIE+6
BMCEIN	XIT+1!, PROCESS+2*
BMCFILE	PRO+1*, XIT+1!, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+9, PROCESS+11, BMCDIE+3
BMCG	XIT+1!, PROCESS+6, PROCESS+7, BMCDIE+1
BMCHRN	XIT+1!, BMCDIE+5*, BMCDIE+6
BMCL	XIT+1!, PROCESS+10*
BMCTEMP	PRO+1*, XIT+1!, BMCDIE+15
BMCVDG	XIT+1!, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+8, BMCDIE+1, BMCDIE+15
BMCVIGR	XIT+1!, PROCESS+8*, PROCESS+10
BMCVSIT	XIT+1!, BMCDIE+1*, BMCDIE+3, BMCDIE+20
DA	BMCDIE+15!, BMCDIE+20!
DIE	BMCDIE+15!, BMCDIE+20!
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+20!
DIV	BMCDIE+20!
DR	BMCDIE+15!, BMCDIE+20!
DT	BMCDIE+20
DTOUT	CONT+6!
DUOUT	CONT+6!
DUZ(2	PRO+2, GETCODE+1, GETCODE+2, BMCDIE+5
U	PRO+2, GETCODE+1, GETCODE+2, PROCESS+2*, PROCESS+4, PROCESS+9, PROCESS+11, BMCDIE+1, BMCDIE+3, BMCDIE+5 , BMCDIE+6
>> X	CONT+3*, CONT+4, BMCDIE+3
>> X1	BMCDIE+3*
>> X2	BMCDIE+3*
>> Y	BMCDIE+1, BMCDIE+4