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

Package: Drug Accountability

Routine: PSAUTL3


Information

PSAUTL3 ;BIR/JMB-Upload and Process Prime Vendor Invoice Data Utility - CONT'D ;7/23/97

Source Information

Source file <PSAUTL3.m>

Entry Points

Name Comments DBIA/ICR reference
ORDER ;If more than one pharmacy location, collect them in alpha order.
ONE ;only one
DISP ;Displays the available pharmacy locations.
SELECT
EXIT ;Kills all variables except PSALOC array & PSAOUT
FROMHELP ;Extended help to 'Select Transfer from Pharmacy'
HELP ;Extended help to 'Select PHARMACY LOCATION'
TOHELP ;Extended help to 'Select Transfer to Pharmacy'
SETAORD ;Set logic for "AORD" X-Ref
KILLAORD ;Kill logic for "AORD" X-Ref
SLOC ;Set logic for "ALOC" X-Ref on Pharmacy Location & Master Vault fields
KLOC ;Kill logic for "ALOC" X-Ref on Pharmacy Location & Master Vault fields
SLOCDT ;Set logic for "ALOC" X-Ref on Invoice Date field
KLOCDT ;Kill logic for "ALOC" X-Ref

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"No Drug Accountability location has been created yet."
  • Line Location: PSAUTL3+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ORDER+1
Function Call: WRITE
  • Prompt: !?5,"There is only one active pharmacy location.",!?5,"There must be at least two to transfer drugs."
  • Line Location: ORDER+11
Function Call: WRITE
  • Prompt: !,"There are no Drug Accountability pharmacy locations with data."
  • Line Location: ONE+2
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: !?5,"Enter the number of the pharmacy location that will transfer the drugs to another pharmacy."
  • Line Location: FROMHELP+1
Function Call: WRITE
  • Prompt: !?5,"Enter the number of the pharmacy location you want to select.",!?5,"If you want more than one pharmacy location, enter the numbers",!?5,"separated by a comma."
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!?5,"For example: Enter 1,3 or 1-3,5."
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !?5,"Enter the number of the pharmacy location that will receive the transferred the drugs."
  • Line Location: TOHELP+1
Info |  Source |  Entry Points |  Interaction Calls