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

Package: Drug Accountability

Routine: PSACOST


Information

PSACOST ;BIR/JMB-Invoice Cost Summary ;7/23/97

Source Information

Source file <PSACOST.m>

Entry Points

Name Comments DBIA/ICR reference
DEVICE ;Asks device & queueing info
COMPILE ;Compiles the data into ^TMP("PSACOST",$J)
ORDER
PRINT ;Prints invoices' totals
EXIT
LINE ;Get line item data
PRICE
QTY
HDR ;Report header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You do not hold the key to enter the option."
  • Line Location: PSACOST+6
Function Call: WRITE
  • Prompt: !,"There are no invoices."
  • Line Location: PSACOST+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+2
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!"
  • Line Location: DEVICE+2
Function Call: WRITE
  • Prompt: !!,"There is no invoice data in the file for the selected date range.",!
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,"ORDER TOTAL"
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: ?39,$J(PSAOCOST,9,2),?55,$J(PSAOACST,9,2),?69
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: ?39,$J(PSAOCOST,9,2),?55,$J(PSAOACST,9,2),?69
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?20,"DRUG ACCOUNTABILITY/INVENTORY INTERFACE",?72,"PAGE "_PSAPG
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?27,"INVOICE COST SUMMARY REPORT"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"RUN: "_PSARUN,?27,PSABEGX_" - "_PSAENDX
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,?27,PSABEGX_" - "_PSAENDX
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!?28,"INVOICE",?41,"INVOICE",?56,"ADJUSTED"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"INVOICE#",?31,"DATE",?44,"COST",?60,"COST",?68,"DIFFERENCE",!,PSASLN
  • Line Location: HDR+9
Info |  Source |  Entry Points |  Interaction Calls