Routine: PSALOC

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

Package	Total	Caller Graph
Drug Accountability	1	PSALOCO

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;Displays the available pharmacy locations.
HDR
NEWNM
ONE	;only one
ADD	;add locations
EXIT	;Kills all variables except PSALOC array & PSAOUT
ORDER	;If more than one pharmacy location, collect them in alpha order.
SELECT

External References

Name	Field # of Occurrence
FILE^DICN	NEWNM+13
^DIE	NEWNM+13
^DIR	SELECT+3, ADD+3
SITES^PSAUTL1	ORDER+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"No Drug Accountability location has been created yet." Line Location: PSALOC+8
Function Call: WRITE	Prompt: ! Line Location: ORDER+1
Function Call: WRITE	Prompt: !,"There are no Drug Accountability pharmacy locations with data." Line Location: ONE+2
Function Call: WRITE	Prompt: !,?50,$P($G(^PS(59,$P(DATA,"^",X3),0)),"^") Line Location: DISP+6
Function Call: WRITE	Prompt: !,"*** INACTIVE ***" Line Location: DISP+7
Function Call: WRITE	Prompt: !,$J(PSACNT,2),?5,"New Pharmacy Location",! Line Location: DISP+8
Function Call: WRITE	Prompt: !,"New location set-up" Line Location: ADD+1
Function Call: WRITE	Prompt: !,"bye" Line Location: ADD+3
Function Call: WRITE	Prompt: !,"There is at least one entry setup with this name. Could we expand the name ?",!,"Something like "_PSALOCN_" (WEST WING) ?" Line Location: ADD+4
Function Call: WRITE	Prompt: !,"Sorry that is what I have already" Line Location: NEWNM+3
Function Call: READ	Timeout: DTIME Variable: AN Line Location: NEWNM+6
Function Call: WRITE	Prompt: "sorry, this one exists" Line Location: NEWNM+10
Function Call: WRITE	Prompt: @IOF,?20,"<<<<< PHARMACY LOCATION SETUP SCREEN >>>>> ",!!,"LOCATION TYPES : INPATIENT, OUTPATIENT & COMBINED (IP/OP)",!!,"#",?5,"LOCATION ",?25,"INPATIENT SITE",?50,"OUTPATIENT SITE(s)",! Line Location: HDR+0
Function Call: WRITE	Prompt: "=" Line Location: HDR+0
Routine Call	DIE Line Location: NEWNM+13
Routine Call	DIR Line Location: SELECT+3 ADD+3

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)
^PS(59 - [#59]	DISP+5, DISP+6
^PS(59.4 - [#59.4]	DISP+5
^PSD(58.8 - [#58.8]	PSALOC+7, ORDER+2, ORDER+3, ORDER+4, ORDER+8, ORDER+10, ONE+2, ADD+4, NEWNM+9, NEWNM+10 , NEWNM+12

Label References

Name	Line Occurrences
ADD	PSALOC+8, ORDER+11
DISP	ORDER+12, ORDER+13
EXIT	ONE+4, SELECT+3, ADD+3, NEWNM+11
HDR	PSALOC+9

Naked Globals

Name	Field # of Occurrence
^(0	ORDER+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AN	EXIT+1!, NEWNM+2, NEWNM+3, NEWNM+4, NEWNM+5, NEWNM+6, NEWNM+7, NEWNM+8, NEWNM+9, NEWNM+10
AN1	EXIT+1!, NEWNM+1*, NEWNM+2
CNT	EXIT+1!
CNT1	EXIT+1!
CNT2	EXIT+1!
DA	EXIT+1!, NEWNM+13!*
DATA	DISP+5*, DISP+6, EXIT+1!
DIC	EXIT+1!, NEWNM+13*!
DIC(0	NEWNM+13*
DIE	EXIT+1!, NEWNM+13*!
DIR	SELECT+3!, EXIT+1!
DIR("?"	SELECT+2, ADD+2
DIR("??"	SELECT, ADD+2
DIR("A"	SELECT, ADD+2
DIR(0	SELECT, ADD+2
>> DIRUT	ADD+3
>> DLAYGO	NEWNM+13*
DR	NEWNM+13*!
DT	ORDER+4
DTIME	NEWNM+1, NEWNM+6
>> DUOUT	ADD+3
IOF	HDR
IOM	HDR
PSA	EXIT+1!
PSAB	EXIT+1!
PSAC	EXIT+1!
PSACHK	ORDER+11*, EXIT+1!
>> PSACNT	ORDER+1, ORDER+7, ORDER+12, DISP+1, DISP+4, DISP+5, SELECT
PSACOMB	EXIT+1!
PSADEL	EXIT+1!
PSADRUG	EXIT+1!
PSADT	EXIT+1!
PSAERR	EXIT+1!
PSAI	EXIT+1!
PSAII	EXIT+1!
PSAINV	EXIT+1!
PSAIPS	EXIT+1!
PSAISIT	ORDER+6!, EXIT+1!
PSAISITN	EXIT+1!
PSAIT	EXIT+2!
PSAITY	SELECT+6, EXIT+2!, ADD+4
PSAIV	EXIT+2!
PSAIVCHG	EXIT+2!
PSAIVLOC	EXIT+2!
PSALEN	EXIT+2!
PSALOC	PSALOC+6!, PSALOC+7, PSALOC+8, ORDER+1, ORDER+2, ORDER+3, ORDER+4, ORDER+7, ORDER+8, ORDER+10 , ONE+1, ONE+2, ONE+3, DISP+3, DISP+4, DISP+5, SELECT+1!, SELECT+6, EXIT+2!, NEWNM+13
PSALOCA	PSALOC+6!, EXIT+2!
PSALOCA(	ORDER+8, ORDER+10, ONE+3, DISP+2, DISP+3, DISP+4
PSALOCA(""	ORDER+11
PSALOCI	EXIT+2!
PSALOCN	ONE+3, DISP+1, DISP+2, DISP+3, DISP+4, DISP+5, SELECT+6, EXIT+2!, ADD+4, NEWNM+2 , NEWNM+3, NEWNM+5, NEWNM+12, NEWNM+13
PSAMNU	PSALOC+6!, EXIT+2!
PSAMNU(	DISP+4*, DISP+5, SELECT+6
PSANEW	EXIT+2!, NEWNM+9, NEWNM+12, NEWNM+13
PSANLN	EXIT+2!
PSANLN1	EXIT+2!
PSANLN2	EXIT+2!
PSANOW	EXIT+2!
PSANUM	SELECT+4*, EXIT+2!
PSAO	EXIT+2!
PSAOC	EXIT+2!
PSAOK	EXIT+2!
PSAONE	ORDER+7*, ONE+1, EXIT+2!
PSAOP	EXIT+2!
PSAOSIT	ORDER+6!, EXIT+2!
PSAOSITN	EXIT+2!
PSAOU	EXIT+2!
PSAOUT	SELECT+3, EXIT+2!, NEWNM+1, NEWNM+3, NEWNM+6, NEWNM+8, NEWNM+10, NEWNM+11
PSAPVMEN	EXIT+2!
PSAQTY	EXIT+3!
PSASL	EXIT+3!
PSASTO	EXIT+3!
PSAT	EXIT+3!
PSATYP	EXIT+3!
PSAWARD	EXIT+3!
PSAY	EXIT+3!
X	EXIT+3!, NEWNM+13, HDR
X2	ORDER+10*, EXIT+3!
X3	DISP+6*, EXIT+3!
XX	EXIT+3!
Y	SELECT+3, SELECT+4, SELECT+6, EXIT+3!, ADD+4, NEWNM+13
Y(0	ADD+4

Customize PDF page

Package: Drug Accountability

Routine: PSALOC

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: