Routine: PSIVOD

Package	Total	Call Graph
Inpatient Medications	11	ENQL^PSGLW $$ENACTION^PSGOE1 Q^PSIV (ENSTOP,ENT)^PSIVCAL DEL55^PSIVORE2 NEW55^PSIVORFB $$GTPCI^PSIVUTL WP^PSJAC (,RESTORE)^PSJHVARS $$HIDDEN^PSJLMUTL $$DATE^PSJUTL2
Registration	3	INP^VADPT EN^VALM (FULL,PAUSE)^VALM1
Order Entry Results Reporting	1	ULK^ORX2
VA Fileman	1	YN^DICN

Package

Total

Call Graph

ENQL^PSGLW $$ENACTION^PSGOE1 Q^PSIV (ENSTOP,ENT)^PSIVCAL DEL55^PSIVORE2 NEW55^PSIVORFB $$GTPCI^PSIVUTL WP^PSJAC
(,RESTORE)^PSJHVARS $$HIDDEN^PSJLMUTL $$DATE^PSJUTL2

INP^VADPT EN^VALM (FULL,PAUSE)^VALM1

ULK^ORX2

YN^DICN

Package	Total	Caller Graph
Inpatient Medications	1	PSJOE

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
CH	;
HK	;Queue job to print MAR labels generated for this patient.
SPSOL
Q	; Kill and exit.
ULK	;
COPY(DFN,OLDON)	;Ask to enter new order.
INMED	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Do you want to copy this order" Line Location: COPY+7
Function Call: WRITE	Prompt: !!,"Order not copied" Line Location: COPY+18
Function Call: WRITE	Prompt: !!,"...copying..." Line Location: COPY+19
Function Call: WRITE	Prompt: !!?5,"You are finished with the new order.",!,"The following ACTION prompt is for the original order." Line Location: COPY+23
Function Call: WRITE	Prompt: !!,"Order not copied" Line Location: INMED+9
Function Call: WRITE	Prompt: !!?2,"Answer 'YES' to have a new, non-verified order created for this patient," Line Location: CH+1
Function Call: WRITE	Prompt: !,"using the information from this order. (The START and STOP dates will be",!,"recalculated.) Enter 'NO' (or '^') to stop now." Line Location: CH+2
Routine Call	VALM Line Location: COPY+16 INMED+6

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.45 - [#53.45]	Q+1
^PS(55 - [#55]	COPY+3, INMED+7, SPSOL
^VA(200 - [#200]	COPY+13

Name	Field # of Occurrence
^(	SPSOL
^(4	COPY+3

Name	Field # of Occurrence
>> %	COPY+7*, COPY+8
DFN	COPY~, INMED+7, ULK+2, HK+1, HK+2~*, HK+4, SPSOL
DUZ	COPY+13, Q+1
FIL	Q+2!
>> I	COPY+12*
I1	Q+2!
ND	Q+2!
>> ND2	COPY+12*
>> ND4	COPY+12*
OLDACT	COPY+10~*
OLDON	COPY~
OLDP	COPY+1~*, Q+7
ON	COPY+15~*
ON55	COPY+9, COPY+15~, INMED+2, INMED+3, INMED+7, SPSOL
ON55TMP	INMED+2~*, INMED+3
P	COPY+1, Q+7!*
P("CLRK"	COPY+13*
P("LF"	COPY+10*
P("LOG"	COPY+10, COPY+11
P("NAT"	COPY+10!, COPY+17, INMED+8
P("PON"	COPY+9*
P("PRNTON"	COPY+11*
P("RES"	COPY+9*
P(17	COPY+10, COPY+13
P(21	COPY+10, INMED+2, INMED+3*
P21TMP	INMED+2~*, INMED+3
PC	Q+2!
PDM	Q+2!
>> PSGACT	COPY+10, Q+5
PSGCOPY	COPY+1~
PSGDT	COPY+11, Q+2!, Q+4
PSGID	Q+2!
PSGLMT	Q+2!
>> PSGOEAV	COPY+5*, COPY+13, COPY+21
>> PSGOP	HK+1, HK+2, HK+4*
PSGORD	COPY+3, COPY+9*, COPY+15~
>> PSGP	COPY+3, Q+5
PSGSI	Q+2!
PSIVAC	COPY+9*, Q+2!
PSIVACEP	COPY+14!
PSIVCHG	COPY+10~, COPY+14, Q+2!, INMED+1
PSIVCOPY	COPY+1~, COPY+14, COPY+15, INMED+1*
PSIVOORD	COPY+1~, COPY+5*, Q+5
PSIVUP	COPY+9*, Q+2!
PSIVX	Q+2!
PSJACEPT	INMED+1!
PSJACNWP	HK+2~
PSJACPF	HK+2~, HK+3*
PSJLSORX	ULK+1, ULK+2!
PSJNARC	Q+2!
>> PSJNEWOE	COPY+14*
>> PSJNKF	Q+1*
>> PSJOE	Q+1
PSJOPC	Q+2!
PSJORD	COPY+5, COPY+9, COPY+15~, INMED+2
>> PSJORNAT	COPY+17
PSJPWD	HK+2~, HK+3*
PSJSYSL	HK+2~, HK+3
>> PSJSYSP0	COPY+5
>> PSJSYSU	COPY+5
PSJSYSW	HK+2~
PSJSYSW0	HK+2~
>> SPSOL	SPSOL*
U	COPY+3, COPY+5, HK+3, SPSOL
VAERR	HK+2~
VAIN	HK+2~
VAIN(4	HK+3
>> VALMBCK	COPY+14, Q+3, INMED+1*
X	ULK+2~*
XXX	SPSOL*, SPSOL+1!

Information