Routine: BMCCLOS3

Information

BMCCLOS3 ; IHS/OIT/FCJ - PROCESS REFERRAL CLOSURES ;

Source file <BMCCLOS3.m>

Package	Total	Call Graph
IHS VA Utilities	1	$$VALI^XBDIQ1
VA Fileman	1	^DIE

Name	Comments	DBIA/ICR reference
DRI	;DATE REF INITIATED
DOS	;DATE OF SERVICE SORT
END	;End of Closure
PROCESS	;
PCCL	;PCC Link - No Need to Link these Visits - CHS Visit Closure ONLY

Name	Field # of Occurrence
^DIE	PROCESS+12
$$VALI^XBDIQ1	PROCESS+9, PROCESS+10

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?10,"Closed Referral #: "_$P(^BMCREF(BMCRIEN,0),U,2) Line Location: PROCESS+13
Function Call: WRITE	Prompt: ?55,"IEN #: "_BMCRIEN Line Location: PROCESS+14
Function Call: WRITE	Prompt: ! Line Location: PROCESS+14
Function Call: WRITE	Prompt: !,"End of Auto Close of Referrals - Total Number of Referrals Closed = "_BMCCT Line Location: END+1
Routine Call	DIE Line Location: PROCESS+12

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

Name	Line Occurrences (* Changed, ! Killed)
^BMCREF - [#90001]	DOS+4, PROCESS+1, PROCESS+4, PROCESS+13
^BMCREF("B"	DRI+2, DRI+3
^BMCREF("BA"	DOS+2, DOS+3
^BMCREF("BB"	DOS+8, DOS+9

Name	Line Occurrences
END	DRI+4, DOS+10
PROCESS	DRI+3, DOS+6, DOS+9

Name	Field # of Occurrence
>> BMCADOS	DOS+4, DOS+5, PROCESS+10, PROCESS+11
>> BMCCLS	PROCESS+11*, PROCESS+12
>> BMCCT	DRI+1, DOS+1, PROCESS+15*, END+1
>> BMCED	DRI+2, DOS+2, DOS+5, DOS+8
>> BMCFAC	PROCESS+3
>> BMCKIND	PROCESS+2
>> BMCLCAT	PROCESS+4
>> BMCODAT	DRI+1, DRI+2, DRI+3, DOS+1, DOS+2, DOS+3, DOS+7, DOS+8, DOS+9
>> BMCR	DOS+9*
>> BMCREF	DRI+3, DOS+3, DOS+4, DOS+9*, PROCESS+1, PROCESS+4, PROCESS+5
>> BMCRIEN	PROCESS+5*, PROCESS+9, PROCESS+10, PROCESS+12, PROCESS+13, PROCESS+14
>> BMCRREC	PROCESS+1*, PROCESS+2, PROCESS+3, PROCESS+6
>> BMCSD	DRI+1, DOS+1, DOS+5, DOS+7
>> BMCTYP	PROCESS+8
>> BMCTYPE	PROCESS+6*, PROCESS+7, PROCESS+8
>> DA	PROCESS+12*
>> DFN	PROCESS+1*
DIE	PROCESS+12*!
>> DR	PROCESS+12*
U	DOS+4, PROCESS+1, PROCESS+2, PROCESS+3, PROCESS+6, PROCESS+13