Routine: PSODPT

Customize PDF page

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

Information

PSODPT ;BIR/MFR - CENTRALIZED PATIENT LOOKUP FOR OP ;07/15/03

Source Information

Source file <PSODPT.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Master Patient Index VistA	2	$$GETICN^MPIF001 $$MPIQQ^MPIFAPI
Registration	1	(NOTICE,PTSEC)^DGSEC4
VA FileMan	1	YN^DICN

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: 21

Package	Total	Caller Graph
Outpatient Pharmacy	21	PSOATRF PSOATRFC PSOATRFV PSOBBC PSOCAN PSOCAN1 PSOCPB PSOCPF1 PSODISP PSOERPC0 PSOERXEN PSOORFI3 PSOORFI5 PSOORFIN PSORESK PSORXEDT PSORXPR PSORXRP2 PSORXVW PSOSUPAT PSOSUPRX

Entry Points

Name	Comments	DBIA/ICR reference
CHK(DFN,DISP,PAUSE)	; Security Check for Patient Selection
ENCONT
MSG	;
ICN(X)	;

External References

Name	Field # of Occurrence
NOTICE^DGSEC4	CHK+15
PTSEC^DGSEC4	CHK+6
YN^DICN	ENCONT+1
$$GETICN^MPIF001	ICN+3
$$MPIQQ^MPIFAPI	ICN+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: CHK+8
Function Call: WRITE	Prompt: ?(80-$L($P(DFN,"^",2)))\2,$P(DFN,"^",2),! Line Location: CHK+8
Function Call: WRITE	Prompt: ?(80-$L(RESULT(I)))\2,RESULT(I),! Line Location: CHK+10
Function Call: WRITE	Prompt: !,"Do you want to continue processing this patient record" Line Location: ENCONT+0
Function Call: WRITE	Prompt: !!,"Enter 'YES' to continue processing, or 'NO' to quit processing this record." Line Location: ENCONT+2
Function Call: WRITE	Prompt: !,$C(7),"Outpatient Division MUST be selected!",! Line Location: MSG+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	ICN+2

Label References

Name	Line Occurrences
ENCONT	CHK+14, ENCONT+2
ICN	CHK+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ENCONT+1*, ENCONT+2
CHK	CHK+4~, CHK+5, CHK+13, CHK+14, CHK+16, CHK+17, ENCONT+1
DFN	CHK~, CHK+5, CHK+6, CHK+8, CHK+15
DISP	CHK~, CHK+5*, CHK+8
>> I	CHK+10*
PAUSE	CHK~, CHK+5*, CHK+11
RES	CHK+4~, CHK+15, CHK+16
RESULT	CHK+4~, CHK+6
RESULT(	CHK+10
RESULT(1	CHK+7, CHK+9, CHK+11, CHK+12, CHK+13, CHK+14, CHK+15
RESULT(3	CHK+9*
>> RX0	CHK+9
X	ICN~, ICN+1, ICN+2, ICN+3
>> XQY0	CHK+15
Y	ICN+3~*!