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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Drug Accountability 2 END^PSAPROC  BDATE^PSAPV  
VA Fileman 2 DD^%DT  NOW^%DTC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Drug Accountability 1 PSA INVOICE COST SUMMARY  

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT PRINT+1, PRINT+2
NOW^%DTC PRINT+3
^%ZIS DEVICE+2
^%ZISC EXIT
^%ZTLOAD DEVICE+7
END^PSAPROC PRINT+5, PRINT+18, HDR+1
BDATE^PSAPV PSACOST+8

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
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.811 - [#58.811] PSACOST+7, COMPILE+2, COMPILE+3, COMPILE+4, COMPILE+5, COMPILE+6, COMPILE+7, COMPILE+9, COMPILE+10, COMPILE+11
, PRICE, PRICE+1, QTY, QTY+2
^TMP("PSACOST" COMPILE+13*, ORDER, ORDER+2, ORDER+3, ORDER+4*, PRINT+5, PRINT+6, PRINT+7, PRINT+10, PRINT+11
, PRINT+15, EXIT!
^XUSEC("PSA ORDERS" PSACOST+6

Label References

Name Line Occurrences
EXIT PSACOST+7, PSACOST+8, DEVICE+3, PRINT+5
HDR PRINT+4, PRINT+8, PRINT+12, PRINT+14
LINE COMPILE+11

Naked Globals

Name Field # of Occurrence
^( PRINT+11, PRINT+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRINT+3, EXIT+1!
%DT PRINT+1!, PRINT+2!, EXIT+1!
%ZIS DEVICE+1!*, EXIT+1!
%ZIS("B" DEVICE+1*
DUZ PSACOST+6
IO("Q" DEVICE+1!, DEVICE+3, EXIT!
IOF PRINT+19, HDR+1, HDR+2
IOP DEVICE+1!
IOSL PRINT+8, PRINT+12, PRINT+14
IOST PRINT+18, HDR+1, HDR+2, HDR+6
POP DEVICE+1!, DEVICE+2
PSAACOST ORDER+1*, ORDER+3*, ORDER+4, PRINT+11*, PRINT+13, PRINT+16, EXIT+1!, QTY+4*, QTY+5*
PSAAECST COMPILE+8*, COMPILE+12, COMPILE+13, EXIT+1!, QTY+4*, QTY+5*
PSABEG DEVICE+6, COMPILE+1, PRINT+2, EXIT+1!
PSABEGX PRINT+2*, EXIT+1!, HDR+6, HDR+7
PSADATA COMPILE+11*, EXIT+1!, LINE+1, PRICE+2, QTY+5
PSADATE COMPILE+1*, COMPILE+2*, COMPILE+3, COMPILE+5, COMPILE+7, EXIT+1!
PSADIFF COMPILE+12*, COMPILE+13, ORDER+1*, ORDER+3*, ORDER+4, PRINT+11*, PRINT+13, EXIT+1!
PSADJ EXIT+1!, PRICE*, PRICE+1, PRICE+2, QTY*, QTY+1, QTY+2
PSADJP EXIT+1!, PRICE*, PRICE+1*
PSADJQ EXIT+1!, QTY*, QTY+3*, QTY+4, QTY+5
PSAEND DEVICE+6, COMPILE+2, PRINT+1, EXIT+1!
PSAENDX PRINT+1*, EXIT+1!, HDR+6, HDR+7
PSAICOST ORDER+1*, ORDER+3*, ORDER+4, PRINT+11*, PRINT+13, PRINT+16, EXIT+1!
PSAIECST COMPILE+8*, COMPILE+12, COMPILE+13, EXIT+1!, LINE+1*
PSAIEN COMPILE+3*, COMPILE+4, COMPILE+5, COMPILE+6, COMPILE+7, COMPILE+9, COMPILE+10, COMPILE+11, EXIT+1!, PRICE
, PRICE+1, QTY, QTY+2
PSAIEN1 COMPILE+4*, COMPILE+5*, COMPILE+6, COMPILE+7, COMPILE+9, COMPILE+10, COMPILE+11, EXIT+2!, PRICE, PRICE+1
, QTY, QTY+2
PSAIN COMPILE+7*, EXIT+2!
PSAINV COMPILE+7*, COMPILE+13, ORDER+1*, ORDER+2*, ORDER+3, PRINT+10*, PRINT+11, PRINT+13, EXIT+2!
PSAINVDT COMPILE+7*, COMPILE+13, PRINT+11*, PRINT+13, EXIT+2!
PSALCOST EXIT+2!, LINE+1*
PSALINE COMPILE+9*, COMPILE+10, COMPILE+11, EXIT+2!, PRICE, PRICE+1, QTY, QTY+2
PSANODE EXIT+2!, PRICE+1*, QTY+2*, QTY+3
PSAOACST PRINT+15*, PRINT+16, EXIT+2!
PSAOCOST PRINT+15*, PRINT+16, EXIT+2!
PSAODIFF PRINT+7*, PRINT+15*, PRINT+16, EXIT+2!
PSAOECST COMPILE+4*, COMPILE+12*, EXIT+2!
PSAORD COMPILE+4*, COMPILE+13, ORDER*, ORDER+2, ORDER+3, ORDER+4, PRINT+5*, PRINT+6*, PRINT+7, PRINT+9
, PRINT+10, PRINT+11, PRINT+15, EXIT+2!
PSAOUT PSACOST+8*, COMPILE+1*, COMPILE+2, COMPILE+3, COMPILE+5, COMPILE+9, PRINT+6, PRINT+8, PRINT+10, PRINT+12
, PRINT+14, PRINT+18, EXIT+2!, HDR+1
PSAPG PRINT+4*, EXIT+2!, HDR+1, HDR+2, HDR+3*, HDR+4
PSAPRICE EXIT+2!, PRICE+1*, PRICE+2*, QTY+4, QTY+5
PSARUN PRINT+3*, EXIT+2!, HDR+6
PSASLN PRINT+4*, EXIT+2!, HDR+9
X PRINT+1!, PRINT+2!, EXIT+2!
Y PRINT+1*!, PRINT+2*!, PRINT+4!, EXIT+2!
ZTDESC DEVICE+4~, DEVICE+5*, EXIT+2!
ZTDTH DEVICE+4~, EXIT+2!
ZTIO DEVICE+4~, EXIT+2!
>> ZTQUEUED EXIT
>> ZTREQ EXIT*
ZTRTN DEVICE+4~, DEVICE+5*, EXIT+2!
ZTSAVE DEVICE+4~, EXIT+2!
ZTSAVE("PSABEG" DEVICE+6*
ZTSAVE("PSAEND" DEVICE+6*
ZTSK DEVICE+4~, EXIT+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All