Routine: PSUPR6

Information

PSUPR6 ;BIR/PDW - PBM Procurement Printer Controller ;25 AUG 1998

Source file <PSUPR6.m>

Package	Total	Call Graph
VA Fileman	1	^DIR

Package	Total	Caller Graph
Pharmacy Benefits Management	1	PSUPR0

Name	Comments	DBIA/ICR reference
DIVISION	;EP loop by divisions
EN	;EP for printing reports
CATRPT	; ; Printing Device should be opened by PSUDBQUE by now & IO set
DRUGRPT	; Print Drug Summary
PG	;EP Page controller
REPORT	;EP Perform Prints Category & Drug 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: CATRPT+2
Function Call: WRITE	Prompt: !,X Line Location: CATRPT+3
Function Call: WRITE	Prompt: !,?60,"PAGE: 1" Line Location: CATRPT+3
Function Call: WRITE	Prompt: !!,@IOF Line Location: CATRPT+4
Function Call: WRITE	Prompt: !,X Line Location: DRUGRPT+3
Function Call: WRITE	Prompt: @IOF Line Location: DRUGRPT+4
Function Call: WRITE	Prompt: @IOF Line Location: PG+5
Function Call: WRITE	Prompt: !,^XTMP(PSUPRSUB,"REPORT2",PSUDIV,I) Line Location: PGHDR+2
Function Call: WRITE	Prompt: !,?60,"PAGE: ",PSUPG("PG") Line Location: PGHDR+3
Function Call: WRITE	Prompt: !,^(I) Line Location: PGHDR+4
Routine Call	DIR Line Location: PG+4

Name	Line Occurrences (* Changed, ! Killed)
^XTMP(	DIVISION+1, CATRPT+3, DRUGRPT+1, DRUGRPT+3, PGHDR+1, PGHDR+2, PGHDR+4

Name	Field # of Occurrence
^(	CATRPT+3, DRUGRPT+3, PGHDR+4

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+2, PGHDR+4
IO	CATRPT+2, CATRPT+3, CATRPT+4, DRUGRPT+3, PG+5
IOF	CATRPT+2, CATRPT+4, DRUGRPT+4, PG+5
IOSL	DRUGRPT+3, PG+2
IOST	PG+4
>> L	CATRPT+3, DRUGRPT+3
>> PSUDIV	DIVISION+1*, CATRPT+3, DRUGRPT+1, DRUGRPT+3, PGHDR+1, PGHDR+2, PGHDR+4
>> PSUJOB	EN+3
>> PSUPG	EN+2*
>> PSUPG("PG"	DRUGRPT+2, PG+3, PGHDR+3
>> PSUPRJOB	EN+3*, EN+4
>> PSUPRSUB	EN+4*, DIVISION+1, CATRPT+3, DRUGRPT+1, DRUGRPT+3, PGHDR+1, PGHDR+2, PGHDR+4
PSUQUIT	EN+1~, DRUGRPT+3, PG+1, PG+4
>> X	CATRPT+3, DRUGRPT+3