Routine: PSGDL

Package	Total	Call Graph
Inpatient Medications	4	$$EN^PSGCT $$ONE^PSJBCMA $$ENQ^PSJORP2 $$DATE^PSJUTL2
VA Fileman	2	^%DT (C,DW)^%DTC
Kernel	1	$$FMADD^XLFDT

Package	Total	Caller Graph
Inpatient Medications	7	PSGNE3 PSGOE3 PSGOE41 PSGOE81 PSGOE91 PSGOER0 PSIVEDT1

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
ENE	;
ENGO	;
POUT	;
ENPREV	; when "P" is enter at start date
CHK
TS
ENDL(SCH,DL)	;validate that dose limit should be allowed with this schedule
EN1	;
EN2	;
DONE	;
MWF	; if schedule is similar to monday-wednesday-friday
ADD	;
SCHK

Name	Line Occurrences
Function Call: WRITE	Prompt: " ...Dose Limit... " Line Location: EN+1
Function Call: WRITE	Prompt: " ...Dose Limit... " Line Location: EN2+2
Function Call: WRITE	Prompt: " Dose limit invalid with this schedule" Line Location: ENDL+3
Function Call: WRITE	Prompt: " Dose limit must be a whole number" Line Location: ENDL+4

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.1 - [#53.1]	EN+1, ENPREV+1, ENPREV+2
^PS(55 - [#55]	EN2+1, ENPREV+3

Name	Field # of Occurrence
^(	ENPREV+1
^(2	ENPREV+2, ENPREV+3

Name	Field # of Occurrence
>> %DT	ENGO+6, ENGO+7
%H	DONE+1!
%T	DONE+1!
%Y	DONE+1!
>> AM	ENGO+14*
>> C	ENGO+17, MWF+1, SCHK+2, TS
>> DA	EN+1, EN2+1, ENPREV+1
>> DA(1	EN2+1
>> DFN	ENDL+3
DL	ENDL~, ENDL+4
MN	ENGO+3*, ENGO+10~, ENGO+13, ENGO+14, DONE+1!, ADD+1
ND2	EN+1, ENE+1, EN1+1, EN2+1, ENGO+1, ENGO+2, ENGO+3, ENGO+10~, ENGO+11, DONE+1!
ND4	DONE+1!
>> PSGAT	ENE+1, ENGO+10
PSGDL	ENGO+14, ENGO+17, MWF+1, SCHK+2, TS, DONE+1!
PSGDLS	EN+1!, EN2+1!, ENGO+2, ENGO+11, DONE+1!
PSGFD	ENGO+7~, ENGO+9~, ENGO+10
>> PSGNEDFD	EN1+1
>> PSGNESD	EN1+1
PSGP	ENGO+11, ENPREV+1*, ENPREV+2, ENPREV+3, POUT+1!
PSGPDRG	ENGO+10, ENPREV+1*, ENPREV+2, ENPREV+3, POUT+1!
>> PSGS0XT	ENE+1, EN1+1
>> PSGS0Y	EN1+1
>> PSGSCH	ENE+1, ENGO+10
PSGSD	ENE+1, ENGO+6~, ENGO+8~, ENGO+9, ENGO+10
>> PSGST	ENGO+10
>> PSJSYSW0	ENGO+4, ENGO+5, ENGO+12
Q	ENGO+16, ENGO+17, MWF+1, SCHK, SCHK+2, ADD+1, ENPREV+2, ENPREV+3, POUT+1!
Q1	TS*, DONE+1!
QQ	CHK*, DONE+1!
SCH	ENGO+1, ENGO+10~, ENGO+13, MWF+1, SCHK, CHK, DONE+1!, ENDL~, ENDL+2, ENDL+3
>> ST	ENGO+2, ENGO+5, ENGO+11, ENGO+14, ENGO+15, ENGO+17, MWF+1, SCHK+2
STRING	ENGO+10~*, ENGO+11
TM	ENGO+15, ENGO+16, SCHK+2, DONE+1!
TS	ENGO+3, ENGO+5, ENGO+10~, ENGO+13, ENGO+14, ENGO+15, ENGO+16, ENGO+17, MWF+1, SCHK+2 , TS, DONE+1!
U	ENGO+4, ENGO+5, ENGO+12
WKD	SCHK, CHK, DONE+1!
X	ENGO+6, ENGO+7, ENGO+14, ENGO+17, MWF+1, SCHK, SCHK+2, CHK, TS, ADD+1 , ENPREV+1, ENPREV+2, ENPREV+3, ENPREV+4, POUT+1!
X1	MWF+1, SCHK, SCHK+2, TS, DONE+1!, ADD+1*
X2	MWF+1, DONE+1!, ADD+1
>> Y	ENGO+6, ENGO+7, ENPREV+1*, POUT+1