Routine: BMCRC32

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	1	^XBDBQUE
Kernel	1	$$FMTE^XLFDT

Package

Total

Call Graph

VA Fileman

DD^%DT ^DIR ^DIWP ^DIWW

Referred Care Information System

($$CTR,PARMSET,PAUSE)^BMC ^BMCKILL ^BMCREF

IHS VA Utilities

^XBDBQUE

Kernel

$$FMTE^XLFDT

Package	Total	Caller Graph
Referred Care Information System	1	BMC RPT-ACTIVE REFERRALS-C32

Package

Total

Caller Graph

Referred Care Information System

BMC RPT-ACTIVE REFERRALS-C32

Entry Points

Name	Comments	DBIA/ICR reference
BD	;GET BEG DATE OF REPORT
HEAD	;
R1	;
HEAD1	;
BROWSE	;
EOJ	; END OF JOB
DBQUE	;call to XBDBQUE
REFPRT	; PRINT REFERRALS SELECTED
START	;
INIT	; INITIALIZAION
REFPRT2	;
PRINT	;print one referral
REFCHK	; CHECK APPROVED REFERRALS SORTED BY DATE INIT
PROC	;
EXT	;
HEAD2	; WRITE HEADER

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report prints out a list of Active referrals that",!,"a C32 has not been printed for.",!! 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: BMCRNUMB_BMCSUF Line Location: PRINT+5
Function Call: WRITE	Prompt: ?17,$E(BMCREC("PAT NAME"),1,25) Line Location: PRINT+6
Function Call: WRITE	Prompt: ?49,$$FMTE^XLFDT($P(BMCRREC,U),"2D") Line Location: PRINT+7
Function Call: WRITE	Prompt: ! Line Location: PRINT+15
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("ACTIVE REFERRALS WHERE A C32 HAS NOT BEEN PRINTED",80),! Line Location: HEAD2+4
Function Call: WRITE	Prompt: ?17,"BEG DATE: "_Y Line Location: HEAD2+5
Function Call: WRITE	Prompt: ?40,"END DATE: "_Y,! Line Location: HEAD2+6
Function Call: WRITE	Prompt: !,"REFERRAL #",?17,"PATIENT NAME",?45," REFERRAL DATE" Line Location: HEAD2+7
Function Call: WRITE	Prompt: !,BMC80D Line Location: HEAD2+8
Function Call: WRITE	Prompt: ! Line Location: HEAD2+9
Routine Call	DIR Line Location: BD+1 DBQUE+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BMCREF - [#90001]	R1+1, PROC+3, PROC+6, PROC+7, PROC+8, PRINT+1, PRINT+10
^BMCREF("B"	REFCHK+2, R1+1
^DIC(4 - [#4]	HEAD2+3
^UTILITY($J	PRINT+9!
^XTMP("BMCRC32"	INIT+6, INIT+8!, PROC+3, PROC+4, REFPRT+4!, REFPRT2+1, REFPRT2+3, EOJ+1, EOJ+2!

Name	Line Occurrences
@(	REFPRT2+1
BROWSE	DBQUE+5
DBQUE	BD+6
EXT	BD+2
HEAD	PRINT+4
HEAD1	HEAD+3
INIT	BD+4
PRINT	REFPRT2+3
PROC	R1+1
R1	REFCHK+2
REFPRT2	REFPRT+3

Name	Field # of Occurrence
^(	PRINT+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BMC80D	REFPRT+2*, HEAD2+8, EXT+2!
BMC80E	REFPRT+1*, EXT+2!
BMCBD	BD+3*, HEAD2+5, EXT+3!
BMCBOS	EXT+2!
BMCBT	INIT+4, INIT+5, INIT+6, INIT+7, INIT+8, PROC+3, PROC+4, REFPRT+4, REFPRT2+1, REFPRT2+3 , EOJ+2, EXT+2!
>> BMCC32	PROC+5, PROC+7, PROC+8
BMCCL	EXT+2!
>> BMCHIT	PROC+4, PROC+5, PROC+7, PROC+8
BMCJOB	INIT+3*, INIT+6, PROC+3, PROC+4, REFPRT+4, REFPRT2+1, REFPRT2+3, EOJ+1, EOJ+2, EXT+2!
>> BMCL	PRINT+10*
>> BMCODAT	REFCHK+1, REFCHK+2, R1+1
BMCODT	EXT+3!
BMCOPT	DBQUE+1!, DBQUE+4*, DBQUE+5, EXT+2!
>> BMCPARM	INIT+2
BMCPG	REFPRT2+1, HEAD2+1, HEAD2+3, EXT+2!
>> BMCQ	BD+5, INIT+1*
BMCQUIT	DBQUE+3, REFPRT2+2!, REFPRT2+3, REFPRT2+4, PRINT+4, HEAD+2
>> BMCREC("PAT N	AME" , PRINT+6
>> BMCRIEN	R1+1, PROC+3, PROC+4, PROC+6, PROC+7, PROC+8, REFPRT2+2, REFPRT2+3*, PRINT+1, PRINT+2 , PRINT+10
>> BMCRNUMB	PRINT+5
BMCRREC	R1+1, PROC+2, PRINT+1, PRINT+7, EXT+2!
BMCRSTAT	EXT+2!
BMCSD	BD+3*, REFCHK+1, EXT+3!
BMCSKIP	EXT+2!
>> BMCSUF	PRINT+5
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	PRINT+11*
>> DIWL	PRINT+11*
>> DIWR	PRINT+11*
DT	HEAD2+6
>> DUOUT	BD+1
DUZ(2	HEAD2+3
IOF	HEAD1+1
IOSL	PRINT+4
IOST	REFPRT2+1
U	PROC+2, PRINT+7, HEAD2+3
>> X	PRINT+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, PRINT+2, HEAD2+5, HEAD2+6*

Customize PDF page

Package: Referred Care Information System

Routine: BMCRC32

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: