Routine: PSUUD5

Information

PSUUD5 ;BIR/REG - UNIT DOSE PRINTER MODULE ;10 JUL 1999

Source file <PSUUD5.m>

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

Package	Total	Caller Graph
Pharmacy Benefits Management	1	PSUUD0

Name	Comments	DBIA/ICR reference
PGHDR1	;Page headers for AMIS summary report
PRTAMIS	;Print UD AMIS summary
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
PRTSUMX	; EXIT PSUUD5
EP	;Print Unit Dose Statistical Report by Drug and Summary Report
PGHDR	;Increment page number and Write Page Heading ; Writes header lines 1 & 2, then page number, then lines 3 through 7

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: PRTALL+3
Function Call: WRITE	Prompt: ! Line Location: PRTALL+4
Function Call: WRITE	Prompt: !,X Line Location: PRTALL+7
Function Call: WRITE	Prompt: " for ",PSUDIVNM,!,?72,"PAGE: 1" Line Location: PRTALL+8
Function Call: WRITE	Prompt: @IOF Line Location: PGHDR+2
Function Call: WRITE	Prompt: ! Line Location: PGHDR+3
Function Call: WRITE	Prompt: !,^XTMP(PSUUDSUB,"DRUGSUM",PSUFACN,1) Line Location: PGHDR+4
Function Call: WRITE	Prompt: " for ",PSUDIVNM Line Location: PGHDR+5
Function Call: WRITE	Prompt: !,^XTMP(PSUUDSUB,"DRUGSUM",PSUFACN,2),?72,"PAGE: ",PSUPGS("PG") Line Location: PGHDR+7
Function Call: WRITE	Prompt: !,$G(^XTMP(PSUUDSUB,"DRUGSUM",PSUFACN,PSUH)) Line Location: PGHDR+8
Function Call: WRITE	Prompt: @IOF Line Location: PGHDR1+3
Function Call: WRITE	Prompt: !,^XTMP("PSU_"_PSUJOB,"UDAMIS",1) Line Location: PGHDR1+4
Function Call: WRITE	Prompt: !!,?68,"Page: ",PSUPGS("PG") Line Location: PGHDR1+5
Function Call: WRITE	Prompt: !,$G(^XTMP("PSU_"_PSUJOB,"UDAMIS",2)) Line Location: PGHDR1+7
Routine Call	DIC Line Location: PRTALL+1 PRTDRUG+3

Name	Line Occurrences (* Changed, ! Killed)
^XTMP(	PRTSUMS+11, PRTSUMS+13, PRTSUMS+14, PRTSUMS+15*, PRTSUMS+16, PRTALL+6, PRTALL+7, PRTDRUG+7, PRTDRUG+9, PGHDR+4 , PGHDR+7, PGHDR+8
^XTMP("PSU_"	PRTSUMS+5, PRTSUMS+12*, PRTAMIS+5, PRTAMIS+7, PGHDR1+4, PGHDR1+7

Name	Field # of Occurrence
>> D	PRTALL+1, PRTDRUG+3
>> DIC	PRTALL+1, PRTDRUG+3
>> DIC(0	PRTALL+1, PRTDRUG+3
>> EXTD	EP+8, EP+10
>> EXTD(0	EP+9, EP+11
>> I	PRTSUMS+20, PRTALL+4, PGHDR+3*
IO	EP+12, PGHDR+2, PGHDR1+2
IOF	PRTALL+3, PGHDR+2, PGHDR1+3
IOSL	PRTAMIS+6, PRTDRUG+8
>> LNCNT	PRTAMIS+6, PRTAMIS+8, PGHDR1+8
>> PSUDIVNM	PRTALL+2, PRTALL+8, PRTDRUG+4, PGHDR+5
>> PSUEDT	EP+10
>> PSUFACN	PRTSUMS+10, PRTSUMS+16, PRTALL+1, PRTALL+6, PRTALL+7, PRTDRUG+3, PRTDRUG+7, PRTDRUG+9, PGHDR+4, PGHDR+7 , PGHDR+8
PSUH	EP+6~, PGHDR+8*
PSUI	EP+6~
>> PSUJOB	PRTSUMS+3, PRTSUMS+5, PRTSUMS+12, PRTAMIS+5, PRTAMIS+7, PGHDR1+4, PGHDR1+7
PSUL	EP+6~, PRTALL+5, PRTALL+6, PRTALL+7, PRTALL+8, PRTAMIS+4, PRTAMIS+5, PRTAMIS+7, PRTDRUG+6, PRTDRUG+7 , PRTDRUG+9
PSUM	EP+6~
>> PSUMOD(	PRTSUMS+20*
>> PSUMOD(1	PRTSUMS+23, PRTSUMS+29
>> PSUMOD(2	PRTSUMS+23, PRTSUMS+29
>> PSUMOD(4	PRTSUMS+24, PRTSUMS+30
>> PSUOPTS	PRTSUMS+20
PSUPGS	EP+6~
PSUPGS("PG"	PRTAMIS+2, PRTDRUG+2, PGHDR+6, PGHDR+7, PGHDR1+5, PGHDR1+6
>> PSURP("END"	EP+11*, PRTSUMS+13
>> PSURP("START"	EP+9*, PRTSUMS+13
>> PSUSDT	EP+8
>> PSUSMRY	PRTSUMS+9
>> PSUSNDR	PRTSUMS+13, PRTSUMS+14, PRTSUMS+15
PSUUDFLG	EP+6~, EP+7*
>> PSUUDSUB	PRTSUMS+3*, PRTSUMS+11, PRTSUMS+13, PRTSUMS+14, PRTSUMS+15, PRTSUMS+16, PRTALL+6, PRTALL+7, PRTDRUG+7, PRTDRUG+9 , PGHDR+4, PGHDR+7, PGHDR+8
>> X	PRTALL+1, PRTALL+2, PRTALL+7, PRTDRUG+3, PRTDRUG+4*
>> Y	PRTALL+2, PRTDRUG+4