BMC ; IHS/PHXAO/TMJ - REFERRED CARE INFO SYSTEM ;
Source file <BMC.m>
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 |
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 | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine 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 |
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 |
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 |
>> | 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 |