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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: SDM1

Package: Scheduling

Routine: SDM1


Information

SDM1 ;SF/GFT - MAKE APPOINTMENT ; May 10, 2021@19:53:47

Source Information

Source file <SDM1.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Scheduling 8 ($$BEGDAT,DOWCHK,DWWRT,MORD2,MORDIS)^SDM0  OK^SDM1A  ^SDM2  ^SDM3  RDTY^SDMM  (AT,DTS)^SDUTL  OPT^SDWLE  EN^SDWLKIL  
VA FileMan 3 ^%DT  C^%DTC  YN^DICN  
Kernel 1 $$DOW^XLFDT  

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: 8

Package Total Caller Graph
Scheduling 8 SDAMWI  SDM0  SDM2  SDM3  SDMM  SDMM1  SDMULT  SDMULT1  

Entry Points

Name Comments DBIA/ICR reference
1
ADT
OVR
EN1
PRECAN
S
LEN
SC
SP
E
LOCK
6 ;;OVERBOOK!
7 ;;THAT TIME IS NOT WITHIN SCHEDULED PERIOD!
C
DAY ;;^SUN^MON^TUES^WEDNES^THURS^FRI^SATUR
DOW
X
XW
AVCHK ;added SD*5.3*490
AVCHK1 ;added SD*5.3*490
NOOB
WRT
L
IN
SPIN
REDDT() ;Prompt for availability redisplay date
WL(SC) ;Wait List Hook/teh patch 263 ;SD/327 passed 'SC'

External References

Name Field # of Occurrence
^%DT ADT+34, ADT+35, REDDT+4
C^%DTC 1+2, ADT+34, ADT+39
YN^DICN PRECANE+1, SPIN+1
$$BEGDAT^SDM0 S+7
DOWCHK^SDM0 S+6
DWWRT^SDM0 S+11
MORD2^SDM0 ADT+27
MORDIS^SDM0 ADT+26
OK^SDM1A SP+12, X+3
^SDM2 EN1+1
^SDM3 SP+12, X+3
RDTY^SDMM 1+5
AT^SDUTL ADT+33
DTS^SDUTL ININ+1
OPT^SDWLE WL+12
EN^SDWLKIL WL+12
$$DOW^XLFDT S+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,*7,?8,"**** SPECIAL INSTRUCTIONS ****",!
  • Line Location: 1+3
Function Call: WRITE
  • Prompt: !,?8,@SDMSG
  • Line Location: 1+4
Function Call: READ
  • Formatting: !
  • Prompt: "DATE/TIME: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ADT+24
Function Call: WRITE
  • Prompt: " ??",!
  • Line Location: ADT+27
Function Call: WRITE
  • Prompt: Y
  • Line Location: ADT+33
Function Call: WRITE
  • Prompt: *7,?50,$P(^(0),U,2),"??"
  • Line Location: OVR+0
Function Call: WRITE
  • Prompt: !,*7,@SDMSG
  • Line Location: OVR+1
Function Call: WRITE
  • Prompt: !,*7,"EXCEEDS MAXIMUM DAYS FOR FUTURE APPOINTMENT!!",*7
  • Line Location: OVR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRECAN+1
Function Call: READ
  • Variable: S
  • Timeout: DTIME
  • Line Location: LEN+0
Function Call: WRITE
  • Prompt: *7,!,$E($T(@SM),5,99),"...OK"
  • Line Location: E+1
Function Call: WRITE
  • Prompt: !,"RESPOND YES OR NO"
  • Line Location: E+2
Function Call: WRITE
  • Prompt: !,*7,"ANOTHER USER HAS LOCKED THIS DATE - TRY AGAIN LATER"
  • Line Location: LOCK+0
Function Call: WRITE
  • Prompt: !,*7,"CAN'T BOOK WITHIN A CANCELLED TIME PERIOD!",!
  • Line Location: C+0
Function Call: WRITE
  • Prompt: *7," WHEN??"
  • Line Location: XW+0
Function Call: WRITE
  • Prompt: *7,!!,"That date is prior to the patient's date of birth.",!!
  • Line Location: AVCHK+3
Function Call: WRITE
  • Prompt: *7,!!,"That date is prior to the clinic's availability date.",!!
  • Line Location: AVCHK1+2
Function Call: WRITE
  • Prompt: !,"NO OPEN SLOTS THEN",*7
  • Line Location: NOOB+0
Function Call: WRITE
  • Prompt: !,+SL," MINUTE APPOINTMENTS "
  • Line Location: WRT+0
Function Call: WRITE
  • Prompt: $S($P(SL,U,2)["V":"(VARIABLE LENGTH)",1:"")
  • Line Location: WRT+1
Function Call: WRITE
  • Prompt: *7,!,"Appt. length must = or be a multiple of the increment minutes per hour (",SDSL,")",!
  • Line Location: L+1
Function Call: WRITE
  • Prompt: !,"There are more special instructions. Do you want to display them"
  • Line Location: SPIN+0
Function Call: WRITE
  • Prompt: !,"Enter Y to see the remaining special instructions, or N if you don't wish to see them"
  • Line Location: SPIN+2
Function Call: WRITE
  • Prompt: !,^SC(SC,"SI",%I,0),!
  • Line Location: SPIN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: REDDT+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] EN1+1, PRECANAVCHK+1
^HOLIDAY - [#40.5] OVR
^SC - [#44] 1+1, 1+3, ADT+1, ADT+37, S+4, S+13*, SC+1, SC+2, SP+5, SP+8
AVCHK1+1, SPIN+4, WL+3, WL+7
^SDWL(409.31 - [#409.31] WL+7, WL+9
^SDWL(409.32 - [#409.32] WL+5, WL+8
^XUSEC("SDOB" E

Label References

Name Line Occurrences
$$REDDT ADT+27
1 OVR+2, SS+1, S+10, S+11, E+3, C+1, XWNOOB
ADT ADT+27, ADT+28, ADT+34, ADT+37, OVROVR+1, OVR+3, PRECAN
AVCHK S
AVCHK1 S+1
C SP+5
DAY S+13
DOW EN1
E E+2
IN 1+4, OVR+1
L LEN
LEN LEN
LOCK SC
NOOB E
OVR ADT+33
S LEN
SC SC+1, E+3
SP SP
SPIN 1+3, SPIN+2
WRT 1+2
X SC+4, SP+5
XW S+13, X+1

Naked Globals

Name Field # of Occurrence
^( 1+3, EN1+1, S+13
^("SI" 1+3
^("SL" ADT+1
^(0 OVREN1+1, PRECANS+13*, WL+9
^(1 S+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % 1+3*, PRECAN*, SC+5*, E+1*, E+2, E+3, DOW*, DOW+1*, SPIN+1*, SPIN+2
SPIN+3
%DT ADT+34!*, ADT+35!*, REDDT+1~, REDDT+2*
%DT("A" REDDT+3*
>> %I 1+3*, SPIN+4
AVDT AVCHK1+1*, AVCHK1+2!
>> CCX ADT+1*
>> CCXN 1*
COV 1!
>> DFN 1EN1+1, PRECANAVCHK+1
>> DILOCKTM SC+1
DT 1+1, 1+4
DTIME ADT+24, LEN
DUZ E
DUZ(2 WL+9
DY S+2~, S+11*
>> HSI SC+3
>> I EN1+1*, SC+3*, SC+4, SP+5*, SP+6, X+1
MXOK 1!, SP+12, X+3
POP 1+3*, S*, S+1*, S+5*, S+9, S+10, S+12!, LEN*, C*, X*
AVCHK+3*, AVCHK1+2*, L+1*, SPIN+3*
>> S EN1+1*, LEN*, SC+2*, SC+4, SC+5, SP*, SP+5, SP+6*, L+1
>> SB SC+3
SC 1*, 1+1, 1+3, ADT+1, ADT+37, S+4, S+13, SC+1, SC+2, SP+5
SP+8, AVCHK1+1, SPIN+4, WL~, WL+2, WL+3, WL+4, WL+5, WL+7, WL+8
>> SD ADT+30, ADT+33, EN1*, EN1+1, PRECANS+4, S+7, S+11, S+13, SC+1
SC+2, SC+3, SP+5
SDBEGDT S+2~, S+7*, S+11
>> SDDIF SC+3, SC+5, SP+5
>> SDEDT 1+1*, 1+2*, OVR+3
SDHY IN*, IN+2!
>> SDINA 1+4, OVR+1, IN
>> SDLOCK SC*, SC+2*
>> SDMM 1+5, SP+12, LOCKC+1, X
SDMSG 1+4!, OVR+1!, IN+2*
>> SDNOT SP+2*
>> SDONCE ADT+2*, ADT+23
SDPROT 1!
>> SDRE OVR+1, ININ+2
SDSDATE ADT+23, OVR!, OVR+1!, OVR+2!, OVR+3!, PRECAN!, S+9!, E+3!, C+1!, XW!
AVCHK+3!, AVCHK1+2!, NOOB!
>> SDSL L*, L+1
SDSLSV SP+1~, SP+12*
>> SDSOH ADT+1*, OVR
>> SDW ADT*
SDWLDS WL+9*, WL+11!
SDWLDSS WL+7*, WL+9, WL+11!
>> SDWLERR WL+12*
SDWLFLG WL+4*, WL+5*, WL+7*, WL+8*, WL+9*, WL+10, WL+11!
>> SDWLOPT WL+12*
SDWLSC WL+8*, WL+11!
>> SDXXX 1
>> SI S+13, SC+3
>> SL LEN*, SC+3, SC+5, SP+8, SP+12, X+3, WRTWRT+1, L
>> SM EN1*, SC+5*, SP+6*, SP+12, E+3*, X+2*, X+3
>> SS S+13*, SC+3*, SC+5, SP+5
>> ST SC+3*, SC+5, SPSP+5*, SP+6*, SP+7, SP+9*
>> STR SP+5
>> TMPD EN1*
U OVREN1+1, PRECANS+13, LENSP+12, X+3, AVCHK+1, AVCHK+2, AVCHK+3
WRT+1, WL+7, WL+8, WL+9
>> VADM AVCHK+1
>> VADM(3 AVCHK+1*, AVCHK+2, AVCHK+3
X 1+2, ADT+23*, ADT+24*, ADT+26, ADT+27*, ADT+28, ADT+33, ADT+34*, ADT+39, EN1*
S+5, DOWDOW+2, AVCHK+2, AVCHK+3, AVCHK1+2, REDDT+1~
>> X1 1+1*, ADT+34*, ADT+39*
>> X2 1+2*, ADT+34*, ADT+39*
XDT S+5*, S+8!
Y ADT+33*, ADT+34, ADT+37, ADT+39*, OVROVR+1, OVR+2, OVR+3, EN1S+7
S+13, SP+5*, SP+6, DOW*, DOW+1*, DOW+2*, X+2, IN*, IN+1, IN+2*
, REDDT+1~, REDDT+5
Y1 IN*, IN+2!

Marked Items

Name Field # of Occurrence
$T(@SM E+1
$T(DAY S+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All