Routine: BMCFDRC

Package	Total	Call Graph
VA Fileman	4	^DIC ^DIE ^DIR ^DIWP
IHS VA Utilities	2	^XBDBQUE $$EXTSET^XBFUNC
Referred Care Information System	1	ASKCON^BMCFDR

Package

Total

Call Graph

VA Fileman

^DIC ^DIE ^DIR ^DIWP

IHS VA Utilities

^XBDBQUE $$EXTSET^XBFUNC

Referred Care Information System

ASKCON^BMCFDR

Package	Total	Caller Graph
Referred Care Information System	2	BMC PRINT REFERRAL FORMS - CHS BMCFDR2

Package

Total

Caller Graph

Referred Care Information System

BMC PRINT REFERRAL FORMS - CHS BMCFDR2

Entry Points

Name	Comments	DBIA/ICR reference
ASKCON	;ASK TO PRINT CONSULT LETTER ;BMC4.02 IHS/OIT/FCJ
ZIS	;
CHSSTAT	;EP
COMP	;
GETTYPE	;
CHSASK	;Ask if Edit CHS Approval Status
AHCCCS	;EP
WPS	;EP
START	;
XIT	;
WP	;EP - Entry point to print wp fields pass node in BMCWP
PRINT	;EP
GETREF	;get referral entry

Name	Field # of Occurrence
ASKCON^BMCFDR	ASKCON+1
^DIC	GETTYPE+2, GETREF+4
^DIE	CHSSTAT+5
^DIR	CHSASK+2
^DIWP	WP+10
^XBDBQUE	ZIS+2
$$EXTSET^XBFUNC	GETREF+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "******** REFERRAL FORM PRINT ********",!! Line Location: START+3
Function Call: WRITE	Prompt: "This report will produce a hard copy computer generated referral letter.",! Line Location: START+4
Function Call: WRITE	Prompt: !! Line Location: GETREF+1
Function Call: WRITE	Prompt: !!,?10,"CHS APPROVAL STATUS: ",BMCCHSAP Line Location: GETREF+17
Function Call: WRITE	Prompt: !! Line Location: CHSASK+1
Function Call: WRITE	Prompt: !! Line Location: ZIS+1
Function Call: WRITE	Prompt: ! Line Location: CHSSTAT+1
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"The CHS Approval Status has not been entered. Please enter it now.",! Line Location: CHSSTAT+4
Function Call: WRITE	Prompt: !!,"No entry made. Defaulting to 'PENDING Status for verbiage on Referral Letter'.",!! Line Location: CHSSTAT+6
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"This letter must be printed on a printer capable of 132 character print.",!! Line Location: AHCCCS+1
Routine Call	DIE Line Location: CHSSTAT+5
Routine Call	DIC Line Location: GETTYPE+2 GETREF+4
Routine Call	DIR Line Location: CHSASK+2

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

Name	Line Occurrences (* Changed, ! Killed)
^BMCREF - [#90001]	GETREF+12, GETREF+14, CHSSTAT+3, CHSSTAT+4, CHSSTAT+6
^BMCTFORM - [#90001.33]	GETREF+7, PRINT+1
^DIC - [#1]	WP+6
^UTILITY($J	WP+4!, WPS+1, WPS+3!

Name	Line Occurrences
ASKCON	GETREF+11, GETREF+12, CHSASK+4
CHSSTAT	CHSASK+5
GETREF	GETREF+7
XIT	GETTYPE+3, GETREF+5, CHSASK+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	XIT+4!
BMCCAP	XIT+1!, WP+9, WPS+3!
BMCCHSAP	GETREF+15, GETREF+16, GETREF+17, XIT+1!
BMCCHSAS	GETREF+14*, GETREF+15, GETREF+16, XIT+1!
BMCCHSCT	XIT+2!
BMCCHSR	XIT+1!, CHSSTAT+6*
BMCCHSS	XIT+2!
BMCCMT	XIT+2!
BMCCOL	WPS+3!
BMCDA	XIT+1!, WP+6, WPS+3!
BMCDFN	XIT+1!
BMCDN	XIT+2!
BMCFILE	XIT+1!, WP+6, WPS+3!
BMCFTYPE	GETTYPE+1, GETTYPE+4, GETREF+7, GETREF+11, PRINT+1, XIT+1!
BMCI	XIT+1!, XIT+2!
BMCIOM	XIT+1!, WP+7
BMCKPDA	XIT+1!
BMCN	XIT+2!
BMCNI	XIT+2!
BMCNODE	XIT+1!, WP+6, WPS+3!
BMCNUM	XIT+2!
BMCPG	XIT+1!, XIT+2!
BMCPROUT	START+1*, XIT+2!
BMCQ	XIT+2!
BMCQUIT	START+5*, GETREF+7, XIT+1!
BMCR0	XIT+1!, XIT+3!
BMCRDATE	XIT+3!
BMCREC	XIT+3!
BMCREF	GETREF+1, GETREF+6, GETREF+12, GETREF+14, XIT+1!, CHSSTAT+3, CHSSTAT+4, CHSSTAT+5, CHSSTAT+6
BMCRIEN	XIT+3!
BMCRNS	XIT+1!
BMCRNUMB	XIT+3!
BMCRSTAT	XIT+3!
BMCRTYPE	XIT+3!
BMCSUF	XIT+3!
BMCV	XIT+1!
BMCVIEN	XIT+2!
BMCVST	XIT+2!
BMCVSTP	XIT+2!
BMCWP	XIT+1!, WP+3!
BMCWP(	WPS+1*
BMCX	XIT+1!, WP+2~, WP+5, WP+7, WP+9
BMCY	XIT+1!
C	XIT+4!
D	XIT+4!
D0	XIT+4!
D1	XIT+4!
DA	GETTYPE+2!, GETREF+4!, XIT+4!, CHSSTAT+5*!
DD	XIT+4!
DDSFILE	XIT+4!
DFN	XIT+2!
DI	XIT+4!
DIADD	XIT+4!
DIC	GETTYPE+2!, GETREF+2, GETREF+4!, XIT+4!
DIC("A"	GETTYPE+2, GETREF+2
DIC("S"	GETTYPE+2, GETREF+3
DIC(0	GETTYPE+2, GETREF+2
DICR	XIT+4!
DIE	XIT+4!, CHSSTAT+5*!
DIK	XIT+4!
DINUM	XIT+4!
DIPGM	XIT+4!
DIQ	XIT+4!
DIR	CHSASK+2!, XIT+4!
DIR("?"	CHSASK+2*
DIR("A"	CHSASK+2*
DIR("B"	CHSASK+2*
DIR(0	CHSASK+2*
>> DIRUT	CHSASK+2*, CHSASK+3
DIWF	XIT+4!, WPS+2!
DIWL	XIT+4!, WP+7*, WPS+1, WPS+2!
DIWR	XIT+4!, WP+7*, WPS+2!
DLAYGO	XIT+4!
DO	XIT+4!
DQ	XIT+4!
DR	XIT+4!, CHSSTAT+5*
DTOUT	XIT+4!
>> DUOUT	CHSASK+2
F	XIT+4!
G	XIT+4!, WP+2~, WP+6*, WP+7, WP+8, WPS+3!
I	XIT+4!
IOF	START+2
IOM	WP+7
J	XIT+4!
N	XIT+4!
P	XIT+4!, WP+2~, WP+5, WPS+1
T	XIT+4!
U	GETREF+12, GETREF+14, CHSSTAT+3, CHSSTAT+4, CHSSTAT+6
X	XIT+4!, WP+9, WP+10
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	GETTYPE+3, GETTYPE+4, GETREF+5, GETREF+6, CHSASK+4, XIT+4!, WP+8*, WP+10
Z	XIT+4!, WPS+1*, WPS+2!

Customize PDF page

Package: Referred Care Information System

Routine: BMCFDRC

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: