Routine: BMCADD

Package	Total	Call Graph
Referred Care Information System	8	($$REFN,EOP,HDR,PARMSET,PAUSE)^BMC (COMMENTS,DXPX,MGDCARE,STATIC)^BMCADD1 ^BMCADD2 DSPV^BMCADDP (DDS,DIC,DIE,FILE)^BMCFMC ^BMCKILL START^BMCLKID1 ^BMCREF
VA Fileman	4	%XY^%RCR ^DIE (,IX1)^DIK ^DIR
Kernel	2	$$NOW^XLFDT $$LOW^XLFSTR
IHS Patient	1	$$DOD^AUPNPAT
IHS Standard Terminology	1	$$CONC^BSTSAPI
Patient Care Component Reports	1	$$PRIMPROV^APCLV

Package	Total	Caller Graph
Referred Care Information System	5	BMC ADD REFERRAL BMCADD1 BMCADDFY BMCADDS BMCAPI

Entry Points

Name	Comments	DBIA/ICR reference
ADD2	;add if routine referrals have been defined
EOJ	; END OF JOB
L16	;
NUMBER	; GENERATE REFERRAL NUMBER
GETANS	;
DXPX	; GET PROVIDIONAL DIAGNOSES/PROCEDURES IF WANTED
PATIENT2	; ASK FOR PATIENT UNTIL USER SELECTS OR QUITS
STATIC	; STORE STATIC DATA
DATE	; GET DATE OF REFERRAL
BOCOM	;EP;BUSINESS OFFCIE COMMENTS
PATIENT	;EP; GET PATIENT
RR	;routine referral selected
MEDCOM	;EP;MEDICAL HX/FINDINGS COMMENTS
NEXT	;2ND $O
CSECOM	;EP; GET CASE COMMENTS
ASK	;EP;Ask to Continue
GETDATE	;EP;Do Get Date if no existing Referrals
G30	;
CALLIN	;GET CALL IN BY AND DATE ;BMC4.012 IHS/OIT/FCJ NEW SECTION
START	;
ADD	; ADD NEW REFERRAL RECORD
ADDVREF	;EP FR BMCADDFY AND BMCADDS;ADD ENTRY TO V REF FILE ;BMC4.08 NEW SECTION
MGDCARE	; Get Managed Care Committee Action
REFDISP	;EP;Display if Patient has existing Referrals
PROV	; GET REQUESTING PROVIDER
COMMENTS	;EP
EDIT	; EDIT REFERRAL RECORD JUST ADDED
MAIN	;
DELETE	; DELETE REFERRAL JUST ADDED BECAUSE OPERATOR DIDN'T FINISH

External References

Name	Field # of Occurrence
%XY^%RCR	RR+13
$$PRIMPROV^APCLV	ADDVREF+4
$$DOD^AUPNPAT	PATIENT2+6
$$REFN^BMC	NUMBER+2
EOP^BMC	DATE+13, NUMBER+5, ADD+14, RR+9, ADDVREF+6
HDR^BMC	START+2
PARMSET^BMC	START+1
PAUSE^BMC	EDIT+11, DELETE+3
COMMENTS^BMCADD1	COMMENTS+5
DXPX^BMCADD1	DXPX+1
MGDCARE^BMCADD1	MGDCARE+1
STATIC^BMCADD1	STATIC+1
^BMCADD2	G30+10
DSPV^BMCADDP	GETDATE+7
DDS^BMCFMC	EDIT+5
DIC^BMCFMC	PATIENT2+2
DIE^BMCFMC	RR+24
FILE^BMCFMC	ADD+13, RR+7, ADDVREF+5
^BMCKILL	EOJ+1
START^BMCLKID1	NEXT+7
^BMCREF	RR+26, EDIT+8
$$CONC^BSTSAPI	RR+15
^DIE	ADDVREF+12
^DIK	DELETE+2
IX1^DIK	RR+21
^DIR	PATIENT2+8, ASK+2, DATE+3, PROV+3, CALLIN+3, CALLIN+7, G30+4, GETANS+1, COMMENTS+3
$$NOW^XLFDT	ADDVREF+4
$$LOW^XLFSTR	ADD2+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This patient is deceased." Line Location: PATIENT2+7
Function Call: WRITE	Prompt: ! Line Location: PATIENT2+9
Function Call: WRITE	Prompt: !! Line Location: ASK+2
Function Call: WRITE	Prompt: !!,?25,"********************",! Line Location: REFDISP+1
Function Call: WRITE	Prompt: ?25,"LAST 5 REFERRALS",!,?25,"********************",! Line Location: REFDISP+2
Function Call: WRITE	Prompt: !,?20,"--NO EXISTING REFERRALS--",! Line Location: REFDISP+3
Function Call: WRITE	Prompt: ! Line Location: DATE+1
Function Call: WRITE	Prompt: ! Line Location: CALLIN+1
Function Call: WRITE	Prompt: ! Line Location: CALLIN+6
Function Call: WRITE	Prompt: !,"Error generating new referral number. Notify programmer.",! Line Location: NUMBER+5
Function Call: WRITE	Prompt: !,"Error creating REFERRAL.",!,"Notify programmer.",! Line Location: ADD+14
Function Call: WRITE	Prompt: !,"Error creating REFERRAL.",!,"Notify programmer.",! Line Location: RR+9
Function Call: WRITE	Prompt: !!,"Error in editing referral entry. NOTIFY PROGRAMMER." Line Location: RR+25
Function Call: WRITE	Prompt: !,"Error creating V REFERRAL.",!,"Notify programmer.",! Line Location: ADDVREF+6
Function Call: WRITE	Prompt: !,"Error adding V REFERRAL in RCIS Referral file.",!,"Notify programmer." Line Location: ADDVREF+13
Function Call: WRITE	Prompt: !,"Please select the referral form you wish to use." Line Location: ADD2+7
Function Call: WRITE	Prompt: !!?5,"1. ",BMCSEL(1) Line Location: ADD2+8
Function Call: WRITE	Prompt: !?5,"2. ",BMCSEL(2) Line Location: ADD2+9
Function Call: WRITE	Prompt: !?5,"3. ",BMCSEL(3) Line Location: ADD2+10
Function Call: WRITE	Prompt: !?5,"4. ",BMCSEL(4) Line Location: ADD2+11
Function Call: WRITE	Prompt: !?5,I,". ",$P(BMCSEL(I),U,2) Line Location: L16+2
Function Call: WRITE	Prompt: ?40,J,") ",$P(BMCSEL(J),U,2) Line Location: L16+6
Function Call: WRITE	Prompt: ! Line Location: GETANS+1
Function Call: WRITE	Prompt: !,"You must enter a Vendor, IHS Facility or In-House Clinic, depending on the",!,"referral type.",! Line Location: EDIT+11
Function Call: WRITE	Prompt: !!,"INCOMPLETE REFERRAL BEING DELETED!",!! Line Location: DELETE+1
Function Call: WRITE	Prompt: ! Line Location: CSECOM+1
Function Call: WRITE	Prompt: ! Line Location: MEDCOM+1
Function Call: WRITE	Prompt: ! Line Location: MEDCOM+5
Function Call: WRITE	Prompt: ! Line Location: BOCOM+1
Routine Call	DIE Line Location: ADDVREF+12
Routine Call	DIR Line Location: PATIENT2+8 ASK+2 DATE+3 PROV+3 CALLIN+3 CALLIN+7 G30+4 GETANS+1 COMMENTS+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BMCREF - [#90001]	NEXT+5, RR+16, RR+17!, RR+18, RR+20*, EDIT+10
^BMCREF("AA"	REFDISP+3, REFDISP+6, NEXT+2, DATE+11
^BMCRTNRF - [#90001.32]	RR+15, ADD2+14
^BMCRTNRF("B"	ADD2+12, ADD2+14
^DD(90001	NUMBER+4
^DPT - [#2]	PATIENT2+4

Label References

Name	Line Occurrences
ADD	GETDATE+5
ADD2	ADD+2
ADDVREF	GETDATE+10
ASK	MAIN+8
BOCOM	EDIT+14
CALLIN	ADD+6
COMMENTS	CSECOM+4, MEDCOM+4, BOCOM+4
DATE	GETDATE+1
DELETE	GETDATE+7, EDIT+6
DXPX	EDIT+12
EDIT	GETDATE+8, EDIT+11
EOJ	START+3
GETANS	L16+3, L16+7
GETDATE	MAIN+7
MAIN	START+2
NEXT	REFDISP+6
NUMBER	GETDATE+3
PATIENT	MAIN+4
PATIENT2	PATIENT+1
PROV	ADD+4
REFDISP	MAIN+6
STATIC	EDIT+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %X	RR+13*
>> %Y	RR+13*
>> APCDOVRR	MAIN+3*
>> BMCCBY	CALLIN+2, CALLIN+9, ADD+12
>> BMCCDT	CALLIN+2, CALLIN+5, ADD+12
>> BMCCTYP	CSECOM+3, MEDCOM+3, BOCOM+3*, COMMENTS+2
>> BMCCUT	L16+5*, L16+6
BMCDFN	PATIENT+1, PATIENT2+4*, PATIENT2+6!, REFDISP+3, REFDISP+6, NEXT+2, DATE+11, ADD+11, RR+23, ADDVREF+4
BMCDISP	ADD2+1!
BMCDISP(	L16+6*
>> BMCDT	REFDISP+5, REFDISP+6, NEXT+2, NEXT+3
BMCHIGH	ADD2+1!, ADD2+2, ADD2+3, ADD2+4, ADD2+5, ADD2+14*, L16+5, G30+4, GETANS+1
>> BMCLOOK	MAIN+2*
BMCMINI	ADD2+1!, G30+8, GETANS+5, EDIT+4, EDIT+14
BMCMINIX	ADD2+1!, G30+9, GETANS+6, EDIT+4, EDIT+14
>> BMCMODE	MAIN+2*
BMCOUTR	GETDATE+7, GETDATE+10, PROV+2, ADD+6, ADD+12, ADD2+1!, G30+7, GETANS+4, EDIT+4
BMCOVRPS	RR+6*, RR+8!
>> BMCPARM	START+1
>> BMCPCC	GETDATE+7, GETDATE+10
>> BMCPROV	PROV+1, PROV+5, ADD+11, RR+23, ADDVREF+4
>> BMCQ	START+2, MAIN+1, MAIN+5, MAIN+7, MAIN+9, GETDATE+2, GETDATE+4, GETDATE+6, GETDATE+7, GETDATE+9 , PATIENT+1, PATIENT2+1, PATIENT2+5, ASK+1, ASK+3, ASK+4, REFDISP+3, REFDISP+4, DATE+2, DATE+6 , DATE+14, PROV+1, PROV+2, PROV+6, CALLIN+2, CALLIN+10, NUMBER+1, NUMBER+7, ADD+1, ADD+5 , ADD+7, ADD+17, RR+27, EDIT+6
>> BMCRDATE	DATE+5*, DATE+11, ADD+10, RR+7, RR+20
>> BMCREC("PAT N	AME" , PATIENT2+4*, PATIENT2+6!, DATE+12
>> BMCREC("REF D	ATE" , DATE+5*, DATE+12
>> BMCRIEN	NEXT+1, NEXT+2, NEXT+4, NEXT+5, ADD+16, RR+10, RR+13, RR+16, RR+17, RR+18 , RR+20, RR+21, RR+26, ADDVREF+4, ADDVREF+10, EDIT+1, EDIT+7, EDIT+10, DELETE+2
>> BMCRNUMB	NUMBER+6*, ADD+11, ADD+15, RR+23
>> BMCRPROV	PROV+5*
BMCRR	ADD+2, ADD+3, ADD+8, RR+13, RR+15, ADD2+1!, G30+6, G30+7, G30+8, G30+9* , G30+10!, GETANS+3, GETANS+4, GETANS+5, GETANS+6, GETANS+7*
>> BMCRRC	ADD2+12*, ADD2+13, L16+1, L16+4, G30+1
>> BMCRTYPE	EDIT+10
>> BMCSCOD	MAIN+2, RR+14, RR+15*, ADDVREF+1
BMCSEL	ADD2+1!
BMCSEL(	ADD2+14*, L16+2, L16+6, GETANS+7
BMCSEL(1	ADD2+2*, ADD2+8
BMCSEL(2	ADD2+3*, ADD2+9
BMCSEL(3	ADD2+4*, ADD2+10
BMCSEL(4	ADD2+5*, ADD2+11
BMCSEL(5	G30+2*, G30+3
>> BMCSNO	MAIN+2*
>> BMCSTRM	MAIN+2, RR+14, RR+15*
>> BMCVDFN	MAIN+2*, ADDVREF+4
>> BMCVRIE	MAIN+2, ADDVREF+7, ADDVREF+11
CT	REFDISP+5, REFDISP+6, REFDISP+7!, NEXT+6, NEXT+8
DA	PATIENT2+8!, ASK+2!, DATE+3!, PROV+3!, CALLIN+3!, CALLIN+7!, RR+21, ADDVREF+10, EDIT+1, DELETE+2
>> DDSCHANG	EDIT+6
>> DDSFILE	EDIT+1*
>> DDSPARM	EDIT+4*
DIC	PATIENT2+2, ADD+10, RR+7, ADDVREF+1, ADDVREF+9!
DIC("DR"	ADD+11, ADD+12, ADDVREF+4*
DIC(0	PATIENT2+2, ADD+10, RR+7, ADDVREF+1
DIE	RR+23, ADDVREF+10, ADDVREF+14!
>> DIK	RR+21, DELETE+2
DIR	PATIENT2+8!, ASK+2!, DATE+3!, PROV+3!, CALLIN+3!, CALLIN+7!, G30+4!, GETANS+1!, COMMENTS+3!
DIR("?"	COMMENTS+1*
DIR("A"	PATIENT2+8, ASK+2, PROV+3, CALLIN+3, CALLIN+7, G30+4, GETANS+1, CSECOM+2, MEDCOM+2, BOCOM+2
DIR("B"	PATIENT2+8, ASK+2, DATE+3, G30+4, GETANS+1, COMMENTS+1, COMMENTS+2*
DIR(0	PATIENT2+8, ASK+2, DATE+3, PROV+3, CALLIN+3, CALLIN+7, G30+4, GETANS+1, COMMENTS+1*
>> DIRUT	ASK+3, DATE+4, PROV+4, CALLIN+4, CALLIN+8, G30+5, GETANS+2, COMMENTS+4
>> DLAYGO	ADD+10, RR+7, ADDVREF+1*
>> DR	RR+23, ADDVREF+11, EDIT+4*
DT	ADD+11, RR+23
DUZ	ADD+11, RR+23
>> I	REFDISP+6, L16+2, L16+6*
IOF	ADD2+6
>> J	L16+6*
>> K	L16+6*
U	PATIENT2+4, NEXT+5, PROV+5, NUMBER+4, RR+15, RR+16, RR+18, RR+20, ADD2+14, L16+2 , L16+6, GETANS+7, EDIT+10
>> X	NUMBER+2, NUMBER+3, NUMBER+5, NUMBER+6, ADD+10, RR+7, ADDVREF+1, ADD2+12, ADD2+14, EDIT+10* , EDIT+11
>> Y	PATIENT2+3, PATIENT2+4, PATIENT2+6, ASK+4, DATE+5, PROV+5, CALLIN+4, CALLIN+5, CALLIN+8, CALLIN+9 , ADD+14, ADD+16, RR+9, RR+10, RR+25, RR+26, ADDVREF+6, ADDVREF+7, ADDVREF+13, ADD2+14 , G30+6, G30+7, G30+8, G30+9, G30+10, GETANS+3, GETANS+4, GETANS+5, GETANS+6, GETANS+7 , EDIT+7*, COMMENTS+4
>> Y(0	DATE+5

Customize PDF page

Package: Referred Care Information System

Routine: BMCADD

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: