Routine: PSJPR

Call Graph Total: 15

Package	Total	Call Graph
Inpatient Medications	12	(ENCV,ENIVKV)^PSGSETU ENDEV^PSGTI EN2^PSGVW (ALC,ENA)^PSGVW0 ENINP^PSIVOPT ENLOG^PSIVVW1 ENBOTH^PSJAC ^PSJO (BOT,ENL)^PSJO3 ENVW^PSJOE0 CNV^PSJP READ^PSJUTL
IHS Changes To Pharmacy	1	SETPTCX^APSPFUNC
Kernel	1	^%ZISC
VA Fileman	1	^DIR

Package

Total

Call Graph

(ENCV,ENIVKV)^PSGSETU ENDEV^PSGTI EN2^PSGVW (ALC,ENA)^PSGVW0 ENINP^PSIVOPT ENLOG^PSIVVW1 ENBOTH^PSJAC ^PSJO
(BOT,ENL)^PSJO3 ENVW^PSJOE0 CNV^PSJP READ^PSJUTL

IHS Changes To Pharmacy

SETPTCX^APSPFUNC

Kernel

^%ZISC

VA Fileman

^DIR

Package	Total	Caller Graph
Inpatient Medications	4	PSJ EXTP PSJ OR PAT PR PSJ OR PR PSJ PR
IHS View Patient Record	1	BVPRX

Package

Total

Caller Graph

Inpatient Medications

PSJ EXTP PSJ OR PAT PR PSJ OR PR PSJ PR

IHS View Patient Record

BVPRX

Name	Comments	DBIA/ICR reference
PAT1	;
PP	;
EN	;
PAT	;
PW	;
PC	;
PP2	; Display selected order.
DEV	;
PP3
ENQ	;
PP1	;
DONE	;
PG	;
GO	;
ENLM
PH	;
PJ	;
ENOR(PSGP)	;S (PSGP,DFN)=+ORVP,PSGP(0)=^DPT(PSGP,0)

Name

Comments

DBIA/ICR reference

PAT1

;

PAT

;

PP2

; Display selected order.

DEV

;

PP3

ENQ

;

PP1

;

DONE

;

ENLM

;

ENOR(PSGP)

;S (PSGP,DFN)=+ORVP,PSGP(0)=^DPT(PSGP,0)

External References

Name	Field # of Occurrence
^%ZISC	ENQ+5
SETPTCX^APSPFUNC	PP+1
^DIR	GO+2, PP3
ENCV^PSGSETU	ENLM+2
ENIVKV^PSGSETU	DONE+2
ENDEV^PSGTI	DEV+3
EN2^PSGVW	PP2+3
ALC^PSGVW0	GO+3
ENA^PSGVW0	PP2+3
ENINP^PSIVOPT	PP2+2
ENLOG^PSIVVW1	PP2+2
ENBOTH^PSJAC	ENQ+4, PAT1+2, ENLM+3
^PSJO	PP+2
BOT^PSJO3	PP+8
ENL^PSJO3	EN+5, ENLM+3
ENVW^PSJOE0	PP+2
CNV^PSJP	ENLM+3
READ^PSJUTL	PP+2, PP+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GO+2
Function Call: READ	Timeout: DTIME Line Location: GO+3
Function Call: WRITE	Prompt: !!?2,"Enter a 'P' to print ONLY the PROFILE of orders for this patient. Enter an",!,"'E' to print ONLY the EXPANDED VIEW of the orders for this patient. Enter a",!,"'B' to have BOTH the profile (first) and the expanded views print." Line Location: PH+1
Function Call: WRITE	Prompt: " Enter an '^'to exit." Line Location: PH+2
Routine Call	DIR Line Location: GO+2 PP3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	PG+1
^DPT - [#2]	PAT+1, ENOR+1
^DPT("CN"	PW+1
^PS(53.1 - [#53.1]	PP2+1
^PS(55 - [#55]	PC+3, PC+4, PC+6, PC+7
^PS(57.5 - [#57.5]	PG+1
^PS(57.7 - [#57.7]	PAT+2
^TMP("PSG"	PP+4
^TMP("PSJ"	DONE+1!, PP+7, PP+8!, PP1+1
^TMP("PSJAT"	ENQ+2!, PC+4!, PC+7!, PW+1!, PAT+4*, PAT1+1, PAT1+2
^TMP("PSJON"	DONE+1!
^TMP("PSJPR"	PC+1!, PC+4, PC+7, PJ+1*

Label References

Name	Line Occurrences
@(	EN+2, EN+3, ENQ+5, PP+3
DEV	GO+1
DONE	EN+1, EN+3, ENQ+5, ENLM+5
EN	EN+5, GO+2, GO+4, DEV+3
ENQ	DEV+3
GO	EN+5, ENLM+3
PAT	PC+4, PC+7, PW+1
PAT1	PC+4, PC+7, PW+2
PJ	PC+4, PC+7
PP	ENQ+4, PAT1+2
PP1	PP+7
PP2	PP1+1
PP3	PP+5, PP2+2, PP2+3
PW	PG+1

Name	Field # of Occurrence
^(0	PAT+1

Name

Field # of Occurrence

^(0

PAT+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AND	DONE+2!
AT	DONE+2!, GO+3, PAT+1, PAT+2, PAT+4, PP2+3
C	DONE+2!
CA	DONE+2!
>> CLINIC	PC+2, PC+3, PC+4, PC+5, PC+6, PC+7
DDH	DONE+2!
DFN	DONE+2!, ENQ+4, PC+4, PC+7, PW+1, PAT+1, PAT+4, PAT1+2, ENOR+1
DIR	GO+2~, PP3!
DIR("?"	GO+2*
DIR("A"	GO+2*
DIR("B"	GO+2*
DIR(0	GO+2, PP3
DN	DONE+2!
DOB	DONE+2!
DRGI	DONE+2!
DRGN	DONE+2!
DRGT	DONE+2!
DTIME	GO+3
>> DTOUT	PP+5, PP2+2, PP2+3, PP3
>> DUOUT	PP+5, PP2+2, PP2+3, PP3
FIL	DONE+2!
FQC	DONE+2!
HDR	DONE+2!
HDT	DONE+5!
I1	DONE+2!
IO	ENQ+2, PP+3
IO("Q"	DEV+3
IO(0	ENQ+2
IOF	ENQ+5
IOST	ENQ+2
J	DONE+2!
>> JDFN	PC+2, PC+4, PC+5, PC+7, PJ+1
JJ	DONE+2!
MF	DONE+2!
NF	DONE+2!
O	DONE+2!
OD	DONE+2!
ON	DONE+2!
ON55	DONE+2!
P	DONE+2!
P1	DONE+2!
PDRG	DONE+2!
PFLG	PSJPR+5~
PG	DONE+2!
>> POP	DEV+3
PPAGE	PSJPR+5~, EN+3, ENLM~, ENLM+1
PPN	DONE+2!, ENQ+3, ENQ+4, PAT+1
PRI	DONE+2!
PRIV	DONE+2!
PSGLI	PSJPR+6~
PSGLMT	DONE+2!
PSGODT	DONE+5!
PSGOE	DONE+2!
PSGON	DONE+2!
PSGONC	DONE+2!
PSGONR	DONE+2!
PSGONV	DONE+2!
PSGORD	DONE+2!, PP2+3*
PSGP	ENQ+4, PW+1, PAT1+2*, PP+1, PP2+2, ENOR~, ENOR+1, ENLM+3
PSGP(0	ENOR+1*, ENLM+3
PSGPR	DONE+2!
PSGPRF	PP+2!
PSGPRP	DONE+2!, ENQ+2*
PSGPTMP	PSJPR+5~, EN+3, ENLM~, ENLM+1
PSGSS	DONE+2!
PSGSSH	DONE+2!
>> PSGTIR	DEV+2*
PSGWD	PSJPR+6~
PSIVAC	DONE+3!
PSIVCT	DONE+3!
PSIVREA	DONE+3!
PSIVSCR	DONE+3!
PSIVUP	DONE+3!
PSIVX	DONE+3!
PSJACNWP	DONE+4!, ENQ+2*
PSJACOK	DONE+4!
PSJAT	PSJPR+6~, PAT1+1*, PAT1+2
PSJDBL	DONE+4!, PAT1+1!, PAT1+2*
PSJDEV	DONE+4!, PP+3*
>> PSJEXTP	EN+2, EN+3, PP+3, ENLM+3
PSJION	DONE+4!
PSJIVOF	DONE+5!
PSJLM	PP2+1~
PSJNEW	PSJPR+5~, ENLM~
>> PSJNKF	ENLM+5*
PSJOCNT	DONE+5!
PSJOL	EN+5, DONE+4!, ENLM+3
PSJON	DONE+4!, DONE+5!, PP+2, PP+3*
PSJOPC	DONE+5!
PSJORD	DONE+5!, PP2+1*, PP2+2, PP2+3
PSJORIFN	DONE+5!
PSJOS	DONE+4!, DEV+1*
PSJP	DONE+4!
PSJPNRB	PSJPR+6~, PAT1+2*
PSJPR	DONE+5!, ENQ+2*, ENQ+5, PP+2, PP+3, PP+4, PP+5, PP+8, PP3
PSJPRA	DONE+5!, GO+1, GO+3, GO+4, PP2+2, PP2+3
PSJPRF	DONE+5!, PP+2, PP2+1~, PP2+2
PSJPRP	DONE+5!, GO+1, GO+2, GO+3, ENQ+2, PP+2, PP+3, PP+5
PSJPRW	DONE+4!, PG+1, PAT+2, ENLM+3
PSJPRWG	DONE+4!, PG+1, ENLM+3*
PSJPRWGN	DONE+4!, ENLM+3*
PSJPRWN	DONE+4!, PG+1, PW+1, ENLM+3
PSJPWDO	PSJPR+6~
PSJQ	DONE+5!, PP+7, PP1+1
PSJS1	DONE+5!, PP+6, PP+7, PP1+1, PP2+3, PP3*
PSJS2	DONE+5!, PP+6, PP+7, PP1+1, PP3*
PSJS3	DONE+5!, PP+6, PP+7, PP1+1, PP3*
PSJS4	DONE+5!, PP+6, PP1+1, PP2+1, PP3*
PSJSEL	EN+3!, DONE+4!
PSJSEL(	ENQ+1
PSJSEL("P"	ENQ+3, ENQ+4, ENLM+3*
PSJSEL("RBP"	EN+4*, PAT+1
PSJSEL("SELECT"	EN+3, EN+4, GO+1, ENQ+3, ENQ+5, PP+4, ENLM+3*
PSJSEL("TM"	PAT+2
PSJSEL("WG"	EN+4
PSJSS	DONE+4!
PSJSSH	DONE+4!
PSJSTOP	PSJPR+6~, EN+3, EN+4
>> PSJSYSP0	DEV+1
PSJTEAM	PSJPR+6~
PX	DONE+5!
>> Q	GO+3
QFLG	PSJPR+5~
RB	DONE+5!, PAT+1*, PAT+2
RCT	DONE+5!
RF	DONE+5!
SD	DONE+5!
SLS	DONE+5!
SSN	DONE+5!
>> STDTE	PC+2, PC+3, PC+4, PC+5, PC+6, PC+7
SUB	DONE+5!
TF	DONE+5!
U	ENQ+1, PAT+1, PP2+1
UD	DONE+5!
WD	DONE+5!
WDP	DONE+5!
WT	DONE+5!
>> X	DEV+2, ENQ+1, ENQ+3, ENQ+4, PG+1, PAT+1, PAT+4, PAT1+2, PP+2, PP+6 , PP+8, PP3*
XQUIT	EN+1, EN+3, DONE+5!, ENLM+3*
>> Y	GO+2, ENQ+1, PAT+3
>> ZTDESC	DEV+2*
ZTOUT	DONE+5!
ZTSAVE	DEV+2!
ZTSAVE(	DEV+2*

Customize PDF page

Package: Inpatient Medications

Routine: PSJPR

Information

Source Information