Routine: PSULR6

Information

PSULR6 ;BIR/PDW - PBM Laboratory Printer Controller ;25 AUG 1998

Source file <PSULR6.m>

Package	Total	Call Graph
VA Fileman	1	^DIR

Package	Total	Caller Graph
Pharmacy Benefits Management	1	PSULR0

Name	Comments	DBIA/ICR reference
DIVISION	;EP loop by divisions
EN	;EP for printing reports
REPORT2	; Print Report 2
PG	;EP Page controller
REPORT	;EP Perform Prints COUNTS & PATIENTS for Division
PGHDR	; Write Page Header (SUBJECT of MAILMESSAGE)

Name	Field # of Occurrence
^DIR	PG+4

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: REPORT+4
Function Call: WRITE	Prompt: !,X Line Location: REPORT+5
Function Call: WRITE	Prompt: !,?60,"PAGE: 1" Line Location: REPORT+5
Function Call: WRITE	Prompt: !!,@IOF Line Location: REPORT+6
Function Call: WRITE	Prompt: !,X Line Location: REPORT2+3
Function Call: WRITE	Prompt: !! Line Location: REPORT2+4
Function Call: WRITE	Prompt: @IOF Line Location: PG+5
Function Call: WRITE	Prompt: !,^XTMP(PSULRSUB,"REPORT2",PSUDIV,I) Line Location: PGHDR+1
Function Call: WRITE	Prompt: !,?60,"PAGE: ",PSUPG("PG") Line Location: PGHDR+2
Function Call: WRITE	Prompt: !,^(I) Line Location: PGHDR+3
Routine Call	DIR Line Location: PG+4

Name	Line Occurrences (* Changed, ! Killed)
^XTMP(	DIVISION+1, REPORT+5, REPORT2+3, PGHDR+1, PGHDR+3

Name	Field # of Occurrence
^(	REPORT+5, REPORT2+3, PGHDR+3

Name	Field # of Occurrence
DIR	PG+4!
DIR(0	PG+4*
>> DIROUT	PG+4
>> DROUT	PG+4
>> DTOUT	PG+4
>> DUOUT	PG+4
>> I	PGHDR+1, PGHDR+3
IO	REPORT+4, REPORT+5, REPORT+6, REPORT2+3, PG+5
IOF	REPORT+4, REPORT+6, PG+5
IOSL	REPORT2+3, PG+2
IOST	REPORT+9, PG+4
>> L	REPORT+5, REPORT2+3
>> PSUDIV	DIVISION+1*, REPORT+5, REPORT2+3, PGHDR+1, PGHDR+3
>> PSUJOB	EN+2
>> PSULRJOB	EN+2*, EN+3
>> PSULRSUB	EN+3*, DIVISION+1, REPORT+5, REPORT2+3, PGHDR+1, PGHDR+3
>> PSUPG	EN+1*
>> PSUPG("PG"	REPORT2+1, PG+3, PGHDR+2
>> PSUQUIT	REPORT2+3, PG+1, PG+4
>> X	REPORT+5, REPORT2+3