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

Package: Drug Accountability

Routine: PSACREDO


Information

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

Source Information

Source file <PSACREDO.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$HTFM^XLFDT  
Drug Accountability 1 END^PSAPROC  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Drug Accountability 1 PSA OUTSTANDING CREDITS  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS DEVICE
^%ZISC EXIT
^%ZTLOAD DEVICE+4
^DIR PSACREDO+9
END^PSAPROC PRINT+21, HDRDET+1, HDRSUM+1
$$HTFM^XLFDT LINE+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.811 - [#58.811] PSACREDO+8, DQ+2, DQ+3, DQ+4, DQ+5, DQ+6, DQ+7, DQ+8, DQ+9, DQ+10
, DQ+16, DQ+18, LINE+4, LINE+6, LINE+11, LINE+13, LINE+16, LINE+18, GETLINE+1, GETLINE+2
, GETLINE+3, GETLINE+4, GETLINE+5, GETLINE+8, GETLINE+9, CREDITS+1, CREDITS+2, CREDITS+3, CREDITS+6
^PSDRUG - [#50] LINE+25
^XUSEC("PSA ORDERS" PSACREDO+7

Label References

Name Line Occurrences
CREDITS DQ+12
EXIT PSACREDO+9, DEVICE, DEVICE+2
GETLINE DQ+19
HDRDET PRINT+1, PRINT+4, PRINT+12, PRINT+16, PRINT+18
HDRSUM PRINT+1, PRINT+4, PRINT+14, PRINT+16, PRINT+18
LINE DQ+11
PRINT DQ+22
PRTDLIN1 PRINT+13
PRTDLINE PRINT+13
PRTSLINE PRINT+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE*, EXIT+1!
DIR PSACREDO+9!, EXIT+1!
DIR("??" PSACREDO+9*
DIR("A" PSACREDO+9*
DIR(0 PSACREDO+9*
DIRUT PSACREDO+9, EXIT+1!
DUZ PSACREDO+7
IO("Q" DEVICE+2, EXIT!
IOF PRINT+22, HDRDET+1, HDRDET+2, HDRSUM+1, HDRSUM+2
IOSL PRINT+4, PRINT+12, PRINT+14, PRINT+16, PRINT+18
IOST PRINT+21, HDRDET+1, HDRDET+2, HDRDET+4, HDRSUM+1, HDRSUM+2, HDRSUM+6
>> POP DEVICE
PSA DQ+1*, DQ+2*, DQ+3, DQ+4, DQ+5, DQ+6, DQ+7, DQ+8, DQ+9, DQ+10
, DQ+17*, DQ+18*, EXIT+1!, LINE+4, LINE+6, LINE+11, LINE+13, LINE+16, LINE+18, GETLINE+1
, GETLINE+2, GETLINE+3, GETLINE+4, GETLINE+5, GETLINE+8, GETLINE+9, CREDITS+1, CREDITS+2, CREDITS+3, CREDITS+6
PSA( DQ+13*, DQ+16, DQ+17, DQ+20*, DQ+21*, LINE+26*, LINE+27*, CREDITS+6*, PRINT+2, PRINT+3
, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11
PSA1 DQ+4*, DQ+5*, DQ+6, DQ+7, DQ+8, DQ+9, DQ+10, DQ+18*, EXIT+1!, LINE+4
, LINE+6, LINE+11, LINE+13, LINE+16, LINE+18, GETLINE+1, GETLINE+2, GETLINE+3, GETLINE+4, GETLINE+5
, GETLINE+8, GETLINE+9, CREDITS+1, CREDITS+2, CREDITS+3, CREDITS+6
PSA2 DQ+8*, DQ+9, DQ+10, EXIT+1!, LINE+4, LINE+6, LINE+11, LINE+13, LINE+16, LINE+18
, GETLINE+1*, GETLINE+2, GETLINE+3, GETLINE+4, GETLINE+5, GETLINE+8, GETLINE+9
PSAACST EXIT+1!, LINE+3*, LINE+21*, LINE+22*, LINE+23
PSAAECST DQ+7*, DQ+12, DQ+17*, DQ+20, DQ+21, EXIT+1!, LINE+21*, LINE+22*, GETLINE+10*, GETLINE+11*
, CREDITS+4, CREDITS+5, CREDITS+6, PRINT+7*, PRTDLINE+1, PRTSLINE+1
PSAAVAL EXIT+1!, PRINT+11*, PRTDLINE+1, PRTDLIN1+1
PSAC EXIT+1!, CREDITS+1*, CREDITS+2, CREDITS+3
PSACRED DQ+7*, EXIT+1!, CREDITS+3*, CREDITS+5, CREDITS+6, PRINT+7*, PRTDLINE+1, PRTSLINE+1
PSADATA DQ+10*, EXIT+1!, LINE+9, LINE+10, LINE+15, LINE+22, LINE+24, LINE+26, LINE+27, GETLINE+3*
, GETLINE+6, GETLINE+11, PRINT+11*
PSADF DQ+12, EXIT+1!, CREDITS+5*, CREDITS+6, PRINT+17
PSADJ EXIT+1!, LINE+4*, LINE+5, LINE+6, LINE+11*, LINE+12, LINE+13, LINE+15, LINE+16*, LINE+17
, LINE+18, GETLINE+4*, GETLINE+5, GETLINE+6, GETLINE+8*, GETLINE+9
PSADJD EXIT+1!, LINE+3*, LINE+7*, LINE+8
PSADJP EXIT+1!, LINE+3*, LINE+11*, LINE+13*, LINE+26, GETLINE+4*, GETLINE+5*
PSADJQ EXIT+1!, LINE+3*, LINE+16*, LINE+19*, LINE+21, LINE+22, LINE+27, GETLINE+8*, GETLINE+9*, GETLINE+10
, GETLINE+11
PSADRG EXIT+1!, LINE+3*, LINE+7*, LINE+9*, LINE+25*, LINE+26, LINE+27, PRINT+11*, PRTDLINE+1, PRTDLIN1+1
PSADT EXIT+1!, LINE+1*, LINE+2
PSAFLD EXIT+1!, PRINT+10*, PRINT+11, PRTDLINE+2, PRTDLIN1+2
PSAGDF DQ+1*, DQ+14*, EXIT+1!, PRINT+20
PSAICST EXIT+1!, LINE+3*, LINE+10*, LINE+23
PSAIDF EXIT+2!, PRINT+7*, PRTDLINE+1, PRTSLINE+1
PSAIECST DQ+7*, DQ+17*, DQ+20, EXIT+2!, LINE+10*, GETLINE+3*, CREDITS+4, CREDITS+5, CREDITS+6, PRINT+7*
, PRTDLINE+1, PRTSLINE+1
PSAINV DQ+7*, DQ+16*, DQ+17, DQ+18, EXIT+2!, LINE+26, LINE+27, CREDITS+6, PRINT+6*, PRINT+7
, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRTDLINE+1, PRTSLINE+1
PSAINVDT EXIT+2!, PRINT+8*, PRTDLINE+1, PRTSLINE+1
PSAIVAL EXIT+2!, PRINT+11*, PRTDLINE+1, PRTDLIN1+1
PSAKK EXIT+2!
PSALN EXIT+2!, LINE+24*, LINE+26, LINE+27, PRINT+9*, PRINT+10, PRINT+11, PRTDLINE+1, PRTDLIN1+1
PSALSLN DQ*, EXIT+2!, PRINT+5, PRINT+19, HDRDET+9
PSAN EXIT+2!, LINE+6*, LINE+7, LINE+13*, LINE+18*, LINE+19, LINE+20, GETLINE+5*, GETLINE+9*
PSAODF DQ+4*, DQ+12*, DQ+13, DQ+14, EXIT+2!, PRINT+3*, PRINT+17
PSAOECST DQ+4*, DQ+12*, DQ+13, EXIT+2!
PSAORD DQ+4*, DQ+13, DQ+16*, DQ+17, DQ+18, DQ+20, DQ+21, EXIT+2!, LINE+26, LINE+27
, CREDITS+6, PRINT+2*, PRINT+3, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11
PSAOUT DQ+1*, DQ+2, DQ+5, DQ+8, EXIT+2!, PRINT+2, PRINT+4, PRINT+12, PRINT+14, PRINT+16
, PRINT+18, HDRDET+1, HDRSUM+1
PSAPFLD EXIT+2!, LINE+3*, LINE+14*, LINE+26
PSAPG DQ+1*, EXIT+2!, HDRDET+1, HDRDET+2, HDRDET+3*, HDRDET+6, HDRDET+9, HDRSUM+1, HDRSUM+2, HDRSUM+3*
, HDRSUM+5
PSAPRC EXIT+2!, LINE+13*, LINE+15*, LINE+21, LINE+22, GETLINE+5*, GETLINE+6*, GETLINE+10, GETLINE+11
PSAPRT EXIT+2!, PRINT+9*, PRINT+11*, PRINT+13
PSAQFLD EXIT+2!, LINE+3*, LINE+20*, LINE+27
PSAREA EXIT+2!, LINE+3*, LINE+20*, LINE+27, PRINT+11*, PRTDLINE+2, PRTDLIN1+2
PSARPDT EXIT+2!, LINE+1*, LINE+2*, HDRDET+4, HDRSUM+6
PSARPT PSACREDO+10*, EXIT+2!, PRINT+1, PRINT+4, PRINT+5, PRINT+12, PRINT+13, PRINT+14, PRINT+15, PRINT+16
, PRINT+17, PRINT+18, PRINT+19, PRINT+20
PSASLN DQ*, EXIT+2!, PRINT+19, HDRSUM+8
PSASS EXIT+2!
Y PSACREDO+10, EXIT+2!
ZTDESC DEVICE+3*, EXIT+2!
>> ZTQUEUED EXIT
>> ZTREQ EXIT*
ZTRTN DEVICE+3*, EXIT+2!
ZTSAVE EXIT+2!
ZTSAVE("PSARPT" DEVICE+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All