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 ; 6/22/09 7:12am

Source Information

Source file <PSGS0.m>

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  

Caller Graph

Caller Graph Total: 38

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  

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

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+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

Label References

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

Naked Globals

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~
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