Routine: PSACREDO

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

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*

Customize PDF page

Package: Drug Accountability

Routine: PSACREDO

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: