Routine: BMCCLO

Package	Total	Call Graph
Referred Care Information System	7	HDR^BMC GETSNO^BMCADD3 (DIC,DIE)^BMCFMC ^BMCKILL TYPE^BMCMOD ^BMCPCCL $$AVDOS^BMCRLU
VA Fileman	2	^DIC ^DIR
IHS VA Utilities	1	$$VALI^XBDIQ1

Package	Total	Caller Graph
Referred Care Information System	4	BMC CLOSE CURRENT REFERRAL BMC CLOSE OUT REFERRAL BMC CLOSE REFERRAL BMCCHS

Entry Points

Name	Comments	DBIA/ICR reference
STATUS	; GET FINAL STATUS
REFERRAL	; GET REFERRAL TO CLOSE
SNOCLS	;EP FR BMCCHS;BMC4.08 7.22.13 IHS.OIT.FCJ; ADD SNOMED CODE WHEN CLOSED-COMPLETED AND ACTUAL DOS
PCCL	; PCC LINK
STATUS2	;
VERIFY	; MAKE SURE ALL REQUIRED FIELDS ARE PRESENT
VERIFYRQ	; CHK REQUIRED FIELDS
START	;
EOJ	; END OF JOB
CLOSE	; CLOSE REFERRAL RECORD
VERIFY2	;
VERIFY3	;
MAIN	;
FINAL	; GET FINAL VALUES

Name	Field # of Occurrence
HDR^BMC	START+2
GETSNO^BMCADD3	MAIN+4
DIC^BMCFMC	REFERRAL+5
DIE^BMCFMC	VERIFY2+8, CLOSE+2
^BMCKILL	EOJ+1
TYPE^BMCMOD	FINAL+7
^BMCPCCL	PCCL+1
$$AVDOS^BMCRLU	FINAL+6
^DIC	SNOCLS+5
^DIR	REFERRAL+13, FINAL+1, STATUS2+5, VERIFY2+5
$$VALI^XBDIQ1	VERIFYRQ+1, PCCL+1

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: REFERRAL+2
Function Call: WRITE	Prompt: !! Line Location: STATUS+1
Function Call: WRITE	Prompt: " Final status cannot be 'ACTIVE'",!,*7 Line Location: STATUS2+8
Function Call: WRITE	Prompt: !,*7 Line Location: VERIFY2+4
Function Call: WRITE	Prompt: !,"The closure snomed clinical term was not added to the referral." Line Location: SNOCLS+6
Routine Call	DIC Line Location: SNOCLS+5
Routine Call	DIR Line Location: REFERRAL+13 FINAL+1 STATUS2+5 VERIFY2+5

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

Name	Line Occurrences (* Changed, ! Killed)
^BMCREF - [#90001]	REFERRAL+10, SNOCLS+1, SNOCLS+3

Name	Field # of Occurrence
>> BMCCLOSE	START+1*
>> BMCDOS	FINAL+6*
>> BMCDXT	FINAL+4*
>> BMCLQ	VERIFY+2, VERIFY2+1, VERIFY2+3, VERIFY2+6, VERIFY3+8*
BMCMODE	FINAL+5*, EOJ+1!
>> BMCPXT	FINAL+4*
>> BMCQ	START+2, MAIN+1, MAIN+3, MAIN+7, MAIN+9, REFERRAL+7, REFERRAL+10, REFERRAL+14, REFERRAL+16, FINAL+7 , FINAL+8, STATUS+2, STATUS2+6, VERIFY2+6*
>> BMCRIEN	REFERRAL+8*, REFERRAL+10, FINAL+6, VERIFY2+7, SNOCLS+1, SNOCLS+3, SNOCLS+4, VERIFYRQ+1, CLOSE+1, PCCL+1
>> BMCRIO	VERIFY3+6
>> BMCRTYPE	VERIFY3+2, VERIFY3+3
>> BMCSTAT	STATUS+2, STATUS2+2, STATUS2+7, VERIFY+1
DA	REFERRAL+13!, FINAL+1!, STATUS2+5!, VERIFY2+5!, VERIFY2+7, CLOSE+1
DA(1	SNOCLS+4*
>> DIADD	SNOCLS+3*
>> DIC	REFERRAL+4, SNOCLS+2, SNOCLS+4*
>> DIC("A"	REFERRAL+4*
>> DIC("P"	SNOCLS+3*
>> DIC("S"	REFERRAL+4*
>> DIC(0	REFERRAL+4, SNOCLS+3
>> DIE	VERIFY2+7, CLOSE+1
DIR	REFERRAL+13!, FINAL+1!, STATUS2+5!, VERIFY2+5!
DIR("A"	REFERRAL+13, FINAL+1, STATUS2+5, VERIFY2+5
DIR("B"	REFERRAL+13, FINAL+1, STATUS2+5, VERIFY2+5
DIR(0	REFERRAL+13, FINAL+1, STATUS2+4, VERIFY2+5
>> DIRUT	REFERRAL+14, FINAL+2, STATUS2+6
DR	VERIFY3+1, VERIFY3+7, VERIFY3+8!, VERIFYRQ+1, CLOSE+1
>> LAYGO	SNOCLS+3*
U	REFERRAL+10
>> X	VERIFY3+2, VERIFY3+3, VERIFY3+5, VERIFY3+6, SNOCLS+2*, VERIFYRQ+1
>> Y	REFERRAL+7, REFERRAL+8, REFERRAL+14, FINAL+3, STATUS2+7, VERIFY2+6, SNOCLS+6