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

Package: Controlled Substances

Routine: PSDCOST


Information

PSDCOST ;BIR/BJW,LTL-Cost Report for NAOUs ; 6 Feb 98

Source Information

Source file <PSDCOST.m>

Entry Points

Name Comments DBIA/ICR reference
CHOICE
DATE ;ask date range
SUM ;if summary only
ASKN ;ask NAOU(s)
DRUG ;ask drug(s)
DEV ;asks device and queueing information
END ;
SAVE ;save variables for queueing

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to print",!,?12,"the narcotic NAOU Cost Report.",!!,"PSJ RPHARM security key required.",!
  • Line Location: PSDCOST+4
Function Call: WRITE
  • Prompt: !!,"Before printing a Cost Report, be sure accurate data exists in the",!!,"PRICE PER ORDER UNIT & DISPENSE UNITS PER ORDER UNIT fields in the DRUG file."
  • Line Location: PSDCOST+5
Function Call: WRITE
  • Prompt: !!,"Select Date Range for ",PSDCHO(1),!
  • Line Location: CHOICE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !!,"The ending date of the range must be later than the starting date."
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SUM+1
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single NAOU, several NAOUs,",!,?5,"or enter ^ALL to select all NAOUs.",!!
  • Line Location: ASKN+1
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single drug, several drugs,",!,?5,"or enter ^ALL to select all drugs.",!!
  • Line Location: DRUG+1
Function Call: WRITE
  • Prompt: !!,"This report is designed for a 80 column format.",!,"You may queue this report to print at a later time.",!!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+4
Function Call: WRITE
  • Prompt: !,"Compiling ",PSDCHO(1)," data."
  • Line Location: DEV+6
Info |  Source |  Entry Points |  Interaction Calls