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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSAAOP

Package: Drug Accountability

Routine: PSAAOP


Information

PSAAOP ;BIR/DB - Price Conversion Routine;4/3/00

Source Information

Source file <PSAAOP.m>

Entry Points

Name Comments DBIA/ICR reference
Q
PRICE
PSANDC ;Entry point for price correction
PSADRG
PSASUB
DONESUB
QQ
NOQ
EXITQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"PSA*3*21 corrects errors in the way pricing was done in the past. The new",!,"process correctly calculates the price per dispense unit by dividing"
  • Line Location: Q+1
Function Call: WRITE
  • Prompt: !,"the Price per Order Unit by the Dispense Units per Order Unit.",!!,"It loops through each entry in the DRUG file (#50) and corrects any problems"
  • Line Location: Q+2
Function Call: WRITE
  • Prompt: !,"found in the synonym data."
  • Line Location: Q+3
Function Call: WRITE
  • Prompt: !!,"Please note - Because this process checks each NDC in the DRUG file (#50),"
  • Line Location: Q+4
Function Call: WRITE
  • Prompt: !,"it is suggested that you queue the option to run during low usage times."
  • Line Location: Q+5
Function Call: READ
  • Formatting: !!
  • Prompt: "Fix synonym entries? YES // "
  • Variable: AN
  • Timeout: DTIME
  • Line Location: PRICE+0
Function Call: WRITE
  • Prompt: !!,"Answer 'Y' for YES, or 'N' for NO."
  • Line Location: PRICE+1
Function Call: WRITE
  • Prompt: !,"Nothing corrected."
  • Line Location: NOQ+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call