Routine: BMCMOD

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
Referred Care Information System	12	(HDR,PARMCHK,PAUSE)^BMC COMMENTS^BMCADD1 GETSNO^BMCADD3 PALRT1^BMCALERT DENR^BMCCHSE (DDS,DIC,DIE,DIK)^BMCFMC ^BMCKILL ENMM^BMCMM (ADDDX,ADDPX)^BMCMOD1 ^BMCPCCL ^BMCREF $$AVDOS^BMCRLU
IHS VA Utilities	2	($$VAL,$$VALI)^XBDIQ1 ^XBFMK
Kernel	1	$$NOW^XLFDT
VA Fileman	1	^DIR

Package	Total	Caller Graph
Referred Care Information System	15	BMC BUSINESS OFFICE COM SUP BMC BUSINESS OFFICE COMMENTS BMC CASE REVIEW COMMENTS BMC DSCH COMMENTS/LTR REC BMC EDIT CHS DATA BMC MED HX COMMENTS BMC MODIFY CLOSED REFERRAL BMC MODIFY CURRENT REFERRAL BMC MODIFY REFERRAL BMCADD1 BMCADDS BMCAPI BMCCLO BMCMINI BMCMODS

Package

Total

Caller Graph

Referred Care Information System

BMC BUSINESS OFFICE COM SUP BMC BUSINESS OFFICE COMMENTS BMC CASE REVIEW COMMENTS BMC DSCH COMMENTS/LTR REC BMC EDIT CHS DATA BMC MED HX COMMENTS BMC MODIFY CLOSED REFERRAL BMC MODIFY CURRENT REFERRAL
BMC MODIFY REFERRAL BMCADD1 BMCADDS BMCAPI BMCCLO BMCMINI BMCMODS

Entry Points

Name	Comments	DBIA/ICR reference
DATES	; MODIFY DATE FIELDS
BUSINESS	; EDIT BUSINESS OFFICE COMMENTS
EOJ	; END OF JOB
COST	;MODIFY COST FIELDS
DX	; EP - EDIT DIAGNOSES EDIT DIAGNOSES
MINIMOD	; REFERRAL MINI MODIFICATION FORM
80	;EP FROM 2ND REF AND FR MED HX MENU OPTION
REF	;IHS/ITSC/FCJ ADD 13TH OPTION TO ALLOW SELECTING OTHER REF FOR PATIENT
VREF	;EP FR BMCMODS;BMC4.08 NEW MODULE TO UPDATE SNOMED IN V REF FILE
PCCL	; PCC LINK
DSCHARGE	; EDIT DISCHARGE NOTES
1	; LABEL FOR @DO
3	; LABEL FOR @DO
2	; LABEL FOR @DO
5	; LABEL FOR @DO
4	; LABEL FOR @DO
7	; LABEL FOR @DO
6	; LABEL FOR @DO
9	; LABEL FOR @DO
8	; LABEL FOR @DO
12	; LABEL FOR @DO
A	;add a new XXX
E	;edit an existing XXX
D	;delete XXX
ASK2	;IHS/ITSC/FCJ MODIFED TO NOT ALLOW EDITING OR DELETING OF BO COMMENTS
SCREEN	;Display ONLY CLOSED Referrals
START	;
CHS	;Enter CHS Data with Screenman
SNO	;EP FROM BMCMODS;BMC4.09 NEW MODULE TO ADD SNOMED FOR SITES W/O PCC
ASK	;EP
ALLDATA	; MODIFY ALL REFERRAL DATA
ER
11	; LABEL FOR @DO
10	; LABEL FOR @DO
13	;LABEL FOR @DO
MAIN	;
15	;IHS/ITSC/FCJ ADD 15TH OPT TO ALLOW SENDING MAILMAN MESSAGE TO PRIM
14	;IHS/ITSC/FCJ ADD 14TH OPT TO ALLOW SENDING MAILMAN MESSAGE
17	;EP BMCMODS;BMC 4.0*8 5.8.13 IHS/OIT/FCJ ADDED OPTION TO UPDATE STATUS TO A1-APPROVED
16	;BMC4.03 10.1.2007 IHS/ITSC/FCJ ADD 16TH OPT TO ALLOW TO PRIM AND REF PROVIDER ONLY
ADDLDOC	; EDIT LIST OF ADDITIONAL DOCUMENTATION TO BE INCLUDED WITH REFERRAL
TYPE	; EP - Get type of data to edit
VREFP	;BMC4.08 NEW MODULE TO UPDATE PROV IN V REF FILE
COMMENTS	; EDIT COMMENTS CASE REVIEW
ALERT	;Mail Bulletin Alerts
PURPOSE	; EDIT PURPOSE OF REFERRAL
FACTOR	;CHS ELIG FACTORS
REFERRAL	; GET REFERRAL TO MODIFY
PROC	; EP - EDIT PROCEDURES
GETREF	;Screens out closed Referrals

External References

