Routine: BMCRCHS1

Information

BMCRCHS1 ; IHS/PHXAO/TMJ - LIST PAID CHS REFERRALS ; 15 Mar 2013 9:02 AM

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	4	DD^%DT ^DIR ^DIWP ^DIWW
IHS VA Utilities	1	^XBDBQUE
Kernel	1	$$FMTE^XLFDT

Caller Graph

Caller Graph Total: 1

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

Entry Points

Name	Comments	DBIA/ICR reference
BD	;GET BEG AND END DATE OF REPORT
HEAD	;
R1	;
HEAD1	;
BROWSE	;
EOJ	; END OF JOB
EOJ1	;BMC4.08 ADDED LINE LABEL
DBQUE	;call to XBDBQUE
REFPRT	; PRINT REFERRALS SELECTED
START	;
INIT	; INITIALIZAION
REFPRT2	;
PRINT	;print one referral
REFCHK	; CHECK ACTIVE/CHS REFERRAL SORTED BY DATE INIT
PROC	;
HEAD2	; WRITE HEADER

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report prints out a list of all active CHS referrals for which all",!,"authorizations have already been paid.",!! 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: DBQUE+2
Function Call: WRITE	Prompt: !,"No referrals to report",! Line Location: REFPRT2+1
Function Call: WRITE	Prompt: $$FMTE^XLFDT($P(BMCRREC,U),"2D") Line Location: PRINT+5
Function Call: WRITE	Prompt: ?10,$E(BMCREC("PAT NAME"),1,20) Line Location: PRINT+6
Function Call: WRITE	Prompt: ?32,$P(BMCRREC,U,2) Line Location: PRINT+7
Function Call: WRITE	Prompt: $P(^BMCREF(BMCRIEN,1),U) Condition for execution: $G(^BMCREF(BMCRIEN,1)) Line Location: PRINT+7
Function Call: WRITE	Prompt: ?48,$E($$TOFAC^BMC(BMCRIEN),1,20) Line Location: PRINT+8
Function Call: WRITE	Prompt: ?69,$J($P(^BMCREF(BMCRIEN,41,I,0),U,3),9,2),! Line Location: PRINT+9
Function Call: WRITE	Prompt: ! Line Location: PRINT+10
Function Call: WRITE	Prompt: ! Line Location: PRINT+19
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 CHS REFERRALS WHERE ALL AUTHORIZATIONS PAID",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," REF #",?48,"FACILITY REF TO",?70,"AMT PAID" 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)
^BMCREF - [#90001]	R1+1, PROC+3, PROC+6, PROC+7, PROC+8, PRINT+1, PRINT+7, PRINT+9, PRINT+11, PRINT+14
^BMCREF("B"	REFCHK+1, REFCHK+2, R1+1
^DIC(4 - [#4]	HEAD2+3
^UTILITY($J	PRINT+13!
^XTMP("BMCRCHS1"	INIT+6, INIT+9!, 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
EOJ1	BD+2
HEAD	PRINT+4
HEAD1	HEAD+3
INIT	BD+3
PRINT	REFPRT2+3
PROC	R1+1
R1	REFCHK+2
REFPRT2	REFPRT+3

Naked Globals

Name	Field # of Occurrence
^(	PRINT+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BMC80D	REFPRT+2*, HEAD2+8, EOJ1+2!
BMC80E	REFPRT+1*, EOJ1+2!
>> BMCAUTH	PROC+5, PROC+7, PROC+8
BMCBD	HEAD2+5, EOJ1+3!
BMCBDD	EOJ1+3!
BMCBOS	EOJ1+2!
BMCBT	INIT+4, INIT+5, INIT+6, INIT+7, INIT+9, PROC+4, REFPRT+4, REFPRT2+1, REFPRT2+3, EOJ+1 , EOJ+2, EOJ1+2!
BMCCL	EOJ1+2!
BMCED	REFCHK+2, HEAD2+6, EOJ1+3!
BMCEDD	EOJ1+3!
>> BMCET	REFCHK+1*
>> BMCHIT	PROC+4, PROC+5, PROC+10
BMCJOB	INIT+3*, INIT+6, PROC+4, REFPRT+4, REFPRT2+1, REFPRT2+3, EOJ+1, EOJ+2, EOJ1+2!
>> BMCL	PRINT+14*
>> BMCODAT	REFCHK+1, REFCHK+2, R1+1
BMCOPT	DBQUE+1!, DBQUE+4*, DBQUE+5, EOJ1+2!
>> BMCPARM	INIT+2
BMCPG	REFPRT2+1, HEAD2+1, HEAD2+3, EOJ1+2!
>> 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, PROC+7, PROC+8, REFPRT2+2, REFPRT2+3*, PRINT+1, PRINT+2 , PRINT+7, PRINT+8, PRINT+9, PRINT+11, PRINT+14
BMCRREC	R1+1, PROC+2, PRINT+1, PRINT+5, PRINT+7, EOJ1+2!
BMCRSTAT	EOJ1+2!
BMCSD	REFCHK+1, REFCHK+2, EOJ1+3!
BMCSKIP	PROC+5, PROC+7, PROC+9, PROC+10, EOJ1+2!
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+15*
>> DIWL	PRINT+15*
>> DIWR	PRINT+15*
DUZ(2	HEAD2+3
>> I	PRINT+9*
IOF	HEAD1+1
IOSL	PRINT+4
IOST	REFPRT2+1
U	PROC+2, PROC+4, PROC+9, PRINT+5, PRINT+7, PRINT+9, HEAD2+3
>> X	PROC+3, PROC+4, PRINT+14
>> 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, PROC+8, PROC+9, PRINT+2, HEAD2+5, HEAD2+6

Customize PDF page

Package: Referred Care Information System

Routine: BMCRCHS1

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: