Routine: BMCADD1

Call Graph

Call Graph Total: 25

Package	Total	Call Graph
Referred Care Information System	11	($$GETR,EOP)^BMC MEDCOM^BMCADD PALRT1^BMCALERT ^BMCDXSTF DIE^BMCFMC ENMM^BMCMM (DX,PROC)^BMCMOD ^BMCPXSTF ^BMCRCHK ^BMCRCHK1 $$AVDOS^BMCRLU
VA Fileman	7	DD^%DT $$GET^DDSVAL ^DIC FILE^DICN ^DIE ^DIK ^DIR
Lexicon Utility	3	^LEXA1 CONFIG^LEXSET ($$CSYS,$$IMPDATE)^LEXU
IHS VA Utilities	2	ENPM^XBDIQ1 ^XBFMK
DRG Grouper	1	($$CODEN,$$STATCHK)^ICDEX
IHS Patient	1	($$MCD,$$MCR,$$PI)^AUPNPAT

Package	Total	Caller Graph
Referred Care Information System	3	BMCADD BMCADDFY BMCMOD

Package

Total

Caller Graph

Referred Care Information System

BMCADD BMCADDFY BMCMOD

Entry Points

Name	Comments	DBIA/ICR reference
MGDCARE	;EP;Prompt for Managed Care Committee Action
DXASK	;
DOSDX(Y)	;EP FR DD SCREEN FOR DX CATEGORY
DXCAT	;EP From Add referrals, test for active DX Cat codes;BMC4.09 NEW SUB
PXASK	;Check Existence of Primary PX
PX	; GET PROVISIONAL PROCEDURES
COMMENTS	;EP ADD COMMENTS ;CALLED FR BMCADD,BMCADDFY,BMCADDS,BMCMOD,BMCMODS
ADDDX	;EP auto stuff dx and proc from routine referral
STATIC	;EP - STORE STATIC DATA
DX	;EP FROM BMCMOD
MEDHX	; GET PROVISIONAL DIAGNOSES
DXPX	;EP GET PROVIDIONAL DIAGNOSES/PROCEDURES IF WANTED
ADDPX	;EP auto stuff proc from routine referral
REFSNO	;EP FR BMCMODS AND BMCADDS;BMC4.09 ADD SNOMED CODE FOR SITE W/O PCC

External References

Name	Field # of Occurrence
DD^%DT	MEDHX+3
$$MCD^AUPNPAT	STATIC+22
$$MCR^AUPNPAT	STATIC+21
$$PI^AUPNPAT	STATIC+23
$$GETR^BMC	MEDHX+2
EOP^BMC	STATIC+36
MEDCOM^BMCADD	MEDHX+6
PALRT1^BMCALERT	STATIC+35
^BMCDXSTF	DX+6
DIE^BMCFMC	DX+27, COMMENTS+13, MGDCARE+9, STATIC+26
ENMM^BMCMM	STATIC+30, STATIC+31, STATIC+32, STATIC+33
DX^BMCMOD	DX+1, DXASK+3
PROC^BMCMOD	PX+2, PX+8, PXASK+3
^BMCPXSTF	PX+7
^BMCRCHK	DXASK+2
^BMCRCHK1	PXASK+2
$$AVDOS^BMCRLU	DX+7
$$GET^DDSVAL	DXCAT+3, DXCAT+4
^DIC	COMMENTS+3, REFSNO+5
FILE^DICN	DX+23, ADDDX+8, ADDPX+4
^DIE	COMMENTS+7, ADDDX+10, ADDPX+6
^DIK	COMMENTS+8
^DIR	DX+4, PX+4, MGDCARE+4
$$CODEN^ICDEX	DX+19
$$STATCHK^ICDEX	ADDDX+7
^LEXA1	DX+17
CONFIG^LEXSET	DX+16
$$CSYS^LEXU	DX+10
$$IMPDATE^LEXU	DX+8
ENPM^XBDIQ1	ADDDX+2, ADDPX+2
^XBFMK	ADDDX+12, ADDPX+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"Referral #: ",$$GETR^BMC Line Location: MEDHX+2
Function Call: WRITE	Prompt: !?5,"Referral Date: " Line Location: MEDHX+3
Function Call: WRITE	Prompt: Y Line Location: MEDHX+3
Function Call: WRITE	Prompt: ?40,"Patient Name: ",$P(^DPT(BMCDFN,0),U) Line Location: MEDHX+4
Function Call: WRITE	Prompt: !! Line Location: MEDHX+5
Function Call: WRITE	Prompt: !! Line Location: DX+17
Function Call: WRITE	Prompt: !!,"INVALID CODE cannot add." Line Location: DX+20
Function Call: WRITE	Prompt: !,"Unable to add DX code." Line Location: DX+24
Function Call: WRITE	Prompt: ! Line Location: DX+29
Function Call: WRITE	Prompt: ! Line Location: PX+1
Function Call: WRITE	Prompt: !,"Unable to add CPT Procedure code." Line Location: PX+18
Function Call: WRITE	Prompt: ! Line Location: MGDCARE+1
Function Call: WRITE	Prompt: !,"Storing static fields....",! Line Location: STATIC+1
Function Call: WRITE	Prompt: !,"Entry of Referral ",$P(^BMCREF(BMCRIEN,0),U,2)," is complete.",! Line Location: STATIC+28
Function Call: WRITE	Prompt: !,"Adding referral diagnoses.." Line Location: ADDDX+1
Function Call: WRITE	Prompt: !!,"bad news -- error creating dx record - notify programmer" Line Location: ADDDX+9
Function Call: WRITE	Prompt: !!,"ADDING DX FAILED" Line Location: ADDDX+11
Function Call: WRITE	Prompt: !,"INVALID ICD DX CODE FOR DATE OF SERVICE, Please Edit DX for Template" Line Location: ADDDX+13
Function Call: WRITE	Prompt: !,"Adding referral procedures.." Line Location: ADDPX+1
Function Call: WRITE	Prompt: !!,"bad news -- error creating proc record - notify programmer" Line Location: ADDPX+5
Function Call: WRITE	Prompt: !!,"ADDING PROC FAILED" Line Location: ADDPX+7
Function Call: WRITE	Prompt: !,"The snomed clinical term was not added to the referral." Line Location: REFSNO+6
Routine Call	DIE Line Location: COMMENTS+7 ADDDX+10 ADDPX+6
Routine Call	DIC Line Location: COMMENTS+3 REFSNO+5
Routine Call	DIR Line Location: DX+4 PX+4 MGDCARE+4

