Routine: BMCRR18P

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Referred Care Information System	3	WP^BMCFDR DONE^BMCRLP2 ($$AVDOS,$$AVEOS,$$AVLOS,$$FACREF)^BMCRLU
VA Fileman	2	DD^%DT ^DIR
IHS Patient	1	($$AGE,$$COMMRES,KILL)^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	$$FMTE^XLFDT

Package

Total

Call Graph

Referred Care Information System

WP^BMCFDR DONE^BMCRLP2 ($$AVDOS,$$AVEOS,$$AVLOS,$$FACREF)^BMCRLU

VA Fileman

DD^%DT ^DIR

IHS Patient

($$AGE,$$COMMRES,KILL)^AUPNPAT

IHS VA Utilities

$$VAL^XBDIQ1

Kernel

$$FMTE^XLFDT

Name	Comments	DBIA/ICR reference
PRINT1	;
HEAD	;ENTRY POINT
HEAD2	;
HEAD1	;
SUMPRINT	;Entry Point Down to Print Report Summary Selection
CASECOM	;
COMMENTS	;
P	;
XIT	;
DISCOM	;
PRINT	;print one referral

External References

Name	Field # of Occurrence
DD^%DT	HEAD2+6, HEAD2+7
$$AGE^AUPNPAT	PRINT1+3, SUMPRINT+5
$$COMMRES^AUPNPAT	PRINT1+6, SUMPRINT+7
KILL^AUPNPAT	XIT+3
WP^BMCFDR	COMMENTS+1
DONE^BMCRLP2	XIT+2
$$AVDOS^BMCRLU	PRINT1+9, SUMPRINT+10
$$AVEOS^BMCRLU	PRINT1+9, SUMPRINT+10
$$AVLOS^BMCRLU	PRINT1+9, SUMPRINT+10
$$FACREF^BMCRLU	PRINT1+7, SUMPRINT+8
^DIR	HEAD+2
$$VAL^XBDIQ1	CASECOM+6, DISCOM+6
$$FMTE^XLFDT	CASECOM+5, DISCOM+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No referrals to report",! Line Location: BMCRR18P+9
Function Call: WRITE	Prompt: !!,$E($P(^DPT(DFN,0),U),1,20),?22,BMCHRN,?28,$$AGE^AUPNPAT(DFN,DT,"R") Line Location: PRINT1+3
Function Call: WRITE	Prompt: ?35,BMCRNUMB,$P($G(^BMCREF(BMCREF,1)),U) Line Location: PRINT1+5
Function Call: WRITE	Prompt: ?53,$E($$COMMRES^AUPNPAT(DFN,"E"),1,10) Line Location: PRINT1+6
Function Call: WRITE	Prompt: ?65,$E($$FACREF^BMCRLU(BMCREF),1,15) Line Location: PRINT1+7
Function Call: WRITE	Prompt: !,$E($P($G(^BMCREF(BMCREF,12)),U,1),1,19) Line Location: PRINT1+8
Function Call: WRITE	Prompt: ?27,"Admit Dt: ",$$AVDOS^BMCRLU(BMCREF,"C"),"-","Disch Dt: ",$$AVEOS^BMCRLU(BMCREF,"S")," LOS: ",$$AVLOS^BMCRLU(BMCREF,"C") Line Location: PRINT1+9
Function Call: WRITE	Prompt: ! Line Location: CASECOM+1
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
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: ?21,"AREA HOSPITAL DISCHARGES BY DATE" Line Location: HEAD2+4
Function Call: WRITE	Prompt: !,?28,"BEG DATE: "_Y Line Location: HEAD2+6
Function Call: WRITE	Prompt: !,?28,"END DATE: "_Y,! Line Location: HEAD2+7
Function Call: WRITE	Prompt: !!,"Pt Name/Purpose",?22,"Rec #",?29,"Age",?36,"Referral #",?52,"Community",?65,"Fac. Ref To" Line Location: HEAD2+9
Function Call: WRITE	Prompt: !!,"Pt Name/Purpose",?22,"Rec #",?32,"Age",?39,"Referral #",?52,"Community",?65,"Fac. Ref To",?82,"Purpose of Referral",?104,"Beginning ",?116,"Ending ",?126,"Los" Line Location: HEAD2+11
Function Call: WRITE	Prompt: !,$TR($J(" ",80)," ","-") Line Location: HEAD2+12
Function Call: WRITE	Prompt: !,$TR($J(" ",132)," ","-") Line Location: HEAD2+13
Function Call: WRITE	Prompt: !,$E($P(^DPT(DFN,0),U),1,20),?22,BMCHRN,?31,$$AGE^AUPNPAT(DFN,DT,"R") Line Location: SUMPRINT+5
Function Call: WRITE	Prompt: ?38,$P($G(^BMCREF(BMCREF,0)),U,2) Line Location: SUMPRINT+6
Function Call: WRITE	Prompt: ?53,$E($$COMMRES^AUPNPAT(DFN,"E"),1,10) Line Location: SUMPRINT+7
Function Call: WRITE	Prompt: ?65,$E($$FACREF^BMCRLU(BMCREF),1,15) Line Location: SUMPRINT+8
Function Call: WRITE	Prompt: ?82,$E($P($G(^BMCREF(BMCREF,12)),U,1),1,20) Line Location: SUMPRINT+9
Function Call: WRITE	Prompt: ?104,$$AVDOS^BMCRLU(BMCREF,"C"),?117,$$AVEOS^BMCRLU(BMCREF,"S"),?126,$$AVLOS^BMCRLU(BMCREF,"C") Line Location: SUMPRINT+10
Routine Call	DIR Line Location: HEAD+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PRINT1+2, SUMPRINT+4
^AUTTLOC - [#9999999.06]	PRINT1+2, SUMPRINT+4
^BMCCOM - [#90001.03]	CASECOM+4, CASECOM+5, DISCOM+4, DISCOM+5
^BMCCOM("AD"	CASECOM+2, CASECOM+3, DISCOM+1, DISCOM+3
^BMCREF - [#90001]	PRINT+2, PRINT1+4, PRINT1+5, PRINT1+8, SUMPRINT+6, SUMPRINT+9
^DIC(4 - [#4]	HEAD2+3
^DPT - [#2]	PRINT1+3, SUMPRINT+5
^XTMP("BMCRR18"	BMCRR18P+9, BMCRR18P+11, XIT+1!, P+1, PRINT+2

Name	Line Occurrences
@(	BMCRR18P+9
COMMENTS	CASECOM+7, DISCOM+7
HEAD	PRINT+1, PRINT+3, PRINT1+1, COMMENTS+3, SUMPRINT+3
P	BMCRR18P+11
PRINT	P+1
PRINT1	PRINT+3
SUMPRINT	PRINT+4
XIT	BMCRR18P+9

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BMCBD	HEAD2+6
>> BMCBT	BMCRR18P+9, BMCRR18P+11, XIT+1, P+1, PRINT+2
>> BMCDA	COMMENTS+1*
BMCDATE	BMCRR18P+11*, XIT+4!, P+1, PRINT+2
>> BMCED	HEAD2+7
>> BMCFILE	COMMENTS+1*
>> BMCHRN	PRINT1+2, PRINT1+3, SUMPRINT+4, SUMPRINT+5
BMCI	XIT+4!, CASECOM+3, CASECOM+4, CASECOM+5, CASECOM+6, DISCOM+2, DISCOM+3*, DISCOM+4, DISCOM+5, DISCOM+6 , COMMENTS+1
BMCIOM	COMMENTS+1*!
>> BMCJOB	BMCRR18P+9, BMCRR18P+11, XIT+1, P+1, PRINT+2
>> BMCNODE	COMMENTS+1*
>> BMCOUTP	PRINT+3, PRINT+4, HEAD2+9, HEAD2+11, HEAD2+12, HEAD2+13
>> BMCPG	BMCRR18P+9, HEAD2+1, HEAD2+3
>> BMCPN	BMCRR18P+10, P+1, PRINT+2
>> BMCQUIT	BMCRR18P+10, BMCRR18P+11, P+1, PRINT+1, PRINT+2, PRINT1+1, CASECOM+3, DISCOM+3, COMMENTS+2, COMMENTS+3 , HEAD+2, SUMPRINT+3
>> BMCREF	PRINT+2*, PRINT1+4, PRINT1+5, PRINT1+7, PRINT1+8, PRINT1+9, CASECOM+2, CASECOM+3, DISCOM+1, DISCOM+3 , SUMPRINT+6, SUMPRINT+8, SUMPRINT+9, SUMPRINT+10
>> BMCRNUMB	PRINT1+4*, PRINT1+5
>> BMCRREC	PRINT+2*
>> BMCWP(	COMMENTS+2, COMMENTS+4
C	HEAD+1~
>> DFN	PRINT+2*, PRINT1+2, PRINT1+3, PRINT1+6, SUMPRINT+4, SUMPRINT+5, SUMPRINT+7
DIR	HEAD+2!
DIR(0	HEAD+2*
DT	PRINT1+3, SUMPRINT+5
>> DTOUT	HEAD+2
DUZ(2	PRINT1+2, HEAD2+3, SUMPRINT+4
IO	HEAD+2
IO(0	HEAD+2
IOF	HEAD1+1
IOSL	PRINT+1, PRINT1+1, COMMENTS+3, SUMPRINT+3
IOST	BMCRR18P+9, HEAD+2
U	PRINT+2, PRINT1+2, PRINT1+3, PRINT1+4, PRINT1+5, PRINT1+8, CASECOM+4, CASECOM+5, DISCOM+4, DISCOM+5 , HEAD2+3, SUMPRINT+4, SUMPRINT+5, SUMPRINT+6, SUMPRINT+9
X	HEAD+1~
Y	COMMENTS+2, COMMENTS+4, HEAD+1~, HEAD+2, HEAD2+6, HEAD2+7*
Z	HEAD+1~

Customize PDF page

Package: Referred Care Information System

Routine: BMCRR18P

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: