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

Package: Drug Accountability

Routine: PSAREC


Information

PSAREC ;BIR/LTL,JMB-Receiving Directly into Drug Accountability ;7/23/97

Source Information

Source file <PSAREC.m>

Entry Points

Name Comments DBIA/ICR reference
SETUP
PO
PART
EXIT
START
DRUG
GETDATA ;Gets receipts data
NDC
OU
DUOU
PRICE
QTY
DISP
CORRECT ;Extended help for 'Would you like to correct it'
INV ;Extended help for 'Invoice number'
NDCHELP ;Extended help for 'NDC'
POSTHELP ;Extended help for 'Okay to post?'
PRICEHLP ;Extended help for 'Price per order unit'
QTYHELP ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"There are no active pharmacy locations."
  • Line Location: SETUP+2
Function Call: WRITE
  • Prompt: !!,"The current PO# for this location doesn't seem current.",!
  • Line Location: SETUP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PO+0
Function Call: WRITE
  • Prompt: !!,$G(PSALOCN),!
  • Line Location: DRUG+0
Function Call: WRITE
  • Prompt: ?50,"Converted quantity: ",PSAREC
  • Line Location: DISP+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !?5,"Enter YES to enter the current obligation number. It will be presented",!?5,"as the default the next time the obligation number prompt is displayed."
  • Line Location: CORRECT+1
Function Call: WRITE
  • Prompt: !!?5,"Enter NO to keep the current obligation number as the default."
  • Line Location: CORRECT+2
Function Call: WRITE
  • Prompt: !?5,"Enter the invoice number for the receipts."
  • Line Location: INV+1
Function Call: WRITE
  • Prompt: !?5,"Enter the National Drug Code (NDC) for the received drug.",!?5,"Enter the NDC with dashes or 12-digits without dashes."
  • Line Location: NDCHELP+1
Function Call: WRITE
  • Prompt: !?5,"Enter YES to update the balances in the pharmacy location and DRUG file",!?5,"and add a transaction."
  • Line Location: POSTHELP+1
Function Call: WRITE
  • Prompt: !?5,"Enter NO to abort receiving the drug."
  • Line Location: POSTHELP+2
Function Call: WRITE
  • Prompt: !?5,"Enter the cost for each order unit."
  • Line Location: PRICEHLP+1
Function Call: WRITE
  • Prompt: !?5,"The quantity entered will be multiplied by the dispense units",!?5,"per order unit to determine the number of dispense units received."
  • Line Location: QTYHELP+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCS(410 - [#410] Classic Fileman Calls
^PRC(442 - [#442] Classic Fileman Calls
^PSDRUG - [#50] Classic Fileman Calls
^DIC(51.5 - [#51.5] Classic Fileman Calls
^PSD(58.8 - [#58.8] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call