Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 3 ^DIC  ^DIE  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Drug Accountability 1 PSA CREDIT RESOLUTION  

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'

External References

Name Field # of Occurrence
^DIC START, SELECT+8
^DIE SELECT+9, SELECT+11
^DIR LIST+12

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
Routine Call
  • DIC
  • Line Location:
    • START
    • SELECT+8
Routine Call
  • DIE
  • Line Location:
    • SELECT+9
    • SELECT+11
Routine Call
  • DIR
  • Line Location:
    • LIST+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSD(58.811 - [#58.811] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(58.8112 SELECT+5
^PSD(58.811 - [#58.811] PSACREDR+6, START+1, START+3, START+4, START+6, LINE+1, LINE+3, DRUG, DRUG+2, PRICE
, PRICE+1, QTY, QTY+1, CREDITS+1, CREDITS+2, CREDITS+3, LIST+1, LIST+6, SELECT+3, SELECT+5
, SELECT+7, SELECT+9, SELECT+10, SELECT+12
^XUSEC("PSA ORDERS" PSACREDR+4
^XUSEC("PSAMGR" PSACREDR+5

Label References

Name Line Occurrences
CREDITS START+7
DAVE LINE+5
EXIT START, START+9
LINE START+6
LIST START+8
START START+1, START+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA EXIT+1!, SELECT+4*, SELECT+9*!, SELECT+11*
DA(1 SELECT+4*, SELECT+6, SELECT+11*
DA(2 SELECT+4*, SELECT+6
DIC START*, EXIT+1!, SELECT+6*, SELECT+8!, SELECT+9!
DIC("A" SELECT+6*
DIC("P" SELECT+5*
DIC("S" START*
DIC(0 START*, SELECT+6*
DIE START!, EXIT+1!, SELECT+9*!, SELECT+11*!
>> DILOCKTM SELECT+7
DIR EXIT+1!, LIST+11!, LIST+12!
DIR("?" LIST+11*
DIR("??" LIST+11*
DIR("A" LIST+11*
DIR(0 LIST+11*
DIRUT EXIT+1!, LIST+12
DLAYGO SELECT+6*, SELECT+8!
DR EXIT+1!, SELECT+6*, SELECT+9*, SELECT+11*
DUZ PSACREDR+4, PSACREDR+5
IOF LIST+1
PSA EXIT+1!
PSA( CREDITS+4*, LIST+3, LIST+4, LIST+5
PSAAECST START+5*, EXIT+1!, QTY+2*, QTY+3*, CREDITS+4, LIST+4*, LIST+6, LIST+8, SELECT+2*, SELECT+11
, SELECT+13, SELECT+15
PSACIEN EXIT+1!, CREDITS+1*, CREDITS+2, CREDITS+3
PSACNT EXIT+1!, LIST+3*, LIST+5*, LIST+6, LIST+10, LIST+11, SELECT+1*, SELECT+2
PSACRED START+5*, EXIT+1!, CREDITS+3*, CREDITS+4, LIST+4*, LIST+7, LIST+8, SELECT+2*, SELECT+10*, SELECT+11
, SELECT+14, SELECT+15
PSADATA EXIT+1!, LINE+3*, DAVE, PRICE+2, QTY+3
PSADIF EXIT+1!, LIST+8*, LIST+9
PSADJ EXIT+1!, DRUG*, DRUG+1, DRUG+2, PRICE*, PRICE+1, PRICE+2, QTY*, QTY+1
PSADJD EXIT+1!, LINE+2!, DRUG+3*, DRUG+4
PSADJDA EXIT+1!, SELECT+9*, SELECT+10
PSADJP EXIT+1!, LINE+2!, PRICE*
PSADJQ EXIT+1!, LINE+2!, QTY*, QTY+1*, QTY+2, QTY+3
PSADJSUP EXIT+1!, LINE+3*, DRUG+1, DRUG+5*
PSAIECST START+5*, EXIT+2!, DAVE*, CREDITS+4, LIST+4*, LIST+6, LIST+8, SELECT+2*, SELECT+11, SELECT+13
, SELECT+15
PSAIEN START+2*, START+3, START+4, START+6, EXIT+2!, LINE+1, LINE+3, DRUG, DRUG+2, PRICE
, PRICE+1, QTY, QTY+1, CREDITS+1, CREDITS+2, CREDITS+3, LIST+1, LIST+6, SELECT+3, SELECT+4
, SELECT+5, SELECT+7, SELECT+9, SELECT+10, SELECT+11, SELECT+12
PSAIEN1 START+2*, START+3*, START+4, START+6, EXIT+2!, LINE+1, LINE+3, DRUG, DRUG+2, PRICE
, PRICE+1, QTY, QTY+1, CREDITS+1, CREDITS+2, CREDITS+3, CREDITS+4, LIST+3*, LIST+4, LIST+5
, LIST+6
PSAIEN2 START+6*, EXIT+2!, LINE+1, LINE+3, DRUG, DRUG+2, PRICE, PRICE+1, QTY, QTY+1
, SELECT+4
PSAINV EXIT+2!, SELECT+2*, SELECT+3, SELECT+4, SELECT+5, SELECT+7, SELECT+9, SELECT+10, SELECT+11, SELECT+12
PSALEN EXIT+2!, SELECT+12*, SELECT+13, SELECT+14, SELECT+15
PSAMENU EXIT+2!
PSAMENU( LIST+5*, SELECT+2
PSANODE EXIT+2!, DRUG+2*, DRUG+3, PRICE+1*, QTY+1*
PSAOUT START+2*, START+6, START+9, EXIT+2!, LIST+12*, SELECT+1, SELECT+8*
PSAPC EXIT+2!, SELECT+1*
PSAPRICE EXIT+2!, PRICE+1*, PRICE+2*, QTY+2, QTY+3
PSASEL EXIT+2!, LIST+13*, SELECT+1
PSASLN PSACREDR+7*, EXIT+2!, LIST+2
Y START, START+1, START+2, EXIT+2!, LIST+12, LIST+13, SELECT+8, SELECT+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All