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

Package: Drug Accountability

Routine: PSAVERA1


Information

PSAVERA1 ;BHM/DB - Edit previously verified invoices;16NOV99

Source Information

Source file <PSAVERA1.m>

Entry Points

Name Comments DBIA/ICR reference
DISPLN
DRUG
QTY ;Quantity
UPC
OU ;W !,"Order Unit : "
NDC
PRICE ;W !,"Unit Price : $"
VSN ;W ?38,"VSN: "_$S(PSAVSN'="":PSAVSN,1:"Blank"),!
VDU
STOCK
REORDER
ASK
PROCSS
VIEW
FIELDS
Q
UPDATE ; *63 RJS CODE REMOVED FROM PSAVERA AND CALLED BY PSAVERA
FILE581 ;Update transaction file ;;*63
FIND
NEW581
LOCCHK ; Update Line items with CS or Non-CS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $S($G(PSAPRICE):PSAPRICE,1:"0.00")
  • Line Location: PRICE+10
Function Call: READ
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !,"Enter a number between 1 and ",CNT
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !,"Invalid line number."
  • Line Location: PROCSS+0
Function Call: WRITE
  • Prompt: !,PSASLN,!
  • Line Location: VIEW+0
Function Call: WRITE
  • Prompt: "1. Drug",!,"2. Order Unit",!
  • Line Location: VIEW+1
Function Call: WRITE
  • Prompt: PSASLN
  • Line Location: VIEW+4
Function Call: WRITE
  • Prompt: !,"updating pharmacy location file."
  • Line Location: UPDATE+29
Function Call: WRITE
  • Prompt: !,"updating transaction file."
  • Line Location: NEW581+6

FileMan Files Accessed Via FileMan Db Call

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