Routine: BMCCLOS1

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

Entry Points

Name	Comments	DBIA/ICR reference
CONT	;
POV	;EP
BMCDIE	;
PROCESS	;
XIT	;
SETDEF	;SET DEFAULT OF ACTIVE REFERRALS ONLY

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"ERROR -- NO ACTIVE REFERRALS ON 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 .9999 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: !!,"All done with the ",$P(^DIC(BMCFILE,0),U)," file",! Line Location: PROCESS+13
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+18 BMCDIE+21
Routine Call	DIR Line Location: CONT+2

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

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

Name	Line Occurrences
BMCDIE	PROCESS+11, PROCESS+12
CONT	PROCESS+11, PROCESS+12
PROCESS	POV+1
SETDEF	POV+1
XIT	PROCESS+1, PROCESS+3, PROCESS+4, PROCESS+14

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
BMCCAT	XIT+1!
BMCCLOS	SETDEF+1*, XIT+1!, PROCESS+1, PROCESS+9, PROCESS+12, BMCDIE+21
BMCCONT	XIT+1!, PROCESS+11, PROCESS+12, CONT+4
BMCDFN	XIT+1!, PROCESS+2, PROCESS+11, PROCESS+12*
BMCDOB	XIT+1!, BMCDIE+4*, BMCDIE+6
BMCEIN	XIT+1!, PROCESS+2*
BMCFILE	POV+1*, XIT+1!, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+10, PROCESS+13, BMCDIE+3
BMCG	XIT+1!, BMCDIE+1*
BMCHRN	XIT+1!, BMCDIE+5*, BMCDIE+6
BMCL	XIT+1!, PROCESS+11*
BMCTEMP	XIT+1!
BMCVDG	XIT+1!, PROCESS+4, PROCESS+5, PROCESS+9
BMCVIGR	XIT+1!, PROCESS+9*, PROCESS+11, BMCDIE+1
BMCVSIT	XIT+1!, BMCDIE+1*, BMCDIE+3, BMCDIE+18
DA	BMCDIE+18!, BMCDIE+21!
DIE	BMCDIE+18!, BMCDIE+21!
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+18!, BMCDIE+21!
DIV	BMCDIE+18!, BMCDIE+21!
DR	BMCDIE+18!, BMCDIE+21!
DT	BMCDIE+18
DTOUT	CONT+6!
DUOUT	CONT+6!
DUZ(2	BMCDIE+5
U	PROCESS+2*, PROCESS+4, PROCESS+10, PROCESS+13, 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