Routine: PSIVUWL

Package	Total	Call Graph
Inpatient Medications	10	ENIVKV^PSGSETU ENQ^PSIV ^PSIVHLP ^PSIVHLP1 ^PSIVHLP2 ^PSIVOPT GT55^PSIVORFB ENNONUM^PSIVORV2 ^PSIVWL1 ENIV^PSJAC
VA Fileman	2	^%DT (,IX)^DIC

Package

Total

Call Graph

ENIVKV^PSGSETU ENQ^PSIV ^PSIVHLP ^PSIVHLP1 ^PSIVHLP2 ^PSIVOPT GT55^PSIVORFB ENNONUM^PSIVORV2
^PSIVWL1 ENIV^PSJAC

^%DT (,IX)^DIC

Package	Total	Caller Graph
Inpatient Medications	1	PSJI UP

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: START+0
Function Call: WRITE	Prompt: !!,"Edit list for: TODAY//" Line Location: START+0
Function Call: READ	Timeout: DTIME Line Location: BEG+0
Function Call: WRITE	Prompt: $P(Y,"@")," ",$P(Y,"@",2) Line Location: WD+0
Function Call: WRITE	Prompt: $C(7)," ???" Line Location: ASK+3
Function Call: WRITE	Prompt: $C(7),!!,"Patient and order number not found !" Line Location: A+3
Routine Call	DIC Line Location: BEG FIND+1
Routine Call	DIC Line Location: BEG+2

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	WD
^PS(55 - [#55]	BEG+3, WARD, WARD+1, UPD1, SETP, UPD, ASK, ASK+4*, A+1

Name	Field # of Occurrence
^(	ASK

Name	Field # of Occurrence
%DT	START*, Q!
%T	Q!
D	BEG+2*, Q!
DFN	WARD, Q!, UPD1, SETP, UPD, ASK, ASK+4, FIND+2, A+1
DIC	BEG!, BEG+2!, Q!, ASK!, FIND+1*
DIC(0	BEG, BEG+2, FIND+1*
DTIME	START, BEG
>> HELP	START+2, BEG, ASK+1, A
I	Q!
ON	Q!, UPD1, SETP, UPD, ASK, ASK+4, A, A+1
ON55	UPD~*
>> P(	SETP*
PSCT	Q!
PSIV	WARD, Q!, A+1
PSIVAC	UPD~, ASK+2!
PSIVCD	START+3, Q!
PSIVDT	START+3, WARD, Q!, UPD1, UPD, ASK, ASK+4, A+1*
PSIVMT	Q!
PSIVNOW	Q!
PSIVOD	START+3, Q!
PSIVOD(	WARD, A+1
>> PSIVSN	BEG+3, WARD, WARD+1, UPD1, UPD, ASK, ASK+4, A+1
PSIVT	WARD, Q!, UPD1, UPD, ASK, ASK+4, FIND+1, A, A+1, A+2
PSIVWARD	START*, Q!
PSM	Q!
U	FIND+3
UWLFLAG	ASK+2*!
>> VAIN(4	FIND+3
WARD	BEG+3*, WARD+1, Q!
WRD	BEG+3, WARD, WARD+1, Q!, UPD1, UPD, ASK, ASK+4, FIND+3*, A+1
>> X	START, START+2, BEG, BEG+1, WARD, UPD1, SETP, CODES, ASK, ASK+1 , ASK+2, ASK+3, ASK+4, FIND+1, A*
>> XX	ASK+2*
>> Y	START, START+1, START+3, BEG+1, BEG+2, BEG+3, SETP*, WD, CODES, FIND+1 , FIND+2
Z	Q!
ZTSK	Q!

Information