Routine: PSUAR5

Information

PSUAR5 ;BIR/PDW - PRINT CYCLE CONTROLLER ;25 AUG 1998

Source file <PSUAR5.m>

Package	Total	Call Graph
VA Fileman	1	^DIR

Package	Total	Caller Graph
Pharmacy Benefits Management	1	PSUAR0

Name	Comments	DBIA/ICR reference
EN	;EP for printing reports
CATRPT	; ; Printing Device should be opened by PSUDBQUE by now & IO set
PGHDR1	; Write Page Header (SUBJECT of MAILMESSAGE)
PRTAMIS	;Print AMIS summary report
DRUGRPT	; Print Drug Summary
PG	;EP Page controller
PGHDR	;PAGE HEADER

Name	Field # of Occurrence
^DIR	PG+4

Name	Line Occurrences
Function Call: WRITE	Prompt: !,X Line Location: CATRPT+5
Function Call: WRITE	Prompt: !,?60,"PAGE: 1" Line Location: CATRPT+5
Function Call: WRITE	Prompt: @IOF Line Location: CATRPT+7
Function Call: WRITE	Prompt: !,X Line Location: DRUGRPT+2
Function Call: WRITE	Prompt: @IOF Line Location: DRUGRPT+3
Function Call: WRITE	Prompt: @IOF Line Location: PGHDR+1
Function Call: WRITE	Prompt: !,^XTMP(PSUARSUB,"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
Function Call: WRITE	Prompt: @IOF Line Location: PGHDR1+1
Function Call: WRITE	Prompt: !,^XTMP("PSU_"_PSUJOB,"ARAMIS",I) Line Location: PGHDR1+2
Function Call: WRITE	Prompt: !,?68,"Page: ",PSUPG("PG") Line Location: PGHDR1+3
Routine Call	DIR Line Location: PG+4

Name	Line Occurrences (* Changed, ! Killed)
^XTMP(	CATRPT+4, CATRPT+5, DRUGRPT+1, DRUGRPT+2, PGHDR+2, PGHDR+4
^XTMP("PSU_"	CATRPT+10, PRTAMIS+5, PRTAMIS+7, PGHDR1+2

Name	Field # of Occurrence
^(	CATRPT+5, DRUGRPT+2, 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, PGHDR1+2*
IO	CATRPT+5, DRUGRPT+2, DRUGRPT+3, PGHDR+1, PGHDR1+1
IOF	DRUGRPT+3, PGHDR+1, PGHDR1+1
IOSL	PRTAMIS+6, DRUGRPT+2, PG+2
IOST	PG+4
>> L	CATRPT+5, DRUGRPT+2
>> LNCNT	PRTAMIS+6, PRTAMIS+8, PGHDR1+5
>> PSUARSUB	CATRPT+3*, CATRPT+4, CATRPT+5, DRUGRPT+1, DRUGRPT+2, PGHDR+2, PGHDR+4
>> PSUDIV	CATRPT+4, CATRPT+5, DRUGRPT+1, DRUGRPT+2, PGHDR+2, PGHDR+4
>> PSUJOB	CATRPT+3, CATRPT+10, PRTAMIS+5, PRTAMIS+7, PGHDR1+2
>> PSUL	PRTAMIS+4, PRTAMIS+5, PRTAMIS+7
>> PSUPG	EN+2*
>> PSUPG("PG"	DRUGRPT+2, PG+3, PGHDR+3, PGHDR1+3, PGHDR1+4*
>> PSUPGS("PG"	PRTAMIS+2*
PSUQUIT	EN+1~, DRUGRPT+2, PG+1, PG+4
>> X	CATRPT+5, DRUGRPT+2