Routine: BMCRCHS4

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

Package

Total

Call Graph

Referred Care Information System

($$CTR,$$TOFAC,PARMSET,PAUSE)^BMC ^BMCKILL ^BMCREF GETDATES^BMCRUTL

VA Fileman

DD^%DT ^DIR ^DIWP

IHS VA Utilities

^XBDBQUE $$PROVINI^XBFUNC1

Kernel

$$FMTE^XLFDT

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

Package

Total

Caller Graph

Referred Care Information System

BMC RPT-CHS STATUS

Entry Points

Name	Comments	DBIA/ICR reference
STATUS	;CHS STATUS AND STATUS OF REFERRAL
HEAD	;
HIT
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+4, HEAD2+5
$$CTR^BMC	HEAD2+6, HEAD2+7
$$TOFAC^BMC	PRINT+11
PARMSET^BMC	INIT+2
PAUSE^BMC	REFPRT2+1, REFPRT2+5, HEAD+1
^BMCKILL	EOJ+3
^BMCREF	PRINT+3
GETDATES^BMCRUTL	START+5
^DIR	DBQUE+2, STATUS+3, STATUS+9
^DIWP	PRINT+14
^XBDBQUE	DBQUE+7, BROWSE+3
$$PROVINI^XBFUNC1	PRINT+10
$$FMTE^XLFDT	PRINT+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report prints out a list of all Active CHS referrals. ",!,"The user can select a date range by Date initiated, and Status of Referral.",!,"and CHS status of Referral.",! 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),"5D") Line Location: PRINT+5
Function Call: WRITE	Prompt: ?11,$E(BMCREC("PAT NAME"),1,18) Line Location: PRINT+6
Function Call: WRITE	Prompt: ?30,$P(BMCRREC,U,2) Line Location: PRINT+8
Function Call: WRITE	Prompt: $P(^BMCREF(BMCRIEN,1),U) Condition for execution: $D(^BMCREF(BMCRIEN,1)) Line Location: PRINT+8
Function Call: WRITE	Prompt: ?46,$P(^BMCREF(BMCRIEN,11),U,12)_"/"_$P(BMCRREC,U,15) Line Location: PRINT+9
Function Call: WRITE	Prompt: ?51,$S($P(BMCRREC,U,6):$$PROVINI^XBFUNC1($P(BMCRREC,U,6)),1:"--") Line Location: PRINT+10
Function Call: WRITE	Prompt: ?55,$E($$TOFAC^BMC(BMCRIEN),1,25) Line Location: PRINT+11
Function Call: WRITE	Prompt: ! Line Location: PRINT+12
Function Call: WRITE	Prompt: ?10,^UTILITY($J,"W",DIWL,Z,0),! Line Location: PRINT+15
Function Call: WRITE	Prompt: ! Line Location: PRINT+18
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: ?17,"BEG DATE: "_Y Line Location: HEAD2+4
Function Call: WRITE	Prompt: ?40,"END DATE: "_Y,! Line Location: HEAD2+5
Function Call: WRITE	Prompt: $$CTR^BMC("CHS REFERRALS: "_BMCRTYP,80),! Line Location: HEAD2+6
Function Call: WRITE	Prompt: $$CTR^BMC("REFERRALS STATUS: "_BMCRTYPS,80),! Line Location: HEAD2+7
Function Call: WRITE	Prompt: !,"REF DATE",?11,"PATIENT NAME",?32," REF #",?44,"STATUS",?51,"PRV",?55,"FACILITY REF TO" Line Location: HEAD2+8
Function Call: WRITE	Prompt: !,BMC80D Line Location: HEAD2+9
Function Call: WRITE	Prompt: ! Line Location: HEAD2+10
Routine Call	DIR Line Location: DBQUE+2 STATUS+3 STATUS+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BMCREF - [#90001]	REFCHK+5, REFCHK+12, PRINT+1, PRINT+8, PRINT+9, PRINT+13, PRINT+14
^BMCREF("B"	REFCHK+2, REFCHK+4
^DIC(4 - [#4]	HEAD2+3
^UTILITY($J	PRINT+15, PRINT+17!
^XTMP("BMCRCHS4"	INIT+6, INIT+8!, HIT*, REFPRT+4!, REFPRT2+1, REFPRT2+3, EOJ+1, EOJ+2!

Name	Line Occurrences
@(	REFPRT2+1
BROWSE	DBQUE+5
DBQUE	START+7
HEAD	PRINT+4
HEAD1	HEAD+3
HIT	REFCHK+11, REFCHK+12
INIT	START+3
PRINT	REFPRT2+3
REFPRT2	REFPRT+3
STATUS	START+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BMC80D	REFPRT+2*, HEAD2+9, EOJ+4!
BMC80E	REFPRT+1*, EOJ+4!
BMCBD	REFCHK+1, HEAD2+4, EOJ+4!
BMCBDD	EOJ+4!
BMCBDT	REFCHK+1, REFCHK+2, REFCHK+4, EOJ+4!
BMCBT	INIT+4, INIT+5, INIT+6, INIT+7, INIT+8, HIT, REFPRT+4, REFPRT2+1, REFPRT2+3, EOJ+1 , EOJ+2, EOJ+4!
BMCCST	STATUS+4*, REFCHK+11, REFCHK+12, EOJ+5!
BMCED	REFCHK+2, HEAD2+5, EOJ+5!
BMCEDD	EOJ+5!
BMCHRN	EOJ+4!
BMCJOB	INIT+3*, INIT+6, INIT+8, HIT, REFPRT+4, REFPRT2+1, REFPRT2+3, 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+2!, REFPRT2+3, REFPRT2+4, PRINT+4, HEAD+2
BMCREC	EOJ+5!
BMCREC("PAT N	AME" , PRINT+6
>> BMCRIEN	REFCHK+3, REFCHK+4, REFCHK+5, REFCHK+12, HIT, REFPRT2+2, REFPRT2+3, PRINT+1, PRINT+2, PRINT+8 , PRINT+9, PRINT+11, PRINT+13, PRINT+14
BMCRREC	PRINT+1*, PRINT+5, PRINT+8, PRINT+9, PRINT+10, EOJ+5!
BMCRSTAT	EOJ+5!
BMCRTYP	STATUS+5*, HEAD2+6, EOJ+5!
BMCRTYPS	STATUS+11*, HEAD2+7, EOJ+5!
BMCSD	EOJ+5!
BMCSTA	STATUS+10*, REFCHK+7, REFCHK+9, EOJ+6!
DA	DBQUE+2!
DIR	DBQUE+2!, STATUS+3!, STATUS+9!
DIR("A"	DBQUE+2, STATUS+2, STATUS+8*
DIR("B"	DBQUE+2, STATUS+2, STATUS+8*
DIR(0	DBQUE+2, STATUS+1, STATUS+7*
>> DIRUT	START+5, START+6, DBQUE+3, STATUS+3, STATUS+9, HEAD+2
DIWF	PRINT+14*, PRINT+16!
DIWL	PRINT+14*, PRINT+15, PRINT+16!
DIWR	PRINT+14*, PRINT+16!
>> DTOUT	START+5, START+6
DUZ(2	HEAD2+3
IOF	HEAD1+1
IOSL	PRINT+4
IOST	REFPRT2+1
U	REFCHK+7, REFCHK+9, REFCHK+10, REFCHK+12, PRINT+5, PRINT+8, PRINT+9, PRINT+10, PRINT+13, PRINT+14 , HEAD2+3
>> X	REFCHK+5, REFCHK+7, REFCHK+9, REFCHK+10, 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, STATUS+4, STATUS+5, STATUS+10, STATUS+11, PRINT+2, HEAD2+4, HEAD2+5*
Z	PRINT+15*, PRINT+16!

Customize PDF page

Package: Referred Care Information System

Routine: BMCRCHS4

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

Local Variables

Legend: