Routine: BMCRR23

Package	Total	Call Graph
IHS VA Utilities	2	^XBDBQUE $$DIR^XBDIR
Referred Care Information System	2	(FILHDR,FILSAV,FILSUM)^BMCRR23P (BD,ED)^BMCRUTL
VA Fileman	2	DD^%DT ^DIR
IHS Patient	1	KILL^AUPNPAT

Package

Total

Call Graph

IHS VA Utilities

^XBDBQUE $$DIR^XBDIR

Referred Care Information System

(FILHDR,FILSAV,FILSUM)^BMCRR23P (BD,ED)^BMCRUTL

VA Fileman

DD^%DT ^DIR

IHS Patient

KILL^AUPNPAT

Package	Total	Caller Graph
Referred Care Information System	1	BMC RPT-CHS ONLY PAID

Package

Total

Caller Graph

Referred Care Information System

BMC RPT-CHS ONLY PAID

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date and ending dates
FIL2	;CREATE THE FILE
BROWSE	;
END	;
ZIS	;call to XBDBQUE
SELRPT	;REPORT TYPE CALL-IN, NON CALL-IN OR BOTH
R1	;
START	;
SET	;
EXIT	;
FILE	;CREATE A FILE
PROCESS2	;
PROCESS	;
STPROC	;
TYPE	; TYPE OF REPORT SUMARRY OR DETAILED ; Enter Summary or Detail
PCCTST	;IF SITE DOES NOT USE PCC LINK THE EARLIEST DATE FOR REPORT WILL BE WHEN V4 P12 WAS INSTALLED

Name	Field # of Occurrence
DD^%DT	PCCTST+2
KILL^AUPNPAT	EXIT+2
FILHDR^BMCRR23P	FIL2+1
FILSAV^BMCRR23P	FIL2+3
FILSUM^BMCRR23P	FIL2+2
BD^BMCRUTL	BD+7
ED^BMCRUTL	BD+6
^DIR	BD+3, SELRPT+4, TYPE+4, ZIS+2
^XBDBQUE	ZIS+8, BROWSE+2
$$DIR^XBDIR	FILE+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?14,"*********** CHS Paid Referral Report ***********" Line Location: START+4
Function Call: WRITE	Prompt: !!,"Report will capture CHS Primary referrals. Report will sort by Call-in" Line Location: START+5
Function Call: WRITE	Prompt: !,"Referrals. The CHS PO's must be final paid without out any Third Party" Line Location: START+6
Function Call: WRITE	Prompt: !,"Payment. If the call-in notification date is not available the referral" Line Location: START+7
Function Call: WRITE	Prompt: !,"will be checked for a PCC Visit to identify Call-in referrals." Line Location: START+8
Function Call: WRITE	Prompt: !!,"If the PCC link was not on during anytime within reporting time" Line Location: START+9
Function Call: WRITE	Prompt: !,"frame, this report MAY NOT be accurate for identifying Call-in referrals." Line Location: START+10
Function Call: WRITE	Prompt: !,! Line Location: START+14
Function Call: WRITE	Prompt: ! Line Location: SELRPT+3
Function Call: WRITE	Prompt: ! Line Location: ZIS+2
Routine Call	DIR Line Location: BD+3 SELRPT+4 TYPE+4 ZIS+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	PROCESS2+12, PROCESS2+13
^BMCPARM - [#90001.31]	PCCTST+2
^BMCREF - [#90001]	R1+2, PROCESS2+1, PROCESS2+5, PROCESS2+7, PROCESS2+10, PROCESS2+11, PROCESS2+16, PROCESS2+17, SET+3
^BMCREF("B"	PROCESS+1, PROCESS+3, R1+2
^XTMP(	START+2!, SET+4*
^XTMP($J	EXIT+7!

Name	Line Occurrences
BD	SELRPT+5
BROWSE	ZIS+6
END	STPROC+2
EXIT	BD+4, BD+8, SELRPT+5, TYPE+5, FILE+2, ZIS+6
FIL2	EXIT+1
FILE	ZIS+5
PCCTST	START+1
PROCESS	STPROC+2
PROCESS2	R1+2
R1	PROCESS+3
SELRPT	TYPE+5
SET	PROCESS2+16
TYPE	FILE+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	FILE+1*, FILE+3
BMC80D	EXIT+3!
BMC80E	EXIT+3!
BMCBD	BD+5*, EXIT+4!
BMCBDD	EXIT+4!
BMCBT	EXIT+3!, STPROC+1*
BMCBTH	EXIT+3!, STPROC+1*, SET+4
BMCCFC	EXIT+5!
BMCCHS	EXIT+4!, PROCESS2+9, PROCESS2+11, PROCESS2+12, PROCESS2+13
BMCCHS0	EXIT+5!
BMCCPO	EXIT+5!
BMCED	EXIT+4!, PROCESS+3
BMCEDD	EXIT+4!
BMCET	EXIT+3!, PROCESS+1, END+1
BMCFIL	FILE+3*, EXIT+1, EXIT+4!
BMCHIT	EXIT+4!, PROCESS2+9, PROCESS2+13, PROCESS2+14
BMCJOB	START+1*, START+2, EXIT+4!, SET+4
BMCODAT	EXIT+4!, PROCESS+1, PROCESS+2, PROCESS+3*, R1+2
BMCOPT	ZIS+1!, ZIS+4*, ZIS+6, EXIT+3!
BMCPDT	START+11, BD+2, BD+3, EXIT+4!, PCCTST+1, PCCTST+2, PROCESS2+16
>> BMCPDT1	START+13, PCCTST+2*
BMCPG	EXIT+3!
BMCPOC	EXIT+5!
BMCQUIT	ZIS+3*, ZIS+5, EXIT+3!
BMCR	EXIT+5!
BMCRCDAY	EXIT+5!
BMCRCNT	EXIT+3!, STPROC+1, SET+4
BMCRCTOT	EXIT+5!
BMCREC	EXIT+5!
BMCREF	EXIT+3!, R1+1, R1+2, PROCESS2+1, PROCESS2+5, PROCESS2+7, PROCESS2+10, PROCESS2+11, PROCESS2+16, PROCESS2+17 , SET+3, SET+4
BMCRPO	EXIT+5!
BMCRPT	SELRPT+6*, EXIT+4!, SET+1, SET+2
BMCRRDAY	EXIT+5!
BMCRREC	EXIT+3!, R1+2, PROCESS2+1, PROCESS2+3
BMCRRTOT	EXIT+5!
BMCRTH	EXIT+4!
BMCRTOT	EXIT+5!
BMCRTYP	TYPE+6*, EXIT+4!
BMCSD	EXIT+4!, PROCESS+1, PROCESS+2
BMCSORT	EXIT+3!, PROCESS2+1, PROCESS2+16, PROCESS2+17*, SET+1, SET+2, SET+4
BMCSRTH	EXIT+5!
BMCSTYPE	EXIT+3!
BMCTAVG	EXIT+5!
DA	ZIS+2!, EXIT+6!
DFN	EXIT+6!, PROCESS2+1*
DIC	SELRPT+1!
DIR	BD+3!, SELRPT+1!, ZIS+2!, EXIT+6!
DIR("?"	TYPE+3*
DIR("A"	BD+3, SELRPT+2, TYPE+2, ZIS+2
DIR("B"	BD+1!, SELRPT+2, TYPE+2, ZIS+2*
DIR(0	BD+3, SELRPT+2, TYPE+2, ZIS+2
>> DIROUT	SELRPT+5, TYPE+5
>> DIRUT	BD+3*, BD+4, BD+8, ZIS+3
>> DTOUT	SELRPT+5, TYPE+5, FILE+2
>> DUOUT	BD+3, SELRPT+5, TYPE+5, FILE+2
DUZ(2	PCCTST+2, PROCESS2+12, PROCESS2+13, SET+3, SET+4
IOF	START+3
>> L	PROCESS2+9, PROCESS2+10, PROCESS2+11
U	PCCTST+2, PROCESS2+1, PROCESS2+3, PROCESS2+5, PROCESS2+7, PROCESS2+11, PROCESS2+12, PROCESS2+13, PROCESS2+16, PROCESS2+17 , SET+3
X	EXIT+6!
>> XBIOP	BROWSE+2*
>> XBNS	ZIS+7*
>> XBRC	ZIS+7, BROWSE+2
>> XBRP	ZIS+7, BROWSE+1
>> XBRX	ZIS+7*
Y	BD+5, SELRPT+6, TYPE+6, ZIS+4, EXIT+6!, PCCTST+2*

Customize PDF page

Package: Referred Care Information System

Routine: BMCRR23

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: