Routine: PSALEVEL

Information

PSALEVEL ;BIR/JMB-Enter/Edit Stock and Reorder Levels ;7/23/97

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
VA Fileman	3	^DIC ^DIE ^DIR
Drug Accountability	1	SITES^PSAUTL1

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Drug Accountability	1	PSA STOCK AND REORDER LEVELS

Entry Points

Name	Comments	DBIA/ICR reference
GETDRUG	;Gets drug levels
BEGIN
MV	;Extended help for "Select Master Vault"
ONEMV	;Assigns invoice to Master Vault
MANY	;If more than one pharmacy location, display invoices.
SETUP
PHARMKEY	;
NONE	;No DA pharmacy locations
MANYMV	;Displays active master vaults
ONE	;Only one location
MAINTAIN	;Maintain reorder levels in pharmacy location/master vault?
EXIT	;Kills variables
CHOOSE	;Selects the type of location to have the levels enter/edited.
CHO	;Extended help for "Enter/edit levels for pharmacy location or master vault."
PL	;Extended help for "Select Pharmacy Location"

External References

Name	Field # of Occurrence
^DIC	GETDRUG+2
^DIE	MAINTAIN+2, GETDRUG+5
^DIR	CHOOSE+3, MANYMV+7, MANY+7
SITES^PSAUTL1	SETUP+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You do not hold the key to enter the option." Line Location: PSALEVEL+6
Function Call: WRITE	Prompt: ! Line Location: GETDRUG+1
Function Call: WRITE	Prompt: @IOF,!?16,"<< ENTER/EDIT STOCK AND REORDER LEVELS SCREEN >>",!,PSASLN Line Location: CHOOSE+1
Function Call: WRITE	Prompt: @IOF,!?16,"<< ENTER/EDIT STOCK AND REORDER LEVELS SCREEN >>" Line Location: ONEMV+2
Function Call: WRITE	Prompt: !?31,"<< MASTER VAULT >>",!!,$P(^PSD(58.8,PSAMV,0),"^"),!,PSASLN,! Line Location: ONEMV+3
Function Call: WRITE	Prompt: @IOF,!?16,"<< ENTER/EDIT STOCK AND REORDER LEVELS SCREEN >>",!,PSASLN,! Line Location: MANYMV+1
Function Call: WRITE	Prompt: ! Line Location: MANYMV+6
Function Call: WRITE	Prompt: @IOF,!?16,"<< ENTER/EDIT STOCK AND REORDER LEVELS SCREEN >>" Line Location: MANYMV+12
Function Call: WRITE	Prompt: !?31,"<< MASTER VAULT >>",!!,$P(^PSD(58.8,PSAMV,0),"^"),!,PSASLN,! Line Location: MANYMV+13
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+2
Function Call: WRITE	Prompt: !,"to setup one or more pharmacy locations." Line Location: NONE+3
Function Call: WRITE	Prompt: @IOF,!?16,"<< ENTER/EDIT STOCK AND REORDER LEVELS SCREEN >>" Line Location: ONE+2
Function Call: WRITE	Prompt: !?31,"PHARMACY LOCATION",!! Line Location: ONE+3
Function Call: WRITE	Prompt: $P(PSALOCN,":")_" :"_$P($P(PSALOCN,":",2),"(IP)",1)_"(IP)",!?20,$P(PSALOCN,"(IP)",2) Line Location: ONE+4
Function Call: WRITE	Prompt: PSALOCN Condition for execution: $L(PSALOCN)<77 Line Location: ONE+5
Function Call: WRITE	Prompt: !,PSASLN,! Line Location: ONE+5
Function Call: WRITE	Prompt: @IOF,!?16,"<< ENTER/EDIT STOCK AND REORDER LEVELS SCREEN >>",!,PSASLN,! Line Location: MANY+1
Function Call: WRITE	Prompt: !! Line Location: MANY+6
Function Call: WRITE	Prompt: @IOF,!?16,"<< ENTER/EDIT STOCK AND REORDER LEVELS SCREEN >>" Line Location: MANY+12
Function Call: WRITE	Prompt: !?28,"<< PHARMACY LOCATION >>",!! Line Location: MANY+13
Function Call: WRITE	Prompt: $P(PSALOCN,"(IP)",1)_"(IP)",!?20,$P(PSALOCN,"(IP)",2) Line Location: MANY+14
Function Call: WRITE	Prompt: PSALOCN Condition for execution: $L(PSALOCN)<77 Line Location: MANY+15
Function Call: WRITE	Prompt: !,PSASLN,! Line Location: MANY+15
Function Call: WRITE	Prompt: !?5,"Enter P to add or edit stock and reorder levels in a pharmacy location.",!?5,"Enter M to add or edit stock and reorder levels in a master vault." Line Location: CHO+1
Function Call: WRITE	Prompt: !!?5,"After making your selection, you will be given a list of active pharmacy",!?5,"locations or master vaults from which to choose." Line Location: CHO+2
Function Call: WRITE	Prompt: !?5,"Enter the numbers of master vaults from the list. Select the ones that",!?5,"contain drugs you want to add or edit stock and reorder levels." Line Location: MV+1
Function Call: WRITE	Prompt: !?5,"Enter the numbers of pharmacy locations from the list. Select the ones that",!?5,"contain drugs you want to add or edit stock and reorder levels." Line Location: PL+1
Routine Call	DIE Line Location: MAINTAIN+2 GETDRUG+5
Routine Call	DIC Line Location: GETDRUG+2
Routine Call	DIR Line Location: CHOOSE+3 MANYMV+7 MANY+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSD(58.8 - [#58.8]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	SETUP+3, SETUP+4, SETUP+5, SETUP+6, SETUP+7, SETUP+10, SETUP+11, SETUP+12, SETUP+13, ONEMV+3 , MANYMV+13
^XUSEC("PSA ORDERS"	PSALEVEL+6
^XUSEC("PSJ RPHARM"	BEGIN+1, BEGIN+2

Label References

Name	Line Occurrences
BEGIN	BEGIN+3, MAINTAIN+4, GETDRUG+3
CHOOSE	PHARMKEY+2
EXIT	BEGIN+3, MAINTAIN+3, MAINTAIN+4, GETDRUG+2, GETDRUG+3, GETDRUG+6, NONE+4
GETDRUG	GETDRUG+7
MANY	BEGIN+2, CHOOSE+5, PHARMKEY+1
MANYMV	CHOOSE+6, PHARMKEY+3
NONE	BEGIN+1, BEGIN+2
ONE	BEGIN+2, CHOOSE+5, PHARMKEY+1
ONEMV	CHOOSE+6, PHARMKEY+3
PHARMKEY	BEGIN+1

Naked Globals

Name	Field # of Occurrence
^(0	SETUP+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	MAINTAIN+2!, GETDRUG+2!, GETDRUG+5, EXIT+1!
DA(1	GETDRUG+1, GETDRUG+5
DIC	GETDRUG+1*, GETDRUG+2!, EXIT+1!
DIC("S"	GETDRUG+1*
DIC(0	GETDRUG+1*
DIE	MAINTAIN+2!, GETDRUG+5!, EXIT+1!
DIR	CHOOSE+3!, EXIT+1!, MANYMV+7!, MANY+6!, MANY+7!
DIR("?"	MANYMV+6, MANY+6
DIR("??"	CHOOSE+2, MANYMV+6, MANY+6*
DIR("A"	CHOOSE+2, MANYMV+6, MANY+6*
DIR(0	CHOOSE+2, MANYMV+6, MANY+6*
DIRUT	CHOOSE+3, EXIT+1!, MANYMV+9, MANY+9
DR	MAINTAIN+2, GETDRUG+5, EXIT+1!
DT	SETUP+5, SETUP+12
DTOUT	MAINTAIN+3, GETDRUG+2, GETDRUG+6, EXIT+1!
DUOUT	MAINTAIN+3, GETDRUG+2, GETDRUG+6, EXIT+1!
DUZ	PSALEVEL+6, BEGIN+1, BEGIN+2
IOF	CHOOSE+1, ONEMV+2, MANYMV+1, MANYMV+12, ONE+2, MANY+1, MANY+12
PSA	MAINTAIN+1*, MAINTAIN+2, GETDRUG+1, GETDRUG+5, EXIT+1!
PSABEG	BEGIN, BEGIN+3, EXIT+1!, MANYMV+7, MANY+7*
PSACHO	CHOOSE+4*, CHOOSE+5, CHOOSE+6, EXIT+1!
PSACNT	EXIT+1!, ONE+1, MANY+2, MANY+4*, MANY+5, MANY+6
PSACOMB	SETUP+7, EXIT+1!
PSADRG	GETDRUG+4*, GETDRUG+5, EXIT+1!
PSAISIT	SETUP+6*, SETUP+7, EXIT+1!
PSAISITN	EXIT+1!
PSALOC	SETUP+2, SETUP+3, SETUP+4, SETUP+5, SETUP+6, SETUP+7, BEGIN, MAINTAIN+1, EXIT+1!, ONE+1 , MANY+3, MANY+4, MANY+11
PSALOCA	EXIT+1!
PSALOCA(	SETUP+7*, MANY+2, MANY+3
PSALOCA(""	ONE+1
PSALOCN	EXIT+1!, ONE+1, ONE+4, ONE+5, MANY+2, MANY+3, MANY+4, MANY+5, MANY+10*, MANY+11 , MANY+14, MANY+15
PSAMENU	EXIT+2!
PSAMENU(	MANY+4*, MANY+10, MANY+11
PSAMV	SETUP+9, SETUP+10, SETUP+11, SETUP+12, SETUP+13, BEGIN, MAINTAIN+1, EXIT+2!, ONEMV+1, ONEMV+3 , MANYMV+11*, MANYMV+13
PSAMV(	SETUP+13*, MANYMV+2, MANYMV+3
PSAMVA	EXIT+2!, MANYMV+2, MANYMV+3, MANYMV+4, MANYMV+5, MANYMV+11
PSAMVIEN	EXIT+2!, MANYMV+3, MANYMV+4, MANYMV+11
PSAMVNUM	SETUP+9, SETUP+13, BEGIN+1, MAINTAIN+4, GETDRUG+3, CHOOSE+6, EXIT+2!, PHARMKEY+1, PHARMKEY+3, NONE+1 , MANY+7, MANY+8
PSANUM	SETUP+2, SETUP+6, BEGIN+1, BEGIN+2, MAINTAIN+4, GETDRUG+3, CHOOSE+5, EXIT+2!, PHARMKEY+1, PHARMKEY+2 , PHARMKEY+3, MANYMV+7, MANYMV+8
PSAONE	SETUP+6*, EXIT+2!, ONE+1
PSAONEMV	SETUP+13*, EXIT+2!, ONEMV+1
PSAOSIT	SETUP+6*, SETUP+7, EXIT+2!
PSAOSITN	EXIT+2!
PSAOUT	BEGIN, BEGIN+3, CHOOSE+3, EXIT+2!, MANYMV+8, MANYMV+9, MANY+8, MANY+9
PSASEL	EXIT+2!, MANYMV+2, MANYMV+4, MANYMV+5, MANYMV+6, MANYMV+10, MANYMV+11, MANY+10, MANY+11
PSASLN	SETUP*, CHOOSE+1, EXIT+2!, ONEMV+3, MANYMV+1, MANYMV+13, ONE+5, MANY+1, MANY+15
PSAVAULT	EXIT+2!
PSAVAULT(	MANYMV+4*, MANYMV+11
X	MAINTAIN+4, EXIT+2!
Y	GETDRUG+3, GETDRUG+4, CHOOSE+4, EXIT+2!, MANYMV+7, MANYMV+8, MANYMV+10, MANY+7, MANY+8, MANY+10

Customize PDF page

Package: Drug Accountability

Routine: PSALEVEL

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: