Routine: PSOPAT

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

PSOPAT ;BHAM ISC/SAB - update pharmacy patient data ;03/08/93 8:35

Source Information

Source file <PSOPAT.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Outpatient Pharmacy	5	UPDATE^PSOBAI ^PSODEM EN^PSOHLUP ^PSOLSET EN^PSOPATLK
VA FileMan	3	FILE^DICN ^DIE EN^DIK

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 PAT

Entry Points

Name	Comments	DBIA/ICR reference
2
P55
EX
MSG

External References

Name	Field # of Occurrence
FILE^DICN	P55
^DIE	2+7, P55+3
EN^DIK	P55+1
UPDATE^PSOBAI	2+4
^PSODEM	2+1
EN^PSOHLUP	2, P55
^PSOLSET	PSOPAT+3
EN^PSOPATLK	2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!,"Site Parameters must be Defined!",! Line Location: PSOPAT+3
Function Call: WRITE	Prompt: ! Line Location: 2+5
Function Call: WRITE	Prompt: !!?5,">>PHARMACY PATIENT DATA<<",! Line Location: P55+2
Function Call: WRITE	Prompt: !! Line Location: P55+3
Function Call: WRITE	Prompt: $C(7),!,"Patient Data is Being Edited by Another User!",! Line Location: MSG+0
Routine Call	DIE Line Location: 2+7 P55+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^PS(55 - [#55]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DILOCKTM"	2+3, 2+6
^DPT - [#2]	2+6, 2+7, EX
^PS(55 - [#55]	2, 2+3, P55, P55+1*, EX
^XUSEC("PSO ADDRESS UPDATE"	2+2

Label References

Name	Line Occurrences
2	2, 2+1, 2+3, 2+6, P55+3
EX	PSOPAT+3, 2, 2+3, 2+6, P55+3
MSG	2+3, 2+6
P55	2+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EX+1!
%X	EX+1!
%Y	EX+1!
C	EX+1!
D0	EX+1!
DA	2+1, 2+3, 2+4, 2+6, 2+7, P55+1*, EX, EX+1!
DD	P55!
DFN	2*, 2+1, P55, P55+1, EX+1!
DI	EX+1!
DIC	P55!*, EX+1!
DIC("A"	2*
DIC(0	2, P55
DIE	2+7, P55+2, EX+1!
DIK	P55+1!*
DIK(1	P55+1*
>> DINUM	P55*
DIPGM	EX+1!
DO	P55!
DQ	EX+1!
DR	2+7, P55+2, EX+1!
DUZ	2+2
PI	2+1*, EX+1!
>> PSODFN	2+4*
PSOFROM	2*, EX+1!
PSOLOUD	2*!
>> PSOPAR	PSOPAT+3, 2+2
PSOPTLK	2, EX+1!
X	P55*, EX+1!
Y	2*, EX+1!