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

Package: Drug Accountability

Routine: PSACREDR


Information

PSACREDR ;BIR/JMB-Credit Resolution ;7/23/97

Source Information

Source file <PSACREDR.m>

Entry Points

Name Comments DBIA/ICR reference
START
EXIT ;Kills printing variables only
LINE ;Get line item data
DRUG
DAVE
PRICE
QTY
CREDITS ;Adds existing credits to adjusted extended cost.
LIST ;Displays the invoices with outstanding credits
SELECT ;Selects invoices for credit memos
CREDHELP ;Extended help to 'Select invoices'

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You do not hold the key to enter the option."
  • Line Location: PSACREDR+4
Function Call: WRITE
  • Prompt: !,"You do not hold the key to enter the option."
  • Line Location: PSACREDR+5
Function Call: WRITE
  • Prompt: !!,"There are no outstanding credit memos."
  • Line Location: PSACREDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: START+0
Function Call: WRITE
  • Prompt: @IOF,!,"Order#: "_$P($G(^PSD(58.811,PSAIEN,0)),"^")
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: !?28,"Invoice",?42,"Adjusted",?56,"Received",!?4,"Invoice#",?31,"Cost",?46,"Cost",?57,"Credits",?69,"Difference",!,PSASLN
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: !!!,?10,"NO INVOICES ON THIS ORDER # FOR CREDITING PURPOSES",!
  • Line Location: LIST+10
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+11
Function Call: WRITE
  • Prompt: !?5,"Enter the numbers to the left of the invoices for which you want to",!?5,"enter credit memos. To select more than one invoice number, enter"
  • Line Location: CREDHELP+1
Function Call: WRITE
  • Prompt: !?5,"the numbers to the left of the invoices separated by a comma or a dash.",!!?5,"For example: Enter 1,2,3,5 or 1-3,5"
  • Line Location: CREDHELP+2

FileMan Files Accessed Via FileMan Db Call

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