Routine: PSDPATI

Customize PDF page

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

Information

PSDPATI ;B'ham ISC/BJW - Patient/Location Inquiry ; 11 Feb 98

Source Information

Source file <PSDPATI.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
VA FileMan	2	^%DT ^DIC
Controlled Substances	1	^PSDSET
Registration	1	(INP,KVAR)^VADPT

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
Controlled Substances	1	PSD PAT INQUIRY

Entry Points

Name	Comments	DBIA/ICR reference
PAT	;ask patient
DATE	;ask date
INQ	;patient inquire
END	;kills variables

External References

Name	Field # of Occurrence
^%DT	DATE+2
^DIC	PAT+2
^PSDSET	PSDPATI+3
INP^VADPT	INQ+1
KVAR^VADPT	INQ+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"Contact your Pharmacy Coordinator for access to display the",!,"Patient/Location data.",!!,"PSD ERROR security key required.",! Line Location: PSDPATI+4
Function Call: WRITE	Prompt: @IOF,?15,"Patient Inquiry",!!,"Patient: ",PSDPAT,!,"Date of Stay: ",PSDT,!,"Ward Location: ",$P(VAIN(4),"^",2),!,"Room-Bed: ",$P(VAIN(5),"^"),! Line Location: INQ+1
Routine Call	DIC Line Location: PAT+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DATE+2
^XUSEC("PSD ERROR"	PSDPATI+4

Label References

Name	Line Occurrences
END	PAT+2, DATE+2
PAT	INQ+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATE+1!*, DATE+2!, END+1!
%DT("A"	DATE+1*
DA	PAT+1!, DATE+1!, END+1!
>> DFN	PAT+2*
DIC	PAT+1!*, PAT+2!, END+1!
DIC("A"	PAT+1*
DIC(0	PAT+1*
DTOUT	END+1!
DUOUT	END+1!
DUZ	PSDPATI+4
IOF	INQ+1
PSDPAT	PAT+2*, INQ+1, END+1!
>> PSDSITE	PSDPATI+3
PSDT	DATE+2*, INQ+1, END+1!
VA	INQ+2!
>> VAIN(4	INQ+1
>> VAIN(5	INQ+1
>> VAINDT	DATE+2*
X	END+1!
Y	PAT+2, DATE+2, END+1!