Routine: BMCRR23P

Package	Total	Call Graph
VA Fileman	3	DD^%DT (,NOW)^%DTC ^DIR
Referred Care Information System	2	DONE^BMCRLP1 DT^BMCRUTL
IHS VA %Utilities	1	^ZIBGSVEM

Package	Total	Caller Graph
Referred Care Information System	1	BMCRR23

Entry Points

Name	Comments	DBIA/ICR reference
SORT	;
PRINT1	;
HEAD	;ENTRY POINT
HEAD3	;
HEAD2	;
HEAD1	;
SUMN	;
SUM	;
CHSFAC	;
DETAIL	;
START	;
FILSUMC	;
DONE	;
FILSUM	;
FILSAV	;SAVE FILE
PRINT	;
FILSUMN	;
SUMC	;
FILHDR	;

External References

Name	Field # of Occurrence
DD^%DT	HEAD2+5, HEAD2+6, FILHDR+5, FILHDR+6
^%DTC	PRINT1+23
NOW^%DTC	FILSAV+5
DONE^BMCRLP1	DONE+1
DT^BMCRUTL	PRINT1+2, PRINT1+4, PRINT1+6, PRINT1+16, PRINT1+20
^DIR	DETAIL+14, HEAD+1
^ZIBGSVEM	FILSAV+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,BMC80D Condition for execution: BMCRTYP="S" Line Location: START+4
Function Call: WRITE	Prompt: !,"No referrals to report",! Line Location: START+4
Function Call: WRITE	Prompt: ! Line Location: DETAIL+14
Function Call: WRITE	Prompt: ! Line Location: DETAIL+14
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !?12,"********* 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: !?14,"CHS TYPE REFERRAL REPORT SORTED BY CALL-IN REFERRALS" 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: !,BMC80D Line Location: HEAD2+7
Function Call: WRITE	Prompt: !!,?3,"REFERRAL",?16,"CALL-IN",?25,"REFERRAL",?36,"CHS",?46,"PO",?74,"DAYS" Line Location: HEAD3+1
Function Call: WRITE	Prompt: !,?4,"NUMBER",?18,"DATE",?24,"INITIATED",?34,"APPROVAL",?44,"ISSUED",?53,"PO NUMBER",?65,"PO PAID",?73,"TO PAY" Line Location: HEAD3+2
Function Call: WRITE	Prompt: !,BMC80D Line Location: HEAD3+3
Function Call: WRITE	Prompt: !,BMCSRTH Line Location: HEAD3+4
Function Call: WRITE	Prompt: !,"TOTAL CHS Referrals: ",BMCRTOT Line Location: SUM+3
Function Call: WRITE	Prompt: !,"TOTAL PO'S: ",BMCCPO+BMCRPO Line Location: SUM+4
Function Call: WRITE	Prompt: !,"TOTAL Days to Pay: ",BMCRCDAY+BMCRRDAY Line Location: SUM+5
Function Call: WRITE	Prompt: !!,"CHS Call-In Referrals from PO issue date to paid date" Line Location: SUMC+1
Function Call: WRITE	Prompt: !,"TOTAL CHS Call-In Referrals: ",BMCRCTOT Line Location: SUMC+2
Function Call: WRITE	Prompt: !,"TOTAL CHS Call-In Referral Days: ",BMCRCDAY Line Location: SUMC+3
Function Call: WRITE	Prompt: !,"TOTAL CHS Call-In Referral Average Days: " Line Location: SUMC+4
Function Call: WRITE	Prompt: $S(BMCCPO>0:$FN((BMCRCDAY/BMCCPO),"",2),1:0) Line Location: SUMC+4
Function Call: WRITE	Prompt: !!,"CHS Non-Call-In Referrals from PO issue date to paid date" Line Location: SUMN+1
Function Call: WRITE	Prompt: !,"TOTAL CHS Non-Call-In Referrals: ",BMCRRTOT Line Location: SUMN+2
Function Call: WRITE	Prompt: !,"TOTAL CHS Non-Call-In Referral Days: ",BMCRRDAY Line Location: SUMN+3
Function Call: WRITE	Prompt: !,"TOTAL CHS Non-Call-In Referral Average Days: " Line Location: SUMN+4
Function Call: WRITE	Prompt: $S(BMCRPO>0:$FN((BMCRRDAY/BMCRPO),"",2),1:0) Line Location: SUMN+4
Routine Call	DIR Line Location: DETAIL+14 HEAD+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	PRINT1+12, PRINT1+13, PRINT1+15, PRINT1+20
^AUTTAREA - [#9999999.21]	CHSFAC+1
^AUTTLOC - [#9999999.06]	CHSFAC+1, FILSAV+7
^AUTTSITE(1	FILSAV+12
^BMCPARM - [#90001.31]	FILSAV+11
^BMCREF - [#90001]	PRINT+4, PRINT1+1, PRINT1+2, PRINT1+4, PRINT1+6, PRINT1+10, PRINT1+11
^DIC(4 - [#4]	HEAD2+3, FILHDR+3
^XTMP(	START+4, SORT+3, SORT+5!, PRINT+3, PRINT1+1, PRINT1+3, PRINT1+5, PRINT1+7, PRINT1+17, PRINT1+18 , PRINT1+19, PRINT1+21, PRINT1+24, DETAIL+2, DETAIL+5, DETAIL+6, DETAIL+10, DETAIL+11, FILHDR+2, FILHDR+3* , FILHDR+4, FILHDR+5, FILHDR+6, FILHDR+7, FILHDR+8, FILHDR+9, FILHDR+10, FILSUM+3, FILSUM+4, FILSUM+5* , FILSUM+6, FILSUMC+1, FILSUMC+2, FILSUMC+3, FILSUMC+4, FILSUMN+1, FILSUMN+2, FILSUMN+3, FILSUMN+4*, FILSAV+2!

Label References

Name	Line Occurrences
@(	START+4
CHSFAC	PRINT+1
DETAIL	SORT+6
DONE	START+4, SORT+4, SORT+7
FILSUMC	FILSUM+1
FILSUMN	FILSUM+2
HEAD	SORT+7, DETAIL+9, DETAIL+13
HEAD1	SORT+6
PRINT	SORT+3
PRINT1	PRINT+7
SUM	SORT+5, SORT+6
SUMC	SUM+1
SUMN	SUM+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	FILSAV+5
>> %I(3	FILSAV+5
>> BMC80D	START+2*, START+4, HEAD2+7, HEAD3+3
>> BMC80E	START+1*
>> BMCBD	HEAD2+5, FILHDR+5
>> BMCBT	START+4, SORT+3, PRINT+3
>> BMCBTH	SORT+5, PRINT1+1, PRINT1+3, PRINT1+5, PRINT1+7, PRINT1+17, PRINT1+18, PRINT1+19, PRINT1+21, PRINT1+24 , DETAIL+2, DETAIL+5, DETAIL+6, DETAIL+10, DETAIL+11, FILHDR+2, FILHDR+3, FILHDR+4, FILHDR+5, FILHDR+6 , FILHDR+7, FILHDR+8, FILHDR+9, FILHDR+10, FILSUM+3, FILSUM+4, FILSUM+5, FILSUM+6, FILSUMC+1, FILSUMC+2 , FILSUMC+3, FILSUMC+4, FILSUMN+1, FILSUMN+2, FILSUMN+3, FILSUMN+4, FILSAV+2
>> BMCCFC	PRINT+1, PRINT1+19, CHSFAC+1
>> BMCCHS	PRINT1+11*, PRINT1+12, PRINT1+13, PRINT1+15, PRINT1+20
>> BMCCHS0	PRINT1+15*, PRINT1+16, PRINT1+19, PRINT1+23
>> BMCCPO	SORT+2, PRINT1+26, PRINT1+27, SUM+4, SUMC+4, FILSUM+4, FILSUMC+4
>> BMCED	HEAD2+6, FILHDR+6
>> BMCFIL	FILHDR+1
>> BMCJOB	START+4, SORT+3, SORT+5, PRINT+3, PRINT1+1, PRINT1+3, PRINT1+5, PRINT1+7, PRINT1+17, PRINT1+18 , PRINT1+19, PRINT1+21, PRINT1+24, DETAIL+2, DETAIL+5, DETAIL+6, DETAIL+10, DETAIL+11, FILHDR+2, FILHDR+3 , FILHDR+4, FILHDR+5, FILHDR+6, FILHDR+7, FILHDR+8, FILHDR+9, FILHDR+10, FILSUM+3, FILSUM+4, FILSUM+5 , FILSUM+6, FILSUMC+1, FILSUMC+2, FILSUMC+3, FILSUMC+4, FILSUMN+1, FILSUMN+2, FILSUMN+3, FILSUMN+4, FILSAV+2
>> BMCPG	START+4, HEAD2+1, HEAD2+3
>> BMCPOC	PRINT1+9, PRINT1+17, PRINT1+18, PRINT1+19, PRINT1+21, PRINT1+24, PRINT1+26, DETAIL+10*, DETAIL+11
>> BMCQUIT	SORT+1, SORT+3, SORT+4, PRINT+3, DETAIL+2, DETAIL+5, DETAIL+9, DETAIL+10, DETAIL+13, DETAIL+14 , HEAD+1*
>> BMCR	DETAIL+5*, DETAIL+6, DETAIL+10, DETAIL+11
>> BMCRCDAY	SORT+2, PRINT1+25, PRINT1+27, SUM+5, SUMC+3, SUMC+4, FILSUM+5, FILSUMC+3, FILSUMC+4
>> BMCRCTOT	SORT+2, PRINT+5, SUMC+2, FILSUMC+2
>> BMCREC	DETAIL+6, DETAIL+7, DETAIL+8, DETAIL+11, DETAIL+12
>> BMCREF	PRINT+2, PRINT+3, PRINT+4, PRINT1+1, PRINT1+2, PRINT1+4, PRINT1+6, PRINT1+10, PRINT1+11
>> BMCRPO	SORT+2, PRINT1+26, PRINT1+27, SUM+4, SUMN+4, FILSUM+4, FILSUMN+4
>> BMCRPT	SUM+1, SUM+2, SUMC+5, FILSUM+1, FILSUM+2, FILSUMC+5
>> BMCRRDAY	SORT+2, PRINT1+25, PRINT1+27, SUM+5, SUMN+3, SUMN+4, FILSUM+5, FILSUMN+3, FILSUMN+4
>> BMCRREC	PRINT+4*
>> BMCRRTOT	SORT+2, PRINT+6, SUMN+2, FILSUMN+2
>> BMCRTOT	SORT+2, PRINT+7, PRINT1+1, PRINT1+3, PRINT1+5, PRINT1+7, PRINT1+17, PRINT1+18, PRINT1+19, PRINT1+21 , PRINT1+24, SUM+3, FILSUM+3
>> BMCRTYP	START+4, SORT+5, SORT+6*, HEAD2+7
>> BMCSORT	SORT+1, SORT+3, PRINT+3, PRINT+5, PRINT+6, PRINT1+1, PRINT1+3, PRINT1+5, PRINT1+7, PRINT1+17 , PRINT1+18, PRINT1+19, PRINT1+21, PRINT1+24, PRINT1+25, PRINT1+26, DETAIL+2*, DETAIL+3, DETAIL+4, DETAIL+5 , DETAIL+6, DETAIL+10, DETAIL+11
>> BMCSRTH	START+3, DETAIL+3, DETAIL+4, HEAD3+4
>> BMCTAVG	SORT+2, PRINT1+27, SUM+6, FILSUM+6
>> BMCTST	DETAIL+1, DETAIL+4
>> DFN	PRINT+4*
DIR	DETAIL+14!, HEAD+1!
DIR(0	DETAIL+14, HEAD+1
DT	FILSAV+4
>> DTOUT	DETAIL+14, HEAD+1
DUZ(2	SORT+3, PRINT+3, PRINT1+12, PRINT1+13, PRINT1+15, PRINT1+20, CHSFAC+1, HEAD2+3, FILHDR+3, FILSAV+7 , FILSAV+11
IO	DETAIL+14, HEAD+1
IO(0	DETAIL+14, HEAD+1
IOF	HEAD1+1
IOSL	SORT+7, DETAIL+9, DETAIL+13
IOST	START+4, DETAIL+14, HEAD+1
>> L	PRINT1+9, PRINT1+10, PRINT1+11
U	PRINT+4, PRINT1+1, PRINT1+2, PRINT1+4, PRINT1+6, PRINT1+11, PRINT1+12, PRINT1+13, PRINT1+16, PRINT1+19 , PRINT1+20, PRINT1+23, DETAIL+7, DETAIL+8, DETAIL+12, CHSFAC+1, HEAD2+3, FILHDR+3, FILSAV+7, FILSAV+11 , FILSAV+12
>> X	PRINT1+24, PRINT1+25, FILSAV+4, FILSAV+5, FILSAV+6*, FILSAV+8
>> X1	PRINT1+20, FILSAV+7, FILSAV+8
>> X2	PRINT1+23*
XBE	FILSAV+3~, FILSAV+7*
XBF	FILSAV+3~, FILSAV+14*
XBFLT	FILSAV+3~, FILSAV+9*
XBFN	FILSAV+3~, FILSAV+8*
XBGL	FILSAV+3~, FILSAV+14*
XBIO	FILSAV+3~, FILSAV+14*
XBJ	FILSAV+3~
XBMED	FILSAV+3~, FILSAV+9*
XBQ	FILSAV+3~, FILSAV+10*
XBS1	FILSAV+3~, FILSAV+13*
XBUF	FILSAV+3~, FILSAV+11, FILSAV+12
>> Y	PRINT1+2, PRINT1+3, PRINT1+4, PRINT1+5, PRINT1+6, PRINT1+7, PRINT1+16, PRINT1+18, PRINT1+20, PRINT1+21 , DETAIL+14, HEAD+1, HEAD2+5, HEAD2+6, FILHDR+5, FILHDR+6*

Customize PDF page

Package: Referred Care Information System

Routine: BMCRR23P

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: