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

Package: Drug Accountability

Routine: PSAMON1


Information

PSAMON1 ;BIR/LTL,JMB-Monthly Summary - CONT'D;9/11/97

Source Information

Source file <PSAMON1.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ;Prints totals report
END
HEADER ;prints header info
WRAPDRG ;Wraps the drug name if it is longer than 34 characters

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"GRAND TOTAL",?36,$J(PSAGREC,6,0),?49,$J(PSAGDISP,6,0),?60,$J(PSAGADJ,6,0),?73,$J(PSAGTF,6,0),!,PSADLN,!
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),U),"."
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: ?20,"DRUG ACCOUNTABILITY/INVENTORY INTERFACE",?71,"PAGE: ",PSAPG
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !?19,"MONTHLY SUMMARY TOTALS REPORT FOR "_PSAMONN
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !!?36,"TOTAL",?48,"TOTAL",?60,"TOTAL",?72,"TOTAL"
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: !,"DRUG",?34,"RECEIVED",?46,"DISPENSED",?58,"ADJUSTED",?69,"TRANSFERRED",!,PSADLN
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: !,PSADRUG
  • Line Location: WRAPDRG+1
Function Call: WRITE
  • Prompt: !,PSAPC1
  • Line Location: WRAPDRG+4
Info |  Source |  Entry Points |  Interaction Calls