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

Package: Drug Accountability

Routine: PSAVERA2


Information

PSAVERA2 ;BHM/DB - Edit previously verified invoices #2;21DEC99

Source Information

Source file <PSAVERA2.m>

Entry Points

Name Comments DBIA/ICR reference
ASKDRUG ;Change drug
LOCATION ;Change pharmacy location
LST ;List all data associated with location/drug
RECORD ;Add adjusted data to DA Orders file

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Decrementing balance of "_PSABAL_" from "_$P($G(^PSDRUG(PSADRG,0)),"^")
  • Line Location: ASKDRUG+14
Function Call: WRITE
  • Prompt: !,"Increasing balance of "_PSANEWD_" by "_PSABAL_"."
  • Line Location: ASKDRUG+15
Function Call: WRITE
  • Prompt: !!,"Note that if you change the drug on this line item, the balances will be",!,"updated."
  • Line Location: ASKDRUG+17
Function Call: WRITE
  • Prompt: !,"If the location is changed, the balances will be decremented from the original",!,"location, the transaction file will record the proper changes.",!
  • Line Location: LOCATION+1
Function Call: WRITE
  • Prompt: !,"ok, we'll update the files now at RECORD"
  • Line Location: RECORD+2
Function Call: WRITE
  • Prompt: !,"Could not find previous sysnonym data, therefore the prices will remain as",!,"they are.",!
  • Line Location: RECORD+6

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