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

Package: Drug Accountability

Routine: PSAMON


Information

PSAMON ;BIR/LTL,JMB-Monthly Summary ;7/23/97

Source Information

Source file <PSAMON.m>

Entry Points

Name Comments DBIA/ICR reference
LOC
DRUG
DEV ;asks device and queueing info
START ;compiles and prints output
LOOP
PRINT ;Prints in drug order.
END ;End of page
END1 ;Kills variables at end of report
HEADER ;prints header info
SUMHELP ;Extended help to 'Print summary report?'

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"There are no active pharmacy locations."
  • Line Location: LOC+3
Function Call: WRITE
  • Prompt: !!,"There are no drugs in ",$G(PSALOCN)
  • Line Location: LOC+14
Function Call: WRITE
  • Prompt: !
  • Line Location: LOC+17
Function Call: WRITE
  • Prompt: !!,"Select one, several, or ^ALL drugs.",!
  • Line Location: DRUG+0
Function Call: WRITE
  • Prompt: !!,"Sorry, no history for that month."
  • Line Location: DRUG+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!"
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !,"TOTAL",?36,$J(PSATREC,6,0),?49,$J(PSATDISP,6,0),?60,$J(PSATADJ,6,0),?73,$J(PSATTF,6,0),!,PSADLN,!
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: !!,"<< NO DATA WAS FOUND. >>"
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: $J($S($G(PSABAL):PSABAL,1:0),6,0)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: ?36,$J(PSAREC,6,0)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: ?49,$J(PSADISP,6,0)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: ?60,$J(PSADJ,6,0)
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: ?73,$J(PSATF,6,0),!
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: END+2
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: !?22,"MONTHLY SUMMARY REPORT FOR "_PSAMONN
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !!,?14,"BEGINNING",?26,"ENDING",?36,"TOTAL",?48,"TOTAL",?60,"TOTAL",?72,"TOTAL"
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: !,"DRUG",?16,"BALANCE",?25,"BALANCE",?34,"RECEIVED",?46,"DISPENSED",?58,"ADJUSTED",?69,"TRANSFERRED"
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: !,PSADLN
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: !!?5,"Enter YES to print a report with the totals for each selected drug",!?5,"in all the pharmacy locations that were selected. A total line will"
  • Line Location: SUMHELP+1
Function Call: WRITE
  • Prompt: !?5,"print for the total dispense units received, dispensed, adjusted,",!?5,"and transferrred during the selected month."
  • Line Location: SUMHELP+2
Function Call: WRITE
  • Prompt: !!?5,"Enter NO to print each pharmacy location's report without the",!?5,"summary report."
  • Line Location: SUMHELP+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSD(58.8 - [#58.8] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call