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

Package: Controlled Substances

Routine: PSDCOSH


Information

PSDCOSH ;BIR/LTL-Cost Report by High Cost, PSDCOST (cont'd) ; 2 Aug 94

Source Information

Source file <PSDCOSH.m>

Entry Points

Name Comments DBIA/ICR reference
PRTQUE ;queues print after data is compiled
START
END
QUIT
HEADER ;prints header info

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: X,!!
  • Line Location: START+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),U),"."
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !?2,PSDCHO(1)," From "
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: $P(PSDATE,U)," To ",$P(PSDATE,U,2),?72,"Page ",PG,!!
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: "For "
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: "ALL NAOU(s)"
  • Condition for execution: $G(ALL)
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: "The Following NAOU(s): "
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: $P($G(^PSD(58.8,+PSD(2),0)),U),!?28
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: ?45,"Report Date: ",PSDT(1),!!?40,"Quantity",!,"Drug",?40,"Dispensed"
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: ?70,"Cost",!,LN,!!
  • Line Location: HEADER+10
Info |  Source |  Entry Points |  Interaction Calls