Name	Field # of Occurrence
HDR^BMC	START+2
PARMCHK^BMC	START+1
PAUSE^BMC	17+5
COMMENTS^BMCADD1	A+3
GETSNO^BMCADD3	MAIN+9
PALRT1^BMCALERT	16+11
DENR^BMCCHSE	CHS+3
DDS^BMCFMC	CHS+2, 1+4, 2+5, 2+15, 3+2, 4+2, 8+2, 11+2, 12+2
DIC^BMCFMC	GETREF+5, SCREEN+4
DIE^BMCFMC	7+5, 10+6, 17+18, E+8, A+7, VREF+3, VREFP+3, SNO+4
DIK^BMCFMC	D+11
^BMCKILL	EOJ+2
ENMM^BMCMM	14+7, 15+2
ADDDX^BMCMOD1	A+4
ADDPX^BMCMOD1	A+5
^BMCPCCL	PCCL+1
^BMCREF	1+9, 2+7
$$AVDOS^BMCRLU	MAIN+4
^DIR	CHS+5, TYPE+6, 16+3, 16+9, 17+14, ASK2+17, E+2, D+2, D+8
$$VAL^XBDIQ1	17+4, 17+9
$$VALI^XBDIQ1	PCCL+1
^XBFMK	EOJ+3
$$NOW^XLFDT	VREF+2, VREFP+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GETREF+3
Function Call: WRITE	Prompt: ! Line Location: SCREEN+2
Function Call: WRITE	Prompt: @IOF Line Location: 14+1
Function Call: WRITE	Prompt: ! Line Location: 16+3
Function Call: WRITE	Prompt: !! Line Location: 17+6
Function Call: WRITE	Prompt: !,"Parameters have not been set up to send messages for this type of Referral." Line Location: ER+0
Function Call: WRITE	Prompt: !!,"You may add a new "_BMCTERM,! Line Location: ASK2+4
Function Call: WRITE	Prompt: !!,"You may edit one of the existing "_BMCTERM_" or add a new one",! Line Location: ASK2+5
Function Call: WRITE	Prompt: ! Line Location: ASK2+11
Function Call: WRITE	Prompt: ! Line Location: E+2
Function Call: WRITE	Prompt: !!,"Invalid choice." Line Location: E+6
Function Call: WRITE	Prompt: !!,"ERROR ENCOUNTERED IN EDITING A "_BMCTERM Line Location: E+9
Function Call: WRITE	Prompt: !!,"Adding a NEW "_BMCTERM_"...",! Line Location: A+2
Function Call: WRITE	Prompt: !!,"NO "_BMCTERM_" ADDED!" Line Location: A+8
Function Call: WRITE	Prompt: !!,"Invalid choice." Line Location: D+6
Function Call: WRITE	Prompt: !,"Okay, not deleted." Line Location: D+10
Function Call: WRITE	Prompt: !,BMCTERM_" DELETED" Line Location: D+11
Routine Call	DIR Line Location: CHS+5 TYPE+6 16+3 16+9 17+14 ASK2+17 E+2 D+2 D+8

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

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	16+1
^AUPNVREF - [#9000010.59]	VREF+1, VREFP+1
^BMCREF - [#90001]	MAIN+4, 1+3, 2+4, 16+1, 17+3, VREFP+1, VREFP+2, SNO+1

Label References

Name	Line Occurrences
80	1+7
@(	MAIN+10, TYPE+10, 2+8, 80+5, ASK2+7, ASK2+20, E+1, D+1
ASK	5+4, 6+3, 7+3, 80+3, 9+4, 10+4, 12+5
ASK2	ASK+2
CHS	MAIN+11
EOJ	START+3
GETREF	REFERRAL+2, REFERRAL+3
MAIN	START+2
PCCL	MAIN+14
REFERRAL	MAIN+2
SCREEN	REFERRAL+1
SNO	1+6, 2+10
TYPE	MAIN+13
VREF	1+5, 2+9
VREFP	1+5, 2+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCDOVRR	5+1*
>> BMCATEMP	5+2, 6+1, 7+1, 80+1, 9+2, 10+2, 12+3*, A+6
>> BMCC	E+2, E+5, E+6, E+7, D+2, D+5, D+6, D+11
>> BMCCHSE	MAIN+11, MAIN+12, REFERRAL+3, GETREF+1
>> BMCCLOSE	REFERRAL+1, REFERRAL+2, ASK+1, ASK2+21
>> BMCCTYP	5+3, 6+2, 7+2, 80+2, 9+3, 10+3, 12+4*, ASK2+4, ASK2+9, ASK2+12
>> BMCDF	ASK+1, ASK2+12, ASK2+16, ASK2+21*
>> BMCDFN	16+1
>> BMCDOS	MAIN+4*
>> BMCDTYPE	MAIN+10, MAIN+15, TYPE+1, TYPE+9, TYPE+10, TYPE+11, 80+4
>> BMCETEMP	5+2, 6+1, 7+1, 80+1, 9+2, 10+2, 12+3*, E+7
>> BMCG	5+2, 6+1, 7+1, 80+1, 9+2, 10+2, 12+3*, E+7, D+11
BMCLOOK	A+1*, A+9!
>> BMCMODE	MAIN+1, 2+1, 2+11*, ASK2+16
>> BMCNONE	ASK2+6, ASK2+9, ASK2+12
>> BMCPARM	START+1
>> BMCPPRV	16+1*, 16+7, 16+10
>> BMCQ	START+2, MAIN+1, MAIN+3, MAIN+13, MAIN+15, GETREF+2, GETREF+8, SCREEN+1, SCREEN+7, TYPE+1* , TYPE+12, ASK+2, ASK2+1, ASK2+22*
>> BMCRDX(	E+6, E+7, D+6, D+11
>> BMCREC("PAT N	AME" , 13+1
>> BMCRHDR	16+1*
>> BMCRIEN	MAIN+4, GETREF+7, SCREEN+6, CHS+1, 1+3, 1+8, 2+4, 2+6, 2+14, 3+1 , 4+1, 7+4, 8+1, 10+5, 11+1, 12+1, 16+1, 17+3, 17+4, 17+9 , 17+17, A+6, PCCL+1, VREFP+1, VREFP+2, SNO+1, SNO+3
>> BMCRIO	CHS+1, CHS+3, 3+1
>> BMCRPRV	16+1*, 16+5, 16+7
>> BMCRSTAT	1+5, 2+9
BMCRTY	GETREF+1*, EOJ+1!
>> BMCSCOD	VREF+1, VREF+2, SNO+1, SNO+2
>> BMCSTAT	17+1, 17+16, 17+17
>> BMCSUP	ASK2+4, ASK2+9
>> BMCTERM	5+2, 6+1, 7+1, 80+1, 9+2, 10+2, 12+3*, ASK2+4, ASK2+5, ASK2+12 , ASK2+13, E+9, A+2, A+8, D+8, D+11
>> BMCTMP	2+1*, 2+11
>> BMCV	5+2, 6+1, 7+1, 80+1, 9+2, 10+2, 12+3*, ASK2+7, E+1, A+3 , A+4, A+5, D+1
>> BMCVREF	1+5, 2+9, VREF+1, VREF+2, VREFP+1, VREFP+2
DA	CHS+1, TYPE+6!, 1+3, 2+4, 2+14, 3+1, 4+1, 7+4, 8+1, 10+5* , 11+1, 12+1, 17+17, E+7, A+6, D+11, VREF+2, VREFP+2, VREFP+4!, SNO+3* , SNO+5!
>> DDSFILE	CHS+1, 1+3, 2+4, 2+14, 3+1, 4+1, 8+1, 11+1, 12+1*
>> DDSPARM	CHS+1, 1+3, 2+4, 2+14, 3+1, 4+1, 8+1, 12+1
>> DIC	GETREF+4, SCREEN+3
>> DIC("A"	GETREF+4, SCREEN+3
>> DIC("B"	13+1*
>> DIC("S"	GETREF+4, SCREEN+3
>> DIC(0	GETREF+4, SCREEN+3
DIE	7+4, 10+5, 17+17, E+7, A+6, VREF+2, VREFP+2, VREFP+4!, SNO+3, SNO+5!
>> DIK	D+11*
DIR	CHS+5!, TYPE+6!, 16+3!, 16+9!, 17+2!, 17+14!, ASK2+17!, E+2!, D+2!, D+8!
DIR("?"	17+7*
DIR("A"	CHS+4, TYPE+6, 16+2, 16+8, 17+8, 17+9, 17+10, 17+11, 17+12, 17+13 , ASK2+16, E+2, D+2, D+8
DIR("B"	CHS+4, TYPE+6, 16+2, 16+8, ASK2+16, D+8
DIR(0	CHS+4, TYPE+3, TYPE+5, 16+2, 16+8, 17+7, ASK2+12, ASK2+13, ASK2+14, E+2 , D+2, D+8
>> DIRUT	TYPE+7, 2+8, 80+5, ASK2+18, E+2, E+3, D+2, D+3, D+8*, D+9
DR	CHS+1, 1+3, 2+4, 2+14, 3+1, 4+1, 7+4, 8+1, 10+5, 11+1 , 12+1, 17+17, E+7, A+6, VREF+2, VREFP+2, VREFP+4!, SNO+2*, SNO+5!
>> DUOUT	16+3, 16+9, E+2, D+2, D+8
IOF	14+1, ASK2+2
U	MAIN+4, 1+3, 2+4, 16+1, 17+3, VREF+1, VREFP+1, VREFP+2, SNO+1
X	2+8, 80+5, 17+15, VREFP+4!, SNO+5!
XQA	16+4~, 16+11
XQA(	16+5, 16+10
>> Y	GETREF+6, GETREF+7, SCREEN+5, SCREEN+6, CHS+3, TYPE+8, TYPE+9, 1+8, 2+6, 16+5 , 16+9, 17+16, ASK2+19, ASK2+20, E+4, E+5, E+9, A+8, D+4, D+5 , D+10

Customize PDF page

Package: Referred Care Information System

Routine: BMCMOD

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 15

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: