Routine: BMCRR3P

Information

BMCRR3P ; IHS/PHXAO/TMJ - PRNT BILL VSTS ; [ 09/27/2006 2:14 PM ]

Package	Total	Call Graph
VA Fileman	3	DD^%DT COMMA^%DTC ^DIR
Kernel	1	$$FMTE^XLFDT
Referred Care Information System	1	DONE^BMCRLP2

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No patientss to report",! Line Location: START+3
Function Call: WRITE	Prompt: !,$E(BMCPN,1,25) Line Location: PRINT+3
Function Call: WRITE	Prompt: ?28,BMCHRN Line Location: PRINT+5
Function Call: WRITE	Prompt: ?40,$$FMTE^XLFDT($P(^DPT(DFN,0),U,3),"5D") Line Location: PRINT+6
Function Call: WRITE	Prompt: ?52,$P(^DPT(DFN,0),U,2) Line Location: PRINT+7
Function Call: WRITE	Prompt: ?56,$J($P(^XTMP("BMCRR3",BMCJOB,BMCBTH,"DATA HITS",BMCPN,DFN),U),5) Line Location: PRINT+8
Function Call: WRITE	Prompt: ?64,X Line Location: PRINT+9
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !?13,"******** CONFIDENTIAL PATIENT INFORMATION ********" Line Location: HEAD2+2
Function Call: WRITE	Prompt: !?21,"****** PRIMARY REFERRALS *****" Line Location: HEAD2+3
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+4
Function Call: WRITE	Prompt: ?22,"HIGH COST USERS - "_$S(BMCCOST="I":"using IHS COST",1:"using TOTAL COST"),! Line Location: HEAD2+5
Function Call: WRITE	Prompt: ?17,"BEG DATE: "_Y Line Location: HEAD2+7
Function Call: WRITE	Prompt: ?40,"END DATE: "_Y,! Line Location: HEAD2+8
Function Call: WRITE	Prompt: !,"PATIENT NAME",?28," HRN",?40,"DOB",?51,"SEX",?56,"# REFS",?64,"TOTAL COST" Line Location: 0+0
Function Call: WRITE	Prompt: !,BMC80D Line Location: 0+1
Routine Call	DIR Line Location: HEAD+1

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PRINT+4
^AUTTLOC - [#9999999.06]	PRINT+4
^DIC(4 - [#4]	HEAD2+4
^DPT - [#2]	PRINT+6, PRINT+7
^XTMP("BMCRR3"	START+3, START+5, DONE+1!, DFN+1, PRINT+1, PRINT+8, PRINT+9

Name	Field # of Occurrence
>> BMC80D	START+2*, 0+1
>> BMC80E	START+1*
>> BMCAMT	PRINT+1
>> BMCBD	HEAD2+7
>> BMCBT	START+3, START+5, DONE+1, DFN+1
>> BMCBTH	PRINT+1, PRINT+8, PRINT+9
>> BMCCOST	HEAD2+5
>> BMCED	HEAD2+8
>> BMCHRN	PRINT+4*, PRINT+5
>> BMCJOB	START+3, START+5, DONE+1, DFN+1, PRINT+1, PRINT+8, PRINT+9
>> BMCPG	START+3, HEAD2+1, HEAD2+4
>> BMCPN	START+4, START+5, DFN+1, PRINT+1, PRINT+3, PRINT+8, PRINT+9
BMCQUIT	START+4!, START+5, DFN+1, PRINT+2, HEAD+1*
>> DFN	DFN+1*, PRINT+1, PRINT+4, PRINT+6, PRINT+7, PRINT+8, PRINT+9
DIR	HEAD+1!
DIR(0	HEAD+1*
>> DTOUT	HEAD+1
DUZ(2	PRINT+4, HEAD2+4
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	PRINT+2
IOST	START+3, HEAD+1
U	PRINT+1, PRINT+4, PRINT+6, PRINT+7, PRINT+8, PRINT+9, HEAD2+4
>> X	PRINT+9*
>> X2	PRINT+9*
>> Y	HEAD+1, HEAD2+7, HEAD2+8