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

Package: Drug Accountability

Routine: PSAPROC2


Information

PSAPROC2 ;BIR/JMB-Process Uploaded Prime Vendor Invoice Data - CONT'D ;7/23/97

Source Information

Source file <PSAPROC2.m>

Entry Points

Name Comments DBIA/ICR reference
CHK
INV
PROC
AUTO ;Process line items
EDITINV ;Edits the invoice before placing in Processed status.
HDR ;Screen header
HDR1 ;Screen header with hold
HEADER ;Screen hold with header
SETINV ;Sets invoice to processed if okay.
STATUS
EDIT ;Extended help for 'edit any invoices'
SEL ;Extended help to 'Select invoices to process'
SELHELP ;Extended help to 'Select invoices to edit'

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,"There are no invoices that need to be processed."
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: !," More data is needed on the following invoices. Choose the invoices from",!," the list you want to edit.",!,PSASLN
  • Line Location: INV+0
Function Call: WRITE
  • Prompt: !,PSASLN
  • Line Location: INV+6
Function Call: WRITE
  • Prompt: !
  • Line Location: INV+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PROC+0
Function Call: WRITE
  • Prompt: !,"Order#: "_$P(PSAIN,"^",4)_" Invoice#: "_$P(PSAIN,"^",2)_" Invoice Date: "_$$FMTE^XLFDT(+PSAIN),!,PSASLN
  • Line Location: AUTO+6
Function Call: WRITE
  • Prompt: "Blank"
  • Line Location: AUTO+10
Function Call: WRITE
  • Prompt: @IOF,!,"If you are changing the status of an invoice to Processed, this is the",!,"last time you will be allowed to edit it before it goes to the verifier."
  • Line Location: AUTO+24
Function Call: WRITE
  • Prompt: !,"If you are not changing the status of an invoice to Processed, you can",!,"edit it now.",!!,"You can edit the invoice's delivery date, pharmacy location, master vault,"
  • Line Location: AUTO+25
Function Call: WRITE
  • Prompt: !,"and the line item's drug, quantity received, order unit, and dispense units",!,"per order unit. The reorder level can be edited if the pharmacy location or"
  • Line Location: AUTO+26
Function Call: WRITE
  • Prompt: !,"master vault is set up to track the reorder levels.",!
  • Line Location: AUTO+27
Function Call: WRITE
  • Prompt: @IOF,!?26,"<<< EDIT INVOICE SCREEN >>>"
  • Line Location: EDITINV+5
Function Call: WRITE
  • Prompt: !!,"Choose the invoices to be edited. You can edit the invoice's date received and",!,"the line item's drug, quantity received, and order unit. The reorder and"
  • Line Location: EDITINV+6
Function Call: WRITE
  • Prompt: !,"stock levels can be edited if the pharmacy location or master vault is set",!,"up to maintain the reorder levels.",!,PSASLN,!
  • Line Location: EDITINV+7
Function Call: WRITE
  • Prompt: !
  • Line Location: EDITINV+14
Function Call: WRITE
  • Prompt: @IOF,!?19,"<<< EDIT INVOICES TO BE PROCESSED SCREEN >>>",!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: @IOF,!?26,"<<< EDIT INVOICE SCREEN >>>",!!,PSASLN
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: @IOF,!?19,"<<< EDIT INVOICES TO BE PROCESSED SCREEN >>>",!!,PSASLN
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !!,"** The invoice has not been placed in a Processed status!"
  • Line Location: STATUS+1
Function Call: WRITE
  • Prompt: !?5,"If you answer Yes, a list of the invoices you were able to process will",!?5,"be displayed. You will be able to select the invoices to be edited then"
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !?5,"the line item numbers. You will be able to edit the date the invoice was",!?5,"received, drug, quantity, order unit, and dispense units per order unit."
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: !?5,"If the drugs are assigned to a pharmacy location or master vault that",!?5,"maintains reorder levels, you will also be able to edit the reorder and",!?5,"stock levels.",!!?5,"Enter No if the invoice are correct."
  • Line Location: EDIT+3
Function Call: WRITE
  • Prompt: !?5,"Enter the number to the left of the invoice data that you want to process."
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: !?5,"Enter the number to the left of the invoice data that you want to",!?5,"edit. The line items will be displayed for you to select the ones"
  • Line Location: SELHELP+1
Function Call: WRITE
  • Prompt: !?5,"you want to edit. You are given this opportunity to edit the invoice",!?5,"because the automatic display may not catch all the needed corrections."
  • Line Location: SELHELP+2
Function Call: WRITE
  • Prompt: !!?5,"For example, the quantity on the invoice may be 6, but one bottle may",!?5,"be broken. Six is a valid quantity that the automatic display will not"
  • Line Location: SELHELP+3
Function Call: WRITE
  • Prompt: !?5,"realize as being incorrect. By answering Yes, you will be allowed to change",!?5,"the quantity to 5."
  • Line Location: SELHELP+4
Info |  Source |  Entry Points |  Interaction Calls