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

Package: Drug Accountability

Routine: PSAVER3


Information

PSAVER3 ;BIR/JMB-Verify Invoices - CONT'D ;9/5/97

Source Information

Source file <PSAVER3.m>

Entry Points

Name Comments DBIA/ICR reference
SETLINE ;Set line as verified if all data is present.
SUPPLY ;If it is a supply, automatically verify it.
NEWDRUG ;Store in array if drug is new to location/vault
NOTSUP ;If it is not a supply, look for drug, qty, dispense units, dispense
GOOD ;If no errors found, verify invoice.
PRINT ;Prints verification error list
PRN ;Entry point to print verification errors
NOVER ;Prints errors
HDR ;Prints header
STATUS ;Sets invoice's status to Verified
VERIFY ;Set line item to verified
VERIFY1 ;NEW CODE - Set adjs if entire invioce was verified
DDQOR ;Extended help for 'Edit field'
LNHELP ;Extended help for 'Line Number"
PRINTYN ;Extended help for 'Print verification report'

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !!,"** The invoice has not been placed in a Verified status!",!
  • Line Location: PRN+9
Function Call: WRITE
  • Prompt: "Line# "_PSALINEN_": "
  • Line Location: NOVER+5
Function Call: WRITE
  • Prompt: ?PSATAB,"Master Vault",!
  • Line Location: NOVER+9
Function Call: WRITE
  • Prompt: ?PSATAB,"Pharmacy location",!
  • Line Location: NOVER+11
Function Call: WRITE
  • Prompt: !
  • Line Location: NOVER+13
Function Call: WRITE
  • Prompt: @IOF,!?23,"<<< VERIFICATION ERROR REPORT >>>"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?20,"DRUG ACCOUNTABILITY/INVENTORY INTERFACE",!?27,"VERIFICATION ERROR REPORT",?72,"Page "_PSAPG,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"The following line numbers' status cannot be changed to Verified.",!,"The fields that contain an error or need data are listed with the line item.",!,PSASLN,!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !?5,"Enter the number or range of numbers of the field you want to edit.",!?5,"For example, 1-3 or 1,3"
  • Line Location: DDQOR+1
Function Call: WRITE
  • Prompt: !?5,"Enter the number of the item on the invoice you want to edit.",!?5,"You may enter several line item numbers separated by comas.",!!?5,"Do NOT enter a range of numbers separated by a dash."
  • Line Location: LNHELP+1
Function Call: WRITE
  • Prompt: !?5,"Enter YES to print the Verification Error Report on a printer.",!?5,"Enter NO if you do not want to print the report."
  • Line Location: PRINTYN+1
Info |  Source |  Entry Points |  Interaction Calls