Routine: PSOSD

Package	Total	Call Graph
Outpatient Pharmacy	8	DEVBAR^PSOBMST STAT^PSOFUNC EN^PSOHLUP ^PSOSD0 (,DAYS)^PSOSD1 HD^PSOSD2 (,CLSG)^PSOSDP (CLINALL,CLINIC,DEV)^PSOSDRAP
VA Fileman	4	^%DT C^%DTC ^DIC ^DIR
Kernel	2	^%ZISC ^%ZTLOAD
Registration	1	$$SITE^VASITE

Package	Total	Caller Graph
Outpatient Pharmacy	4	PSO ACTION PROFILE PSOSD1 PSOSDP PSOSDRAP
Automated Information Collection System	1	IBDFN3
IHS Changes To Scheduling	1	BSDFORM

Entry Points

External References

Name	Field # of Occurrence
^%DT	CLINIC+2
C^%DTC	CLSG
^%ZISC	EXIT+6
^%ZTLOAD	CLSG+6
^DIC	CLINIC+1
^DIR	START+2, START+5, START+6, ASK+2, ASK+4
DEVBAR^PSOBMST	CLSG+3
STAT^PSOFUNC	RX1+2
EN^PSOHLUP	PAT
^PSOSD0	PAT+7
^PSOSD1	ASK+5
DAYS^PSOSD1	CLSG
HD^PSOSD2	PAT+1, PAT+4, PAT+6
^PSOSDP	PAT+5
CLSG^PSOSDP	ASK+5
CLINALL^PSOSDRAP	CLSG+9, QUE+2
CLINIC^PSOSDRAP	CLSG+8, QUE+1
DEV^PSOSDRAP	CLSG+2
$$SITE^VASITE	START

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "FOR CLINIC (TYPE 'ALL' FOR ALL CLINICS): " Formatting: !! Timeout: DTIME Variable: X Line Location: CLINIC+0
Function Call: WRITE	Prompt: !!?13,">>>> NO PRESCRIPTIONS ON FILE <<<<" Line Location: PAT+1
Function Call: WRITE	Prompt: !!?13,">>>>> NO CURRENT PRESCRIPTIONS DATA FOUND <<<<<" Line Location: PAT+4
Routine Call	DIC Line Location: CLINIC+1
Routine Call	DIR Line Location: START+2 START+5 START+6 ASK+2 ASK+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SC - [#44]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(55 - [#55]	PAT, PAT+1, PAT+3, RX
^PSDRUG - [#50]	RX1+2, RX1+3
^PSRX - [#52]	RX1, RX1+1, STORE, STORE+2, STORE+3
^TMP($J	PAT+2!, PAT+4, RX1+3, STORE+4, EXIT!

Label References

Name	Line Occurrences
ASK	START+3, START+5
CLINIC	CLINIC+1, CLINIC+2
EXIT	CLINIC, CLSG, CLSG+4, CLSG+10, QUE+3
PAT1	START+2, START+5, START+6, ASK+2, ASK+4, PAT+1, PAT+4, PAT+7
RX	PAT+3
RX1	RX
START	CLSG+4, CLSG+10, ACT+1, INFO+1
STORE	RX1+2

Naked Globals

Name	Field # of Occurrence
^("ACT"	EXIT!
^("STA"	RX1+1
^(0	RX1+2, STORE+3
^(2	RX1+1
^(3	RX1+1, STORE

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	CLINIC+2*, EXIT!
%DT("A"	CLINIC+2*
ADDR	PAT1!, EXIT!
ADDRFL	EXIT!
AL	PAT1!
APRT	CLSG+3*, EXIT+3!
BY	EXIT!
CLAPP	PAT1!, EXIT+1!
CLASS	RX1+2*, PAT1!, STORE+4, EXIT!
CLDT	EXIT!
CLINICX	PAT+5, PAT+6, EXIT+1!
>> CLSP	CLSG+10
CNDT	STORE+3*, STORE+4, STORE+5!, EXIT+1!
CS	EXIT+5!
DFN	PAT, PAT+1, PAT+2, PAT+3, RX, RX1+3, EXIT+1!
DHD	EXIT+1!
DIC	CLINIC+1*, PAT1!, EXIT+3!
DIC(0	CLINIC+1*
DIE	EXIT+3!
DIR	START+1!, START+4!, START+6!, ASK!, ASK+3!, ASK+4!, CLINIC!, PAT1!, EXIT+4!
DIR("?"	START+1, START+4, ASK, ASK+1
DIR("A"	START+1, START+4, START+6, ASK, ASK+3*
DIR("B"	START+1, START+4, START+6, ASK+1, ASK+3*
DIR(0	START+1, START+4, START+6, ASK+1, ASK+3*
DIRUT	START+2, START+5, START+6, ASK+2, ASK+3!, ASK+4, CLSG, PAT+1, PAT+7, EXIT+4!
DOD	EXIT+5!
DR	EXIT+3!
DRG	PAT1!
DRUG	RX1+2*, RX1+3, PAT1!, STORE+4, EXIT+1!
DT	CLSG
DTIME	CLINIC
DTOUT	ASK+3!, CLSG+2, EXIT+4!
DUOUT	ASK+3!, CLSG+2, EXIT+4!
DUPD	PAT1!
ELN	PAT1!
FA	PAT1!
FDATE	PAT1!
FDT	PAT1!
FILLDATE	PAT1!, STORE+2*, STORE+4
FLDS	EXIT+1!
FN	PAT1!
FR	CLINIC+1, CLINIC+2, CLSG+8, CLSG+9, EXIT+1!, QUE+1, QUE+2
G	CLSG+5*, EXIT+3!
GMRVSTR	EXIT+5!
HDFL	PAT1!, EXIT+1!
I	EXIT+1!
II	PAT1!, EXIT+1!
IO("Q"	CLSG+4, CLSG+6!
ION	CLSG+3
IOP	START+1!, CLSG+3*
>> IOS	CLSG+3
J	RX*, RX1, RX1+1, RX1+3, STORE, STORE+2, STORE+3, STORE+4, EXIT+1!
K	PAT~
L	EXIT+1!
LINE	CLSG*, EXIT+1!
LM	CLSG+6, EXIT+3!
LN	PAT1!
P	PAT1!, EXIT+1!
PAGE	EXIT+5!
PCLASS	EXIT!
PI	PAT1!
POP	EXIT+1!
PRI	PAT1!
PSDATE	CLSG*, PAT+1, EXIT+1!
PSDAYS	CLSG, STORE+1, EXIT+2!
PSDOB	PAT1!, EXIT+2!
PSDT	PAT+1, PAT+3, RX, EXIT+3!
PSIIX	STORE+3*, EXIT+2!
PSLC	PAT1!
PSNAME	EXIT+2!
PSOBAR0	CLSG+1~
PSOBAR1	CLSG+1~
PSOBAR2	EXIT+5!
PSOBAR3	EXIT+5!
PSOBAR4	EXIT+5!
PSOBARS	CLSG+1~
PSOIFSUP	PAT1!
>> PSOINST	START*
PSOION	CLSG+4!
PSOIOS	CLSG+3*, EXIT+4!
PSONUM	START+3, START+6, EXIT+4!
PSOPOL	START+3, START+5, PAT+5, RX1+3, EXIT+4!
PSOPOLP	PAT1!, EXIT+3!
PSOPRPAS	PAT1!
PSORM	ASK+4*, EXIT+3!
>> PSOSYS	START+3
PSOT	CLINIC+2*, EXIT!
PSOUT	ASK+2*, ASK+5, PAT1!, EXIT+3!
PSRENW	PAT1!
PSSN	EXIT+2!
>> PSTY	CLSG+10*
PSTYPE	START+2, START+3, CLSG, CLSG+10, EXIT+2!, ACT+1, INFO+1*
RFL	PAT1!
RSLT	CLINIC~, EXIT+4!
RX	PAT1!, EXIT+2!
RX0	RX1+1*, RX1+2, RX1+3, STORE+4, EXIT+2!
RX2	RX1+1*, EXIT+2!
RX3	RX1+1*, PAT1!, EXIT+2!
RXCNT	PAT1!
RXN	PAT1!, EXIT+2!
RXNO	RX1*, EXIT+4!
SG	PAT1!
SGC	PAT1!
ST	PAT1!, STORE+1, STORE+2, STORE+3, STORE+4, EXIT+2!
ST0	PAT1!, EXIT+2!
TO	CLINIC+1, CLINIC+2, EXIT+2!
VA	EXIT+5!
VADM	EXIT+5!
VAIN	EXIT+5!
VAPA	EXIT+5!
VAR	EXIT+2!
X	START!, ASK+4!, CLINIC!, CLINIC+1, CLSG, CLSG+10*, PAT1!, EXIT+3!
X1	CLSG*, EXIT+4!
X2	CLSG*, EXIT+4!
Y	START+2, START+5, START+6, ASK+2, ASK+4!, CLINIC!, CLINIC+1, CLINIC+2, PAT1!, EXIT+3!
Z	PAT1!
Z0	PAT1!
Z1	PAT+3*, PAT1!, EXIT+2!
Z2	PAT1!
Z3	PAT1!
Z4	PAT1!
Z5	PAT1!
ZCLASS	PAT1!
ZTDESC	CLSG+4*, EXIT+3!
ZTRTN	CLSG+4*, EXIT+3!
ZTSAVE	EXIT+3!
ZTSAVE(	CLSG+5*
ZTSAVE("DOD*"	CLSG+6*
ZTSAVE("ZTREQ"	CLSG+4*
ZTSK	CLSG+6!, EXIT+3!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOSD

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
PAT1
INFO	;
PAT		ICR #707 Status: Active Usage: Private
RX1
ACT	;
RX
START
CLINIC
EXIT
CLSG
ASK
QUE	;prints clinics when queued
STORE