Routine: BMCAPI2

Package	Total	Call Graph
VA Fileman	3	^DIC ^DIE ^DIK
IHS VA Utilities	1	$$VALI^XBDIQ1
Referred Care Information System	1	(DIE,DIK,DIQ1,FILE)^BMCFMC

Entry Points

Name	Comments	DBIA/ICR reference
AUTH(BMCRIEN,BMCAIEN,F,BMCCHS)	;EP - CHS AUTHORIZATIONS MULTIPLE ; d auth^bmcchs(referral_ien,authorization_ien,"G",.array_name) ; or ; s array(.02)=dollar value ; d auth^bmcchs(referral_ien,authorization_ien,"P",.array_name) ; or ; d auth^bmcchs(referral_ien,authorization_ien,"D")
DXA(BMCRIEN,BMCCHS)	;EP - ADD DIAGNOSIS ; s array(.01)=ICD9 ien ; s array(.02-.06) to appropriate internal values ; d dxa^bmcchs(referral_ien,.array_name)
AUTHPMOD	; MODIFY EXISTING CHS AUTHORIZATION
AUTHPADD	; ADD NEW CHS AUTHORIZATION
PXD(BMCRIEN,BMCCHS)	;EP - DELETE PROCEDURE ; s array(.01)=CPT ien ; s array(.04)=P or F ; s array(.07)=number of units ; d dxd^bmcchs(referral_ien,.array_name)
STATP	; SET CHS STATUS INFORMATION
TOC(BMCRIEN,F,BMCTOC)	;EP - SET TOC ARRAY FOR EHR ; d toc^bmcapi2(referral_ien,"P" OR "G",.array_name) ; BMCRIEN is the IEN of the RCIS REFERRAL ; F is a flag: G to get values, P to put values in file ; BMCTOC is array into which values are set
PXA(BMCRIEN,BMCCHS)	;EP - ADD PROCEDURE ; s array(.01)=CPT code ien ; s array(.02-.07) to appropriate internal values ; d px^bmcchs(referral_ien,.array_name)
AUTHP	; SET CHS AUTHORIZATION VALUES INTO FILE
TOCG	;GET TOC INFORMATION
DENIAL	;TEST AND ADD MULT DENIAL PROVIDERS AND MULT DENIAL REASONS
DXD(BMCRIEN,BMCCHS)	;EP - DELETE DIAGNOSIS ; s array(.01)=ICD9 ien ; s array(.04)=P or F ; d dxd^bmcchs(referral_ien,.array_name)
VEN(BMCRIEN,BMCTOC)
TOCP	;PUT TOC INFORMATION
AUTHG	; GET CHS AUTHORIZATION VALUES
AUTHD	; DELETE CHS AUTHORIZATION ENTRY

External References

