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
Print Page as PDF
Routine: PSACREDO

Package: Drug Accountability

Routine: PSACREDO


Information

PSACREDO ;BIR/JMB-Outstanding Credits ;7/23/97

Source Information

Source file <PSACREDO.m>

Entry Points

Name Comments DBIA/ICR reference
DEVICE
DQ
EXIT
LINE ;Get line item data
GETLINE ;Gets invoice cost from line items
CREDITS ;Adds existing credits to adjusted extended cost.
PRINT ;Displays the invoices with outstanding credits
HDRDET ;Header for detail report
PRTDLINE ;Prints a line of data on the detailed report
PRTDLIN1 ;Prints a line of data on the detailed report
HDRSUM ;Header for summary report
PRTSLINE ;Prints a line of data on the summary report
RPT ;Extended help for "Print a detailed or summary report"

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You do not hold the key to enter the option."
  • Line Location: PSACREDO+7
Function Call: WRITE
  • Prompt: !!,"There are no outstanding credit memos."
  • Line Location: PSACREDO+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+0
Function Call: WRITE
  • Prompt: !!,"The report must be sent to a 132 column printer."
  • Line Location: DEVICE+1
Function Call: WRITE
  • Prompt: !,PSALSLN
  • Condition for execution: PSARPT="D"
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,"ORDER#: "_PSAORD_" ($"_$P(PSA(PSAORD),"^")_")"
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,"ORDER TOTAL"
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: ?65
  • Condition for execution: PSARPT="D"
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: ?69
  • Condition for execution: PSARPT="S"
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: $J(PSAODF,9,2)
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: PSASLN
  • Condition for execution: PSARPT="S"
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: PSALSLN
  • Condition for execution: PSARPT="D"
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: !,"GRAND TOTAL"
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: ?65
  • Condition for execution: PSARPT="D"
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: ?69
  • Condition for execution: PSARPT="S"
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: $J(PSAGDF,9,2),!
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDRDET+2
Function Call: WRITE
  • Prompt: ?46,"DRUG ACCOUNTABILITY/INVENTORY INTERFACE"
  • Line Location: HDRDET+5
Function Call: WRITE
  • Prompt: !?53,"OUTSTANDING CREDITS REPORT",!?124,"PAGE "_PSAPG
  • Line Location: HDRDET+6
Function Call: WRITE
  • Prompt: !!?36,"INVOICE",?46,"ADJUSTED",?58,"RECEIVED",?68,"OUTST.",?84,"DRUG &"
  • Line Location: HDRDET+7
Function Call: WRITE
  • Prompt: !,"INVOICE#",?28,"DATE",?39,"COST",?50,"COST",?59,"CREDITS",?68,"CREDIT",?77,"LINE#",?84,"ADJUSTMENT REASON",?117,"INVOICE",?129,"ADJ",!
  • Line Location: HDRDET+8
Function Call: WRITE
  • Prompt: !,PSAINV,?26,PSAINVDT,?30,$J(PSAIECST,9,2),?45,$J(PSAAECST,9,2),?57,$J(PSACRED,9,2),?67,$J(PSAIDF,7,2),?74,$J(PSALN,8,0),?84,$E(PSADRG,1,33),?117,$J(PSAIVAL,7),?125,$J(PSAAVAL,7)
  • Line Location: PRTDLINE+1
Function Call: WRITE
  • Prompt: !?84,$S(PSAFLD="P":"ORDER UNIT PRICE CHANGED ",PSAFLD="Q":"QTY: "_PSAREA,1:"")
  • Line Location: PRTDLINE+2
Function Call: WRITE
  • Prompt: !?74,$J(PSALN,8,0),?84,PSADRG,?117,$J(PSAIVAL,7),?125,$J(PSAAVAL,7)
  • Line Location: PRTDLIN1+1
Function Call: WRITE
  • Prompt: !?84,$S(PSAFLD="P":"ORDER UNIT PRICE CHANGED ",PSAFLD="Q":"QTY: "_PSAREA,1:"")
  • Line Location: PRTDLIN1+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDRSUM+2
Function Call: WRITE
  • Prompt: !?20,"DRUG ACCOUNTABILITY/INVENTORY INTERFACE"
  • Line Location: HDRSUM+4
Function Call: WRITE
  • Prompt: !?27,"OUTSTANDING CREDITS REPORT",!?72,"PAGE "_PSAPG
  • Line Location: HDRSUM+5
Function Call: WRITE
  • Prompt: !?36,"INVOICE",?46,"ADJUSTED",?58,"RECEIVED",?72,"OUTST."
  • Line Location: HDRSUM+7
Function Call: WRITE
  • Prompt: !,"INVOICE#",?28,"DATE",?39,"COST",?50,"COST",?59,"CREDITS",?72,"CREDIT",!,PSASLN
  • Line Location: HDRSUM+8
Function Call: WRITE
  • Prompt: !,PSAINV,?26,PSAINVDT,?30,$J(PSAIECST,9,2),?45,$J(PSAAECST,9,2),?57,$J(PSACRED,9,2),?71,$J(PSAIDF,7,2)
  • Line Location: PRTSLINE+1
Function Call: WRITE
  • Prompt: !?5,"Select DETAILED to print the order number, invoice number, invoice date,",!?5,"total invoice cost, adjusted cost, received credits, and Derence."
  • Line Location: RPT+1
Function Call: WRITE
  • Prompt: !!?5,"Select SUMMARY to print all of the data on the detailed report plus the",!?5,"line item data that created the need for a credit. The line item data is"
  • Line Location: RPT+2
Function Call: WRITE
  • Prompt: !?5,"the line item number, drug name, quantity invoiced, quantity received,",!?5,"reason for credit."
  • Line Location: RPT+3
Info |  Source |  Entry Points |  Interaction Calls