Routine: BMCRCHS3

Information

BMCRCHS3 ; IHS/PHXAO/TMJ - LIST ACTIVE REFERRALS CHS DENIED ;

Call Graph

Call Graph Total: 10

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

Entry Points

Name	Comments	DBIA/ICR reference
BD	;GET BEG AND END 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 EACH ACTIVE/CHS REFERRAL
PROC	;
HEAD2	; WRITE HEADER

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report prints out a list of all referrals that were denied by CHS",!,"but are still active. These may reflect referrals that either have been",!,"or should be referred under some other mechanism, e.g. alternative resources" Line Location: START+1
Function Call: WRITE	Prompt: !,"or another IHS facility, etc.",!! Line Location: START+2
Function Call: WRITE	Prompt: "Report will include both Primary and Secondary Referrals.",! Line Location: START+3
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: ?12,$E(BMCREC("PAT NAME"),1,18) Line Location: PRINT+6
Function Call: WRITE	Prompt: ?32,BMCHRN Line Location: PRINT+8
Function Call: WRITE	Prompt: ?43,$S($P(BMCRREC,U,6):$$PROVINI^XBFUNC1($P(BMCRREC,U,6)),1:"--") Line Location: PRINT+9
Function Call: WRITE	Prompt: ?49,$$TOFAC^BMC(BMCRIEN) Line Location: PRINT+10
Function Call: WRITE	Prompt: ! Line Location: PRINT+11
Function Call: WRITE	Prompt: ?10,^UTILITY($J,"W",DIWL,Z,0),! Line Location: PRINT+14
Function Call: WRITE	Prompt: ! Line Location: PRINT+17
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("CHS REFERRALS DENIED STILL ACTIVE",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",?11,"PATIENT NAME",?32," HRN",?43,"PROV",?49,"FACILITY REF TO" 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+7
^AUTTLOC - [#9999999.06]	PRINT+7
^BMCREF - [#90001]	R1+1, PROC+3, PROC+6, PRINT+1, PRINT+12, PRINT+13
^BMCREF("B"	REFCHK+2, REFCHK+3, R1+1
^DIC(4 - [#4]	HEAD2+3
^UTILITY($J	PRINT+14, PRINT+16!
^XTMP("BMCRCHS3"	INIT+6, INIT+8!, PROC+4*, REFPRT+4!, REFPRT2+1, REFPRT2+3, EOJ+1, EOJ+2!

Label References

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BMC80D	REFPRT+2*, HEAD2+8
>> BMC80E	REFPRT+1*
BMCBD	HEAD2+5, EOJ+3!
BMCBDD	EOJ+3!
>> BMCBT	INIT+4, INIT+5, INIT+6, INIT+7, INIT+8, PROC+4, REFPRT+4, REFPRT2+1, REFPRT2+3, EOJ+1 , EOJ+2
>> BMCDFN	PRINT+7
BMCED	REFCHK+3, HEAD2+6, EOJ+3!
BMCEDD	EOJ+3!
>> BMCET	REFCHK+2*
>> BMCHIT	PROC+4, PROC+5, PROC+7
>> BMCHRN	PRINT+7*, PRINT+8
>> BMCJOB	INIT+3*, INIT+6, INIT+8, PROC+4, REFPRT+4, REFPRT2+1, REFPRT2+3, EOJ+1, EOJ+2
>> BMCODAT	REFCHK+2, REFCHK+3, R1+1
BMCOPT	DBQUE+1!, DBQUE+4*, DBQUE+5
>> BMCPARM	INIT+2
>> BMCPG	REFPRT2+1, HEAD2+1, HEAD2+3
>> BMCQ	BD+4, 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, REFPRT2+2, REFPRT2+3*, PRINT+1, PRINT+2, PRINT+10, PRINT+12 , PRINT+13
>> BMCRREC	R1+1, PROC+2, PRINT+1, PRINT+5, PRINT+9
BMCSD	REFCHK+2, REFCHK+3, EOJ+3!
DA	DBQUE+2!
DIR	DBQUE+2!
DIR("A"	DBQUE+2*
DIR("B"	DBQUE+2*
DIR(0	DBQUE+2*
>> DIRUT	BD+2, DBQUE+3, HEAD+2
DIWF	PRINT+13*, PRINT+15!
DIWL	PRINT+13*, PRINT+14, PRINT+15!
DIWR	PRINT+13*, PRINT+15!
DUZ(2	PRINT+7, HEAD2+3
IOF	HEAD1+1
IOSL	PRINT+4
IOST	REFPRT2+1
U	PROC+2, PROC+4, PROC+6, PRINT+5, PRINT+7, PRINT+9, PRINT+12, PRINT+13, HEAD2+3
>> X	PROC+3, PROC+4, PRINT+13
>> 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*
Z	PRINT+14*, PRINT+15!

Customize PDF page

Package: Referred Care Information System

Routine: BMCRCHS3

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: