Routine: BMCLKID2

Package	Total	Call Graph
Referred Care Information System	2	DIC^BMCFMC START^BMCLKID1
VA Fileman	1	^DIR

Package	Total	Caller Graph
Referred Care Information System	2	BMCAPI BMCRDSP

Name	Comments	DBIA/ICR reference
REFLKUP	;
CONT	;Ask to Continue
REFDISP	;DISPLAY LATEST REFERRAL ENTERED-5 AT A TIME
PATLKUP	;EP FOR PATIENT LOOK UP CALLED BY BMCAPI ;BMC4.02 IHS/OIT/FCJ
REFLKUP1
START	; ENTRY POINT - ; IF DISPLAY SELECTED BY PATIENT AND LAST IN FIRST OUT DISPLAY OF REF
XIT	;Kill off Variables no longer needed

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: START+2
Function Call: WRITE	Prompt: !,Y Line Location: START+8
Function Call: WRITE	Prompt: !,"PATIENT DOES NOT HAVE ANY REFERRALS" Line Location: REFDISP+2
Function Call: WRITE	Prompt: !! Line Location: CONT+3
Routine Call	DIR Line Location: START+6 CONT+4

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

Name	Line Occurrences (* Changed, ! Killed)
^BMCREF - [#90001]	REFDISP+7, REFDISP+8
^BMCREF("AA"	REFDISP+2, REFDISP+4, REFDISP+6
^DISV(	START+7
^DPT - [#2]	PATLKUP+4
^TMP("BMCRDSP"	REFDISP+9*, CONT+6, XIT+2!

Name	Field # of Occurrence
>> BMCAPI	REFDISP+7
>> BMCAPIS	REFDISP+8
BMCCT	REFDISP+3, REFDISP+9, REFDISP+11, REFDISP+12, CONT+3, XIT+2!
>> BMCDFN	PATLKUP+4*, REFDISP+2, REFDISP+4, REFDISP+6
>> BMCDT	REFDISP+3, REFDISP+4, REFDISP+6
BMCFLG	REFDISP+1*, XIT+2!
BMCPAT	XIT+1!
BMCPTDFN	XIT+1!
BMCPURP	XIT+1!
BMCPURPP	XIT+1!
>> BMCQ	REFDISP+1, REFDISP+3, REFDISP+4, REFDISP+6, REFDISP+14, CONT+2, CONT+5, CONT+6
BMCRDT	XIT+1!
BMCRDTP	XIT+1!
>> BMCREC("PAT N	AME" , PATLKUP+4*
BMCRFAC	XIT+1!
>> BMCRIEN	REFLKUP1, REFDISP+5, REFDISP+6, REFDISP+7, REFDISP+8, REFDISP+9, REFDISP+13
>> BMCRIENT	REFDISP+3, REFDISP+13, REFDISP+14, CONT+6
BMCRNUMB	XIT+1!
BMCSVDT	XIT+1!
BMCSVDTP	XIT+1!
DA	CONT+4!
>> DIC	REFLKUP+1, PATLKUP+1
>> DIC(0	REFLKUP+1, PATLKUP+1
DIR	START+6!, CONT+4!
DIR("?"	START+5*
DIR("A"	START+4, CONT+1
DIR(0	START+3, CONT+3
>> DIRUT	START+6
>> DTOUT	START+6
>> DUOUT	REFDISP+13, CONT+5
DUZ	START+7
U	PATLKUP+4, REFDISP+7, REFDISP+8, CONT+6
>> X	START+8, REFLKUP+1, PATLKUP+1*
>> Y	START+7*, START+8, START+9, REFLKUP+1, REFLKUP+3, REFLKUP1, PATLKUP+1, PATLKUP+3, PATLKUP+4, CONT+6

Information