Routine: PSGS0

Package	Total	Call Graph
Inpatient Medications	8	$$ENLU^PSGMI $$ODD^PSGS0 ENCV^PSGSETU ENQ^PSGSH $$DOW^PSIVUTL $$ONE^PSJBCMA $$SCHREQ^PSJLIVFD ADMIN^PSJORPOE
VA FileMan	3	EN^DDIOL MIX^DIC1 ^DIR
Kernel	1	$$TRIM^XLFSTR

Package	Total	Caller Graph
Inpatient Medications	41	*DRUG APPLICATION PSGMIV PSGMMIVC PSGOD PSGOE3 PSGOE4 PSGOE41 PSGOE6 PSGOE8 PSGOE81 PSGOE9 PSGOE91 PSGOEF PSGOER PSGOES PSGOEV PSGORS0 PSGS0 PSIVCHK PSIVCHK1 PSIVEDT1 PSIVOPT2 PSIVSP PSIVUTL PSJ0071 PSJDDUT PSJHL3 PSJLIFN PSJLIFNI PSJLMGUD PSJMIV PSJORMA2 PSJORPOE PSJORREN PSJPDCLU PSJU TRAIN SCHEDULE PSJUTL PSJVOSR ^PS(53.1 ^PS(57.1
Kernel	1	^DIC(19
Pharmacy Data Management	1	UNIT DOSE

Entry Points

Name	Comments	DBIA/ICR reference
ENA	; entry point for train option
EN3	;
EN5	;
EN	; validate
ENOS	; order set entry
NS
Q	;
Q2
Q3
NSSCONT(SCH,FREQ)	;
NSSMSG	;
NSO(FQ)	;
ENCHK	;
DIC	; Check for schedule's existence in ADMINISTRATION SCHEDULE file (#51.1) ; Input: ; X = Schedule Name ; PSJSLUP = If $G(PSJSLUP), perform interactive fileman lookup (optional). ; PSGSFLG = If $G(PSGSFLG), return schedule IEN in PSGSCIEN variable (optional) ; PSJLIFNI = Flag indicating a U/D order is being finished as an IV (optional). ; PSGOES = If PSGOES=1, IX^DIC is called silently. If PSGOES=2, IX^DIC is not called (optional). ; PSJPWD = IEN of Inpatient Ward associated with the patient/order/schedule combination (optional). ; Output: ; X = Schedule Name if valid Input Schedule X, undefined if invalid Input Schedule X. ; PSGS0XT = Frequency of validated schedule. ; PSGS0Y = Default Admin Times of validated schedule. ; PSGSCIEN = IEN of validated schedule, if PSGSLFG is passed in and is evaluated to TRUE.
DW	;
DWC
PRNOK(PSCH)	;
ODD(PSF)	;determine if this is an odd schedule

External References

Name	Field # of Occurrence
EN^DDIOL	EN+4
MIX^DIC1	DIC+49
^DIR	NSSCONT+5
$$ENLU^PSGMI	EN+4
$$ODD^PSGS0	ENOS+27
ENCV^PSGSETU	ENA+1
ENQ^PSGSH	ENA+2
$$DOW^PSIVUTL	ENOS+9, ENOS+17, Q2+3, DIC+21, DIC+29, DIC+50, DIC+57, PRNOK+5, PRNOK+6
$$ONE^PSJBCMA	ENOS+16
$$SCHREQ^PSJLIVFD	Q2+2
ADMIN^PSJORPOE	DIC+26
$$TRIM^XLFSTR	EN+3

Interaction Calls

Name	Line Occurrences
Function Call: READ	Formatting: !! Prompt: "Select STANDARD SCHEDULE: " Variable: X Timeout: DTIME Line Location: ENA+2
Function Call: WRITE	Prompt: X="^" Condition for execution: '$T $C(7) S:'$T Line Location: ENA+2
Function Call: WRITE	Prompt: " Every ",PSGS0XT," minutes" Line Location: ENA+2
Function Call: WRITE	Prompt: !!,PSJNSS,! Line Location: NSSCONT+4
Routine Call	DIR Line Location: NSSCONT+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(51.1 - [#51.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(51.1 - [#51.1]	ENOS+8, ENOS+14, ENOS+20, ENOS+26, ENOS+32, Q2+3, Q3, ENCHK+11, DIC+15, DIC+17 , DIC+20, DIC+25, DIC+31, DIC+35, DIC+52, PRNOK+3, PRNOK+5
^PS(53.1 - [#53.1]	EN3+1
^PS(55 - [#55]	EN5+1

Label References

Name	Line Occurrences
$$ODD	DIC+50
$$PRNOK	ENOS+14, Q2+3, DIC+50
DIC	ENOS+11, ENOS+20
DW	ENOS+18, ENOS+28
DWC	DW+7
EN	ENA+2, EN3+1
ENCHK	ENOS+5, DW+5
NSSCONT	Q2+4, Q2+7
NSSMSG	NSSCONT+4
Q	ENOS+5, ENOS+14, ENOS+28, ENOS+32
Q3	ENOS+20

Naked Globals

Name	Field # of Occurrence
^(0	DIC+52

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADMATCH	DIC+25~
AT	DW+3~*, DW+10
BASE	PRNOK+3~
>> D	DIC+45*
>> DA	EN3+1, EN5+1
>> DA(1	EN5+1
>> DFN	ENOS+16
DIC	ENA+3!, DIC+41!, DIC+49!
DIC("W"	DIC+45, DIC+46
DIC(0	DIC+41, DIC+43
DIE	ENA+3!, DIC+49
DIR	NSSCONT+3~
DIR("A"	NSSCONT+5*
DIR(0	NSSCONT+5*
DOW	ENOS+17~, ENOS+18*, ENOS+19
DTIME	ENA+2
>> EDIT	DIC+43
FQ	NSO~, NSO+1, NSO+2
FREQ	NSSCONT~, NSSCONT+3, DIC+25~*
FRQOUT	NSO+2!, NSO+3, NSO+4
H	ENCHK+1~, ENCHK+11*
I	ENCHK+1~, ENCHK+11, ENCHK+12, ENCHK+13, ENCHK+14, PRNOK+3~
>> II	DW+8*
LYN	ENOS+10~
NS	NS+1~, NS+2
NSFF	NSSCONT+2, NSSCONT+6!, DIC+22, DIC+32, DIC+33
OK	PRNOK+3~, PRNOK+4, PRNOK+5, PRNOK+6*, PRNOK+7
>> ON	ENOS+16, DIC+41
>> P	Q2+2
>> P(2	ENOS+2, Q2+4, Q2+6
>> P(3	ENOS+2, Q2+4, Q2+6
>> P(4	DIC+31
>> P(9	ENOS+2, ENCHK+9
PSCH	PRNOK~, PRNOK+1, PRNOK+2, PRNOK+3, PRNOK+5, PRNOK+6
PSF	ODD~, ODD+1, ODD+2
>> PSGAT	ENOS+27, Q+2, DIC+22
PSGDT	ENA+3!
PSGIEN	DIC+19~, DIC+20*
>> PSGMARSD	NSSCONT+1
>> PSGOEEF(26	DIC+43
>> PSGOEER	DIC+43
>> PSGOES	EN+4, ENOS+26, NSSCONT+2, DIC+24, DIC+36, DIC+41
PSGS0ST	DIC+14~, DIC+26*, DIC+38
PSGS0XT	ENA+2, ENA+3!, ENOS+4, ENOS+10~, ENOS+12, ENOS+19, ENOS+20, ENOS+21, ENOS+27, ENOS+28* , Q+1, Q+2, Q2+4, Q2+7, NSSCONT+3~, NSSMSG+4, ENCHK+9, DIC+17, DIC+20, DIC+21* , DIC+24, DIC+25, DIC+26~, DIC+28, DIC+29, DIC+33, DIC+34, DIC+35, DIC+37, DIC+50 , DIC+57
PSGS0Y	ENA+2, ENA+3!, EN+1!, ENOS+4, ENOS+10~, ENOS+12, ENOS+17, ENOS+21, ENOS+22, ENOS+27 , Q+1, Q+2, Q2+1, DIC+17, DIC+20, DIC+21, DIC+22, DIC+26~, DIC+28, DIC+29* , DIC+34, DIC+35, DIC+56, DW+10
PSGSCH	ENOS+27, Q+2, NSSCONT+3~, NSSMSG+2, NSSMSG+3, NSSMSG+4, ENCHK+9*, ENCHK+10, ENCHK+11, ENCHK+12
PSGSCHX	DIC+19~, DIC+20*
>> PSGSCIEN	DIC+54*
>> PSGSFLG	DIC+54
PSGST	EN3+1, EN5+1, ENOS+19, ENOS+27, NSSMSG+2, NSO+1, DIC+26~
>> PSGXT	ENOS+4*, DIC+33
>> PSIVFN1	NSSCONT+1
PSJDIC2	ENOS+1~, Q+2, DIC+47*
>> PSJLIFNI	Q2+5, DIC+41
>> PSJNEWOE	Q+2, DIC+22
PSJNSS	ENOS+4, ENOS+28!, ENOS+32!, NS+1, NS+2, Q2+1, Q2+3, Q2+5, Q3!, NSSCONT+3* , NSSCONT+4, NSSMSG+2, NSSMSG+3, DIC+20, DIC+21, DIC+50*
>> PSJOCFG	DIC+43
>> PSJOLDNM	DIC+41
>> PSJPWD	DIC+45, DIC+52
PSJSLUP	DIC+16, DIC+31, DIC+34, DIC+35, DIC+39!
>> PSJTUD	Q2+5
PSJXI	ENOS+1~, ENOS+20, NSSCONT+4, NSSMSG+1, DIC+14!, DIC+15, DIC+24, DIC+31, DIC+32, DIC+37 , DIC+38, DIC+50
Q	ENA+3!, DW+7*
QX	Q3+1!, DWC+1*
SCH	NSSCONT~, NSSCONT+1, NSSCONT+3
SDW	Q3+1!, DW+4*, DW+6, DW+9
SWD	Q3+1!, DW+4, DW+7, DWC+1
TMP	ENOS+18~*
TMPAT	ENOS+1~, ENOS+7, ENOS+8!, ENOS+9!, ENOS+11, ENOS+12
TMPSCHX	ENOS+28~*, ENOS+29, ENOS+30, ENOS+31
>> TMPX	ENOS+28, Q2+4, Q2+7*
U	DIC+20
>> VALMBCK	Q2+5, NSSCONT+1
X	ENA+2, ENA+3!, EN+2!, EN+3, EN+4, ENOS+2, ENOS+3, ENOS+5, ENOS+7, ENOS+9 , ENOS+10~, ENOS+11, ENOS+12, ENOS+14, ENOS+16, ENOS+17, ENOS+18~, ENOS+20, ENOS+21, ENOS+26 , ENOS+27!, ENOS+28, ENOS+30, ENOS+31, ENOS+32, NS!, NS+2, Q+2, Q2+2, Q2+3 , Q2+4!, Q2+7!, Q3, NSSCONT+3~, ENCHK+2!, ENCHK+3!, ENCHK+4!, ENCHK+5!, ENCHK+6, ENCHK+7! , ENCHK+8, ENCHK+9, ENCHK+13, ENCHK+15!, ENCHK+17!, ENCHK+18!, ENCHK+19!, ENCHK+20!, ENCHK+21, DIC+15 , DIC+16, DIC+17, DIC+20, DIC+21, DIC+25, DIC+29, DIC+31, DIC+35, DIC+50, DIC+52* , DIC+54, DIC+55, DIC+57, DW+2, DW+3, DW+4, DW+5, DW+6, DW+7!, DW+8 , DW+9, DWC!, DWC+2!
X(1	ENCHK+3, ENCHK+4, ENCHK+5, ENCHK+9, ENCHK+13!, ENCHK+18, ENCHK+19, ENCHK+20, ENCHK+21!, DW+6 , DW+7, DW+8, DW+9!
X(2	ENCHK+5, ENCHK+7, ENCHK+9*, ENCHK+13!, ENCHK+16, ENCHK+17, ENCHK+18, ENCHK+19, ENCHK+20, ENCHK+21!
X(3	ENCHK+5, ENCHK+7, ENCHK+13!, ENCHK+21!
X0	ENOS+1~, ENOS+5, NS+2, Q3+1!, DIC+55
XABB	DW+4~, DW+8, DW+9
>> XQUIT	ENA+1
XT	ENOS+4, ENOS+16, ENOS+19, ENOS+20, ENOS+21, ENOS+28, Q+1, Q3+1!, DIC+26, DIC+28 , DIC+29, DIC+50, DIC+51, DIC+56, DIC+57
Y	ENA+3!, ENOS+4, ENOS+5, ENOS+17, ENOS+21, ENOS+29, ENOS+30, NS, NS+2, Q+1 , NSSCONT+3~, DIC+14~, DIC+26, DIC+28, DIC+49, DIC+52, DIC+55, DIC+56, DW+1~, DWC+1*
Y(0	DIC+51, DIC+55, DIC+56
Y0	ENOS+1~, ENOS+11, ENOS+17, ENOS+20, ENOS+21, DIC+14!, DIC+21, DIC+22, DIC+26, DIC+29* , DIC+56*
Y0(0	DIC+56*
YY	Q2!, Q2+1
Z	Q3+1!, DIC+15, DW+7, DWC, DWC+1
ZZND	ENOS+10~, ENOS+27, DIC+50

Customize PDF page

Package: Inpatient Medications

Routine: PSGS0

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 43

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: