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 |  Local Variables |  All
Print Page as PDF
Routine: PSALOG

Package: Drug Accountability

Routine: PSALOG


Information

PSALOG ;BIR/LTL,JMB-Unposted Procurement History ;7/23/97

Source Information

Source file <PSALOG.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Drug Accountability 3 ^PSALOG0  ^PSALOG1  ^PSALOG1H  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 3 ^%DT  DT^DICRW  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Drug Accountability 1 PSA UNPOST PROCUREMENT HISTORY  

Entry Points

Name Comments DBIA/ICR reference
HELPTOT ;Extended help for "Print item totals?"
EXIT
HELPLOW ;Extended help for "Enter the lowest dollar amount to print $"
DEVICE
QUE ;Calls routines to print the 3 reports.
HELPHIGH ;Extended help for "Print a high dollar items report?"

External References

Name Field # of Occurrence
^%DT PSALOG+8
^%ZIS DEVICE
^%ZISC EXIT+1
^%ZTLOAD DEVICE+2
DT^DICRW PSALOG+7
^DIR PSALOG+12, PSALOG+15, PSALOG+18
^PSALOG0 QUE+3
^PSALOG1 QUE+4
^PSALOG1H QUE+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PSALOG+12
Function Call: WRITE
  • Prompt: !
  • Line Location: PSALOG+18
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+0
Function Call: WRITE
  • Prompt: !,"No device selected or report printed!"
  • Line Location: DEVICE+1
Function Call: WRITE
  • Prompt: !,"The report was not sent to the printer."
  • Line Location: DEVICE+3
Function Call: WRITE
  • Prompt: !!,"Enter yes to print a report of the items purchased during the selected",!,"month. The report contains the total dollar amount per item per purchase"
  • Line Location: HELPTOT+1
Function Call: WRITE
  • Prompt: !,"order. The report lists the purchase order number, date ordered quantity,",!,"ordered, quantity received, dollar amount per dispensed unit, dispensed"
  • Line Location: HELPTOT+2
Function Call: WRITE
  • Prompt: !,"unit, total order cost, and total cost of items received."
  • Line Location: HELPTOT+3
Function Call: WRITE
  • Prompt: !!,"Enter no if you do not want to print the report."
  • Line Location: HELPTOT+4
Function Call: WRITE
  • Prompt: !!,"Enter yes to choose a cut-off dollar amount and print the report.",!,"The report lists the items from highest to lowest dollar amounts."
  • Line Location: HELPHIGH+1
Function Call: WRITE
  • Prompt: !!,"Enter the lowest dollar amount paid for an order of an item. The",!,"dollar amount is the total amount paid for the item on a purchase order."
  • Line Location: HELPLOW+1
Function Call: WRITE
  • Prompt: !,"For example, if a drug cost $500 per unit and 3 units were ordered, the",!,"total dollar amount is $1500. In order to print this item on the report,",!,"the lowest dollar amount to print must be $1500 or less."
  • Line Location: HELPLOW+2
Routine Call
  • DIR
  • Line Location:
    • PSALOG+12
    • PSALOG+15
    • PSALOG+18
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PSALOG+9
^TMP("PSA" QUE+1!, EXIT+2!
^TMP("PSAB" QUE+1!, EXIT+2!
^TMP("PSAC" QUE+1!, EXIT+2!

Label References

Name Line Occurrences
DEVICE PSALOG+15
EXIT PSALOG+8, PSALOG+12, PSALOG+15, PSALOG+18, DEVICE+1, DEVICE+3, QUE+3, QUE+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT PSALOG+7*, EXIT+3!
%DT("A" PSALOG+7*
%DT("B" PSALOG+7*
%ZIS DEVICE*, EXIT+3!
DIR PSALOG+12!, PSALOG+15!, PSALOG+18!, EXIT+3!
DIR("?" PSALOG+11*, PSALOG+14*, PSALOG+17*
DIR("??" PSALOG+12*, PSALOG+15*, PSALOG+17*
DIR("A" PSALOG+11*, PSALOG+14*, PSALOG+17*
DIR("B" PSALOG+11*, PSALOG+14*, PSALOG+17*
DIR(0 PSALOG+11*, PSALOG+14*, PSALOG+17*
DIRUT PSALOG+12, PSALOG+15, PSALOG+18, EXIT+3!
IO QUE+1
IO("Q" DEVICE!, DEVICE+2, EXIT+2!
IOF EXIT
>> POP DEVICE+1
PSAC EXIT+3!
PSACP EXIT+3!
PSADATE EXIT+3!
PSADLN EXIT+3!
PSADT EXIT+3!
PSAFCP EXIT+3!
PSAHIGH PSALOG+15*, QUE+5, EXIT+3!
PSAIEN EXIT+3!
PSAINVO EXIT+3!
PSAITEM EXIT+3!
PSAKK EXIT+3!
PSALOW PSALOG+18*, EXIT+3!
PSAMO PSALOG+8*, EXIT+3!
PSAMORE EXIT+3!
PSAMOYR PSALOG+9*, EXIT+3!
PSAN0 EXIT+3!
PSAN1 EXIT+3!
PSAOUT QUE+3, QUE+4, EXIT+3!
PSAPG EXIT+3!
PSAQTYO EXIT+4!
PSAQTYP EXIT+4!
PSARPDT EXIT+4!
PSASLN EXIT+4!
PSASS EXIT+4!
PSASTART QUE+2*, EXIT, EXIT+4!
PSATMP EXIT+4!
PSATOT EXIT+4!
PSATOTAL PSALOG+12*, QUE+4, EXIT+4!
PSATOTO EXIT+4!
PSATOTP EXIT+4!
PSATOTR EXIT+4!
PSATQTYO EXIT+4!
PSAUNIT EXIT+4!
PSAYRMO PSALOG+8*, PSALOG+9, EXIT+4!
X EXIT+4!
X2 EXIT+4!
X3 EXIT+4!
Y PSALOG+8, PSALOG+9, PSALOG+12, PSALOG+15, PSALOG+18, EXIT+4!
ZTDESC DEVICE+2*, EXIT+4!
ZTQUEUED EXIT+1, EXIT+4!
ZTREQ EXIT+1*, EXIT+4!
ZTRTN DEVICE+2*, EXIT+4!
ZTSAVE EXIT+4!
ZTSAVE("PSA*" DEVICE+2*
>> ZTSK DEVICE+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All