Routine: BMC

Package	Total	Call Graph
Kernel	4	^%ZIS ENDR^%ZISS $$FMTE^XLFDT $$REPEAT^XLFSTR
IHS VA Utilities	1	$$FISCAL^XBDT
Referred Care Information System	1	(DIC,DIE,DIQ)^BMCFMC
VA Fileman	1	^DIR

Package

Total

Call Graph

Kernel

^%ZIS ENDR^%ZISS $$FMTE^XLFDT $$REPEAT^XLFSTR

IHS VA Utilities

$$FISCAL^XBDT

Referred Care Information System

(DIC,DIE,DIQ)^BMCFMC

VA Fileman

^DIR

Package	Total	Caller Graph
Referred Care Information System	66	BMC ADD REFERRAL BMC ADD REFERRAL PREVIOUS FY BMC ADD SECONDARY REFERRAL BMC ADD/EDIT LOCAL CATEGORY BMC ADD/EDIT LOCAL MCC ACTION BMC ADD/EDIT LOCAL UTIL REV BMC ALTERNATE RESOURCES BMC AUTO REFERRAL CLOSE BMC BAD MENU BMC BUSINESS OFFICE COM SUP BMC BUSINESS OFFICE COMMENTS BMC CALL-IN REFERRAL EDIT BMC CASE REVIEW COMMENTS BMC CLOSE CURRENT REFERRAL BMC CLOSE OUT REFERRAL BMC CLOSE REFERRAL BMC DE SECONDARY PROVIDER BMC DELETE REFERRAL BMC DELETE SECONDARY REF BMC DISPLAY REFERRAL RECORD BMC DISPLAY SITE PARAMETERS BMC DSCH COMMENTS/LTR REC BMC EDIT CHS DATA BMC EDIT SECONDARY PROVIDER BMC EDIT SITE PARAMETERS BMC EXPORT DATA BMC MED HX COMMENTS BMC MENU EDIT REFERRAL BMC MENU LETTERS BMC MENU MANAGE MAIL BMC MENU PRINT PARA/TAB BMC MENU REFERRAL MANAGEMENT BMC MENU SPECIAL BMC OUTSIDE REFERRALS BMC RPT-NO DAYS AUTH BMC5 RPT CASE REVIEW BMCADD BMCADD1 BMCADD3 BMCADDFY BMCADDS BMCAL1 BMCALERT BMCALT BMCAPI BMCCLO BMCDSP BMCHS BMCMENU BMCMINI BMCMOD BMCMODS BMCPRE BMCRC32 BMCRCHS1 BMCRCHS2 BMCRCHS3 BMCRCHS4 BMCRINH BMCRPC2 BMCRTC1 BMCSKEL BMCSPDSP BMCVDV1 BMCVDV2 BMCVURT
Clinical Scheduling for Windows	1	BSDX41J
Health Summary Components	1	BHSRCIS

Package

Total

Caller Graph

Referred Care Information System

BMC ADD REFERRAL  BMC ADD REFERRAL PREVIOUS FY  BMC ADD SECONDARY REFERRAL  BMC ADD/EDIT LOCAL CATEGORY  BMC ADD/EDIT LOCAL MCC ACTION  BMC ADD/EDIT LOCAL UTIL REV  BMC ALTERNATE RESOURCES  BMC AUTO REFERRAL CLOSE
BMC BAD MENU  BMC BUSINESS OFFICE COM SUP  BMC BUSINESS OFFICE COMMENTS  BMC CALL-IN REFERRAL EDIT  BMC CASE REVIEW COMMENTS  BMC CLOSE CURRENT REFERRAL  BMC CLOSE OUT REFERRAL  BMC CLOSE REFERRAL
BMC DE SECONDARY PROVIDER  BMC DELETE REFERRAL  BMC DELETE SECONDARY REF  BMC DISPLAY REFERRAL RECORD  BMC DISPLAY SITE PARAMETERS  BMC DSCH COMMENTS/LTR REC  BMC EDIT CHS DATA  BMC EDIT SECONDARY PROVIDER
BMC EDIT SITE PARAMETERS  BMC EXPORT DATA  BMC MED HX COMMENTS  BMC MENU EDIT REFERRAL  BMC MENU LETTERS  BMC MENU MANAGE MAIL  BMC MENU PRINT PARA/TAB  BMC MENU REFERRAL MANAGEMENT
BMC MENU SPECIAL  BMC OUTSIDE REFERRALS  BMC RPT-NO DAYS AUTH  BMC5 RPT CASE REVIEW  BMCADD  BMCADD1  BMCADD3  BMCADDFY
BMCADDS  BMCAL1  BMCALERT  BMCALT  BMCAPI  BMCCLO  BMCDSP  BMCHS
BMCMENU  BMCMINI  BMCMOD  BMCMODS  BMCPRE  BMCRC32  BMCRCHS1  BMCRCHS2
BMCRCHS3  BMCRCHS4  BMCRINH  BMCRPC2  BMCRTC1  BMCSKEL  BMCSPDSP  BMCVDV1
BMCVDV2  BMCVURT

Clinical Scheduling for Windows

BSDX41J

Health Summary Components

BHSRCIS

Entry Points

Name	Comments	DBIA/ICR reference
HDR	;EP - Screen header DON'S USE ANY LONGER.
YN	;EP
READ	;EP
DIC(DIC)	;EP - File lookup.
DEV	; EP - SELECT OUTPUT DEVICE
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
PARMCHK	;EP - Check RCIS SITE PARAMETER file ; Check/edit RCIS parameters.
CONF	; EP - CONFIDENTIAL CLIENT DATA HEADER
GETR()	;EP - Return referral # from RCIS REFERRAL record
PARMSET	;EP - SET SYSTEM WIDE VARIABLES FROM SITE PARAMETER FILE ; Variables set here need to be kill in ^BMCSKILL
TOFACX	;
TOFAC(R)	; EP - RETURN APPROPRIATE ; 'TO PRIMARY VENDOR/TO IHS FACILITY/TO OTHER PROVIDER' ; R = RCIS REFERRAL IEN
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
REFNFY()	;EP - Get Referral Number for Desired Fiscal Year
ASF()	;EP - Return ASUFAC number for current DUZ(2).
BMCFYRY	; calculate current fiscal year and referral year
PAUSE	; EP - PAUSE FOR USER
PARMADD	; ADD SITE PARAMETER ENTRY
LZERO(V,L)	;left zero fill
SEL(S)	;EP - Select a referral to edit, S is DIC("S")
UNLOCK(DA)
LOGO	;EP - Print logo of main menu.
LOCK(DA)	;EP - Lock the selected referral.
REFN()	;EP - Return the next referral number and update control file
ZEROTH(A,B,C,D,E,F,G,H,I,J,K)	;EP - Return 0th node. A is file #, rest fields.

Name	Field # of Occurrence
^%ZIS	DEV+2
ENDR^%ZISS	HDR+2, LOGO+12
DIC^BMCFMC	PARMADD+2, DIC+2
DIE^BMCFMC	PARMADD+5, REFN+8
DIQ^BMCFMC	SEL+8, SEL+9, SEL+10, SEL+11
^DIR	EOP+5, PAUSE+3
$$FISCAL^XBDT	BMCFYRY+1
$$FMTE^XLFDT	LOGO+3
$$REPEAT^XLFSTR	LOGO+7, LOGO+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"NO ENTRY FROM THE TOP OF ^BMC.",! Line Location: BMC+6
Function Call: WRITE	Prompt: !!,*7,"PARAMETERS NOT SET FOR '",$$LOC,"'. PLEASE ENTER THEM, NOW." Line Location: PARMCHK+4
Function Call: WRITE	Prompt: !!,*7,"RCIS SITE PARAMETER file REFERRAL YEAR field missing or invalid.",! Line Location: PARMCHK+7
Function Call: WRITE	Prompt: !!,*7,"RCIS SITE PARAMETER file REFERRAL YEAR does not match current FISCAL YEAR",!,"IGNORE If Operating on Calendar Year Basis..",! Line Location: PARMCHK+8
Function Call: WRITE	Prompt: !!,*7,"RCIS SITE PARAMETER file REFERRAL # field missing or invalid.",! Line Location: PARMCHK+9
Function Call: WRITE	Prompt: @IOF,!,$$CTR("REFERRED CARE INFORMATION SYSTEM"),!,$$CTR($$LOC()),!,$$CTR(X),!! Line Location: HDR+6
Function Call: WRITE	Prompt: @IOF,!,$$CTR($$REPEAT^XLFSTR("",D)),!?L,"",$$CTR("INDIAN HEALTH SERVICE",N),?R,"",!?L,"",$$CTR("REFERRED CARE INFORMATION SYSTEM",N),?R,"*" Line Location: LOGO+7
Function Call: WRITE	Prompt: !?L,"",$$CTR("VERSION "_V_", Patch "_P1,N),?R,"",!,$$CTR($$REPEAT^XLFSTR("*",D)),! Line Location: LOGO+8
Function Call: WRITE	Prompt: $$CTR($$LOC()) Line Location: LOGO+9
Function Call: WRITE	Prompt: !,$$CTR(X),! Line Location: LOGO+16
Function Call: WRITE	Prompt: ! Line Location: PAUSE+4
Function Call: WRITE	Prompt: !,$$CTR("* CONFIDENTIAL PATIENT INFORMATION *"),! Line Location: CONF+1
Function Call: WRITE	Prompt: !!,"Enter a ""Y"" for YES or an ""N"" for NO." Line Location: YN+1
Routine Call	DIR Line Location: EOP+5 PAUSE+3
Routine Call	%ZIS Line Location: DEV+2

FileNo	Call Tags
^BMCREF - [#90001]	Classic Fileman Calls
^BMCDX - [#90001.01]	Classic Fileman Calls
^BMCPX - [#90001.02]	Classic Fileman Calls
^BMCCOM - [#90001.03]	Classic Fileman Calls
^BMCPARM - [#90001.31]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX("B"	PARMSET+22, PARMSET+23, PARMSET+24, PARMSET+25, PARMSET+26
^AUTTLOC - [#9999999.06]	ASF+2
^AUTTVNDR - [#9999999.11]	TOFAC+9
^BMCCOM("AD"	SEL+9
^BMCDX("AD"	SEL+10
^BMCLPRV - [#90001.53]	TOFAC+10
^BMCPARM - [#90001.31]	PARMCHK+3, PARMCHK+4, PARMSET+2, PARMSET+20, REFN+1, REFN+2, REFN+9
^BMCPX("AD"	SEL+11
^BMCREF - [#90001]	GETR+2, LOCK+1, UNLOCK+1, TOFAC+6, TOFAC+7
^DD(	ZEROTH+4, ZEROTH+6, ZEROTH+7
^DIC(4 - [#4]	LOC+1, TOFAC+8
^DIC(9.4 - [#9.4]	LOGO+3, LOGO+4
^VA(200 - [#200]	PARMSET+12, USR+1

Label References

Name	Line Occurrences
$$ASF	REFN+3, REFNFY+1
$$CTR	HDR+6, LOGO+7, LOGO+8, LOGO+9, LOGO+16, CONF+1
$$DIC	SEL+3
$$LOC	PARMCHK+4, REFN+1, HDR+6, LOGO+9
$$LZERO	REFN+6, REFNFY+3
BMCFYRY	PARMCHK+6, PARMSET+28
EOP	REFN+1, LOCK+2, UNLOCK+2, SEL+12
LOCK	SEL+5
PARMADD	PARMCHK+4
PARMSET	PARMCHK+10
TOFACX	TOFAC+5, TOFAC+6, TOFAC+8

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LZERO+1~, LZERO+2*
>> %ZIS	DEV+2*
A	LOGO+1~, LOGO+3, LOGO+4, ZEROTH~, ZEROTH+2, ZEROTH+4, ZEROTH+5, ZEROTH+6, ZEROTH+7
>> AUPNLK("ALL"	PARMSET+3*
B	ZEROTH~, ZEROTH+3, ZEROTH+4*, ZEROTH+5, ZEROTH+6, ZEROTH+7
BMC	SEL+1~, SEL+6*, SEL+9, SEL+10, SEL+11, SEL+13
>> BMCBOS	PARMSET+14*
>> BMCCHS	PARMSET+5*
>> BMCCHSA	PARMSET+15*
>> BMCCHSS	PARMSET+13*
>> BMCDMGR	PARMSET+11, PARMSET+12
BMCDOIT	READ+2~, READ+3*, READ+4
>> BMCDX10	PARMSET+20*
>> BMCDXCPT	PARMSET+7*
>> BMCDXPR	PARMSET+6*
>> BMCFY	PARMCHK+8, BMCFYRY+2*, REFNFY+3
>> BMCGFY	BMCFYRY+1*, BMCFYRY+2
>> BMCHOUSA	PARMSET+18*
>> BMCIHSA	PARMSET+16*
>> BMCLCAT	PARMSET+8*
>> BMCMGCR	PARMSET+10*
>> BMCOLOC	PARMSET+9*
>> BMCOTHRA	PARMSET+17*
>> BMCPARM	PARMCHK+3, PARMCHK+4, PARMCHK+5, PARMCHK+9, PARMSET+2, PARMSET+3, PARMSET+4, PARMSET+5, PARMSET+6, PARMSET+7 , PARMSET+8, PARMSET+9, PARMSET+10, PARMSET+12, PARMSET+13, PARMSET+14, PARMSET+15, PARMSET+16, PARMSET+17, PARMSET+18 , PARMSET+19, BMCFYRY+3, REFN+2, REFN+4, REFN+5
>> BMCPCC	PARMSET+4*
>> BMCPRIO	PARMSET+19*
>> BMCQ	BMC+7, PARMCHK+2, PARMCHK+11, DEV+1, DEV+3*
BMCQUIT	READ+1!, READ+8*
>> BMCRIEN	GETR+1, GETR+2
>> BMCRNUM	REFNFY+3
>> BMCRY	PARMCHK+7, PARMCHK+8, BMCFYRY+3*
>> BMCTXCCP	PARMSET+23*
>> BMCTXCEX	PARMSET+24*
>> BMCTXCHC	PARMSET+25*
>> BMCTXL3P	PARMSET+26*
>> BMCTXPHC	PARMSET+22*
>> BMCX	REFN+7, REFN+10, REFNFY+4, REFNFY+5
BMCY	SEL+1~, SEL+10, SEL+11
C	ZEROTH~
D	LOGO+1~, LOGO+2*, LOGO+7, LOGO+8, ZEROTH~
DA	PARMADD+4, REFN+8, LOCK~, LOCK+1, UNLOCK~, UNLOCK+1, SEL+1~, SEL+5, SEL+6, SEL+9 , SEL+10, SEL+11
DFOUT	EOP+4!
DIC	PARMADD+1, DIC~, SEL+1~, SEL+3, SEL+8, SEL+9, SEL+10, SEL+11
DIC("S"	SEL+2*
DIC(0	PARMADD+1, DIC+1
>> DIE	PARMADD+4, REFN+8
DIR	EOP+3~, PAUSE+3!
DIR("A"	PAUSE+3*
DIR(0	EOP+5, PAUSE+3
DIRUT	EOP+4!
>> DLAYGO	PARMADD+1*
DLOUT	EOP+4!
>> DR	PARMADD+4, REFN+8
DT	BMCFYRY+1
DTIME	READ+3
DTOUT	EOP+4!, READ+1!, READ+5, READ+6, READ+8
DUOUT	EOP+4!, READ+1!, READ+7*, READ+8
DUZ	USR+1
DUZ(2	PARMCHK+3, PARMCHK+4, PARMSET+2, PARMSET+20, REFN+1, REFN+2, REFN+8, REFN+9, ASF+1, ASF+2 , LOC+1
E	ZEROTH~
F	ZEROTH~
G	ZEROTH~
H	ZEROTH~
I	LZERO+1~, LZERO+2, LOGO+1~, LOGO+3, LOGO+4, ZEROTH~
IO("S"	EOP+2, PAUSE+2
IOF	HDR+6, LOGO+7
IOM	CTR+1
>> IORVOFF	HDR+5, LOGO+15
>> IORVON	HDR+2, HDR+5, LOGO+12, LOGO+15
IOST	EOP+1, PAUSE+1
>> IOT	EOP+2, PAUSE+2
J	ZEROTH~
K	ZEROTH~
L	LZERO~, LZERO+2, LOGO+1~, LOGO+2*, LOGO+7, LOGO+8
N	LOGO+1~, LOGO+2*, LOGO+7, LOGO+8
P	LOGO+1~, LOGO+4*
P1	LOGO+1~, LOGO+4*, LOGO+8
>> POP	DEV+3
R	LOGO+1~, LOGO+2*, LOGO+7, LOGO+8, TOFAC~, TOFAC+5, TOFAC+6, TOFAC+7
S	SEL~, SEL+2
U	PARMCHK+9, PARMSET+3, PARMSET+4, PARMSET+5, PARMSET+6, PARMSET+7, PARMSET+8, PARMSET+9, PARMSET+10, PARMSET+12 , PARMSET+13, PARMSET+14, PARMSET+15, PARMSET+16, PARMSET+17, PARMSET+18, PARMSET+19, PARMSET+20, BMCFYRY+1, BMCFYRY+3 , GETR+2, REFN+4, REFN+5, ASF+2, USR+1, LOC+1, HDR+3, LOGO+3, LOGO+13, TOFAC+8 , TOFAC+9, TOFAC+10, ZEROTH+4, ZEROTH+7
V	LZERO~, LZERO+2, LZERO+3, LOGO+1~, LOGO+3, LOGO+8
X	REFN+3, REFN+4, REFN+6, REFN+7, REFNFY+1, REFNFY+3, REFNFY+4, CTR~, CTR+1, HDR+2 , HDR+3, HDR+4, HDR+5, HDR+6, LOGO+12, LOGO+13, LOGO+14, LOGO+15, LOGO+16, TOFAC+3~ , TOFAC+7, TOFAC+8, TOFAC+9, TOFAC+10
>> XQY0	HDR+1, HDR+3, LOGO+11, LOGO+13
Y	PARMSET+12, PARMADD+3, PARMADD+4, REFN+5, REFN+6, REFN+8, CTR~, CTR+1, DIC+3, LOGO+3* , SEL+3, SEL+4, SEL+5, TOFAC+3~, TOFAC+4, TOFAC+8, TOFAC+9, TOFAC+10, TOFACX+1, READ+5 , READ+6, READ+7*
Z	LZERO+2, ZEROTH+1~, ZEROTH+4
>> ZTQUEUED	BMC+6, PARMCHK+4, REFN+1, EOP+2, LOCK+2, UNLOCK+2, SEL+7, PAUSE+2

Customize PDF page

Package: Referred Care Information System

Routine: BMC

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 68

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: