Routine: BMCADD3

Package	Total	Call Graph
Referred Care Information System	2	PARMCHK^BMC VREF^BMCAERR
IHS Standard Terminology	1	($$CONC,$$SEARCH,$$SUBLST)^BSTSAPI
VA Fileman	1	^DIR

Package	Total	Caller Graph
Referred Care Information System	3	BMCCLO BMCMOD BMCMODS

Entry Points

Name	Comments	DBIA/ICR reference
MAIN	;
SNO	;REQUEST SNOMED
GETSNO	;EP FR BMCMOD AND BMCMODS;GET SNOMED TERM DESCRIPTION
START	;
EXIT	;EXIT PROGRAM
SEL	;SELECT
SNOLST	;LIST THE SNOMED CODES

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: START+4
Function Call: WRITE	Prompt: !!?5,"This field is not editable because original referral does not have",!,"a SNOMED code." Line Location: START+8
Function Call: WRITE	Prompt: !!?5,"This field is not editable because original referral does not have",!,"a SNOMED code." Line Location: START+9
Function Call: WRITE	Prompt: !!,"This field is not editable because referral status is not ACTIVE." Line Location: START+10
Function Call: WRITE	Prompt: !,"Editing the SNOMED Code will automatically update the Referral.",! Line Location: MAIN+4
Function Call: WRITE	Prompt: ! Line Location: SNO+1
Function Call: WRITE	Prompt: !!,"Snomed Clinical Term required." Line Location: SNO+10
Function Call: WRITE	Prompt: !,"INVALID RESPONSE" Line Location: SNO+16
Function Call: WRITE	Prompt: !!,"Snomed Clinical Term required." Line Location: SNO+25
Function Call: WRITE	Prompt: ! Line Location: SEL+1
Function Call: WRITE	Prompt: !!,"SNOMED Clinical Term required." Line Location: SEL+5
Function Call: WRITE	Prompt: ! Line Location: SEL+7
Function Call: WRITE	Prompt: ! Line Location: SNOLST+11
Function Call: WRITE	Prompt: @IOF Line Location: SNOLST+11
Routine Call	DIR Line Location: MAIN+6 SNO+6 SNO+27 SEL+4 SNOLST+11

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVREF - [#9000010.59]	GETSNO+8
^BMCREF - [#90001]	GETSNO+2, GETSNO+6
^BMCRTNRF - [#90001.32]	EXIT+3
^XTMP("BMCSNO"	START+1!, SNO+11!, SNO+12, SNO+20, SNO+24, SNO+31, SNOLST+2, SNOLST+6*, SNOLST+7, SNOLST+8 , SNOLST+9, EXIT+1!

Name	Field # of Occurrence
>> BMCMODE	START+7, MAIN+4, SNO+3, SNO+7, SNO+8, EXIT+3
>> BMCPARM	START+3
>> BMCQ	MAIN+1, SNO+22, SNO+25, SNO+28, SEL+6, EXIT+2
>> BMCRIEN	GETSNO+2, GETSNO+6
>> BMCRREF	SNO+9, EXIT+3
>> BMCRSTAT	START+7, START+10
>> BMCSCOD	START+7, START+9, MAIN+2, MAIN+3, MAIN+8, SNO+8, SNO+31, EXIT+3, GETSNO+1, GETSNO+6 , GETSNO+7, GETSNO+8*, GETSNO+9
>> BMCSNO	MAIN+8, SNO+12, SNO+14, SNO+28, SNO+31, SEL+6
>> BMCSTRM	MAIN+3, MAIN+8, SNO+31, EXIT+3, GETSNO+1, GETSNO+7, GETSNO+9
>> BMCVREF	GETSNO+1, GETSNO+2, GETSNO+5, GETSNO+8
>> CT	SNO+19, SNO+20, SNO+22, SNO+25
DDS	START+2~
DIR	START+2~, MAIN+7!, SNO+18!, SNO+32!, SEL+8!, SNOLST+1~
DIR("?"	SNO+4*
DIR("??"	SNO+5*
DIR("A"	MAIN+5, SNO+2, SNO+27, SEL+3, SNOLST+11*
DIR("B"	MAIN+5*
DIR(0	MAIN+5, SNO+2, SNO+3, SNO+27, SEL+2, SNOLST+11
>> DIRUT	SNO+8
>> DUOUT	SNO+7, SNO+9, SNO+10, SNO+22, SEL+5, SNOLST+7, SNOLST+8
>> IN	SNO+14*, SNO+15
IOF	START+4, SNOLST+11
L	SNO+19, SNO+20, SNO+22, SNO+24, SNO+25, SNO+27, SNO+29, SEL+2, SNOLST+4, SNOLST+6* , SNOLST+7*, SNOLST+8, EXIT+1!
L1	SNOLST+8*, SNOLST+9, EXIT+1!
L2	SNOLST+7, SNOLST+9, SNOLST+11, EXIT+1!
>> OUT	SNO+14*, SNO+15
>> SNOLST	SNO+12, SNO+14, SNOLST+2, SNOLST+4
U	SNOLST+6, SNOLST+9, EXIT+3, GETSNO+2, GETSNO+6, GETSNO+7, GETSNO+8, GETSNO+9
X	SNO+12, SNO+15, SNO+16, SNO+28, SEL+6, SNOLST+4, EXIT+1!
>> Y	MAIN+2