Routine: BMCRINH

Information

BMCRINH ; IHS/ITSC/FCJ - IN-HOUSE REPORT;

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Referred Care Information System	4	($$CTR,PARMSET,PAUSE)^BMC ^BMCKILL ^BMCREF GETDATES^BMCRUTL
IHS VA Utilities	2	^XBDBQUE $$PROVINI^XBFUNC1
VA Fileman	2	DD^%DT ^DIR
Kernel	1	$$FMTE^XLFDT

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Referred Care Information System	1	BMC RPT-IN HOUSE REPORT

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	;
HEAD2	; WRITE HEADER
HEAD1	;
BROWSE	;
EOJ	; END OF JOB
DBQUE	;call to XBDBQUE
REFPRT	; PRINT REFERRALS SELECTED
START	;
INIT	; INITIALIZAION
REFPRT2	;
PRINT	;print one referral
REFCHK	; CHECK EACH ACTIVE/CHS REFERRAL

External References

Name	Field # of Occurrence
DD^%DT	HEAD2+5, HEAD2+6
$$CTR^BMC	HEAD2+4
PARMSET^BMC	INIT+2
PAUSE^BMC	REFPRT2+1, REFPRT2+8, HEAD+1
^BMCKILL	EOJ+3
^BMCREF	PRINT+3
GETDATES^BMCRUTL	START+5
^DIR	DBQUE+2
^XBDBQUE	DBQUE+7, BROWSE+3
$$PROVINI^XBFUNC1	PRINT+14
$$FMTE^XLFDT	PRINT+5, PRINT+7, PRINT+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report prints out a list of all Active In-House referrals. ",!,"The user can select a date range by Date initiated and Status of Referral.",! Line Location: START+1
Function Call: WRITE	Prompt: "Report will include both Primary and Secondary Referrals.",!! Line Location: START+2
Function Call: WRITE	Prompt: ! Line Location: DBQUE+2
Function Call: WRITE	Prompt: !,"No referrals to report",! Line Location: REFPRT2+1
Function Call: WRITE	Prompt: $$FMTE^XLFDT($P(BMCRREC,U),"5D") Line Location: PRINT+5
Function Call: WRITE	Prompt: ?11 Line Location: PRINT+6
Function Call: WRITE	Prompt: $$FMTE^XLFDT($P(^BMCREF(BMCRIEN,11),U,5),"5D") Line Location: PRINT+7
Function Call: WRITE	Prompt: $$FMTE^XLFDT($P(^BMCREF(BMCRIEN,11),U,6),"5D") Line Location: PRINT+8
Function Call: WRITE	Prompt: ?23,$P(^BMCREF(BMCRIEN,0),U,2) Line Location: PRINT+9
Function Call: WRITE	Prompt: $P($G(^BMCREF(BMCRIEN,1)),U) Line Location: PRINT+10
Function Call: WRITE	Prompt: ?39,$E(BMCREC("PAT NAME"),1,24) Line Location: PRINT+11
Function Call: WRITE	Prompt: ?65,BMCHRN Line Location: PRINT+13
Function Call: WRITE	Prompt: ?73,$S($P(BMCRREC,U,6):$$PROVINI^XBFUNC1($P(BMCRREC,U,6)),1:"--") Line Location: PRINT+14
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 IN HOUSE REFFERALS BY CLINIC REFERRED TO",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: !,"REF DATE",?14,"DOS",?24,"REFERRAL #",?39,"PATIENT",?65,"HRN",?73,"PROV" 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: DBQUE+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PRINT+12
^AUTTLOC - [#9999999.06]	PRINT+12
^BMCREF - [#90001]	REFCHK+5, PRINT+1, PRINT+7, PRINT+8, PRINT+9, PRINT+10
^BMCREF("B"	REFCHK+2, REFCHK+4
^DIC(4 - [#4]	HEAD2+3
^DIC(40.7 - [#40.7]	REFCHK+9
^XTMP("BMCRINH"	INIT+6, INIT+9!, REFCHK+10*, REFPRT+4!, REFPRT2+1, REFPRT2+3, REFPRT2+6, EOJ+1, EOJ+2!

Label References

Name	Line Occurrences
@(	REFPRT2+1
BROWSE	DBQUE+5
DBQUE	START+6
HEAD	PRINT+4
HEAD1	HEAD+3
INIT	START+3
PRINT	REFPRT2+6
REFPRT2	REFPRT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BMC80D	REFPRT+2*, HEAD2+8, EOJ+4!
BMC80E	REFPRT+1*, EOJ+4!
BMCBD	REFCHK+1, HEAD2+5, EOJ+4!
BMCBDD	EOJ+4!
BMCBDT	REFCHK+1, REFCHK+2, REFCHK+4, EOJ+4!
BMCBT	INIT+4, INIT+5, INIT+6, INIT+7, INIT+9, REFCHK+10, REFPRT+4, REFPRT2+1, REFPRT2+3, REFPRT2+6 , EOJ+1, EOJ+2, EOJ+4!
BMCCL	REFCHK+1, REFCHK+9, REFCHK+10, REFPRT2+2, REFPRT2+3, REFPRT2+4, REFPRT2+6, EOJ+5!
>> BMCDFN	PRINT+12
BMCED	REFCHK+2, HEAD2+6, EOJ+5!
BMCEDD	EOJ+5!
BMCHRN	PRINT+12*, PRINT+13, EOJ+4!
BMCJOB	INIT+3*, INIT+6, INIT+9, REFCHK+10, REFPRT+4, REFPRT2+1, REFPRT2+3, REFPRT2+6, EOJ+1, EOJ+2 , EOJ+4!
BMCOPT	DBQUE+1!, DBQUE+4*, DBQUE+5, EOJ+4!
>> BMCPARM	INIT+2
BMCPG	REFPRT2+1, HEAD2+1, HEAD2+3, EOJ+4!
>> BMCQ	START+4, INIT+1*
BMCQUIT	DBQUE+3, REFPRT2+3, REFPRT2+5!, REFPRT2+6, REFPRT2+7, PRINT+4, HEAD+2
BMCREC	EOJ+5!
BMCREC("PAT N	AME" , PRINT+11
>> BMCRIEN	REFCHK+3, REFCHK+4, REFCHK+5, REFCHK+10, REFPRT2+5, REFPRT2+6, PRINT+1, PRINT+2, PRINT+7, PRINT+8 , PRINT+9, PRINT+10
BMCRREC	PRINT+1*, PRINT+5, PRINT+14, EOJ+5!
BMCRSTAT	EOJ+5!
BMCSD	EOJ+5!
DA	DBQUE+2!
DIR	DBQUE+2!
DIR("A"	DBQUE+2*
DIR("B"	DBQUE+2*
DIR(0	DBQUE+2*
>> DIRUT	START+5, DBQUE+3, HEAD+2
>> DTOUT	START+5
DUZ(2	PRINT+12, HEAD2+3
IOF	HEAD1+1
IOSL	PRINT+4
IOST	REFPRT2+1
U	REFCHK+7, REFCHK+8, REFCHK+9, PRINT+5, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+12, PRINT+14 , HEAD2+3
>> X	REFCHK+5*, REFCHK+7, REFCHK+8, REFCHK+9
>> XBIOP	BROWSE+2*
>> XBNS	DBQUE+6, BROWSE+2
>> XBRC	DBQUE+6, BROWSE+2
>> XBRP	DBQUE+6, BROWSE+1
>> XBRX	DBQUE+6, BROWSE+2
>> Y	DBQUE+4, PRINT+2, HEAD2+5, HEAD2+6*

Customize PDF page

Package: Referred Care Information System

Routine: BMCRINH

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

Local Variables

Legend: