Routine: BCHRL01

Information

BCHRL01 ; IHS/CMI/LAB - TUCSON-OHPRD/LAB - SCREEN LOGIC ;

Package	Total	Call Graph
VA Fileman	3	YX^%DTC (,IX)^DIC ^DIR

Package	Total	Caller Graph
IHS RPMS CHR System	7	BCHDL BCHDLA BCHDLN BCHRL BCHRL0 BCHRLP1 BCHRLS

Name	Line Occurrences
Function Call: WRITE	Prompt: ?((80-$L(BCHLHDR))/2),BCHLHDR Line Location: INFORM+4
Function Call: WRITE	Prompt: !!!,"This report will produce a listing of ",$S(BCHPTVS="V":"records",1:"Patients")," in a date range selected by the",!,"user. " Line Location: INFORM+5
Function Call: WRITE	Prompt: "The ",$S(BCHPTVS="V":"records",1:"Patients")," printed can be selected based on any combination of items.",!,"The user will select these criteria. The items printed on the report",! Line Location: INFORM+6
Function Call: WRITE	Prompt: "are also selected by the user.",!!,"Be sure to have a printer available that has 132-column print capability.",!! Line Location: INFORM+7
Function Call: WRITE	Prompt: !! Line Location: ADD+2
Function Call: WRITE	Prompt: !!,"UNABLE TO CREATE REPORT FILE ENTRY - NOTIFY SITE MANAGER!" Line Location: ADD1+2
Function Call: WRITE	Prompt: ! Line Location: PAUSE+2
Routine Call	DIC Line Location: ADD1+2
Routine Call	DIR Line Location: ADD+4 PAUSE+2 Y+1
Routine Call	DIC Line Location: ADD+7

FileNo	Call Tags
^BCHTRPT - [#90002.42]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^BCHSORT - [#90002.41]	SPECIAL+2
^BCHTPRT(	SPECIAL+1!
^BCHTRPT - [#90002.42]	ADD+11, ADD+12, ADD1+6!, Y+4, Y+5, SPECIAL+1!, SPECIAL+4, SPECIAL+5
^VA(200 - [#200]	ADD1+2

Name	Line Occurrences
ADD1	ADD+3, ADD+6

Name	Field # of Occurrence
^(0	ADD+11
^(4	SPECIAL+2

Name	Field # of Occurrence
>> %H	ADD1+2*
BCHBD	INFORM+9!
BCHBDD	INFORM+9!
>> BCHBRK	PAUSE+2*
BCHCAND	ADD+1!, ADD+9*
>> BCHCNT	SPECIAL+5*
>> BCHCRIT	Y+4, Y+5, SPECIAL+1, SPECIAL+2, SPECIAL+4, SPECIAL+5
>> BCHCTYP	ADD+11*
BCHED	INFORM+9!
BCHEDD	INFORM+9!
>> BCHEP1	ADD+3, ADD+7
>> BCHLHDR	INFORM+3*, INFORM+4
>> BCHPCNT	INFORM+8*
>> BCHPTCT	INFORM+8*
>> BCHPTVS	INFORM+5, INFORM+6, INFORM+10, Y+1
>> BCHQUIT	ADD+5, ADD+8, ADD1+2*
BCHRDTR	INFORM+9!
>> BCHRPT	ADD+9, ADD+11, ADD+12, ADD1+3, ADD1+6, Y+4, Y+5, SPECIAL+1, SPECIAL+4, SPECIAL+5
>> BCHSEAT	ADD+3
>> BCHSORT	ADD+11*
>> BCHSORV	ADD+11*
>> BCHSPAG	ADD+11*
>> BCHTCW	INFORM+1, ADD+12
>> BCHTEXT	Y+1
BCHTYPE	INFORM+11!
>> BCHXREF	INFORM+10*
>> D	ADD+7*
DA	ADD+7!, ADD1+2!, ADD1+4!
DD	ADD1+4!
DIADD	ADD1+2*!, ADD1+4!
DIC	ADD+7!, ADD1+2!, ADD1+4!
DIC("A"	ADD+7*
DIC("S"	ADD+7*
DIC(0	ADD+7, ADD1+2
DINUM	ADD1+4!
DIR	ADD+4!, PAUSE+2!, Y+1!
DIR("A"	ADD+4, PAUSE+2, Y+1*
DIR("B"	ADD+4, Y+1
DIR(0	ADD+4, PAUSE+2, Y+1*
>> DIRUT	ADD+4, ADD+5, PAUSE+2, Y+1*, Y+2
DLAYGO	ADD1+2*!, ADD1+4!
DR	ADD+7!, ADD1+2!, ADD1+4!
>> DUOUT	ADD+4, PAUSE+2, Y+1
DUZ	ADD1+2
IO	PAUSE+1
IO(0	PAUSE+1
IOF	INFORM+2
IOST	PAUSE+1
U	ADD+11, ADD+12, ADD1+2, SPECIAL+5
X	ADD+12, ADD1+2, ADD1+4!
Y	ADD+6, ADD+8, ADD+9, ADD1+2, ADD1+3, ADD1+4!, Y+3, Y+5, SPECIAL+2*, SPECIAL+3 , SPECIAL+5