Name	Field # of Occurrence
DIE^BMCFMC	STATP+5, STATP+15, AUTHPMOD+6, DXA+20, DXD+20, PXA+21, PXD+21
DIK^BMCFMC	AUTHD+3
DIQ1^BMCFMC	AUTHG+4
FILE^BMCFMC	AUTHPADD+6, DXA+25, PXA+25
^DIC	DENIAL+10, DENIAL+18
^DIE	DENIAL+20
^DIK	DXD+17, PXD+18
$$VALI^XBDIQ1	TOCP+2, VEN+16, DXA+17, DXD+15, PXA+19, PXD+16

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BMCDX - [#90001.01]	DXA+15, DXD+13
^BMCDX("AD"	DXA+15, DXD+13
^BMCPARM - [#90001.31]	STATP+11
^BMCPX - [#90001.02]	PXA+15, PXD+14
^BMCPX("AD"	PXA+15, PXD+14
^BMCREF - [#90001]	TOC+7, VEN+13, VEN+14, AUTH+16, AUTHG+1, AUTHP+1, AUTHD+1, DENIAL+9, DENIAL+17, DXA+7 , DXD+7, PXA+7, PXD+8
^DD(90001	AUTHPADD+5

Label References

Name	Line Occurrences
@(	TOC+8, AUTH+18
AUTHPADD	AUTHP+1
AUTHPMOD	AUTHP+2

Naked Globals

Name	Field # of Occurrence
^(0	DXA+15, DXD+13, PXA+15, PXD+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BMCAIEN	AUTH~, AUTH+17, AUTHG+1, AUTHG+3, AUTHG+5, AUTHP+1, AUTHPADD+5, AUTHPMOD+5, AUTHD+1, AUTHD+2
BMCCHS	AUTH~, DXA~, DXD~, PXA~, PXD~
BMCCHS(	TOCP+2, TOCP+4, STATP+3, STATP+10, STATP+13, AUTHG+2, AUTHG+5, AUTHPADD+2, AUTHPADD+3, AUTHPADD+4 , AUTHPMOD+2, AUTHPMOD+3, AUTHPMOD+4, DENIAL+2, DENIAL+4, DENIAL+19, DXA+8, DXA+10, DXA+11, DXA+13 , DXA+15, DXA+22, DXA+24, DXD+9, DXD+11, DXD+13, PXA+8, PXA+10, PXA+12, PXA+13 , PXA+15, PXA+17, PXA+23, PXA+24, PXD+10, PXD+12, PXD+14, PXD+17
BMCCHS(1128	STATP+7
>> BMCCHSP	DENIAL+1, DENIAL+6
BMCCHSQ	DXA+5~, DXA+9, DXA+10, DXA+12, DXA+15, DXA+16, DXD+5~, DXD+8, DXD+9, DXD+10 , DXD+13, DXD+14, PXA+5~, PXA+9, PXA+10, PXA+11, PXA+15, PXA+16, PXD+6~, PXD+9 , PXD+10, PXD+11, PXD+14, PXD+15
>> BMCCHSR	DENIAL+1, DENIAL+13
BMCCHSV	AUTH+14~
BMCCHSV(	AUTHG+5
BMCCHSX	TOCP+1, TOCP+2, TOCP+3, TOCP+4, STATP+3, STATP+10, STATP+12, STATP+13, AUTH+14~, AUTHG+2 , AUTHG+5, AUTHPADD+2, AUTHPMOD+2, DENIAL+1, DENIAL+2, DENIAL+4, DENIAL+5, DENIAL+12, DENIAL+19, DXA+5~ , DXA+10, DXA+13, DXA+15, DXA+17, DXA+18, DXA+19, DXA+22, DXD+5~, DXD+9, DXD+11 , DXD+13, DXD+15, DXD+16, DXD+17, DXD+19, PXA+5~, PXA+10, PXA+13, PXA+15, PXA+17* , PXA+18, PXA+19, PXA+20, PXA+23, PXD+6~, PXD+10, PXD+12, PXD+14, PXD+16, PXD+17 , PXD+18, PXD+20
BMCCHSY	DXA+5~, DXA+13, DXA+15, DXA+17, DXA+19, DXD+5~, DXD+11, DXD+13, DXD+15, DXD+17 , DXD+19, PXA+5~, PXA+13, PXA+15, PXA+19, PXA+20, PXD+6~, PXD+12, PXD+14, PXD+16 , PXD+18, PXD+20
BMCRIEN	TOC~, TOC+6, TOC+7, TOCP+2, VEN~, VEN+12, VEN+13, VEN+14, STATP+1, STATP+6 , AUTH~, AUTH+15, AUTH+16, AUTHG+1, AUTHG+3, AUTHP+1, AUTHPADD+5, AUTHPMOD+5, AUTHD+1, AUTHD+2 , DENIAL+7, DENIAL+8, DENIAL+9, DENIAL+15, DENIAL+16, DENIAL+17, DXA~, DXA+6, DXA+7, DXA+8 , DXA+15, DXD~, DXD+6, DXD+7, DXD+13, PXA~, PXA+6, PXA+7, PXA+8, PXA+15 , PXD~, PXD+7, PXD+8, PXD+14
BMCTOC	TOC~, VEN~
BMCTOC(	VEN+16*
>> BMCTOCX	VEN+16*
>> BMCVIEN	VEN+14*, VEN+15, VEN+16
DA	STATP+1, STATP+6, AUTHG+3, AUTHPMOD+5, AUTHD+2, DENIAL+11!, DENIAL+21!, DENIAL+22!, DXA+19, DXD+17* , DXD+19, PXA+20, PXD+18, PXD+20
DA(	AUTHG+3*
DA(1	AUTHPADD+5, AUTHPMOD+5, AUTHD+2, DENIAL+8, DENIAL+16*
DIC	AUTHG+3, AUTHPADD+5, DENIAL+7, DENIAL+11!, DENIAL+15, DENIAL+21!, DENIAL+22!, DXA+24, PXA+24
DIC("DR"	AUTHPADD+1, AUTHPADD+2, AUTHPADD+3, AUTHPADD+4, DENIAL+1, DXA+21, DXA+22, DXA+23, PXA+22, PXA+23
DIC("P"	AUTHPADD+5*
DIC(0	AUTHPADD+5, DENIAL+7, DENIAL+15, DXA+24, PXA+24*
DIE	STATP+1, STATP+6, AUTHPMOD+5, DENIAL+11!, DENIAL+15, DENIAL+21!, DENIAL+22!, DXA+19, DXD+19, PXA+20* , PXD+20*
>> DIK	AUTHD+2, DXD+17, PXD+18*
>> DINUM	AUTHPADD+5*
>> DIQ	AUTHG+3*
>> DIQ(0	AUTHG+3*
DLAYGO	DENIAL+7, DENIAL+11!, DENIAL+15, DENIAL+21!, DENIAL+22!, DXA+24, PXA+24
>> DR	STATP+1, STATP+3, STATP+4, STATP+6, STATP+10, STATP+13, STATP+14, AUTHG+3, AUTHPMOD+1, AUTHPMOD+2 , AUTHPMOD+3, AUTHPMOD+4, DENIAL+19, DXA+19, DXD+19, PXA+20, PXD+20*
>> DR(	AUTHG+3*
DUZ(2	STATP+11
F	TOC~, TOC+8, AUTH~, AUTH+18
U	VEN+14, STATP+11, AUTHPADD+5, DENIAL+19, DXA+15, DXD+13, PXA+15, PXD+14
X	AUTHPADD+5, DENIAL+4, DENIAL+11!, DENIAL+21!, DENIAL+22!, DXA+24, PXA+24
Y	DENIAL+11!, DENIAL+21!, DENIAL+22!
>> ZTQUEUED	BMCAPI2+5

Customize PDF page

Package: Referred Care Information System

Routine: BMCAPI2

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: