Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BMC

Package: Referred Care Information System

Routine: BMC


Information

BMC ; IHS/PHXAO/TMJ - REFERRED CARE INFO SYSTEM ;

Source Information

Source file <BMC.m>

Call Graph

Call Graph Total: 7

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  

Caller Graph

Caller Graph Total: 68

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  

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.

External References

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

FileMan Files Accessed Via FileMan Db Call

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

Naked Globals

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All