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

Package: Controlled Substances

Routine: PSDCOSN


Information

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

Source Information

Source file <PSDCOSN.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?8,"NAOU ==> ",$P($G(^PSD(58.8,+PSDN,0)),U)," (continued)",!!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: LN,!?28,"Total: ",$J($G(PSDN(3)),10),?62
  • Line Location: START+16
Function Call: WRITE
  • Prompt: X,!!
  • Line Location: START+17
Function Call: WRITE
  • Prompt: LN,!?14,"Total for all NAOUs: ",$J($G(PSDN(6)),10)
  • Line Location: START+19
Function Call: WRITE
  • Prompt: ?62,X,!!
  • Line Location: START+19
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: ?45,"Report Date: ",PSDT(1),!!?40,"Quantity",!,"Drug",?40,"Dispensed"
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: ?70,"Cost",!,LN,!!
  • Line Location: HEADER+6
Info |  Source |  Entry Points |  Interaction Calls