Routine: BCHRAP2P

Information

BCHRAP2P ; IHS/CMI/LAB - print all visit report ;

Package	Total	Call Graph
IHS RPMS CHR System	3	($$CTR,$$LOC)^BCHRLU COVPAGE^BCHRPTCP DONE^BCHUTIL1
VA Fileman	3	DD^%DT NOW^%DTC ^DIR

Name	Line Occurrences
Function Call: WRITE	Prompt: !?47,"--------",?56,"--------",?68,"--------",! Line Location: PRINT+9
Function Call: WRITE	Prompt: ?32,"Totals:",?45,$J(BCHTOT,8),?54,$J(BCHPTOT,8) Line Location: PRINT+10
Function Call: WRITE	Prompt: ?66,$J(X,8) Line Location: PRINT+10
Function Call: WRITE	Prompt: !,$E(BCHPRNT,1,25) Line Location: P+4
Function Call: WRITE	Prompt: ?28,$E(BCHSRT2,1,15),?45,$J(^XTMP("BCHRAP2",BCHJOB,BCHBTH,"TOTAL",BCHSORT,BCHSRT2),8) Line Location: P+4
Function Call: WRITE	Prompt: ?54,$S($D(^XTMP("BCHRAP2",BCHJOB,BCHBTH,"PATIENT",BCHSORT,BCHSRT2)):$J(^XTMP("BCHRAP2",BCHJOB,BCHBTH,"PATIENT",BCHSORT,BCHSRT2),8),1:$J(0,8)) Line Location: P+5
Function Call: WRITE	Prompt: ?66,$J(X,8) Line Location: P+6
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: ! Line Location: HEAD1+2
Function Call: WRITE	Prompt: ?58,BCHDT,?72,"Page ",BCHPG,! Line Location: HEAD1+3
Function Call: WRITE	Prompt: $$CTR^BCHRLU($$LOC^BCHRLU),! Line Location: HEAD1+4
Function Call: WRITE	Prompt: ?17,"RECORD DATES: ",BCHBDD," TO ",BCHEDD,! Line Location: HEAD1+5
Function Call: WRITE	Prompt: ?((80-BCHLENG)/2),"NUMBER OF ACTIVITY RECORDS BY ",BCHTITL,! Line Location: HEAD1+7
Function Call: WRITE	Prompt: !,BCHHD1,?28,$E(BCHHD2,1,13),?47,"# PCC",?56,"# SERVED",?65,"ACTIVITY TIME",!,?47,"FORMS",?67,"(hrs)",! Line Location: HEAD1+8
Function Call: WRITE	Prompt: !,$TR($J(" ",80)," ","-") Line Location: HEAD1+9
Routine Call	DIR Line Location: HEAD+1

Name	Line Occurrences (* Changed, ! Killed)
^XTMP("BCHRAP2"	DONE+2!, SORT+2, P+2, P+4, P+5, P+6, P+7, P+8, P+9

Name	Field # of Occurrence
^(	P+6, P+8, P+9

Name	Field # of Occurrence
>> BCHBD	PRINT+2
>> BCHBDD	PRINT+2*, HEAD1+5
BCHBT	DONE+3!
>> BCHBTH	DONE+2, SORT+2, P+2, P+4, P+5, P+6, P+7, P+8, P+9
>> BCHDT	PRINT+1*, HEAD1+3
>> BCHED	PRINT+2
>> BCHEDD	PRINT+2*, HEAD1+5
BCHET	DONE+3!
>> BCHHD1	HEAD1+8
>> BCHHD2	HEAD1+8
>> BCHJOB	DONE+2, SORT+2, P+2, P+4, P+5, P+6, P+7, P+8, P+9
>> BCHLENG	HEAD1+6*, HEAD1+7
>> BCHPG	PRINT+4, HEAD, HEAD1+1, HEAD1+3
>> BCHPRNT	P+3*, P+4
>> BCHPTOT	PRINT+4, PRINT+10, P+8
BCHQUIT	PRINT+5!, PRINT+7, PRINT+8, SORT+1, SORT+2, P+1, HEAD+1*
>> BCHRPROC	P+3
>> BCHSORT	SORT+2*, P+2, P+3, P+4, P+5, P+6, P+7, P+8, P+9
>> BCHSRT2	P+2*, P+4, P+5, P+6, P+7, P+8, P+9
>> BCHTITL	HEAD1+6, HEAD1+7
>> BCHTOT	PRINT+4, PRINT+10, P+7
>> BCHTTOT	PRINT+4, PRINT+10, P+9
DIR	HEAD+1!
DIR(0	HEAD+1*
>> DTOUT	HEAD+1
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	PRINT+8, SORT+1, P+1
IOST	HEAD+1
>> X	PRINT+1, PRINT+10, P+6
>> Y	PRINT+1, PRINT+2, P+3*, HEAD+1