Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSGS0

Package: Inpatient Medications

Routine: PSGS0


Information

PSGS0 ;BIR/CML3 - SCHEDULE PROCESSOR ;06/22/09 7:12 PM

Source Information

Source file <PSGS0.m>

Call Graph

Call Graph

Call Graph Total: 12

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  

Caller Graph

Caller Graph Total: 43

Package Total Caller Graph
Inpatient Medications 42 *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  
UNIT DOSE  ^PS(57.1  
Outpatient Pharmacy 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, Q3ENCHK+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*, DWCDWC+1
ZZND ENOS+10~, ENOS+27, DIC+50
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All