Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PSUUD5

Package: Pharmacy Benefits Management

Routine: PSUUD5


Information

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

Source Information

Source file <PSUUD5.m>

Entry Points

Name Comments DBIA/ICR reference
EP ;Print Unit Dose Statistical Report by Drug and Summary Report
PRTSUMS ;
; Find first Division/Facility in the summary by division
; then DO the PRTALL routine
PRTSUMX ; EXIT PSUUD5
PRTALL ; Print the Drug summary of all drugs by Division/Facility
PRTAMIS ;Print UD AMIS summary
PRTDRUG ; Print the Drug summary by Drug by Division/Facility
; Set page number to 0
PGHDR ;Increment page number and Write Page Heading
; Writes header lines 1 & 2, then page number, then lines 3 through 7
PGHDR1 ;Page headers for AMIS summary report

Interaction Calls

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
Info |  Source |  Entry Points |  Interaction Calls