Routine: PSAPROC3

Information

PSAPROC3 ;BIR/JMB-Process Uploaded Prime Vendor Invoice Data - CONT'D ;7/23/97

Source Information

Source file <PSAPROC3.m>

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Drug Accountability	4	PSAPROC1 PSAPROC2 PSAPROC6 PSAPROC9

Entry Points

Name	Comments	DBIA/ICR reference
DUOUHELP	;Extended help for entering dispense units per order unit
PRICEHLP	;Extended help for price per order unit
PRICE	;If price per order unit is blank or 0, get price from user.
RECHELP	;Extended help to 'Date Received'
RECD	;Enter the date the invoiced drugs were received.
QTY	;If qty is blank, prompt for it.
OUHELP	;Extended help for selecting the Order Unit
GETOU	;Get the Order Unit if it is blank or if it is not in the ORDER UNIT file.
SETLINE	;Set line as process if all data is present.
QTYHELP	;Extended help for quantity delivered
NDCHELP	;Extended help for selecting invoiced drug
DUOU	;Gets & stores dispense unit per order unit in XTMP
OUYN	;Extended help for returning to the 'ORDER UNIT' prompt.
ADJREA	;Extended help for 'qty adjustment reason'

External References

Name	Field # of Occurrence
^DIR	DUOU+6, DUOU+12, GETOU+3, GETOU+12, PRICE+3, QTY+3, QTY+6, RECD+2
$$FMTE^XLFDT	RECD+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"The dispense units per order unit must be entered",!,"to change the status of the invoice to Processed." Line Location: DUOU+9
Function Call: WRITE	Prompt: !,"The order unit must be entered to change",!,"the status of the invoice to Processed.",! Line Location: GETOU+9
Function Call: WRITE	Prompt: !?5,"Enter why you changed the quantity.",!?5,"For example: 2 bottles were broken.",!?5," Package contained only 11 tubes." Line Location: ADJREA+1
Function Call: WRITE	Prompt: !?5,"Enter the number of dispense units contained in the order unit.",!!?5,"For example: Dispense Units: TAB",!?18,"Order Unit : CS" Line Location: DUOUHELP+1
Function Call: WRITE	Prompt: !!?18,"The case contains 12 bottles of 1,000 tablets",!?18,"12 x 1,000 = 12,000",!?18,"DISPENSE UNITS PER ORDER UNIT: 12,000" Line Location: DUOUHELP+2
Function Call: WRITE	Prompt: !?5,"Enter the number to the left of the invoiced drug. If you select a drug",!?5,"from the list, the invoiced drug will be matched to that drug. If you" Line Location: NDCHELP+1
Function Call: WRITE	Prompt: !?5,"choose to select another drug, you can select the invoiced drug from the",!?5,"DRUG file or flag this item as a supply item." Line Location: NDCHELP+2
Function Call: WRITE	Prompt: !?5,"Enter the packaging unit for which the drug was ordered." Line Location: OUHELP+1
Function Call: WRITE	Prompt: !?5,"Enter Yes if you want to enter the order unit now.",!?5,"Enter No to bypass entering the order unit." Line Location: OUYN+1
Function Call: WRITE	Prompt: !!?5,"The invoice will not be placed in a Processed",!?5,"status if the order units are not entered." Line Location: OUYN+2
Function Call: WRITE	Prompt: !?5,"If the price per order unit is not zero, enter the correct price. ",!?5,"The total cost for the item will be adjusted. If it is zero, press ",!?5,"the return key to verify that zero is the correct price." Line Location: PRICEHLP+1
Function Call: WRITE	Prompt: !?5,"If the quantity received is different than the quantity",!?5,"displayed, enter the correct quantity you received. The",!?5,"total cost for the item will be adjusted." Line Location: QTYHELP+1
Function Call: WRITE	Prompt: !?5,"Enter the date the drugs were received. The date the prime vendor",!?5,"said the drugs were delivered and the date you say the drugs were",!?5,"received will be retained." Line Location: RECHELP+1
Routine Call	DIR Line Location: DUOU+6 DUOU+12 GETOU+3 GETOU+12 PRICE+3 QTY+3 QTY+6 RECD+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(51.5 - [#51.5]	GETOU+2
^PSDRUG - [#50]	DUOU+1, GETOU+2, SETLINE+4, SETLINE+7, SETLINE+8
^XTMP("PSAPV"	DUOU+7, GETOU+7, PRICE+5, QTY+7, RECD+3, SETLINE+1, SETLINE+2, SETLINE+4, SETLINE+5, SETLINE+6 , SETLINE+9*

Label References

Name	Line Occurrences
DUOU	DUOU+13
GETOU	GETOU+14

Naked Globals

Name	Field # of Occurrence
^(	DUOU+7, GETOU+7, PRICE+5, QTY+7*
^("IN"	SETLINE+9

Local Variables

Name	Field # of Occurrence
DIR	DUOU+6!, DUOU+12!, GETOU+3!, GETOU+12!, PRICE+3!, QTY+3!, QTY+6!, RECD+2!
DIR("?"	DUOU+5, DUOU+11, GETOU+1, GETOU+11, PRICE+2, QTY+2, QTY+5, RECD+1
DIR("??"	DUOU+5, DUOU+12, GETOU+1, GETOU+11, PRICE+3, QTY+2, QTY+5, RECD+1
DIR("A"	DUOU+5, DUOU+10, GETOU+1, GETOU+10, PRICE+1, QTY+1, QTY+5, RECD+1
DIR("B"	DUOU+10, GETOU+2, GETOU+10, PRICE+1, QTY+1, RECD+1
DIR(0	DUOU+5, DUOU+10, GETOU+1, GETOU+10, PRICE+1, QTY+1, QTY+5, RECD+1
>> DIRUT	GETOU+3, QTY+3, QTY+6, RECD+2
DT	GETOU+7, PRICE+5, QTY+7
>> DTOUT	DUOU+6, DUOU+12, GETOU+12, PRICE+3
>> DUOUT	DUOU+6, DUOU+12, GETOU+12, PRICE+3
DUZ	GETOU+7, PRICE+5, QTY+7
>> PSACTRL	DUOU+7, GETOU+7, PRICE+5, QTY+7, RECD+3, SETLINE+1, SETLINE+2, SETLINE+4, SETLINE+5, SETLINE+6 , SETLINE+9
>> PSADATA	DUOU+7, GETOU+2, GETOU+7, PRICE+4, PRICE+5, QTY+1, QTY+4, QTY+7, SETLINE+1, SETLINE+3 , SETLINE+6, SETLINE+7, SETLINE+8
>> PSADJQTY	QTY+4*, QTY+7
>> PSADU	DUOU+1, DUOU+2*
>> PSAIEN	DUOU+1, GETOU+2, SETLINE+3*, SETLINE+4, SETLINE+7, SETLINE+8
>> PSAIN	RECD+3, SETLINE+1, SETLINE+6, SETLINE+9*
>> PSALINE	DUOU+7, GETOU+7, PRICE+5, QTY+7, SETLINE+1, SETLINE+2, SETLINE+4, SETLINE+5, SETLINE+6, SETLINE+9
>> PSALINES	SETLINE+2, SETLINE+9
>> PSALLSUP	SETLINE+2*
>> PSALOC	SETLINE+6*
>> PSAOUT	DUOU+6, DUOU+12, GETOU+3, GETOU+12, PRICE+3, QTY+3, QTY+6, RECD+2
>> PSARECD	RECD+1
>> PSASUB	SETLINE+3*, SETLINE+8
>> Y	DUOU+7, DUOU+13, GETOU+7, GETOU+13, GETOU+14, PRICE+4, PRICE+5, QTY+4, QTY+7, RECD+3

Customize PDF page

Package: Drug Accountability

Routine: PSAPROC3

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed