Routine: PSJCLOR1

Package	Total	Call Graph
Inpatient Medications	8	ENQL^PSGLW A^PSJ200 ^PSJAC ENOR^PSJCLOR4 CHK^PSJDPT (,RESTORE)^PSJHVARS DSPLORDU^PSJLMUT1 CONT^PSJOE0
List Manager	2	(EN,SHOW)^VALM FULL^VALM1
Pharmacy Data Management	1	($$L,UL)^PSSLOCK
VA FileMan	1	^DIR

Package	Total	Caller Graph
Inpatient Medications	6	PSJ LM CLINIC ORDERS PSJ LM ECO HIDDEN ACTIONS PSJ LM ECO IM PR PSJ LM ECO MENU PSJCLOR PSJCLOR5
Kernel	1	^ORD(101

Name	Comments	DBIA/ICR reference
START	;
PROCESS	; Loop through selected patients and display profile/orders.
PROCESS1	; Process patient
DISPLAYW	; Allow selection of patients on each ward selected.
DISPLAYP	; Display WORP1 (Ward or Priority)
DISPLAYT	;
GTORDERS	;
PROFILE	; Display the patient's profile and allow order selection.
DONE	; Clean up
V2	;
WRT	;
ASK	;
H2	;
HEADER	;
NP	;
DISPORD(DFN,ON)
HELP	;
IMPATPR	; View Profile Entry
PSJREVFY()	; Ask if Active orders should be re-verified
VFYHELP	; Help text for auto-reverify
SURE()	; Non-Pharmacist can't auto-reverify
SUREHELP	; Help text for non-pharmacists
HDR	; HEADER code for PSJ LM ECO protocol

Name	Field # of Occurrence
^DIR	WRT+4, ASK+1, PSJREVFY+7, SURE+6
ENQL^PSGLW	PROCESS+2
A^PSJ200	HDR+1
^PSJAC	GTORDERS+1
ENOR^PSJCLOR4	IMPATPR+1
CHK^PSJDPT	ASK+5
^PSJHVARS	IMPATPR+1
RESTORE^PSJHVARS	IMPATPR+1
DSPLORDU^PSJLMUT1	DISPORD+3
CONT^PSJOE0	PROCESS1+4, HELP+18
$$L^PSSLOCK	PROCESS1+4
UL^PSSLOCK	PROCESS1+8
EN^VALM	PROFILE+1
SHOW^VALM	HDR+1
FULL^VALM1	HELP+1, IMPATPR+1, PSJREVFY+1, SURE+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),$P(PSJLK,U,2) Line Location: PROCESS1+4
Function Call: WRITE	Prompt: !,$J(PSGVBY,4),?8,PPN," (",$P(PSGVBPN,U,3),")" Line Location: WRT+3
Function Call: WRITE	Prompt: @IOF Line Location: WRT+6
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: !,"CLINIC ORDERS - " Line Location: HEADER+1
Function Call: WRITE	Prompt: $S($G(PRD)=1:"STAT",$G(PRD)=2:"ASAP",1:"ROUTINE") Line Location: HEADER+2
Function Call: WRITE	Prompt: $S(PSGVBWN="ZZ":"^OTHER",1:PSGVBWN) Line Location: HEADER+3
Function Call: WRITE	Prompt: !!," No.",?8,"PATIENT",!,PSJHLIN Line Location: HEADER+4
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
Function Call: WRITE	Prompt: !!,"ES Edit Start Date" Line Location: HELP+2
Function Call: WRITE	Prompt: !," Select the medication orders you wish to edit. " Line Location: HELP+3
Function Call: WRITE	Prompt: !," After selecting orders, a new Start Date/Time may be entered." Line Location: HELP+4
Function Call: WRITE	Prompt: ! Line Location: HELP+5
Function Call: WRITE	Prompt: !,"VD View Order Detail" Line Location: HELP+6
Function Call: WRITE	Prompt: !," Select the medication orders you wish to view. " Line Location: HELP+7
Function Call: WRITE	Prompt: !," Details for selected orders will be displayed." Line Location: HELP+8
Function Call: WRITE	Prompt: ! Line Location: HELP+9
Function Call: WRITE	Prompt: !,"VP View Profile" Line Location: HELP+10
Function Call: WRITE	Prompt: !," View order profile that shows all medication orders." Line Location: HELP+11
Function Call: WRITE	Prompt: !," No edits allowed at this view. " Line Location: HELP+12
Function Call: WRITE	Prompt: ! Line Location: HELP+13
Function Call: WRITE	Prompt: !,"CD Change Date Range" Line Location: HELP+14
Function Call: WRITE	Prompt: !," Change the search date range for the current patient's" Line Location: HELP+15
Function Call: WRITE	Prompt: !," Clinic Orders. The search date range will revert to the" Line Location: HELP+16
Function Call: WRITE	Prompt: !," initial search date range for subsequent patients. ",! Line Location: HELP+17
Function Call: WRITE	Prompt: ! Line Location: PSJREVFY+1
Function Call: WRITE	Prompt: !! Line Location: PSJREVFY+7
Function Call: WRITE	Prompt: !," All selected orders will have a status of NON-VERIFIED after editing",! Line Location: PSJREVFY+8
Function Call: WRITE	Prompt: !?5,"Yes - ACTIVE orders will remain ACTIVE after they are modified.",! Line Location: VFYHELP+1
Function Call: WRITE	Prompt: !?5,"No - The status of ACTIVE orders will be changed to NON-VERIFIED" Line Location: VFYHELP+2
Function Call: WRITE	Prompt: !?5,"after they are modified. The orders must be re-verified, via" Line Location: VFYHELP+3
Function Call: WRITE	Prompt: !?5,"Inpatient Order Entry or other order entry options, in order" Line Location: VFYHELP+4
Function Call: WRITE	Prompt: !?5,"to change the status back to ACTIVE." Line Location: VFYHELP+5
Function Call: WRITE	Prompt: ! Line Location: SURE+1
Function Call: WRITE	Prompt: ! Line Location: SURE+6
Function Call: WRITE	Prompt: !," All selected orders will have a status of NON-VERIFIED after editing",! Line Location: SURE+7
Function Call: WRITE	Prompt: !?5,"The status of ACTIVE orders will be changed to NON-VERIFIED" Line Location: SUREHELP+1
Function Call: WRITE	Prompt: !?5,"after they are modified. The orders must be re-verified, via" Line Location: SUREHELP+2
Function Call: WRITE	Prompt: !?5,"Inpatient Order Entry or other order entry options, in order" Line Location: SUREHELP+3
Function Call: WRITE	Prompt: !?5,"to change the status back to ACTIVE." Line Location: SUREHELP+4
Routine Call	DIR Line Location: WRT+4 ASK+1 PSJREVFY+7 SURE+6
Routine Call	VALM Line Location: PROFILE+1
Routine Call	VALM Line Location: HDR+1

Name	Line Occurrences (* Changed, ! Killed)
^ORD(101 - [#101]	HDR+2
^TMP("PSGVBW"	DISPLAYW+1, DISPLAYP+4, DISPLAYT+4, V2+1, ASK+1!
^TMP("PSGVBW3"	ASK+6
^TMP("PSJLIST"	START+2!, WRT+3*, ASK+4
^TMP("PSJPRO"	HDR+2
^TMP("PSJSELECT"	START+2, PROCESS+2, PROCESS1+2, PROCESS1+3, DISPLAYW+1!, ASK+6*

Name	Line Occurrences
ASK	DISPLAYP+5, DISPLAYT+5
DISPLAYP	DISPLAYW+1
DISPLAYT	DISPLAYP+4
DISPLAYW	START+2
DONE	PROCESS+3
GTORDERS	PROCESS1+7
HEADER	DISPLAYP+3
PROCESS1	PROCESS+2
PROFILE	GTORDERS+3
V2	DISPLAYT+4
WRT	V2+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	GTORDERS+1*, PROFILE+1, DISPORD~, DISPORD+3
DIR	PROCESS+1!, WRT+4~, ASK+1~, PSJREVFY+2!, SURE+2!
DIR("?"	PSJREVFY+7, SURE+6
DIR("A"	WRT+4, ASK+1, PSJREVFY+2, PSJREVFY+3, PSJREVFY+4, PSJREVFY+5, PSJREVFY+6, PSJREVFY+7, SURE+3, SURE+4 , SURE+5, SURE+6
DIR(0	WRT+4, ASK+1, PSJREVFY+7, SURE+6
DTIME	NP+1
>> DTOUT	ASK+1
>> DUOUT	ASK+1, PSJREVFY+8, SURE+7
IOF	WRT+6, HEADER+1
IOSL	WRT+4
>> NP	NP+1*
ON	DISPORD~, DISPORD+3, DISPORD+4
>> PPN	V2+1*, WRT+3
>> PRD	HEADER+2
PSGASKX	ASK+1~, ASK+4*, ASK+6
PSGDFN	ASK+1~, ASK+4*, ASK+5
>> PSGOEA	START+1*
>> PSGOL	GTORDERS+1*, PROFILE+1
PSGOP	PROCESS+2*, DONE+1!
PSGP	PROCESS+2, GTORDERS+1, PROFILE+1, DONE+1!, V2+1*, WRT+3, ASK+6, IMPATPR+1
PSGPICK	DISPLAYP+1~, DISPLAYT+4, V2+1, WRT+5, ASK+2
>> PSGPRD	WRT+2*
>> PSGPRIF	DISPLAYT+3, HEADER+2, HEADER+3
>> PSGPRIN	DISPLAYP+4, DISPLAYT+2, DISPLAYT+3*
>> PSGPXN	START+1, PROCESS1+9
>> PSGSS	START+2
>> PSGVBPN	V2+1*, WRT+3
>> PSGVBTM	DISPLAYT+4*, V2+1, WRT+3
>> PSGVBWN	DISPLAYP+2, DISPLAYT+3, WRT+2*, WRT+3, HEADER+3
PSGVBY	DISPLAYP+5, DISPLAYT+5, WRT+1, WRT+3, WRT+4, ASK+1, HEADER+4!
>> PSGWORP1	DISPLAYW+1*, DISPLAYP+2, DISPLAYP+4, DISPLAYT+3, DISPLAYT+4, V2+1, WRT+2
>> PSGWORP2	DISPLAYP+4*, DISPLAYT+2, DISPLAYT+3, DISPLAYT+4, V2+1, WRT+2
PSJACNWP	GTORDERS+1!
PSJASK	DISPLAYW+2!, DISPLAYP+5, DISPLAYT+5, WRT+1, WRT+6
>> PSJBEG	PROCESS1+6, GTORDERS+2
PSJCLN	PROCESS1+1~
PSJCNT	PROCESS+1~, PROCESS+2, PROCESS1+2, PROCESS1+3, DISPLAYW+1, ASK+6*
PSJCURCL	PROCESS1+1~, PROCESS1+2*
>> PSJEND	PROCESS1+5, GTORDERS+2
PSJGOTO	PROCESS+2, PROCESS1+3!, PROCESS1+7!
PSJHLIN	START+1~*, HEADER+4
PSJINDEX	ASK+3*, ASK+4, ASK+7!
PSJLINE	DISPORD+1~, DISPORD+2*
PSJLK	PROCESS1+4*, PROCESS1+8, DONE+1!
PSJLM	IMPATPR+1~
PSJNEWOE	PROFILE+1*, DONE+1!
PSJOC	DISPORD+1~
PSJOC(	DISPORD+4
>> PSJOL	PROFILE+1*
>> PSJORD	PROFILE+1
PSJPAD	PROCESS1+1~
PSJPAGE	PROCESS1+1~
PSJPDD	PROCESS1+1~
PSJPDOB	PROCESS1+1~
PSJPDX	PROCESS1+1~
PSJPHT	PROCESS1+1~
PSJPHTD	PROCESS1+1~
PSJPN	PROCESS1+3*, PROCESS1+4, PROCESS1+5, PROCESS1+6, PROCESS1+7, GTORDERS+1, DONE+1!
PSJPNV	PROCESS+1!*
PSJPRB	PROCESS1+1~
>> PSJPRIF	DISPLAYT+5
PSJPSEX	PROCESS1+1~
PSJPSSN	PROCESS1+1~
PSJPTD	PROCESS1+1~
PSJPWDN	PROCESS1+1~
PSJPWT	PROCESS1+1~
PSJPWTD	PROCESS1+1~
>> PSJSYSL	PROCESS+2
PSJTMPBG	PROCESS1+6, GTORDERS+2!
PSJTMPED	PROCESS1+5, GTORDERS+2!
PSJTMPN	PROCESS1+1~, PROCESS1+3*, PROCESS1+8
>> PSJVALQ	PROFILE+1, PROFILE+2*
RMORDAT	PROCESS1+1~
U	PROCESS1+4, PROCESS1+8, GTORDERS+1, WRT+3, ASK+6
VADM	IMPATPR+1~
VAIN	IMPATPR+1~
VALMBCK	DONE+1!, HELP+18, IMPATPR+1
X	WRT+5, DISPORD+1~, DISPORD+4*
>> XQORM("#"	HDR+2*
Y	ASK+2, ASK+3, ASK+4, ASK+7!, PSJREVFY+2!, PSJREVFY+8, PSJREVFY+9, SURE+2!, SURE+7, SURE+8

Customize PDF page

Package: Inpatient Medications

Routine: PSJCLOR1

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: