Routine: PSAVER5

Information

PSAVER5 ;BIR/JMB-Verify Invoices - CONT'D ;10/6/97

Source Information

Source file <PSAVER5.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Drug Accountability	2	SITES^PSAUTL1 PHARM^PSAVER2
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Drug Accountability	2	PSAVER1 PSAVER3

Entry Points

Name	Comments	DBIA/ICR reference
NONE	;No DA pharmacy locations
GETLOC	;Gets pharmacy locations
MANY	;If more than one pharmacy location, display invoices.
SELLOC	;Select the Pharmacy Location to be assigned to the order.
ONE	;Only one location
DISPMV	;Displays active master vaults
MASTER	;Assigns invoice to Master Vault
DISPLOC	;Displays the active pharmacy locations.
CS	;Sets invoice's CONTROLLED SUBSTANCES field if a drug changed from CS to
LOCHELP	;Extended help for the select "Pharmacy Location" prompt
SELMV	;Select displayed master vaults

External References

Name	Field # of Occurrence
^DIR	SELMV+2, SELLOC+2
SITES^PSAUTL1	GETLOC+5
PHARM^PSAVER2	MASTER+8, SELMV+4, ONE+5, SELLOC+4
$$FMTE^XLFDT	MASTER+7, MASTER+9, ONE+4, MANY+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No master vaults are set up. You must set up a master vault then",!,"select the Process Uploaded Prime Vendor Invoices Data option." Line Location: MASTER+3
Function Call: WRITE	Prompt: !,"Order#: "_PSAORD_" Invoice#: "_PSAINV_" Invoice Date: "_$$FMTE^XLFDT(+PSAIN) Line Location: MASTER+9
Function Call: WRITE	Prompt: @IOF,!?22,"<<< ASSIGN A MASTER VAULT SCREEN >>>",!,PSASLN Line Location: DISPMV+1
Function Call: WRITE	Prompt: ! Line Location: DISPMV+6
Function Call: WRITE	Prompt: ! Line Location: SELMV+1
Function Call: WRITE	Prompt: !!,"There are no Drug Accountability pharmacy locations.",!!,"Use the Set Up/Edit a Pharmacy Location option on Pharmacy Location menu" Line Location: NONE+1
Function Call: WRITE	Prompt: !,"to setup one or more pharmacy locations. Then select the Process Uploaded",!,"Prime Vendor Invoice Data option to process the invoices." Line Location: NONE+2
Function Call: WRITE	Prompt: !!,"The non-controlled substance items on the invoice have",!,"been automatically assigned to the Pharmacy Location." Line Location: ONE+2
Function Call: WRITE	Prompt: !!,"Order#: "_PSAORD_" Invoice#: "_PSAINV_" Invoice Date: "_$$FMTE^XLFDT(+PSAIN) Line Location: ONE+4
Function Call: WRITE	Prompt: !,"Order#: "_PSAORD_" Invoice#: "_PSAINV_" Invoice Date: "_$$FMTE^XLFDT(+PSAIN) Line Location: MANY+1
Function Call: WRITE	Prompt: @IOF,!?19,"<<< ASSIGN A PHARMACY LOCATION SCREEN >>>",!,PSASLN Line Location: DISPLOC+1
Function Call: WRITE	Prompt: ! Line Location: DISPLOC+6
Function Call: WRITE	Prompt: ! Line Location: SELLOC+1
Function Call: WRITE	Prompt: !?5,"Enter the number of the pharmacy location for which you want to assign",!?5,"the order. The invoiced drugs in the assigned pharmacy location will be" Line Location: LOCHELP+1
Function Call: WRITE	Prompt: !?5,"incremented with the quantity received after the order is verified." Line Location: LOCHELP+2
Routine Call	DIR Line Location: SELMV+2 SELLOC+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	MASTER+1, MASTER+2, MASTER+6, GETLOC+1, GETLOC+2, GETLOC+3, GETLOC+4, GETLOC+5
^PSD(58.811 - [#58.811]	CS+2, CS+3, CS+5*, CS+6

Label References

Name	Line Occurrences
DISPLOC	MANY+1
DISPMV	MASTER+9
MANY	GETLOC+6
NONE	GETLOC+6
ONE	GETLOC+6
SELLOC	MANY+1
SELMV	MASTER+9

Naked Globals

Name	Field # of Occurrence
^(0	GETLOC+4

Local Variables

Name	Field # of Occurrence
DIR	SELMV+2!, SELLOC+1!, SELLOC+2!
DIR("?"	SELMV+1, SELLOC+1
DIR("??"	SELMV+2, SELLOC+2
DIR("A"	SELMV+1, SELLOC+1
DIR(0	SELMV+1, SELLOC+1
>> DIRUT	SELMV+2, SELLOC+2
>> DR	MASTER+8, SELMV+4, ONE+5, SELLOC+4
DT	GETLOC+3
IOF	DISPMV+1, DISPLOC+1
>> PSA	DISPMV+2, DISPMV+4, DISPMV+5, SELMV+1
>> PSA10	CS+2, CS+3, CS+4, CS+5
>> PSACNT	ONE+1, DISPLOC+2, DISPLOC+4*, DISPLOC+5, SELLOC+1
>> PSACOMB	GETLOC+5
>> PSAIEN	CS+2, CS+3, CS+5, CS+6
>> PSAIEN1	CS+2, CS+3, CS+5, CS+6
>> PSAIN	MASTER+7, MASTER+9, ONE+4, MANY+1, CS+6*
>> PSAINV	MASTER+7, MASTER+9, ONE+4, MANY+1
>> PSAISIT	GETLOC+4*, GETLOC+5
>> PSAL	CS+2*, CS+3
>> PSALOC	GETLOC+1, GETLOC+2, GETLOC+3, GETLOC+4, GETLOC+5, ONE+1, DISPLOC+3, DISPLOC+4, SELLOC+4
>> PSALOCA(	GETLOC+5*, DISPLOC+2, DISPLOC+3
>> PSALOCA(""	ONE+1
>> PSALOCN	ONE+1, ONE+3, DISPLOC+2, DISPLOC+3, DISPLOC+4, DISPLOC+5, SELLOC+4*
>> PSAMENU(	DISPLOC+4*, SELLOC+4
>> PSAMV	MASTER+1*, MASTER+2
>> PSAMV(	MASTER+2*, DISPMV+2, DISPMV+3
>> PSAMVA	DISPMV+2, DISPMV+3, DISPMV+4, DISPMV+5, SELMV+4
>> PSAMVIEN	DISPMV+3, DISPMV+4, SELMV+4
>> PSAMVN	MASTER+1, MASTER+2, MASTER+3, MASTER+4, MASTER+9
>> PSAN10	CS+2, CS+4, CS+5
>> PSANUM	GETLOC+1, GETLOC+4, GETLOC+6
>> PSAONE	GETLOC+4*, ONE+1, ONE+5
>> PSAONEMV	MASTER+2*, MASTER+6, MASTER+8
>> PSAORD	MASTER+7, MASTER+9, ONE+4, MANY+1
>> PSAOSIT	GETLOC+4*, GETLOC+5
>> PSAOUT	MASTER+3, SELMV+2, SELLOC+2*
>> PSASEL	SELMV+3, SELMV+4, SELLOC+3, SELLOC+4
>> PSASLN	DISPMV+1, DISPLOC+1
>> PSAVAULT(	DISPMV+4*, SELMV+4
>> Y	SELMV+2, SELMV+3, SELLOC+2, SELLOC+3

Customize PDF page

Package: Drug Accountability

Routine: PSAVER5

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed