Routine: PSALOC1

Package	Total	Call Graph
MailMan	1	($$DM,$$MG)^XMBGRP
VA Fileman	1	^DIC

Package	Total	Caller Graph
Drug Accountability	1	PSALOCO

Entry Points

Name	Comments	DBIA/ICR reference
MEMBER
Q
PSAHLP10	;
1
ACTION
PSAHLP9	;
PSAHLP8	;
MEMASK
PSAHLP3	;
PSAHLP2	;
PSASETUP	;Setup mail message recipients
PSAHLP7	;
PSAHLP6	;
PSAHLP5	;
PSAHLP4	;

External References

Name	Field # of Occurrence
^DIC	PSASETUP+1, PSASETUP+2, MEMASK
$$DM^XMBGRP	ACTION+2
$$MG^XMBGRP	ACTION+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This option lets you change the location type. For example: Inpatient and",!,"Outpatient locations can be changed to a Combined (IP/OP) location." Line Location: PSALOC1+2
Function Call: WRITE	Prompt: !,"Combined (IP/OP) locations, can be changed to either an Inpatient Location",!,"an Outpatient location, or BOTH.",! Line Location: PSALOC1+3
Function Call: WRITE	Prompt: !,"An Inpatient site is required to allow linking of IV rooms to the location." Line Location: PSAHLP3+1
Function Call: WRITE	Prompt: !,^DD(58.8,20,3),! Line Location: PSAHLP4+1
Function Call: WRITE	Prompt: !,^DD(58.8,20,21,X,0) Line Location: PSAHLP4+1
Function Call: WRITE	Prompt: !,^DD(58.831,.01,3) Line Location: PSAHLP5+1
Function Call: WRITE	Prompt: ! Line Location: PSAHLP5+1
Function Call: WRITE	Prompt: ! Line Location: PSAHLP5+1
Function Call: WRITE	Prompt: !,^DD(58.842,.01,3) Line Location: PSAHLP6+1
Function Call: WRITE	Prompt: ! Line Location: PSAHLP6+1
Function Call: WRITE	Prompt: ! Line Location: PSAHLP6+1
Function Call: WRITE	Prompt: !,"This option allows editting of a location's inactivation date.",! Line Location: PSAHLP7+1
Function Call: WRITE	Prompt: !,"The Enter/Edit a Drug option adds a new drug to the pharmacy location.",!,"It also displays the balance of an existing drug." Line Location: PSAHLP8+1
Function Call: WRITE	Prompt: !,"This option sets up a flag on a pharmacy location or master vault to maintain",!,"the stock and reorder levels or removes the flag.",! Line Location: PSAHLP9+1
Function Call: WRITE	Prompt: !,"This option allows the re-activation of an inactive pharmacy location.",! Line Location: PSAHLP10+1
Function Call: WRITE	Prompt: !,"Currently, any user who holds the 'PSA ORDERS' key, receives the mail message",!,"'Drug Balances Below Reorder Level' & 'NDC/PRICE change messages'." Line Location: PSASETUP+4
Function Call: WRITE	Prompt: !,"Two mail groups have been established to determine who receives the message.",! Line Location: PSASETUP+5
Function Call: WRITE	Prompt: !,"Members added to the mail group must first possess the 'PSA ORDERS' key.",! Line Location: PSASETUP+6
Function Call: READ	Timeout: DTIME Variable: AN Line Location: MEMBER+0
Function Call: WRITE	Prompt: !,"Do you want to edit the users for the "_PSAGRP_" mail group? YES//" Line Location: MEMBER+0
Function Call: WRITE	Prompt: !,"Answer 'Y'es and you will be able to edit the members of this mailgroup." Line Location: MEMBER+1
Function Call: READ	Prompt: "Select 'A' to Add the user or 'D' to delete the user. ADD//" Formatting: ! Timeout: DTIME Variable: AN Line Location: ACTION+0
Function Call: WRITE	Prompt: !,"Enter a 'D' and if the user is already a member of the group, they'll be deleted." Line Location: ACTION+0
Function Call: WRITE	Prompt: !,"Sorry, couldn't perform action." Line Location: ACTION+3
Function Call: WRITE	Prompt: !,"task completed." Line Location: ACTION+4
Routine Call	DIC Line Location: PSASETUP+1 PSASETUP+2 MEMASK

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^XMB(3.8 - [#3.8]	Classic Fileman Calls

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AN	MEMBER, MEMBER+1!, MEMBER+2, ACTION!, ACTION+1, ACTION+2
>> DIC	PSASETUP+1, PSASETUP+2, MEMASK*
>> DIC("S"	MEMASK*
>> DIC(0	MEMASK*
DTIME	MEMBER, ACTION
DUZ	ACTION+1
>> PSAGRP	1, 1+1, MEMBER, ACTION+1, ACTION+2
>> PSAREORD	PSASETUP+1*
>> PSAREORD(1	PSASETUP+1*
>> PSAUPDT	PSASETUP+2*
>> PSAUPDT(1	PSASETUP+2*
>> X	PSAHLP4+1, PSAHLP5+1, PSAHLP6+1, PSASETUP+1, PSASETUP+2*
>> X5	ACTION+1, ACTION+2, ACTION+3
XMY	PSASETUP+3!, MEMASK+1!, ACTION+1, ACTION+2
XMY(	MEMASK+1*
>> Y	PSASETUP+1, PSASETUP+2, MEMASK, MEMASK+1

Customize PDF page

Package: Drug Accountability

Routine: PSALOC1

Information

Source Information

Call Graph

Call Graph Total: 2

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

Local Variables

Legend: