Routine: PSOB

Package	Total	Call Graph
VA Fileman	4	^DIC $$GET1^DIQ EN^DIQ1 ^DIR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Outpatient Pharmacy	1	(,LASK)^PSOLSET

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSO B PSOB

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	SET+2
^%ZISC	END
^%ZTLOAD	SET+12
^DIC	PT, RX1, RX1+1, RX2
$$GET1^DIQ	PSOB+6
EN^DIQ1	SET+1, SET+6
^DIR	PSOB+8
^PSOLSET	PSOB+2
LASK^PSOLSET	SET+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"THE LABEL/PROFILE MONITOR LIST IS EMPTY.",!! Line Location: PSOB+5
Function Call: WRITE	Prompt: !!,"THE ENDING RX# DOES NOT FOLLOW THE BEGINNING RX#. PLEASE TRY AGAIN.",!!! Line Location: RX2+2
Function Call: WRITE	Prompt: $C(7),!,"Output MUST be sent to a printer !!",! Line Location: SET+4
Function Call: WRITE	Prompt: !,"Task Queued #"_ZTSK_" !!",! Line Location: SET+12
Function Call: READ	Timeout: DTIME Variable: X Line Location: RX05+0
Function Call: WRITE	Prompt: !!,"???" Line Location: RX05+1
Function Call: WRITE	Prompt: !! Line Location: LIST+0
Function Call: WRITE	Prompt: !,?5,I-1," ",$P(PSOB,"^",I) Line Location: LIST+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: RL+0
Function Call: WRITE	Prompt: !,"CHOOSE 1-",I-2," : " Line Location: RL+0
Routine Call	DIC Line Location: PT RX1 RX1+1 RX2
Routine Call	DIR Line Location: PSOB+8
Routine Call	%ZIS Line Location: SET+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^%ZIS(2 - [#3.2]	Classic Fileman Calls
^%ZIS(1 - [#3.5]	Classic Fileman Calls
^PS(52.9 - [#52.9]	Classic Fileman Calls
^PS(59 - [#59]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	RX05
^PS(52.9 - [#52.9]	PSOB+5, RX2+1, RX08, RX08+1, RX08+2, RX08+3, RX08+4, RX05+2
^PSRX - [#52]	RX08+3
^PSRX("B"	RX08, RX05+2

Label References

Name	Line Occurrences
END	PT, RX1, RX1+1, RX1+3, RX2, SET+3
LIST	RX05+1
RL	RL
RX05	RX05+1
RX08	RX1+2, RX1+3, RX2+2
RX1	RX1, RX1+1, RX2+2
RX2	RX2+2
SET	RX2+1, SET+4

Naked Globals

Name	Field # of Occurrence
^(	RX08+1, RX08+3
^(0	RX08+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	SET+1!, SET+2*, SET+3!, END!
%ZIS("A"	SET+2*
%ZIS("B"	SET+2*
CC	PSOB+3*, END!
DA	SET+1, SET+2, SET+5, SET+7, SET+8, END!
DA(1	RX1+1*
DIC	PT!, RX1!, RX1+1, RX1+2!, RX2, SET+1, SET+6, END!
DIC("A"	PT, RX1, RX1+1, RX2
DIC("S"	RX2*!
DIC(0	PT, RX1, RX1+1, RX2
DIQ	SET+1, SET+6, END!
DIQ(0	SET+1, SET+2, SET+6, SET+7, SET+8, END!
DIR	PSOB+7!, PSOB+8!
DIR("A"	PSOB+7*
DIR("B"	PSOB+7*
DIR(0	PSOB+7*
DIRUT	PSOB+7!, PSOB+8!
DPTR	END!
DPTR(	SET+2
DPTRS	SET+2*, END!
DPTRS1	END!
DPTRS1(	SET+7, SET+8
DR	SET+1, SET+6, END!
DTIME	RX05, RL
DUZ	PSOB+3
I	END!, RX08+3, LIST, RL
ION	SET+5
IOP	END!
IOS	SET~, SET+5
IOST	SET+4
IOST(0	SET+5
>> PDUZ	PSOB+3*
POP	SET+3, END!
PSOB	END!, RX08+3*, RX08+4, RX05+1, LIST, RL
PSOBAR0	SET~, SET+7*, SET+9
PSOBAR1	SET~, SET+8*, SET+9
PSOBARS	SET~, SET+9*
PSOBFLAG	SET+9*!
PSOBIO	PT*, RX2+1, END!, RX08, RX08+1, RX08+2, RX08+3, RX08+4, RX05+2
PSOBOUT	PSOB+3, RX1+1, RX1+3, END!, RX05
PSOBPT	PT*, RX1+2, SET+1, END!
PSOBR	RX1+2, RX1+3, RX2+2, END!, RX08, RX08+1, RX08+2, RX08+3, RX08+4, RX08+5* , RX05+2*
PSOBR1	RX1+2, RX1+3, RX2+2, END!
PSOBR2	RX2+1, RX2+2, END!, RX08+1
PSOBRX	END!, RX08, RX08+1
>> PSOBY	RX1*, RX1+2
>> PSOCLC	PSOB+3*
PSODISP	PSOB+4~, PSOB+9*
PSODPT	RX1*, RX1+2, END!
PSODPT(0	RX1*, RX1+2
>> PSOIOS	SET+1, SET+2, SET+5
PSOIS	SET+2*, END!
>> PSOPAR	PSOB+2, PSOB+6, SET+9
>> PSOSITE	PSOB+6
U	RX05+1
X	RX1, RX1+1, RX2, RX2+1, END!, RX08, RX05, RX05+1, RX05+2, RL
Y	PSOB+9, PT, RX1, RX1+1, RX1+2, RX1+3, RX2+2, END!, RX08
Y(0	PT, RX1, RX1+2*, RX08, RX08+5, RX05
>> ZTDESC	SET+10*
>> ZTDTH	SET+10*
>> ZTIO	SET+5*
>> ZTRTN	SET+10*
>> ZTSAVE("CC"	SET+10*
>> ZTSAVE("PDUZ"	SET+10*
>> ZTSAVE("PSOBAR0"	SET+11*
>> ZTSAVE("PSOBAR1"	SET+11*
>> ZTSAVE("PSOBARS"	SET+11*
>> ZTSAVE("PSOBIO"	SET+10*
>> ZTSAVE("PSOBR1"	SET+10*
>> ZTSAVE("PSOBR2"	SET+10*
>> ZTSAVE("PSODISP"	SET+11*
>> ZTSAVE("PSODIV"	SET+10*
>> ZTSAVE("PSOIOS"	SET+11*
>> ZTSAVE("PSOPAR"	SET+10*
>> ZTSAVE("PSOSITE"	SET+10*
>> ZTSAVE("PSOSYS"	SET+11*
ZTSK	SET+1!, SET+12, END!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOB

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: