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: PSUOP6

Package: Pharmacy Benefits Management

Routine: PSUOP6


Information

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

Source Information

Source file <PSUOP6.m>

Entry Points

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

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