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 |  Marked Items  | All
Print Page as PDF
Routine: SDB

Package: Scheduling

Routine: SDB


Information

SDB ;FLA/RF,BSN/GRR - SET UP A CLINIC ;JAN 15, 2016

Source Information

Source file <SDB.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
VA FileMan 6 ^%DT  TURNON^DIAUTL  ^DIC  YN^DICN  DT^DICRW  ^DIE  
Scheduling 5 EN1^SDB0  (HLPD,TX)^SDB1  SDRES^SDECUTL2  DOW^SDM0  DTS^SDUTL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
List Manager 1 $$FDATE^VALM1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Scheduling 6 SDB0  SDB1  SDBUILD  SDNACT1  SDREACT  SDSCE  

Entry Points

Name Comments DBIA/ICR reference
C
EN ;Q:$D(SDONE)&('$D(SDTOP)) SD*5.3*455 added 2nd Go on next line
G1
END
INACT
E1
DOW ;;S %=$E(^(0),1,3),I=$E(^(0),4,5),I=I>2&'(%#4)+$E("144025036146",I) X "F %=%:-1:281 S I=%#4=1+1+I" W " ",$P("SUN^MON^TUES^WEDNES^THURS^FRI^SATUR",U,$E(^(0),6,7)+I#7+1),"DAY"
PRINT ;Print cancelled days
PRINT1
PRINTQ
HELP ;
QUE(X) ; -- que job
; return: did job que [ 1|yes 0|no ]

External References

Name Field # of Occurrence
^%DT G1+1
^%ZIS PRINT+4
^%ZISC PRINTQ+1
^%ZTLOAD QUE+8
TURNON^DIAUTL C+1
^DIC C+2
YN^DICN PRINT+3
DT^DICRW C
^DIE C+4
EN1^SDB0 G1+3
HLPD^SDB1 G1+1
TX^SDB1 E1
SDRES^SDECUTL2 EN+1
DOW^SDM0 G1+2
DTS^SDUTL INACT
$$FDATE^VALM1 PRINT1+1, PRINT1+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: C+0
Function Call: READ
  • Formatting: !!
  • Prompt: "AVAILABILITY DATE: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: G1+1
Function Call: WRITE
  • Prompt: !,*7,"Clinic is inactive",$S('SDRE:" as of ",1:" from "),Y1,$S('SDRE:"",1:" to "_Y)
  • Line Location: INACT+0
Function Call: WRITE
  • Prompt: " ",$P("SUN^MON^TUES^WEDNES^THURS^FRI^SATUR",U,$E(^(0),6,7)+I#7+1),"DAY"
  • Line Location: DOW+0
Function Call: WRITE
  • Prompt: !,"Availability has been cancelled previously. The day(s) has been overwritten",!,"with the new availability. Would you like to see the day(s) that has been affected"
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,"Dates of Availability Previously Cancelled for "_$E($P($G(^SC(DA,0)),U),1,25),?70,$$FDATE^VALM1(DT),!,SDLINE
  • Line Location: PRINT1+1
Function Call: WRITE
  • Prompt: !,"Answer 'Y'es or 'N'o."
  • Line Location: HELP+1
Routine Call
  • DIC
  • Line Location:
    • C+2
Routine Call
  • DIE
  • Line Location:
    • C+4
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] TURNON^DIAUTL

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SC - [#44] C+3, C+4*, EN+1, EN+2, E1*, PRINT1+1
^TMP("SDAVAIL" PRINT+1, PRINT1+2, PRINT1+3, PRINTQ!, QUE+5, QUE+6

Label References

Name Line Occurrences
$$QUE PRINT+6
C EN+2, G1+1, G1+2
DOW EN+2
E1 G1
EN G1+2
END C+2
G1 G1+1
HELP PRINT+3
INACT G1+1
PRINT G1PRINT+3
PRINT1 PRINT+5
PRINTQ PRINT+1, PRINT+3, PRINT+4, PRINT+6

Naked Globals

Name Field # of Occurrence
^("I" C+3
^("SL" EN+2
^("T" EN+2
^(0 EN+2*, E1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!, PRINT+3*
%DT G1+1*, END!
%H END!
>> %ZIS PRINT+4*
C END!
CCXN END!
CNT END!
COLLAT END!
CTR END!
>> D EN+2*
D0 END!, E1
DA C+2*, C+3, C+4, EN+1, EN+2, END!, E1PRINT1+1, QUE+7
DFN END!
DG END!
DGO END!
DH END!
DI END!
DIC C*, EN+2*, END!
DIC("A" C*, C+2!
DIC("DR" C*
DIC("S" C*, C+2!
DIC("W" EN+2*
DIC(0 C*, EN+2*
DIE C+2*, EN+2*, END!
DIE("NO^" C+2*, C+4!
DIFLD END!
DIK END!
DIRUT END+1!
DK END!
DL END!
DLAYGO C*, END!
DM END!
DOW G1+2*, END!, E1
DR C+4*, END!
DT PRINT1+1
DTIME G1+1
ENDATE END!
H1 END!
H2 END!
HSI END!
HY G1!
I END!
ICDFMT SDB+4~, C+4*
IO PRINT1+1
IO("Q" PRINT+5, QUE+3!
J END!
LT END!
M1 END!
M2 END!
MAX END!
NSL END!
POP G1+1*, END!, INACT*, PRINT+4
S END!
SB END!
SC END!
SD G1+2*, END!
SDA1 END+1!
SDAV END!
SDAVAIL PRINT1~*, PRINT1+2*, PRINT1+3
SDCL END!
SDDIF END!
SDEL G1+1*, END!
SDFSW G1*, END!
SDHX END!
SDIN C+3!*, G1*, G1+1, END!, INACT
SDINA END!
SDINH C+3!*, G1, END!
SDL END!
SDLA END!
SDLINE PRINT1~*, PRINT1+1
SDMAX END!
SDMM END!
>> SDONE G1+2
SDPAT G1+1*, END!
SDRE C+3!*, G1+1, END+1!, INACT, E1*
SDRE1 C+3!
SDREACT SDB+5!, C!, G1G1+1, G1+2, G1+3, END!
SDREB G1+1*, END+1!
SDRVE END+1!
SDSAV G1+1*, END+1!
SDSDL END!
SDSOH END+1!
SDSTRTDT END+1!
SDT END+1!
SDTOP SDB+5*, CG1G1+2, END+1!
SDW END+1!
SDZQ SDB+5*, END+1!
SI EN+2*, G1*, END+1!
SL EN+2*, G1END+1!
SLT END+1!
SM END+1!
SS END+1!
STARTDAY EN+2*, END+1!
STIME END+1!
STR END+1!
T1 END+1!
T2 END+1!
U C+2, EN+1, EN+2, G1+1, PRINT1+1
WY END+1!
X EN+2*, G1+1*, G1+2*, END+1!, QUE~, QUE+5*, QUE+6
Y C+2, G1!, G1+1!, G1+2, END+1!, INACT*, PRINT+1~, PRINT+6*
Y1 END+1!, INACT*
ZDX END+1!
>> ZTDESC QUE+4*
>> ZTQUEUED PRINTQ+1
>> ZTRTN QUE+4*
>> ZTSAVE("DA" QUE+7*
>> ZTSAVE("^TMP(""SDAVAIL"",$J," QUE+6*
ZTSK QUE+3!, QUE+8, QUE+9

Marked Items

Name Field # of Occurrence
$T(DOW EN+2
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 |  Marked Items  | All