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

Package: Drug Accountability

Routine: PSAPROC


Information

PSAPROC ;BIR/JMB-Process Uploaded Prime Vendor Invoice Data ;10/9/97

Source Information

Source file <PSAPROC.m>

Entry Points

Name Comments DBIA/ICR reference
ESIG
CNT ;Count invoices that need a pharm location or master vault assigned.
LOC ;Gets pharmacy locations
NONE ;No DA pharmacy locations
ONE ;Only one location
MANY ;If more than one pharmacy location, display invoices.
DISPLOC ;Displays the active pharmacy locations.
HDR
SELECT ;Select the Pharmacy Location to be assigned to the order.
MASTER ;Assigns invoice to Master Vault
DISPMV ;Displays active master vaults
SELMV ;Select displayed master vaults
END ;Holds screen
EXIT ;Kills processing variables
MV ;Extended help for the select "Master Vault" prompt
PHARM ;Extended help for the select "Pharmacy Location" prompt
DAVE ;Select division

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You do not hold the key to enter the option."
  • Line Location: PSAPROC+5
Function Call: WRITE
  • Prompt: !!,"There are no Drug Accountability pharmacy locations.",!!,"Use the Set Up/Edit a Pharmacy Location option on Pharmacy Location Maintenance"
  • Line Location: NONE+1
Function Call: WRITE
  • Prompt: !,"Menu to setup one or more pharmacy locations. Then select the Process Uploaded",!,"Prime Vendor Invoice Data option to process the invoices."
  • Line Location: NONE+2
Function Call: WRITE
  • Prompt: !!,"The invoices are being assigned to the pharmacy location. Please wait."
  • Line Location: ONE+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: ONE+5
Function Call: WRITE
  • Prompt: @IOF,!?19,"<<< ASSIGN A PHARMACY LOCATION SCREEN >>>",!,PSASLN
  • Line Location: DISPLOC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLOC+8
Function Call: WRITE
  • Prompt: @IOF,!?19,"<<< ASSIGN A PHARMACY LOCATION SCREEN >>>",!,PSASLN
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+1
Function Call: WRITE
  • Prompt: !!?5,"Enter an Up-arrow '^' to abort the process.",!
  • Line Location: SELECT+4
Function Call: WRITE
  • Prompt: !!,"No master vaults are set up. You must set up a master vault then",!,"select the Process Uploaded Prime Vendor Invoices Data option."
  • Line Location: MASTER+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: MASTER+8
Function Call: WRITE
  • Prompt: !,"Order#: "_PSAORD_" Invoice#: "_PSAINV_" Invoice Date: "_$$FMTE^XLFDT(+PSAIN)
  • Line Location: MASTER+14
Function Call: WRITE
  • Prompt: @IOF,!?22,"<<< ASSIGN A MASTER VAULT SCREEN >>>",!,PSASLN
  • Line Location: DISPMV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPMV+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SELMV+1
Function Call: WRITE
  • Prompt: !!?5,"A Master Vault must be selected. Otherwise enter an up-arrow '^' to abort.",!
  • Line Location: SELMV+4
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !?5,"Enter the number of the master vault for which you want to assign",!?5,"the order. The invoiced drugs in the assigned master vault will be"
  • Line Location: MV+1
Function Call: WRITE
  • Prompt: !?5,"incremented with the quantity received after the order is verified."
  • Line Location: MV+2
Function Call: WRITE
  • Prompt: !?5,"Enter the number of the pharmacy location for which you want to assign",!?5,"the order. The invoiced drugs in the assigned pharmacy location will be"
  • Line Location: PHARM+1
Function Call: WRITE
  • Prompt: !?5,"incremented with the quantity received after the order is verified."
  • Line Location: PHARM+2
Function Call: WRITE
  • Prompt: !!,"You have invoices on your system for more than one division.",!,"Please select the location for which you want to process invoices.",!,"or Press the up-arrow to process all invoices."
  • Line Location: DAVE+6
Info |  Source |  Entry Points |  Interaction Calls