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

Package: Drug Accountability

Routine: PSALEVRP


Information

PSALEVRP ;BIR/LTL,JMB-Stock and Reorder Report ;7/23/97

Source Information

Source file <PSALEVRP.m>

Entry Points

Name Comments DBIA/ICR reference
LOC
DISPLOC ;Displays the available pharmacy locations.
SELLOC
MASTER
DISPMV ;Displays active master vaults
SELMV ;Select displayed master vaults
TEST
DEV ;Asks device & queueing info
COMPILE ;Compiles data
MV
PRINT ;Prints report
EXIT
EXIT1
HDR ;Report header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"No Drug Accountability location has been created yet."
  • Line Location: LOC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LOC+4
Function Call: WRITE
  • Prompt: @IOF,!,"Choose one or many pharmacy locations:",!
  • Line Location: DISPLOC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SELLOC+0
Function Call: WRITE
  • Prompt: !,"There are no active pharmacy locations."
  • Line Location: SELLOC+9
Function Call: WRITE
  • Prompt: @IOF,!,"Choose one or many master vaults:",!
  • Line Location: DISPMV+1
Function Call: WRITE
  • Prompt: !,$J(PSA,2)_".",?4,PSAMVA
  • Line Location: DISPMV+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SELMV+1
Function Call: WRITE
  • Prompt: !!,"Each pharmacy location can contain all drugs in the DRUG file. Therefore,",!,"this report could be very long. It is advised to queue the report to run",!,"during non-critical hours.",!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!"
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?20,"DRUG ACCOUNTABILITY/INVENTORY INTERFACE",?72,"PAGE "_PSAPG
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?25,"STOCK AND REORDER LEVEL REPORT",!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "RUN: "_PSARUN
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?31,"PHARMACY LOCATION"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!,$P(PSALOCN,"(IP)",1)_"(IP)",!!?17,$P(PSALOCN,"(IP)",2)
  • Condition for execution: $L(PSALOCN)>79
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!,PSALOCN
  • Condition for execution: $L(PSALOCN)<80
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"MASTER VAULT: "_$P($G(^PSD(58.8,PSAMV,0)),"^")
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !!,"DRUG",?43,"STOCK LEVEL",?63,"REORDER LEVEL",!,PSASLN
  • Line Location: HDR+9
Info |  Source |  Entry Points |  Interaction Calls