Routine: PSUOP6

Information

PSUOP6 ;BIR/REG - PSU PBM Outpatient Pharmacy Printer Output ;10 JUL 1999

Source Information

Source file <PSUOP6.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Pharmacy Benefits Management	3	PULL^PSUCP IVSUM^PSUDEM0 $$VAL^PSUTL
VA Fileman	2	(,IX)^DIC DT^DILF

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Pharmacy Benefits Management	3	PSUOP0 PSUOP3 PSUOP4

Entry Points

Name	Comments	DBIA/ICR reference
PGHDR1	;AMIS HEADER
PRTAMIS	;Print Amis summary report
PRTDRUG	; Print the Drug summary by Drug by Division/Facility ; Set page number to 0
PRTSUMS	; ; Find first Division/Facility in the summary by division ; then DO the PRTALL routine
PRTALL	; Print the Drug summary of all drugs by Division/Facility
DIVNM	;S PSUDIVNM FROM FILE 40.8 IF NOT IN FILE 59
PRTSUMX	; EXIT PSUOP6
EP	;
PGHDR	;Increment page number and Write Page Heading ; Writes header lines 1 & 2, then page number, then lines 3 through 6

Name	Field # of Occurrence
^DIC	PRTALL+1, PRTDRUG+3
IX^DIC	DIVNM+1
DT^DILF	EP+2, EP+4
PULL^PSUCP	PRTSUMS+17
IVSUM^PSUDEM0	PRTSUMS+24, PRTSUMS+28
$$VAL^PSUTL	PRTALL+2, PRTDRUG+4, DIVNM+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: PRTSUMX+1
Function Call: WRITE	Prompt: @IOF Line Location: PRTALL+6
Function Call: WRITE	Prompt: ! Line Location: PRTALL+8
Function Call: WRITE	Prompt: " for ",PSUDIVNM,!,?72,"Page: 1" Line Location: PRTALL+12
Function Call: WRITE	Prompt: @IOF Line Location: PRTAMIS+2
Function Call: WRITE	Prompt: @IOF Line Location: PGHDR1+1
Function Call: WRITE	Prompt: ! Line Location: PGHDR1+2
Function Call: WRITE	Prompt: ^XTMP("PSU_"_PSUJOB,"OPAMIS",I) Line Location: PGHDR1+3
Function Call: WRITE	Prompt: !!,?68,"Page: ",PSUPGS("PG") Line Location: PGHDR1+4
Function Call: WRITE	Prompt: @IOF Line Location: PGHDR+2
Function Call: WRITE	Prompt: ! Line Location: PGHDR+3
Function Call: WRITE	Prompt: !,^XTMP(PSUOPSUB,"DRUGSUM",PSUFACN,1) Line Location: PGHDR+4
Function Call: WRITE	Prompt: " for ",PSUDIVNM Line Location: PGHDR+5
Function Call: WRITE	Prompt: !,$P(^XTMP(PSUOPSUB,"DRUGSUM",PSUFACN,2),":",1),": ",PSUPGS("PG"),! Line Location: PGHDR+7
Function Call: WRITE	Prompt: !,$G(^XTMP(PSUOPSUB,"DRUGSUM",PSUFACN,PSUH)) Line Location: PGHDR+8
Routine Call	DIC Line Location: PRTALL+1 PRTDRUG+3
Routine Call	DIC Line Location: DIVNM+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^XTMP(	PRTSUMS+4, PRTSUMS+6, PRTSUMS+7, PRTSUMS+8, PRTSUMS+13, PRTSUMS+34, PRTSUMS+35, PRTSUMS+36, PRTSUMS+37, PRTSUMS+38 , PRTALL+10, PRTALL+11, PRTDRUG+9, PRTDRUG+11, PGHDR+4, PGHDR+7, PGHDR+8
^XTMP("PSU_"	PRTSUMS+5*, PRTSUMS+15, PRTAMIS+6, PRTAMIS+8, PGHDR1+3

Name	Line Occurrences
DIVNM	PRTALL+4, PRTDRUG+6
PGHDR	PRTDRUG+7, PRTDRUG+10
PGHDR1	PRTAMIS+4, PRTAMIS+7
PRTALL	PRTSUMS+13
PRTAMIS	PRTSUMS+15
PRTDRUG	PRTSUMS+38

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> D	DIVNM+1*
>> DIC	PRTALL+1, PRTDRUG+3, DIVNM+1*
>> DIC(0	PRTALL+1, PRTDRUG+3, DIVNM+1*
>> EXTD	EP+2, EP+4
>> EXTD(0	EP+3, EP+5
>> I	PRTSUMS+18, PRTALL+8, PGHDR1+2, PGHDR1+3, PGHDR+3*
IO	EP+6, PRTAMIS+2, PGHDR1+1, PGHDR+2
IOF	PRTSUMX+1, PRTALL+6, PRTAMIS+2, PGHDR1+1, PGHDR+2
IOSL	PRTDRUG+10, PRTAMIS+7
>> LNCNT	PRTAMIS+7, PRTAMIS+9, PGHDR1+6
>> PSUDIVNM	PRTALL+2, PRTALL+4, PRTALL+12, PRTDRUG+4, PRTDRUG+6, PGHDR+5, DIVNM+2*
>> PSUEDT	EP+4
>> PSUFACN	PRTSUMS+10, PRTSUMS+13, PRTSUMS+33, PRTSUMS+38, PRTALL+1, PRTALL+4, PRTALL+10, PRTALL+11, PRTDRUG+3, PRTDRUG+6 , PRTDRUG+9, PRTDRUG+11, PGHDR+4, PGHDR+7, PGHDR+8
PSUFIRST	PRTSUMS+12~, PRTALL+6, PRTALL+7*
PSUH	EP+1~, PGHDR+8*
PSUI	EP+1~
>> PSUJOB	PRTSUMS+3, PRTSUMS+5, PRTSUMS+15, PRTAMIS+6, PRTAMIS+8, PGHDR1+3
PSUL	EP+1~, PRTALL+9, PRTALL+10, PRTALL+11, PRTALL+12, PRTDRUG+8, PRTDRUG+9, PRTDRUG+11, PRTAMIS+5, PRTAMIS+6 , PRTAMIS+8
PSUM	EP+1~
>> PSUMOD(	PRTSUMS+18*
>> PSUMOD(1	PRTSUMS+24, PRTSUMS+28
>> PSUMOD(2	PRTSUMS+24, PRTSUMS+28
>> PSUOPSUB	PRTSUMS+3*, PRTSUMS+4, PRTSUMS+6, PRTSUMS+7, PRTSUMS+8, PRTSUMS+13, PRTSUMS+34, PRTSUMS+35, PRTSUMS+36, PRTSUMS+37 , PRTSUMS+38, PRTALL+10, PRTALL+11, PRTDRUG+9, PRTDRUG+11, PGHDR+4, PGHDR+7, PGHDR+8
>> PSUOPTS	PRTSUMS+18
PSUPGS	EP+1~
PSUPGS("PG"	PRTDRUG+2, PRTAMIS+3, PGHDR1+4, PGHDR1+5, PGHDR+6, PGHDR+7
>> PSURP("END"	EP+5*, PRTSUMS+6, PRTSUMS+35
>> PSURP("START"	EP+3*, PRTSUMS+6, PRTSUMS+35
>> PSUSDT	EP+2
>> PSUSMRY	PRTSUMS+32
>> PSUSNDR	PRTSUMS+6, PRTSUMS+7, PRTSUMS+8, PRTSUMS+35, PRTSUMS+36, PRTSUMS+37
>> X	PRTALL+1, PRTALL+2, PRTALL+4, PRTDRUG+3, PRTDRUG+4, PRTDRUG+6, DIVNM+2*
>> Y	PRTALL+2, PRTDRUG+4, DIVNM+2

Customize PDF page

Package: Pharmacy Benefits Management

Routine: PSUOP6

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: