Routine: BMCCHS

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

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSBMC

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
SNOCLS	;BMC4.08 7.22.13 IHS.OIT.FCJ ADD SNOMED CODE
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
AUTHG	; GET CHS AUTHORIZATION VALUES
AUTHP	; SET CHS AUTHORIZATION VALUES INTO FILE
STAT(BMCRIEN,F,BMCCHS)
STATG	; GET CHS STATUS 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)
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)
SET(BMCRIEN,BMCCHS)	;EP - SET BMCCHS ARRAY FOR CHS PACKAGE ; d set^bmcchs(referral_ien,.array_name) ; BMCRIEN is the IEN of the RCIS REFERRAL ; BMCCHS is array into which values are set
AUTHD	; DELETE CHS AUTHORIZATION ENTRY

External References

Name	Field # of Occurrence
SNOCLS^BMCCLO	SNOCLS+1
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
^DIK	DXD+17, PXD+18
$$VALI^XBDIQ1	SET+10, STATG+2, 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]	SET+7, STAT+21, AUTH+16, SNOCLS+1, 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
@(	STAT+22, AUTH+18
AUTHPADD	AUTHP+1
AUTHPMOD	AUTHP+2
DENIAL	STAT+23

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	SET~, STAT~, AUTH~, DXA~, DXD~, PXA~, PXD~
BMCCHS(	SET+10, SET+12, STATG+2, 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, 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	STAT+23, 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	SET+5~, SET+9, SET+10, SET+11, SET+12, STAT+19~, STATG+2, 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, 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	SET~, SET+6, SET+7, SET+10, STAT~, STAT+20, STAT+21, STATG+2, STATP+1, STATP+6 , AUTH~, AUTH+15, AUTH+16, SNOCLS+1, 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
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, DXA+19, DXD+19, PXA+20, PXD+20
>> DR(	AUTHG+3*
DUZ(2	STATP+11
F	STAT~, STAT+22, AUTH~, AUTH+18
U	STATP+11, SNOCLS+1, AUTHPADD+5, 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	BMCCHS+12

Customize PDF page

Package: Referred Care Information System

Routine: BMCCHS

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: