Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 ^DIC  ^DIE  ^DIR  
Drug Accountability 1 SITES^PSAUTL1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Drug Accountability 1 PSA STOCK AND REORDER LEVELS  

Entry Points

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

External References

Name Field # of Occurrence
^DIC GETDRUG+2
^DIE MAINTAIN+2, GETDRUG+5
^DIR CHOOSE+3, MANYMV+7, MANY+7
SITES^PSAUTL1 SETUP+7

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
Routine Call
  • DIE
  • Line Location:
    • MAINTAIN+2
    • GETDRUG+5
Routine Call
  • DIC
  • Line Location:
    • GETDRUG+2
Routine Call
  • DIR
  • Line Location:
    • CHOOSE+3
    • MANYMV+7
    • MANY+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSD(58.8 - [#58.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] SETUP+3, SETUP+4, SETUP+5, SETUP+6, SETUP+7, SETUP+10, SETUP+11, SETUP+12, SETUP+13, ONEMV+3
, MANYMV+13
^XUSEC("PSA ORDERS" PSALEVEL+6
^XUSEC("PSJ RPHARM" BEGIN+1, BEGIN+2

Label References

Name Line Occurrences
BEGIN BEGIN+3, MAINTAIN+4, GETDRUG+3
CHOOSE PHARMKEY+2
EXIT BEGIN+3, MAINTAIN+3, MAINTAIN+4, GETDRUG+2, GETDRUG+3, GETDRUG+6, NONE+4
GETDRUG GETDRUG+7
MANY BEGIN+2, CHOOSE+5, PHARMKEY+1
MANYMV CHOOSE+6, PHARMKEY+3
NONE BEGIN+1, BEGIN+2
ONE BEGIN+2, CHOOSE+5, PHARMKEY+1
ONEMV CHOOSE+6, PHARMKEY+3
PHARMKEY BEGIN+1

Naked Globals

Name Field # of Occurrence
^(0 SETUP+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA MAINTAIN+2*!, GETDRUG+2!, GETDRUG+5*, EXIT+1!
DA(1 GETDRUG+1*, GETDRUG+5*
DIC GETDRUG+1*, GETDRUG+2!, EXIT+1!
DIC("S" GETDRUG+1*
DIC(0 GETDRUG+1*
DIE MAINTAIN+2*!, GETDRUG+5*!, EXIT+1!
DIR CHOOSE+3!, EXIT+1!, MANYMV+7!, MANY+6!, MANY+7!
DIR("?" MANYMV+6*, MANY+6*
DIR("??" CHOOSE+2*, MANYMV+6*, MANY+6*
DIR("A" CHOOSE+2*, MANYMV+6*, MANY+6*
DIR(0 CHOOSE+2*, MANYMV+6*, MANY+6*
DIRUT CHOOSE+3, EXIT+1!, MANYMV+9, MANY+9
DR MAINTAIN+2*, GETDRUG+5*, EXIT+1!
DT SETUP+5, SETUP+12
DTOUT MAINTAIN+3, GETDRUG+2, GETDRUG+6, EXIT+1!
DUOUT MAINTAIN+3, GETDRUG+2, GETDRUG+6, EXIT+1!
DUZ PSALEVEL+6, BEGIN+1, BEGIN+2
IOF CHOOSE+1, ONEMV+2, MANYMV+1, MANYMV+12, ONE+2, MANY+1, MANY+12
PSA MAINTAIN+1*, MAINTAIN+2, GETDRUG+1, GETDRUG+5, EXIT+1!
PSABEG BEGIN*, BEGIN+3, EXIT+1!, MANYMV+7*, MANY+7*
PSACHO CHOOSE+4*, CHOOSE+5, CHOOSE+6, EXIT+1!
PSACNT EXIT+1!, ONE+1*, MANY+2*, MANY+4*, MANY+5, MANY+6
PSACOMB SETUP+7, EXIT+1!
PSADRG GETDRUG+4*, GETDRUG+5, EXIT+1!
PSAISIT SETUP+6*, SETUP+7, EXIT+1!
PSAISITN EXIT+1!
PSALOC SETUP+2*, SETUP+3*, SETUP+4, SETUP+5, SETUP+6, SETUP+7, BEGIN*, MAINTAIN+1, EXIT+1!, ONE+1*
, MANY+3*, MANY+4, MANY+11*
PSALOCA EXIT+1!
PSALOCA( SETUP+7*, MANY+2, MANY+3
PSALOCA("" ONE+1
PSALOCN EXIT+1!, ONE+1*, ONE+4, ONE+5, MANY+2*, MANY+3, MANY+4, MANY+5, MANY+10*, MANY+11
, MANY+14, MANY+15
PSAMENU EXIT+2!
PSAMENU( MANY+4*, MANY+10, MANY+11
PSAMV SETUP+9*, SETUP+10*, SETUP+11, SETUP+12, SETUP+13, BEGIN*, MAINTAIN+1, EXIT+2!, ONEMV+1*, ONEMV+3
, MANYMV+11*, MANYMV+13
PSAMV( SETUP+13*, MANYMV+2, MANYMV+3
PSAMVA EXIT+2!, MANYMV+2*, MANYMV+3, MANYMV+4, MANYMV+5, MANYMV+11*
PSAMVIEN EXIT+2!, MANYMV+3*, MANYMV+4, MANYMV+11*
PSAMVNUM SETUP+9*, SETUP+13*, BEGIN+1, MAINTAIN+4, GETDRUG+3, CHOOSE+6, EXIT+2!, PHARMKEY+1, PHARMKEY+3, NONE+1
, MANY+7, MANY+8
PSANUM SETUP+2*, SETUP+6*, BEGIN+1, BEGIN+2, MAINTAIN+4, GETDRUG+3, CHOOSE+5, EXIT+2!, PHARMKEY+1, PHARMKEY+2
, PHARMKEY+3, MANYMV+7, MANYMV+8
PSAONE SETUP+6*, EXIT+2!, ONE+1
PSAONEMV SETUP+13*, EXIT+2!, ONEMV+1
PSAOSIT SETUP+6*, SETUP+7, EXIT+2!
PSAOSITN EXIT+2!
PSAOUT BEGIN*, BEGIN+3, CHOOSE+3*, EXIT+2!, MANYMV+8*, MANYMV+9*, MANY+8*, MANY+9*
PSASEL EXIT+2!, MANYMV+2*, MANYMV+4*, MANYMV+5, MANYMV+6, MANYMV+10*, MANYMV+11, MANY+10*, MANY+11
PSASLN SETUP*, CHOOSE+1, EXIT+2!, ONEMV+3, MANYMV+1, MANYMV+13, ONE+5, MANY+1, MANY+15
PSAVAULT EXIT+2!
PSAVAULT( MANYMV+4*, MANYMV+11
X MAINTAIN+4, EXIT+2!
Y GETDRUG+3, GETDRUG+4, CHOOSE+4, EXIT+2!, MANYMV+7, MANYMV+8, MANYMV+10, MANY+7, MANY+8, MANY+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All