Routine: PSAPROC8

Information

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

Source Information

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
VA Fileman	2	^DIE ^DIR

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Drug Accountability	3	PSAPROC1 PSAPROC6 PSAPROC9

Entry Points

Name	Comments	DBIA/ICR reference
OK	;
PRICE	;Price per Order Unit changed
REORD	;Extended help for 'Reorder level'
PRICEOU	;Extended help to 'Is invoice's price per order unit correct'
DUOUYN	;Extended help to enter dispense units per order units
STKLEVEL	;Extended help for 'Stock level'
DISPYN	;Extended help to enter dispense units
DU	;Prompts Dispense Unit if blank
DUOU	;Gets Dispense Units per Order Unit
REORDER	;Enter reorder level for drug if the field is blank.
STOCK	;Enter stock level for drug if the field is blank.

Name	Field # of Occurrence
^DIE	DU+2, DU+5, DUOU+4
^DIR	DU+10, DUOU+11, PRICE+5, REORDER+5, STOCK+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"The dispense units must be entered to change",!,"the status of the invoice to Processed." Line Location: DU+8
Function Call: WRITE	Prompt: !!,"Price per Order Unit -- Invoice's: $"_$J($FN($P(^XTMP("PSAPV",PSACTRL,"IT",PSALINE),"^",3),",",2),PSAJUST,2),!?24,"File's : $"_$J($FN($P($G(^PSDRUG(PSAIEN,1,PSASUB,0)),"^",6),",",2),PSAJUST,2),! Line Location: PRICE+3
Function Call: WRITE	Prompt: !?5,"Enter Yes if you want to enter the dispense units now.",!!?5,"Enter No to bypass entering the dispense units. The invoice will not",!?5,"be placed in a Processed status if the dispense units are not entered." Line Location: DISPYN+1
Function Call: WRITE	Prompt: !?5,"Enter Yes if you want to enter the dispense units per order unit now.",!!?5,"Enter No to bypass entering the dispense units per order unit. The" Line Location: DUOUYN+1
Function Call: WRITE	Prompt: !?5,"invoice will not be placed in a "_$S($D(PSABEFOR):"Verified",1:"Processed")_" status if the dispense units",!?5,"are not entered." Line Location: DUOUYN+2
Function Call: WRITE	Prompt: !?5,"Enter Yes if the invoice's price per order unit is correct. The",!?5,"invoice's price per order unit will be entered into the DRUG file." Line Location: PRICEOU+1
Function Call: WRITE	Prompt: !!?5,"Enter No if the invoice's price per order unit is not correct.",!?5,"The DRUG file's price per order unit will remain the same." Line Location: PRICEOU+2
Function Call: WRITE	Prompt: !?5,"Enter the lowest amount of "_$P($G(^PSDRUG(PSAIEN,660)),"^",8)_"s to keep in the "_$S($P(PSADATA,"^",19)="CS":"master vault",1:"pharmacy location")_"." Line Location: REORD+1
Function Call: WRITE	Prompt: !!?5,"When the amount on hand is lower than the reorder level, a mail",!?5,"message will be sent showing the drug name, reorder level, and",!?5,"quantity on hand." Line Location: REORD+2
Function Call: WRITE	Prompt: !?5,"Enter the ideal number of dispense units to keep on the shelf. When the",!?5,"number of dispense units is equal to or less than the reorder level, the" Line Location: STKLEVEL+1
Function Call: WRITE	Prompt: !?5,"amount to order is determined by subtracting the current number of dispense",!?5,"units from the stock level." Line Location: STKLEVEL+2
Routine Call	DIE Line Location: DU+2 DU+5 DUOU+4
Routine Call	DIR Line Location: DU+10 DUOU+11 PRICE+5 REORDER+5 STOCK+5

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(51.5 - [#51.5]	DUOU+9
^PSD(58.8 - [#58.8]	REORDER+2, REORDER+4, STOCK+2, STOCK+4
^PSDRUG - [#50]	DU+1, DU+2, DU+3, DU+4, DU+5, DU+6, DUOU+1, DUOU+3, DUOU+4, DUOU+6 , DUOU+9, PRICE+1, PRICE+3, PRICE+7, REORDER+1, STOCK+1, REORD+1
^XTMP("PSAPV"	OK+1, PRICE+1, PRICE+3, PRICE+4, PRICE+6, PRICE+7, REORDER+6, STOCK+7

Name	Line Occurrences
DU	DU+3, DU+11
DUOU	DUOU+12

Name	Field # of Occurrence
^(	PRICE+7*
^("IN"	OK+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	DU+2, DU+5, DUOU+4*
>> DA(1	DUOU+4*
DIE	DU+2!, DU+5!, DUOU+4*!
DIR	DU+10!, DUOU+11!, PRICE+5!, REORDER+5!, STOCK+5!
DIR("?"	DU+9, DUOU+9, DUOU+10, PRICE+4, PRICE+5, REORDER+3, STOCK+3*
DIR("??"	DU+10, DUOU+10, PRICE+5, REORDER+3, STOCK+3*
DIR("A"	DU+9, DUOU+8, PRICE+4, REORDER+2, STOCK+2*
DIR("B"	DU+9, DUOU+8, PRICE+4, REORDER+4, STOCK+4*
DIR(0	DU+9, DUOU+8, PRICE+4, REORDER+2, STOCK+2*
>> DIRUT	DU+10, PRICE+5, STOCK+6
>> DR	DU+2, DU+5, DUOU+4*
DT	PRICE+7
>> DTOUT	DUOU+5, DUOU+11, REORDER+5, STOCK+5
>> DUOUT	DUOU+11, REORDER+5, STOCK+5
DUZ	PRICE+7
>> PSABEFOR	DUOUYN+2
>> PSACNTOK	OK+1*
>> PSACTRL	OK+1, PRICE+1, PRICE+3, PRICE+4, PRICE+6, PRICE+7, REORDER+6, STOCK+7
>> PSADATA	DUOU+9, REORDER+3, REORDER+4, STOCK+4, REORD+1
>> PSADU	DU+6, DUOU+1, DUOU+2, REORDER+1, REORDER+2, STOCK+1, STOCK+2
>> PSAFPR	PRICE+1*, PRICE+2
>> PSAIEN	DU+1, DU+2, DU+3, DU+4, DU+5, DU+6, DUOU+1, DUOU+3, DUOU+4, DUOU+6 , DUOU+9, PRICE+1, PRICE+3, PRICE+7, REORDER+1, REORDER+4, STOCK+1, STOCK+4, REORD+1
>> PSAIPR	PRICE+1*, PRICE+2
>> PSAJUST	PRICE+2*, PRICE+3
>> PSALINE	PRICE+1, PRICE+3, PRICE+4, PRICE+6, PRICE+7, REORDER+6, STOCK+7
>> PSALOC	REORDER+2, REORDER+4, STOCK+2, STOCK+4
>> PSAOK(	OK+1*
>> PSAOUT	DU+10, DUOU+5, DUOU+11, PRICE+5, REORDER+5, STOCK+5
>> PSASUB	DUOU+4, DUOU+6, PRICE+1, PRICE+3, PRICE+7
>> Y	DU+11, DUOU+5, DUOU+12, PRICE+6, PRICE+7, REORDER+6, STOCK+7

Customize PDF page

Package: Drug Accountability

Routine: PSAPROC8

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: