Routine: PSGPL0

Package	Total	Call Graph
Inpatient Medications	2	$$ONE^PSJBCMA $$LASTREN^PSJLMPRI
VA Fileman	1	(,C,DW)^%DTC

Package	Total	Caller Graph
Inpatient Medications	4	PSGMAR0 PSGMIV PSGPEN PSGPL1

Entry Points

Name	Comments	DBIA/ICR reference
QUIT
EN	;
RUN	; quit if fill on request prn or stop date not found
SETMN	; Set MN for PRN orders
MN	; if only minutes (MN) are found
ENIV	;*** Entry to be called from ^PSGMIV (24 HOUR MAR IV).
TS	; admin times
TSFMN	;if admin times exist and minutes#1440=0
DWC
ADD	; ST=start date/time AM=minutes (+ or -) X=new date/time
DONE
MWF	; schedule in form of WD-WD-WD@TS
ENCHK	;
DW	;
TS1

External References

Name	Field # of Occurrence
^%DTC	MN+2
C^%DTC	TSFMN+1, MWF+3, ADD+4
DW^%DTC	MWF+3
$$ONE^PSJBCMA	RUN+9
$$LASTREN^PSJLMPRI	RUN+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(51.1 - [#51.1]	SETMN+1, SETMN+2, SETMN+4, SETMN+6
^PS(55 - [#55]	RUN+1, RUN+2, RUN+9

Label References

Name	Line Occurrences
ADD	MN+2, MN+3
DW	SETMN+9
DWC	DW+2
ENCHK	DW+1
MWF	ENIV+3
RUN	EN+1
SETMN	RUN+7
TS	ENIV+5, TSFMN+1, MWF+3
TS1	TS1
TSFMN	ENIV+4

Naked Globals

Name	Field # of Occurrence
^(0	SETMN+2, SETMN+4, SETMN+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AM	MN+2, MN+3, ADD+1*, ADD+5!
CD	DONE!, ENIV+3, MN+3, TSFMN+1, TS1, MWF+1, MWF+3
>> CML	MN+3*, MN+4
>> FQ	MWF+2, MWF+3
>> FQ1	MWF+3*
H	ADD+1, ADD+2, ADD+3, ADD+5!
HCD	DONE!, MWF+1*, MWF+3
HM	DONE!, MN+2*, MN+3
HRS	ADD+1, ADD+3, ADD+5!
I	DONE!, MN+3, TSFMN+1
J	DONE!
M	DONE!, ADD+1*, ADD+2, ADD+5!
MID	DONE!, ENIV+3, TSFMN+1
MN	DONE!, RUN+7, ENIV+1, ENIV+2, ENIV+3, ENIV+4, MN+1, MN+2, TSFMN+1, MWF+2 , MWF+3, ADD+1, ADD+2, ADD+3, ADD+5!, SETMN+1, SETMN+2, SETMN+4, SETMN+6, SETMN+11* , SETMN+13*
MNFL	SETMN+1, SETMN+2, SETMN+3, SETMN+4, SETMN+6, SETMN+8, QUIT!
ND	DONE!, RUN+2, RUN+3, RUN+5, RUN+6, RUN+7, RUN+9, ENIV+2, ENIV+3, MWF+1 , MWF+2, MWF+3, SETMN+1, SETMN+3, SETMN+4, SETMN+6
ND1	DONE!, RUN+1*, ENIV+1
OD	DONE!, ENIV+3, MN+2, MN+3, MWF+1, MWF+3
OSTOP	RUN+4~*
PLSD	DONE!, RUN+6*, RUN+7, ENIV+1, ENIV+3, MN+3, TS1
PREX	DONE!, RUN+9*
PRND	SETMN+4, SETMN+5, SETMN+6, SETMN+7, SETMN+9, SETMN+10, SETMN+11, SETMN+12, SETMN+13, QUIT! , DW+1, DW+2!, DW+3*, DWC!, DWC+2!, ENCHK+1!, ENCHK+2!, ENCHK+3!, ENCHK+4!, ENCHK+5
PRND(1	DW+1, DW+2, DW+3!, ENCHK+2, ENCHK+3*, ENCHK+4, ENCHK+5!
PRND(2	ENCHK+4*, ENCHK+5!
PRND(3	ENCHK+4*, ENCHK+5!
PRND1	SETMN+12*, SETMN+13, QUIT!
PRND2	SETMN+12*, QUIT!
PSGD	DONE!
>> PSGDT	RUN+5
>> PSGFD	RUN+5
PSGMAR	EN+1!
PSGMAR(	ENIV+1, MN+3, TS1*
>> PSGMFOR	RUN+1
>> PSGP	RUN+1, RUN+2, RUN+3, RUN+9
>> PSGPENO	RUN+4
>> PSGPLC	EN+1, RUN+1, RUN+7, ENIV+1, ENIV+2, MN+1, MN+3, TS1
>> PSGPLF	ENIV+1, ENIV+3
>> PSGPLO	RUN+1, RUN+2, RUN+3, RUN+9
>> PSGPLS	ENIV+1, ENIV+3, ENIV+5, MN+2, TSFMN+1, TS1
>> PSJPRN	RUN+2
>> PSJREN	RUN+4, RUN+5
>> PSJRNOS	RUN+5
>> Q	TS+1, TS1, DW+2
QD1	DONE!
QD2	DONE!
QQ	DONE!, TS1*
QX	QUIT!, DW+1, DWC+1
RNDT	RUN+3~*, RUN+4
SDW	QUIT!, DW+1*, DW+3
ST	DONE!, RUN+3, RUN+4, RUN+5, RUN+7, ENIV+1, ENIV+3, ENIV+5, MN+2, MN+3 , MN+4, TSFMN+1, TS+1, TS1, MWF+1, MWF+3, ADD+1
SWD	QUIT!, DW+1, DW+2, DWC+1
T	ADD+1*, ADD+2, ADD+3, ADD+4, ADD+5!
TS	DONE!, RUN+6, ENIV+2, ENIV+4, ENIV+5, TS+1, TS1, MWF+1, SETMN+1, SETMN+2 , SETMN+4, SETMN+6, SETMN+9*
UD	DONE!
WDT	DONE!
WS	DONE!
WS1	DONE!
X	DONE!, MN+2, MN+3, TSFMN+1, MWF+1, MWF+3, ADD+1, ADD+4, ADD+5
X1	DONE!, MN+2, TSFMN+1, MWF+3, ADD+4
X2	DONE!, MN+2, TSFMN+1, MWF+3, ADD+1, ADD+3, ADD+4
XX	TS+1, TS1, SETMN+1, SETMN+2, SETMN+4, SETMN+6*, QUIT!
>> Y	DWC+1*
Z	QUIT!, DW+2*, DWC, DWC+1

Customize PDF page

Package: Inpatient Medications

Routine: PSGPL0

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: