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

Package: Drug Accountability

Routine: PSALEVEL


Information

PSALEVEL ;BIR/JMB-Enter/Edit Stock and Reorder Levels ;7/23/97

Source Information

Source file <PSALEVEL.m>

Entry Points

Name Comments DBIA/ICR reference
SETUP
BEGIN
MAINTAIN ;Maintain reorder levels in pharmacy location/master vault?
GETDRUG ;Gets drug levels
CHOOSE ;Selects the type of location to have the levels enter/edited.
EXIT ;Kills variables
PHARMKEY ;
ONEMV ;Assigns invoice to Master Vault
MANYMV ;Displays active master vaults
NONE ;No DA pharmacy locations
ONE ;Only one location
MANY ;If more than one pharmacy location, display invoices.
CHO ;Extended help for "Enter/edit levels for pharmacy location or master vault."
MV ;Extended help for "Select Master Vault"
PL ;Extended help for "Select Pharmacy Location"

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You do not hold the key to enter the option."
  • Line Location: PSALEVEL+6
Function Call: WRITE
  • Prompt: !
  • Line Location: GETDRUG+1
Function Call: WRITE
  • Prompt: @IOF,!?16,"<< ENTER/EDIT STOCK AND REORDER LEVELS SCREEN >>",!,PSASLN
  • Line Location: CHOOSE+1
Function Call: WRITE
  • Prompt: @IOF,!?16,"<< ENTER/EDIT STOCK AND REORDER LEVELS SCREEN >>"
  • Line Location: ONEMV+2
Function Call: WRITE
  • Prompt: !?31,"<< MASTER VAULT >>",!!,$P(^PSD(58.8,PSAMV,0),"^"),!,PSASLN,!
  • Line Location: ONEMV+3
Function Call: WRITE
  • Prompt: @IOF,!?16,"<< ENTER/EDIT STOCK AND REORDER LEVELS SCREEN >>",!,PSASLN,!
  • Line Location: MANYMV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: MANYMV+6
Function Call: WRITE
  • Prompt: @IOF,!?16,"<< ENTER/EDIT STOCK AND REORDER LEVELS SCREEN >>"
  • Line Location: MANYMV+12
Function Call: WRITE
  • Prompt: !?31,"<< MASTER VAULT >>",!!,$P(^PSD(58.8,PSAMV,0),"^"),!,PSASLN,!
  • Line Location: MANYMV+13
Function Call: WRITE
  • Prompt: !!,"There are no Drug Accountability pharmacy locations.",!!,"Use the Set Up/Edit a Pharmacy Location option on Pharmacy Location menu"
  • Line Location: NONE+2
Function Call: WRITE
  • Prompt: !,"to setup one or more pharmacy locations."
  • Line Location: NONE+3
Function Call: WRITE
  • Prompt: @IOF,!?16,"<< ENTER/EDIT STOCK AND REORDER LEVELS SCREEN >>"
  • Line Location: ONE+2
Function Call: WRITE
  • Prompt: !?31,"PHARMACY LOCATION",!!
  • Line Location: ONE+3
Function Call: WRITE
  • Prompt: $P(PSALOCN,":")_" :"_$P($P(PSALOCN,":",2),"(IP)",1)_"(IP)",!?20,$P(PSALOCN,"(IP)",2)
  • Line Location: ONE+4
Function Call: WRITE
  • Prompt: PSALOCN
  • Condition for execution: $L(PSALOCN)<77
  • Line Location: ONE+5
Function Call: WRITE
  • Prompt: !,PSASLN,!
  • Line Location: ONE+5
Function Call: WRITE
  • Prompt: @IOF,!?16,"<< ENTER/EDIT STOCK AND REORDER LEVELS SCREEN >>",!,PSASLN,!
  • Line Location: MANY+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: MANY+6
Function Call: WRITE
  • Prompt: @IOF,!?16,"<< ENTER/EDIT STOCK AND REORDER LEVELS SCREEN >>"
  • Line Location: MANY+12
Function Call: WRITE
  • Prompt: !?28,"<< PHARMACY LOCATION >>",!!
  • Line Location: MANY+13
Function Call: WRITE
  • Prompt: $P(PSALOCN,"(IP)",1)_"(IP)",!?20,$P(PSALOCN,"(IP)",2)
  • Line Location: MANY+14
Function Call: WRITE
  • Prompt: PSALOCN
  • Condition for execution: $L(PSALOCN)<77
  • Line Location: MANY+15
Function Call: WRITE
  • Prompt: !,PSASLN,!
  • Line Location: MANY+15
Function Call: WRITE
  • Prompt: !?5,"Enter P to add or edit stock and reorder levels in a pharmacy location.",!?5,"Enter M to add or edit stock and reorder levels in a master vault."
  • Line Location: CHO+1
Function Call: WRITE
  • Prompt: !!?5,"After making your selection, you will be given a list of active pharmacy",!?5,"locations or master vaults from which to choose."
  • Line Location: CHO+2
Function Call: WRITE
  • Prompt: !?5,"Enter the numbers of master vaults from the list. Select the ones that",!?5,"contain drugs you want to add or edit stock and reorder levels."
  • Line Location: MV+1
Function Call: WRITE
  • Prompt: !?5,"Enter the numbers of pharmacy locations from the list. Select the ones that",!?5,"contain drugs you want to add or edit stock and reorder levels."
  • Line Location: PL+1

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