FileNo	Call Tags
^BMCREF - [#90001]	Classic Fileman Calls, GET^DDSVAL
^BMCDX - [#90001.01]	Classic Fileman Calls
^BMCPX - [#90001.02]	Classic Fileman Calls
^BMCCOM - [#90001.03]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	STATIC+10, STATIC+13
^AUTTLOC - [#9999999.06]	STATIC+12
^AUTTTRI - [#9999999.03]	STATIC+15
^AUTTVNDR - [#9999999.11]	STATIC+18, STATIC+19
^BMCCOM - [#90001.03]	COMMENTS+8, COMMENTS+9*
^BMCPARM - [#90001.31]	STATIC+35
^BMCREF - [#90001]	MEDHX+3, DX+7, STATIC+2, STATIC+28, DXCAT+5, REFSNO+3
^BMCRTNRF - [#90001.32]	DX+1, PX+2
^BMCTDXC - [#90001.51]	DOSDX+2
^DIC(4 - [#4]	STATIC+11
^DPT - [#2]	MEDHX+4, STATIC+3

Name	Line Occurrences
ADDDX	DX+1
ADDPX	PX+2
DX	DXPX+3
DXASK	DX+6
MEDHX	DXPX+1
PX	DXPX+4
PXASK	PX+7
REFSNO	STATIC+27

Name	Field # of Occurrence
^(0	DOSDX+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	STATIC+8, STATIC+9, STATIC+10, STATIC+11, STATIC+12, STATIC+16, STATIC+17, STATIC+18, STATIC+19, STATIC+20* , STATIC+21, STATIC+22, STATIC+23
BMCAR	ADDDX+2!, ADDDX+3, ADDDX+14!, ADDPX+2!, ADDPX+3, ADDPX+9!
BMCAR(	ADDDX+5, ADDDX+6, ADDPX+4
>> BMCASK	DX+5, DX+6, DX+11, PX+6, PX+7
>> BMCCD	ADDDX+6*, ADDDX+7
>> BMCCDI	ADDDX+6*, ADDDX+8
>> BMCCHSA	STATIC+30
>> BMCCTYP	COMMENTS+6, COMMENTS+11
>> BMCDFN	MEDHX+4, DX+25, COMMENTS+6, STATIC+3, STATIC+10, STATIC+13, STATIC+21, STATIC+22, STATIC+23, ADDDX+10 , ADDPX+6
>> BMCDI	ADDDX+5*
>> BMCDOS	DX+7, DX+8, DX+16, ADDDX+7, DXCAT+2, DXCAT+3, DXCAT+4, DXCAT+5, DXCAT+6, DOSDX+1* , DOSDX+2
BMCDX	DX+30!
>> BMCDXASK	DXASK+1, DXASK+3
>> BMCDXCPT	DX+6, PX+7
>> BMCDXPR	DXPX+2
>> BMCHOUSA	STATIC+33
BMCI	ADDDX+5, ADDDX+6, ADDDX+14!, ADDPX+4, ADDPX+9!
>> BMCICD	DX+8, DX+9, DX+10, DX+16
>> BMCICD1	DX+8, DX+9, DX+16
>> BMCIHSA	STATIC+31
BMCLEX	DX+10*, DX+19, DX+30!
BMCLOOK	DX+12, DX+28!, COMMENTS+2, COMMENTS+10!, MGDCARE+7*
>> BMCMGCR	MGDCARE+2
>> BMCOTHRA	STATIC+32
>> BMCPCC	STATIC+27
>> BMCPXASK	PXASK+1, PXASK+3
>> BMCQ	DX+6, DX+11, DX+18, DX+24, DXASK+4, PX+7, PXASK+4, COMMENTS+2, COMMENTS+14, MGDCARE+6 , MGDCARE+10*
>> BMCREC	STATIC+2*, STATIC+8, STATIC+16, STATIC+20
>> BMCRHDR	STATIC+35*
>> BMCRIEN	MEDHX+3, DX+7, DX+25, COMMENTS+6, COMMENTS+12, MGDCARE+8, STATIC+2, STATIC+25, STATIC+28, ADDDX+10 , ADDPX+6, DXCAT+5, REFSNO+3, REFSNO+4
>> BMCRR	DX+1, PX+2, ADDDX+2, ADDPX+2
>> BMCRTYPE	STATIC+30, STATIC+31, STATIC+32, STATIC+33
>> BMCSCOD	REFSNO+2
>> BMCTST	ADDDX+5, ADDDX+7, ADDDX+13
>> BMCV	DX+2, DX+11
D0	ADDDX+8!, ADDPX+4!
DA	DX+30!, COMMENTS+4, COMMENTS+8, COMMENTS+9, COMMENTS+10!, COMMENTS+12, MGDCARE+8, STATIC+25, ADDDX+8!, ADDDX+10* , ADDPX+4!, ADDPX+6*, DXCAT+2, DXCAT+3, DXCAT+4, REFSNO+7!
DA(1	REFSNO+4*
DD	ADDDX+8!, ADDPX+4!
DDSERROR	DXCAT+1!
DIADD	COMMENTS+3, COMMENTS+10!, REFSNO+3
DIC	DX+21!, DX+23, DX+30!, COMMENTS+3, COMMENTS+4, COMMENTS+10!, ADDDX+8, ADDPX+4, REFSNO+2, REFSNO+4 , REFSNO+7!
DIC("A"	DX+17*
DIC("P"	REFSNO+3*
DIC(0	DX+23, COMMENTS+3, ADDDX+8, ADDPX+4, REFSNO+3*
DIE	DX+26, DX+30!, COMMENTS+4, COMMENTS+10!, COMMENTS+12, MGDCARE+8, STATIC+25, STATIC+26!, ADDDX+10, ADDPX+6*
>> DIK	COMMENTS+8*
DIR	DX+4!, PX+4!, MGDCARE+4!
DIR("?"	DX+3, PX+3, MGDCARE+3*
DIR("A"	DX+3, PX+3, MGDCARE+3*
DIR("B"	DX+3, PX+3, MGDCARE+3*
DIR(0	DX+3, PX+3, MGDCARE+3*
>> DIRUT	DX+2, PX+5, MGDCARE+5
DLAYGO	DX+23, COMMENTS+3, COMMENTS+10!, ADDDX+8, ADDPX+4
DR	DX+25, DX+30!, COMMENTS+6, COMMENTS+10!, COMMENTS+12, MGDCARE+8, STATIC+4, STATIC+5, STATIC+6, STATIC+7 , STATIC+10, STATIC+11, STATIC+12, STATIC+14, STATIC+15, STATIC+18, STATIC+19, STATIC+21, STATIC+22, STATIC+23 , STATIC+26!, ADDDX+10, ADDPX+6
DT	COMMENTS+3, DOSDX+1
DUZ	COMMENTS+6
DUZ(2	STATIC+35
HLP	DXCAT+1!
ICDV	DX+30!
IOF	MEDHX+1
>> LAYGO	REFSNO+3*
LEXQ	DX+30!
LEXVDT	DX+30!
U	MEDHX+3, MEDHX+4, DX+7, COMMENTS+9, STATIC+4, STATIC+5, STATIC+6, STATIC+7, STATIC+8, STATIC+10 , STATIC+11, STATIC+12, STATIC+14, STATIC+15, STATIC+16, STATIC+18, STATIC+19, STATIC+20, STATIC+28, STATIC+35 , DXCAT+5, DOSDX+2
X	DX+17!, DX+19, DX+20, DX+30!, COMMENTS+3, ADDDX+8, ADDDX+14!, ADDPX+4, REFSNO+2*
XQA	STATIC+35~
Y	MEDHX+3, DX+5, DX+18, DX+21!, DX+24, PX+6, COMMENTS+4, MGDCARE+6, STATIC+3, STATIC+4 , STATIC+5, STATIC+6, STATIC+7, STATIC+13*, STATIC+14, STATIC+15, ADDDX+9, ADDDX+10, ADDDX+11, ADDPX+5 , ADDPX+6, ADDPX+7, DOSDX~, DOSDX+2, REFSNO+6
Y(	DX+19

Customize PDF page

Package: Referred Care Information System

Routine: BMCADD1

Information

Source Information

Call Graph

Call Graph Total: 25

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: