Routine: BMCRTC1

Package	Total	Call Graph
VA Fileman	4	DD^%DT ^DIR ^DIWP ^DIWW
Referred Care Information System	3	($$CTR,PARMSET,PAUSE)^BMC ^BMCKILL ^BMCREF
IHS VA Utilities	2	^XBDBQUE $$VAL^XBDIQ1
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Referred Care Information System	1	BMC RPT-APPRV REF TOC PENDING

Entry Points

Name	Comments	DBIA/ICR reference
BD	;GET BEG DATE OF REPORT
HEAD	;
PRINTR	;Print Ref
HEAD2	; WRITE HEADER
HEAD1	;
BROWSE	;
EOJ	; END OF JOB
DBQUE	;call to XBDBQUE
REFPRT	; PRINT REFERRALS SELECTED
START	;
INIT	; INITIALIZAION
REFPRT2	;
PRINT	;Print Prov
REFCHK	; CHECK FOR PENDING TOC AND APPROVED

External References

Name	Field # of Occurrence
DD^%DT	HEAD2+6, HEAD2+8
$$CTR^BMC	HEAD2+5
PARMSET^BMC	INIT+2
PAUSE^BMC	REFPRT2+1, REFPRT2+6, HEAD+1
^BMCKILL	EOJ+2
^BMCREF	PRINTR+4
^DIR	BD+1, DBQUE+2
^DIWP	PRINTR+12
^DIWW	PRINTR+13
^XBDBQUE	DBQUE+7, BROWSE+3
$$VAL^XBDIQ1	REFCHK+13, PRINT+2
$$FMTE^XLFDT	PRINTR+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report prints out a list of all approved referrals for which the status",!,"of the transition of care document is pending.",!! Line Location: START+1
Function Call: WRITE	Prompt: "Report will include Primary and Secondary Referrals.",! Line Location: START+2
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: DBQUE+2
Function Call: WRITE	Prompt: !,"No referrals to report",! Line Location: REFPRT2+1
Function Call: WRITE	Prompt: !,$S(BMCPDIR="YES":"Direct ",1:""),"Provider: ",$$VAL^XBDIQ1(9999999.11,BMCPROV,.01),! Line Location: PRINT+2
Function Call: WRITE	Prompt: BMCRNUMB_BMCSUF Line Location: PRINTR+5
Function Call: WRITE	Prompt: ?16,$E(BMCREC("PAT NAME"),1,25) Line Location: PRINTR+6
Function Call: WRITE	Prompt: ?48,$$FMTE^XLFDT($P(BMCRREC,U),"2D") Line Location: PRINTR+7
Function Call: WRITE	Prompt: ! Line Location: PRINTR+14
Function Call: WRITE	Prompt: !?13,"******** CONFIDENTIAL PATIENT INFORMATION ********" Line Location: HEAD2+2
Function Call: WRITE	Prompt: !?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),?72,"Page ",BMCPG,! Line Location: HEAD2+3
Function Call: WRITE	Prompt: $$CTR^BMC("TRANSITION OF CARE DOCUMENT PENDING PRINTED OR TRANSMITTED",80),! Line Location: HEAD2+5
Function Call: WRITE	Prompt: ?17,"BEG DATE: "_Y Line Location: HEAD2+6
Function Call: WRITE	Prompt: ?40,"END DATE: "_Y,! Line Location: HEAD2+7
Function Call: WRITE	Prompt: ?40,"END DATE: "_Y,! Line Location: HEAD2+8
Function Call: WRITE	Prompt: !,"REFERRAL #",?16,"PATIENT NAME",?45,"REFERRAL-DATE" Line Location: HEAD2+9
Function Call: WRITE	Prompt: !,BMC80D Line Location: HEAD2+10
Function Call: WRITE	Prompt: ! Line Location: HEAD2+11
Routine Call	DIR Line Location: BD+1 DBQUE+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTVNDR - [#9999999.11]	REFCHK+13
^AUTTVNDR("B"	REFCHK+3
^BMCREF - [#90001]	REFCHK+6, REFCHK+9, REFCHK+11, PRINTR+2, PRINTR+10
^BMCREF("B"	REFCHK+4, REFCHK+5
^BMCREF("TOC"	REFCHK+1
^DIC(4 - [#4]	HEAD2+3
^UTILITY($J	PRINTR+9!
^XTMP("BMCRTC1"	INIT+5!, REFCHK+14*, REFPRT+4!, REFPRT2+1, REFPRT2+3, REFPRT2+4, PRINT+4, EOJ+1!

Label References

Name	Line Occurrences
@(	REFPRT2+1
BROWSE	DBQUE+5
DBQUE	BD+6
EOJ	BD+2
HEAD	PRINT+1, PRINTR+1
HEAD1	HEAD+3
INIT	BD+4
PRINT	REFPRT2+4
PRINTR	PRINT+4
REFPRT2	REFPRT+3

Naked Globals

Name	Field # of Occurrence
^(	PRINTR+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BMC80D	REFPRT+2*, HEAD2+10, EOJ+3!
BMC80E	REFPRT+1*, EOJ+3!
BMCBD	BD+3*, HEAD2+6, EOJ+4!
BMCBDD	EOJ+4!
BMCBOS	EOJ+3!
BMCBT	INIT+3, INIT+4*, INIT+5, EOJ+3!
BMCCL	EOJ+3!
BMCED	EOJ+4!
BMCEDD	EOJ+4!
BMCJOB	START+3*, REFCHK+14, REFPRT+4, REFPRT2+1, REFPRT2+3, REFPRT2+4, PRINT+4, EOJ+1, EOJ+3!
>> BMCL	PRINTR+10*
>> BMCODAT	REFCHK+2, REFCHK+4, REFCHK+5
BMCOPT	DBQUE+1!, DBQUE+4*, DBQUE+5, EOJ+3!
>> BMCPARM	INIT+2
>> BMCPDIR	REFCHK+5, REFCHK+13, REFCHK+14, REFPRT2+2, REFPRT2+3, REFPRT2+4, PRINT+2, PRINT+4
BMCPG	REFPRT2+1, HEAD2+1, HEAD2+3, EOJ+3!
>> BMCPROV	REFCHK+5, REFCHK+11, REFCHK+12, REFCHK+13, REFCHK+14, REFPRT2+4, PRINT+2, PRINT+4
>> BMCQ	BD+5, INIT+1*
>> BMCQUIT	DBQUE+3, REFPRT2+3, REFPRT2+4, REFPRT2+5, PRINT+1, PRINT+4, PRINTR+1, HEAD+2
>> BMCREC("PAT N	AME" , PRINTR+6
>> BMCRIEN	REFCHK+5, REFCHK+6, REFCHK+9, REFCHK+11, REFCHK+14, PRINT+3, PRINT+4*, PRINTR+2, PRINTR+3, PRINTR+10
>> BMCRNUMB	PRINTR+5
BMCRREC	PRINTR+2*, PRINTR+7, EOJ+3!
BMCRSTAT	EOJ+3!
BMCSD	BD+3*, REFCHK+2, EOJ+4!
BMCSKIP	EOJ+3!
>> BMCSUF	PRINTR+5
BMCUSVN	REFCHK+3*, REFCHK+12, EOJ+4!
CT	REFCHK+9*, REFCHK+10, REFCHK+15!
DA	DBQUE+2!
DIR	BD+1!, DBQUE+2!
DIR("A"	BD+1, DBQUE+2
DIR("B"	DBQUE+2*
DIR(0	BD+1, DBQUE+2
>> DIRUT	BD+1*, BD+2, DBQUE+3, HEAD+2
>> DIWF	PRINTR+11*
>> DIWL	PRINTR+11*
>> DIWR	PRINTR+11*
DT	HEAD2+8
>> DUOUT	BD+1
DUZ(2	HEAD2+3
IOF	HEAD1+1
IOSL	PRINT+1, PRINTR+1
IOST	REFPRT2+1
L	REFCHK+9*, REFCHK+15!
U	REFCHK+6, REFCHK+11, REFCHK+13, PRINTR+7, HEAD2+3
>> X	PRINTR+10*
>> XBIOP	BROWSE+2*
>> XBNS	DBQUE+6, BROWSE+2
>> XBRC	DBQUE+6, BROWSE+2
>> XBRP	DBQUE+6, BROWSE+1
>> XBRX	DBQUE+6, BROWSE+2
>> Y	BD+3, DBQUE+4, PRINTR+3, HEAD2+6, HEAD2+8*

Customize PDF page

Package: Referred Care Information System

Routine: BMCRTC1

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: