Routine: BMCSPDSP

Package	Total	Call Graph
Referred Care Information System	3	PAUSE^BMC DIQ^BMCFMC ^BMCKILL
VA Fileman	2	^DIC ^DIR
Kernel	1	^%ZISC

Package

Total

Call Graph

PAUSE^BMC DIQ^BMCFMC ^BMCKILL

^DIC ^DIR

Package	Total	Caller Graph
Referred Care Information System	1	BMC RPT-SECONDARY PROVIDER

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
DSPSPEC	; DISPLAY SPECIFIC REFERRAL FOR A SPECIFIC PATIENT ; 4.0 IHS/ITSC/FCJ;REWROTE SECTION
EOJ	;
GETPAT	;EP GET- PATIENT
DSPALL	; DISPLAY ALL SECONDARY PROVIDERS FOR ALL REFERRALS FOR THIS PT ; 4.0 IHS/ITSC/FCJ;REWROTE SECTION
START	;
ASK	;Ask for All Referrals or a Specific Referral
GETREF	; GET REFERRAL

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GETPAT+1
Function Call: WRITE	Prompt: ! Line Location: GETREF+2
Function Call: WRITE	Prompt: !!,?10,"NO SECONDARY REFERRALS ATTACHED TO THIS PATIENT'S REFERRALS",!! Line Location: DSPALL+14
Function Call: WRITE	Prompt: !,"SECONDARY REFERRAL #:",$P(^BMCREF(DA,0),U,2),$P(^BMCREF(DA,1),U) Line Location: DSPSPEC+4
Routine Call	DIC Line Location: GETPAT+3 GETREF+5
Routine Call	DIR Line Location: ASK+2

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

Name	Line Occurrences (* Changed, ! Killed)
^BMCREF - [#90001]	DSPALL+4, DSPALL+11, DSPSPEC+4
^BMCREF("D"	DSPALL+3
^BMCREF("S"	DSPALL+5, DSPALL+7, DSPALL+9

Name	Field # of Occurrence
>> APCDPAT	GETPAT+2*
BMCALL	ASK+5*, ASK+11, EOJ+2!
BMCPAT	GETPAT+5*, DSPALL+3, EOJ+2!
>> BMCQ	GETREF+1, GETREF+9
BMCQUIT	ASK+3, ASK+9, GETREF+6, EOJ+2!
BMCRIEN	GETREF+8, DSPALL+2, DSPALL+3*, DSPALL+4, DSPSPEC+2, DSPSPEC+3, EOJ+2!
>> BMCRNUMB	DSPALL+4*, DSPALL+5, DSPALL+6, DSPALL+7, DSPALL+9
BMCSPEC	ASK+6*, ASK+7, EOJ+2!
BMCSRIEN	DSPALL+8, DSPALL+9, DSPALL+10, EOJ+2!
BMCT	DSPALL+2, DSPALL+6, DSPALL+14, EOJ+2!
BMCTMP	EOJ+2!
BMCTMP(	DSPALL+5, DSPALL+6*
>> BMCY	DSPALL+6, DSPALL+7, DSPALL+9
>> DA	DSPALL+10, DSPALL+11, DSPSPEC+3, DSPSPEC+4
DIC	GETPAT+3!, GETREF+3, GETREF+5!, DSPALL+10, DSPSPEC+3
DIC("A"	GETREF+3*
DIC("S"	GETREF+4*
DIC(0	GETPAT+3, GETREF+3
>> DIQ(0	DSPALL+10, DSPSPEC+3
DIR	ASK+2!
DIR("?"	ASK+2*
DIR("A"	ASK+1*
DIR(0	ASK+1*
>> DIRUT	ASK+3, GETREF+6, DSPALL+7
IO	EOJ+1
IO(0	EOJ+1
IOST	DSPALL+13, DSPSPEC+6
U	DSPALL+4, DSPALL+11, DSPSPEC+4
>> Y	GETPAT+4, GETPAT+5, ASK+5, ASK+6, GETREF+7, GETREF+8

Information