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 ;9/30/10 15:59

Source Information

Source file <SDB.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
VA Fileman 5 ^%DT  TURNON^DIAUTL  ^DIC  YN^DICN  DT^DICRW  
Scheduling 4 EN1^SDB0  (HLPD,TX)^SDB1  DOW^SDM0  DTS^SDUTL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
IHS Changes To Scheduling 2 SETUP^BSDB  ($$INACTMSG,$$OWNER)^BSDU  
IHS Changes To ADT 1 MSG^BDGF  
Registration 1 $$FDATE^VALM1  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Scheduling 7 SD IHS BUILD  SDB0  SDB1  SDBUILD  SDNACT1  SDREACT  SDSCE  

Entry Points

Name Comments DBIA/ICR reference
PRINT1
PRINTQ
C
EN ;Q:$D(SDONE)&('$D(SDTOP)) SD*5.3*455 added 2nd Go on next line
END
HELP ;
G1
QUE(X) ; -- que job
; return: did job que [ 1|yes 0|no ]
PRINT ;Print cancelled days
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"

External References

Name Field # of Occurrence
^%DT G1+1
^%ZIS PRINT+4
^%ZISC PRINTQ+1
^%ZTLOAD QUE+8
MSG^BDGF C+4
SETUP^BSDB C+7
$$INACTMSG^BSDU C+2
$$OWNER^BSDU C+4
TURNON^DIAUTL C+1
^DIC C+3
YN^DICN PRINT+3
DT^DICRW C
EN1^SDB0 G1+3
HLPD^SDB1 G1+1
TX^SDB1 E1
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
  • Prompt: "AVAILABILITY DATE: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • 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+3
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+5, C+7*, EN+1, 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 C+4, EN+1, G1+1, G1+2
DOW EN+1
E1 G1
EN G1+2
END C+3
G1 G1+1
HELP PRINT+3
INACT G1+1
PRINT G1, PRINT+3
PRINT1 PRINT+5
PRINTQ PRINT+1, PRINT+3, PRINT+4, PRINT+6

Naked Globals

Name Field # of Occurrence
^("I" C+5
^("SL" EN+1
^("T" EN+1
^(0 EN+1*, 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+1*
D0 END!, E1
DA C+3*, C+5, C+7, EN+1, END!, E1, PRINT1+1, QUE+7
DFN END!
DG END!
DGO END!
DH END!
DI END!
DIC C*, EN+1*, END!
DIC("A" C*, C+3!
DIC("DR" C*
DIC("S" C*, C+3!
DIC("W" C+2*, EN+1*
DIC(0 C*, EN+1*
DIE C+3*, EN+1*, END!
DIE("NO^" C+3*, C+7!
DIFLD END!
DIK END!
DK END!
DL END!
DLAYGO C*, END!
DM END!
DOW G1+2*, END!, E1
DR C+7*, END!
DT PRINT1+1
DTIME G1+1
DUZ C+4
ENDATE END!
H1 END!
H2 END!
HSI END!
HY G1!
I END!
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+5!*, G1*, G1+1, END!, INACT
SDINA END!
SDINH C+5!*, G1, END!
SDL END!
SDLA END!
SDLINE PRINT1~*, PRINT1+1
SDMAX END!
SDMM END!
>> SDONE G1+2
SDPAT G1+1*, END!
SDRE C+5!*, G1+1, END+1!, INACT, E1*
SDRE1 C+5!
SDREACT SDB+7!, C!, G1, G1+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+7*, C, G1, G1+2, END+1!
SDW END+1!
SDZQ SDB+7*, END+1!
SI EN+1*, G1*, END+1!
SL EN+1*, G1, END+1!
SLT END+1!
SM END+1!
SS END+1!
STARTDAY EN+1*, END+1!
STIME END+1!
STR END+1!
T1 END+1!
T2 END+1!
U C+3, EN+1, G1+1, PRINT1+1
WY END+1!
X EN+1*, G1+1*, G1+2*, END+1!, QUE~, QUE+5*, QUE+6
Y C+3, C+4, 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+1
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