Routine: PSGVBW0

Package	Total	Call Graph
Inpatient Medications	15	ENQL^PSGLW ENL^PSGOU ^PSGPER $$DEFON^PSGPER1 ENCV^PSGSETU ^PSGVBWP ENGORD^PSGVBWU ^PSIVXU ^PSJAC CHK^PSJDPT (,RESTORE)^PSJHVARS DSPLORDU^PSJLMUT1 DISACTIO^PSJOE $$LOCK^PSJOEA CHK^PSJOEA1
IHS Changes To Pharmacy	1	SETPTCX^APSPFUNC
Pharmacy Data Management	1	($$L,$$LS,UL,UNL)^PSSLOCK
Registration	1	EN^VALM
VA Fileman	1	^DIR

Package

Total

Call Graph

ENQL^PSGLW ENL^PSGOU ^PSGPER $$DEFON^PSGPER1 ENCV^PSGSETU ^PSGVBWP ENGORD^PSGVBWU ^PSIVXU
^PSJAC CHK^PSJDPT (,RESTORE)^PSJHVARS DSPLORDU^PSJLMUT1 DISACTIO^PSJOE $$LOCK^PSJOEA CHK^PSJOEA1

IHS Changes To Pharmacy

SETPTCX^APSPFUNC

Pharmacy Data Management

($$L,$$LS,UL,UNL)^PSSLOCK

Registration

EN^VALM

VA Fileman

^DIR

Package	Total	Caller Graph
Inpatient Medications	2	PSGVBW PSGVBW1

Package

Total

Caller Graph

Inpatient Medications

PSGVBW PSGVBW1

Entry Points

Name	Comments	DBIA/ICR reference
PROFILE	; Display the patient's profile and allow order selection.
HEADER	;
WRT	;
DISPLAYW	; Allow selection of patients on each ward selected.
PROCESS	; Loop through selected patients and display profile/orders.
V2	;
NP	;
START	;
DISPLAYT	;
PROCESS1	;
DISPORD(DFN,ON)	;Display the order that being lock by another user
ASK	;
DONE	;
H2	;
GTORDERS	;
GTORDER2	;

External References

Name	Field # of Occurrence
SETPTCX^APSPFUNC	PROCESS1+2
^DIR	PROCESS+3, WRT+3, ASK+1
ENQL^PSGLW	PROCESS+6
ENL^PSGOU	PROCESS+5
^PSGPER	PROCESS1+8
$$DEFON^PSGPER1	PROCESS1+6
ENCV^PSGSETU	PROCESS1+8
^PSGVBWP	PROCESS+3
ENGORD^PSGVBWU	GTORDERS+3
^PSIVXU	PROCESS1+8
^PSJAC	GTORDERS+1
CHK^PSJDPT	ASK+5
^PSJHVARS	PROCESS+3
RESTORE^PSJHVARS	PROCESS+3
DSPLORDU^PSJLMUT1	DISPORD+3
DISACTIO^PSJOE	GTORDERS+8, GTORDER2+2
$$LOCK^PSJOEA	GTORDERS+6
CHK^PSJOEA1	GTORDER2+3
$$L^PSSLOCK	PROCESS1+3
$$LS^PSSLOCK	GTORDERS+7
UL^PSSLOCK	PROCESS1+5
UNL^PSSLOCK	GTORDERS+8, GTORDER2+5
EN^VALM	PROFILE+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),$P(PSJLK,U,2) Line Location: PROCESS1+3
Function Call: WRITE	Prompt: @IOF Line Location: WRT+5
Function Call: WRITE	Prompt: !!?2,"Select patients either singularly separated by commas (1,2,3), by a range of",!,"patients separated by a dash (1-3), or a combination (1,2,4-6). To select all",!,"patients, enter 'ALL' or a dash ('-'). You can also enter '-n' to" Line Location: H2+1
Function Call: WRITE	Prompt: " select the",!,"first patient through the 'nth' patient or enter 'n-' to select the 'nth'",!,"patient through the last patient. If a patient is selected more than once," Line Location: H2+2
Function Call: WRITE	Prompt: !,"only the first selection is used. (Entering '1,2,1' would return '1,2'.)" Line Location: H2+3
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HEADER+1
Function Call: WRITE	Prompt: !,"ORDERS NOT VERIFIED BY A ",$S($P(PSJSYSU,";",3)>1:"PHARMACIST",1:"NURSE")," - ",$S(PSGVBWN="ZZ":"^OTHER",1:PSGVBWN) Line Location: HEADER+1
Function Call: WRITE	Prompt: !!," No.",?7,"TEAM",?32,"PATIENT",!,LINE Line Location: HEADER+2
Function Call: READ	Timeout: DTIME Line Location: NP+1
Function Call: WRITE	Prompt: $C(7) Line Location: NP+1
Function Call: WRITE	Prompt: !,PSJOC(ON,X) Line Location: DISPORD+4
Routine Call	VALM Line Location: PROFILE+1
Routine Call	DIR Line Location: PROCESS+3 WRT+3 ASK+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.1 - [#53.1]	GTORDER2+1, GTORDER2+4
^TMP("PSGVBW"	DISPLAYW+1, DISPLAYT+2, DONE+1!, V2+1, ASK+1!
^TMP("PSJCOM"	GTORDER2+3
^TMP("PSJLIST"	START+2!, WRT+2*, ASK+4
^TMP("PSJON"	GTORDERS+4, GTORDERS+5, DONE+1!
^TMP("PSJSELECT"	START+2, PROCESS+2, PROCESS+6, PROCESS1+1, DISPLAYW+1!, ASK+6*

Name	Line Occurrences
ASK	DISPLAYT+3
DISPLAYT	DISPLAYW+1
DISPLAYW	START+2
DISPORD	GTORDERS+7
GTORDER2	GTORDERS+6
GTORDERS	PROCESS1+4
HEADER	DISPLAYT+2
PROCESS1	PROCESS+6
PROFILE	GTORDERS+2
V2	DISPLAYT+2
WRT	V2+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CF	DONE+2!
DA	DONE+2!
DFN	PROCESS1+8~, GTORDERS+1, GTORDERS+6, GTORDERS+7, GTORDERS+8, GTORDER2+2, GTORDER2+5, PROFILE+1, DISPORD~, DISPORD+3
DIR	PROCESS+1!, PROCESS+3!, WRT+3~, ASK+1~
DIR("A"	PROCESS+2, WRT+3, ASK+1*
DIR("B"	PROCESS+2*
DIR(0	PROCESS+2, WRT+3, ASK+1*
DTIME	NP+1
>> DTOUT	ASK+1
>> DUOUT	ASK+1
IOF	WRT+5, HEADER+1
IOSL	WRT+3
LINE	START+1*, DONE+2!, HEADER+2
NP	DONE+2!, NP+1*
ON	DISPORD~, DISPORD+3, DISPORD+4
POP	DONE+2!
PPN	DONE+2!, V2+1*, WRT+2
PR	DONE+2!
PSGASKX	ASK+1~, ASK+4*, ASK+6
PSGCANFL	DONE+2!
PSGDFN	ASK+1~, ASK+4*, ASK+5
PSGION	DONE+2!
PSGLMT	DONE+2!
>> PSGOEA	START+1*
PSGOEAV	START+1*, DONE+2!
PSGOENOF	DONE+2!
PSGOL	PROCESS+5, GTORDERS+2, PROFILE+1, DONE+2!
PSGON	DONE+2!
PSGONC	DONE+2!
PSGONR	DONE+2!
>> PSGOP	PROCESS+6*
PSGORD	DONE+2!
PSGP	PROCESS+6, PROCESS1+7, PROCESS1+8~, GTORDERS+1, PROFILE+1, V2+1, WRT+2
PSGPICK	DISPLAYT+1~, DISPLAYT+2, V2+1, WRT+4, ASK+2
PSGPRF	DONE+2!
>> PSGPXN	START+1, PROCESS1+6, PROCESS1+9*
PSGPXPT	PROCESS1+6!, PROCESS1+7*, PROCESS1+8
>> PSGSS	START+2
PSGVBA	DONE+2!
PSGVBAF	DONE+2!
PSGVBON	DONE+2!
PSGVBPN	DONE+2!, V2+1*, WRT+2
PSGVBQ	DONE+2!
PSGVBQ1	DONE+2!
PSGVBSD	DONE+2!
PSGVBSS	DONE+2!
PSGVBST	DONE+2!
PSGVBTM	DISPLAYT+2*, DONE+2!, V2+1, WRT+2
PSGVBW	DONE+2!
PSGVBWN	DISPLAYW+1*, DISPLAYT+2, DONE+2!, V2+1, WRT+2, HEADER+1
PSGVBY	DISPLAYT+2, DISPLAYT+3, DONE+2!, WRT+1, WRT+2, WRT+3, ASK+1, HEADER+2!*
PSJACNWP	GTORDERS+1!
>> PSJASK	DISPLAYT+3, WRT+1, WRT+5
>> PSJCNT	PROCESS+6, PROCESS1+1, DISPLAYW+1, ASK+6*
PSJGOTO	PROCESS+6, PROCESS1+1!, PROCESS1+4!, GTORDERS+8, GTORDER2+2
>> PSJINDEX	ASK+3*, ASK+4
PSJLINE	DISPORD+1~, DISPORD+2*
>> PSJLK	PROCESS1+3*, PROCESS1+5
>> PSJNEWOE	PROFILE+1*
PSJO	GTORDER2+1~, GTORDER2+2, GTORDER2+4~, GTORDER2+5
PSJOC	DISPORD+1~
PSJOC(	DISPORD+4
>> PSJOL	PROFILE+1*
>> PSJON	GTORDERS+4, GTORDERS+5, GTORDERS+6, GTORDERS+7, GTORDERS+8, GTORDER2+1, GTORDER2+3, GTORDER2+4
PSJORD	GTORDER2+3~*, PROFILE+1
>> PSJPN	PROCESS1+1*, PROCESS1+2, PROCESS1+3, PROCESS1+4, PROCESS1+5, GTORDERS+1
PSJPNV	PROCESS+1!*
>> PSJPRIO	GTORDERS+4*, GTORDERS+5
>> PSJSYSL	PROCESS+6
>> PSJSYSU	PROCESS+2, HEADER+1
QQ	DONE+2!
U	PROCESS1+2, PROCESS1+3, PROCESS1+5, GTORDERS+1, GTORDERS+6, GTORDERS+7, GTORDERS+8, GTORDER2+1, GTORDER2+3, GTORDER2+4 , WRT+2, ASK+6
X	PROCESS+2, WRT+4, DISPORD+1~, DISPORD+4
>> Y	PROCESS+3, GTORDER2+5, ASK+2, ASK+3, ASK+4
Z	DONE+2!

Customize PDF page

Package: Inpatient Medications

Routine: PSGVBW0

Information

Source Information