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

Package: Drug Accountability

Routine: PSAPROC3


Information

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

Source Information

Source file <PSAPROC3.m>

Entry Points

Name Comments DBIA/ICR reference
DUOU ;Gets & stores dispense unit per order unit in XTMP
GETOU ;Get the Order Unit if it is blank or if it is not in the ORDER UNIT file.
PRICE ;If price per order unit is blank or 0, get price from user.
QTY ;If qty is blank, prompt for it.
RECD ;Enter the date the invoiced drugs were received.
SETLINE ;Set line as process if all data is present.
ADJREA ;Extended help for 'qty adjustment reason'
DUOUHELP ;Extended help for entering dispense units per order unit
NDCHELP ;Extended help for selecting invoiced drug
OUHELP ;Extended help for selecting the Order Unit
OUYN ;Extended help for returning to the 'ORDER UNIT' prompt.
PRICEHLP ;Extended help for price per order unit
QTYHELP ;Extended help for quantity delivered
RECHELP ;Extended help to 'Date Received'

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The dispense units per order unit must be entered",!,"to change the status of the invoice to Processed."
  • Line Location: DUOU+9
Function Call: WRITE
  • Prompt: !,"The order unit must be entered to change",!,"the status of the invoice to Processed.",!
  • Line Location: GETOU+9
Function Call: WRITE
  • Prompt: !?5,"Enter why you changed the quantity.",!?5,"For example: 2 bottles were broken.",!?5," Package contained only 11 tubes."
  • Line Location: ADJREA+1
Function Call: WRITE
  • Prompt: !?5,"Enter the number of dispense units contained in the order unit.",!!?5,"For example: Dispense Units: TAB",!?18,"Order Unit : CS"
  • Line Location: DUOUHELP+1
Function Call: WRITE
  • Prompt: !!?18,"The case contains 12 bottles of 1,000 tablets",!?18,"12 x 1,000 = 12,000",!?18,"DISPENSE UNITS PER ORDER UNIT: 12,000"
  • Line Location: DUOUHELP+2
Function Call: WRITE
  • Prompt: !?5,"Enter the number to the left of the invoiced drug. If you select a drug",!?5,"from the list, the invoiced drug will be matched to that drug. If you"
  • Line Location: NDCHELP+1
Function Call: WRITE
  • Prompt: !?5,"choose to select another drug, you can select the invoiced drug from the",!?5,"DRUG file or flag this item as a supply item."
  • Line Location: NDCHELP+2
Function Call: WRITE
  • Prompt: !?5,"Enter the packaging unit for which the drug was ordered."
  • Line Location: OUHELP+1
Function Call: WRITE
  • Prompt: !?5,"Enter Yes if you want to enter the order unit now.",!?5,"Enter No to bypass entering the order unit."
  • Line Location: OUYN+1
Function Call: WRITE
  • Prompt: !!?5,"The invoice will not be placed in a Processed",!?5,"status if the order units are not entered."
  • Line Location: OUYN+2
Function Call: WRITE
  • Prompt: !?5,"If the price per order unit is not zero, enter the correct price. ",!?5,"The total cost for the item will be adjusted. If it is zero, press ",!?5,"the return key to verify that zero is the correct price."
  • Line Location: PRICEHLP+1
Function Call: WRITE
  • Prompt: !?5,"If the quantity received is different than the quantity",!?5,"displayed, enter the correct quantity you received. The",!?5,"total cost for the item will be adjusted."
  • Line Location: QTYHELP+1
Function Call: WRITE
  • Prompt: !?5,"Enter the date the drugs were received. The date the prime vendor",!?5,"said the drugs were delivered and the date you say the drugs were",!?5,"received will be retained."
  • Line Location: RECHELP+1
Info |  Source |  Entry Points |  Interaction Calls