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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSOCST10

Package: Outpatient Pharmacy

Routine: PSOCST10


Information

PSOCST10 ;BHAM ISC/SAB - high cost report ; 12/16/14 8:53am

Source Information

Source file <PSOCST10.m>

Entry Points

Name Comments DBIA/ICR reference
BEG
MAX
DEV
START
EXIT
ST1
ST2
ST3
CHK
HD
FT
DTC

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: !,"Please try later!"
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: !,$S(PSFILL&(PSOTY="AL"):"*",PSOTY="AM":"%",1:" ")_$P(RX0,"^"),?11,$E($P(DR0,"^"),"^",40),?51,$J(QTY,6),?60,$J(DRCST,6,3),?68,$J(COST,12,2)
  • Line Location: CHK+11
Function Call: WRITE
  • Prompt: @IOF,!,"Fills That Cost at Least $"_MAX_" for the Period: "
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: " to "
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: " to "
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !,"Outpatient Site"
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: "s"
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: " Included in this Report: "
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !?2
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !?2
  • Line Location: HD+11
Function Call: WRITE
  • Prompt: PSOSTANM
  • Line Location: HD+12
Function Call: WRITE
  • Prompt: !!,"Rx #",?11,"Drug",?54,"QTY",?59,"Un.Cost",?70,"Total Cost"
  • Line Location: HD+14
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+15
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HD+15
Function Call: WRITE
  • Prompt: !
  • Line Location: FT+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: FT+0
Function Call: WRITE
  • Prompt: !,"No. of Fills = "_CNT,?50,$J(TCOST,30)
  • Line Location: FT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: FT+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: FT+3
Function Call: WRITE
  • Prompt: !,"(* indicates a refill, % indicates a partial) "
  • Line Location: FT+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(59 - [#59] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call