Routine: PSOB

Information

PSOB ;BHAM ISC/CCG - black line resolver ; 07/18/96 8:49 am

Source Information

Source file <PSOB.m>

Call Graph

Call Graph Total: 9

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

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSO B

Entry Points

Name	Comments	DBIA/ICR reference
PT
RX1
RX2
SET
END
RX08
RX05
LIST
RL

External References

Name	Field # of Occurrence
^%ZIS	SET+2
^%ZISC	END
^%ZTLOAD	SET+20
^DIC	PT, RX1, RX1+1, RX2
$$GET1^DIQ	PSOB+7, PSOB+13, SET+12
EN^DIQ1	SET+1, SET+6
^DIR	PSOB+9, PSOB+15
$$SELPRT^PSOFDAUT	SET+14
^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: ! Line Location: PSOB+14
Function Call: WRITE	Prompt: ! Line Location: PT+0
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: $C(7),!,"You must select a valid FDA Medication Guide printer." Line Location: SET+15
Function Call: WRITE	Prompt: !,"Task Queued #"_ZTSK_" !!",! Line Location: SET+20
Function Call: READ	Variable: X Timeout: DTIME 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	Variable: X Timeout: DTIME Line Location: RL+0
Function Call: WRITE	Prompt: !,"CHOOSE 1-",I-2," : " Line Location: RL+0
Routine Call	%ZIS Line Location: SET+2
Routine Call	DIC Line Location: PT RX1 RX1+1 RX2
Routine Call	DIR Line Location: PSOB+9 PSOB+15

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, SET+12
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+6!, PSOB+9!, PSOB+12!, PSOB+15!
DIR("A"	PSOB+8, PSOB+14
DIR("B"	PSOB+8, PSOB+14
DIR(0	PSOB+8, PSOB+14
DIRUT	PSOB+6!, PSOB+7, PSOB+9, PSOB+12!, PSOB+13, PSOB+15
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
FDAPRT	SET+12~, SET+13, SET+14, SET+15, SET+16
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+10*
PSODPT	RX1*, RX1+2, END!
PSODPT(0	RX1*, RX1+2
>> PSOFDAPT	SET+12, SET+14, SET+16*
>> PSOIOS	SET+1, SET+2, SET+5
PSOIS	SET+2*, END!
PSOMGREP	PSOB+4~, PSOB+15*, SET+12
>> PSOPAR	PSOB+2, PSOB+7, SET+9
>> PSOSITE	PSOB+7, PSOB+13, SET+12
U	RX05+1
X	RX1, RX1+1, RX2, RX2+1, END!, RX08, RX05, RX05+1, RX05+2, RL
Y	PSOB+10, PSOB+15, PT, RX1, RX1+1, RX1+2, RX1+3, RX2+2, END!, RX08
Y(0	PT, RX1, RX1+2*, RX08, RX08+5, RX05
>> ZTDESC	SET+18*
>> ZTDTH	SET+18*
>> ZTIO	SET+5*
>> ZTRTN	SET+18*
>> ZTSAVE("CC"	SET+18*
>> ZTSAVE("PDUZ"	SET+18*
>> ZTSAVE("PSOBAR0"	SET+19*
>> ZTSAVE("PSOBAR1"	SET+19*
>> ZTSAVE("PSOBARS"	SET+19*
>> ZTSAVE("PSOBIO"	SET+18*
>> ZTSAVE("PSOBR1"	SET+18*
>> ZTSAVE("PSOBR2"	SET+18*
>> ZTSAVE("PSODISP"	SET+19*
>> ZTSAVE("PSODIV"	SET+18*
>> ZTSAVE("PSOFDAPT"	SET+19*
>> ZTSAVE("PSOIOS"	SET+19*
>> ZTSAVE("PSOMGREP"	SET+19*
>> ZTSAVE("PSOPAR"	SET+18*
>> ZTSAVE("PSOSITE"	SET+18*
>> ZTSAVE("PSOSYS"	SET+19*
ZTSK	SET+1!, SET+20, END!

Customize PDF page

Package: Outpatient Pharmacy