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 ; 3/29/05 12:35pm [5/5/05 9:41am] ; Compiled March 8, 2007 14:55:24 ; Compiled May 9, 2007 13:19:18 ; Compiled August 28, 2007 12:19:08

Source Information

Source file <SDM1.m>

Call Graph

Call Graph

Call Graph Total: 13

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

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

External References

Name Field # of Occurrence
^%DT ADT+33, ADT+34, REDDT+4
C^%DTC 1+2, ADT+33, ADT+38
YN^DICN PRECAN, E+1, SPIN+1
$$BEGDAT^SDM0 S+7
$$DDATE^SDM0 ADT+13
D^SDM0 ADT+14
DOWCHK^SDM0 S+6
DWWRT^SDM0 S+11
MORD2^SDM0 ADT+26
MORDIS^SDM0 ADT+25
OK^SDM1A SP+7, X+3
^SDM2 EN1+1
$$WLCL120^SDM2A ADT+7
$$WLCL120A^SDM2A ADT+23
$$WLCLASK^SDM2A ADT+8
WL^SDM2A ADT+17
^SDM3 SP+7, X+3
RDTY^SDMM 1+5
AT^SDUTL ADT+32
DTS^SDUTL IN, IN+1
OPT^SDWLE WL+11
EN^SDWLKIL WL+11
$$DOW^XLFDT S+11
$$FMADD^XLFDT ADT+12

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
  • Prompt: "DATE/TIME: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: ADT+23
Function Call: WRITE
  • Prompt: " ??",!
  • Line Location: ADT+26
Function Call: WRITE
  • Prompt: Y
  • Line Location: ADT+32
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
  • Timeout: DTIME
  • Variable: S
  • 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, PRECAN, AVCHK+1
^HOLIDAY - [#40.5] OVR
^SC - [#44] 1+1, 1+3, ADT+1, ADT+11, ADT+36, S+4, S+13*, SC+1, SC+2, SP+2
, SP+4, AVCHK1+1, SPIN+4, WL+2, WL+6
^SDWL(409.31 - [#409.31] WL+6, WL+8
^SDWL(409.32 - [#409.32] WL+4, WL+7
^XUSEC("SDOB" E

Label References

Name Line Occurrences
$$REDDT ADT+26
1 OVR+2, S, S+1, S+10, S+11, E+3, C+1, XW, NOOB
ADT ADT+26, ADT+27, ADT+33, ADT+36, OVR, OVR+1, OVR+3, PRECAN
AVCHK S
AVCHK1 S+1
C SP+2
DAY S+13
DOW EN1
E E+2
IN 1+4, OVR+1
L LEN
LEN LEN
LOCK SC
NOOB E
OVR ADT+32
S LEN
SC SC+1, E+3
SP SP
SPIN 1+3, SPIN+2
WL ADT+24
WRT 1+2
X SC+4, SP+2
XW S+13, X+1

Naked Globals

Name Field # of Occurrence
^( 1+3, EN1+1, S+13
^("SI" 1+3
^("SL" ADT+1
^(0 OVR, EN1+1, PRECAN, S+13*, WL+8
^(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+33!*, ADT+34!*, 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 1, EN1+1, PRECAN, AVCHK+1
>> DILOCKTM SC+1
DT 1+1, 1+4, ADT+5, ADT+12
DTIME ADT+23, LEN
DUZ E
DUZ(2 WL+8
DY S+2~, S+11*
>> HSI SC+3
>> I EN1+1*, SC+3*, SC+4, SP+2*, X+1
MXOK 1!, SP+7, 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+2*, L+1
>> SB SC+3
SC 1*, 1+1, 1+3, ADT+1, ADT+7, ADT+11, ADT+17, ADT+23, ADT+24, ADT+36
, S+4, S+13, SC+1, SC+2, SP+2, SP+4, AVCHK1+1, SPIN+4, WL~, WL+1
, WL+2, WL+3, WL+4, WL+6, WL+7
>> SD ADT+29, ADT+32, EN1*, EN1+1, PRECAN, S+4, S+7, S+11, S+13, SC+1
, SC+2, SC+3, SP+2
SDBEGDT S+2~, S+7*, S+11
>> SDDATE ADT+5, ADT+13, ADT+15
SDDATE1 ADT+4~, ADT+5*, ADT+7, ADT+15*, ADT+23
>> SDDIF SC+3, SC+5, SP+2
SDDMAX ADT+10~, ADT+12*
>> SDEDT 1+1*, 1+2*, OVR+3
SDHY IN*, IN+2!
>> SDINA 1+4, OVR+1, IN
>> SDLOCK SC*, SC+2*
SDMAX ADT+10~, ADT+12*, ADT+13
SDMAX(1 ADT+11*, ADT+12
>> SDMM 1+5, SP+7, LOCK, C+1, X
SDMSG 1+4!, OVR+1!, IN+2*
>> SDNOT SP+1*
>> SDONCE ADT+2*, ADT+22
SDPROT 1!
SDQT ADT+4~
>> SDRE OVR+1, IN, IN+2
SDSDATE ADT+22, OVR!, OVR+1!, OVR+2!, OVR+3!, PRECAN!, S+9!, E+3!, C+1!, XW!
, AVCHK+3!, AVCHK1+2!, NOOB!
>> SDSL L*, L+1
>> SDSOH ADT+1*, OVR
>> SDW ADT*
SDWLDS WL+8*, WL+10!
SDWLDSS WL+6*, WL+8, WL+10!
>> SDWLERR WL+11*
SDWLFLG WL+3*, WL+4*, WL+6*, WL+7*, WL+8*, WL+9, WL+10!
>> SDWLOPT WL+11*
SDWLSC WL+7*, WL+10!
>> SDXXX 1
>> SI S+13, SC+3
>> SL LEN*, SC+3, SC+5, SP+4, SP+7, X+3, WRT, WRT+1, L
>> SM EN1*, SC+5*, SP+2*, SP+7, E+3*, X+2*, X+3
>> SS S+13*, SC+3*, SC+5, SP+2
>> ST SC+3*, SC+5, SP, SP+2*, SP+3, SP+5*
>> STR SP+2
>> TMPD EN1*
U ADT+11, OVR, EN1+1, PRECAN, S+13, LEN, SP+7, X+3, AVCHK+1, AVCHK+2
, AVCHK+3, WRT+1, WL+6, WL+7, WL+8
>> VADM AVCHK+1
>> VADM(3 AVCHK+1*, AVCHK+2, AVCHK+3
X 1+2, ADT+22*, ADT+23*, ADT+24, ADT+25, ADT+26*, ADT+27, ADT+32, ADT+33*, ADT+38
, EN1*, S+5, DOW, DOW+2, AVCHK+2, AVCHK+3, AVCHK1+2, REDDT+1~
>> X1 1+1*, ADT+33*, ADT+38*
>> X2 1+2*, ADT+33*, ADT+38*
XDT S+5*, S+8!
Y ADT+4~, ADT+6*, ADT+7, ADT+8*, ADT+9, ADT+13*, ADT+18*, ADT+32*, ADT+33, ADT+36
, ADT+38*, OVR, OVR+1, OVR+2, OVR+3, EN1, S+7, S+13, SP+2*, 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