Routine: BMCCHSE

Package	Total	Call Graph
VA Fileman	2	^DIE ^DIR
Contract Health Management Information System	1	$$DIR^ACHS
Kernel	1	$$REPEAT^XLFSTR
Referred Care Information System	1	FILE^BMCFMC

Package	Total	Caller Graph
Referred Care Information System	1	BMCMOD

Entry Points

Name	Comments	DBIA/ICR reference
OPTSET	;SET OPTION FOR OTHER DENIAL REASON NODE 43
OTHREAS	; List other Denial Reasons
END	;
DICOPT(X,R)	; --- Select Denial reason Option.
EDIT	; EDIT REASONS
DENR	;ENTRY POINT FROM BMCMOD
OTHSET	;SET OTHER DENIAL REASON - NODE 43
PRMSET	;PRIMARY DENIAL REASON SET
ADD	;ADD OTHER DENIAL REASON
PRIREAS	; PRIMARY REASON
REASCK()	; --- Check if the Denial reason has already been entered.
OPTCK(T)	; CHECK FOR OPTIONS ALREADY SELECTED ;ACHS3.119 NEW SECTION
OTHER	;EDIT OTHER DENIAL REASON
PRMOSET	;
PRIM	;
REA	; Denial Reason
TOF	;
REAOPT	; Primary Reason Option

External References

Name	Field # of Occurrence
$$DIR^ACHS	EDIT+2
FILE^BMCFMC	ADD+15
^DIE	PRMSET+2, PRMOSET+2, OTHSET+4, OPTSET+15
^DIR	REA+14, DICOPT+13
$$REPEAT^XLFSTR	TOF+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,$$REPEAT^XLFSTR("=",79),!?30,"DENIAL REASONS EDIT",!,$$REPEAT^XLFSTR("=",79),!!,"PRIMARY DENIAL REASON: ",! Line Location: TOF+3
Function Call: WRITE	Prompt: !!,7,7,"No Primary Denial Reason Has Been Entered" Line Location: PRIREAS+6
Function Call: WRITE	Prompt: !!,"OTHER DENIAL REASONS: ",! Line Location: OTHREAS+4
Function Call: WRITE	Prompt: ?15,$P($G(^ACHSDENS(BMCOTR,20,BMCROPT,0)),U) Line Location: OTHREAS+7
Function Call: WRITE	Prompt: !,"Please enter a number from 1 to ",BMCCNT,"." Line Location: EDIT+5
Function Call: WRITE	Prompt: !!?5,"Must have a Primary Denial Reason." Line Location: PRIM+2
Function Call: WRITE	Prompt: !?5,"Denial Option did not change." Line Location: PRIM+10
Function Call: WRITE	Prompt: !!?3,"Denial Reason List:" Line Location: REA+2
Function Call: WRITE	Prompt: !?5,CT,". ",$P(^ACHSDENS(X,0),U) Line Location: REA+5
Function Call: WRITE	Prompt: !,"No active Denial Reasons" Line Location: REA+8
Function Call: WRITE	Prompt: ! Line Location: REA+9
Function Call: WRITE	Prompt: !!,7,7,"DENIAL REASON/OPTIONS ALREADY SELECTED.",!! Line Location: REASCK+8
Function Call: WRITE	Prompt: !!?5,"DENIAL REASON/OPTIONS ALREADY SELECTED. Need to select another.",!! Line Location: REASCK+13
Function Call: WRITE	Prompt: !,"Must select an option for this Denial Reason." Line Location: REAOPT+3
Function Call: WRITE	Prompt: !,"Must select an option for this Denial Reason." Line Location: OPTSET+10
Function Call: WRITE	Prompt: !!?3,"Denial Reason Option list:" Line Location: DICOPT+3
Function Call: WRITE	Prompt: !?5,CT,". ",$P(^ACHSDENS(X,20,X1,0),U) Line Location: DICOPT+7
Function Call: WRITE	Prompt: !,"No active Denial Reasons Options" Line Location: DICOPT+9
Function Call: WRITE	Prompt: ! Line Location: DICOPT+10
Function Call: WRITE	Prompt: !!,7,7,"DENIAL REASON OPTION ALREADY SELECTED.",!! Line Location: OPTCK+2
Function Call: WRITE	Prompt: !!,7,7,"DENIAL REASON OPTION ALREADY SELECTED.....",!! Line Location: OPTCK+6
Routine Call	DIE Line Location: PRMSET+2 PRMOSET+2 OTHSET+4 OPTSET+15
Routine Call	DIR Line Location: REA+14 DICOPT+13

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSDENS - [#9002073]	PRIREAS+3, PRIREAS+4, PRIREAS+5, OTHREAS+6, OTHREAS+7, PRIM+6, OTHER+6, REA+3, REA+4, REA+5 , REA+6, REA+10, REASCK+4, REASCK+5, DICOPT+1, DICOPT+5, DICOPT+6, DICOPT+7, DICOPT+8, ADD+8
^BMCREF - [#90001]	PRIREAS+1, OTHREAS+1, OTHREAS+3, OTHREAS+5, REA+20, REASCK+8, REASCK+9, REASCK+10, REASCK+11, OPTSET+7 , OPTSET+16, OPTCK+2, OPTCK+3, OPTCK+5, OPTCK+6
^DD(90001	ADD+12

Label References

Name	Line Occurrences
$$DICOPT	REAOPT+1, OPTSET+2
$$OPTCK	REAOPT+2, OPTSET+9
$$REASCK	PRIM+7, OTHER+7, ADD+9
@(	EDIT+7
ADD	ADD+9
EDIT	EDIT+5
END	EDIT+3
OPTSET	OTHER+8, OPTSET+9, OPTSET+10, ADD+16
OTHER	OTHER+7
OTHSET	OTHER+3, OTHER+7, REA+19, OPTSET+3, OPTSET+8
PRIM	PRIREAS+6, PRIM+7
PRMOSET	REAOPT+5
PRMSET	REAOPT+5
REA	PRIM+1, OTHER+1, ADD+2
REAOPT	PRIM+9, REAOPT+2, REAOPT+3, ADD+5
TOF	PRIREAS+6, EDIT+8

Naked Globals

Name	Field # of Occurrence
^(0	OTHREAS+5, REA+20*, REASCK+5, DICOPT+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PRIREAS+6, EDIT+2, EDIT+3, EDIT+4*, EDIT+5, EDIT+6, EDIT+7, REA+18
>> ACHSDREA	REAOPT+3
BMCCNT	OTHREAS+2, OTHREAS+4, OTHREAS+6, OTHREAS+8, OTHREAS+9, EDIT+5, END+1!, REA+18
BMCDEN	END+1!, REA+10*, REA+12
BMCENO	DICOPT+16!
BMCENO(	DICOPT+8*, DICOPT+14
BMCENR	END+2!, PRIM+4, PRIM+7, REAOPT+1, PRMSET+1, ADD+5*
BMCENS	END+2!
BMCENS(	REA+6*, REA+17
BMCOPTR	TOF+2, PRIREAS+6, END+2!, REASCK+8, REAOPT+2, OPTSET+3, OPTSET+4, OPTCK+4, ADD+1*
BMCOREO	END+2!, PRIM+6, OTHER+6, REAOPT+3, OPTSET+6, OPTSET+10, ADD+8*
BMCORNM	END+2!, PRIM+5, OTHER+2, REA+18, OTHSET+2, OPTSET+7, OPTSET+13, OPTSET+16, OPTCK+4, ADD+15
BMCOTR	OTHREAS+5, OTHREAS+6, OTHREAS+7, OTHREAS+8, END+2!, PRIM+4, PRIM+6, PRIM+7, OTHER+5, OTHER+6 , OTHER+7, REASCK+4, REASCK+5, REASCK+8, REASCK+9, REASCK+11, OPTSET+2, OPTCK+2, OPTCK+5, ADD+7 , ADD+8, ADD+13
BMCR	PRIREAS+6, EDIT+6, END+2!, REA+12, REA+18, ADD+5
BMCREA	OTHREAS+2, OTHREAS+3, OTHREAS+5, OTHREAS+8, EDIT+8!, END+1!
BMCREA(	OTHREAS+8*, EDIT+5, PRIM+5, PRIM+7, OTHER+2, OTHER+7, REA+7, REA+10, REA+18
BMCREA(1	PRIREAS+2*
BMCRED	PRIREAS+6, EDIT+6, END+2!, PRIM+5, PRIM+7, OTHER+2, OTHER+7, REA+7, REA+10, REA+18
BMCREDT	END+2!, REA+1, REA+7, REA+13, REA+18
>> BMCRIEN	PRIREAS+1, OTHREAS+1, OTHREAS+3, OTHREAS+5, REA+20, REASCK+8, REASCK+9, REASCK+10, REASCK+11, REAOPT+5 , OTHSET+1, OTHSET+2, OPTSET+7, OPTSET+12, OPTSET+13, OPTSET+16, OPTCK+2, OPTCK+3, OPTCK+5, OPTCK+6 , ADD+11, ADD+13
>> BMCROPT	OTHREAS+5, OTHREAS+7, OTHREAS+8, REAOPT+4, PRMOSET+1, OPTSET+7, OPTSET+8, OPTSET+16
CT	END+2!, REA+1, REA+5, REA+6, REA+7, REA+8, REA+11, DICOPT+4, DICOPT+7, DICOPT+8 , DICOPT+9, DICOPT+11
DA	REAOPT+5, PRMOSET+3!, OTHSET+2, OTHSET+5!, OPTSET+13*, OPTSET+17!
DA(1	OTHSET+2, OPTSET+13, ADD+13*
>> DIC	OTHSET+1, OPTSET+12, ADD+11*
>> DIC("DR"	ADD+14*
>> DIC("P"	ADD+12*
>> DIC(0	OTHSET+2, OPTSET+13, ADD+13*
DIE	REAOPT+5, PRMOSET+3!, OTHSET+1, OTHSET+5!, OPTSET+12*, OPTSET+17!
DIR	REA+22!
DIR("A"	REA+12, DICOPT+12
DIR("B"	REA+13*
DIR(0	REA+11, DICOPT+11
DR	PRMSET+1, PRMSET+3!, PRMOSET+1, PRMOSET+3!, OTHSET+3, OTHSET+5!, OPTSET+14
DT	REA+4, REASCK+5, DICOPT+6
>> DTOUT	EDIT+3
>> DUOUT	EDIT+3, PRIM+1, PRIM+8, OTHER+1, REA+15, OPTSET+3, OPTSET+4
IOF	TOF+3
L	END+2!, REASCK+10*, REASCK+11
R	DICOPT~, DICOPT+12
T	OPTCK~, OPTCK+2
TMP	END+1!, REA+16, REA+17, REA+21
U	PRIREAS+1, PRIREAS+2, PRIREAS+4, PRIREAS+5, OTHREAS+5, OTHREAS+6, OTHREAS+7, OTHREAS+8, PRIM+5, PRIM+6 , PRIM+7, OTHER+2, OTHER+6, OTHER+7, REA+4, REA+5, REA+6, REA+7, REA+10, REA+18 , REA+20, REASCK+5, REASCK+8, REASCK+9, REASCK+11, OPTSET+7, OPTSET+16, DICOPT+6, DICOPT+7, DICOPT+8 , OPTCK+2, OPTCK+5, OPTCK+6, ADD+8, ADD+12
X	PRIREAS+1, PRIREAS+2, PRIREAS+3, PRIREAS+4, PRIREAS+5, PRIM+2, PRIM+4, OTHER+3, OTHER+5, REA+1 , REA+3, REA+4, REA+5, REA+6, REA+7, REA+18, REASCK+1~, REASCK+2, REASCK+4, REASCK+5 , REASCK+9, REASCK+11, REASCK+12, OTHSET+3, OPTSET+3, OPTSET+8, DICOPT~, DICOPT+1, DICOPT+5, DICOPT+6 , DICOPT+7, DICOPT+8, OPTCK+1, OPTCK+3, OPTCK+4, OPTCK+5, OPTCK+6, ADD+13*, ADD+14
X1	PRIREAS+1, PRIREAS+2, PRIREAS+5, REASCK+1~, REASCK+2, REASCK+6, REASCK+8, REASCK+12, DICOPT+4, DICOPT+5* , DICOPT+6, DICOPT+7, DICOPT+8, OPTCK+1, OPTCK+2, OPTCK+3, OPTCK+6*, OPTCK+7
Y	EDIT+4, EDIT+5, EDIT+6, PRIM+4, PRIM+7, PRIM+10, OTHER+5, REA+8, REA+17, REA+18 , REA+21, REASCK+1~, REASCK+2, REASCK+12, REAOPT+1, REAOPT+2, REAOPT+3, REAOPT+4, REAOPT+5, OPTSET+2 , OPTSET+10, OPTSET+11, OPTSET+14, DICOPT+9, DICOPT+14, DICOPT+15*, DICOPT+17, OPTCK+2, OPTCK+6, ADD+3 , ADD+5, ADD+7, ADD+15, ADD+16

Customize PDF page

Package: Referred Care Information System

Routine: BMCCHSE

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: