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

Package: Drug Accountability

Routine: PSAPROC9


Information

PSAPROC9 ;BIR/JMB-Process Uploaded Prime Vendor Invoice Data - CONT'D ;8/19/97

Source Information

Source file <PSAPROC9.m>

Entry Points

Name Comments DBIA/ICR reference
NEXT
QTY
OU
DU
DUOU ;If drug has synonym & no conv factor set conv factor in 50.
PRICE
NOTCS ;If drug is not a CS & no stock level/reorder level, store in XTMP.
CS ;If drug is a CS & no stock level/reorder level, store in XTMP.
CONT ;Asks if user wants to continue processing invoice.
MASTER ;Assigns invoice to Master Vault
DISPMV ;Displays active master vaults
SELMV ;Select displayed master vaults
GETLOC ;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.
SELLOC ;Select the Pharmacy Location to be assigned to the order.
CONTYN ;Extended help for 'Do you want to continue processing invoice# 99'

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: CS+7
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+2
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+6
Function Call: WRITE
  • Prompt: !,"Order#: "_PSAORD_" Invoice#: "_PSAINV_" Invoice Date: "_$$FMTE^XLFDT(+PSAIN)
  • Line Location: MASTER+15
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: !!,"There are no Drug Accountability pharmacy locations.",!!,"Use the Set Up/Edit a Pharmacy Location option on Pharmacy Location menu"
  • Line Location: NONE+1
Function Call: WRITE
  • Prompt: !,"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: @IOF,!?19,"<<< ASSIGN A PHARMACY LOCATION SCREEN >>>"
  • Line Location: ONE+2
Function Call: WRITE
  • Prompt: !!,"The non-controlled substance items on the invoice have",!,"been automatically assigned to the Pharmacy Location.",!
  • Line Location: ONE+3
Function Call: WRITE
  • Prompt: !,$P(PSALOCN,"(IP)",1)_"(IP)",!?17,$P(PSALOCN,"(IP)",2)
  • Condition for execution: $L(PSALOCN)>76
  • Line Location: ONE+4
Function Call: WRITE
  • Prompt: PSALOCN
  • Condition for execution: $L(PSALOCN)<77
  • Line Location: ONE+4
Function Call: WRITE
  • Prompt: !,PSASLN
  • Line Location: ONE+4
Function Call: WRITE
  • Prompt: !!,"Order#: "_PSAORD_" Invoice#: "_PSAINV_" Invoice Date: "_$$FMTE^XLFDT(+PSAIN)
  • Line Location: ONE+5
Function Call: WRITE
  • Prompt: !,"Order#: "_PSAORD_" Invoice#: "_PSAINV_" Invoice Date: "_$$FMTE^XLFDT(+PSAIN)
  • Line Location: MANY+1
Function Call: WRITE
  • Prompt: @IOF,!?19,"<<< ASSIGN A PHARMACY LOCATION SCREEN >>>",!,PSASLN,!
  • Line Location: DISPLOC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLOC+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SELLOC+1
Function Call: WRITE
  • Prompt: !?5,"Enter YES to continue processing the current invoice and line item.",!?5,"Enter NO to discontinue processing the current invoice and exit the option."
  • Line Location: CONTYN+1
Info |  Source |  Entry Points |  Interaction Calls