Routine: PSALOC2

Package	Total	Call Graph
VA Fileman	3	XY^%RCR ^DIC ^DIE

Package	Total	Caller Graph
Drug Accountability	1	PSALOCO

Entry Points

External References

Name	Field # of Occurrence
XY^%RCR	SETUPOP+5
^DIC	INPAT, OUTPA, CMBSETUP+1
^DIE	SETUPIP+4, SETUPOP+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You will be prompted for an existing Inpatient & Outpatient location.",!,"Both types can be selected, or just one.",!! Line Location: PSALOC2+7
Function Call: WRITE	Prompt: !,"Inpatient Site : "_PSAISIT(1) Line Location: STRDATA+1
Function Call: WRITE	Prompt: !,"Outpatient Site : "_PSAOSIT(1) Line Location: STRDATA+2
Function Call: WRITE	Prompt: !,"No changes made" Line Location: STRDATA+3
Function Call: READ	Timeout: DTIME Variable: AN Line Location: DONEI+0
Function Call: WRITE	Prompt: !,"Do you want to Inactivate "_PSALOCN_" now ? YES// " Line Location: DONEI+0
Function Call: WRITE	Prompt: !,"Since your setting up a new location, there is no point in keeping this one in",!,"an active state. Answer 'Y'es to inactivate this location.",! Line Location: DONEI+1
Function Call: WRITE	Prompt: !,PSALOCN," is now inactive." Line Location: DONEI+4
Function Call: WRITE	Prompt: !,"Do you want to setup "_PSAISIT(1)_" with the same inpatient site",!,"already identified in "_PSALOCN Line Location: SETUPIP+0
Function Call: READ	Timeout: DTIME Variable: AN Line Location: SETUPIP+1
Function Call: WRITE	Prompt: " ? YES // " Line Location: SETUPIP+1
Function Call: WRITE	Prompt: !,"Answer Yes, and the inpatient site currently assigned to the Combined location",!,"will be assigned to the inpatient site." Line Location: SETUPIP+2
Function Call: WRITE	Prompt: !,"Do you want to setup "_PSAOSIT(1)_" with the same Outpatient location(s), ",!,"already defined for "_PSALOCN Line Location: SETUPOP+0
Function Call: READ	Timeout: DTIME Variable: AN Line Location: SETUPOP+1
Function Call: WRITE	Prompt: " ? YES // " Line Location: SETUPOP+1
Function Call: WRITE	Prompt: !,"Answer Yes, and the outpatient site(s) assigned to the Combined location",!,"will be assigned to the Outpatient location." Line Location: SETUPOP+2
Function Call: WRITE	Prompt: !,"Sorry, this is an inactive pharmacy location.",! Line Location: CMBSETUP+2
Function Call: READ	Timeout: DTIME Variable: AN Line Location: DRUGS+2
Function Call: WRITE	Prompt: !,"Do you want to transfer the drugs from "_PSALOCN_" to "_$P(^PSD(58.8,PSANEWL,0),"^")_" YES // " Line Location: DRUGS+2
Function Call: WRITE	Prompt: !!,"Since "_PSALOCN_" will be made inactive after setup is complete, you can",!,"transfer each drug and its balance information to the new location.",! Line Location: DRUGS+3
Function Call: WRITE	Prompt: "." Line Location: DRUGS+5
Function Call: WRITE	Prompt: !,"Drug transfer complete." Line Location: DRUGS+6
Routine Call	DIE Line Location: SETUPIP+4 SETUPOP+4
Routine Call	DIC Line Location: INPAT OUTPA CMBSETUP+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %X	SETUPOP+5*
>> %Y	SETUPOP+5*
AN	DONEI, DONEI+1!, DONEI+4, SETUPIP+1, SETUPIP+2!, SETUPIP+3, SETUPOP+1, SETUPOP+2!, SETUPOP+3, DRUGS+2 , DRUGS+3*, DRUGS+4, DRUGS+5
>> DA	SETUPIP+4, SETUPOP+4
DIC	CMBSETUP+1, SETDIC!
DIC("A"	CMBSETUP+1, SETDIC
DIC("S"	INPAT, OUTPA, CMBSETUP+1*
DIC(0	CMBSETUP+1, SETDIC
>> DIE	SETUPIP+4, SETUPOP+4
>> DIRUT	INPAT, OUTPA
>> DR	SETUPIP+4, SETUPOP+4
DT	DONEI+4
DTIME	DONEI, SETUPIP+1, SETUPOP+1, DRUGS+2
PSACNTR	PSALOC2+5!, STRDATA+1, STRDATA+2, STRDATA+4
PSAERR	PSALOC2+5!, STRDATA+7, FINISH+1, FINISH+2, SETUPIP+1, SETUPOP+1, DRUGS+2*
PSAISIT	PSALOC2+5!, INPAT*, STRDATA+3, STRDATA+5, FINISH+1, SETUPIP+4
PSAISIT(1	INPAT*, STRDATA+1, FINISH+1, SETUPIP
>> PSALOC	FINISH+1, FINISH+2, DONEI+4, DRUGS, DRUGS+1, DRUGS+5
>> PSALOCN	PSALOC2+6, DONEI, DONEI+4, SETUPIP, SETUPOP, DRUGS+2, DRUGS+3
>> PSANEWL	STRDATA+5, STRDATA+6, CMBSETUP+3, DRUGS+2, DRUGS+5
PSAOSIT	PSALOC2+5!, OUTPA*, STRDATA+3, STRDATA+5, FINISH+2, SETUPOP+4
PSAOSIT(1	OUTPA*, STRDATA+2, FINISH+2, SETUPOP
>> PSATYPE	INPAT, OUTPA, SETDIC
>> X1	DRUGS+5*
Y	INPAT, OUTPA, CMBSETUP+2!, CMBSETUP+3

Customize PDF page

Package: Drug Accountability

Routine: PSALOC2

Information

Source Information

Call Graph

Call Graph Total: 3

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:

Name	Comments	DBIA/ICR reference
DRUGS
FINISH	;done setting up location
OUTPA
STRDATA	;store data
Q
SETUPOP
INPAT
SETUPIP
DONEI
SETDIC
CMBSETUP	;Setup combined location

Name	Line Occurrences
CMBSETUP	PSALOC2+6, CMBSETUP+2
DONEI	DONEI+1
DRUGS	STRDATA+7, CMBSETUP+3, DRUGS+3
FINISH	STRDATA+4, STRDATA+6, CMBSETUP+4
Q	INPAT, OUTPA, STRDATA+3, STRDATA+7, FINISH+1, FINISH+2, DONEI, DONEI+5, CMBSETUP+2
SETDIC	INPAT, OUTPA
SETUPIP	FINISH+1, SETUPIP+2
SETUPOP	FINISH+2, SETUPOP+2
STRDATA	OUTPA+1