Routine: PSGS0

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Inpatient Medications	7	$$ENLU^PSGMI ENCV^PSGSETU ENQ^PSGSH $$DOW^PSIVUTL $$ONE^PSJBCMA $$SCHREQ^PSJLIVFD ADMIN^PSJORPOE
VA Fileman	3	EN^DDIOL IX^DIC ^DIR
Kernel	1	$$TRIM^XLFSTR

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

Package

Total

Caller Graph

Inpatient Medications

*DRUG  APPLICATION  PSGMIV  PSGMMIVC  PSGOD  PSGOE3  PSGOE4  PSGOE41
PSGOE6  PSGOE8  PSGOE81  PSGOE9  PSGOE91  PSGOEF  PSGOER  PSGOES
PSGOEV  PSGORS0  PSIVCHK  PSIVEDT1  PSIVSP  PSIVUTL  PSJ0071  PSJDDUT
PSJHL3  PSJLIFN  PSJLIFNI  PSJLMGUD  PSJMIV  PSJORMA2  PSJORPOE  PSJU TRAIN SCHEDULE
^PS(57.1  PSJORREN  PSJUTL  UNIT DOSE  ^PS(53.1

Outpatient Pharmacy

UNIT DOSE

Entry Points

Name	Comments	DBIA/ICR reference
NSO(FQ)	;
ENA	; entry point for train option
Q3
EN	; validate
NSSCONT(SCH,FREQ)	;
ODD(PSF)	;determine if this is an odd schedule
PRNOK(PSCH)	;
NSSMSG	;
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. ;
Q	;
DWC
ENOS	; order set entry
EN3	;
ENCHK	;
DW	;
NS
Q2
EN5	;

External References

Name	Field # of Occurrence
EN^DDIOL	EN+4
IX^DIC	DIC+40
^DIR	NSSCONT+5
$$ENLU^PSGMI	EN+4
ENCV^PSGSETU	ENA+1
ENQ^PSGSH	ENA+2
$$DOW^PSIVUTL	ENOS+9, ENOS+17, Q2+3, DIC+19, DIC+27, DIC+41, DIC+48, PRNOK+5, PRNOK+6
$$ONE^PSJBCMA	ENOS+16
$$SCHREQ^PSJLIVFD	Q2+2
ADMIN^PSJORPOE	DIC+24
$$TRIM^XLFSTR	EN+3

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "Select STANDARD SCHEDULE: " Formatting: !! Timeout: DTIME Variable: X 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
Routine Call	DIC Line Location: DIC+40

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

Name	Line Occurrences (* Changed, ! Killed)
^PS(51.1 - [#51.1]	ENOS+8, ENOS+14, ENOS+20, ENOS+27, Q2+3, Q3, DIC+16, DIC+18, DIC+23, DIC+28 , DIC+32, DIC+43, PRNOK+3, PRNOK+5
^PS(53.1 - [#53.1]	EN3+1
^PS(55 - [#55]	EN5+1

Name	Line Occurrences
$$PRNOK	ENOS+14, Q2+3, DIC+41
DIC	ENOS+11, ENOS+20
DW	ENOS+18, ENOS+23
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+23, ENOS+27
Q3	ENOS+20

Name	Field # of Occurrence
^(0	DIC+43

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADMATCH	DIC+23~
AT	DW+3~*, DW+10
BASE	PRNOK+3~
>> D	DIC+38*
>> DA	EN3+1, EN5+1
>> DA(1	EN5+1
>> DFN	ENOS+16
DIC	ENA+3!, DIC+38!, DIC+40!
DIC("W"	DIC+38*
DIC(0	DIC+38*
DIE	ENA+3!, DIC+40
DIR	NSSCONT+3~
DIR("A"	NSSCONT+5*
DIR(0	NSSCONT+5*
DOW	ENOS+17~, ENOS+18*, ENOS+19
DTIME	ENA+2
FQ	NSO~, NSO+1, NSO+2
FREQ	NSSCONT~, NSSCONT+3, DIC+23~*
FRQOUT	NSO+2!, NSO+3, NSO+4
I	PRNOK+3~*
>> II	DW+8*
LYN	ENOS+10~
NS	NS+1~, NS+2
NSFF	NSSCONT+2, NSSCONT+6!, DIC+20, DIC+29, DIC+30
OK	PRNOK+3~, PRNOK+4, PRNOK+5, PRNOK+6*, PRNOK+7
>> ON	ENOS+16
>> P	Q2+2
>> P(2	ENOS+2, Q2+4, Q2+6, DIC+28
>> P(3	ENOS+2, Q2+4, Q2+6
>> P(4	DIC+28
>> P(9	ENOS+2
PSCH	PRNOK~, PRNOK+1, PRNOK+2, PRNOK+3, PRNOK+5, PRNOK+6
PSF	ODD~, ODD+1, ODD+2
>> PSGAT	Q+2, DIC+20
PSGDT	ENA+3!
>> PSGMARSD	NSSCONT+1
>> PSGOES	EN+4, NSSCONT+2, DIC+22, DIC+33, DIC+38
PSGS0ST	DIC+15~, DIC+24*, DIC+35
PSGS0XT	ENA+2, ENA+3!, ENOS+4, ENOS+10~, ENOS+12, ENOS+19, ENOS+20, ENOS+21, ENOS+23, Q+1 , Q+2, Q2+4, Q2+7, NSSCONT+3~, NSSMSG+4, DIC+18, DIC+19, DIC+22, DIC+23, DIC+24~ , DIC+26, DIC+27, DIC+30, DIC+31, DIC+32, DIC+34, DIC+48*
PSGS0Y	ENA+2, ENA+3!, EN+1!, ENOS+4, ENOS+10~, ENOS+12, ENOS+17, ENOS+21, ENOS+22, Q+1 , Q+2, Q2+1, DIC+18, DIC+19, DIC+20, DIC+24~, DIC+26, DIC+27, DIC+31, DIC+32 , DIC+47, DW+10
PSGSCH	Q+2, NSSCONT+3~, NSSMSG+2, NSSMSG+3, NSSMSG+4
>> PSGSCIEN	DIC+45*
>> PSGSFLG	DIC+45
PSGST	EN3+1, EN5+1, ENOS+19, NSSMSG+2, NSO+1, DIC+24~
>> PSGXT	ENOS+4*, DIC+30
>> PSIVFN1	NSSCONT+1
PSJDIC2	ENOS+1~, Q+2, DIC+39*
>> PSJLIFNI	Q2+5, DIC+28
>> PSJNEWOE	Q+2, DIC+20
PSJNSS	ENOS+4, ENOS+23!, ENOS+27!, NS+1, NS+2, Q2+1, Q2+3, Q2+5, Q3!, NSSCONT+3* , NSSCONT+4, NSSMSG+2, NSSMSG+3, DIC+19, DIC+41
>> PSJPWD	DIC+38, DIC+43
PSJSLUP	DIC+17, DIC+28, DIC+31, DIC+32, DIC+36!
>> PSJTUD	Q2+5
PSJXI	ENOS+1~, ENOS+20, NSSCONT+4, NSSMSG+1, DIC+15!, DIC+16, DIC+22, DIC+28, DIC+29, DIC+34 , DIC+35, DIC+41
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+23~*, ENOS+24, ENOS+25, ENOS+26
>> TMPX	ENOS+23, Q2+4, Q2+7*
>> 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+23 , ENOS+25, ENOS+26, ENOS+27, NS!, NS+2, Q+2, Q2+2, Q2+3, Q2+4!, Q2+7! , Q3, NSSCONT+3~, ENCHK+1!, ENCHK+2!, ENCHK+3!, ENCHK+4!, ENCHK+5, DIC+16, DIC+17, DIC+18 , DIC+19, DIC+23, DIC+27, DIC+28, DIC+32, DIC+41, DIC+43, DIC+45, DIC+46, DIC+48 , DW+2, DW+3, DW+4, DW+5, DW+6, DW+7!, DW+8, DW+9*, DWC!, DWC+2!
X(1	ENCHK+2, ENCHK+3, ENCHK+4, ENCHK+5!, DW+6*, DW+7, DW+8, DW+9!
X(2	ENCHK+4*, ENCHK+5!
X(3	ENCHK+4*, ENCHK+5!
X0	ENOS+1~, ENOS+5, NS+2, Q3+1!, DIC+46
XABB	DW+4~, DW+8, DW+9
>> XQUIT	ENA+1
XT	ENOS+4, ENOS+16, ENOS+19, ENOS+20, ENOS+21, ENOS+23, Q+1, Q3+1!, DIC+24, DIC+26 , DIC+27, DIC+41, DIC+42, DIC+47, DIC+48
Y	ENA+3!, ENOS+4, ENOS+5, ENOS+17, ENOS+21, ENOS+24, ENOS+25, NS, NS+2, Q+1 , NSSCONT+3~, DIC+15~, DIC+24, DIC+26, DIC+40, DIC+43, DIC+46, DIC+47, DW+1~, DWC+1*
Y(0	DIC+42, DIC+46, DIC+47
Y0	ENOS+1~, ENOS+11, ENOS+17, ENOS+20, ENOS+21, DIC+15!, DIC+19, DIC+20, DIC+24, DIC+27* , DIC+47*
Y0(0	DIC+47*
YY	Q2!, Q2+1
Z	Q3+1!, DIC+16, DW+7, DWC, DWC+1
ZZND	ENOS+10~

Customize PDF page

Package: Inpatient Medications

Routine: PSGS0

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 38

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: